[BACK]Return to oxmisc2.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / plugin

Diff for /OpenXM/src/kan96xx/plugin/oxmisc2.c between version 1.1 and 1.2

version 1.1, 1999/10/08 02:12:05 version 1.2, 1999/11/09 09:57:32
Line 1 
Line 1 
   /* $OpenXM$ */
 #include <stdio.h>  #include <stdio.h>
 #include "ox_kan.h"  #include "ox_kan.h"
 #include "oxmisc2.h"   /* This file requires sm1 object description. */  #include "oxmisc2.h"   /* This file requires sm1 object description. */
Line 713  int cmoCheckMathCap(struct object obj, struct object *
Line 714  int cmoCheckMathCap(struct object obj, struct object *
 {  {
   struct object mathcap;    struct object mathcap;
   struct object cmolist;    struct object cmolist;
     struct object mathcapMain;
     struct object ob0;
   int n;    int n;
   int i;    int i;
 #define CMO_CHECK_MATH_CAP_LIST_SIZE 1024  #define CMO_CHECK_MATH_CAP_LIST_SIZE 1024
   int cmo[CMO_CHECK_MATH_CAP_LIST_SIZE];    int cmo[CMO_CHECK_MATH_CAP_LIST_SIZE];
   if (obp == NULL) return(1);    if (obp == NULL) return(1);
     /* printObject(*obp,0,stderr); for debug*/
   if (obp->tag != Sarray) {    if (obp->tag != Sarray) {
     fprintf(stderr,"cmoCheckMathCap: the mathcap obj is \n");      fprintf(stderr,"cmoCheckMathCap: the mathcap obj is \n");
     printObject(*obp,0,stderr);      printObject(*obp,0,stderr);
Line 725  int cmoCheckMathCap(struct object obj, struct object *
Line 729  int cmoCheckMathCap(struct object obj, struct object *
     errorOxmisc2("cmoCheckMathCap: format error in the client->mathcapObjp field.\n");      errorOxmisc2("cmoCheckMathCap: format error in the client->mathcapObjp field.\n");
   }    }
   mathcap = *obp;    mathcap = *obp;
     /* Example of mathcap
       [    $mathcap-object$ ,
          [    [    199909080 , $Ox_system=ox_sm1.plain$ , $Version=2.991106$ ,
                    $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 ]  ]  ]  ]
     */
   
   n = getoaSize(mathcap);    n = getoaSize(mathcap);
   if (n < 2) {    if (n < 2) {
     fprintf(stderr,"cmoCheckMathCap: the mathcap obj is \n");      fprintf(stderr,"cmoCheckMathCap: the mathcap obj is \n");
Line 732  int cmoCheckMathCap(struct object obj, struct object *
Line 745  int cmoCheckMathCap(struct object obj, struct object *
     fprintf(stderr,"\n");      fprintf(stderr,"\n");
     errorOxmisc2("cmoCheckMathCap: length of mathcap is wrong in the client->mathcapObjp field.\n");      errorOxmisc2("cmoCheckMathCap: length of mathcap is wrong in the client->mathcapObjp field.\n");
   }    }
     ob0 = getoa(mathcap,0);
     if (ob0.tag != Sdollar) {
       fprintf(stderr,"cmoCheckMathCap: the mathcap obj is \n");
       printObject(*obp,0,stderr);
       fprintf(stderr,"\n");
       errorOxmisc2("cmoCheckMathCap: The first field must be the string mathcap-object.\n");
     }
     if (strcmp(KopString(ob0),"mathcap-object") != 0) {
       fprintf(stderr,"cmoCheckMathCap: the mathcap obj is \n");
       printObject(*obp,0,stderr);
       fprintf(stderr,"\n");
       errorOxmisc2("cmoCheckMathCap: The mathcap must be of the form [(mathcap-object) [...]]\n");
     }
   
   /* I should check    /* I should check
          getoa(getoa(mathcap,2),0)           getoa(getoa(mathcap,1),2)
      contains OX_DATA.       contains OX_DATA.
      It has not yet implemented.       It has not yet implemented.
   */    */
   mathcap = getoa(getoa(mathcap,1),2);    mathcapMain = getoa(mathcap,1);
     if (mathcapMain.tag != Sarray) {
       fprintf(stderr,"cmoCheckMathCap: mathcap[1] is \n");
       printObject(mathcapMain,0,stderr);
       fprintf(stderr,"\n");
       errorOxmisc2("cmoCheckMathCap: format error in the (client->mathcapObjp)[1] field. It should be an array.\n");
     }
     if (getoaSize(mathcapMain) < 3) {
       fprintf(stderr,"cmoCheckMathCap: mathcap[1] is \n");
       printObject(mathcapMain,0,stderr);
       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);    n = getoaSize(mathcap);
   if (n < 2) {    if (n < 2) {
     fprintf(stderr,"cmoCheckMathCap: the mathcap obj is \n");      fprintf(stderr,"cmoCheckMathCap: the mathcap obj is \n");
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>