0226b9f23c
Refactoring of parsing command-line arguments
* The type [options] is now abstract and implemented as an
object type to avoid struggling with scoping and type
inference when record types share some common field names.
Refactoring of ParserLog for PascaLIGO and CameLIGO
* The immediate motivation behind that refactoring was to
remove the use of a couple of global references. A
consequence is that we have a nicer and more compact code, by
threading a state. The files [pascaligo/Tests/pp.ligo] and
[ligodity/Tests/pp.mligo].
* Another consequence is that the choice of making strings from
AST nodes depends on the CLI (offsets? mode?). After this
refactoring, that choice is hardcoded in the simplifiers in a
few places (TODO), waiting for a general solution that would
have all CL options flow through the compiler.
* I removed the use of vendors [x_option.ml], [x_map.ml] and
[x_list.ml] when handling optional values. (Less dependencies
this way.)
Refactoring of the ASTs
* I removed the node [local_decl], which was set to [[]]
already in a previous commit (which removed local
declarations as being redundant, as statements could already
be instructions or declarations).
* I changed [StrLit] to [String] in the AST of CameLIGO and
ReasonLIGO.
* I also changed the type [fun_expr] so now either a block is
present, and therefore followed by the [with] keyword, or it
is not. (Before, the presence of a block was not enforced in
the type with the presence of the keyword.)
Notes
* [LexerMain.ml] and [ParserMain.ml] for CameLIGO and PascaLIGO
are almost identical and differ in the same way (language
name and file extension), which suggests that they should be
in the [shared] folder and instanciated as a functor in the
future (TODO).
* I removed the blank characters at the end of many lines in
the parser of ReasonLIGO.
57 lines
1.6 KiB
OCaml
57 lines
1.6 KiB
OCaml
(** Driver for the LIGO lexer *)
|
|
|
|
let extension = ".ligo"
|
|
let options = EvalOpt.read "PascaLIGO" extension
|
|
|
|
(** Error printing and exception tracing
|
|
*)
|
|
let () = Printexc.record_backtrace true
|
|
|
|
let external_ text =
|
|
Utils.highlight (Printf.sprintf "External error: %s" text); exit 1;;
|
|
|
|
(** {1 Preprocessing the input source and opening the input channels} *)
|
|
|
|
(** Path for CPP inclusions (#include)
|
|
*)
|
|
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 ""
|
|
|
|
let prefix =
|
|
match options#input with
|
|
None | Some "-" -> "temp"
|
|
| Some file -> Filename.(file |> basename |> remove_extension)
|
|
|
|
let suffix = ".pp" ^ extension
|
|
|
|
let pp_input =
|
|
if Utils.String.Set.mem "cpp" options#verbose
|
|
then prefix ^ suffix
|
|
else let pp_input, pp_out = Filename.open_temp_file prefix suffix
|
|
in close_out pp_out; pp_input
|
|
|
|
let cpp_cmd =
|
|
match options#input with
|
|
None | Some "-" ->
|
|
Printf.sprintf "cpp -traditional-cpp%s - > %s"
|
|
lib_path pp_input
|
|
| Some file ->
|
|
Printf.sprintf "cpp -traditional-cpp%s %s > %s"
|
|
lib_path file pp_input
|
|
|
|
let () =
|
|
if Utils.String.Set.mem "cpp" options#verbose
|
|
then Printf.eprintf "%s\n%!" cpp_cmd;
|
|
if Sys.command cpp_cmd <> 0 then
|
|
external_ (Printf.sprintf "the command \"%s\" failed." cpp_cmd)
|
|
|
|
(** {1 Running the lexer on the input file} *)
|
|
|
|
module Log = LexerLog.Make (Lexer.Make (LexToken))
|
|
|
|
let () = Log.trace ~offsets:options#offsets
|
|
options#mode (Some pp_input) options#cmd
|