Return to ox-win.sm1 CVS log

Up to [local] / OpenXM / src / kan96xx / Doc

Annotation of OpenXM/src/kan96xx/Doc/ox-win.sm1, Revision 1.8

1.8     ! takayama    1: %%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox-win.sm1,v 1.7 2001/08/22 02:36:34 takayama Exp $
1.7       takayama    2: 
                      3: [(parse) (ox.sm1) pushfile] extension pop
                      4: 
                      5: $ox-win.sm1, ---OpenXM protocol module for Microsoft Windows 08/22, 2001  (C) N.Takayama.$ message-quiet
                      6: 
1.1       takayama    7: %%%%%%%%%%%% Configuration: Specify your server path
                      8: %%%%% ox, ox_sm1, oxlog are contained in kxx.tgz
                      9: %%%%% These should be under /usr/local/lib/sm1 or LOAD_SM1_PATH
1.5       takayama   10: 
                     11: %% This variable is used in sm1connectr_win
                     12: %% It should be set, for example, to c:/cygwin/home/nobuki/OpenXM
                     13: %% See  kan96xx/win/websm1.bat
1.4       takayama   14: [(getenv) (OPENXMHOMEWIN)] extension
                     15: /OpenXM_HOME_WIN set
1.6       takayama   16: OpenXM_HOME_WIN tag 0 eq {
                     17:   [(getenv) (OpenXM_HOME)] extension
                     18:   /OpenXM_HOME_WIN set
                     19: } { } ifelse
1.5       takayama   20: 
                     21: %% This is used in asirconnectr_win
                     22: /OX_LAUNCH (c:\home\asir\bin\ox_launch.exe) def
                     23: %%%%%%%%%%%%%%% end configuration  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1.1       takayama   24: /oxpath.ox (bin/ox.exe) def
                     25: /oxpath.oxsm1 (bin/ox_sm1.exe) def
                     26: /oxpath.oxlog (bin/oxlog.exe) def
                     27: /oxpath.xterm (start ) def
                     28: /oxpath.null  (  ) def
                     29: /oxpath.null00  ( >& /dev/null ) def  %%cf. oxNoX
                     30: /oxpath.null00-pure-sh ( 2>&1 >/dev/null) def %%TODO:It does not work in our case
1.4       takayama   31: 
1.8     ! takayama   32: /sm1connectr {
        !            33:  [/in-sm1connectr /pass /peer /data /control ] pushVariables
        !            34:  [
        !            35:  /pass [(oxGenPass)] extension def
        !            36:  /peer [(oxGetPort) (localhost)] extension def
        !            37:  /data peer 1 get toString def
        !            38:  /control peer 3 get toString def
        !            39:  peer message
        !            40:  [(start ox ) ( -reverse -ox ) (/home/nobuki/OpenXM/src/kxx/ox_sm1.exe)
        !            41:   ( -data ) data ( -control ) control  ( -pass ) pass 
        !            42:   oxpath.null
        !            43:   ( )] cat system 
        !            44:  [(oxCreateClient2) peer 0 pass] extension /ox.ccc set
        !            45:                      %% 0 means connect from only localhost. 
        !            46:  (The server is binded to the variable ox.ccc) message
        !            47:   ox.ccc.init 
        !            48:  ] pop
        !            49:  popVariables
        !            50: } def
        !            51: 
1.4       takayama   52: /sm1connectr_win {
                     53:  [/in-sm1connectr /pass /peer /data /control ] pushVariables
                     54:  [
                     55:  /pass [(oxGenPass)] extension def
                     56:  /peer [(oxGetPort) (localhost)] extension def
                     57:  /data peer 1 get toString def
                     58:  /control peer 3 get toString def
                     59:  peer message
                     60:  [(forkExec) [
                     61:     (c:/windows/command/start)
1.8     ! takayama   62:     [OpenXM_HOME_WIN  (\bin\ox)] cat
1.4       takayama   63:     (-reverse)
                     64:     (-ox)
1.8     ! takayama   65:     [OpenXM_HOME_WIN (\bin\ox_sm1.exe)] cat
1.4       takayama   66:     (-data)
                     67:      data
                     68:      (-control)
                     69:      control
                     70:      (-pass)
                     71:      pass
                     72:   ]
                     73:   [  ] 3] extension
                     74: 
1.2       takayama   75:  [(oxCreateClient2) peer 0 pass] extension /ox.ccc set
                     76:                      %% 0 means connect from only localhost. 
                     77:  (The server is binded to the variable ox.ccc) message
                     78:   ox.ccc.init 
                     79:  ] pop
                     80:  popVariables
                     81: } def
                     82: 
1.5       takayama   83: /asirconnectr_win {
1.2       takayama   84:  [/in-sm1connectr /pass /peer /data /control ] pushVariables
                     85:  [
1.5       takayama   86:  /pass [ ] cat def  %% Do not use one time password.
1.2       takayama   87:  /peer [(oxGetPort) (localhost)] extension def
                     88:  /data peer 1 get toString def
                     89:  /control peer 3 get toString def
                     90:  peer message
1.5       takayama   91:  [control data] message
                     92:  [(forkExec)
                     93:   [OX_LAUNCH
                     94:    (ox_launch)
                     95:    (localhost)
                     96:    (0)
                     97:    control toString
                     98:    data toString
                     99:    (ox_asir)
                    100:    (1)
                    101:   ]
                    102:   [ ]
                    103:   7 %% 1 1 1
                    104:  ] extension ;
                    105:  [(oxCreateClient2) peer 0 pass] extension /oxasir.ccc set
1.1       takayama  106:                      %% 0 means connect from only localhost. 
1.5       takayama  107:  (The server is binded to the variable oxasir.ccc) message
                    108:   %% Initialization code for asir.
1.1       takayama  109:  ] pop
                    110:  popVariables
                    111: } def
                    112: 
1.8     ! takayama  113: %% Skip it. initializePathNamesForOx