From 063fbe9077e6b75f327dd105774c3b3b77bda5c9 Mon Sep 17 00:00:00 2001 From: Pierre Letouzey Date: Wed, 5 Mar 2014 20:18:58 +0100 Subject: Extraction : some more support functions for a future "Extraction Compute" --- plugins/extraction/extraction.mli | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'plugins/extraction/extraction.mli') diff --git a/plugins/extraction/extraction.mli b/plugins/extraction/extraction.mli index 8d3cf76fd..940e264c4 100644 --- a/plugins/extraction/extraction.mli +++ b/plugins/extraction/extraction.mli @@ -18,6 +18,8 @@ val extract_constant : env -> constant -> constant_body -> ml_decl val extract_constant_spec : env -> constant -> constant_body -> ml_spec +(** For extracting "module ... with ..." declaration *) + val extract_with_type : env -> constr -> ( Id.t list * ml_type ) option val extract_fixpoint : @@ -25,6 +27,10 @@ val extract_fixpoint : val extract_inductive : env -> mutual_inductive -> ml_ind +(** For extraction compute *) + +val extract_constr : env -> constr -> ml_ast * ml_type + (*s Is a [ml_decl] or a [ml_spec] logical ? *) val logical_decl : ml_decl -> bool -- cgit v1.2.3