===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/plugin/cmo.c,v
retrieving revision 1.1.1.1
retrieving revision 1.6
diff -u -p -r1.1.1.1 -r1.6
--- OpenXM/src/kan96xx/plugin/cmo.c	1999/10/08 02:12:05	1.1.1.1
+++ OpenXM/src/kan96xx/plugin/cmo.c	2000/02/02 03:30:48	1.6
@@ -1,6 +1,7 @@
+/*$OpenXM: OpenXM/src/kan96xx/plugin/cmo.c,v 1.5 2000/01/25 05:07:11 takayama Exp $*/
 #include <stdio.h>
 #include <string.h>
-#include <netinet/in.h>
+/* #include <netinet/in.h> */
 #include <stdlib.h>
 #include "datatype.h"
 #include "stackm.h"
@@ -36,7 +37,9 @@ int CmoClientMode = 1;  /* This flag is used to transl
 **************************************************************************/
 /*  If you change the format of mathcap, do the follows.
     Mofify  cmoCheckMathCap in oxmisc2.c,
-    oxReq, SM_setMathCap:, and
+            oxSendMathCap  in oxmisc.c,
+	    newMathCap in cmo.c,
+    oxReq, SM_setMathCap: in oxmisc2.c, and
     grep mathCap and make all modifications.
 */
 
@@ -86,7 +89,7 @@ struct cmoBuffer *cmoOutputToBuf(cmoAction a,void *dat
       break;
     case CMOPUT:
       for (i=0; i<size; i++) {
-	fp2fputc(((char *)data)[i], b.fp);
+	fp2fputc((int) ((char *)data)[i], b.fp);
       }
       break;
     case CMOFLUSH:
@@ -195,9 +198,9 @@ cmoToStream(struct object cmoObj,struct object of)
   s = (char *)(cb->buf);
   for (i=0; i<size; i++) {
     if (file2) {
-      fp2fputc(s[i],(FILE2 *)(of.rc.voidp));
+      fp2fputc((int) s[i],(FILE2 *)(of.rc.voidp));
     }else{
-      fputc(s[i],of.rc.file);
+      fputc((int) s[i],of.rc.file);
     }
   }
 }
@@ -1317,8 +1320,9 @@ struct object newMathCap(struct mathCap *mathcap){
   struct object ob3;
   struct object obOx;
   struct object obSm;
+  struct object ob3tmp;
   struct object *obp;
-  int i;
+  int i,j;
   struct object mathinfo;
 
   rob = newObjectArray(3);
@@ -1328,17 +1332,17 @@ struct object newMathCap(struct mathCap *mathcap){
   for (i=0; i<getoaSize(mathinfo); i++) {
     putoa(ob1,i,getoa(mathinfo,i));
   }
-  ob2 = newObjectArray(mathcap->n);
-  for (i=0; i<mathcap->n; i++) {
-    putoa(ob2,i,KpoInteger((mathcap->cmo)[i]));
-  }
-  obOx = newObjectArray(mathcap->oxSize);
+  ob3 = newObjectArray(mathcap->oxSize);
   for (i=0; i<mathcap->oxSize; i++) {
-    putoa(obOx,i,KpoInteger((mathcap->ox)[i]));
+    ob3tmp = newObjectArray(2);
+    putoa(ob3tmp,0,KpoInteger((mathcap->ox)[i]));
+    ob2 = newObjectArray(mathcap->n);
+    for (j=0; j<mathcap->n; j++) {
+      putoa(ob2,j,KpoInteger((mathcap->cmo)[j]));
+    }
+    putoa(ob3tmp,1,ob2);
+    putoa(ob3,i,ob3tmp);
   }
-  ob3 = newObjectArray(2);
-  putoa(ob3,0,obOx); 
-  putoa(ob3,1,ob2);
 
   obSm = newObjectArray(mathcap->smSize);
   for (i=0; i<mathcap->smSize; i++) {
@@ -1385,6 +1389,7 @@ void *KSmathCapByStruct(void) 
   putoa(ob,1,KpoString(sys));
   putoa(ob,2,KpoString(sysVersion));
   s1 = getenv("HOSTTYPE");
+  if (s1 == NULL) s1="unknown";
   s2 = (char *)sGC_malloc(strlen(s1)+2+strlen("HOSTTYPE="));
   strcpy(s2,"HOSTTYPE=");
   strcat(s2,s1);
@@ -1438,7 +1443,8 @@ void *KSmathCapByStruct(void) 
   mathcap->sm[8] = SM_setMathCap;
   mathcap->sm[9] = SM_getsp;
   mathcap->sm[10] = SM_dupErrors;
-  mathcap->smSize = 11;  
+  mathcap->sm[11] = SM_pushCMOtag;
+  mathcap->smSize = 12;  
 
   return((void *)mathcap);
 }