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

⟦78672c5f4⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Xref, seg_000a18

Derivation

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

E3 Source Code



package Xref is

    procedure Used_By (List_Of_Names : String := "<IMAGE>";
                       Do_Functions : Boolean := True;
                       Do_Generics : Boolean := True;
                       Do_Procedures : Boolean := True;
                       Do_Attributes : Boolean := False;
                       Do_Record_Components : Boolean := False;
                       Do_Constants : Boolean := False;
                       Do_Entries : Boolean := False;
                       Do_Exceptions : Boolean := False;
                       Do_Labels : Boolean := False;
                       Do_Packages : Boolean := False;
                       Do_Parameters : Boolean := False;
                       Do_Pragmas : Boolean := False;
                       Do_Task_Bodies : Boolean := True;
                       Do_Types : Boolean := False;
                       Do_Variables : Boolean := False;
                       Exclude_References_From : String := "";
                       List_File_Name : String := "");

    -- Produce a report showing all of the units that reference (use) something
    -- defined in the units specified in "List_Of_Names".  Only the IDs defined
    -- in units specified in "List_Of_Names" will be included in the report.
    -- "Using" units can be excluded by listing their names in
    -- "Exclude_References_From".


    procedure Uses (List_Of_Names : String := "<IMAGE>";
                    Visible_Declarations_Only : Boolean := True;
                    Do_Functions : Boolean := True;
                    Do_Generics : Boolean := True;
                    Do_Procedures : Boolean := True;
                    Do_Attributes : Boolean := False;
                    Do_Record_Components : Boolean := False;
                    Do_Constants : Boolean := False;
                    Do_Entries : Boolean := False;
                    Do_Exceptions : Boolean := False;
                    Do_Labels : Boolean := False;
                    Do_Packages : Boolean := False;
                    Do_Parameters : Boolean := False;
                    Do_Pragmas : Boolean := False;
                    Do_Task_Bodies : Boolean := True;
                    Do_Types : Boolean := False;
                    Do_Variables : Boolean := False;
                    Exclude_References_To : String := "";
                    Only_References_To : String := "";
                    List_File_Name : String := "");

    -- produce a report of the items referenced by the units specified
    -- in "list_of_names".  Units mentioned in "Exclude_references_To"
    -- are not included in the report.  If units are mentioned in
    -- Only_references_to then these are the only units included in the
    -- report.  It is an error to specify both Exclude... and Only...
end Xref;

E3 Meta Data

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=14 rec1=00 rec2=01 rec3=07c
        [0x01] rec0=14 rec1=00 rec2=02 rec3=048
        [0x02] rec0=11 rec1=00 rec2=03 rec3=000
    tail 0x201007dfe7bac650fc32c 0x42a00088462060003