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

⟦0f31c1428⟧ Ada Source

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

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 Fish is

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

    type P_Fish_State is access Fish.State;


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



    function Create (Offspring_No : Natural := 0) return Object is
        A : Animal.Object;
        P : P_Fish_State;  
        As : Animal.State;
    begin
        P := new Fish.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 Fish.Object (A);
    end Create;


    procedure Swim (Fish : Standard.Fish.Object) is
    begin
        Text_Io.Put_Line ("fish now swimming ...");
    end Swim;
end Fish;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=29 rec1=00 rec2=01 rec3=020
        [0x01] rec0=03 rec1=00 rec2=02 rec3=001
    tail 0x21532412484ec7fc0554f 0x42a00088462060003