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;