===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/ox-win.sm1,v
retrieving revision 1.2
retrieving revision 1.6
diff -u -p -r1.2 -r1.6
--- OpenXM/src/kan96xx/Doc/ox-win.sm1	2001/08/09 09:08:17	1.2
+++ OpenXM/src/kan96xx/Doc/ox-win.sm1	2001/08/12 03:13:35	1.6
@@ -1,7 +1,22 @@
-%%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox-win.sm1,v 1.1 2001/05/20 07:48:18 takayama Exp $
+%%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox-win.sm1,v 1.5 2001/08/10 13:48:40 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
+
+%% This variable is used in sm1connectr_win
+%% It should be set, for example, to c:/cygwin/home/nobuki/OpenXM
+%% See  kan96xx/win/websm1.bat
+[(getenv) (OPENXMHOMEWIN)] extension
+/OpenXM_HOME_WIN set
+OpenXM_HOME_WIN tag 0 eq {
+  [(getenv) (OpenXM_HOME)] extension
+  /OpenXM_HOME_WIN set
+} { } ifelse
+
+%% This is used in asirconnectr_win
+/OX_LAUNCH (c:\home\asir\bin\ox_launch.exe) def
+%%%%%%%%%%%%%%% end configuration  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
 /oxpath.ox (bin/ox.exe) def
 /oxpath.oxsm1 (bin/ox_sm1.exe) def
 /oxpath.oxlog (bin/oxlog.exe) def
@@ -53,7 +68,7 @@ ox.version [(Version)] system_variable gt 
   (Please get it from http://www.math.kobe-u.ac.jp/KAN) message
   error
 } { } ifelse
-(ox.sm1, --- open sm1 protocol module 11/11,1999  (C) N.Takayama. oxhelp for help) message-quiet
+(ox-win.sm1, --- open sm1 protocol module for Windows (TM) 8/9, 2001  (C) N.Takayama. oxhelp for help) message-quiet
 
 /ox.ccc load isArray 
 { }
@@ -596,7 +611,7 @@ ox.verbose {
  popVariables
 } def
 
-/asirconnectr {
+/sm1connectr_win {
  [/in-sm1connectr /pass /peer /data /control ] pushVariables
  [
  /pass [(oxGenPass)] extension def
@@ -604,15 +619,55 @@ ox.verbose {
  /data peer 1 get toString def
  /control peer 3 get toString def
  peer message
- [(start ox_launch ) ( 127.0.0.1 ) ( 0 )
-   control ( ) data (ox_asir) ( 1 )
-  oxpath.null
-  ( )] cat % system 
- control message data 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
   ox.ccc.init 
+ ] pop
+ popVariables
+} def
+
+/asirconnectr_win {
+ [/in-sm1connectr /pass /peer /data /control ] pushVariables
+ [
+ /pass [ ] cat def  %% Do not use one time password.
+ /peer [(oxGetPort) (localhost)] extension def
+ /data peer 1 get toString def
+ /control peer 3 get toString def
+ peer message
+ [control data] message
+ [(forkExec)
+  [OX_LAUNCH
+   (ox_launch)
+   (localhost)
+   (0)
+   control toString
+   data toString
+   (ox_asir)
+   (1)
+  ]
+  [ ]
+  7 %% 1 1 1
+ ] extension ;
+ [(oxCreateClient2) peer 0 pass] extension /oxasir.ccc set
+                     %% 0 means connect from only localhost. 
+ (The server is binded to the variable oxasir.ccc) message
+  %% Initialization code for asir.
  ] pop
  popVariables
 } def