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: 3072 (0xc00) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Contrat_Storage, seg_054871
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
with String_Map_Generic; with Set_Generic; package body Contrat_Storage is Max : constant := 100; package Contrat_Set is new Set_Generic (Natural); package H_Code is new String_Map_Generic (Size => Max, Range_Type => Contrat_Set.Set); Contrat_Table : H_Code.Map; Set_Id : Contrat_Set.Set; procedure Add (Contrat : String_Var; Id : Natural) is Success : Boolean := False; begin H_Code.Find (Contrat_Table, String_Var_To_String (Contrat), Set_Id, Success); Contrat_Set.Add (Set_Id, Id); H_Code.Define (Contrat_Table, String_Var_To_String (Contrat), Set_Id); end Add; procedure Delete (Contrat : String_Var; Id : Natural) is Success : Boolean; begin H_Code.Find (Contrat_Table, String_Var_To_String (Contrat), Set_Id, Success); Contrat_Set.Delete (Set_Id, Id); H_Code.Define (Contrat_Table, String_Var_To_String (Contrat), Set_Id); end Delete; function Search (Contrat : String_Var; Place : Natural) return Natural is Temp : Natural; Success : Boolean := False; Iter : Contrat_Set.Iterator; I : Natural := 1; begin H_Code.Find (Contrat_Table, String_Var_To_String (Contrat), Set_Id, Success); if Success then Contrat_Set.Init (Iter, Set_Id); while (I /= Place and not (Contrat_Set.Done (Iter))) loop Contrat_Set.Next (Iter); I := I + 1; end loop; Temp := Contrat_Set.Value (Iter); return Temp; end if; end Search; end Contrat_Storage;
nblk1=2 nid=0 hdr6=4 [0x00] rec0=1e rec1=00 rec2=01 rec3=038 [0x01] rec0=1a rec1=00 rec2=02 rec3=000 tail 0x2175d9a4687b886a7c55b 0x42a00088462060003