diff options
| author | herbelin | 2004-03-02 09:13:39 +0000 |
|---|---|---|
| committer | herbelin | 2004-03-02 09:13:39 +0000 |
| commit | debb95371036f93504cfd49dc74839a9c7ed604e (patch) | |
| tree | 804938a0fcf4d6299bb0d6ae4315a64c08825bc6 /interp | |
| parent | 26d73ca5440e45d7832935876fa8acdea6277df5 (diff) | |
Ajout d'une entrée hyp de type HypArgType pour parser et interpréter les noms d'hypothèses
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5419 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/genarg.ml | 5 | ||||
| -rw-r--r-- | interp/genarg.mli | 10 |
2 files changed, 13 insertions, 2 deletions
diff --git a/interp/genarg.ml b/interp/genarg.ml index 4ef21df452..d4df7de863 100644 --- a/interp/genarg.ml +++ b/interp/genarg.ml @@ -26,6 +26,7 @@ type argument_type = | PreIdentArgType | IntroPatternArgType | IdentArgType + | HypArgType | RefArgType (* Specific types *) | SortArgType @@ -115,6 +116,10 @@ let rawwit_ident = IdentArgType let globwit_ident = IdentArgType let wit_ident = IdentArgType +let rawwit_var = HypArgType +let globwit_var = HypArgType +let wit_var = HypArgType + let rawwit_ref = RefArgType let globwit_ref = RefArgType let wit_ref = RefArgType diff --git a/interp/genarg.mli b/interp/genarg.mli index 18f1e33fbc..343366ecb0 100644 --- a/interp/genarg.mli +++ b/interp/genarg.mli @@ -61,9 +61,10 @@ BoolArgType bool bool IntArgType int int IntOrVarArgType int or_var int StringArgType string (parsed w/ "") string -PreIdentArgType string (parsed w/o "") string -IdentArgType identifier identifier +PreIdentArgType string (parsed w/o "") (vernac only) +IdentArgType identifier identifier IntroPatternArgType intro_pattern_expr intro_pattern_expr +VarArgType identifier constr RefArgType reference global_reference ConstrArgType constr_expr constr ConstrMayEvalArgType constr_expr may_eval constr @@ -107,6 +108,10 @@ val rawwit_ident : (identifier,'co,'ta) abstract_argument_type val globwit_ident : (identifier,'co,'ta) abstract_argument_type val wit_ident : (identifier,'co,'ta) abstract_argument_type +val rawwit_var : (identifier located,'co,'ta) abstract_argument_type +val globwit_var : (identifier located,'co,'ta) abstract_argument_type +val wit_var : ('co,'co,'ta) abstract_argument_type + val rawwit_ref : (reference,constr_expr,'ta) abstract_argument_type val globwit_ref : (global_reference located or_var,rawconstr_and_expr,'ta) abstract_argument_type val wit_ref : (global_reference,constr,'ta) abstract_argument_type @@ -214,6 +219,7 @@ type argument_type = | PreIdentArgType | IntroPatternArgType | IdentArgType + | HypArgType | RefArgType (* Specific types *) | SortArgType |