version 1.1, 1999/10/08 02:12:01 |
version 1.7, 2004/09/16 23:53:44 |
|
|
|
/* $OpenXM: OpenXM/src/kan96xx/Kan/stackm.h,v 1.6 2004/09/12 00:26:21 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. |
|
|
char *token; |
char *token; |
int kind; |
int kind; |
struct object object; |
struct object object; |
|
int tflag; |
}; |
}; |
|
|
/* used in kind of tokens */ |
/* used in kind of tokens */ |
|
|
#define EXECUTABLE_STRING 4 /* strings enclosed by {} */ |
#define EXECUTABLE_STRING 4 /* strings enclosed by {} */ |
#define EXECUTABLE_ARRAY 8 |
#define EXECUTABLE_ARRAY 8 |
|
|
|
/* Used in tflag of tokens, bit wise */ |
|
#define NO_DELAY 0x2 |
|
|
|
|
/********** macros to use Sarray **********************/ |
/********** macros to use Sarray **********************/ |
Line 129 if ((ob).tag != Sarray) {fprintf(stderr,"Warning: PUTO |
|
Line 133 if ((ob).tag != Sarray) {fprintf(stderr,"Warning: PUTO |
|
#define isNullList(list) ((struct object *)NULL == list) |
#define isNullList(list) ((struct object *)NULL == list) |
#define NULLLIST (struct object *)NULL |
#define NULLLIST (struct object *)NULL |
|
|
/* for dictionary */ |
/* For dictionary, flag bit */ |
#define SET_ATTR_FOR_ALL_WORDS 0x10 |
#define SET_ATTR_FOR_ALL_WORDS 0x10 |
|
#define OR_ATTR_FOR_ALL_WORDS 0x20 |
#define PROTECT 0x1 |
#define PROTECT 0x1 |
#define ABSOLUTE_PROTECT 0x2 |
#define ABSOLUTE_PROTECT 0x2 |
|
#define ATTR_INFIX 0x4 |
|
#define ATTR_EXPORT 0x8 |
|
|
|
/* For status, flag bit */ |
|
#define STATUS_EOF -1 |
|
#define STATUS_BREAK 0x1 |
|
#define STATUS_INFIX 0x2 |
|
#define DO_QUOTE 0x10 |
|
|
typedef enum {CCPUSH,CCPOP,CCRESTORE} actionOfContextControl; |
typedef enum {CCPUSH,CCPOP,CCRESTORE} actionOfContextControl; |
|
|