mirror of
https://github.com/LucasVbr/croissant.git
synced 2026-05-13 17:12:10 +00:00
Lucàs
20 lines
499 B
OCaml
20 lines
499 B
OCaml
(* bin/main.ml *)
|
|
|
|
open Printf
|
|
open Ast.Print
|
|
|
|
let () =
|
|
let lexbuf = Lexing.from_channel stdin in
|
|
let res =
|
|
try Parser.main Lexer.token lexbuf with
|
|
| Lexer.Error c ->
|
|
fprintf stderr "Lexical error at line %d: Unknown character '%c'\n"
|
|
lexbuf.lex_curr_p.pos_lnum c;
|
|
exit 1
|
|
| Parser.Error ->
|
|
fprintf stderr "Parse error at line %d:\n" lexbuf.lex_curr_p.pos_lnum;
|
|
exit 1
|
|
in
|
|
let _ = res in
|
|
Printf.printf "%s\n" (string_of_source_file res)
|