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 - download

⟦579ccc90e⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Display_Usage, seg_00451c

Derivation

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

with Directory_Renames;
use Directory_Renames;
with Table_Formatter;
with Object_Info;
with Abstract_Document;
with Directory_Miscellaneous;
with Common;
with Errors;
with Ada_Traversal;
with Create_Null_Document;
procedure Display_Usage (Of_Units_Or_Decls : String := "";
                         To_Preview_Object : String := "dependency_info") is

    package Table is new Table_Formatter (3);
    Units : Object.Iterator := Naming.Resolution
                                  (Of_Units_Or_Decls, Objects_Only => False);

    Status : Errors.Condition;
    Doc    : Abstract_Document.Handle;

    Sort_Fields : constant Table.Field_List (1 .. 2) := (1, 3);

    procedure Yield (Unit : Object.Handle) is
        Deps : Object.Iterator;
        Subsystem, Enclosing : Object.Handle;
    begin
        Enclosing := Traversal.Enclosing_World (Unit);
        if Object_Info.Any.Is_View (Enclosing) then
            Subsystem := Traversal.Enclosing_World (Enclosing);
            Table.Item (Naming.Simple_Name (Subsystem) &
                        "." & Naming.Simple_Name (Enclosing),
                        Object_Linkage => Enclosing,
                        Explanation    => "Enclosing world or subystem");
        else
            Table.Item (Naming.Simple_Name (Enclosing),
                        Object_Linkage => Enclosing,
                        Explanation    => "Enclosing world or subystem");
        end if;

        Table.Item (Naming.Simple_Name (Unit),
                    Object_Linkage => Unit,
                    Explanation    => "Name of the Unit with dependencies");

        Deps := Ada_Object.Depends_On (Unit);
        Table.Item (Integer'Image (Directory_Miscellaneous.Count (Deps)),
                    Object_Linkage_List => Deps,
                    Explanation => "Immediate dependenceis of the Unit");
    end Yield;

    procedure Traverse is new Ada_Traversal (Yield);
begin

    Create_Null_Document (Named           => To_Preview_Object,
                          Error_Info      => Status,
                          Document_Handle => Doc);

    Table.Header ("Enclosing World");
    Table.Header ("Unit");
    Table.Header ("Immediate Dependents", Is_Integer => True);

    Traverse (Units);

    Table.Sort (Sort_Fields);

    Table.Display (Doc, "Dependency information");
    Abstract_Document.Close (Doc);
    Common.Definition (To_Preview_Object);
end Display_Usage;

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=1e rec1=00 rec2=01 rec3=070
        [0x01] rec0=00 rec1=00 rec2=04 rec3=006
        [0x02] rec0=18 rec1=00 rec2=02 rec3=022
        [0x03] rec0=10 rec1=00 rec2=03 rec3=001
    tail 0x217001ce8815c64a1afe1 0x42a00088462061e03