bingada_1.0.0_a25771e2/src/q_csv-q_read_file.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
--*****************************************************************************
--*
--* 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;