| /* proj.h file for Gnu Fortran |
| Copyright (C) 1995, 1996 Free Software Foundation, Inc. |
| Contributed by James Craig Burley (burley@gnu.org). |
| |
| This file is part of GNU Fortran. |
| |
| GNU Fortran is free software; you can redistribute it and/or modify |
| it under the terms of the GNU General Public License as published by |
| the Free Software Foundation; either version 2, or (at your option) |
| any later version. |
| |
| GNU Fortran is distributed in the hope that it will be useful, |
| but WITHOUT ANY WARRANTY; without even the implied warranty of |
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| GNU General Public License for more details. |
| |
| You should have received a copy of the GNU General Public License |
| along with GNU Fortran; see the file COPYING. If not, write to |
| the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA |
| 02111-1307, USA. |
| |
| */ |
| |
| #ifndef _H_f_proj |
| #define _H_f_proj |
| |
| #ifdef USE_HCONFIG |
| #include "hconfig.j" |
| #else |
| #include "config.j" |
| #endif |
| #include "system.j" |
| |
| #if !defined (__GNUC__) || (__GNUC__ < 2) |
| #error "You have to use gcc 2.x to build g77 (might be fixed in g77-0.6)." |
| #endif |
| |
| #ifndef BUILT_WITH_270 |
| #if (__GNUC__ > 2) || (__GNUC__ == 2 && __GNUC_MINOR__ >= 7) |
| #define BUILT_WITH_270 1 |
| #else |
| #define BUILT_WITH_270 0 |
| #endif |
| #endif /* !defined (BUILT_WITH_270) */ |
| |
| /* Include files everyone gets. <assert.h> is needed for assert(). |
| <stddef.h> is needed for offsetof, but technically also NULL, |
| size_t, ptrdiff_t, and so on. */ |
| |
| #include "assert.j" |
| |
| #if HAVE_STDDEF_H |
| #include <stddef.h> |
| #endif |
| |
| /* Generally useful definitions. */ |
| |
| typedef enum |
| { |
| #if !defined(false) || !defined(true) |
| false = 0, true = 1, |
| #endif |
| #if !defined(FALSE) || !defined(TRUE) |
| FALSE = 0, TRUE = 1, |
| #endif |
| Doggone_Trailing_Comma_Dont_Work = 1 |
| } bool; |
| |
| #define ARRAY_SIZE(a) (sizeof(a)/sizeof(a[0])) |
| |
| #ifndef UNUSED /* Compile with -DUNUSED= if cc doesn't support this. */ |
| #if BUILT_WITH_270 |
| #define UNUSED __attribute__ ((unused)) |
| #else /* !BUILT_WITH_270 */ |
| #define UNUSED |
| #endif /* !BUILT_WITH_270 */ |
| #endif /* !defined (UNUSED) */ |
| |
| #ifndef dmpout |
| #define dmpout stderr |
| #endif |
| |
| #endif |