version 1.1, 2001/05/20 07:48:18 |
version 1.4, 2001/08/10 08:33:03 |
|
|
%%%%%%%%%%% $OpenXM$
|
%%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox-win.sm1,v 1.3 2001/08/09 13:05:49 takayama Exp $
|
%%%%%%%%%%%% Configuration: Specify your server path
|
%%%%%%%%%%%% Configuration: Specify your server path
|
%%%%% ox, ox_sm1, oxlog are contained in kxx.tgz
|
%%%%% ox, ox_sm1, oxlog are contained in kxx.tgz
|
%%%%% These should be under /usr/local/lib/sm1 or LOAD_SM1_PATH
|
%%%%% These should be under /usr/local/lib/sm1 or LOAD_SM1_PATH
|
|
[(getenv) (OPENXMHOMEWIN)] extension
|
|
/OpenXM_HOME_WIN set
|
|
%% It should be set, for example, to c:/cygwin/home/nobuki/OpenXM
|
|
%% See kan96xx/win/websm1.bat
|
|
|
/oxpath.ox (bin/ox.exe) def
|
/oxpath.ox (bin/ox.exe) def
|
/oxpath.oxsm1 (bin/ox_sm1.exe) def
|
/oxpath.oxsm1 (bin/ox_sm1.exe) def
|
/oxpath.oxlog (bin/oxlog.exe) def
|
/oxpath.oxlog (bin/oxlog.exe) def
|
Line 53 ox.version [(Version)] system_variable gt |
|
Line 58 ox.version [(Version)] system_variable gt |
|
(Please get it from http://www.math.kobe-u.ac.jp/KAN) message
|
(Please get it from http://www.math.kobe-u.ac.jp/KAN) message
|
error
|
error
|
} { } ifelse
|
} { } ifelse
|
(ox.sm1, --- open sm1 protocol module 11/11,1999 (C) N.Takayama. oxhelp for help) message-quiet
|
(ox-win.sm1, --- open sm1 protocol module for Windows (TM) 8/9, 2001 (C) N.Takayama. oxhelp for help) message-quiet
|
|
|
/ox.ccc load isArray
|
/ox.ccc load isArray
|
{ }
|
{ }
|
|
|
( -data ) data ( -control ) control ( -pass ) pass
|
( -data ) data ( -control ) control ( -pass ) pass
|
oxpath.null
|
oxpath.null
|
( )] cat system
|
( )] cat system
|
|
[(oxCreateClient2) peer 0 pass] extension /ox.ccc set
|
|
%% 0 means connect from only localhost.
|
|
(The server is binded to the variable ox.ccc) message
|
|
ox.ccc.init
|
|
] pop
|
|
popVariables
|
|
} def
|
|
|
|
/sm1connectr_win {
|
|
[/in-sm1connectr /pass /peer /data /control ] pushVariables
|
|
[
|
|
/pass [(oxGenPass)] extension def
|
|
/peer [(oxGetPort) (localhost)] extension def
|
|
/data peer 1 get toString def
|
|
/control peer 3 get toString def
|
|
peer message
|
|
[(forkExec) [
|
|
(c:/windows/command/start)
|
|
[OpenXM_HOME_WIN (/bin/ox)] cat
|
|
(-reverse)
|
|
(-ox)
|
|
[OpenXM_HOME_WIN (/bin/ox_sm1.exe)] cat
|
|
(-data)
|
|
data
|
|
(-control)
|
|
control
|
|
(-pass)
|
|
pass
|
|
]
|
|
[ ] 3] extension
|
|
|
|
[(oxCreateClient2) peer 0 pass] extension /ox.ccc set
|
|
%% 0 means connect from only localhost.
|
|
(The server is binded to the variable ox.ccc) message
|
|
ox.ccc.init
|
|
] pop
|
|
popVariables
|
|
} def
|
|
|
|
/asirconnectr {
|
|
[/in-sm1connectr /pass /peer /data /control ] pushVariables
|
|
[
|
|
/pass [(oxGenPass)] extension def
|
|
/peer [(oxGetPort) (localhost)] extension def
|
|
/data peer 1 get toString def
|
|
/control peer 3 get toString def
|
|
peer message
|
|
[(start ox_launch ) ( 127.0.0.1 ) ( 0 )
|
|
control ( ) data (ox_asir) ( 1 )
|
|
oxpath.null
|
|
( )] cat % system
|
|
control message data message
|
[(oxCreateClient2) peer 0 pass] extension /ox.ccc set
|
[(oxCreateClient2) peer 0 pass] extension /ox.ccc set
|
%% 0 means connect from only localhost.
|
%% 0 means connect from only localhost.
|
(The server is binded to the variable ox.ccc) message
|
(The server is binded to the variable ox.ccc) message
|