diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-20 00:53:48 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-20 00:53:48 +0000 |
| commit | 131207a1f99f85d2b8d272e7b47b058076b5c1cf (patch) | |
| tree | ccc59e6e5ce5197eecd70944a0f723f143edf031 /perl_checker.src/perl_checker.ml | |
| parent | 659ced82c2465f81c3f14a1fa601d7df9ce2d2da (diff) | |
| download | perl_checker-131207a1f99f85d2b8d272e7b47b058076b5c1cf.tar perl_checker-131207a1f99f85d2b8d272e7b47b058076b5c1cf.tar.gz perl_checker-131207a1f99f85d2b8d272e7b47b058076b5c1cf.tar.bz2 perl_checker-131207a1f99f85d2b8d272e7b47b058076b5c1cf.tar.xz perl_checker-131207a1f99f85d2b8d272e7b47b058076b5c1cf.zip | |
*** empty log message ***
Diffstat (limited to 'perl_checker.src/perl_checker.ml')
| -rw-r--r-- | perl_checker.src/perl_checker.ml | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/perl_checker.src/perl_checker.ml b/perl_checker.src/perl_checker.ml index 79b3ac9..7e951a8 100644 --- a/perl_checker.src/perl_checker.ml +++ b/perl_checker.src/perl_checker.ml @@ -8,12 +8,9 @@ let _ = let lexbuf = Lexing.from_channel (Unix.open_process_in (Printf.sprintf "expand \"%s\"" file)) in try Info.start_a_new_file file ; - if false then - let t = Lexer.lexbuf2list (Lexer.concat_bareword_paren (Lexer.concat_spaces Lexer.token)) lexbuf in - let _,_ = t, t in () - else - let t = Parser.prog (Lexer.concat_bareword_paren (Lexer.concat_spaces Lexer.token)) lexbuf in - let _,_ = t, t in () + let tokens = Lexer.get_token Lexer.token lexbuf in + let t = Parser_helper.parse_tokens Parser.prog tokens (Some lexbuf) in + let _,_ = t, t in () with Failure s -> ( prerr_endline s ; exit 1 |