diff options
| author | letouzey | 2001-09-18 17:19:09 +0000 |
|---|---|---|
| committer | letouzey | 2001-09-18 17:19:09 +0000 |
| commit | f494f444ca06a573713aede990ba93a58ea4cf13 (patch) | |
| tree | d6d66b1c526fcba989462ab3da0a6b1babb24a8d /contrib/extraction/ocaml.mli | |
| parent | 0e3358ba241414b2ec2c3448498a9fa69b2245e1 (diff) | |
travail sur le Extract Constant
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1986 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/extraction/ocaml.mli')
| -rw-r--r-- | contrib/extraction/ocaml.mli | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/contrib/extraction/ocaml.mli b/contrib/extraction/ocaml.mli index 6ab76aded6..e1325d4814 100644 --- a/contrib/extraction/ocaml.mli +++ b/contrib/extraction/ocaml.mli @@ -13,6 +13,7 @@ open Pp open Miniml open Names +open Term val string : string -> std_ppcmds val open_par : bool -> std_ppcmds @@ -24,6 +25,14 @@ val push_vars : identifier list -> identifier list * Idset.t -> val current_module : identifier option ref +val module_of_r : global_reference -> module_ident + +val string_of_r : global_reference -> string + +val check_ml : global_reference -> string -> string + +val module_option : global_reference -> string + (*s Production of Ocaml syntax. We export both a functor to be used for extraction in the Coq toplevel and a function to extract some declarations to a file. *) @@ -33,6 +42,7 @@ open Mlutil module Make : functor(P : Mlpp_param) -> Mlpp val current_module : Names.identifier option ref -val extract_to_file : string -> extraction_params -> ml_decl list -> unit +val extract_to_file : + string -> extraction_params -> ml_decl list -> global_reference list -> unit |