|
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 - metrics - downloadIndex: T V
Length: 1376 (0x560)
Types: TextFile
Names: »V«
└─⟦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⟧
with Io;
package File_Operations is
-- This package exports cleaner versions of the file opening/creating
-- operations in the Io package. They perform exception handling and
-- error reporting.
procedure Open_To_Read
(File_Name : in String := ">> FULL PATHNAME <<";
The_File : out Io.File_Type;
Response : in String := "<PROFILE>");
-- This procedure attempts to open a file for reading with the
-- specified name. If this fails, it reports an error and raises
-- an exception.
procedure Open_To_Write
(File_Name : in String := ">> FULL PATHNAME <<";
The_File : out Io.File_Type;
Response : in String := "<PROFILE>");
-- This procedure attempts to open a file for writing with the
-- specified name. If this fails, it then attempts to create a
-- file for writing with the specified name. If this fails it
-- reports an error and raises an exception.
procedure Close
(This_File : in out Io.File_Type;
Response : in String := "<PROFILE>");
-- If the file is open, closes it. If the file is not open,
-- catches the exception and does nothing. Using this procedure
-- is therefore always a safe operation.
File_Problem : exception;
end File_Operations;