DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦f7ad21ba2⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Name_Utilities, seg_02ba45

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

with Names;
with Directory_Tools;
with String_Utilities;
with Misc_String_Utilities;
package body Name_Utilities is

    function Methodology_Name return Simple_Name is separate;

    function Course_Name return Simple_Name is separate;

    function Releases_Context return Full_Name is
    begin
        return
           "!TRAINING.SOFTWARE_RELEASES.DESIGN_FACILITY.METHODOLOGY_SPECIFIC." &
              Methodology_Name & "." & Course_Name;
    end Releases_Context;

    function Release_Context return Full_Name is
    begin
        return Releases_Context & "." &
                  Directory_Tools.Naming.Simple_Name
                     (String'(Directory_Tools.Naming.Default_Context));
    end Release_Context;

    function Is_Reserved (This_Name : in String) return Boolean is
    begin
        declare
            The_Name : constant Reserved_Names :=
               Reserved_Names'Value (This_Name);
        begin
            return True;
        end;

    exception
        when Constraint_Error =>
            return False;

    end Is_Reserved;

    function Is_Valid_Release_Name
                (This_Release_Name : in String) return Boolean is
    begin
        return Names.Is_Simple_Ada_Name (This_Release_Name) and then
                  not Is_Reserved (This_Release_Name);
    end Is_Valid_Release_Name;

    function Full_Release_Name_For
                (This_Release_Name : in Simple_Name) return Full_Name is
    begin
        if not Is_Valid_Release_Name (This_Release_Name) then
            raise Invalid_Name;
        end if;
        return Releases_Context & "." &
                  String_Utilities.Upper_Case (This_Release_Name);
    end Full_Release_Name_For;

    function Release_Template return Full_Name is
    begin
        return Releases_Context & ".TEMPLATE";
    end Release_Template;

    function Users_Context return Full_Name is
    begin
        return "!USERS";
    end Users_Context;

    function Master_Training_User return Full_Name is
    begin
        return Users_Context & ".Testmate_User_Training_Master";
    end Master_Training_User;

    function Is_Valid_Username_Prefix
                (This_Username_Prefix : in String) return Boolean is
    begin
        return Names.Is_Simple_Ada_Name (This_Username_Prefix);
    end Is_Valid_Username_Prefix;

    function Full_User_Name_From (This_Username_Prefix : in Simple_Name;
                                  This_Number : in Positive) return Full_Name is
    begin
        return Users_Context & "." & Simple_User_Name_From
                                        (This_Username_Prefix, This_Number);
    end Full_User_Name_From;

    function Simple_User_Name_From
                (This_Username_Prefix : in Simple_Name;
                 This_Number : in Positive) return Simple_Name is
    begin
        if not Is_Valid_Username_Prefix (This_Username_Prefix) then
            raise Invalid_Name;
        end if;
        return String_Utilities.Upper_Case (Misc_String_Utilities.Stripped
                                               (This_Username_Prefix & "_" &
                                                Positive'Image (This_Number)));
    end Simple_User_Name_From;

    function Views_In (This_Context : in Full_Name) return Full_Name is
    begin
        return String_Utilities.Upper_Case (This_Context) &
                  ".??'C(SPEC_VIEW,LOAD_VIEW,SYSTEM_VIEW)";
    end Views_In;

    function Subsystems_And_Views_In
                (This_Context : in Full_Name) return Full_Name is
    begin
        return "[" & String_Utilities.Upper_Case (This_Context) &
                  ".??'C(SYSTEM,SUBSYSTEM)," & Views_In (This_Context) & "]";
    end Subsystems_And_Views_In;

    function Pdl_Name return Simple_Name is
    begin
        return "RATIONAL_2167A";
    end Pdl_Name;

    function Design_Target return Simple_Name is
    begin
        return Pdl_Name & "_R1000";
    end Design_Target;

end Name_Utilities;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=20 rec1=00 rec2=01 rec3=030
        [0x01] rec0=21 rec1=00 rec2=02 rec3=024
        [0x02] rec0=19 rec1=00 rec2=03 rec3=07e
        [0x03] rec0=1a rec1=00 rec2=04 rec3=03c
        [0x04] rec0=06 rec1=00 rec2=05 rec3=000
    tail 0x21523ff9483f0791e3b1d 0x42a00088462060003