Return to oxasir-win_old.sm1 CVS log

Up to [local] / OpenXM / src / kan96xx / Doc

Annotation of OpenXM/src/kan96xx/Doc/oxasir-win_old.sm1, Revision 1.1

1.1     ! takayama    1: % $OpenXM$
        !             2: % It is empty for now.
        !             3: %
        !             4: /oxasir.sm1.loaded 1 def
        !             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: 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
        !            19: } { } ifelse
        !            20:
        !            21:
        !            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 {
        !            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
        !            65: }{ } ifelse
        !            66: %% Override asirconnectr
        !            67:
        !            68: /asirconnectr {
        !            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
        !            78: } def
        !            79:
        !            80: /asirconnectr_cygwin {
        !            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
        !           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
        !           113:  [(oxlog /usr/X11R6/bin/xterm -iconic -e )
        !           114:   ( ox ) ( -reverse -ox )
        !           115:   oxasirpath.oxasir
        !           116:   ( -data ) data ( -control ) control  ( -pass ) pass
        !           117:   ( -wait 5 )
        !           118:   oxpath.null
        !           119:  ] cat /sss set
        !           120:  sss message sss system
        !           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) [
        !           141:     ox.win.start   aload pop
        !           142:     oxpath.ox
        !           143:     (-reverse)
        !           144:     (-ox)
        !           145:     oxasirpath.oxasir
        !           146:     (-data)
        !           147:      data
        !           148:      (-control)
        !           149:      control
        !           150:      (-pass)
        !           151:      pass
        !           152:      (-wait)
        !           153:      (5)
        !           154:   ]
        !           155:   [  ] 3] extension
        !           156:
        !           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: