===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/parse/kwd.c,v
retrieving revision 1.3
retrieving revision 1.17
diff -u -p -r1.3 -r1.17
--- OpenXM_contrib2/asir2000/parse/kwd.c	2000/08/22 05:04:27	1.3
+++ OpenXM_contrib2/asir2000/parse/kwd.c	2018/03/29 01:32:54	1.17
@@ -45,32 +45,43 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2000/parse/kwd.c,v 1.2 2000/08/21 08:31:47 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/parse/kwd.c,v 1.16 2015/08/14 13:51:56 fujimoto Exp $ 
 */
 #include "ca.h"
 #include "parse.h"
+#if defined(VISUAL) || defined(__MINGW32__)
+#include "ytab.h"
+#else
 #include "y.tab.h"
+#endif
 
 struct oTKWD kwd[] = {
-	{"for",FOR},
-	{"while",WHILE},
-	{"do",DO},
-	{"if",IF},
-	{"else",ELSE},
-	{"break",BREAK},
-	{"continue",CONTINUE},
-	{"return",RETURN},
-	{"def",FDEF},
-	{"pfdef",PFDEF},
-	{"global",GLOBAL},
-	{"extern",GLOBAL},
-	{"struct",STRUCT},
-	{"newstruct",NEWSTRUCT},
-	{"car",CAR},
-	{"cdr",CDR},
-	{"pari",PARIF},
-	{"map",MAP},
-	{"getopt",GETOPT},
-	{"timer",TIMER},
-	{0,0}
+  {"for",FOR},
+  {"while",WHILE},
+  {"do",DO},
+  {"if",IF},
+  {"else",ELSE},
+  {"break",BREAK},
+  {"continue",CONTINUE},
+  {"return",RETURN},
+  {"def",FDEF},
+  {"function",PFDEF},
+  {"module",MODDEF},
+  {"endmodule",MODEND},
+  {"global",GLOBAL},
+  {"extern",GLOBAL},
+  {"static",MGLOBAL},
+  {"local",LOCAL},
+  {"localf",LOCALF},
+  {"struct",STRUCT},
+  {"newstruct",NEWSTRUCT},
+  {"car",CAR},
+  {"cdr",CDR},
+  {"pari",PARIF},
+  {"map",MAP},
+  {"recmap",RECMAP},
+  {"getopt",GETOPT},
+  {"timer",TIMER},
+  {"quote",QUOTED},
+  {0,0}
 };