3ed303f60d
like the absence of an input filename. (This simplifies all the clients codes.) Fixed the dune file for the preprocessor. Fixed the build of PreprocMain.exe and PreprocMain.byte. Restricted preprocessing errors [Preproc.Newline_in_string] and [Preproc.Open_string] to the argument of the #include directive (instead of general strings: this is for the LIGO lexer to report the error). I removed the error [Preproc.Open_comment] as this is for the LIGO lexer to report. The preprocessor scanner [Preproc.lex] does not take a parameter [is_file:bool] now: the source file (if any) is determined from the lexing buffer. Accordingly, the field [is_file] of the state of the preprocessing lexer has been removed: the lexing buffer becomes now the reference for the input source (bug fix and interface improvement). Fixed the comments of the test contract pledge.religo. I removed the data constructor [Lexer.Stdin], as redundant with [Lexer.Channel].
77 lines
1.8 KiB
OCaml
77 lines
1.8 KiB
OCaml
(* Driver for the ReasonLIGO parser *)
|
|
|
|
module Region = Simple_utils.Region
|
|
module SSet = Set.Make (String)
|
|
|
|
module IO =
|
|
struct
|
|
let options = EvalOpt.(read ~lang:`ReasonLIGO ~ext:".religo")
|
|
end
|
|
|
|
module SubIO =
|
|
struct
|
|
type options = <
|
|
libs : string list;
|
|
verbose : SSet.t;
|
|
offsets : bool;
|
|
lang : EvalOpt.language;
|
|
ext : string;
|
|
mode : [`Byte | `Point];
|
|
cmd : EvalOpt.command;
|
|
mono : bool
|
|
>
|
|
|
|
let options : options =
|
|
object
|
|
method libs = IO.options#libs
|
|
method verbose = IO.options#verbose
|
|
method offsets = IO.options#offsets
|
|
method lang = IO.options#lang
|
|
method ext = IO.options#ext
|
|
method mode = IO.options#mode
|
|
method cmd = IO.options#cmd
|
|
method mono = IO.options#mono
|
|
end
|
|
|
|
let make =
|
|
EvalOpt.make ~libs:options#libs
|
|
~verbose:options#verbose
|
|
~offsets:options#offsets
|
|
~lang:options#lang
|
|
~ext:options#ext
|
|
~mode:options#mode
|
|
~cmd:options#cmd
|
|
~mono:options#mono
|
|
end
|
|
|
|
module Parser =
|
|
struct
|
|
type ast = AST.t
|
|
type expr = AST.expr
|
|
include Parser
|
|
end
|
|
|
|
module ParserLog =
|
|
struct
|
|
type ast = AST.t
|
|
type expr = AST.expr
|
|
include ParserLog
|
|
end
|
|
|
|
module Lexer = Lexer.Make (LexToken)
|
|
|
|
module Unit =
|
|
ParserUnit.Make (Lexer)(AST)(Parser)(ParErr)(ParserLog)(SubIO)
|
|
|
|
(* Main *)
|
|
|
|
let wrap = function
|
|
Stdlib.Ok _ -> flush_all ()
|
|
| Error msg ->
|
|
(flush_all (); Printf.eprintf "\027[31m%s\027[0m%!" msg.Region.value)
|
|
|
|
let () =
|
|
match IO.options#input with
|
|
None -> Unit.contract_in_stdin () |> wrap
|
|
| Some file_path -> Unit.contract_in_file file_path |> wrap
|