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 GNU C will search.
6 Copyright (C) 1999, 2000 Free Software Foundation, Inc.
8 This file is part of GNU CC.
10 GNU CC 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)
15 GNU CC 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 GNU CC; see the file COPYING. If not, write to
22 the Free Software Foundation, 59 Temple Place - Suite 330,
23 Boston, MA 02111-1307, USA. */
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. */
38 char *pz_data
= (char*)NULL
;
39 int space_left
= -1; /* allow for terminating NUL */
40 size_t space_used
= 0;
46 if (space_left
< 1024)
50 pz_data
= realloc ((void*)pz_data
, space_left
+ space_used
+ 1 );
52 pz_data
= malloc (space_left
+ space_used
+ 1 );
54 size_read
= fread (pz_data
+ space_used
, 1, space_left
, fp
);
65 fprintf (stderr
, "error %d (%s) reading input\n", err
,
67 free ((void *) pz_data
);
73 space_left
-= size_read
;
74 space_used
+= size_read
;
75 } while (! feof (fp
));
77 pz_data
= realloc ((void*)pz_data
, space_used
+1 );
78 pz_data
[ space_used
] = NUL
;
86 is_cxx_header (fname
, text
)
90 /* First, check to see if the file is in a C++ directory */
95 case 'C': /* check for "CC/" */
96 if ((fname
[0] == 'C') && (fname
[1] == '/'))
100 case 'x': /* check for "xx/" */
101 if ((fname
[0] == 'x') && (fname
[1] == '/'))
105 case '+': /* check for "++" */
115 /* Or it might contain one of several phrases which indicate C++ code.
116 Currently recognized are:
118 -*- (Mode: )? C++ -*- (emacs mode marker)
123 extern[ \t]*\"C\\+\\+\"|\
124 -\\*-[ \t]*([mM]ode:[ \t]*)?[cC]\\+\\+[; \t]*-\\*-|\
127 (public|private|protected):|\
128 ^[ \t]*#[ \t]*pragma[ \t]+(interface|implementation)\
130 static regex_t cxxre
;
134 compile_re (cxxpat
, &cxxre
, 0, "contents check", "is_cxx_header");
136 if (regexec (&cxxre
, text
, 0, 0, 0) == 0)
143 /* * * * * * * * * * * * *
145 Compile one regular expression pattern for later use. PAT contains
146 the pattern, RE points to a regex_t structure (which should have
147 been bzeroed). MATCH is 1 if we need to know where the regex
148 matched, 0 if not. If regcomp fails, prints an error message and
149 aborts; E1 and E2 are strings to shove into the error message.
151 The patterns we search for are all egrep patterns.
152 REG_EXTENDED|REG_NEWLINE produces identical regex syntax/semantics
153 to egrep (verified from 4.4BSD Programmer's Reference Manual). */
155 compile_re( pat
, re
, match
, e1
, e2
)
162 tSCC z_bad_comp
[] = "fixincl ERROR: cannot compile %s regex for %s\n\
163 \texpr = `%s'\n\terror %s\n";
166 flags
= (match
? REG_EXTENDED
|REG_NEWLINE
167 : REG_EXTENDED
|REG_NEWLINE
|REG_NOSUB
);
168 err
= regcomp (re
, pat
, flags
);
173 regerror (err
, re
, rerrbuf
, 1024);
174 fprintf (stderr
, z_bad_comp
, e1
, e2
, pat
, rerrbuf
);
179 /* * * * * * * * * * * * *
181 Helper routine and data for the machine_name test and fix.
182 machname.h is created by black magic in the Makefile. */
186 tSCC mn_label_pat
[] = "^[ \t]*#[ \t]*(if|ifdef|ifndef)[ \t]+";
187 static regex_t mn_label_re
;
189 tSCC mn_name_pat
[] = MN_NAME_PAT
;
190 static regex_t mn_name_re
;
192 static int mn_compiled
= 0;
195 mn_get_regexps( label_re
, name_re
, who
)
202 compile_re (mn_label_pat
, &mn_label_re
, 1, "label pattern", who
);
203 compile_re (mn_name_pat
, &mn_name_re
, 1, "name pattern", who
);
206 *label_re
= &mn_label_re
;
207 *name_re
= &mn_name_re
;