[BACK]Return to gnuplot.sm1 CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Doc

Diff for /OpenXM/src/kan96xx/Doc/gnuplot.sm1 between version 1.3 and 1.6

version 1.3, 2004/12/16 08:42:14 version 1.6, 2004/12/18 01:56:03
Line 1 
Line 1 
 %$OpenXM: OpenXM/src/kan96xx/Doc/gnuplot.sm1,v 1.2 1999/11/17 00:28:54 takayama Exp $  %$OpenXM: OpenXM/src/kan96xx/Doc/gnuplot.sm1,v 1.5 2004/12/17 00:13:08 takayama Exp $
 %%% 1999, 6/7 Mon.  %%% 1999, 6/7 Mon.
 [(parse) (ox.sm1) pushfile] extension  [(parse) (ox.sm1) pushfile] extension
 [(getenv) (OpenXM_HOME)] extension /OpenXM_HOME set  [(getenv) (OpenXM_HOME)] extension /OpenXM_HOME set
   
 [OpenXM_HOME (/bin/gnuplot4ox)] cat /plot.gnuplotexec set  [OpenXM_HOME (/bin/gnuplot)] cat /plot.gnuplotexec set
   %(gnuplot) /plot.gnuplotexec set
   
 (SSkan/lib/plot.sm1 for ox_sm1_gnuplot.  1999/09/03. ) message  (SSkan/lib/plot.sm1 for ox_sm1_gnuplot.  1999/09/03. ) message
   
 /gnuplot.callingMethod 0 def  % 0 : old, 1 : pipe, 2: file  /gnuplot.callingMethod 1 def  % 0 : old, 1 : pipe, 2: file
   % If your gnuplot is version 3, then set the callingMethod to 0.
   
 /plotstart {  /plotstart {
   sm1connectr    sm1connectr
Line 56 
Line 58 
   
 /plotstart.aux.1 {  /plotstart.aux.1 {
     [(getUniqueFileName) (/tmp/gnuplot.fifo.tmp)] extension /gnuplot.fifo set      [(getUniqueFileName) (/tmp/gnuplot.fifo.tmp)] extension /gnuplot.fifo set
     [(fp2mkfifo) gnuplot.fifo]  extension message      [(fp2mkfifo) gnuplot.fifo]  extension /gnuplot.status set
   
       gnuplot.status -1 eq {
          (Warning: mkfifo failed.) message
       } { } ifelse
   
     gnuplot.fifo message      gnuplot.fifo message
     [(fp2popen) plot.gnuplotexec (w)] extension /gnuplot.pfp set      [(fp2popen) plot.gnuplotexec (w)] extension /gnuplot.pfp set
     [(fp2fopen) gnuplot.fifo (r)] extension /gnuplot.fifoFp set      (Started gnuplot) message
     % BUG! It does not return.  
       [(fp2fputs) [(set print ") gnuplot.fifo (" ; ) nl ] cat
     [(fp2fputs) [(set mouse; set print ") gnuplot.fifo (" ; ) nl ] cat  
      gnuplot.pfp ] extension message       gnuplot.pfp ] extension message
     [(fp2fflush) gnuplot.pfp] extension message      [(fp2fflush) gnuplot.pfp] extension message
       [(fp2fputs) [(set mouse ; ) nl ] cat gnuplot.pfp ] extension message
       [(fp2fflush) gnuplot.pfp] extension message
   
       [(fp2fopen) gnuplot.fifo (r)] extension /gnuplot.fifoFp set
       % This must be the last. Otherwise, fopen is blocked.
       % When mkfifo fails, then gnuplot.fifoFp will be null. (old cygwin)
       /gnuplot.pid -2 def  % dummy.
       gnuplot.pid message
 } def  } def
   
   /plotstop {
     gnuplot.ccc $ plotstop.aux $ oxsubmit
   } def
   
 /plotstop.aux {  /plotstop.aux {
   {    {
     gnuplot.callingMethod 0 eq {      gnuplot.callingMethod 0 eq {
Line 85 
Line 103 
 /plotstop.aux.0 { } def  /plotstop.aux.0 { } def
 /plotstop.aux.1 {  /plotstop.aux.1 {
   [(fp2fclose) gnuplot.pfp] extension pop    [(fp2fclose) gnuplot.pfp] extension pop
   [(fp2fclose) gnuplot.fifo] extension pop    gnuplot.fifoFp tag 0 eq { }
     {
       [(fp2fclose) gnuplot.fifoFp] extension pop
     } ifelse
   [(rm) gnuplot.fifo] oxshell pop    [(rm) gnuplot.fifo] oxshell pop
 } def  } def
   
Line 123 
Line 144 
   
   
 /gnuplot.read.1 {  /gnuplot.read.1 {
   [   [
     gnuplot.fifoFp tag 0 eq { }
     {
    {     {
     [(fp2select) gnuplot.fifoFp 0] extension 1 eq {      [(fp2select) gnuplot.fifoFp 0] extension 1 eq {
       [(fp2fgetc) gnuplot.fifoFp] extension        [(fp2fgetc) gnuplot.fifoFp] extension
     } {  exit } ifelse      } {  exit } ifelse
    } loop     } loop
   ] { (string) dc } map cat    } ifelse
    ] { (string) dc } map cat
 } def  } def
   
 /isAlive {  /isAlive {
Line 217 
Line 241 
   
   
 $plotstart ;   (plot sin(x);) rplot$ message  $plotstart ;   (plot sin(x);) rplot$ message
   $plotstart.aux ; (splot x**2-y**2;) gnuplot $ message
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>