===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/stackm.h,v
retrieving revision 1.3
retrieving revision 1.7
diff -u -p -r1.3 -r1.7
--- OpenXM/src/kan96xx/Kan/stackm.h	2003/11/20 09:20:36	1.3
+++ OpenXM/src/kan96xx/Kan/stackm.h	2004/09/16 23:53:44	1.7
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/stackm.h,v 1.2 2000/01/16 07:55:41 takayama Exp $ */
+/* $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/"
 /* Do not forget to put / at the tail.
    "/usr/local/lib/sm1" does not work.
@@ -98,6 +98,7 @@ struct tokens{
   char *token;
   int kind;
   struct object object;
+  int tflag;
 };
 
 /* used in kind of tokens */ 
@@ -106,6 +107,8 @@ struct tokens{
 #define EXECUTABLE_STRING 4 /* strings enclosed by {} */
 #define EXECUTABLE_ARRAY  8
 
+/* Used in tflag of tokens, bit wise */
+#define NO_DELAY  0x2
 
 
 /********** macros to use Sarray **********************/
@@ -130,12 +133,19 @@ if ((ob).tag != Sarray) {fprintf(stderr,"Warning: PUTO
 #define isNullList(list) ((struct object *)NULL == list)
 #define NULLLIST (struct object *)NULL
 
-/* for dictionary */
+/* For dictionary, flag bit */
 #define SET_ATTR_FOR_ALL_WORDS 0x10
+#define OR_ATTR_FOR_ALL_WORDS  0x20
 #define PROTECT 0x1
 #define ABSOLUTE_PROTECT 0x2
+#define ATTR_INFIX       0x4
+#define ATTR_EXPORT      0x8
 
-#define DO_QUOTE 9999
+/* 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;