===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/ox.sm1,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -p -r1.11 -r1.12
--- OpenXM/src/kan96xx/Doc/ox.sm1	2000/02/02 02:03:42	1.11
+++ OpenXM/src/kan96xx/Doc/ox.sm1	2000/12/03 08:19:54	1.12
@@ -1,4 +1,4 @@
-%%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.10 2000/01/30 10:09:44 takayama Exp $
+%%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.11 2000/02/02 02:03:42 takayama Exp $
 %%%%%%%%%%%% 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
@@ -915,5 +915,26 @@ ox.verbose {
  arg1
 } def
 
+%% Test code for oxCreateControl_RFC_101
+/sm1connect101 {
+ [/in-sm1connectr /pass /peer /data /control ] pushVariables
+ [
+ /pass [(oxGenPass)] extension def
+ /peer [(oxGetPort) (localhost)] extension def
+ /peer [ peer 0 get peer 1 get ] def %% BUG, close the rest.
+ /data peer 1 get toString def
+ peer message
+ [(/home/nobuki/OpenXM/src/oxc/oxc)
+  ( -c ) pass ( -h ) (localhost) ( -p ) data ( -x )
+  oxpath.null
+  ( &)] cat system-csh
+
+ [(oxCreateControl_RFC_101) peer 0 pass] extension /ox.ccc set
+                     %% 0 means connect from only localhost. 
+ (The server is binded to the variable ox.ccc) message
+  ox.ccc
+ ] pop
+ popVariables
+} def
 
 initializePathNamesForOx  %% This should be