|
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: 834 (0x342)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
with Text_Io;
package body Time is
package Time_Io is new Text_Io.Fixed_Io (Time.Object);
function Get_From_File (The_File : Text_Io.File_Type) return Time.Object is
Inter : Time.Object;
begin
Time_Io.Get (The_File, Inter);
return Inter;
end Get_From_File;
procedure Set_To_File (The_Object : Time.Object;
The_File : Text_Io.File_Type) is
begin
Time_Io.Put (File => The_File, Item => The_Object, Aft => 1);
end Set_To_File;
procedure Set_To_Screen (The_Object : Time.Object) is
begin
Time_Io.Put (Item => The_Object, Aft => 1);
end Set_To_Screen;
function Convert_To (From : Integer) return Time.Object is
begin
return Time.Object (Time.Object (From) / Time.Object (10.0));
end Convert_To;
end Time;