diff options
| author | herbelin | 2003-01-19 22:06:34 +0000 |
|---|---|---|
| committer | herbelin | 2003-01-19 22:06:34 +0000 |
| commit | 4dc7a3eb4ac669ead5ee4a1986c4a2310ffda911 (patch) | |
| tree | 0d95d879f4d26f88081241f38f31d64f59a40a56 /contrib | |
| parent | e70ae0ceeadafc703f01909aeb19273b28e6caef (diff) | |
Restructuration interpréteur de tactique: plus d'évaluation partielle à la définition; suppression TacFunRec, VClosure, VFTactic et VContext; davantage de globalisation statique (notamment pour les tactiques mutuellement récursives); débogueur plus informatif
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3532 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/field/field.ml4 | 11 | ||||
| -rw-r--r-- | contrib/xml/xmlentries.ml4 | 8 |
2 files changed, 8 insertions, 11 deletions
diff --git a/contrib/field/field.ml4 b/contrib/field/field.ml4 index 12be9a651e..49a187caa2 100644 --- a/contrib/field/field.ml4 +++ b/contrib/field/field.ml4 @@ -100,10 +100,10 @@ open Genarg let wit_minus_div_arg, rawwit_minus_div_arg = Genarg.create_arg "minus_div_arg" let minus_div_arg = create_generic_entry "minus_div_arg" rawwit_minus_div_arg let _ = Tacinterp.add_genarg_interp "minus_div_arg" - (fun ist x -> + (fun ist gl x -> (in_gen wit_minus_div_arg (out_gen (wit_pair (wit_opt wit_constr) (wit_opt wit_constr)) - (Tacinterp.genarg_interp ist + (Tacinterp.genarg_interp ist gl (in_gen (wit_pair (wit_opt rawwit_constr) (wit_opt rawwit_constr)) (out_gen rawwit_minus_div_arg x)))))) @@ -134,11 +134,8 @@ END (* Guesses the type and calls Field_Gen with the right theory *) let field g = Library.check_required_library ["Coq";"field";"Field"]; - let evc = project g - and env = pf_env g in - let ist = { evc=evc; env=env; lfun=[]; lmatch=[]; - goalopt=Some g; debug=get_debug () } in - let typ = constr_of_VConstr (val_interp ist + let ist = { lfun=[]; lmatch=[]; debug=get_debug () } in + let typ = constr_of_VConstr (pf_env g) (val_interp ist g <:tactic< Match Context With | [|- (eq ?1 ? ?)] -> ?1 diff --git a/contrib/xml/xmlentries.ml4 b/contrib/xml/xmlentries.ml4 index 6988f789ee..bcfcbd2ff6 100644 --- a/contrib/xml/xmlentries.ml4 +++ b/contrib/xml/xmlentries.ml4 @@ -35,10 +35,10 @@ open Pcoq;; let wit_filename, rawwit_filename = Genarg.create_arg "filename" let filename = Pcoq.create_generic_entry "filename" rawwit_filename let _ = Tacinterp.add_genarg_interp "filename" - (fun ist x -> + (fun ist gl x -> (in_gen wit_filename (out_gen (wit_opt wit_string) - (Tacinterp.genarg_interp ist + (Tacinterp.genarg_interp ist gl (in_gen (wit_opt rawwit_string) (out_gen rawwit_filename x)))))) @@ -59,10 +59,10 @@ let _ = let wit_diskname, rawwit_diskname = Genarg.create_arg "diskname" let diskname = create_generic_entry "diskname" rawwit_diskname let _ = Tacinterp.add_genarg_interp "diskname" - (fun ist x -> + (fun ist gl x -> (in_gen wit_diskname (out_gen (wit_opt wit_string) - (Tacinterp.genarg_interp ist + (Tacinterp.genarg_interp ist gl (in_gen (wit_opt rawwit_string) (out_gen rawwit_diskname x)))))) |