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, 17 insertions, 0 deletions

diff --git a/contrib/extraction/test/ml2v.ml b/contrib/extraction/test/ml2v.ml
new file mode 100644
index 000000000..665aabba4
--- /dev/null
+++ b/contrib/extraction/test/ml2v.ml
@@ -0,0 +1,17 @@
+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 b0 = String.sub b 0 1 in
+	let b1 = String.capitalize b0 in  
+	let b = String.sub b 1 ((String.length b) -1) in 
+	let d = Filename.dirname s
+	in print_string (d^"/["^b0^b1^"]"^b^".v");
+	print_newline()
+  end;
+  exit(0)	
+end;;	
+
+main();;
+