version 1.1, 2001/05/20 07:48:18 |
version 1.5, 2001/08/10 13:48:40 |
|
|
%%%%%%%%%%% $OpenXM$
|
%%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox-win.sm1,v 1.4 2001/08/10 08:33:03 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
|
|
|
|
%% This variable is used in sm1connectr_win
|
|
%% It should be set, for example, to c:/cygwin/home/nobuki/OpenXM
|
|
%% See kan96xx/win/websm1.bat
|
|
[(getenv) (OPENXMHOMEWIN)] extension
|
|
/OpenXM_HOME_WIN set
|
|
|
|
%% This is used in asirconnectr_win
|
|
/OX_LAUNCH (c:\home\asir\bin\ox_launch.exe) def
|
|
%%%%%%%%%%%%%%% end configuration %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
/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 64 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
|
{ }
|
{ }
|
|
|
%% 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
|
ox.ccc.init
|
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_win {
|
|
[/in-sm1connectr /pass /peer /data /control ] pushVariables
|
|
[
|
|
/pass [ ] cat def %% Do not use one time password.
|
|
/peer [(oxGetPort) (localhost)] extension def
|
|
/data peer 1 get toString def
|
|
/control peer 3 get toString def
|
|
peer message
|
|
[control data] message
|
|
[(forkExec)
|
|
[OX_LAUNCH
|
|
(ox_launch)
|
|
(localhost)
|
|
(0)
|
|
control toString
|
|
data toString
|
|
(ox_asir)
|
|
(1)
|
|
]
|
|
[ ]
|
|
7 %% 1 1 1
|
|
] extension ;
|
|
[(oxCreateClient2) peer 0 pass] extension /oxasir.ccc set
|
|
%% 0 means connect from only localhost.
|
|
(The server is binded to the variable oxasir.ccc) message
|
|
%% Initialization code for asir.
|
] pop
|
] pop
|
popVariables
|
popVariables
|
} def
|
} def
|