|
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, package body Verbs, seg_0496ab
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Our_String, Text_Io;
package body Verbs is
List_Of_Verbs : Our_List.List;
Current_Base : Our_String.Variable_String;
procedure Create_List_Of_Verbs is
begin
List_Of_Verbs := Our_List.Create;
end Create_List_Of_Verbs;
procedure Add_Base (The_Base : String) is
Tmp : Our_List.Object;
begin
Our_String.Free (Current_Base);
Our_String.Copy (Current_Base, The_Base);
Tmp := Our_List.Affect (The_Base, The_Base);
if not Our_List.Isinlist (List_Of_Verbs, The_Base) then
Our_List.Attach (List_Of_Verbs, Tmp);
else
Text_Io.Put_Line ("verb already declared : " & The_Base);
end if;
end Add_Base;
procedure Complete_Verb_With_Base (The_Verb : String) is
Tmp : Our_List.Object;
begin
if not Our_List.Isinlist (List_Of_Verbs, The_Verb) then
Tmp := Our_List.Affect (The_Verb, Our_String.Image (Current_Base));
Our_List.Attach (List_Of_Verbs, Tmp);
else
Text_Io.Put_Line ("verb already declared : " & The_Verb);
end if;
end Complete_Verb_With_Base;
function Get_Base_Of_The_Verb (The_Verb : String) return String is
Tmp_Iter : Our_List.Iter;
begin
Tmp_Iter := Our_List.Iteronobject (List_Of_Verbs, The_Verb);
return (Our_String.Image (Tmp_Iter.Info.The_Type));
end Get_Base_Of_The_Verb;
function Get_List_Of_Verbs return Our_List.List is
begin
return List_Of_Verbs;
end Get_List_Of_Verbs;
procedure Printall_List_Of_Verbs is
begin
Our_List.Printall (Our_List.Makelistiter (List_Of_Verbs));
end Printall_List_Of_Verbs;
end Verbs;
nblk1=7
nid=2
hdr6=4
[0x00] rec0=23 rec1=00 rec2=01 rec3=07c
[0x01] rec0=1f rec1=00 rec2=03 rec3=000
[0x02] rec0=14 rec1=00 rec2=04 rec3=000
[0x03] rec0=0d rec1=00 rec2=02 rec3=000
[0x04] rec0=80 rec1=00 rec2=00 rec3=100
[0x05] rec0=43 rec1=21 rec2=a2 rec3=656
[0x06] rec0=ec rec1=bc rec2=00 rec3=026
tail 0x21546c49e865e5ba3797e 0x42a00088462060003
Free Block Chain:
0x2: 0000 00 04 01 f9 80 19 6e 64 20 49 6e 69 74 5f 43 75 ┆ nd Init_Cu┆
0x4: 0000 00 05 00 97 80 1d 2e 49 6e 66 6f 2e 50 6f 69 6e ┆ .Info.Poin┆
0x5: 0000 00 06 03 fc 80 0d 66 6f 2e 54 68 65 5f 54 79 70 ┆ fo.The_Typ┆
0x6: 0000 00 07 03 fc 80 2c 20 20 20 20 20 20 20 20 20 20 ┆ , ┆
0x7: 0000 00 00 00 b2 80 01 6e 01 00 00 00 00 50 20 20 20 ┆ n P ┆