<commit_before>-- ------------------------------------------------
--  Programa de prova
-- ------------------------------------------------
--  Versio  :   0.2
--  Autors  :   <NAME>
--              <NAME>
--              <NAME>
-- ------------------------------------------------
--      Programa per comprovar les funcionalitats
--  del lexic i la taula de noms.
--
-- ------------------------------------------------

with Ada.Text_IO,
  Ada.Command_Line,
  Decls.D_Taula_De_Noms,
  Decls.Dgenerals,
  Decls.Dtdesc,
  Pk_Usintactica_Tokens,
  Pk_Ulexica_Io,
  U_Lexica,
  Pk_Usintactica,
  Decls.D_Atribut,
  Semantica,
  Decls.Dtnode,
  Semantica.Ctipus,
  Semantica.Declsc3a,
  Semantica.Gci;

use Ada.Text_IO,
  Ada.Command_Line,
  Decls.D_Taula_De_Noms,
  Decls.Dgenerals,
  Decls.Dtdesc,
  Pk_Usintactica_Tokens,
  Pk_Ulexica_Io,
  U_Lexica,
  Pk_Usintactica,
  Decls.D_Atribut,
  Semantica,
  Decls.Dtnode,
  Semantica.Ctipus,
  Semantica.Declsc3a,
  Semantica.Gci;


procedure Compilemon is

begin
   Open_Input(Argument(1));

   --PROVISIONAL
   Inicia_analisi(Argument(1));
   yyparse;
  
   
   Ct_Programa(Arbre);


   Inicia_Generacio(Argument(1));    

   gci_Programa(Arbre);
   Tanca_Fitxer;
   

   Close_Input;


   exception
      when Syntax_Error =>
         Put_Line("ERROR: Error a la linea "
                    &yy_line_number'img&
                    " i columna "&yy_begin_column'img);

end compilemon;<commit_msg>Empieza a generar algo de codigo 2<commit_after>-- ------------------------------------------------
--  Programa de prova
-- ------------------------------------------------
--  Versio  :   0.2
--  Autors  :   <NAME>
--              <NAME>
--              <NAME>
-- ------------------------------------------------
--      Programa per comprovar les funcionalitats
--  del lexic i la taula de noms.
--
-- ------------------------------------------------

with Ada.Text_IO,
  Ada.Command_Line,
  Decls.D_Taula_De_Noms,
  Decls.Dgenerals,
  Decls.Dtdesc,
  Pk_Usintactica_Tokens,
  Pk_Ulexica_Io,
  U_Lexica,
  Pk_Usintactica,
  Decls.D_Atribut,
  Semantica,
  Decls.Dtnode,
  Semantica.Ctipus,
  Semantica.Declsc3a,
  Semantica.Gci;

use Ada.Text_IO,
  Ada.Command_Line,
  Decls.D_Taula_De_Noms,
  Decls.Dgenerals,
  Decls.Dtdesc,
  Pk_Usintactica_Tokens,
  Pk_Ulexica_Io,
  U_Lexica,
  Pk_Usintactica,
  Decls.D_Atribut,
  Semantica,
  Decls.Dtnode,
  Semantica.Ctipus,
  Semantica.Declsc3a,
  Semantica.Gci;


procedure Compilemon is

begin
   Open_Input(Argument(1));

   --PROVISIONAL
   Inicia_analisi(Argument(1));
   yyparse;
  
   
   Ct_Programa(Arbre);


   Inicia_Generacio(Argument(1));    

   gci_Programa(Arbre);
   --Tanca_Fitxer;

   --Obrir_Fitxer(Argument(1));   

   Close_Input;


   exception
      when Syntax_Error =>
         Put_Line("ERROR: Error a la linea "
                    &yy_line_number'img&
                    " i columna "&yy_begin_column'img);

end compilemon;
{'fraction_non_alphanumeric': 0.22120285423037717, 'fraction_numerical': 0.0054366292898402994, 'mean_word_length': 1.6403587443946188, 'pattern_counts': {'":': 0, '<': 9, '<?xml version=': 0, '>': 11, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '2532817', 'n_tokens_mistral': 1150, 'n_tokens_neox': 1106, 'n_words': 168}