|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T V ┃
Length: 1053 (0x41d)
Types: TextFile
Names: »V«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
generic
type Element is private;
package Generic_Tree is
type Tree is private;
type Child is (Left, Right);
Void_Tree : constant Tree;
procedure Copy (From_Tree : Tree; To_Tree : in out Tree);
procedure Vider (The_Tree : in out Tree);
procedure Construct (The_Element : Element;
The_Tree : in out Tree;
To_Child : Child);
procedure Put_Element (From_Tree : in out Tree; The_Element : Element);
procedure Change_Child (The_Child : Child;
From_Tree : in out Tree;
To_Tree : in out Tree);
function Is_Equal (Left : Tree; Right : Tree) return Boolean;
function Is_Void (The_Tree : Tree) return Boolean;
function Element_From (The_Tree : Tree) return Element;
function Child_Of (The_Tree : Tree; The_Child : Child) return Tree;
Overflow : exception;
Tree_Is_Void : exception;
private
type Node;
type Tree is access Node;
Void_Tree : constant Tree := null;
end Generic_Tree;