|
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 - metrics - download
Length: 10240 (0x2800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Synonym_Sort_Array, seg_040565
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Text_Io, Synonym, Generic_String_Sort_Array;
use Text_Io;
procedure Test_Synonym_Sort_Array is
package Synonym_Array is new Generic_String_Sort_Array
(Element => Synonym.Object,
Max_Element_Number => 200,
Get_Key => Synonym.Name);
V1, V2, V3, V4, V5, V6, V7, V8 : Synonym.Object;
Found : Boolean;
An_Array : Synonym_Array.Object;
An_Iterator : Synonym_Array.Iterator;
Index : Synonym_Array.Element_Index;
begin
Synonym.Initialize (V1, "marcher", 1);
Synonym.Initialize (V2, "aller", 1);
Synonym.Initialize (V3, "poser", 2);
Synonym.Initialize (V4, "jeter", 2);
Synonym.Initialize (V5, "lancer", 2);
Synonym.Initialize (V6, "courir", 1);
Synonym.Initialize (V7, "sauter", 1);
Synonym.Initialize (V8, "deposer", 2);
-- Put_Line ("s : " & synonym.name (V1) & " v : " & positive'image(synonym.number (V1)));
-- Put_Line ("s : " & synonym.name (V2) & " v : " & positive'image(synonym.number (V2)));
-- Put_Line ("s : " & synonym.name (V3) & " v : " & positive'image(synonym.number (V3)));
-- Put_Line ("s : " & synonym.name (V4) & " v : " & positive'image(synonym.number (V4)));
-- Put_Line ("s : " & synonym.name (V5) & " v : " & positive'image(synonym.number (V5)));
-- Put_Line ("s : " & synonym.name (V6) & " v : " & positive'image(synonym.number (V6)));
-- Put_Line ("s : " & synonym.name (V7) & " v : " & positive'image(synonym.number (V7)));
-- Put_Line ("s : " & synonym.name (V8) & " v : " & positive'image(synonym.number (V8)));
Put_Line ("-- Is_Empty --");
if Synonym_Array.Is_Empty (An_Array) then
Put_Line ("Le tableau est vide");
end if;
Put_Line ("-- Iterateur sur tableau vide --");
Synonym_Array.Create (An_Array, An_Iterator);
while not Synonym_Array.Is_At_End (An_Iterator) loop
V1 := Synonym_Array.Value (An_Iterator);
Put_Line ("s : " & Synonym.Name (V1) & " v : " &
Positive'Image (Synonym.Number (V1)));
Synonym_Array.Next (An_Iterator);
end loop;
Put_Line ("-- Synonym_Array.Put avec found --");
Synonym_Array.Put (An_Array, V1, Found);
if Found then
Put_Line ("L'element est deja insere !");
end if;
Put_Line ("-- 2eme Synonym_Array.Put avec found --");
Synonym_Array.Put (An_Array, V1, Found);
if Found then
Put_Line ("L'element est deja insere !");
end if;
Put_Line ("-- insertion de 6 elements dans le tableau --");
Synonym_Array.Put (An_Array, V2, Found);
Synonym_Array.Put (An_Array, V3, Found);
Synonym_Array.Put (An_Array, V4, Found);
Synonym_Array.Put (An_Array, V5, Found);
Synonym_Array.Put (An_Array, V6, Found);
Synonym_Array.Put (An_Array, V7, Found);
Synonym_Array.Put (An_Array, V8, Found);
--Synonym_Array.Create (An_Array, An_Iterator);
Put_Line ("-- Iterateur sur tableau plein --");
Synonym_Array.Create (An_Array, An_Iterator);
while not Synonym_Array.Is_At_End (An_Iterator) loop
V1 := Synonym_Array.Value (An_Iterator);
Put_Line ("s : " & Synonym.Name (V1) & " v : " &
Positive'Image (Synonym.Number (V1)));
Synonym_Array.Next (An_Iterator);
end loop;
Put_Line ("-- Avant Synonym.New_number --");
Put_Line ("s : " & Synonym.Name (V1) & " v : " &
Positive'Image (Synonym.Number (V1)));
Put_Line ("-- Apres Synonym.New_number --");
Synonym.New_Number (V1, 2);
Put_Line ("s : " & Synonym.Name (V1) & " v : " &
Positive'Image (Synonym.Number (V1)));
Put_Line ("-- Put sans found --");
Synonym_Array.Put (An_Array, V1);
Synonym_Array.Create (An_Array, An_Iterator);
while not Synonym_Array.Is_At_End (An_Iterator) loop
V1 := Synonym_Array.Value (An_Iterator);
Put_Line ("s : " & Synonym.Name (V1) & " v : " &
Positive'Image (Synonym.Number (V1)));
Synonym_Array.Next (An_Iterator);
end loop;
-- PENSER A FAIRE UN LOWER CASE AVANT LEX.GET_VALUE
Put_Line ("-- Get de 'lancer' --");
Synonym_Array.Get (An_Array, V1, "lancer", Found);
if Found then
Put_Line ("s : " & Synonym.Name (V1) & " v : " &
Positive'Image (Synonym.Number (V1)));
else
Put_Line ("Element pas trouve !");
end if;
Put_Line (" -- Get de 'lance' -- ");
Synonym_Array.Get (An_Array, V1, "lance", Found);
if Found then
Put_Line ("s : " & Synonym.Name (V1) & " v : " &
Positive'Image (Synonym.Number (V1)));
else
Put_Line ("Element pas trouve !");
end if;
Put_Line ("-- Get de 'courir' -- ");
Synonym_Array.Get (An_Array, V1, "courir", Found);
if Found then
Put_Line ("s : " & Synonym.Name (V1) & " v : " &
Positive'Image (Synonym.Number (V1)));
else
Put_Line ("Element pas trouve !");
end if;
Put_Line ("-- Get de 'sauter' -- ");
Synonym_Array.Get (An_Array, V1, "sauter", Found);
if Found then
Put_Line ("s : " & Synonym.Name (V1) & " v : " &
Positive'Image (Synonym.Number (V1)));
else
Put_Line ("Element pas trouve !");
end if;
Put_Line ("-- Get avec Element_Index = 1 --");
Synonym_Array.Get (An_Array, V1, 1, Found);
if Found then
Put_Line ("s : " & Synonym.Name (V1) & " v : " &
Positive'Image (Synonym.Number (V1)));
else
Put_Line ("Element pas trouve !");
end if;
Put_Line ("-- Get avec Element_Index = 9 --");
Synonym_Array.Get (An_Array, V1, 9, Found);
if Found then
Put_Line ("s : " & Synonym.Name (V1) & " v : " &
Positive'Image (Synonym.Number (V1)));
else
Put_Line ("Element pas trouve !");
end if;
Put_Line ("-- Get avec Element_Index = 8 --");
Synonym_Array.Get (An_Array, V1, 8, Found);
if Found then
Put_Line ("s : " & Synonym.Name (V1) & " v : " &
Positive'Image (Synonym.Number (V1)));
else
Put_Line ("Element pas trouve !");
end if;
Put_Line ("-- Index sur 'pose'--");
Index := Synonym_Array.Index (An_Array, "pose");
if Index /= 0 then
Synonym_Array.Get (An_Array, V1, Index, Found);
Put_Line ("s : " & Synonym.Name (V1) & " v : " &
Positive'Image (Synonym.Number (V1)));
else
Put_Line ("Pose pas trouve");
end if;
Put_Line ("-- Index sur 'poser'--");
Index := Synonym_Array.Index (An_Array, "poser");
if Index /= 0 then
Synonym_Array.Get (An_Array, V1, Index, Found);
Put_Line ("s : " & Synonym.Name (V1) & " v : " &
Positive'Image (Synonym.Number (V1)));
else
Put_Line ("Poser pas trouve !");
end if;
end Test_Synonym_Sort_Array;
nblk1=9
nid=8
hdr6=10
[0x00] rec0=1d rec1=00 rec2=01 rec3=086
[0x01] rec0=12 rec1=00 rec2=04 rec3=070
[0x02] rec0=1e rec1=00 rec2=09 rec3=04c
[0x03] rec0=1b rec1=00 rec2=07 rec3=064
[0x04] rec0=1d rec1=00 rec2=06 rec3=05c
[0x05] rec0=1e rec1=00 rec2=05 rec3=056
[0x06] rec0=1e rec1=00 rec2=02 rec3=008
[0x07] rec0=0a rec1=00 rec2=03 rec3=000
[0x08] rec0=18 rec1=00 rec2=08 rec3=000
tail 0x217408430860e77122807 0x42a00088462060003
Free Block Chain:
0x8: 0000 00 00 00 45 80 06 65 20 21 22 29 3b 06 00 0b 20 ┆ E e !"); ┆