Return to sample.c CVS log

Up to [local] / OpenXM / src / kan96xx / Kan / Kclass

Annotation of OpenXM/src/kan96xx/Kan/Kclass/sample.c, Revision 1.1.1.1

1.1       maekawa     1: /* Kclass/sample.c   sample new class. */
                      2: /* How to add a new class to sm1.
                      3:    1. create a new file Kclass/newclass-name.c and change
                      4:       Makefile
                      5:    2. Define new tags in kclass.h and put your prototypes.
                      6:        (Note. CMO is defined to be 1024 in stackm.h
                      7:         So, CMO+cmotag is used for the etag for raw cmo object.
                      8:         This should be changed near future.)
                      9:    3. Add entry points of your functions for newclass to kclass.c
                     10: */
                     11: #include <stdio.h>
                     12: #include "../datatype.h"
                     13: #include "../stackm.h"
                     14: #include "../extern.h"
                     15: #include "../gradedset.h"
                     16: #include "../extern2.h"
                     17: #include "../kclass.h"
                     18:
                     19:
                     20: /* Data conversion function : see KclassDataConversion*/
                     21: struct object KpoSampleClass(struct object *obp) {
                     22:   struct object rob;
                     23:   struct object *newobp;
                     24:   rob.tag = Sclass;
                     25:   rob.lc.ival = CLASSNAME_sampleClass;
                     26:   newobp = (struct object *) sGC_malloc(sizeof(struct object));
                     27:   /* Yes! You can call KpoSampleClass(&localVar) */
                     28:   if (newobp == NULL) errorKan1("%s\n","Kclass/sample.c, no more memory.");
                     29:   *newobp = *obp;
                     30:   rob.rc.voidp = newobp;
                     31:   return(rob);
                     32: }
                     33: /* cf. KopSampleClass() in kclass.h */
                     34:
                     35: /* Printing function : see fprintClass */
                     36: void fprintSampleClass(FILE *fp,struct object *op)
                     37: {
                     38:   printObject(*op,0,fp);
                     39: }
                     40:
                     41: /* Comparison function : see classEqualQ */
                     42: int eqSampleClass(struct object *ob1, struct object *ob2)
                     43: {
                     44:   return(KooEqualQ(*ob1,*ob2));
                     45: }
                     46:
                     47: /* Addition : see Kclass_ooAdd */
                     48:
                     49:
                     50:
                     51: