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

⟦c7295dac4⟧ TextFile

    Length: 887 (0x377)
    Types: TextFile
    Names: »V«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

generic
    type Element is private;
    with function Compare_Key (Element1, Element2 : Element) return Integer;

package Generic_Btree is

    type Object is private;

    procedure Insert_Element
                 (The_Object : in out Object; The_Element : Element);
    procedure Search_Element (The_Object : Object;
                              The_Element : in out Element);
    procedure Change_Element
                 (The_Object : in out Object; The_Element : Element);
    function Create_New_Tree return Object;
    function Element_Exist
                (The_Object : Object; The_Element : Element) return Boolean;

private

    type Node;

    type Object is access Node;

    type Node is
        record
            Contain : Element;
            Left : Object;
            Right : Object;
        end record;


    Void_Tree : constant Object := null;

end Generic_Btree;