version 1.5, 2004/12/17 00:13:08 |
version 1.7, 2004/12/21 03:25:04 |
|
|
%$OpenXM: OpenXM/src/kan96xx/Doc/gnuplot.sm1,v 1.4 2004/12/16 11:41:58 takayama Exp $ |
%$OpenXM: OpenXM/src/kan96xx/Doc/gnuplot.sm1,v 1.6 2004/12/18 01:56:03 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 |
|
|
|
|
/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 |
|
|
|
|
[(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 |
|
|
/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 |
|
|
|
|
|
|
|
|
|
|
/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 { |