===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/gnuplot.sm1,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- OpenXM/src/kan96xx/Doc/gnuplot.sm1	2004/12/16 08:42:14	1.3
+++ OpenXM/src/kan96xx/Doc/gnuplot.sm1	2004/12/16 11:41:58	1.4
@@ -1,13 +1,14 @@
-%$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.3 2004/12/16 08:42:14 takayama Exp $
 %%% 1999, 6/7 Mon.
 [(parse) (ox.sm1) pushfile] extension
 [(getenv) (OpenXM_HOME)] extension /OpenXM_HOME set
 
 [OpenXM_HOME (/bin/gnuplot4ox)] cat /plot.gnuplotexec set
+%(gnuplot) /plot.gnuplotexec set
 
 (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 
 
 /plotstart {
   sm1connectr
@@ -59,14 +60,22 @@
     [(fp2mkfifo) gnuplot.fifo]  extension message
     gnuplot.fifo message
     [(fp2popen) plot.gnuplotexec (w)] extension /gnuplot.pfp set
-    [(fp2fopen) gnuplot.fifo (r)] extension /gnuplot.fifoFp set
-    % BUG! It does not return.
-    
+    (Started gnuplot) message
+
     [(fp2fputs) [(set mouse; set print ") gnuplot.fifo (" ; ) 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.
+    /gnuplot.pid -2 def  % dummy.
+    gnuplot.pid message
 } def
 
+/plotstop {
+  gnuplot.ccc $ plotstop.aux $ oxsubmit
+} def
+
 /plotstop.aux {
   {
     gnuplot.callingMethod 0 eq {
@@ -85,7 +94,7 @@
 /plotstop.aux.0 { } def
 /plotstop.aux.1 {
   [(fp2fclose) gnuplot.pfp] extension pop
-  [(fp2fclose) gnuplot.fifo] extension pop
+  [(fp2fclose) gnuplot.fifoFp] extension pop
   [(rm) gnuplot.fifo] oxshell pop
 } def
 
@@ -217,4 +226,4 @@
 
 
 $plotstart ;   (plot sin(x);) rplot$ message
-
+$plotstart.aux ; (splot x**2-y**2;) gnuplot $ message