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

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