DataMuseum.dk

top - metrics - download

    Length: 7648 (0x1de0)
    Types: TextFile
    Names: »B«

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧ 

TextFile

with Set_Defaults;
with Display_Defaults;
with Sections;
with Version;
with Generate_Booklet;
with Format_Booklet;
with Print_Booklet;
with Format_Release_Notice;
with Print_Release_Notice;
with Initialize_View;
with Initialize_Free_Form;
with Check_Consistency;
with Build_Release;
with Make_Tape;
with Build_Version;
with Build_Catalog;
with Browse_Catalog;
package body Catalog is

    procedure Set_Defaults  
                 (Catalog : in Simple_Name := ">> CATALOG NAME <<";
                  Version : in Simple_Name := ">> VERSION IDENTIFIER <<";
                  User : in User_Name := "<CURRENT_USER>";
                  Response : in String := "<PROFILE>") is
    begin
        Standard.Set_Defaults (Catalog,  
                               Version,  
                               User,  
                               Response);
    end Set_Defaults;

    procedure Display_Defaults (For_User : in User_Name := "<CURRENT_USER>";
                                Response : in String := "<PROFILE>") is
    begin
        Standard.Display_Defaults (For_User,  
                                   Response);
    end Display_Defaults;

    procedure Sections (For_Catalog : in Simple_Name := "<DEFAULT>";
                        Response : in String := "<PROFILE>") is
    begin
        Standard.Sections (For_Catalog,  
                           Response);
    end Sections;

    procedure Version (For_Catalog : in Simple_Name := "<DEFAULT>";
                       This_Version : in Simple_Name := "<DEFAULT>";
                       Response : in String := "<PROFILE>") is
    begin
        Standard.Version (For_Catalog,  
                          This_Version,  
                          Response);
    end Version;

    procedure Generate_Booklet (For_Catalog : in Simple_Name := "<DEFAULT>";
                                This_Version : in Simple_Name := "<DEFAULT>";
                                Response : in String := "<PROFILE>") is
    begin
        Standard.Generate_Booklet (For_Catalog,  
                                   This_Version,  
                                   Response);
    end Generate_Booklet;

    procedure Format_Booklet (For_Catalog : in Simple_Name := "<DEFAULT>";
                              This_Version : in Simple_Name := "<DEFAULT>";
                              Regenerate : in Boolean := True;
                              Response : in String := "<PROFILE>") is
    begin
        Standard.Format_Booklet (For_Catalog,  
                                 This_Version,  
                                 Regenerate,  
                                 Response);
    end Format_Booklet;

    procedure Print_Booklet (For_Catalog : in Simple_Name := "<DEFAULT>";
                             This_Version : in Simple_Name := "<DEFAULT>";
                             Regenerate : in Boolean := True;
                             Reformat : in Boolean := True;
                             Response : in String := "<PROFILE>") is
    begin
        Standard.Print_Booklet  
           (For_Catalog,  
            This_Version,  
            Regenerate,  
            Reformat,  
            Response);
    end Print_Booklet;

    procedure Format_Release_Notice
                 (For_Catalog : in Simple_Name := "<DEFAULT>";
                  This_Version : in Simple_Name := "<DEFAULT>";
                  Response : in String := "<PROFILE>") is
    begin
        Standard.Format_Release_Notice (For_Catalog,  
                                        This_Version,  
                                        Response);
    end Format_Release_Notice;

    procedure Print_Release_Notice
                 (For_Catalog : in Simple_Name := "<DEFAULT>";
                  This_Version : in Simple_Name := "<DEFAULT>";
                  Reformat : in Boolean := True;
                  Response : in String := "<PROFILE>") is
    begin
        Standard.Print_Release_Notice (For_Catalog,  
                                       This_Version,  
                                       Reformat,  
                                       Response);
    end Print_Release_Notice;

    procedure Initialize_View  
                 (This_View : in String := "<SELECTION>";
                  Is_Proprietary : in Boolean;
                  Response : in String := "<PROFILE>") is
    begin  
        Standard.Initialize_View  
           (This_View,  
            Is_Proprietary,  
            Response);
    end Initialize_View;

    procedure Initialize_Free_Form  
                 (This_Item : in String := "<SELECTION>";
                  Is_Proprietary : in Boolean;
                  Response : in String := "<PROFILE>") is
    begin  
        Standard.Initialize_Free_Form  
           (This_Item,  
            Is_Proprietary,  
            Response);
    end Initialize_Free_Form;

    procedure Check_Consistency (This_Structure : in String := "<SELECTION>";
                                 This_Version : in Simple_Name := "<DEFAULT>";
                                 Response : in String := "<PROFILE>") is
    begin
        Standard.Check_Consistency (This_Structure,  
                                    This_Version,  
                                    Response);
    end Check_Consistency;

    procedure Build_Release (Of_Catalog : in Simple_Name := "<DEFAULT>";
                             This_Version : in Simple_Name := "<DEFAULT>";
                             Check_Consistency : in Boolean := True;
                             Make_Tape : in Boolean := True;
                             Response : in String := "<PROFILE>") is
    begin
        Standard.Build_Release (Of_Catalog,  
                                This_Version,  
                                Check_Consistency,  
                                Make_Tape,  
                                Response);
    end Build_Release;

    procedure Make_Tape (For_Catalog : in Simple_Name := "<DEFAULT>";
                         This_Version : in Simple_Name := "<DEFAULT>";
                         Response : in String := "<PROFILE>") is
    begin
        Standard.Make_Tape (For_Catalog,  
                            This_Version,  
                            Response);
    end Make_Tape;

    procedure Build_Version  
                 (Of_Catalog : in Simple_Name := "<DEFAULT>";
                  From_Version : in Simple_Name := "<DEFAULT>";
                  New_Version : in Simple_Name := ">> VERSION IDENTIFIER <<";
                  Make_Default : in Boolean := True;
                  Response : in String := "<PROFILE>") is
    begin
        Standard.Build_Version  
           (Of_Catalog,  
            From_Version,  
            New_Version,  
            Make_Default,  
            Response);
    end Build_Version;

    procedure Build_Catalog  
                 (Named : in Simple_Name := ">> CATALOG NAME<<";
                  Initial_Version : in Simple_Name :=  
                     ">> VERSION IDENTIFIER <<";
                  Make_Default : in Boolean := True;
                  Response : in String := "<PROFILE>") is
    begin
        Standard.Build_Catalog  
           (Named,  
            Initial_Version,  
            Make_Default,  
            Response);
    end Build_Catalog;

    procedure Browse (This_Catalog : in Simple_Name := "<DEFAULT>";
                      This_Version : in Simple_Name := "<DEFAULT>";
                      Response : in String := "<PROFILE>") is
    begin
        Standard.Browse_Catalog (This_Catalog,  
                                 This_Version,  
                                 Response);
    end Browse;

end Catalog;