===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/ox-win.sm1,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- OpenXM/src/kan96xx/Doc/ox-win.sm1	2001/08/09 13:05:49	1.3
+++ OpenXM/src/kan96xx/Doc/ox-win.sm1	2001/08/10 08:33:03	1.4
@@ -1,7 +1,12 @@
-%%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox-win.sm1,v 1.2 2001/08/09 09:08:17 takayama Exp $
+%%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox-win.sm1,v 1.3 2001/08/09 13:05:49 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
+[(getenv) (OPENXMHOMEWIN)] extension
+/OpenXM_HOME_WIN set
+%% It should be set, for example, to c:/cygwin/home/nobuki/OpenXM
+%% See  kan96xx/win/websm1.bat
+
 /oxpath.ox (bin/ox.exe) def
 /oxpath.oxsm1 (bin/ox_sm1.exe) def
 /oxpath.oxlog (bin/oxlog.exe) def
@@ -588,6 +593,37 @@ ox.verbose {
   ( -data ) data ( -control ) control  ( -pass ) pass 
   oxpath.null
   ( )] cat system 
+ [(oxCreateClient2) 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.init 
+ ] pop
+ popVariables
+} def
+
+/sm1connectr_win {
+ [/in-sm1connectr /pass /peer /data /control ] pushVariables
+ [
+ /pass [(oxGenPass)] extension def
+ /peer [(oxGetPort) (localhost)] extension def
+ /data peer 1 get toString def
+ /control peer 3 get toString def
+ peer message
+ [(forkExec) [
+    (c:/windows/command/start)
+    [OpenXM_HOME_WIN  (/bin/ox)] cat
+    (-reverse)
+    (-ox)
+    [OpenXM_HOME_WIN (/bin/ox_sm1.exe)] cat
+    (-data)
+     data
+     (-control)
+     control
+     (-pass)
+     pass
+  ]
+  [  ] 3] extension
+
  [(oxCreateClient2) peer 0 pass] extension /ox.ccc set
                      %% 0 means connect from only localhost. 
  (The server is binded to the variable ox.ccc) message