===================================================================
RCS file: /home/cvs/OpenXM/src/ox_math/Attic/parse.h,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- OpenXM/src/ox_math/Attic/parse.h	1999/10/29 08:06:42	1.1
+++ OpenXM/src/ox_math/Attic/parse.h	1999/11/02 06:11:58	1.2
@@ -1,6 +1,6 @@
 /* -*- mode: C; coding: euc-japan -*- */
 /* $OpenXM$ */
-/* $Id: parse.h,v 1.1 1999/10/29 08:06:42 ohara Exp $ */
+/* $Id: parse.h,v 1.2 1999/11/02 06:11:58 ohara Exp $ */
 
 #ifndef _PARSE_H_
 
@@ -8,46 +8,26 @@
 
 #define _PARSE_H_
 
-/* トークンを定義する */
-/* 2048 より小さいのは特別なもの */
+/* トークンの定義 */
+/* 256 より小さいものは、一文字だけのトークンである */
 
 #define T_INTEGER       257
 #define T_STRING        258
-
 #define T_MAGIC         2048
+#define TOKEN(x)        (T_MAGIC + (x))
 
-#define T_CMO_NULL      (T_MAGIC + CMO_NULL)
-#define T_CMO_INT32     (T_MAGIC + CMO_INT32)
-#define T_CMO_STRING    (T_MAGIC + CMO_STRING)
-#define T_CMO_LIST      (T_MAGIC + CMO_LIST)
-#define T_CMO_ZZ        (T_MAGIC + CMO_ZZ)
-#define T_CMO_ZERO      (T_MAGIC + CMO_ZERO)
-#define T_CMO_DATUM     (T_MAGIC + CMO_DATUM)
-#define T_CMO_ERROR2    (T_MAGIC + CMO_ERROR2)
+/* トークンの種類を判定するためのマクロ */
+#define MIN_T_CMO     TOKEN(0)
+#define MAX_T_CMO     TOKEN(256)
+#define MIN_T_SM      TOKEN(256)
+#define MAX_T_SM      TOKEN(1100)
+#define MIN_T_OX      TOKEN(512)
+#define MAX_T_OX      TOKEN(600)
 
-#define T_SM_popCMO     (T_MAGIC + SM_popCMO)
-#define T_SM_popString  (T_MAGIC + SM_popString)
-#define T_SM_mathcap    (T_MAGIC + SM_mathcap)
-#define T_SM_pops       (T_MAGIC + SM_pops)
-#define T_SM_executeStringByLocalParser    (T_MAGIC + SM_executeStringByLocalParser)
-#define T_SM_executeFunction    (T_MAGIC + SM_executeFunction)
-#define T_SM_setMathcap         (T_MAGIC + SM_setMathcap)
-#define T_SM_control_kill       (T_MAGIC + SM_control_kill)
-#define T_SM_control_reset_connection    (T_MAGIC + SM_control_reset_connection)
+#define PFLAG_ADDREV   1
+int setflag_parse(int flag);
 
-#define T_OX_COMMAND    (T_MAGIC + OX_COMMAND)
-#define T_OX_DATA       (T_MAGIC + OX_DATA)
-
-/* lexical analyzer で用いる属性値の共用体の定義 */
-typedef union{
-    int   d;
-    char* sym;
-} lex_value_t;
-
-int lex();
 cmo *parse();
-
-int cmo_addrev;  /* CMO の省略記法を許すか否かのフラグ */
 
 int setgetc(int (*foo)());
 int resetgetc();