|
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: 8192 (0x2000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_List, seg_0459bd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with List, Text_Io;
procedure Test_List is
Preallocation : Positive := 20;
package My_List is new List (Element => Character,
Nb_Preallocation_Cellule => Preallocation);
Autre_List : My_List.Object;
A_List : My_List.Object;
begin
My_List.Insert (A_List, 'A');
My_List.Insert (A_List, 'D');
My_List.Insert (A_List, 'I');
My_List.Insert (A_List, 'B');
My_List.Insert (A_List, 'L');
My_List.Insert (A_List, 'H');
My_List.Insert (A_List, 'Y');
My_List.Insert (A_List, 'R');
My_List.Insert (A_List, 'T');
My_List.Insert (A_List, 'G');
My_List.Insert (A_List, 'F');
My_List.Insert (A_List, 'I');
My_List.Insert (A_List, 'Z');
My_List.Insert (Autre_List, '1');
My_List.Insert (Autre_List, '2');
My_List.Insert (Autre_List, '3');
My_List.Insert (Autre_List, '4');
My_List.Insert (Autre_List, '5');
My_List.Insert (Autre_List, '6');
My_List.Insert (Autre_List, '7');
My_List.Insert (Autre_List, '8');
My_List.Insert (Autre_List, '9');
My_List.Insert (Autre_List, 'a');
My_List.Insert (Autre_List, 'b');
My_List.Insert (Autre_List, 'c');
My_List.Insert (Autre_List, 'd');
Text_Io.New_Line;
My_List.Go_First (Autre_List);
Text_Io.Put ("first : " & My_List.Get_Current_Element (Autre_List));
Text_Io.New_Line;
My_List.Go_Next (Autre_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (Autre_List));
Text_Io.New_Line;
My_List.Go_Next (Autre_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (Autre_List));
My_List.Set_Current_Element (Autre_List, '*');
Text_Io.Put (" changed in : " &
My_List.Get_Current_Element (Autre_List));
Text_Io.New_Line;
My_List.Remove_Current_Element (Autre_List);
Text_Io.Put (" remove * ");
Text_Io.New_Line;
Text_Io.New_Line;
Text_Io.New_Line;
My_List.Go_First (A_List);
Text_Io.Put ("first : " & My_List.Get_Current_Element (A_List));
Text_Io.New_Line;
My_List.Go_Next (A_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (A_List));
Text_Io.New_Line;
My_List.Go_Next (A_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (A_List));
My_List.Set_Current_Element (A_List, '*');
Text_Io.Put (" changed in : " & My_List.Get_Current_Element (A_List));
Text_Io.New_Line;
My_List.Remove_Current_Element (A_List);
Text_Io.Put (" remove * ");
Text_Io.New_Line;
Text_Io.New_Line;
My_List.Go_First (A_List);
Text_Io.Put ("first : " & My_List.Get_Current_Element (A_List));
Text_Io.New_Line;
My_List.Go_Next (A_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (A_List));
Text_Io.New_Line;
My_List.Go_Next (A_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (A_List));
Text_Io.New_Line;
My_List.Go_Next (A_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (A_List));
Text_Io.New_Line;
My_List.Go_Next (A_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (A_List));
Text_Io.New_Line;
My_List.Go_Next (A_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (A_List));
Text_Io.New_Line;
My_List.Go_Next (A_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (A_List));
Text_Io.New_Line;
My_List.Go_Next (A_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (A_List));
Text_Io.New_Line;
My_List.Go_Next (A_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (A_List));
Text_Io.New_Line;
My_List.Go_Next (A_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (A_List));
Text_Io.New_Line;
My_List.Go_First (Autre_List);
Text_Io.Put ("first : " & My_List.Get_Current_Element (Autre_List));
Text_Io.New_Line;
My_List.Go_Next (Autre_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (Autre_List));
Text_Io.New_Line;
My_List.Go_Next (Autre_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (Autre_List));
Text_Io.New_Line;
My_List.Go_Next (Autre_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (Autre_List));
Text_Io.New_Line;
My_List.Go_Next (Autre_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (Autre_List));
Text_Io.New_Line;
My_List.Go_Next (Autre_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (Autre_List));
Text_Io.New_Line;
My_List.Go_Next (Autre_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (Autre_List));
Text_Io.New_Line;
My_List.Go_Next (Autre_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (Autre_List));
Text_Io.New_Line;
My_List.Go_Next (Autre_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (Autre_List));
Text_Io.New_Line;
My_List.Go_Next (Autre_List);
Text_Io.Put ("next : " & My_List.Get_Current_Element (Autre_List));
Text_Io.New_Line;
My_List.Go_Next (Autre_List);
Text_Io.Put ("fin " & Boolean'Image (My_List.At_End (Autre_List)));
My_List.Go_Previous (Autre_List);
My_List.Go_Previous (Autre_List);
My_List.Go_Previous (Autre_List);
My_List.Go_Previous (Autre_List);
Text_Io.Put ("previous : " & My_List.Get_Current_Element (Autre_List));
Text_Io.New_Line;
if not My_List.At_End (Autre_List) then
Text_Io.Put (" G : " & My_List.Get_Current_Element (Autre_List));
end if;
end Test_List;
nblk1=7
nid=5
hdr6=c
[0x00] rec0=23 rec1=00 rec2=01 rec3=03c
[0x01] rec0=1b rec1=00 rec2=06 rec3=002
[0x02] rec0=18 rec1=00 rec2=02 rec3=080
[0x03] rec0=19 rec1=00 rec2=07 rec3=082
[0x04] rec0=18 rec1=00 rec2=04 rec3=012
[0x05] rec0=13 rec1=00 rec2=03 rec3=001
[0x06] rec0=ef rec1=94 rec2=00 rec3=028
tail 0x215420b8a864b7fd12864 0x42a00088462060003
Free Block Chain:
0x5: 0000 00 00 02 67 80 14 73 74 2e 47 6f 5f 4e 65 78 74 ┆ g st.Go_Next┆