|
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: ┃ T V ┃
Length: 643 (0x283)
Types: TextFile
Names: »V«
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Motor_Etape;
with Text_Io;
with Sequential_Io;
use Motor_Etape;
use Text_Io;
package Motor_File is
subtype Actor is Integer;
function Read_An_Actor (F : File_Type) return Actor;
function Read_Nb_Of_Step (F : File_Type) return Integer;
function Read_A_Time (F : File_Type) return Time;
function Read_An_Action (F : File_Type) return Action;
procedure Save_Actor (F : File_Type; An_Actor : in Actor);
procedure Save_Nb_Action_Of_Role (F : File_Type; N : in Integer);
procedure Save_Time (F : File_Type; A_Time : in Time);
procedure Save_Action (F : File_Type; An_Action : in Action);
end Motor_File;