version 1.8, 2005/02/04 11:25:45 |
version 1.10, 2005/02/09 11:44:05 |
|
|
%$OpenXM: OpenXM/src/kan96xx/Doc/gnuplot.sm1,v 1.7 2004/12/21 03:25:04 takayama Exp $ |
%$OpenXM: OpenXM/src/kan96xx/Doc/gnuplot.sm1,v 1.9 2005/02/04 11:54:06 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/gnuplot)] cat /plot.gnuplotexec set |
[(which) (gnuplot)] oxshell /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 |
|
|
} def |
} def |
|
|
/plotstart.aux { |
/plotstart.aux { |
|
plot.gnuplotexec tag 0 eq { |
|
(No gnuplot is installed in this system.) error |
|
} { } ifelse |
{ |
{ |
gnuplot.callingMethod 0 eq { |
gnuplot.callingMethod 0 eq { |
plotstart.aux.0 |
plotstart.aux.0 |
|
|
[(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 |
|
|
} loop |
} loop |
} ifelse |
} ifelse |
] { (string) dc } map cat |
] { (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 { |