diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-04-15 16:09:04 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-04-15 16:09:04 +0000 |
| commit | 18214ca9f822ed39bb5ecf48f27f119508b97d28 (patch) | |
| tree | f227040a4d4506a2ed386dfd35ab9dec0628f360 /plugins/extraction/common.mli | |
| parent | 0fa64b47f270f9d31d32d499c0f9f8c23f370124 (diff) | |
Extraction: allow extracting Ascii.ascii to native Char in Haskell (fix #2515)
We simply factorize code that was already existing for Ocaml.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14011 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/extraction/common.mli')
| -rw-r--r-- | plugins/extraction/common.mli | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/plugins/extraction/common.mli b/plugins/extraction/common.mli index 7fc3279af..1d8fe77ab 100644 --- a/plugins/extraction/common.mli +++ b/plugins/extraction/common.mli @@ -60,3 +60,14 @@ type reset_kind = AllButExternal | Everything val reset_renaming_tables : reset_kind -> unit val set_keywords : Idset.t -> unit + +(** For instance: [mk_ind "Coq.Init.Datatypes" "nat"] *) + +val mk_ind : string -> string -> mutual_inductive + +(** Special hack for constants of type Ascii.ascii : if an + [Extract Inductive ascii => char] has been declared, then + the constants are directly turned into chars *) + +val is_native_char : ml_ast -> bool +val pp_native_char : ml_ast -> std_ppcmds |