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

1.3     ! takayama    1: % $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.2 2001/12/28 01:20:26 takayama Exp $
1.1       takayama    2: % It is empty for now.
                      3: %
1.2       takayama    4: /oxasir.sm1.loaded 1 def
                      5: (oxasir-win.sm1 (C) N.Takayama, 12/17, 2001) message
                      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.3     ! takayama   24:    [(getenv) (OSTYPE)] extension (cygwin) eq
        !            25:    {
        !            26:      asirconnectr_cygwin
        !            27:    }{
        !            28:      asirconnectr_win
        !            29:    }ifelse
        !            30: } def
        !            31:
        !            32: /asirconnectr_cygwin {
1.2       takayama   33:  [/in-asirconnectr /pass /peer /data /control /oxasir] 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 ) oxpath.ox ( -reverse -ox ) oxasirpath.oxasir
                     41:   ( -data ) data ( -control ) control  ( -pass ) pass
                     42:   ( -wait 5 )
                     43:   oxpath.null
                     44:  ] cat system
1.3     ! takayama   45:  [(oxCreateClient2) peer 0 pass] extension /oxasir set
        !            46:                      %% 0 means connect from only localhost.
        !            47:  oxasir asirinit
        !            48:  /arg1 oxasir def
        !            49:  ] pop
        !            50:  popVariables
        !            51:  arg1
        !            52: } def
        !            53:
        !            54: /asirconnectr_win {
        !            55:  [/in-asirconnectr /pass /peer /data /control /oxasir] pushVariables
        !            56:  [
        !            57:  /pass [(oxGenPass)] extension def
        !            58:  /peer [(oxGetPort) (localhost)] extension def
        !            59:  /data peer 1 get toString def
        !            60:  /control peer 3 get toString def
        !            61:  peer message
        !            62:
        !            63:  /oxasirpath.asirlib
        !            64:    (\OpenXM-win\lib\sm1\oxasir.asir)
        !            65:  def
        !            66:
        !            67:  [(forkExec) [
        !            68:     (start)
        !            69:     (\OpenXM-win\bin\ox.exe)
        !            70:     (-reverse)
        !            71:     (-ox)
        !            72:     (\OpenXM-win\bin\ox_asir)
        !            73:     (-data)
        !            74:      data
        !            75:      (-control)
        !            76:      control
        !            77:      (-pass)
        !            78:      pass
        !            79:      (-wait)
        !            80:      (5)
        !            81:   ]
        !            82:   [  ] 3] extension
        !            83:
1.2       takayama   84:  [(oxCreateClient2) peer 0 pass] extension /oxasir set
                     85:                      %% 0 means connect from only localhost.
                     86:  oxasir asirinit
                     87:  /arg1 oxasir def
                     88:  ] pop
                     89:  popVariables
                     90:  arg1
                     91: } def
                     92:
                     93: %%
                     94: