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

⟦44662ca4d⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Message_Array, seg_042e45

Derivation

└─⟦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 Text_Io, Generic_String_Sort_Array;
package body Message_Array is

    package Mess_Array is new Generic_String_Sort_Array
                                 (Element => Identifier.Object,
                                  Max_Element_Number => 30,
                                  Null_Element => Identifier.Null_Object,
                                  Get_Key => Identifier.Image,
                                  Show_Element => Identifier.Show);

    The_Array : Mess_Array.Object := Mess_Array.Null_Object;

    procedure Put (Message : in Identifier.Object; Ok : out Boolean) is

    begin
        Mess_Array.Put (The_Array, Message, Ok);
    end Put;

    procedure Get (Message : out Identifier.Object;
                   Key : in Natural;
                   Ok : out Boolean) is

    begin
        Mess_Array.Get (The_Array, Message, Key, Ok);
    end Get;

    function Number_Of return Natural is

    begin
        return Mess_Array.Number_Of (The_Array);
    end Number_Of;

    procedure Show is

    begin
        Text_Io.Put_Line ("Message Array :");
        Mess_Array.Show (The_Array);
    end Show;

end Message_Array;

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1f rec1=00 rec2=01 rec3=03c
        [0x01] rec0=0c rec1=00 rec2=02 rec3=001
    tail 0x21743b50286343be15152 0x42a00088462060003