|
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: 7168 (0x1c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Enumeration_Array, seg_043909
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Text_Io, Identifier, Enumeration_Array;
use Text_Io;
procedure Test_Enumeration_Array is
Id, Id_E : Identifier.Object;
Ok : Boolean;
begin
Enumeration_Array.Show;
Put_Line ("numero 1,2 : " & Enumeration_Array.Literal_Image (1, 2));
Put_Line ("numero 1,0 : " & Enumeration_Array.Literal_Image (1, 0));
Put_Line ("numero 0,9 : " & Enumeration_Array.Literal_Image (0, 9));
Identifier.Put (Id_E, "couleur");
Identifier.Put (Id, "vert");
Enumeration_Array.Put_Literal (Id_E, Id, Ok);
if Ok then
Put_Line ("correct !");
else
Put_Line ("incorrect !");
end if;
Enumeration_Array.Put_Literal (Id_E, Id, Ok);
if Ok then
Put_Line ("correct !");
else
Put_Line ("incorrect !");
end if;
Identifier.Put (Id, "rouge");
Enumeration_Array.Put_Literal (Id_E, Id, Ok);
if Ok then
Put_Line ("correct !");
else
Put_Line ("incorrect !");
end if;
Identifier.Put (Id, "bleu");
Enumeration_Array.Put_Literal (Id_E, Id, Ok);
if Ok then
Put_Line ("correct !");
else
Put_Line ("incorrect !");
end if;
Identifier.Put (Id_E, "feu");
Enumeration_Array.Put_Literal (Id_E, Id, Ok);
if Ok then
Put_Line ("correct !");
else
Put_Line ("incorrect !");
end if;
Identifier.Put (Id, "jaune");
Enumeration_Array.Put_Literal (Id_E, Id, Ok);
if Ok then
Put_Line ("correct !");
else
Put_Line ("incorrect !");
end if;
Enumeration_Array.Show;
Put_Line ("numero 1,2 : " & Enumeration_Array.Literal_Image (1, 2));
Put_Line ("numero 1,1 : " & Enumeration_Array.Literal_Image (1, 1));
Put_Line ("numero 2,2 : " & Enumeration_Array.Literal_Image (2, 2));
Put_Line ("numero 2,1 : " & Enumeration_Array.Literal_Image (2, 1));
Put_Line ("numero 4,2 : " & Enumeration_Array.Literal_Image (4, 2));
Put_Line ("numero 1,5 : " & Enumeration_Array.Literal_Image (1, 5));
Put_Line ("belong couleur : " &
Boolean'Image (Enumeration_Array.Enumeration_Belong ("couleur")));
Put_Line ("belong feu : " &
Boolean'Image (Enumeration_Array.Enumeration_Belong ("feu")));
Put_Line ("belong etat : " &
Boolean'Image (Enumeration_Array.Enumeration_Belong ("etat")));
Put_Line ("belong 1,rouge : " &
Boolean'Image (Enumeration_Array.Literal_Belong (1, "rouge")));
Put_Line ("belong 1,bleu : " &
Boolean'Image (Enumeration_Array.Literal_Belong (1, "bleu")));
Put_Line ("belong 2,bleu : " &
Boolean'Image (Enumeration_Array.Literal_Belong (1, "bleu")));
Put_Line ("belong 1,blanc : " &
Boolean'Image (Enumeration_Array.Literal_Belong (1, "blanc")));
Put_Line ("belong 4,rouge : " &
Boolean'Image (Enumeration_Array.Literal_Belong (4, "rouge")));
Put_Line ("enum couleur : " & Natural'Image
(Enumeration_Array.Enum ("couleur")));
Put_Line ("enum feu : " & Natural'Image (Enumeration_Array.Enum ("feu")));
Put_Line ("enum etat : " & Natural'Image (Enumeration_Array.Enum ("etat")));
Put_Line ("enum 1 ,rouge : " & Natural'Image
(Enumeration_Array.Literal (1, "rouge")));
Put_Line ("enum 2,bleu : " & Natural'Image
(Enumeration_Array.Literal (2, "bleu")));
Put_Line ("enum 4,rouge : " & Natural'Image
(Enumeration_Array.Literal (4, "rouge")));
end Test_Enumeration_Array;
nblk1=6
nid=0
hdr6=c
[0x00] rec0=26 rec1=00 rec2=01 rec3=02a
[0x01] rec0=09 rec1=00 rec2=06 rec3=016
[0x02] rec0=1c rec1=00 rec2=02 rec3=0a0
[0x03] rec0=02 rec1=00 rec2=05 rec3=02c
[0x04] rec0=12 rec1=00 rec2=03 rec3=058
[0x05] rec0=0b rec1=00 rec2=04 rec3=001
tail 0x217446d0a86373a5f83b2 0x42a00088462060003