Support extraction of Coq's string type to OCaml's string type

Instead of the default extraction to OCaml's "char list" type.

1 files changed, 8 insertions, 0 deletions

diff --git a/plugins/extraction/common.mli b/plugins/extraction/common.mli
index e4e9c4c527..d13ac7926a 100644
--- a/plugins/extraction/common.mli
+++ b/plugins/extraction/common.mli
@@ -81,3 +81,11 @@ val mk_ind : string -> string -> MutInd.t
 val is_native_char : ml_ast -> bool
 val get_native_char : ml_ast -> char
 val pp_native_char : ml_ast -> Pp.t
+
+(** Special hack for constants of type String.string : if an
+    [Extract Inductive string => string] has been declared, then
+    the constants are directly turned into string literals *)
+
+val is_native_string : ml_ast -> bool
+val get_native_string : ml_ast -> string
+val pp_native_string : ml_ast -> Pp.t