OpenXM/src/kan96xx/Doc/ox.sm1 - diff

Return to ox.sm1 CVS log

Up to [local] / OpenXM / src / kan96xx / Doc

-version 1.11, 2000/02/02 02:03:42
+version 1.12, 2000/12/03 08:19:54
 Line 1
 Line 1
 Line 1
- %%%%%%%%%%%  $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
 Line 915  ox.verbose {
 Line 915  ox.verbose {
 Line 915  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