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

Diff for /OpenXM/src/kan96xx/Kan/kclass.c between version 1.4 and 1.6

version 1.4, 2001/05/04 01:06:24 version 1.6, 2006/01/30 10:38:36
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/kan96xx/Kan/kclass.c,v 1.3 2001/04/12 06:48:26 takayama Exp $ */  /* $OpenXM: OpenXM/src/kan96xx/Kan/kclass.c,v 1.5 2005/06/16 05:07:23 takayama Exp $ */
 /* kclass.c,  1997, 3/1  /* kclass.c,  1997, 3/1
    This module handles class data base.     This module handles class data base.
    This is a top level and provides an interface for sm1 for Sclass objects.     This is a top level and provides an interface for sm1 for Sclass objects.
Line 160  void fprintMathCap(FILE *fp,struct object *op)
Line 160  void fprintMathCap(FILE *fp,struct object *op)
 }  }
   
 struct object KpoMathCap(struct object *obp) {  struct object KpoMathCap(struct object *obp) {
   struct object rob;    struct object rob = OINIT;
   struct object *newobp;    struct object *newobp;
   
   newobp = (struct object *) sGC_malloc(sizeof(struct object));    newobp = (struct object *) sGC_malloc(sizeof(struct object));
Line 185  struct object KclassDataConversion(struct object ob1,s
Line 185  struct object KclassDataConversion(struct object ob1,s
       ob1(with class tag) [(class) (class-name)]  dc  :  method=2        ob1(with class tag) [(class) (class-name)]  dc  :  method=2
       ob1(with class tag) (usual flag)            dc  :  method=3        ob1(with class tag) (usual flag)            dc  :  method=3
       It also create a new class object.        It also create a new class object.
         ob1 (error) dc --> ErrorObject with the contents ob1
   
         ob1(with class tag) (body) dc --> [left tag, right body of ob1.]
   */    */
   struct object rob = NullObject;    struct object rob = NullObject;
   int method ;    int method ;
   struct object ff0;    struct object ff0 = OINIT;
   struct object ff1;    struct object ff1 = OINIT;
   struct object ob3;  /* for work.*/    struct object ob3 = OINIT;  /* for work.*/
   struct object ob4;    struct object ob4 = OINIT;
   char *ccc;    char *ccc;
   char *key;    char *key;
   
Line 281  struct object KclassDataConversion(struct object ob1,s
Line 284  struct object KclassDataConversion(struct object ob1,s
       }else if (strcmp(key,"error")==0) {        }else if (strcmp(key,"error")==0) {
         rob = KnewErrorPacketObj(ob1);          rob = KnewErrorPacketObj(ob1);
         return(rob);          return(rob);
         }
       }else if (key[0] == 'b') {
         if (strcmp(key,"body") == 0) {
           rob = newObjectArray(2);
           putoa(rob,0,KpoInteger(ectag(ob1)));
           putoa(rob,1,*((struct object *)(ecbody(ob1))));
           return rob;
       }        }
     }      }
   
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>