Benjamin_Loison/Synchronous_reactive_systems
1
0
Fork 0
Code Issues 7 Pull Requests Packages Projects Releases Wiki Activity

Correcting typos and using only English

Browse Source
This commit is contained in:
Benjamin Loison 2022-12-10 00:53:20 +01:00
parent 8775edc6fc
commit 97930ba85c
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/lexer.mll
View File

@ -63,5 +63,5 @@ rule token = parse
| '%' { BO_mod } | '%' { BO_mod }
| "->" { BO_arrow } | "->" { BO_arrow }
| eof { EOF } | eof { EOF }
| _ { raise (Lexing_error (Format.sprintf "Erruer à la vue de %s" (lexeme lexbuf)))} | _ { raise (Lexing_error (Format.sprintf "Error when seeing %s" (lexeme lexbuf)))}

8
src/main.ml
View File

@ -14,7 +14,7 @@ let print_verbose v s =
* - for any applications of the form (n, arg1, ..., argn) * - for any applications of the form (n, arg1, ..., argn)
* + n exists * + n exists
* + n waits n arguments * + n waits n arguments
* + arg1, ..., argn sont bien formés * + arg1, ..., argn are well-typed
* - The expressions are well-typed * - The expressions are well-typed
* - The equations are well typed * - The equations are well typed
* - The output is set * - The output is set
@ -24,7 +24,7 @@ let check_dependencies (a: t_nodelist) = Some a
let simplify_prog (a: t_nodelist) = Some a let simplify_prog (a: t_nodelist) = Some a
let run verbose debug (passes: (t_nodelist -> t_nodelist option) list) let run verbose debug (passes: (t_nodelist -> t_nodelist option) list)
= verbose "kjlksjf" = verbose "RUN_PLACEHOLDER"
let _ = let _ =
(** Usage and argument parsing. *) (** Usage and argument parsing. *)
@ -61,7 +61,7 @@ let _ =
("simplify_prog", simplify_prog); ("simplify_prog", simplify_prog);
]; ];
(** Main functionnalyty below *) (** Main functionality below *)
print_verbose "Parsing the source file..."; print_verbose "Parsing the source file...";
let ast = let ast =
try try
@ -72,7 +72,7 @@ let _ =
end end
with with
| Lexer.Lexing_error s -> | Lexer.Lexing_error s ->
(exit_error (Format.sprintf "Code d'erreur:\n\t%s\n\n" s); exit 0) (exit_error (Format.sprintf "Error code:\n\t%s\n\n" s); exit 0)
| Utils.MyParsingError (s, l) -> | Utils.MyParsingError (s, l) ->
begin begin
Format.printf "Syntax error at %a: %s\n\n" Format.printf "Syntax error at %a: %s\n\n"