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

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