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

⟦e7455c2d9⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Aggregate_Templates, seg_0045d6

Derivation

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

E3 Source Code



--| @SUMMARY Creates aggregate images for any type declaration.
--| @INDICES (Ada_Display, Type_Traversal)
with Ada_Program;
generic
    --| @DESCRIPTION Formal to place a string in a file or image or
    --| data structure depending on the actual procedure.
    with procedure Put (Item : String);

    --| @DESCRIPTION Called for formatting images with line breaks.
    with procedure New_Line;
package Aggregate_Templates is

    --| @DESCRIPTION Displays an expression for any type declaration
    --| Composite types are displayed as aggregates, other types
    --| simply generate an expression prompt.  If Expand is True
    --| then the type declarations is recursively expanded.
    --| @PARAMETERS Max_Array_Components Defines the max number of
    --| aggregate components for nested arrays
    procedure Put_Decl (Type_Decl : Ada_Program.Element;
                        Number_Array_Components : Boolean := False;
                        Max_Array_Components : Positive;
                        Expand : Boolean := False);


    --| @DESCRIPTION Displays an aggregate for a record type declaration
    --| If Expand is True, then the type's components are recursively
    --| expanded.
    --| @PARAMETERS Max_Array_Components Defines the max number of
    --| aggregate components for nested arrays
    procedure Put_Record (Type_Decl : Ada_Program.Element;
                          Number_Array_Components : Boolean := False;
                          Max_Array_Components : Positive;
                          Expand : Boolean := False);

    --| @DESCRIPTION Displays an aggregate for a array type declaration
    --| If Expand is True, then the array's component type is recursively
    --| expanded.
    --| @PARAMETERS Add_Numbering Defines whether or not to number the
    --| array's components
    procedure Put_Array (Type_Decl     : Ada_Program.Element;
                         Lower_Bound   : Integer;
                         Upper_Bound   : Integer;
                         Add_Numbering : Boolean := False;
                         Expand        : Boolean := False);
end Aggregate_Templates;

E3 Meta Data

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=16 rec1=00 rec2=01 rec3=05e
        [0x01] rec0=15 rec1=00 rec2=02 rec3=026
        [0x02] rec0=04 rec1=00 rec2=03 rec3=000
    tail 0x21700226e815c6568eedb 0x42a00088462061e03