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

⟦cf7c99741⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Analyze_Types, seg_0043fa

Derivation

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

--| @SUMMARY  Creates a preview object  containing all type declarations in the
--| specfified units and their component type declarations. There are several
--| types of sorts available via parameter.
--|
--| @DESCRIPTION The following sorts are available:
--|
--|  Kind_Sort - places all integer types together, record types together, etc.
--|
--|  Name_Sort - sorts alphabetically by the name of the declared type
--|
--|  Scalar_Sort - includes only numeric and enumeration types and sorts them
--|                by their bounds or the number of enumeration elements.
--|
--|  Subtype_Sort -  includes only subtypes and derived types and sorts them
--|                  by the type that is derived orgiven as the subtype
--|                  constraint.
--|
--|  Record_Sort - includes only record types and keeps all components from
--|                the same record grouped together.  The start of the grouping
--|                is indicated by a '+" in the fifth column.  The end of the
--|                grouping is indicated by a number which is the total number
--|                of components in the record.  Discriminant records are not
--|                displayed.
--|
procedure Analyze_Types (In_Units             : String  := "";
                         To_Preview_Object    : String  := "TYPE_INFO";
                         Include_Kind_Sort    : Boolean := True;
                         Include_Name_Sort    : Boolean := False;
                         Include_Scalar_Sort  : Boolean := False;
                         Include_Subtype_Sort : Boolean := False;
                         Include_Record_Sort  : Boolean := True;
                         Response             : String  := "<PROFILE>");

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=15 rec1=00 rec2=01 rec3=072
        [0x01] rec0=0d rec1=00 rec2=02 rec3=000
    tail 0x2170016aa815c636c690d 0x42a00088462061e03