===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/ox.sm1,v
retrieving revision 1.23
retrieving revision 1.26
diff -u -p -r1.23 -r1.26
--- OpenXM/src/kan96xx/Doc/ox.sm1	2003/07/21 07:31:59	1.23
+++ 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.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
 
@@ -492,10 +492,12 @@ ox.verbose { oxhelp } {  } ifelse
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%% Functions for OX-RFC 103
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+[(chattr) 0 /ctrlC-hook] extension
 /ctrlC-hook {
   ox103_reset
 } def
 /ox103_disable {
+  [(chattr) 0 /ctrlC-hook] extension
   /ctrlC-hook {  } def
 } def
 
@@ -607,6 +609,9 @@ ox.verbose { oxhelp } {  } ifelse
 /sm1connectr {
  [/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
  /peer [(oxGetPort) (localhost)] extension def
  /data peer 1 get toString def
@@ -694,6 +699,33 @@ ox.verbose { oxhelp } {  } ifelse
  $         [(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
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -1395,6 +1427,10 @@ oxasir.verbose {
 /asirconnectr {
  [/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
  /peer [(oxGetPort) (localhost)] extension def
  /data peer 1 get toString def
@@ -1437,6 +1473,10 @@ oxasir.verbose {
 /k0connectr {
  [/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
  /peer [(oxGetPort) (localhost)] extension def
  /data peer 1 get toString def