From 0f4f723a5608075ff4aa48290314df30843efbcb Mon Sep 17 00:00:00 2001 From: corbinea Date: Wed, 20 Sep 2006 17:18:18 +0000 Subject: Declarative Proof Language: main commit git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9154 85f007b7-540e-0410-9357-904b9bb8a0f7 --- interp/constrintern.ml | 8 ++++++++ interp/constrintern.mli | 8 ++++++++ 2 files changed, 16 insertions(+) (limited to 'interp') diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 76d0a1bf6..8e5faf01d 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -1073,6 +1073,14 @@ let intern_gen isarity sigma env let intern_constr sigma env c = intern_gen false sigma env c +let intern_pattern env patt = + try + intern_cases_pattern env [] ([],[]) None patt + with + InternalisationError (loc,e) -> + user_err_loc (loc,"internalize",explain_internalisation_error e) + + let intern_ltac isarity ltacvars sigma env c = intern_gen isarity sigma env ~ltacvars:ltacvars c diff --git a/interp/constrintern.mli b/interp/constrintern.mli index 4603565e3..12aaeec17 100644 --- a/interp/constrintern.mli +++ b/interp/constrintern.mli @@ -55,6 +55,14 @@ val intern_gen : bool -> evar_map -> env -> ?impls:full_implicits_env -> ?allow_soapp:bool -> ?ltacvars:ltac_sign -> constr_expr -> rawconstr +val intern_pattern : env -> cases_pattern_expr -> + Names.identifier list * + ((Names.identifier * Names.identifier) list * Rawterm.cases_pattern) list + +val intern_pattern : env -> cases_pattern_expr -> + Names.identifier list * + ((Names.identifier * Names.identifier) list * Rawterm.cases_pattern) list + (*s Composing internalisation with pretyping *) (* Main interpretation function *) -- cgit v1.2.3