OpenXM/src/k097/lib/ox/ox.k - diff

Return to ox.k CVS log

Up to [local] / OpenXM / src / k097 / lib / ox

Diff for /OpenXM/src/k097/lib/ox/ox.k between version 1.1 and 1.2

-version 1.1, 2000/12/06 11:37:34
+version 1.2, 2000/12/06 23:45:32
 Line 1
 Line 1
 Line 1
- /* $OpenXM$  */
+ /* $OpenXM: OpenXM/src/k097/lib/ox/ox.k,v 1.1 2000/12/06 11:37:34 takayama Exp $  */
- class OX extends Object {
+ class OXcontrol extends Object {
-   local client,
+   local control;
-         engine;
+   def new0(c) {
-   def start(name) {
+      if (Tag(c) != 0) {
+        control = c;
+        return(this);
+      }else{
+        return(start());
+      }
+   }
+   def start() {
      local c,e, pass, peer, data, s, stmp;
      this = new(super.new0());
      sm1(" [(oxGenPass)] extension /pass set ");
-Line 17  class OX extends Object {
+Line 24  class OX extends Object {
 Line 17  class OX extends Object {
 Line 24  class OX extends Object {
      sm1(" stmp message ");
      sm1(" stmp system  ");
      sm1(" [(oxCreateControl_RFC_101) peer 0 pass] extension /c set ");
-     client = c;
+     control = c;
      return(this);
+   }
  }
+ class OXengine extends OXcontrol {
+   local engine;
+   def start(control,name) {
+     local c,e, pass, peer, data, s, stmp, engineID;
+     this = super.new0(control);
+     control = this.control;
+     sm1(" [(oxGetPort1) (localhost)] extension /peer set ");
+     sm1(" /data peer 1 get def ");
+     control.pushCMO(data);
+     control.pushCMO(name);
+     control.pushCMD(SM_control_spawn_server);
+     engineID = control.popCMO();
+     sm1(" [(oxCreateEngine_RFC_101) peer 0 (Empty) engineID] extension /c set ");
+     engine = c;
+     return(this);
+ }
- }
+ }

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>