|
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: 811 (0x32b)
Types: TextFile
Names: »B«
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
└─⟦6f12a12be⟧ »DATA«
└─⟦this⟧
package body Worker_Group is
type Worker_Table is array (Frame.Station_Identification,
Frame.Task_Identification) of
Worker.Worker_Reference;
Workers : Worker_Table;
procedure Initialize is
begin
for Station in Frame.Station_Identification loop
for Task_Id in Frame.Task_Identification loop
Workers (Station, Task_Id) := Worker.Create (Station, Task_Id);
end loop;
end loop;
end Initialize;
function Get_Worker (Frame_Address : Frame.Address)
return Worker.Worker_Reference is
begin
return Workers (Frame.Get_Station (Frame_Address),
Frame.Get_Task (Frame_Address));
end Get_Worker;
end Worker_Group;