*** empty log message ***

1 files changed, 18 insertions, 0 deletions

diff --git a/perl_checker.src/perl_checker.ml b/perl_checker.src/perl_checker.ml
new file mode 100644
index 0000000..dd7b75e
--- /dev/null
+++ b/perl_checker.src/perl_checker.ml
@@ -0,0 +1,18 @@
+open Types
+
+let _ = 
+  let file = try Sys.argv.(2) with _ -> try Sys.argv.(1) with _ -> "/tmp/t.pl" in
+  let lexbuf = Lexing.from_channel (open_in file) in
+  let _ = 
+    try
+      Info.start_a_new_file file ;
+      if false then
+	let tokens = Lexer.lexbuf2list Lexer.token lexbuf in
+	let _,_ = tokens, tokens in ""
+      else
+	Parser.prog Lexer.token lexbuf
+    with Failure s -> (
+      prerr_endline s ;
+      exit 1
+     ) in
+  ()