===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/ox.sm1,v
retrieving revision 1.10
retrieving revision 1.14
diff -u -p -r1.10 -r1.14
--- OpenXM/src/kan96xx/Doc/ox.sm1	2000/01/30 10:09:44	1.10
+++ OpenXM/src/kan96xx/Doc/ox.sm1	2000/12/05 12:03:43	1.14
@@ -1,4 +1,4 @@
-%%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.9 2000/01/19 10:02:11 takayama Exp $
+%%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.13 2000/12/05 11:20:26 takayama Exp $
 %%%%%%%%%%%% Configuration: Specify your server path
 %%%%% ox, ox_sm1, oxlog are contained in kxx.tgz
 %%%%% These should be under /usr/local/lib/sm1 or LOAD_SM1_PATH
@@ -73,7 +73,7 @@ ox.version [(Version)] system_variable gt 
 
 /SM_popCMO 262 def
 /SM_executeFunction 269 def
-/SM_DUMMY_sendcmo  280 def
+/SM_DUMMY_sendcmo   2147418112 1 add def    %%% SM_PRIVATE+1
 /SM_sync_ball 281 def
 
 /SM_pops  265  def
@@ -355,7 +355,7 @@ ox.verbose { oxhelp } {  } ifelse
 /oxreset {
   /arg1 set
   [(oxReq) arg1 SM_control_reset_connection] extension pop
-  [(oxGetFromControl) arg1 ] extension pop
+%%  [(oxGetFromControl) arg1 ] extension pop
   [(oxGet) arg1] extension message
 } def
 
@@ -915,5 +915,40 @@ ox.verbose {
  arg1
 } def
 
+%% Test code for oxCreateControl_RFC_101
+/sm1connect101 {
+ [/in-sm1connectr /pass /peer /data /control ] pushVariables
+ [
+ /pass [(oxGenPass)] extension def
+ /peer [(oxGetPort1) (localhost)] extension def
+ /data peer 1 get toString def
+ peer message
+ [(/home/nobuki/OpenXM/src/oxc/oxc)
+  ( -c ) pass ( -h ) (localhost) ( -p ) data ( -x )
+  oxpath.null
+  ( &)] cat system-csh
+
+ [(oxCreateControl_RFC_101) peer 0 pass] extension /ox.ccc set
+                     %% 0 means connect from only localhost. 
+ (The server is binded to the variable ox.ccc) message
+  ox.ccc
+ ] pop
+ popVariables
+} def
+
+/sm1StartEngine101 {
+ [/in-sm1StartEngine101 /peer /data /control ] pushVariables
+ [
+    /peer [(oxGetPort1) (localhost)] extension def
+    /data peer 1 get def
+    ox.ccc data oxpushcmo
+    ox.ccc (/home/nobuki/OpenXM/bin/ox_sm1) oxpushcmo
+    [(oxPushCMD) ox.ccc SM_control_spawn_server] extension
+    (Implementation has not yet completed.) error
+    %% how can I get client structure?
+ ] pop
+ popVariables
+ arg1
+} def
 
 initializePathNamesForOx  %% This should be