lucasvbr/croissant
1
0
Fork 0
mirror of https://github.com/LucasVbr/croissant.git synced 2026-05-13 17:12:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

feat: Implement eval methods for expressions

Browse Source
This commit is contained in:
Lucàs
2024-10-26 22:40:50 +02:00
parent b493c77d70
commit 9e201e8d16
28 changed files with 638 additions and 325 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/main.ml
+13 -5
View File
@@ -1,8 +1,15 @@
open Syntax.Roots
let get_lexbuf () =
if Array.length Sys.argv > 1 then
let file_path = Sys.argv.(1) in
let file_stream = open_in file_path in
Lexing.from_channel file_stream
else Lexing.from_channel stdin
let () =
let file_path = Sys.argv.(1) in
let file_stream = open_in file_path in
let lexbuf = Lexing.from_channel file_stream in
let ast =
let lexbuf = get_lexbuf () in
let ast : program =
try Analyzer.Parser.main Analyzer.Lexer.token lexbuf with
| Analyzer.Lexer.Error c ->
let file_name = lexbuf.lex_curr_p.pos_fname
@@ -20,4 +27,5 @@ let () =
file_name line_num col_num "Erreur syntaxique" "Syntaxe incorrecte";
exit 1
in
Printf.printf "%s\n" (Syntax.SourceFiles.pp_source_files ast)
let _ = ast#check_type in
Printf.printf "%s\n" (Syntax.Literals.string_of_literal_value ast#eval)