|
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 Registered_Contrat, seg_05490c
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
with Text_Io; with Com_Defs; with Set_Generic; with String_Map_Generic; package Registered_Contrat is package Set_Of_Parameters is new Set_Generic (Com_Defs.V_String); type T_Methods is record Name_Of_Method : Com_Defs.V_String; Number_Of_Parameters : Natural; Parameters : Set_Of_Parameters.Set; end record; package Methods_Map is new String_Map_Generic (Size => 100, Range_Type => T_Methods); type T_Object is record Name_Of_Object : Com_Defs.V_String; Table_Of_Methods : Methods_Map.Map := Methods_Map.Nil; end record; package Set_Of_Objects is new Set_Generic (T_Object); type T_Class is record Name_Of_Class : Com_Defs.V_String; Objects : Set_Of_Objects.Set; end record; package Table_Contrat is new String_Map_Generic (Size => 100, Range_Type => T_Class); type T_Contrat is record Name_Class : Com_Defs.V_String; Name_Object : Com_Defs.V_String; Name_Method : Com_Defs.V_String; Number_Parameter : Natural; Parameter : Com_Defs.V_String; end record; procedure Initialize (This_Table : out Table_Contrat.Map); -- cree une instance de contrat qui cree une instance du reste procedure Insert (This_Contrat : in T_Contrat; In_This_Table : in out Table_Contrat.Map); function Search (Name_Class : Com_Defs.V_String; Name_Method : Com_Defs.V_String) return T_Contrat; end Registered_Contrat;
nblk1=2 nid=0 hdr6=4 [0x00] rec0=24 rec1=00 rec2=01 rec3=01c [0x01] rec0=14 rec1=00 rec2=02 rec3=000 tail 0x2175da40087b88747cdf9 0x42a00088462060003