Daily bump.
[official-gcc.git] / fixincludes / fixlib.c
blobcc335f5659a16713a2c2dfec405d06e5fea3ab00
2 /* Install modified versions of certain ANSI-incompatible system header
3 files which are fixed to work correctly with ANSI C and placed in a
4 directory that GCC will search.
6 Copyright (C) 1999, 2000, 2001, 2004 Free Software Foundation, Inc.
8 This file is part of GCC.
10 GCC is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 2, or (at your option)
13 any later version.
15 GCC is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with GCC; see the file COPYING. If not, write to
22 the Free Software Foundation, 51 Franklin Street, Fifth Floor,
23 Boston, MA 02110-1301, USA. */
25 #include "fixlib.h"
27 /* * * * * * * * * * * * *
29 load_file_data loads all the contents of a file into malloc-ed memory.
30 Its argument is the file pointer of the file to read in; the returned
31 result is the NUL terminated contents of the file. The file
32 is presumed to be an ASCII text file containing no NULs. */
34 char *
35 load_file_data (FILE* fp)
37 char *pz_data = (char*)NULL;
38 int space_left = -1; /* allow for terminating NUL */
39 size_t space_used = 0;
41 if (fp == (FILE*)NULL)
42 return pz_data;
46 size_t size_read;
48 if (space_left < 1024)
50 space_left += 4096;
51 pz_data = XRESIZEVEC (char, pz_data, space_left + space_used + 1 );
53 size_read = fread (pz_data + space_used, 1, space_left, fp);
55 if (size_read == 0)
57 if (feof (fp))
58 break;
60 if (ferror (fp))
62 int err = errno;
63 if (err != EISDIR)
64 fprintf (stderr, "error %d (%s) reading input\n", err,
65 xstrerror (err));
66 free ((void *) pz_data);
67 return (char *) NULL;
71 space_left -= size_read;
72 space_used += size_read;
73 } while (! feof (fp));
75 pz_data = XRESIZEVEC (char, pz_data, space_used+1 );
76 pz_data[ space_used ] = NUL;
78 return pz_data;
81 #ifdef IS_CXX_HEADER_NEEDED
82 t_bool
83 is_cxx_header (tCC* fname, tCC* text)
85 /* First, check to see if the file is in a C++ directory */
86 for (;;)
88 switch (*(fname++))
90 case 'C': /* check for "CC/" */
91 if ((fname[0] == 'C') && (fname[1] == '/'))
92 return BOOL_TRUE;
93 break;
95 case 'x': /* check for "xx/" */
96 if ((fname[0] == 'x') && (fname[1] == '/'))
97 return BOOL_TRUE;
98 break;
100 case '+': /* check for "++" */
101 if (fname[0] == '+')
102 return BOOL_TRUE;
103 break;
105 case NUL:
106 goto not_cxx_name;
108 } not_cxx_name:;
110 /* Or it might contain one of several phrases which indicate C++ code.
111 Currently recognized are:
112 extern "C++"
113 -*- (Mode: )? C++ -*- (emacs mode marker)
114 template <
117 tSCC cxxpat[] = "\
118 extern[ \t]*\"C\\+\\+\"|\
119 -\\*-[ \t]*([mM]ode:[ \t]*)?[cC]\\+\\+[; \t]*-\\*-|\
120 template[ \t]*<|\
121 ^[ \t]*class[ \t]|\
122 (public|private|protected):|\
123 ^[ \t]*#[ \t]*pragma[ \t]+(interface|implementation)\
125 static regex_t cxxre;
126 static int compiled;
128 if (!compiled)
129 compile_re (cxxpat, &cxxre, 0, "contents check", "is_cxx_header");
131 if (xregexec (&cxxre, text, 0, 0, 0) == 0)
132 return BOOL_TRUE;
135 return BOOL_FALSE;
137 #endif /* CXX_TYPE_NEEDED */
139 #ifdef SKIP_QUOTE_NEEDED
141 * Skip over a quoted string. Single quote strings may
142 * contain multiple characters if the first character is
143 * a backslash. Especially a backslash followed by octal digits.
144 * We are not doing a correctness syntax check here.
146 tCC*
147 skip_quote(char q, char* text )
149 for (;;)
151 char ch = *(text++);
152 switch (ch)
154 case '\\':
155 text++; /* skip over whatever character follows */
156 break;
158 case '"':
159 case '\'':
160 if (ch != q)
161 break;
162 /*FALLTHROUGH*/
164 case '\n':
165 case NUL:
166 goto skip_done;
168 } skip_done:;
170 return text;
172 #endif /* SKIP_QUOTE_NEEDED */
174 /* * * * * * * * * * * * *
176 Compile one regular expression pattern for later use. PAT contains
177 the pattern, RE points to a regex_t structure (which should have
178 been bzeroed). MATCH is 1 if we need to know where the regex
179 matched, 0 if not. If xregcomp fails, prints an error message and
180 aborts; E1 and E2 are strings to shove into the error message.
182 The patterns we search for are all egrep patterns.
183 REG_EXTENDED|REG_NEWLINE produces identical regex syntax/semantics
184 to egrep (verified from 4.4BSD Programmer's Reference Manual). */
185 void
186 compile_re( tCC* pat, regex_t* re, int match, tCC* e1, tCC* e2 )
188 tSCC z_bad_comp[] = "fixincl ERROR: cannot compile %s regex for %s\n\
189 \texpr = `%s'\n\terror %s\n";
190 int flags, err;
192 flags = (match ? REG_EXTENDED|REG_NEWLINE
193 : REG_EXTENDED|REG_NEWLINE|REG_NOSUB);
194 err = xregcomp (re, pat, flags);
196 if (err)
198 char rerrbuf[1024];
199 regerror (err, re, rerrbuf, 1024);
200 fprintf (stderr, z_bad_comp, e1, e2, pat, rerrbuf);
201 exit (EXIT_FAILURE);
205 /* * * * * * * * * * * * *
207 Helper routine and data for the machine_name test and fix. */
209 tSCC mn_label_pat[] = "^[ \t]*#[ \t]*(if|ifdef|ifndef)[ \t]+";
210 static regex_t mn_label_re;
211 static regex_t mn_name_re;
213 static int mn_compiled = 0;
215 t_bool
216 mn_get_regexps(regex_t** label_re, regex_t** name_re, tCC* who )
218 if (! pz_mn_name_pat)
219 return BOOL_FALSE;
221 if (! mn_compiled)
223 compile_re (mn_label_pat, &mn_label_re, 1, "label pattern", who);
224 compile_re (pz_mn_name_pat, &mn_name_re, 1, "name pattern", who);
225 mn_compiled++;
227 *label_re = &mn_label_re;
228 *name_re = &mn_name_re;
229 return BOOL_TRUE;
233 #ifdef SEPARATE_FIX_PROC
235 char*
236 make_raw_shell_str( char* pz_d, tCC* pz_s, size_t smax )
238 tSCC zQ[] = "'\\''";
239 size_t dtaSize;
240 char* pz_d_start = pz_d;
242 smax--; /* adjust for trailing NUL */
244 dtaSize = strlen( pz_s ) + 3;
247 const char* pz = pz_s - 1;
249 for (;;) {
250 pz = strchr( pz+1, '\'' );
251 if (pz == (char*)NULL)
252 break;
253 dtaSize += sizeof( zQ )-1;
256 if (dtaSize > smax)
257 return (char*)NULL;
259 *(pz_d++) = '\'';
261 for (;;) {
262 if (pz_d - pz_d_start >= smax)
263 return (char*)NULL;
264 switch (*(pz_d++) = *(pz_s++)) {
265 case NUL:
266 goto loopDone;
268 case '\'':
269 if (pz_d - pz_d_start >= smax - sizeof( zQ )-1)
270 return (char*)NULL;
271 strcpy( pz_d-1, zQ );
272 pz_d += sizeof( zQ )-2;
274 } loopDone:;
275 pz_d[-1] = '\'';
276 *pz_d = NUL;
278 return pz_d;
281 #endif