|
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 - metrics - downloadIndex: B T
Length: 1224 (0x4c8)
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 Class_Behavior;
with Collection;
package body Avion is
type Structure_Avion is
record
Son_Nom : Nom;
Sa_Capacite : Capacite;
end record;
package Behavior is new Class_Behavior (Structure_Avion, "AVIONS");
------------------------------------------------------------------------------
function Les_Avions return Collection.Object is
begin
return Behavior.All_Instances;
end Les_Avions;
function Le_Nom (De : Object) return Nom is
begin
return Behavior.Get (De).Son_Nom;
end Le_Nom;
function La_Capacite (De : Object) return Capacite is
begin
return Behavior.Get (De).Sa_Capacite;
end La_Capacite;
procedure Effacer_Faits is
begin
Behavior.Clear;
end Effacer_Faits;
procedure Creer_Faits is
begin
Behavior.Allocate (Structure_Avion'
("A320 ", 200));
Behavior.Allocate (Structure_Avion'
("B747 ", 400));
Behavior.Allocate (Structure_Avion'
("DC10 ", 20));
end Creer_Faits;
end Avion;