18 lines
465 B
OCaml
18 lines
465 B
OCaml
|
(* Driver for the lexer of Ligo *)
|
||
|
|
|
||
|
|
open! EvalOpt (* Reads the command-line options: Effectful! *)
|
||
|
|
|
||
|
|
(* Error printing and exception tracing *)
|
||
|
|
|
||
|
|
let () = Printexc.record_backtrace true
|
||
|
|
|
||
|
|
let external_ text =
|
||
|
|
Utils.highlight (Printf.sprintf "External error: %s" text); exit 1;;
|
||
|
|
|
||
|
|
(* Running the lexer on the input file *)
|
||
|
|
|
||
|
|
module Lexer = Lexer.Make (LexToken)
|
||
|
|
|
||
|
|
let () = Lexer.trace ~offsets:EvalOpt.offsets
|
||
|
|
EvalOpt.mode EvalOpt.input EvalOpt.cmd
|