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

⟦20c3f4f44⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Unbounded_Array, seg_011fd3

Derivation

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

generic

    type Element is private;

    type Content is array (Positive range <>) of Element;


package Unbounded_Array is

    type Object is private;


    function Create (The_Content : Content) return Object;

    function "&" (The_Object : Object; With_Element : Element) return Object;

    function "&" (The_Object, With_Object : Object) return Object;

    procedure Free (The_Object : in out Object);

    procedure Remove (In_Object : in out Object; The_Item : Positive);

    procedure Remove (In_Object : in out Object; The_Element : Element);

    function Get (In_Object : Object; The_Item : Positive) return Element;

    function Get (The_Object : Object) return Content;

    function Length (Of_Object : Object) return Natural;

    procedure Set (In_Object    : Object;
                   The_Item     : Positive;
                   With_Element : Element);


    function Dupplicate (The_Object : Object) return Object;


    Illegal_Access : exception;


private

    Max_Size : constant := 100;

    subtype Fixed_Array is Content (1 .. Max_Size);

    type Array_Range;

    type Array_Pointer is access Array_Range;

    type Array_Range is
        record
            The_Values : Fixed_Array;
            Next_Array : Array_Pointer := null;
        end record;

    type Object is
        record
            Array_Count   : Natural       := 0;
            Element_Count : Natural       := 0;
            First_Array   : Array_Pointer := null;
            Last_Array    : Array_Pointer := null;
        end record;

end Unbounded_Array;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=25 rec1=00 rec2=01 rec3=078
        [0x01] rec0=1f rec1=00 rec2=02 rec3=000
    tail 0x2150d4632824851ee95a4 0x42a00088462063c03