version 1.7, 2004/09/16 23:53:44 |
version 1.12, 2005/07/18 10:55:16 |
|
|
/* $OpenXM: OpenXM/src/kan96xx/Kan/stackm.h,v 1.6 2004/09/12 00:26:21 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/stackm.h,v 1.11 2005/06/16 05:07:23 takayama Exp $ */ |
#define LOAD_SM1_PATH "/usr/local/lib/sm1/" |
#define LOAD_SM1_PATH "/usr/local/lib/sm1/" |
/* Do not forget to put / at the tail. |
/* Do not forget to put / at the tail. |
"/usr/local/lib/sm1" does not work. |
"/usr/local/lib/sm1" does not work. |
|
|
#define SrationalFunction 16 |
#define SrationalFunction 16 |
#define Sclass 17 /* class, for extension */ |
#define Sclass 17 /* class, for extension */ |
#define Sdouble 18 |
#define Sdouble 18 |
|
#define SbyteArray 19 |
|
|
#define TYPES 19 /* number of data types. */ |
#define TYPES 20 /* number of data types. */ |
/* NOTE! If you change the above, you need to change mklookup.c too. */ |
/* NOTE! If you change the above, you need to change mklookup.c too. */ |
/* Change also dr.sm1 : datatype constants. */ |
/* Change also dr.sm1 : datatype constants. */ |
|
|
|
|
struct coeff *universalNumber; |
struct coeff *universalNumber; |
void *voidp; |
void *voidp; |
double *dbl; |
double *dbl; |
|
unsigned char *bytes; |
}; |
}; |
|
|
struct object{ |
struct object{ |
int tag; /* class identifier */ |
int tag; /* class identifier */ |
union cell lc; /* left cell */ |
union cell lc; /* left cell */ |
union cell rc; /* right cell */ |
union cell rc; /* right cell */ |
|
struct object *attr; /* Attribute list. See misc-2005/06/gfan/test1.sm1 |
|
as to performance test. */ |
}; |
}; |
|
|
|
#define OINIT { .attr = NULL} |
|
|
struct dictionary { |
struct dictionary { |
char *key; |
char *key; |
int h0; /* Value of hash functions */ |
int h0; /* Value of hash functions */ |
Line 149 if ((ob).tag != Sarray) {fprintf(stderr,"Warning: PUTO |
|
Line 155 if ((ob).tag != Sarray) {fprintf(stderr,"Warning: PUTO |
|
|
|
typedef enum {CCPUSH,CCPOP,CCRESTORE} actionOfContextControl; |
typedef enum {CCPUSH,CCPOP,CCRESTORE} actionOfContextControl; |
|
|
|
#define SCANNERBUF_SIZE 240 |