OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [ada/] [osint-m.ads] - Blame information for rev 706

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 706 jeremybenn
------------------------------------------------------------------------------
2
--                                                                          --
3
--                         GNAT COMPILER COMPONENTS                         --
4
--                                                                          --
5
--                              O S I N T - M                               --
6
--                                                                          --
7
--                                 S p e c                                  --
8
--                                                                          --
9
--          Copyright (C) 2001-2007, Free Software Foundation, Inc.         --
10
--                                                                          --
11
-- GNAT is free software;  you can  redistribute it  and/or modify it under --
12
-- terms of the  GNU General Public License as published  by the Free Soft- --
13
-- ware  Foundation;  either version 3,  or (at your option) any later ver- --
14
-- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
15
-- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
16
-- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
17
-- for  more details.  You should have  received  a copy of the GNU General --
18
-- Public License  distributed with GNAT; see file COPYING3.  If not, go to --
19
-- http://www.gnu.org/licenses for a complete copy of the license.          --
20
--                                                                          --
21
-- GNAT was originally developed  by the GNAT team at  New York University. --
22
-- Extensive contributions were provided by Ada Core Technologies Inc.      --
23
--                                                                          --
24
------------------------------------------------------------------------------
25
 
26
--  This package contains the low level, operating system routines used only
27
--  in gnatmake for command line processing and file input output.
28
 
29
package Osint.M is
30
 
31
   function More_Source_Files return Boolean;
32
   --  Indicates whether more source file remain to be processed. Returns
33
   --  False right away if no source files, or if all source files have
34
   --  been processed.
35
 
36
   function Next_Main_Source return File_Name_Type;
37
   --  This function returns the name of the next main source file specified
38
   --  on the command line. It is an error to call Next_Main_Source if no more
39
   --  source files exist (i.e. Next_Main_Source may be called only if a
40
   --  previous call to More_Source_Files returned True). This name is the
41
   --  simple file name (without any directory information).
42
 
43
   function Object_File_Name (N : File_Name_Type) return File_Name_Type;
44
   --  Constructs the name of the object file corresponding to library
45
   --  file N. If N is a full file name than the returned file name will
46
   --  also be a full file name. Note that no lookup in the library file
47
   --  directories is done for this file. This routine merely constructs
48
   --  the name.
49
 
50
end Osint.M;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.