DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦c5487b229⟧ TextFile

    Length: 1339 (0x53b)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

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;