diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-07 10:47:25 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-07 10:47:25 +0000 |
| commit | c803556c297d40d96e6730ab334b5b7e826f4d77 (patch) | |
| tree | aa118c4bca829b630aef51796fbbc9cf40003c2d /parsing | |
| parent | 30de194fa897bb44858c92dd458041bb2d2df9fe (diff) | |
Changement/extension dans les noms de parseurs de Grammar
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@814 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_prim.ml4 | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/parsing/g_prim.ml4 b/parsing/g_prim.ml4 index 30897a359..8951e94a8 100644 --- a/parsing/g_prim.ml4 +++ b/parsing/g_prim.ml4 @@ -67,12 +67,20 @@ GEXTEND Gram [[ p = astlist; "->"; a = action -> Node(loc,"CASE",[p;a]) ]] ; entry_type: - [[ ":"; IDENT "AstList" -> + [[ ":"; IDENT "ast"; IDENT "list" -> let _ = set_default_action_parser astlist in Id(loc,"LIST") | ":"; IDENT "List" -> (* For compatibility *) let _ = set_default_action_parser astlist in Id(loc,"LIST") - | ":"; IDENT "Ast" -> + | ":"; IDENT "list" -> (* For compatibility *) + let _ = set_default_action_parser astlist in Id(loc,"LIST") + | ":"; IDENT "ast" -> let _ = set_default_action_parser ast in Id(loc,"AST") + | ":"; IDENT "constr" -> + let _ = set_default_action_parser Constr.constr in Id(loc,"AST") + | ":"; IDENT "tactic" -> + let _ = set_default_action_parser Tactic.tactic in Id(loc,"AST") + | ":"; IDENT "vernac" -> + let _ = set_default_action_parser Vernac.vernac in Id(loc,"AST") | -> Id(loc,"AST") ]] ; END |