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

1.14    ! takayama    1: % $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.13 2002/07/31 02:57:37 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:
1.14    ! takayama   22: ox.ostype 1 get (cygwin) eq {
        !            23:   /oxasirpath.oxasir
        !            24:     [ (c:/cygwin) OpenXM_HOME_WIN
        !            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
        !            34: }{ } ifelse
        !            35:
        !            36: ox.ostype 1 get (xcygwin) eq {
        !            37:   /oxasirpath.oxasir
        !            38:     [ [(getenv) (OpenXM_HOME)] extension
        !            39:       (/bin/ox_asir) ] cat
        !            40:   def
        !            41:   /oxasirpath.asirlib
        !            42:     [ [(getenv) (OpenXM_HOME)] extension
        !            43:       (/lib/sm1/oxasir.asir) ] cat
        !            44:   def
        !            45:   /oxpath.ox
        !            46:     (ox)
        !            47:   def
        !            48: }{ } ifelse
        !            49:
        !            50: ox.ostype 1 get (native) eq {
1.8       takayama   51:  /oxasirpath.oxasir
                     52:   [ OpenXM_HOME_WIN
                     53:     (\bin\ox_asir) ] cat
                     54:  def
                     55:  /oxasirpath.asirlib
                     56:   [ OpenXM_HOME_WIN
                     57:     (/lib/sm1/oxasir.asir)
                     58:   ] cat
                     59:  def
                     60:  /oxpath.ox
                     61:   [ OpenXM_HOME_WIN
                     62:     (\bin\ox.exe)
                     63:   ] cat
                     64:  def
1.14    ! takayama   65: }{ } ifelse
1.2       takayama   66: %% Override asirconnectr
1.14    ! takayama   67:
1.2       takayama   68: /asirconnectr {
1.14    ! takayama   69:   ox.ostype 1 get (cygwin) eq {
        !            70:     asirconnectr_cygwin
        !            71:   }{ } ifelse
        !            72:   ox.ostype 1 get (xcygwin) eq {
        !            73:     asirconnectr_xcygwin
        !            74:   }{ } ifelse
        !            75:   ox.ostype 1 get (native) eq {
        !            76:     asirconnectr_win
        !            77:   }{ } ifelse
1.3       takayama   78: } def
                     79:
                     80: /asirconnectr_cygwin {
1.14    ! takayama   81:  [/in-asirconnectr /pass /peer /data /control /oxasir /sss ] 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:  [ox.win.start { ( ) } map cat ox_backslash_to_slash
        !            89:   ( ox ) ( -reverse -ox )
        !            90:   oxasirpath.oxasir
        !            91:   ( -data ) data ( -control ) control  ( -pass ) pass
        !            92:   ( -wait 5 )
        !            93:   oxpath.null
        !            94:  ] cat /sss set
        !            95:  sss message sss system
        !            96:  [(oxCreateClient2) peer 0 pass] extension /oxasir set
        !            97:                      %% 0 means connect from only localhost.
        !            98:  oxasir asirinit
        !            99:  /arg1 oxasir def
        !           100:  ] pop
        !           101:  popVariables
        !           102:  arg1
        !           103: } def
        !           104:
        !           105: /asirconnectr_xcygwin {
        !           106:  [/in-asirconnectr /pass /peer /data /control /oxasir /sss ] pushVariables
1.2       takayama  107:  [
                    108:  /pass [(oxGenPass)] extension def
                    109:  /peer [(oxGetPort) (localhost)] extension def
                    110:  /data peer 1 get toString def
                    111:  /control peer 3 get toString def
                    112:  peer message
1.14    ! takayama  113:  [(oxlog /usr/X11R6/bin/xterm -iconic -e )
        !           114:   ( ox ) ( -reverse -ox )
        !           115:   oxasirpath.oxasir
1.2       takayama  116:   ( -data ) data ( -control ) control  ( -pass ) pass
                    117:   ( -wait 5 )
                    118:   oxpath.null
1.14    ! takayama  119:  ] cat /sss set
        !           120:  sss message sss system
1.3       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: /asirconnectr_win {
                    131:  [/in-asirconnectr /pass /peer /data /control /oxasir] pushVariables
                    132:  [
                    133:  /pass [(oxGenPass)] extension def
                    134:  /peer [(oxGetPort) (localhost)] extension def
                    135:  /data peer 1 get toString def
                    136:  /control peer 3 get toString def
                    137:  peer message
                    138:
                    139:
                    140:  [(forkExec) [
1.12      takayama  141:     ox.win.start   aload pop
1.8       takayama  142:     oxpath.ox
1.3       takayama  143:     (-reverse)
                    144:     (-ox)
1.8       takayama  145:     oxasirpath.oxasir
1.3       takayama  146:     (-data)
                    147:      data
                    148:      (-control)
                    149:      control
                    150:      (-pass)
                    151:      pass
                    152:      (-wait)
                    153:      (5)
                    154:   ]
                    155:   [  ] 3] extension
                    156:
1.2       takayama  157:  [(oxCreateClient2) peer 0 pass] extension /oxasir set
                    158:                      %% 0 means connect from only localhost.
                    159:  oxasir asirinit
                    160:  /arg1 oxasir def
                    161:  ] pop
                    162:  popVariables
                    163:  arg1
                    164: } def
                    165:
                    166: %%
                    167: