[r2004-01-15 08:53:38 by afrisch] Missing keywords for schemas

Original author: afrisch
Date: 2004-01-15 08:53:38+00:00

parser/parser.ml

@@ -193,7 +193,7 @@ EXTEND
 	| "transform" | "fun" | "in"
 	| "let" | "type" | "debug" | "include"
         | "and" | "validate" | "schema" | "namespace" | "ref" | "using"
-	| "not"
+	| "not" | "as"
 	]
 	-> a
     ]
@@ -460,11 +460,11 @@ EXTEND
   ];
 
   schema_kind : [
-    [ "element" -> `Element
-    | "type" -> `Type
-    | "attribute" -> `Attribute
-    | "attribute_group" -> `Attribute_group
-    | "model_group" -> `Model_group
+    [ IDENT "element" -> `Element
+    | IDENT "type" -> `Type
+    | IDENT "attribute" -> `Attribute
+    | IDENT "attribute_group" -> `Attribute_group
+    | IDENT "model_group" -> `Model_group
     ]
   ];