with Type_Definitions;

------------------------------
package Compilation_Unit_Lists is
    ------------------------------

    use Type_Definitions;

    Undefined_Compilation_Unit : exception;
    Undefined_Program_Unit : exception;


    ---------------------------------
    procedure Add_Compilation_Unit
                 (--| Insert Compilation Unit into the list
                  Compilation_Unit_Name : in Ada_Name;
                  Number_Of_Breakpoints : in Breakpoint_Number_Range);

    -----------------------------
    procedure Add_Program_Unit (--| Insert Program Unit into the list
                                Unit_Id : in Program_Unit_Unique_Identifier;
                                Program_Unit_Name : in Ada_Name);

    -----------------------------------
    procedure Get_Number_Of_Breakpoints
                 (--| Get the number of breakpoints
                  --| in the compilation unit
                  Compilation_Unit_Name : in Ada_Name;
                  Number_Of_Breakpoints : out Breakpoint_Number_Range);

    -------------------------------
    procedure Get_Program_Unit_Name
                 (--| Get the program unit name for the
                  --| Specified program unit
                  Unit_Id : in Program_Unit_Unique_Identifier;
                  Program_Unit_Name : out Ada_Name);

    -------------------
    procedure Dump_List; --| Debug procedure to dump the list


end Compilation_Unit_Lists;