diff options
author | 2002-12-03 15:05:57 +0000 | |
---|---|---|
committer | 2002-12-03 15:05:57 +0000 | |
commit | 7a1636ec58c426059ff6864edd12868087b7f93c (patch) | |
tree | 54215ffb7943dbaeb95d3630f24fae5f711f7e72 /interp/topconstr.mli | |
parent | a9b09fd9c99307b3ffc9660ba53ce0460aeabece (diff) |
Préparation à la prise en compte des changements de scopes internes aux notations; bugs d'affichage (confusion key/scope dans les délimiteurs); bug de non-indépendance des règles d'affichage et parsing vis à vis du nom des variables de la notation
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3365 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/topconstr.mli')
-rw-r--r-- | interp/topconstr.mli | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/interp/topconstr.mli b/interp/topconstr.mli index 38c39fc9b..35f62478e 100644 --- a/interp/topconstr.mli +++ b/interp/topconstr.mli @@ -48,12 +48,14 @@ val aconstr_of_rawconstr : rawconstr -> aconstr (* [match_aconstr metas] match a rawconstr against an aconstr with metavariables in [metas]; it raises [No_match] if the matching fails *) exception No_match -val match_aconstr : - rawconstr -> (identifier list * aconstr) -> (identifier * rawconstr) list - -(*s Concrete syntax for terms *) type scope_name = string +type interpretation = (identifier * scope_name list) list * aconstr + +val match_aconstr : rawconstr -> interpretation -> + (rawconstr * scope_name list) list + +(*s Concrete syntax for terms *) type notation = string @@ -84,7 +86,7 @@ type constr_expr = | CMeta of loc * int | CSort of loc * rawsort | CCast of loc * constr_expr * constr_expr - | CNotation of loc * notation * (identifier * constr_expr) list + | CNotation of loc * notation * constr_expr list | CNumeral of loc * Bignat.bigint | CDelimiters of loc * string * constr_expr | CDynamic of loc * Dyn.t |