version 1.23, 2003/07/21 07:31:59 |
version 1.26, 2003/11/03 10:24:33 |
|
|
%%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.22 2003/01/01 02:03:41 takayama Exp $ |
%%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.25 2003/07/21 13:36:40 takayama Exp $ |
|
|
/ox.sm1.myname (ox-new.sm1) def |
/ox.sm1.myname (ox-new.sm1) def |
|
|
Line 492 ox.verbose { oxhelp } { } ifelse |
|
Line 492 ox.verbose { oxhelp } { } ifelse |
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
%%% Functions for OX-RFC 103 |
%%% Functions for OX-RFC 103 |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|
[(chattr) 0 /ctrlC-hook] extension |
/ctrlC-hook { |
/ctrlC-hook { |
ox103_reset |
ox103_reset |
} def |
} def |
/ox103_disable { |
/ox103_disable { |
|
[(chattr) 0 /ctrlC-hook] extension |
/ctrlC-hook { } def |
/ctrlC-hook { } def |
} def |
} def |
|
|
Line 607 ox.verbose { oxhelp } { } ifelse |
|
Line 609 ox.verbose { oxhelp } { } ifelse |
|
/sm1connectr { |
/sm1connectr { |
[/in-sm1connectr /pass /peer /data /control ] pushVariables |
[/in-sm1connectr /pass /peer /data /control ] pushVariables |
[ |
[ |
|
[(getServerEnv) (bin/ox_sm1)] extension tag 0 eq { |
|
(Server bin/ox_sm1 is not found.) error |
|
}{ } ifelse |
/pass [(oxGenPass)] extension def |
/pass [(oxGenPass)] extension def |
/peer [(oxGetPort) (localhost)] extension def |
/peer [(oxGetPort) (localhost)] extension def |
/data peer 1 get toString def |
/data peer 1 get toString def |
Line 694 ox.verbose { oxhelp } { } ifelse |
|
Line 699 ox.verbose { oxhelp } { } ifelse |
|
$ [(dc2.math.kobe-u.ac.jp) (taka)] sm1connectr-ssh /ox.ccc set $ |
$ [(dc2.math.kobe-u.ac.jp) (taka)] sm1connectr-ssh /ox.ccc set $ |
]] putUsages |
]] putUsages |
|
|
|
%%% ntl |
|
/ntlconnectr { |
|
[/in-ntlconnectr /pass /peer /data /control ] pushVariables |
|
[ |
|
[(getServerEnv) (bin/ox_ntl)] extension tag 0 eq { |
|
(Server bin/ox_ntl is not found.) error |
|
}{ } ifelse |
|
/pass [(oxGenPass)] extension def |
|
/peer [(oxGetPort) (localhost)] extension def |
|
/data peer 1 get toString def |
|
/control peer 3 get toString def |
|
peer message |
|
[ |
|
oxstart100 |
|
Xm_noX { ( -nox ) } { } ifelse |
|
( -oxserver bin/ox_ntl -e ) ( -reverse ) |
|
( -data ) data ( -control ) control ( -pass ) pass |
|
( )] cat execve |
|
[(oxCreateClient2) peer 0 pass] extension /oxntl.ccc set |
|
%% 0 means connect from only localhost. |
|
(The server is binded to the variable oxntl.ccc) message |
|
% oxntl.ccc.init |
|
oxntl.ccc |
|
] pop |
|
popVariables |
|
} def |
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
%%% Aux functions for ox_asir |
%%% Aux functions for ox_asir |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
Line 1395 oxasir.verbose { |
|
Line 1427 oxasir.verbose { |
|
/asirconnectr { |
/asirconnectr { |
[/in-asirconnectr /pass /peer /data /control /oxasir] pushVariables |
[/in-asirconnectr /pass /peer /data /control /oxasir] pushVariables |
[ |
[ |
|
[(getServerEnv) (bin/ox_asir)] extension tag 0 eq { |
|
(Server bin/ox_sm1 is not found.) error |
|
}{ } ifelse |
|
|
/pass [(oxGenPass)] extension def |
/pass [(oxGenPass)] extension def |
/peer [(oxGetPort) (localhost)] extension def |
/peer [(oxGetPort) (localhost)] extension def |
/data peer 1 get toString def |
/data peer 1 get toString def |
Line 1437 oxasir.verbose { |
|
Line 1473 oxasir.verbose { |
|
/k0connectr { |
/k0connectr { |
[/in-k0connectr /pass /peer /data /control ] pushVariables |
[/in-k0connectr /pass /peer /data /control ] pushVariables |
[ |
[ |
|
[(getServerEnv) (bin/ox_k0)] extension tag 0 eq { |
|
(Server bin/ox_sm1 is not found.) error |
|
}{ } ifelse |
|
|
/pass [(oxGenPass)] extension def |
/pass [(oxGenPass)] extension def |
/peer [(oxGetPort) (localhost)] extension def |
/peer [(oxGetPort) (localhost)] extension def |
/data peer 1 get toString def |
/data peer 1 get toString def |