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
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>