===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/plugin/oxmisc2.c,v
retrieving revision 1.3
retrieving revision 1.7
diff -u -p -r1.3 -r1.7
--- OpenXM/src/kan96xx/plugin/oxmisc2.c	1999/11/18 00:54:17	1.3
+++ OpenXM/src/kan96xx/plugin/oxmisc2.c	2000/12/03 07:29:39	1.7
@@ -1,9 +1,12 @@
-/* $OpenXM: OpenXM/src/kan96xx/plugin/oxmisc2.c,v 1.2 1999/11/09 09:57:32 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/plugin/oxmisc2.c,v 1.6 2000/03/20 01:53:47 takayama Exp $ */
 #include <stdio.h>
 #include "ox_kan.h"
 #include "oxmisc2.h"   /* This file requires sm1 object description. */
 #include "cmo.h"
 extern FILE *MyErrorOut;
+#define SET_MYERROROUT { if (MyErrorOut == NULL) MyErrorOut=stdout; }
+/* It is also defined in oxmisc.c */
+
 extern int SerialOX; /* defined in SerialOX */
 
 extern int OxVersion;
@@ -68,6 +71,7 @@ int oxGet(oxclientp client, struct object *op,int *isO
 int oxGetFromControl(oxclientp client)
 {
   int ans = -1;
+  AbortIfRFC_101(client);
   if (client->cstate != -1) {
     ans = oxGetResultOfControlInt32(client->controlfd);
     if (ans != -1) {    client->cstate = 0; }
@@ -79,9 +83,11 @@ int oxGetFromControl(oxclientp client)
 int oxReq(oxclientp client,int func,struct object ob)
 {
   struct object *ob1p;
+  SET_MYERROROUT;
   /* request to the control channel */
   if (func == SM_control_reset_connection ||
       func == SM_control_kill) {
+	AbortIfRFC_101(client);
     switch(func) {
     case SM_control_reset_connection:
       oxReqControlResetConnection(client->controlfd);
@@ -129,13 +135,17 @@ int oxReq(oxclientp client,int func,struct object ob)
   case SM_setMathCap:
     /* ob = [(mathcap-obj) [[version num, system name] [sm tags]
                              ob1                        smtags
-                                                [[ox numbers] [cmo numbers]]]
+                                    oxtags      [[ox numbers, [cmo numbers]]]
                                                     ob3         ob2 */
+   /*     oxtags      [[OX_DATA, [cmo numbers]],[OX_DATA_LOCAL,[opt]],...]*/
     {
       struct object ob1;
       struct object ob2;
       struct object ob3;
+      struct object obm;
       struct object smtags;
+      struct object oxtags;
+      struct object ox;
     int n,i;
     struct mathCap mathcap;
 
@@ -144,25 +154,40 @@ int oxReq(oxclientp client,int func,struct object ob)
       client->dstate = DSTATE_ANY;
       break;
     }
-      ob1 = getoa(getoa(ob,1),0);
-      smtags = getoa(getoa(ob,1),1);
-      ob2 = getoa(getoa(getoa(ob,1),2),1);
-      ob3 = getoa(getoa(getoa(ob,1),2),0);
-      
+      obm = getoa(ob,1);
+      ob1 = getoa(obm,0);
+      smtags = getoa(obm,1);
+      oxtags = getoa(obm,2);
+      if (smtags.tag != Sarray || oxtags.tag != Sarray) {
+	errorOxmisc2("data format error in oxReqSetMathCap");
+      }
       ob1p = (struct object *) sGC_malloc(sizeof(struct object));
       *ob1p = ob1;
       mathcap.infop = ob1p;
-      n = getoaSize(ob2);
-      mathcap.n = n;
+
+      n = getoaSize(oxtags);
       if (n >= MATHCAP_SIZE) errorOxmisc2("Too big mathcap of your peer.");
-      for (i=0; i<n; i++) {
-	mathcap.cmo[i] = KopInteger(getoa(ob2,i));
-      }
-      n = getoaSize(ob3);
-      if (n >= MATHCAP_SIZE) errorOxmisc2("Too big mathcap of your peer.");
       mathcap.oxSize = n;
       for (i=0; i<n; i++) {
-	mathcap.ox[i] = KopInteger(getoa(ob3,i));
+	ox = getoa(oxtags,i);
+	if (ox.tag != Sarray) {
+	  errorOxmisc2("Data format error of the third argument of mathcap.");
+	}
+	mathcap.ox[i] = KopInteger(getoa(ox,0));
+	if (mathcap.ox[i] == OX_DATA) {
+	  if (getoaSize(ox) < 2) {
+	    errorOxmisc2("Data format error in an entry of the third argument of mathcap.");
+	  }
+	  ob2 = getoa(ox,1);
+	  if (ob2.tag != Sarray) {
+	    errorOxmisc2("Data format error in an entry of the third argument of mathcap.");
+	  }
+	  mathcap.n = getoaSize(ob2);
+	  if (n >= MATHCAP_SIZE) errorOxmisc2("Too big mathcap of your peer.");
+	  for (i=0; i<mathcap.n; i++) {
+	    mathcap.cmo[i] = KopInteger(getoa(ob2,i));
+	  }
+	}
       }
 
       n = getoaSize(smtags);
@@ -658,7 +683,9 @@ static int cmoCheck00(struct object obj,int cmo[], int
 #define CHECK00_N  4098      /* look up stackm.h and kclass.h */
   static int typeTrans[CHECK00_N]; 
   static int init = 0;
-  if (n == 0) return(1);  /* For null cmolist, OK. */
+  /* if n == 0, report the cmo tag of the object obj.
+	 If it cannot be translated to cmo, then return -1. */
+
   if (!init) {
     for (i=0; i<CHECK00_N; i++) {
       typeTrans[i] = 0;  /* unknown cmo number */
@@ -687,6 +714,11 @@ static int cmoCheck00(struct object obj,int cmo[], int
   if (obj.tag == Sclass) {
     ttt = typeTrans[ectag(obj)];
   }
+  /* Only report the cmo tag. */
+  if (n == 0) {
+	if (ttt == 0) return(-1);
+	else return(ttt);
+  }
 
   for (i=0; i<n; i++) {
     if (ttt == cmo[i]) {
@@ -724,7 +756,11 @@ int cmoCheckMathCap(struct object obj, struct object *
   struct object mathcap;
   struct object cmolist;
   struct object mathcapMain;
+  struct object mathcapThird;
+  struct object ox;
+  struct object oxtag;
   struct object ob0;
+  int oxsize;
   int n;
   int i;
 #define CMO_CHECK_MATH_CAP_LIST_SIZE 1024
@@ -744,7 +780,7 @@ int cmoCheckMathCap(struct object obj, struct object *
                  $HOSTTYPE=i386$ ]  , 
             [    262 , 263 , 264 , 265 , 266 , 268 , 269 , 272 , 273 , 275 , 
                  276 ]  , 
-            [    [    514 ]  , [    2130706434 , 1 , 2 , 4 , 5 , 17 , 19 , 20 , 22 , 23 , 24 , 25 , 26 , 30 , 31 , 60 , 61 , 27 , 33 , 40 , 16 , 34 ]  ]  ]  ]
+            [    [    514  , [    2130706434 , 1 , 2 , 4 , 5 , 17 , 19 , 20 , 22 , 23 , 24 , 25 , 26 , 30 , 31 , 60 , 61 , 27 , 33 , 40 , 16 , 34 ] ] ]  ]  ]
   */
 
   n = getoaSize(mathcap);
@@ -786,28 +822,50 @@ int cmoCheckMathCap(struct object obj, struct object *
     fprintf(stderr,"\n");
     errorOxmisc2("cmoCheckMathCap: format error in the (client->mathcapObjp)[1] field. It should be an array of which length is more than 2.\n");
   }
-  mathcap = getoa(mathcapMain,2);
-  n = getoaSize(mathcap);
-  if (n < 2) {
-    fprintf(stderr,"cmoCheckMathCap: the mathcap obj is \n");
-    printObject(*obp,0,stderr);
-    fprintf(stderr,"\n");
-    errorOxmisc2("cmoCheckMathCap: length of mathcap is wrong in the client->mathcapObjp field.\n");
+  mathcapThird = getoa(mathcapMain,2);
+  oxsize = getoaSize(mathcapThird);
+  for (i=0; i<oxsize; i++) {
+    ox = getoa(mathcapThird,i);
+    if (ox.tag != Sarray) {
+      fprintf(stderr,"cmoCheckMathCap: the mathcap obj is \n");
+      printObject(*obp,0,stderr);
+      fprintf(stderr,"\n");
+      errorOxmisc2("cmoCheckMathCap: the third element of mathcap is a list of lists.");
+    }
+    if (getoaSize(ox) != 0) {
+      oxtag = getoa(ox,0);
+      if (oxtag.tag != Sinteger) {
+	fprintf(stderr,"cmoCheckMathCap: the mathcap obj is \n");
+	printObject(*obp,0,stderr);
+	fprintf(stderr,"\n");
+	errorOxmisc2("cmoCheckMathCap: the third element of mathcap must be [OX_DATA_xxx, [  ]].");
+      }
+      if (KopInteger(oxtag) == OX_DATA) {
+	if (getoaSize(ox) > 1) {
+	  cmolist = getoa(ox,1);
+	  if (cmolist.tag != Sarray) {
+	    fprintf(stderr,"cmoCheckMathCap: the mathcap obj is \n");
+	    printObject(*obp,0,stderr);
+	    fprintf(stderr,"\n");
+	    errorOxmisc2("cmoCheckMathCap: mathcap[1] must be an array of integers.\n");
+	  }
+	  n = getoaSize(cmolist);
+	  if (n > CMO_CHECK_MATH_CAP_LIST_SIZE) {
+	    errorOxmisc2("cmoCheckMathCap: Too big cmo list.\n");
+	  }
+	  for (i=0; i<n; i++) {
+	    cmo[i] = KopInteger(getoa(cmolist,i));
+	  }
+	}else{
+	  fprintf(stderr,"cmoCheckMathCap: the mathcap obj is \n");
+	  printObject(*obp,0,stderr);
+	  fprintf(stderr,"\nox=");
+	  printObject(ox,0,stderr);
+	  errorOxmisc2("cmoCheckMathCap: [OX_DATA, cmolist]");
+	}
+      }
+    }
   }
-  cmolist = getoa(mathcap,1);
-  if (cmolist.tag != Sarray) {
-    fprintf(stderr,"cmoCheckMathCap: the mathcap obj is \n");
-    printObject(*obp,0,stderr);
-    fprintf(stderr,"\n");
-    errorOxmisc2("cmoCheckMathCap: mathcap[1] must be an array of integers.\n");
-  }
-  n = getoaSize(cmolist);
-  if (n > CMO_CHECK_MATH_CAP_LIST_SIZE) {
-    errorOxmisc2("cmoCheckMathCap: Too big cmo list.\n");
-  }
-  for (i=0; i<n; i++) {
-    cmo[i] = KopInteger(getoa(cmolist,i));
-  }
   return(cmoCheck00(obj,cmo,n));
 }
     
@@ -906,7 +964,82 @@ struct object KoxCreateClient2(struct object peer,
   return(rob);
 }
 
+int KgetCmoTagOfObject(struct object obj) {
+  int k;
+  k=cmoCheck00(obj,(int *)NULL,0);
+  return(k);
+}
+
 errorOxmisc2(char *s) {
+  SET_MYERROROUT;  
   fprintf(MyErrorOut,"error in oxmisc2.c: %s\n",s);
   errorKan1("%s\n","  ");
+}
+
+struct object KoxPushCMD(struct object client,struct object cmd) {
+  int ans;
+  static oxclientp cc1 = NULL;
+  struct object rob;
+  rob.tag = Snull;
+  if (cc1 == NULL) {
+    cc1 = (oxclientp) mymalloc(sizeof(oxclient));
+    if (cc1 == NULL) {
+      errorOxmisc2("KoxReq(): no more memory.");
+      return(rob);
+    }
+    oxInitClient(cc1);  /* BUG: is it fine? */
+  }
+
+  if (oxObjectToClient(client,cc1) == -1) return(rob);
+  if (cc1 == NULL) {
+    errorOxmisc2("KoxReq(): the first argument must be a client object.");
+    return(rob);
+  }
+  if (cmd.tag != Sinteger) {
+    errorOxmisc2("KoxReq(): the second argument must be an integer.");
+    return(rob);
+  }
+  /* BUG: check the mathcap */
+  oxSendOXheader(cc1->datafp2,OX_COMMAND,SerialOX++);
+  oxSendInt32(cc1->datafp2,KopInteger(cmd));
+  /* synchronize cc1 and client. */
+  oxClientToObject(cc1,client);
+  return(cmd);
+}
+
+struct object KoxPushCMO(struct object client,struct object ob) {
+  int ans;
+  static oxclientp cc1 = NULL;
+  struct object rob;
+  rob.tag = Snull;
+  if (cc1 == NULL) {
+    cc1 = (oxclientp) mymalloc(sizeof(oxclient));
+    if (cc1 == NULL) {
+      errorOxmisc2("KoxReq(): no more memory.");
+      return(rob);
+    }
+    oxInitClient(cc1);  /* BUG: is it fine? */
+  }
+
+  if (oxObjectToClient(client,cc1) == -1) return(rob);
+  if (cc1 == NULL) {
+    errorOxmisc2("KoxReq(): the first argument must be a client object.");
+    return(rob);
+  }
+
+  /* request to the data channel */
+  if (cc1->dstate != DSTATE_ANY) {
+    errorOxmisc2("oxPushCMO: cc1->dstate != DSTATE_ANY, data channel is not ready to send data.\n");
+    return(rob);
+  }
+
+  if (!cmoCheckMathCap(ob,(struct object *)cc1->mathcapObjp)) {
+	errorOxmisc2("oxPushCMO: your peer does not understand this cmo.\n");
+	return(rob);
+  }
+  oxSendOXheader(cc1->datafp2,OX_DATA,SerialOX++);
+  cmoObjectToStream2(ob,cc1->datafp2);
+  /* synchronize cc1 and client. */
+  oxClientToObject(cc1,client);
+  return(ob);
 }