ca48e152a0
interfaces ([Stdlib.result] instead). I added --verbose=preproc to print the preprocessed text until the error. Fixed a bug: some whitespace in skip mode was printed out.
30 lines
647 B
OCaml
30 lines
647 B
OCaml
(* Parsing the command-line options of the LIGO preprocessor *)
|
|
|
|
(* The type [options] gathers the command-line options. *)
|
|
|
|
type language = PascaLIGO | CameLIGO | ReasonLIGO
|
|
|
|
module SSet : Set.S with type elt = string
|
|
|
|
type options = <
|
|
input : string;
|
|
libs : string list;
|
|
lang : language;
|
|
offsets : bool;
|
|
verbose : SSet.t
|
|
>
|
|
|
|
val make :
|
|
input:string ->
|
|
libs:string list ->
|
|
lang:language ->
|
|
offsets:bool ->
|
|
verbose:SSet.t ->
|
|
options
|
|
|
|
(* Parsing the command-line options on stdin. The first parameter is
|
|
the name of the concrete syntax. This is needed to correctly handle
|
|
comments. *)
|
|
|
|
val read : unit -> options
|