diff options
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 |