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

⟦a6291d9d9⟧ Ada Source

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

Derivation

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

--| @SUMMARY The procedures in this package will find all exception
--|          declarations within the specified Ada units.  They will also
--|          locate and display all handlers and explicit raises for
--|          these exceptions.
--|
--| @DESCRIPTION The ADD procedure appends new information to an existing
--| document.  DISPLAY will create a new document to hold the information
--| and will display that document on the screen.
--|
--| These procedures will locate all exception declarations or references
--| within the scope of the given units.  It will then find ALL references
--| (either handlers or explicit raises) to those exception declarations
--| found above - even if that reference is outside the scope of the given
--| units.
--|
--| Table Fields:
--|
--|    EXCEPTION_NAME
--|        This is the name of the exception that is being declared
--|        or referenced.  Definition will take you to the exception
--|        declaration for a declaration or reference.
--|
--|    TYPE_OF_REF
--|        Indicates whether this is an exception declaration, a reference
--|        to an exception in a hander or an explicit raise of an exception.
--|        Definition takes you to the point of declaration for a declaration
--|        or to the actual usage for a reference.
--|
--|    VISIBLE
--|        For exception declarations only, this field indicates whether that
--|        declaration is in a package spec or not.  For exception references
--|        this field is empty.  Definition works as in "TYPE_OF_REF".
--|
--|    UNIT_NAME
--|        This is the name of the Ada unit where the declaration or reference
--|        was found.  Definition works as in "TYPE_OF_REF".
--|
--| @INDICES (ANALYSIS, ADA_ANALYSIS, ABSTRACT_DOCUMENT)
--|
with Abstract_Document;
package Find_Exceptions is

    procedure Add (Units       :        String := "";
                   To_Document : in out Abstract_Document.Handle;
                   Response    :        String := "<PROFILE>");

    procedure Display (Units             : String := "";
                       To_Preview_Object : String := "Exception_Info";
                       Response          : String := "<PROFILE>");
end Find_Exceptions;

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=16 rec1=00 rec2=01 rec3=042
        [0x01] rec0=17 rec1=00 rec2=02 rec3=082
        [0x02] rec0=07 rec1=00 rec2=03 rec3=000
    tail 0x2170016b2815c6374318e 0x42a00088462061e03