af8d1083b7
More precisely,
* I commented out the operator "@" on lists in Ligodity (it can
be implemented as a function, as a workaround).
* I removed the parallel "let" construct (hence the "and" keyword).
* I renamed the type "field_assignment" into "field_assign", in
order to match Pascaligo AST.
* The reading of the command-line options is now done by
calling the function [EvalOpt.read], instead of an ugly
side-effect when loading the binary of the module. Options
are now found in a record of type [EvalOpt.options].
* I added support in the Ligodity lexer for #include CPP
directives.
55 lines
1.5 KiB
OCaml
55 lines
1.5 KiB
OCaml
(* Driver for the parser of Mini-ML *)
|
|
|
|
(* Error printing and exception tracing *)
|
|
|
|
Printexc.record_backtrace true;;
|
|
|
|
(* Reading the command-line options *)
|
|
|
|
let options = EvalOpt.read ()
|
|
|
|
open EvalOpt
|
|
|
|
(* Path to the Mini-ML standard library *)
|
|
|
|
let lib_path =
|
|
match options.libs with
|
|
[] -> ""
|
|
| libs -> let mk_I dir path = Printf.sprintf " -I %s%s" dir path
|
|
in List.fold_right mk_I libs ""
|
|
|
|
(* Opening the input channel and setting the lexing engine *)
|
|
|
|
let cin, reset =
|
|
match options.input with
|
|
None | Some "-" -> stdin, ignore
|
|
| Some file -> open_in file, Lexer.reset_file ~file
|
|
|
|
let buffer = Lexing.from_channel cin
|
|
let () = reset buffer
|
|
|
|
(* Tokeniser *)
|
|
|
|
let tokeniser =
|
|
if Utils.String.Set.mem "lexer" options.verbose then
|
|
Lexer.get_token ~log:(stdout, Lexer.output_token buffer)
|
|
else Lexer.get_token ?log:None
|
|
|
|
let () =
|
|
try
|
|
let ast = Parser.program tokeniser buffer in
|
|
if Utils.String.Set.mem "unparsing" options.verbose then
|
|
AST.print_tokens ~undo:true ast
|
|
else () (* AST.print_tokens ast *)
|
|
with
|
|
Lexer.Error diag ->
|
|
close_in cin; Lexer.prerr ~kind:"Lexical" diag
|
|
| Parser.Error ->
|
|
let start = Pos.from_byte (Lexing.lexeme_start_p buffer)
|
|
and stop = Pos.from_byte (Lexing.lexeme_end_p buffer) in
|
|
let region = Region.make ~start ~stop in
|
|
close_in cin;
|
|
Lexer.prerr ~kind:"Syntactical"
|
|
Region.{value="Parse error."; region}
|
|
| Sys_error msg -> Utils.highlight msg
|