Return to oxasir-win.sm1 CVS log

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

Annotation of OpenXM/src/kan96xx/Doc/oxasir-win.sm1, Revision 1.9

1.9     ! takayama    1: % $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.8 2002/01/09 10:52:42 takayama Exp $
1.1       takayama    2: % It is empty for now.
                      3: %
1.2       takayama    4: /oxasir.sm1.loaded 1 def
1.8       takayama    5: (oxasir-win.sm1 (C) N.Takayama, 1/9, 2002) message
                      6:
                      7: [(getenv) (OPENXMHOMEWIN)] extension
                      8: /OpenXM_HOME_WIN set
                      9: OpenXM_HOME_WIN tag 0 eq {
                     10:   [(getenv) (OpenXM_HOME)] extension
                     11:   /OpenXM_HOME_WIN set
                     12: } { } ifelse
                     13:
1.2       takayama   14:
                     15: %% Set constants for windows.
1.9     ! takayama   16: [(getenv) (OSTYPE)] extension tag 0 eq {
        !            17:   /oxasirpath.ostype (native-windows) def
        !            18: }{
        !            19:   [(getenv) (OSTYPE)] extension /oxasirpath.ostype set
        !            20: } ifelse
        !            21:
        !            22: oxasirpath.ostype (cygwin) eq {
1.2       takayama   23: /oxasirpath.oxasir
                     24:   [ [(getenv) (OpenXM_HOME)] extension
                     25:     (/bin/ox_asir) ] cat
                     26: def
                     27: /oxasirpath.asirlib
                     28:   [ [(getenv) (OpenXM_HOME)] extension
                     29:     (/lib/sm1/oxasir.asir) ] cat
                     30: def
                     31: /oxpath.ox
                     32:   (ox)
                     33: def
1.8       takayama   34: }{
                     35:  /oxasirpath.oxasir
                     36:   [ OpenXM_HOME_WIN
                     37:     (\bin\ox_asir) ] cat
                     38:  def
                     39:  /oxasirpath.asirlib
                     40:   [ OpenXM_HOME_WIN
                     41:     (/lib/sm1/oxasir.asir)
                     42:   ] cat
                     43:  def
                     44:  /oxpath.ox
                     45:   [ OpenXM_HOME_WIN
                     46:     (\bin\ox.exe)
                     47:   ] cat
                     48:  def
                     49: } ifelse
1.2       takayama   50: %% Override asirconnectr
                     51: /asirconnectr {
1.5       takayama   52:  [(getenv) (OSTYPE)] extension tag 0 eq {
1.6       takayama   53:      asirconnectr_win
1.5       takayama   54:  }{
1.3       takayama   55:    [(getenv) (OSTYPE)] extension (cygwin) eq
                     56:    {
                     57:      asirconnectr_cygwin
                     58:    }{
                     59:      asirconnectr_win
                     60:    }ifelse
1.5       takayama   61:  } ifelse
1.3       takayama   62: } def
                     63:
                     64: /asirconnectr_cygwin {
1.2       takayama   65:  [/in-asirconnectr /pass /peer /data /control /oxasir] pushVariables
                     66:  [
                     67:  /pass [(oxGenPass)] extension def
                     68:  /peer [(oxGetPort) (localhost)] extension def
                     69:  /data peer 1 get toString def
                     70:  /control peer 3 get toString def
                     71:  peer message
                     72:  [(start ) oxpath.ox ( -reverse -ox ) oxasirpath.oxasir
                     73:   ( -data ) data ( -control ) control  ( -pass ) pass
                     74:   ( -wait 5 )
                     75:   oxpath.null
                     76:  ] cat system
1.3       takayama   77:  [(oxCreateClient2) peer 0 pass] extension /oxasir set
                     78:                      %% 0 means connect from only localhost.
                     79:  oxasir asirinit
                     80:  /arg1 oxasir def
                     81:  ] pop
                     82:  popVariables
                     83:  arg1
                     84: } def
                     85:
                     86: /asirconnectr_win {
                     87:  [/in-asirconnectr /pass /peer /data /control /oxasir] pushVariables
                     88:  [
                     89:  /pass [(oxGenPass)] extension def
                     90:  /peer [(oxGetPort) (localhost)] extension def
                     91:  /data peer 1 get toString def
                     92:  /control peer 3 get toString def
                     93:  peer message
                     94:
                     95:
                     96:  [(forkExec) [
                     97:     (start)
1.8       takayama   98:     oxpath.ox
1.3       takayama   99:     (-reverse)
                    100:     (-ox)
1.8       takayama  101:     oxasirpath.oxasir
1.3       takayama  102:     (-data)
                    103:      data
                    104:      (-control)
                    105:      control
                    106:      (-pass)
                    107:      pass
                    108:      (-wait)
                    109:      (5)
                    110:   ]
                    111:   [  ] 3] extension
                    112:
1.2       takayama  113:  [(oxCreateClient2) peer 0 pass] extension /oxasir set
                    114:                      %% 0 means connect from only localhost.
                    115:  oxasir asirinit
                    116:  /arg1 oxasir def
                    117:  ] pop
                    118:  popVariables
                    119:  arg1
                    120: } def
                    121:
                    122: %%
                    123: