===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/ox.sm1,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- OpenXM/src/kan96xx/Doc/ox.sm1	1999/10/08 02:12:02	1.1
+++ OpenXM/src/kan96xx/Doc/ox.sm1	1999/11/01 03:49:47	1.2
@@ -1,3 +1,4 @@
+%%%%%%%%%%%  $OpenXM$
 %%%%%%%%%%%% Configuration: Specify your server path
 %%%%% ox, ox_sm1, oxlog are contained in kxx.tgz
 %%%%% These should be under /usr/local/lib/sm1 or LOAD_SM1_PATH
@@ -7,6 +8,17 @@
 /oxpath.xterm (/usr/X11R6/bin/xterm  -icon  -e ) def
 /oxpath.null  (  ) def
 /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.
 %/oxpath.ox (/home/nobuki/kxx/ox) def
@@ -581,6 +593,42 @@ ox.verbose {
  ] pop
  popVariables
 } 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".)
+ $Example: [(dc1.math.kobe-u.ac.jp) (taka)] sm1connectr-ssh /ox.ccc set  $
+]] putUsages
 
 /addSlash {
   /arg1 set