Return to oxk0.sm1 CVS log

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

Annotation of OpenXM/src/kan96xx/Doc/oxk0.sm1, Revision 1.1

1.1     ! takayama    1: %%%%%%%%%%%  $OpenXM$
        !             2:
        !             3: [(parse) (ox.sm1) pushfile] extension
        !             4:
        !             5: /ox.k0.loaded 1 def
        !             6: %%%%%%%%%%%% Configuration: Specify your server path
        !             7: /oxpath.oxk0 (bin/ox_k0) def
        !             8:
        !             9: %% This macro is invoked when this package is loaded.
        !            10: /initializePathNamesForOxk0  {
        !            11:    [oxpath.oxk0] getPathNameSm1 /oxpath.oxk0 set
        !            12: } def
        !            13:
        !            14: /ox.version (2.981105) def
        !            15: ox.version [(Version)] system_variable gt
        !            16: { (This package requires the latest version of kan/sm1) message
        !            17:   (Please get it from http://www.math.kobe-u.ac.jp/KAN) message
        !            18:   error
        !            19: } { } ifelse
        !            20: (oxk0.sm1, ---OpenXM protocol module for kan/k0 2003.05.14 (C) N.Takayama.) message-quiet
        !            21:
        !            22: /ox.k0 load isArray
        !            23: { }
        !            24: { /ox.k0 [ ] def } ifelse
        !            25:
        !            26: /ox.k0.init {
        !            27:   % ox.k0 ( Print("Hello!"); ) oxsubmit
        !            28: } def
        !            29:
        !            30: /k0connectr {
        !            31:  [/in-k0connectr /pass /peer /data /control ] pushVariables
        !            32:  [
        !            33:  /pass [(oxGenPass)] extension def
        !            34:  /peer [(oxGetPort) (localhost)] extension def
        !            35:  /data peer 1 get toString def
        !            36:  /control peer 3 get toString def
        !            37:  peer message
        !            38:  [oxpath.oxlog.xterm  oxpath.ox ( -reverse -ox ) oxpath.oxk0
        !            39:   ( -data ) data ( -control ) control  ( -pass ) pass
        !            40:   oxpath.null
        !            41:   ( &)] cat system-csh
        !            42:  [(oxCreateClient2) peer 0 pass] extension /ox.k0 set
        !            43:                      %% 0 means connect from only localhost.
        !            44:  (The server is binded to the variable ox.k0) message
        !            45:   ox.k0.init
        !            46:   /arg1 ox.k0 def
        !            47:  ] pop
        !            48:  popVariables
        !            49:  arg1
        !            50: } def
        !            51:
        !            52:
        !            53: [(ostype)] extension  0 get
        !            54: (windows) eq {
        !            55:   (ox-win.k0.loaded) boundp {
        !            56:   }{
        !            57:     [(parse) (ox-win-k0.sm1) pushfile] extension
        !            58:   } ifelse
        !            59: }{
        !            60:   initializePathNamesForOxk0
        !            61: } ifelse