|
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: 4096 (0x1000) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Objet_Generic, seg_051624
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with Trame_Ihm_68; with Lecteur_68; with Plage_68; with Acces_68; with Carte_68; with Lecteur_Zone_68; with Carte_Groupe_68; package Objet_Generic is type T_Type_Objet is new Trame_Ihm_68.T_Type_Objet; type Object (Type_Objet : T_Type_Objet := Pas_D_Objet) is private; procedure Create (O : in out Object; Lec : Lecteur_68.Object); procedure Create (O : in out Object; Pla : Plage_68.Object); procedure Create (O : in out Object; Acc : Acces_68.Object); procedure Create (O : in out Object; Car : Carte_68.Object); procedure Create (O : in out Object; L_Z : Lecteur_Zone_68.Object); procedure Create (O : in out Object; C_G : Carte_Groupe_68.Object); procedure Create (O : in out Object; Type_Objet : T_Type_Objet; S : String); function Get_Type_Objet (O : Object) return T_Type_Objet; function Get_Carte (O : Object) return Carte_68.Object; function Get_Lecteur (O : Object) return Lecteur_68.Object; function Get_Plage (O : Object) return Plage_68.Object; function Get_Acces (O : Object) return Acces_68.Object; function Get_Lecteur_Zone (O : Object) return Lecteur_Zone_68.Object; function Get_Carte_Groupe (O : Object) return Carte_Groupe_68.Object; Objet_Generic_Error : exception; private type Object (Type_Objet : T_Type_Objet := Pas_D_Objet) is record case Type_Objet is when Lecteur => Lec : Lecteur_68.Object; when Plage => Pla : Plage_68.Object; when Acces => Acc : Acces_68.Object; when Carte => Car : Carte_68.Object; when Lecteur_Zone => L_Z : Lecteur_Zone_68.Object; when Carte_Groupe => C_G : Carte_Groupe_68.Object; when others => null; end case; end record; end Objet_Generic;
nblk1=3 nid=0 hdr6=6 [0x00] rec0=1c rec1=00 rec2=01 rec3=00c [0x01] rec0=1a rec1=00 rec2=03 rec3=028 [0x02] rec0=06 rec1=00 rec2=02 rec3=000 tail 0x2154b44da879a5bb89de7 0x42a00088462060003