DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦f4e0ad84e⟧ TextFile

    Length: 1457 (0x5b1)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

package body Intermediate_Code is

    package Int_Io is new Text_Io.Integer_Io (Integer);

    The_File : Text_Io.File_Type;

    procedure Open (S : String; Mode : Text_Io.File_Mode) is
    begin
        Text_Io.Open (File => The_File, Mode => Mode, Name => S, Form => "");
    end Open;


    procedure Close is
    begin
        Text_Io.Close (File => The_File);
    end Close;


    procedure Put (N1, N2, N3, N4, N5 : Natural := 0) is
    begin
        Text_Io.Put (The_File, Natural'Image (N1));
        Text_Io.Put (The_File, ' ');
        Text_Io.Put (The_File, Natural'Image (N2));
        Text_Io.Put (The_File, ' ');
        Text_Io.Put (The_File, Natural'Image (N3));
        Text_Io.Put (The_File, ' ');
        Text_Io.Put (The_File, Natural'Image (N4));
        if N5 /= 0 then
            Text_Io.Put (The_File, ' ');
            Text_Io.Put (The_File, Natural'Image (N5));
        end if;
        Text_Io.Put_Line (The_File, "");
    end Put;


    function Get return Integer is  
        N : Integer;
    begin
        Int_Io.Get (The_File, N);
        return N;
    end Get;

    function End_Of_Line return Boolean is
    begin
        return Text_Io.End_Of_Line (The_File);
    end End_Of_Line;

    function End_Of_File return Boolean is
    begin
        return Text_Io.End_Of_File (The_File);
    end End_Of_File;

    procedure Skip_Line is
    begin
        Text_Io.Skip_Line (The_File);
    end Skip_Line;
end Intermediate_Code;