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

⟦95ad58134⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Subs, seg_020bc5

Derivation

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

--| @SUMMARY Test Package
--|
with Types_2;
with Types;
package Subs is

    type T is private;

    type    Suits       is (Hearts, Diamonds, Clubs, Spades);
    subtype Red_Suits   is Suits range Hearts .. Diamonds;
    type    Black_Suits is new Suits range Clubs .. Spades;

    type Integer_Words is (One, Two, Three, Four, Five, Six, Seven);

    type Unconstrained_Multi_Index_Array_1 is  
       array (Integer_Words range <>, Natural range <>, Integer range <>) of
          Black_Suits;

    type Unconstrained_Multi_Index_Array_2 is
       array (Integer_Words range <>, Natural range <>, Integer range <>) of
          Red_Suits;

    type A_Return_Type is
        record
            A : Boolean;
            B : Boolean;
        end record;

    function "+" (Left, Right : T)           return T;
    function "-" (Left, Right : T)           return T;
    function "*" (Left, Right : T)           return T;
    function "*" (Left : Integer; Right : T) return T;
    function "*" (Left : T; Right : Integer) return T;

    -- procedure P3 (A : in out Unconstrained_Multi_Index_Array_1;
    --               B : in out Unconstrained_Multi_Index_Array_2);
    --

    function F4 return A_Return_Type;

    function F3 (A : Integer; B : Integer)
                return Unconstrained_Multi_Index_Array_1;

    procedure P1 (I1, I2 :        Types.Int;
                  S      :        String;
                  B      : out    Boolean;
                  E      : in out Types.Enum);

    procedure P2 (F1   : in out Float;
                  A, H : in out Integer;
                  R1   : in out Types.Subt;
                  B    : in out Types.Derived;
                  G    : in out Types_2.T;
                  D    : in out Duration;
                  K    : in out Types_2.Constrained_Arr);


    function F1 (C1, C2, C3 : Character;
                 S          : String;
                 D          : Duration;
                 Aa         : Types_2.Priv;
                 B          : Boolean;
                 L          : Types_2.Unconstrained_Arr) return Types.Enum;

    function Empty_Func   return String;
    function Empty_Func_2 return Duration;

    procedure Empty;

    E1       : exception;
    Ex2, Ex3 : exception;

private
    type T is new Boolean;
end Subs;

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=21 rec1=00 rec2=01 rec3=040
        [0x01] rec0=01 rec1=00 rec2=04 rec3=026
        [0x02] rec0=1c rec1=00 rec2=02 rec3=036
        [0x03] rec0=0f rec1=00 rec2=03 rec3=001
    tail 0x2151c814a838d45407b5d 0x42a00088462061e03