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

1.2     ! takayama    1: % $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.1 2001/12/21 03:00:41 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 {
        !            24:  [/in-asirconnectr /pass /peer /data /control /oxasir] pushVariables
        !            25:  [
        !            26:  /pass [(oxGenPass)] extension def
        !            27:  /peer [(oxGetPort) (localhost)] extension def
        !            28:  /data peer 1 get toString def
        !            29:  /control peer 3 get toString def
        !            30:  peer message
        !            31:  [(start ) oxpath.ox ( -reverse -ox ) oxasirpath.oxasir
        !            32:   ( -data ) data ( -control ) control  ( -pass ) pass
        !            33:   ( -wait 5 )
        !            34:   oxpath.null
        !            35:  ] cat system
        !            36:  [(oxCreateClient2) peer 0 pass] extension /oxasir set
        !            37:                      %% 0 means connect from only localhost.
        !            38:  oxasir asirinit
        !            39:  /arg1 oxasir def
        !            40:  ] pop
        !            41:  popVariables
        !            42:  arg1
        !            43: } def
        !            44:
        !            45: %%
        !            46: