|
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;