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

1.5     ! takayama    1: % $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.4 2001/12/28 03:34:24 takayama Exp $
1.1       takayama    2: % It is empty for now.
                      3: %
1.2       takayama    4: /oxasir.sm1.loaded 1 def
1.4       takayama    5: (oxasir-win.sm1 (C) N.Takayama, 12/28, 2001) message
1.2       takayama    6:
                      7: %% Set constants for windows.
                      8: /oxasirpath.oxasir
                      9:   [ [(getenv) (OpenXM_HOME)] extension
                     10:     (/bin/ox_asir) ] cat
                     11: % (\OpenXM-win\bin\ox_asir)
                     12: def
                     13: /oxasirpath.asirlib
                     14:   [ [(getenv) (OpenXM_HOME)] extension
                     15:     (/lib/sm1/oxasir.asir) ] cat
                     16: % (\OpenXM-win\lib\sm1\oxasir.asir)
                     17: def
                     18: /oxpath.ox
                     19: %%  (\OpenXM-win\bin\ox.exe)
                     20:   (ox)
                     21: def
                     22: %% Override asirconnectr
                     23: /asirconnectr {
1.5     ! takayama   24:  [(getenv) (OSTYPE)] extension tag 0 eq {
        !            25:      sm1connectr_win
        !            26:  }{
1.3       takayama   27:    [(getenv) (OSTYPE)] extension (cygwin) eq
                     28:    {
                     29:      asirconnectr_cygwin
                     30:    }{
                     31:      asirconnectr_win
                     32:    }ifelse
1.5     ! takayama   33:  } ifelse
1.3       takayama   34: } def
                     35:
                     36: /asirconnectr_cygwin {
1.2       takayama   37:  [/in-asirconnectr /pass /peer /data /control /oxasir] pushVariables
                     38:  [
                     39:  /pass [(oxGenPass)] extension def
                     40:  /peer [(oxGetPort) (localhost)] extension def
                     41:  /data peer 1 get toString def
                     42:  /control peer 3 get toString def
                     43:  peer message
                     44:  [(start ) oxpath.ox ( -reverse -ox ) oxasirpath.oxasir
                     45:   ( -data ) data ( -control ) control  ( -pass ) pass
                     46:   ( -wait 5 )
                     47:   oxpath.null
                     48:  ] cat system
1.3       takayama   49:  [(oxCreateClient2) peer 0 pass] extension /oxasir set
                     50:                      %% 0 means connect from only localhost.
                     51:  oxasir asirinit
                     52:  /arg1 oxasir def
                     53:  ] pop
                     54:  popVariables
                     55:  arg1
                     56: } def
                     57:
                     58: /asirconnectr_win {
                     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:
                     67:  /oxasirpath.asirlib
                     68:    (\OpenXM-win\lib\sm1\oxasir.asir)
                     69:  def
                     70:
                     71:  [(forkExec) [
                     72:     (start)
                     73:     (\OpenXM-win\bin\ox.exe)
                     74:     (-reverse)
                     75:     (-ox)
                     76:     (\OpenXM-win\bin\ox_asir)
                     77:     (-data)
                     78:      data
                     79:      (-control)
                     80:      control
                     81:      (-pass)
                     82:      pass
                     83:      (-wait)
                     84:      (5)
                     85:   ]
                     86:   [  ] 3] extension
                     87:
1.2       takayama   88:  [(oxCreateClient2) peer 0 pass] extension /oxasir set
                     89:                      %% 0 means connect from only localhost.
                     90:  oxasir asirinit
                     91:  /arg1 oxasir def
                     92:  ] pop
                     93:  popVariables
                     94:  arg1
                     95: } def
                     96:
                     97: %%
                     98: