|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ B T ┃
Length: 1360 (0x550)
Types: TextFile
Names: »B«
└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
└─ ⟦124ff5788⟧ »DATA«
└─⟦this⟧
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
└─ ⟦6f12a12be⟧ »DATA«
└─⟦this⟧
with Collection;
with Class_Behavior;
package body Permis is
type Structure_Permis is
record
Son_Nom : Nom;
Sa_Licence : Licence;
end record;
package Behavior is new Class_Behavior (Structure_Permis, "PERMIS");
------------------------------------------------------------------------------
function Les_Permis return Collection.Object is
begin
return Behavior.All_Instances;
end Les_Permis;
function Le_Nom (De : Object) return Nom is
begin
return Behavior.Get (De).Son_Nom;
end Le_Nom;
function La_Licence (De : Object) return Licence is
begin
return Behavior.Get (De).Sa_Licence;
end La_Licence;
procedure Effacer_Faits is
begin
Behavior.Clear;
end Effacer_Faits;
procedure Creer_Faits is
begin
Behavior.Allocate (Structure_Permis'("B747 ",
"L 10001 "));
Behavior.Allocate (Structure_Permis'("A320 ",
"L 10002 "));
Behavior.Allocate (Structure_Permis'("DC10 ",
"L 10003 "));
end Creer_Faits;
end Permis;