mise en place extraction

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1339 85f007b7-540e-0410-9357-904b9bb8a0f7

3 files changed, 63 insertions, 0 deletions

diff --git a/contrib/extraction/extraction.ml b/contrib/extraction/extraction.ml
new file mode 100644
index 000000000..f7ff1af88
--- /dev/null
+++ b/contrib/extraction/extraction.ml
@@ -0,0 +1,11 @@
+
+(*i $Id$ i*)
+
+open Names
+open Term
+open Miniml
+
+let extract spl = 
+  failwith "TODO"
+
+
diff --git a/contrib/extraction/extraction.mli b/contrib/extraction/extraction.mli
new file mode 100644
index 000000000..71c9c9be2
--- /dev/null
+++ b/contrib/extraction/extraction.mli
@@ -0,0 +1,8 @@
+
+(*i $Id$ i*)
+
+open Names
+open Miniml
+
+val extract : section_path list -> ml_decl list
+
diff --git a/contrib/extraction/miniml.mli b/contrib/extraction/miniml.mli
new file mode 100644
index 000000000..2a2a5c83d
--- /dev/null
+++ b/contrib/extraction/miniml.mli
@@ -0,0 +1,44 @@
+
+(*i $Id$ i*)
+
+open Names
+
+(* identifiers of type are either parameters or type names. *)
+
+type ml_typeid = 
+  | Tparam of identifier
+  | Tname  of identifier
+
+(* ML type expressions. *)
+
+type ml_type = 
+  | Tvar  of ml_typeid
+  | Tapp  of ml_type list
+  | Tarr  of ml_type * ml_type
+  | Tglob of identifier
+      
+(* ML inductive types. *)
+
+type ml_ind = identifier list * identifier * (identifier * ml_type list) list
+
+(* ML terms. *)
+
+type ml_ast = 
+  | MLrel   of int
+  | MLapp   of ml_ast * ml_ast list
+  | MLlam   of identifier * ml_ast
+  | MLglob  of identifier
+  | MLcons  of int * identifier * ml_ast list
+  | MLcase  of ml_ast * (identifier * identifier list * ml_ast) array
+  | MLfix   of int * bool * (identifier list) * (ml_ast list)
+  | MLexn   of identifier
+  | MLcast  of ml_ast * ml_type
+  | MLmagic of ml_ast
+
+(* ML declarations. *)
+
+type ml_decl = 
+  | Dtype   of ml_ind list
+  | Dabbrev of identifier * (identifier list) * ml_type
+  | Dglob   of identifier * ml_ast
+