| 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; |
| |
|