script de bench automatique pour extraction

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

1 files changed, 15 insertions, 0 deletions

diff --git a/contrib/extraction/test/v2ml.ml b/contrib/extraction/test/v2ml.ml
new file mode 100644
index 0000000000..c106147bfb
--- /dev/null
+++ b/contrib/extraction/test/v2ml.ml
@@ -0,0 +1,15 @@
+let main () = begin
+  let j = Array.length (Sys.argv) in
+  if j>0 then begin
+	let s = Sys.argv.(1) in
+	let b = Filename.chop_extension (Filename.basename s) in 
+	let b = String.uncapitalize b in
+	let d = Filename.dirname s
+	in print_string (d^"/"^b^".ml");
+	print_newline()
+  end;
+  exit(0)	
+end;;	
+
+main();;
+