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");;