===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/ox-win.sm1,v
retrieving revision 1.1
retrieving revision 1.3
diff -u -p -r1.1 -r1.3
--- OpenXM/src/kan96xx/Doc/ox-win.sm1	2001/05/20 07:48:18	1.1
+++ OpenXM/src/kan96xx/Doc/ox-win.sm1	2001/08/09 13:05:49	1.3
@@ -1,4 +1,4 @@
-%%%%%%%%%%%  $OpenXM$
+%%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox-win.sm1,v 1.2 2001/08/09 09:08:17 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
@@ -53,7 +53,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 
 { }
@@ -588,6 +588,27 @@ 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
+
+/asirconnectr {
+ [/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
+ [(start ox_launch ) ( 127.0.0.1 ) ( 0 )
+   control ( ) data (ox_asir) ( 1 )
+  oxpath.null
+  ( )] cat % system 
+ control message data message
  [(oxCreateClient2) peer 0 pass] extension /ox.ccc set
                      %% 0 means connect from only localhost. 
  (The server is binded to the variable ox.ccc) message