[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.4 and 1.9

version 1.4, 2004/12/16 11:41:58 version 1.9, 2005/02/04 11:54:06
Line 1 
Line 1 
 %$OpenXM: OpenXM/src/kan96xx/Doc/gnuplot.sm1,v 1.3 2004/12/16 08:42:14 takayama Exp $  %$OpenXM: OpenXM/src/kan96xx/Doc/gnuplot.sm1,v 1.8 2005/02/04 11:25:45 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  %(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 1 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 57 
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
     (Started gnuplot) message      (Started gnuplot) message
   
     [(fp2fputs) [(set mouse; set print ") gnuplot.fifo (" ; ) nl ] cat      [(fp2fputs) [(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      [(fp2fopen) gnuplot.fifo (r)] extension /gnuplot.fifoFp set
     % This must be the last. Otherwise, fopen is blocked.      % 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 -2 def  % dummy.
     gnuplot.pid message      gnuplot.pid message
 } def  } def
Line 94 
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.fifoFp] extension pop    gnuplot.fifoFp tag 0 eq { }
   [(rm) gnuplot.fifo] oxshell pop    {
       [(fp2fclose) gnuplot.fifoFp] extension pop
     } ifelse
     % [(rm) gnuplot.fifo] oxshell pop % It  is OS dependent.
     [(unlink) gnuplot.fifo] extension
 } def  } def
   
   
Line 123 
Line 136 
   
 /gnuplot.1 {  /gnuplot.1 {
   /cccc set    /cccc set
     gnuplot.read.1
   [(fp2fputs) [cccc nl] cat gnuplot.pfp] extension pop    [(fp2fputs) [cccc nl] cat gnuplot.pfp] extension pop
   [(fp2fflush) gnuplot.pfp] extension pop    [(fp2fflush) gnuplot.pfp] extension pop
   gnuplot.read.1    gnuplot.read.1
     gnuplot.sync.1
 } def  } def
   
 %% (plot sin(x);) gnuplot  %% (plot sin(x);) gnuplot
   
   
 /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
   
   % It uses "@" to wait for the gnuplot.
   /gnuplot.sync.1 {
     [(fp2fputs) [(print "@";) nl] cat gnuplot.pfp] extension pop
     [(fp2fflush) gnuplot.pfp] extension pop
     {
       [(fp2fgetc) gnuplot.fifoFp] extension 64 eq { exit} { } ifelse
     } loop
 } def  } def
   
 /isAlive {  /isAlive {
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.9
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>