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

⟦6812645e1⟧ TextFile

    Length: 1949 (0x79d)
    Types: TextFile
    Names: »B«

Derivation

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧

TextFile

package body File_Name_Package is

    --==============================================================
    -- This package provides the user with the necessary           =
    -- operations to support an abstract data type for a file      =
    -- name. These operations include associating an input file    =
    -- name with the logical file name, returning a string         =
    -- representation of a file name for use in Text_IO opeations, =
    -- getting an input file name from the user, getting an output =
    -- file name from the user, and determining whether a file     =
    -- name was typed in by the user.                              =
    --                                                             =
    -- written  by  Gary Russell at EVB Software Engineering Inc.  =
    -- Reviewed by Brad Balford and Johan Margono                  =
    -- May 1985                                                    =
    --==============================================================

    procedure Read_Over_Blanks (First_Non_Blank : out Character);
    -- This procedure reads over any blanks in the input before
    -- the first character is found. If the end of file or
    -- or end of line is found before a character is found, then the
    -- exception No_More_File_Names will be raised.

    function A_String_Output_File
                (This_File : in File_Name) return String is separate;

    procedure Associate_Input_File_Names
                 (This_File : in File_Name;
                  With_Input_File : in out Text_Io.File_Type) is separate;

    procedure Get_Output_File_Name (For_This_File : out File_Name) is separate;

    procedure Get_Input_File_Name (For_This_File : out File_Name) is separate;

    function File_Name_Is_Given
                (For_This_File : in File_Name) return Boolean is separate;

    procedure Read_Over_Blanks (First_Non_Blank : out Character) is separate;

end File_Name_Package;