|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Ct_Hierarchy, seg_0043e6
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
--| @SUMMARY blah blah blah
with Ada_Program;
with Call_Tree_Queues;
with Hierarchy_Generic;
with Ub_Strings;
with Window_Io;
package Ct_Hierarchy is
package Hierarchy is new Hierarchy_Generic (Element => Ada_Program.Element,
Are_Equal => Ada_Program."=");
type Display_Map (Size : Positive) is private;
function Conversion (Of_This_Tree : Call_Tree_Queues.Queue)
return Hierarchy.Hier;
function Conversion (Of_This_Map : Hierarchy.Map) return Display_Map;
subtype Window is Window_Io.File_Type;
procedure Put (This_Map : Display_Map; In_This_Window : Window);
--| @SPECIAL_NOTES If the user wants to quit, the function returns
--| Ada_Program.Nil_Element.
function Get_Next (This_Map : Display_Map; In_This_Window : Window)
return Ada_Program.Element;
private
type Object is
record
Contents : Ada_Program.Element;
Name : Ub_Strings.Variable_String;
Line : Positive;
Col : Positive;
end record;
type Set is array (Positive range <>) of Object;
type Display_Map (Size : Positive) is
record
Element : Object;
Return_Option : Object;
Num_Parents : Natural := 0;
Parents : Set (1 .. Size);
Num_Children : Natural := 0;
Children : Set (1 .. Size);
end record;
end Ct_Hierarchy;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=24 rec1=00 rec2=01 rec3=008
[0x01] rec0=11 rec1=00 rec2=02 rec3=000
tail 0x215003150815c63474b6d 0x42a00088462061e03