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: T V

⟦f07120a54⟧ TextFile

    Length: 966 (0x3c6)
    Types: TextFile
    Names: »V«

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

-- This package provides various file utilities.
--
package Low_Level_File_Utilities is

    procedure Append (This_File : in String;
                      To_This_File : in String;
                      Add_Page_Break : in Boolean := False);
    --
    -- This procedure appends the first file to the second file.
    -- If "Add_Page_Break" is True, the second file will be
    -- preceeded by a page break, unless the first file doesn't
    -- exist yet, in which case the second file needs no page
    -- break because there is nothing for it to be separated from.
    --
    -- Raises "IO_Failure" if the operation fails for some reason.

    function Flattened_Text (This_File : in String) return String;
    --
    -- This function returns a string containing the contents of
    -- the specified file separated by ASCII.LF's.
    --
    -- Raises "IO_Failure" if the operation fails for some reason.

    Io_Failure : exception;

end Low_Level_File_Utilities;