projects / thirdparty / gcc.git / blame
| Commit | Line | Data |
|---|---|---|
| 84481f76 RK |
1 | ------------------------------------------------------------------------------ |
| 2 | -- -- | |
| 3 | -- GNAT COMPILER COMPONENTS -- | |
| 4 | -- -- | |
| 07fc65c4 | 5 | -- O S I N T - M -- |
| 84481f76 RK |
6 | -- -- |
| 7 | -- S p e c -- | |
| 8 | -- -- | |
| 07fc65c4 | 9 | -- Copyright (C) 2001 Free Software Foundation, Inc. -- |
| 84481f76 RK |
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 2, 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 COPYING. If not, write -- | |
| 19 | -- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, -- | |
| 20 | -- MA 02111-1307, USA. -- | |
| 21 | -- -- | |
| 22 | -- GNAT was originally developed by the GNAT team at New York University. -- | |
| 1f02b6af | 23 | -- Extensive contributions were provided by Ada Core Technologies Inc. -- |
| 84481f76 RK |
24 | -- -- |
| 25 | ------------------------------------------------------------------------------ | |
| 26 | ||
| 07fc65c4 GB |
27 | -- This package contains the low level, operating system routines used only |
| 28 | -- in gnatmake for command line processing and file input output. | |
| 84481f76 | 29 | |
| 07fc65c4 | 30 | package Osint.M is |
| 84481f76 | 31 | |
| 07fc65c4 GB |
32 | function More_Source_Files return Boolean; |
| 33 | -- Indicates whether more source file remain to be processed. Returns | |
| 34 | -- False right away if no source files, or if all source files have | |
| 35 | -- been processed. | |
| 84481f76 | 36 | |
| 07fc65c4 GB |
37 | function Next_Main_Source return File_Name_Type; |
| 38 | -- This function returns the name of the next main source file specified | |
| 39 | -- on the command line. It is an error to call Next_Main_Source if no more | |
| 40 | -- source files exist (i.e. Next_Main_Source may be called only if a | |
| 41 | -- previous call to More_Source_Files returned True). This name is the | |
| 42 | -- simple file name (without any directory information). | |
| 84481f76 | 43 | |
| 07fc65c4 GB |
44 | function Object_File_Name (N : File_Name_Type) return File_Name_Type; |
| 45 | -- Constructs the name of the object file corresponding to library | |
| 46 | -- file N. If N is a full file name than the returned file name will | |
| 47 | -- also be a full file name. Note that no lookup in the library file | |
| 48 | -- directories is done for this file. This routine merely constructs | |
| 49 | -- the name. | |
| 84481f76 | 50 | |
| 07fc65c4 | 51 | end Osint.M; |