diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-10 16:57:33 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-10 16:57:33 +0000 |
| commit | 821c13ab8599fc6fea4c058d12d88b2aaa3d682c (patch) | |
| tree | 27d8926983c84ad0d69498478ee5a9801149738c /parsing | |
| parent | bd35666d45c7f9e811509d2e256e2ddce758a5ee (diff) | |
Passage des projections au niveau 1
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4349 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/egrammar.ml | 2 | ||||
| -rw-r--r-- | parsing/g_constrnew.ml4 | 10 |
2 files changed, 6 insertions, 6 deletions
diff --git a/parsing/egrammar.ml b/parsing/egrammar.ml index 54067bf5d..88c821167 100644 --- a/parsing/egrammar.ml +++ b/parsing/egrammar.ml @@ -57,7 +57,7 @@ let default_levels_v8 = 80,Gramext.RightA; 40,Gramext.LeftA; 10,Gramext.LeftA; - 9,Gramext.LeftA; + 9,Gramext.RightA; 1,Gramext.LeftA; 0,Gramext.RightA] diff --git a/parsing/g_constrnew.ml4 b/parsing/g_constrnew.ml4 index 9aed2b1d5..c34f82efa 100644 --- a/parsing/g_constrnew.ml4 +++ b/parsing/g_constrnew.ml4 @@ -153,7 +153,7 @@ GEXTEND Gram [ [ c = operconstr -> c ] ] ; constr: - [ [ c = operconstr LEVEL "9L" -> c ] ] + [ [ c = operconstr LEVEL "9" -> c ] ] ; tuple_constr: [ @@ -175,13 +175,13 @@ GEXTEND Gram | "10L" LEFTA [ f=operconstr; args=LIST1 appl_arg -> CApp(loc,(None,f),args) | "@"; f=global; args=LIST0 NEXT -> CAppExpl(loc,(None,f),args) ] - | "9L" LEFTA + | "9" [ ] + | "1L" LEFTA [ c=operconstr; ".("; f=global; args=LIST0 appl_arg; ")" -> CApp(loc,(Some (List.length args+1),CRef f),args@[c,None]) | c=operconstr; ".("; "@"; f=global; args=LIST0 NEXT; ")" -> - CAppExpl(loc,(Some (List.length args+1),f),args@[c]) ] - | "1L" LEFTA - [ c=operconstr; "%"; key=IDENT -> CDelimiters (loc,key,c) ] + CAppExpl(loc,(Some (List.length args+1),f),args@[c]) + | c=operconstr; "%"; key=IDENT -> CDelimiters (loc,key,c) ] | "0" [ c=atomic_constr -> c | c=match_constr -> c |