|
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: 4096 (0x1000) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Find_Exceptions, seg_0043fe
└─⟦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