===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/ox.sm1,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -p -r1.25 -r1.26
--- OpenXM/src/kan96xx/Doc/ox.sm1	2003/07/21 13:36:40	1.25
+++ OpenXM/src/kan96xx/Doc/ox.sm1	2003/11/03 10:24:33	1.26
@@ -1,4 +1,4 @@
-%%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.24 2003/07/21 12:41:24 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
 
@@ -698,6 +698,33 @@ ox.verbose { oxhelp } {  } ifelse
  $    /myhostname-ssh   (dc1.math.kobe-u.ac.jp) def $
  $         [(dc2.math.kobe-u.ac.jp) (taka)] sm1connectr-ssh /ox.ccc set  $
 ]] 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