-- --
-- S p e c --
-- --
--- Copyright (C) 2001-2007, Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2008, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- Called by the subprogram processing the command line when an
-- output object file name is found.
+ function Get_Output_Object_File_Name return String;
+ -- Returns the name of the output object file as saved by a call to
+ -- Set_Output_Object_File_Name. Only valid to call if name has been set.
+
function More_Source_Files return Boolean;
-- Indicates whether more source file remain to be processed. Returns
-- False right away if no source files, or if all source files have
procedure Close_Output_Library_Info;
-- Closes the file created by Create_Output_Library_Info, flushing any
- -- buffers etc from writes by Write_Library_Info.
+ -- buffers etc. from writes by Write_Library_Info.
procedure Read_Library_Info
(Name : out File_Name_Type;