53 lines
1.6 KiB
OCaml
53 lines
1.6 KiB
OCaml
|
open Parser
|
||
|
|
|
||
|
|
(* Fonction d'affichage des unités lexicales et des données qu'elles contiennent *)
|
||
|
|
let printToken t =
|
||
|
|
(print_endline
|
||
|
|
(match t with
|
||
|
|
| UL_MODEL -> "model"
|
||
|
|
| UL_SYSTEM -> "system"
|
||
|
|
| UL_BLOCK -> "block"
|
||
|
|
| UL_FLOW -> "flow"
|
||
|
|
| UL_FROM -> "from"
|
||
|
|
| UL_TO -> "to"
|
||
|
|
| UL_IN -> "in"
|
||
|
|
| UL_OUT -> "out"
|
||
|
|
| UL_INT -> "int"
|
||
|
|
| UL_FLOAT -> "float"
|
||
|
|
| UL_BOOLEAN -> "boolean"
|
||
|
|
| UL_ACCOUV -> "{"
|
||
|
|
| UL_ACCFER -> "}"
|
||
|
|
| UL_PAROUV -> "("
|
||
|
|
| UL_PARFER -> ")"
|
||
|
|
| UL_CROOUV -> "["
|
||
|
|
| UL_CROFER -> "]"
|
||
|
|
| UL_PTV -> ";"
|
||
|
|
| UL_VIRG -> ","
|
||
|
|
| UL_PT2 -> ":"
|
||
|
|
| UL_PT -> "."
|
||
|
|
| UL_IDENT texte -> texte
|
||
|
|
| UL_PORT texte -> texte
|
||
|
|
| UL_ENTIER texte -> (string_of_int texte)
|
||
|
|
| UL_FIN -> "EOF"
|
||
|
|
));;
|
||
|
|
|
||
|
|
(* Analyse lexicale du fichier passé en paramètre de la ligne de commande *)
|
||
|
|
if (Array.length Sys.argv > 1)
|
||
|
|
then
|
||
|
|
let lexbuf = (Lexing.from_channel (open_in Sys.argv.(1))) in
|
||
|
|
let token = ref (Lexer.lexer lexbuf) in
|
||
|
|
while ((!token) != UL_FIN) do
|
||
|
|
(printToken (!token));
|
||
|
|
(token := (Lexer.lexer lexbuf))
|
||
|
|
done
|
||
|
|
else
|
||
|
|
(print_endline "MainJSON fichier");;
|
||
|
|
|
||
|
|
(* Analyse lexicale, syntaxique et sémantique du fichier passé en paramètre de la ligne de commande *)
|
||
|
|
if (Array.length Sys.argv > 1)
|
||
|
|
then
|
||
|
|
let lexbuf = (Lexing.from_channel (open_in Sys.argv.(1))) in
|
||
|
|
(Parser.modele Lexer.lexer lexbuf)
|
||
|
|
else
|
||
|
|
(print_endline "MainJSON fichier");;
|