|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3146 (0xc4a)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦fdc296ed2⟧
└─⟦this⟧
Tests.Beginner;
while not Tests.At_End loop
Text_Io.Put_Line ("");
Text_Io.Put_Line ("Les tests ....................");
Tests.First_Test;
while not Tests.At_End_Sup loop
Text_Io.Put_Line ("");
Un_Test := Tests.Get_Test;
case Un_Test.Kind is
when Tests.Is_A_Verb =>
Text_Io.Put_Line ("Kind: Is_A_Verb");
when Tests.Is_A_Complement =>
Text_Io.Put_Line ("Kind: Is_A_Complement");
when Tests.Is_In_State =>
Text_Io.Put_Line ("Kind: Is_In_State");
when Tests.Is_Equal =>
Text_Io.Put_Line ("Kind: Is_Equal");
when Tests.Is_Greater =>
Text_Io.Put_Line ("Kind: Is_Greater");
when Tests.Is_Less =>
Text_Io.Put_Line ("Kind: Is_Less");
when Tests.Is_In_Position =>
Text_Io.Put_Line ("Kind: Is_In_Position");
when Tests.Always =>
Text_Io.Put_Line ("Kind: Always");
end case;
Text_Io.Put_Line ("Name: " & Tests.Identifier.Image (Un_Test.Name));
Text_Io.Put_Line ("State: " &
Tests.Identifier.Image (Un_Test.State));
Text_Io.Put_Line ("Value: " & Integer'Image (Un_Test.Value));
Tests.Test_Sup;
end loop;
Tests.First_Effect;
Text_Io.Put_Line ("");
Text_Io.Put_Line ("Les effets ....................");
while not Tests.At_End_Effect loop
Text_Io.Put_Line ("");
Un_Effet := Tests.Get_Effect;
case Un_Effet.Kind is
when Tests.Increase =>
Text_Io.Put_Line ("Kind: Increase");
when Tests.Decrease =>
Text_Io.Put_Line ("Kind: Decrease");
when Tests.Value =>
Text_Io.Put_Line ("Kind: Value");
when Tests.Print =>
Text_Io.Put_Line ("Kind: Print");
when Tests.Comment =>
Text_Io.Put_Line ("Kind: Comment");
when Tests.Game_Over =>
Text_Io.Put_Line ("Kind: Game_Over");
when Tests.Change =>
Text_Io.Put_Line ("Kind: Change");
when Tests.Position =>
Text_Io.Put_Line ("Kind: Position");
end case;
Text_Io.Put_Line ("Name: " &
Tests.Identifier.Image (Un_Effet.Name));
Text_Io.Put_Line ("State: " &
Tests.Identifier.Image (Un_Effet.State));
Text_Io.Put_Line ("Other_State: " &
Tests.Identifier.Image (Un_Effet.Other_State));
Text_Io.Put_Line ("Position: " &
Tests.Identifier.Image (Un_Effet.Position));
Text_Io.Put_Line ("Value: " & Integer'Image (Un_Effet.Value));
Tests.Next_Effect;
end loop;
Tests.Next;
end loop;