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.9

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