From 5d5a92c9d6da1c1b23ca64e40c17e9c5f4772daa Mon Sep 17 00:00:00 2001 From: letouzey Date: Fri, 30 Apr 2010 14:33:42 +0000 Subject: Extraction: an experimental command to get rid of some cst/constructor arguments The command : Extraction Implicit foo [1 3]. will tell the extraction to consider fst and third arg of foo as implicit, and remove them, unless a final occur-check after extraction shows they are still there. Here, foo can be a inductive constructor or a global constant. This allow typicaly to extract vectors into usual list :-) git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12982 85f007b7-540e-0410-9357-904b9bb8a0f7 --- plugins/extraction/g_extraction.ml4 | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'plugins/extraction/g_extraction.ml4') diff --git a/plugins/extraction/g_extraction.ml4 b/plugins/extraction/g_extraction.ml4 index 60a2e91a2..f8354f52e 100644 --- a/plugins/extraction/g_extraction.ml4 +++ b/plugins/extraction/g_extraction.ml4 @@ -89,6 +89,12 @@ VERNAC COMMAND EXTEND ResetExtractionInline -> [ reset_extraction_inline () ] END +VERNAC COMMAND EXTEND ExtractionImplicit +(* Custom implicit arguments of some csts/inds/constructors *) +| [ "Extraction" "Implicit" global(r) "[" integer_list(l) "]" ] + -> [ extraction_implicit r l ] +END + VERNAC COMMAND EXTEND ExtractionBlacklist (* Force Extraction to not use some filenames *) | [ "Extraction" "Blacklist" ne_ident_list(l) ] -- cgit v1.2.3