1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
/* proj.h file for Gnu Fortran
Copyright (C) 1995 Free Software Foundation, Inc.
Contributed by James Craig Burley (burley@gnu.ai.mit.edu).
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
#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) */
/* This file used to attempt to allow for all sorts of broken systems.
Because the auto-configuration scripts in conf-proj(.in) didn't work
on all systems, and I received far too many bug reports about them,
I decided to stop trying to cater to broken systems at all, and
simply remove all but the simplest and most useful code (which is
still in proj.c).
So, if you find your system can't link because bsearch() or strtoul()
aren't found, please just fix your system, or hand-edit the code
below as appropriate. I DO NOT WANT ANY "BUG REPORTS" ABOUT THIS.
g77 requires a working ANSI C environment, and if bsearch() and strtoul()
do not exist, or if <assert.h> isn't found, etc., then you don't have
one, and it is not g77's fault. If it turns out g77 is simply
referring to the wrong system header file -- something I can verify
myself using my copy of the ANSI C standard -- I would like to know
about that. Otherwise, g77 is not the place to fix problems with your
ANSI C implementation, though perhaps gcc might be.
-- burley@gnu.ai.mit.edu 1995-03-24 */
#ifndef FFEPROJ_BSEARCH
#define FFEPROJ_BSEARCH 1 /* 0=>use slow code in proj.c. */
#endif
#ifndef FFEPROJ_STRTOUL
#define FFEPROJ_STRTOUL 1 /* 0=>use untested code in proj.c. */
#endif
/* Include files everyone gets. */
#include "assert.j" /* Use gcc's assert.h. */
#include <stdio.h>
#include <stddef.h>
#include <stdlib.h>
#include <string.h>
/* 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]))
#define STR(s) # s
#define STRX(s) STR(s)
#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
|
