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 - download

⟦c10270f65⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Profile_Parser_Defs, seg_02676c, seg_026d13

Derivation

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

E3 Source Code



with Umps_Defs;
with Umps_Utilities;

package Profile_Parser_Defs is

    Umps_Profile_File : constant String := "umps_parameters";

    Profile_File_Length : constant Natural := 256;
    subtype Profile_File is String (1 .. Profile_File_Length);
    Default_Profile_File : Profile_File :=
       Umps_Utilities.Normalize (Umps_Profile_File, Profile_File_Length);

    Default_Affectation_Operator : constant String := ":=";

    Default_Comment_Pattern : constant String := "--";

    function Get_Default_Profile_File return String;

    procedure Set_Default_Profile_File (File : in String);

    generic
        type Object is private;
        with function Object_Image (The_Object : in Object) return String;
    procedure Set (The_Parameter : in String;
                   At_The_Value : in Object;
                   In_The_File : in String := Default_Profile_File);
    generic
        type Object is private;
        with function Object_Value (The_Image : in String) return Object;
        Undefined_Object : in Object;
    procedure Get (Of_The_Parameter : in String;
                   The_Value : out Object;
                   Success : out Boolean;
                   In_The_File : in String := Default_Profile_File);

end Profile_Parser_Defs;

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1e rec1=00 rec2=01 rec3=04e
        [0x01] rec0=09 rec1=00 rec2=02 rec3=001
    tail 0x215204a2283aa88feb75f 0x42a00088462060003