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

⟦3b7e9ca88⟧ Ada Source

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

Derivation

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

with Fruit;
with Leaf;
with Log_Report;
with Oo_Ada_Exception;
with Plant;  
with Sun;
with Tomato;
with Vegetable;

procedure Test_Vegetal is

    T : Tomato.Object;
    P : Plant.Object;
    V : Vegetable.Object;  
    S : Sun.Object;

    Rl : Plant.Ref_Of_Leaves := Plant.Nil;
    L : Leaf.Object;

    Serre : array (1 .. 3) of Plant.Object;

begin

    Log_Report.Trace_Off;

    T := Tomato.Create;  
    P := Plant.Create;  
    V := Vegetable.Create;  
    S := Sun.Create;

    Serre (1) := Tomato.Conv (T);
    Serre (2) := P;
    Serre (3) := Vegetable.Conv (V);

    for I in Serre'Range loop
        Plant.Grow (Serre (I));
    end loop;

    Tomato.Set_Z (T, 10);
    Tomato.Set_Y (T, 5);
    Tomato.Set_X (T, 2);
    Tomato.Set_W (T, 17);

    Tomato.Image (T);

    Tomato.Grow (T);
    Tomato.Ripen (T, S);

    for I in 1 .. 10 loop
        L := Leaf.Create;
        Leaf.Set_V (L, I);
        Plant.Insert (L, Rl);
    end loop;

    Tomato.Set_Leaves (T, Rl);

    Tomato.Image (T);




exception

    when Oo_Ada_Exception.Offspring_Error =>
        Log_Report.Error ("ERREUR OffSpring");

    when Oo_Ada_Exception.Null_Access_Error =>
        Log_Report.Error ("ERREUR  acces a une reference nulle");

    when others =>
        Log_Report.Error ("ERREUR non geree");
        raise;

end Test_Vegetal;

pragma Main;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=35 rec1=00 rec2=01 rec3=00e
        [0x01] rec0=19 rec1=00 rec2=02 rec3=001
    tail 0x21738520c851644de3048 0x42a00088462060003