DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T V

⟦eb937c5ad⟧ TextFile

    Length: 1563 (0x61b)
    Types: TextFile
    Names: »V«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧

TextFile

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;