--*****************************************************************************
--*
--* PROJECT:            BingAda
--*
--* FILE:               q_csv-q_read_file.ads
--*
--* AUTHOR:             Javier Fuica Fernandez
--*
--*****************************************************************************

with Ada.Containers.Vectors;

with Q_Bingo;

package Q_Csv.Q_Read_File is

  C_Max_Card_Name : constant := 5;

  subtype T_Name is String (1 .. C_Max_Card_Name);

  C_Numbers_In_A_Card : constant := 15;

  type T_Numbers is array (1 .. C_Numbers_In_A_Card) of Q_Bingo.T_Number;

  type T_Card is
    record
      R_Name    : T_Name;
      R_Numbers : T_Numbers;
    end record;

  package Q_Bingo_Cards is new Ada.Containers.Vectors
     (Index_Type   => Natural,
      Element_Type => T_Card);

  procedure P_Read_Bingo_Cards
     (V_File_Name : String;
      V_Cards     : out Q_Bingo_Cards.Vector);

end Q_Csv.Q_Read_File;