===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/gnuplot.sm1,v
retrieving revision 1.8
retrieving revision 1.10
diff -u -p -r1.8 -r1.10
--- OpenXM/src/kan96xx/Doc/gnuplot.sm1	2005/02/04 11:25:45	1.8
+++ OpenXM/src/kan96xx/Doc/gnuplot.sm1	2005/02/09 11:44:05	1.10
@@ -1,9 +1,10 @@
-%$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.
 [(parse) (ox.sm1) pushfile] extension
 [(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
 
 (SSkan/lib/plot.sm1 for ox_sm1_gnuplot.  1999/09/03. ) message
@@ -21,6 +22,9 @@
 } def
 
 /plotstart.aux {
+  plot.gnuplotexec tag 0 eq {
+    (No gnuplot is installed in this system.) error
+  } { } ifelse
   {
     gnuplot.callingMethod 0 eq {
       plotstart.aux.0
@@ -140,6 +144,7 @@
   [(fp2fputs) [cccc nl] cat gnuplot.pfp] extension pop
   [(fp2fflush) gnuplot.pfp] extension pop
   gnuplot.read.1
+  gnuplot.sync.1
 } def
 
 %% (plot sin(x);) gnuplot
@@ -156,6 +161,15 @@
    } loop
   } 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
 
 /isAlive {