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

⟦85055d37a⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Bird, seg_0393b0

Derivation

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

with Animal;
with Application;
with Text_Io;
with Unchecked_Conversion;
package body Bird is



    type State is
        record
            Offspring_No : Natural := 0;
            Heir : Application.Object;
        end record;

    type P_Bird_State is access Bird.State;


    function Application_View_Of is
       new Unchecked_Conversion (Source => P_Bird_State,
                                 Target => Application.Object);



    function Create (Offspring_No : Natural := 0) return Object is
        A : Animal.Object;
        P : P_Bird_State;  
        As : Animal.State;
    begin
        P := new Bird.State;
        P.Offspring_No := Offspring_No;
        P.Heir := null;
        A := Animal.Create (1);
        As := Animal.Part_Of (A);
        Animal.Set_Heir (As, Application_View_Of (P));
        return Bird.Object (A);
    end Create;


    procedure Fly (Bird : Standard.Bird.Object) is
    begin
        Text_Io.Put_Line ("bird now flying ...");
    end Fly;


end Bird;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=2a rec1=00 rec2=01 rec3=01c
        [0x01] rec0=05 rec1=00 rec2=02 rec3=001
    tail 0x21532406e84ec7f24057d 0x42a00088462060003