version 1.1.1.1, 1999/10/08 02:12:02 |
version 1.3, 1999/11/03 00:45:43 |
|
|
|
%%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.2 1999/11/01 03:49:47 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 |
|
|
/oxpath.xterm (/usr/X11R6/bin/xterm -icon -e ) def |
/oxpath.xterm (/usr/X11R6/bin/xterm -icon -e ) def |
/oxpath.null ( ) def |
/oxpath.null ( ) def |
/oxpath.null00 ( >& /dev/null ) def %% cf oxNoX |
/oxpath.null00 ( >& /dev/null ) def %% cf oxNoX |
|
%%%%%%%%%%%%% The following is used only for sm1connectr-ssh. |
|
%%%%%%%%%%%%% Configure path for ox and ox_sm1 on your remote machine. |
|
/oxpath.oxlog.xterm-ssh (/home/taka/OpenXM/bin/oxlog /usr/X11R6/bin/xterm -icon -e ) def |
|
/oxpath.oxsm1-ssh (/home/taka/OpenXM/bin/ox_sm1) def |
|
/oxpath.ox-ssh (/home/taka/OpenXM/bin/ox) def |
|
/myhostname-ssh (yama.math.kobe-u.ac.jp) def |
|
%% for debugging. |
|
%/oxpath.oxlog.xterm-ssh ( ) def |
|
%/oxpath.oxsm1-ssh (/home/nobuki/OpenXM/bin/ox_sm1) def |
|
%/oxpath.ox-ssh (/home/nobuki/OpenXM/bin/ox) def |
|
%/myhostname-ssh (localhost) def |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
%% Old full path. |
%% Old full path. |
%/oxpath.ox (/home/nobuki/kxx/ox) def |
%/oxpath.ox (/home/nobuki/kxx/ox) def |
|
|
] pop |
] pop |
popVariables |
popVariables |
} def |
} def |
|
|
|
/sm1connectr-ssh { |
|
/arg1 set |
|
[/in-sm1connectr /pass /peer /data /control /name /machine |
|
/your-peer /comm |
|
] pushVariables |
|
[ |
|
/machine arg1 0 get def |
|
/name arg1 1 get def |
|
|
|
/pass [(oxGenPass)] extension def |
|
/peer [(oxGetPort) myhostname-ssh] extension def |
|
/data peer 1 get toString def |
|
/control peer 3 get toString def |
|
peer message |
|
[(ssh -f ) machine ( -l ) name ( ") |
|
oxpath.oxlog.xterm-ssh oxpath.ox-ssh ( -reverse -ox ) oxpath.oxsm1-ssh |
|
( -host ) myhostname-ssh |
|
( -data ) data ( -control ) control ( -pass ) pass |
|
oxpath.null |
|
( ") |
|
] cat /comm set |
|
(Executing the command : ) messagen comm message message |
|
comm system |
|
(sleep 5) system |
|
[(oxCreateClient2) peer 1 pass] extension /your-peer set |
|
/arg1 your-peer def |
|
] pop |
|
popVariables |
|
arg1 |
|
} def |
|
[(sm1connectr-ssh) |
|
[([hostname login-name] sm1connectr-ssh client) |
|
(Starting oxpath.oxsm1-ssh by the launcher oxpath.ox-ssh on the "hostname".) |
|
(cf. oxNoX ) |
|
(Set the following varialbes to appropriate values:) |
|
(oxpath.oxlog.xterm-ssh oxpath.oxsm1-ssh oxpath.ox-ssh myhostname-ssh ) |
|
$Example 1: $ |
|
$ *** Path names on the remote machine dc1.math.kobe-u.ac.jp $ |
|
$ /oxpath.oxlog.xterm-ssh (/home/taka/OpenXM/bin/oxlog /usr/X11R6/bin/xterm -icon -e ) def $ |
|
$ /oxpath.oxsm1-ssh (/home/taka/OpenXM/bin/ox_sm1) def $ |
|
$ /oxpath.ox-ssh (/home/taka/OpenXM/bin/ox) def $ |
|
$ *** The machine name on which you are running sm1. $ |
|
$ /myhostname-ssh (yama.math.kobe-u.ac.jp) def $ |
|
$ [(dc1.math.kobe-u.ac.jp) (taka)] sm1connectr-ssh /ox.ccc set $ |
|
$Example 2: $ |
|
$ *** Path names on the remote machine dc2.math.kobe-u.ac.jp $ |
|
$ *** We will not use X11 debug windows. $ |
|
$ oxNoX $ |
|
$ /oxpath.oxlog.xterm-ssh (/home/taka/OpenXM/bin/oxlog ) def $ |
|
$ /oxpath.oxsm1-ssh (/home/taka/OpenXM/bin/ox_sm1) def $ |
|
$ /oxpath.ox-ssh (/home/taka/OpenXM/bin/ox) def $ |
|
$ *** the machine name on which you are running sm1. $ |
|
$ /myhostname-ssh (dc1.math.kobe-u.ac.jp) def $ |
|
$ [(dc2.math.kobe-u.ac.jp) (taka)] sm1connectr-ssh /ox.ccc set $ |
|
]] putUsages |
|
|
/addSlash { |
/addSlash { |
/arg1 set |
/arg1 set |