Return to stackm.h CVS log

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

Annotation of OpenXM/src/kan96xx/Kan/stackm.h, Revision 1.1.1.1

1.1       maekawa     1: #define LOAD_SM1_PATH "/usr/local/lib/sm1/"
                      2: /* Do not forget to put / at the tail.
                      3:    "/usr/local/lib/sm1" does not work.
                      4: */
                      5:
                      6:
                      7: /******************* stackm.h ******************************/
                      8: #include <setjmp.h>
                      9:
                     10:
                     11:
                     12: /**** data types (class identifiers) ************/
                     13: /* Never change the following orders.
                     14:    If you add a new class, add that class at the bottom and give the
                     15:    max number. */
                     16: #define Snull             0
                     17: #define Sinteger          1     /* integer */
                     18: #define Sstring           2     /* pointer to a string */
                     19: #define SexecutableArray  3     /* executable array */
                     20: #define Soperator         4     /* operators defined in the system dic */
                     21: #define Sdollar           5     /* pointer to a string obtained from $...$ */
                     22: #define Sarray            6     /* lc.ival is the size of array,
                     23:                                   (rc.op)[0], ..., (rc.op)[k] is the array
                     24:                                   of object */
                     25: #define SleftBraceTag    7     /* [ */
                     26: #define SrightBraceTag   8     /* ] */
                     27: #define Spoly            9
                     28: #define SarrayOfPOLY     10
                     29: #define SmatrixOfPOLY    11
                     30: #define Slist            12   /* list of object */
                     31: #define Sfile            13
                     32: #define Sring            14
                     33: #define SuniversalNumber 15
                     34: #define SrationalFunction 16
                     35: #define Sclass          17   /* class, for extension */
                     36: #define Sdouble         18
                     37:
                     38: #define TYPES            19   /* number of data types. */
                     39: /* NOTE! If you change the above, you need to change mklookup.c too. */
                     40: /* Change also dr.sm1 : datatype constants. */
                     41:
                     42: #define     CMO   1024    /* cf. plugin cmo.h. Object tag used in cmo. */
                     43: /*  CMO --- CMO+1024*3
                     44:     CMO + LARGEID ( cf.cmo.h ) --- CMO + LARGEID+256
                     45:     CMO + PRIVATEID ( cf.cmo.h ) --- CMO + PRIVATEID+256
                     46:     are reserved area.
                     47: */
                     48:
                     49: typedef struct object * objectp;
                     50: /*********** fundamental data types ****************/
                     51: union cell {
                     52:   int ival;
                     53:   char *str;
                     54:   struct object *op;
                     55:   POLY poly;
                     56:   struct arrayOfPOLY *arrayp;
                     57:   struct matrixOfPOLY *matrixp;
                     58:   struct tokens *tokenArray;
                     59:   FILE *file;
                     60:   struct ring *ringp;
                     61:   struct coeff *universalNumber;
                     62:   void *voidp;
                     63:   double *dbl;
                     64: };
                     65:
                     66: struct object{
                     67:   int tag;                /* class identifier */
                     68:   union cell lc;          /* left cell */
                     69:   union cell rc;          /* right cell */
                     70: };
                     71:
                     72: struct dictionary {
                     73:   char *key;
                     74:   int h0; /* Value of hash functions */
                     75:   int h1;
                     76:   struct object obj;
                     77:   int attr;
                     78: };
                     79:
                     80: struct operandStack {
                     81:   struct object *ostack;
                     82:   int sp;
                     83:   int size;
                     84: };
                     85:
                     86: struct context {
                     87:   struct dictionary *userDictionary;
                     88:   struct context *super;
                     89:   char *contextName;
                     90:   struct operandStack *mystack; /* It is not used for now. */
                     91: };
                     92:
                     93: /* for the scanner */
                     94: typedef enum {INIT,GET,PUT,OPEN} actionType;
                     95:
                     96: struct tokens{
                     97:   char *token;
                     98:   int kind;
                     99:   struct object object;
                    100: };
                    101:
                    102: /* used in kind of tokens */
                    103: #define ID   2
                    104: #define DOLLAR 3   /* strings enclosed by dollar sign */
                    105: #define EXECUTABLE_STRING 4 /* strings enclosed by {} */
                    106: #define EXECUTABLE_ARRAY  8
                    107:
                    108:
                    109:
                    110: /********** macros to use Sarray **********************/
                    111: /* put to Object Array */
                    112: #define putoa(ob,i,cc) {\
                    113: if ((ob).tag != Sarray) {fprintf(stderr,"Warning: PUTOA is for an array of objects\n");} else \
                    114: {if ((0 <= (i)) && ((i) < (ob).lc.ival)) {\
                    115:   (ob.rc.op)[i] = cc;\
                    116: }else{\
                    117:   fprintf(stderr,"Warning: PUTOA, the size is %d.\n",(ob).lc.ival);\
                    118: }}}
                    119:
                    120: #define getoa(ob,i) ((ob.rc.op)[i])
                    121:
                    122: #define getoaSize(ob) ((ob).lc.ival)
                    123:
                    124: #define isObjectArray(ob) ((ob).tag == Sarray)
                    125:
                    126: #define isDollar(ob) ((ob).tag == Sdollar)
                    127:
                    128: /******** macros for lists ************/
                    129: #define isNullList(list) ((struct object *)NULL == list)
                    130: #define NULLLIST (struct object *)NULL
                    131:
                    132: /* for dictionary */
                    133: #define SET_ATTR_FOR_ALL_WORDS 0x10
                    134: #define PROTECT 0x1
                    135: #define ABSOLUTE_PROTECT 0x2
                    136:
                    137: typedef enum {CCPUSH,CCPOP,CCRESTORE} actionOfContextControl;
                    138: