version 1.11, 2000/02/02 02:03:42 |
version 1.14, 2000/12/05 12:03:43 |
|
|
%%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.10 2000/01/30 10:09:44 takayama Exp $ |
%%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.13 2000/12/05 11:20:26 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 |
Line 355 ox.verbose { oxhelp } { } ifelse |
|
Line 355 ox.verbose { oxhelp } { } ifelse |
|
/oxreset { |
/oxreset { |
/arg1 set |
/arg1 set |
[(oxReq) arg1 SM_control_reset_connection] extension pop |
[(oxReq) arg1 SM_control_reset_connection] extension pop |
[(oxGetFromControl) arg1 ] extension pop |
%% [(oxGetFromControl) arg1 ] extension pop |
[(oxGet) arg1] extension message |
[(oxGet) arg1] extension message |
} def |
} def |
|
|
|
|
arg1 |
arg1 |
} def |
} def |
|
|
|
%% Test code for oxCreateControl_RFC_101 |
|
/sm1connect101 { |
|
[/in-sm1connectr /pass /peer /data /control ] pushVariables |
|
[ |
|
/pass [(oxGenPass)] extension def |
|
/peer [(oxGetPort1) (localhost)] extension def |
|
/data peer 1 get toString def |
|
peer message |
|
[(/home/nobuki/OpenXM/src/oxc/oxc) |
|
( -c ) pass ( -h ) (localhost) ( -p ) data ( -x ) |
|
oxpath.null |
|
( &)] cat system-csh |
|
|
|
[(oxCreateControl_RFC_101) 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 |
|
] pop |
|
popVariables |
|
} def |
|
|
|
/sm1StartEngine101 { |
|
[/in-sm1StartEngine101 /peer /data /control ] pushVariables |
|
[ |
|
/peer [(oxGetPort1) (localhost)] extension def |
|
/data peer 1 get def |
|
ox.ccc data oxpushcmo |
|
ox.ccc (/home/nobuki/OpenXM/bin/ox_sm1) oxpushcmo |
|
[(oxPushCMD) ox.ccc SM_control_spawn_server] extension |
|
(Implementation has not yet completed.) error |
|
%% how can I get client structure? |
|
] pop |
|
popVariables |
|
arg1 |
|
} def |
|
|
initializePathNamesForOx %% This should be |
initializePathNamesForOx %% This should be |