|
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: 10240 (0x2800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Field, seg_04906b
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Text_Io, Field, Field_Identifier_Array, Identifier, Enumeration_Array;
use Text_Io;
procedure Test_Field is
A_Field : Field.Object;
Id, Id1, Id2 : Identifier.Object;
Val_Enum : Natural;
Ok : Boolean;
begin
Enumeration_Array.Show;
Id1 := Identifier.From_String ("etat_porte");
Id2 := Identifier.From_String ("ouverte");
Enumeration_Array.Put_Literal (Id1, Id2, Ok);
Id2 := Identifier.From_String ("fermee");
Enumeration_Array.Put_Literal (Id1, Id2, Ok);
Id2 := Identifier.From_String ("verrouillee");
Enumeration_Array.Put_Literal (Id1, Id2, Ok);
Id2 := Identifier.From_String ("deverrouillee");
Enumeration_Array.Put_Literal (Id1, Id2, Ok);
Enumeration_Array.Show;
Val_Enum := Enumeration_Array.Enum (Identifier.Image (Id1));
Put_Line ("image : " & Field.Image (A_Field));
Put_Line ("-- Number --");
Identifier.Put (Id, "nombre");
Field_Identifier_Array.Put (Id);
Field.Create_Number (A_Field,
Field_Identifier_Array.Index (Identifier.Image (Id)));
Field.Put_Sentence (A_Field,
Identifier.From_String ("La chaise est grande !"), Ok);
if Ok then
Put_Line ("bien insere !");
else
Put_Line ("mal insere !");
end if;
Field.Put_Enumerate (A_Field, Val_Enum,
Enumeration_Array.Literal
(Val_Enum, Identifier.Image (Id2)), Ok);
if Ok then
Put_Line ("bien insere !");
else
Put_Line ("mal insere !");
end if;
Field.Put_Number (A_Field, 321, Ok);
if Ok then
Put_Line ("bien insere !");
else
Put_Line ("mal insere !");
end if;
Field.Show (A_Field);
Put_Line ("index : " & Natural'Image (Field.Index (A_Field)) &
" " & Natural'Image (Field.Index (A_Field)));
Put_Line ("is a number : " & Boolean'Image (Field.Is_A_Number (A_Field)));
Put_Line ("is a sentence : " & Boolean'Image
(Field.Is_A_Sentence (A_Field)));
Put_Line ("is an enumerate : " & Boolean'Image
(Field.Is_An_Enumerate (A_Field)));
Put_Line ("Number : " & Integer'Image (Field.Number (A_Field)));
Put_Line ("Sentence " & Field.Sentence (A_Field));
Put_Line ("Enumeration : " & Natural'Image (Field.Enumeration (A_Field)));
Put_Line ("Literal : " & Natural'Image (Field.Literal (A_Field)));
Put_Line ("image : " & Field.Image (A_Field));
Put_Line ("-- Enumerate --");
Identifier.Put (Id, "etat");
Field_Identifier_Array.Put (Id);
Field.Create_Enumerate (A_Field, Field_Identifier_Array.Index
(Identifier.Image (Id)));
Field.Put_Sentence (A_Field,
Identifier.From_String ("La chaise est grande !"), Ok);
if Ok then
Put_Line ("bien insere !");
else
Put_Line ("mal insere !");
end if;
Field.Put_Enumerate (A_Field, Val_Enum,
Enumeration_Array.Literal
(Val_Enum, Identifier.Image (Id2)), Ok);
if Ok then
Put_Line ("bien insere !");
else
Put_Line ("mal insere !");
end if;
Field.Put_Number (A_Field, 321, Ok);
if Ok then
Put_Line ("bien insere !");
else
Put_Line ("mal insere !");
end if;
Field.Show (A_Field);
Put_Line ("index : " & Natural'Image (Field.Index (A_Field)) &
" " & Natural'Image (Field.Index (A_Field)));
Put_Line ("is a number : " & Boolean'Image (Field.Is_A_Number (A_Field)));
Put_Line ("is a sentence : " & Boolean'Image
(Field.Is_A_Sentence (A_Field)));
Put_Line ("is an enumerate : " & Boolean'Image
(Field.Is_An_Enumerate (A_Field)));
Put_Line ("Number : " & Integer'Image (Field.Number (A_Field)));
Put_Line ("Sentence " & Field.Sentence (A_Field));
Put_Line ("Enumeration : " & Natural'Image (Field.Enumeration (A_Field)));
Put_Line ("Literal : " & Natural'Image (Field.Literal (A_Field)));
Put_Line ("image : " & Field.Image (A_Field));
Put_Line ("-- Sentence --");
Identifier.Put (Id, "description");
Field_Identifier_Array.Put (Id);
Field.Create_Sentence (A_Field, Field_Identifier_Array.Index
(Identifier.Image (Id)));
Field.Put_Sentence (A_Field,
Identifier.From_String ("La chaise est grande !"), Ok);
if Ok then
Put_Line ("bien insere !");
else
Put_Line ("mal insere !");
end if;
Field.Put_Enumerate (A_Field, Val_Enum,
Enumeration_Array.Literal
(Val_Enum, Identifier.Image (Id2)), Ok);
if Ok then
Put_Line ("bien insere !");
else
Put_Line ("mal insere !");
end if;
Field.Put_Number (A_Field, 321, Ok);
if Ok then
Put_Line ("bien insere !");
else
Put_Line ("mal insere !");
end if;
Field.Show (A_Field);
Put_Line ("index : " & Natural'Image (Field.Index (A_Field)) &
" " & Natural'Image (Field.Index (A_Field)));
Put_Line ("is a number : " & Boolean'Image (Field.Is_A_Number (A_Field)));
Put_Line ("is a sentence : " & Boolean'Image
(Field.Is_A_Sentence (A_Field)));
Put_Line ("is an enumerate : " & Boolean'Image
(Field.Is_An_Enumerate (A_Field)));
Put_Line ("Number : " & Integer'Image (Field.Number (A_Field)));
Put_Line ("Sentence " & Field.Sentence (A_Field));
Put_Line ("Enumeration : " & Natural'Image (Field.Enumeration (A_Field)));
Put_Line ("Literal : " & Natural'Image (Field.Literal (A_Field)));
Put_Line ("image : " & Field.Image (A_Field));
Field_Identifier_Array.Show;
Enumeration_Array.Show;
end Test_Field;
nblk1=9
nid=0
hdr6=12
[0x00] rec0=1f rec1=00 rec2=01 rec3=048
[0x01] rec0=1f rec1=00 rec2=05 rec3=05e
[0x02] rec0=15 rec1=00 rec2=02 rec3=006
[0x03] rec0=02 rec1=00 rec2=03 rec3=01e
[0x04] rec0=1c rec1=00 rec2=04 rec3=034
[0x05] rec0=18 rec1=00 rec2=07 rec3=038
[0x06] rec0=00 rec1=00 rec2=09 rec3=00c
[0x07] rec0=1a rec1=00 rec2=06 rec3=002
[0x08] rec0=05 rec1=00 rec2=08 rec3=000
tail 0x2174d5630865b3efa27a0 0x42a00088462060003