URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [fixincludes/] [fixlib.c] - Rev 276
Go to most recent revision | Compare with Previous | Blame | View Log
/* Install modified versions of certain ANSI-incompatible system header files which are fixed to work correctly with ANSI C and placed in a directory that GCC will search. Copyright (C) 1999, 2000, 2001, 2004 Free Software Foundation, Inc. This file is part of GCC. GCC 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. GCC 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 GCC; see the file COPYING. If not, write to the Free Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ #include "fixlib.h" /* * * * * * * * * * * * * load_file_data loads all the contents of a file into malloc-ed memory. Its argument is the file pointer of the file to read in; the returned result is the NUL terminated contents of the file. The file is presumed to be an ASCII text file containing no NULs. */ char * load_file_data (FILE* fp) { char *pz_data = (char*)NULL; int space_left = -1; /* allow for terminating NUL */ size_t space_used = 0; if (fp == (FILE*)NULL) return pz_data; do { size_t size_read; if (space_left < 1024) { space_left += 4096; pz_data = XRESIZEVEC (char, pz_data, space_left + space_used + 1 ); } size_read = fread (pz_data + space_used, 1, space_left, fp); if (size_read == 0) { if (feof (fp)) break; if (ferror (fp)) { int err = errno; if (err != EISDIR) fprintf (stderr, "error %d (%s) reading input\n", err, xstrerror (err)); free ((void *) pz_data); return (char *) NULL; } } space_left -= size_read; space_used += size_read; } while (! feof (fp)); pz_data = XRESIZEVEC (char, pz_data, space_used+1 ); pz_data[ space_used ] = NUL; return pz_data; } #ifdef IS_CXX_HEADER_NEEDED t_bool is_cxx_header (tCC* fname, tCC* text) { /* First, check to see if the file is in a C++ directory */ for (;;) { switch (*(fname++)) { case 'C': /* check for "CC/" */ if ((fname[0] == 'C') && (fname[1] == '/')) return BOOL_TRUE; break; case 'x': /* check for "xx/" */ if ((fname[0] == 'x') && (fname[1] == '/')) return BOOL_TRUE; break; case '+': /* check for "++" */ if (fname[0] == '+') return BOOL_TRUE; break; case NUL: goto not_cxx_name; } } not_cxx_name:; /* Or it might contain one of several phrases which indicate C++ code. Currently recognized are: extern "C++" -*- (Mode: )? C++ -*- (emacs mode marker) template < */ { tSCC cxxpat[] = "\ extern[ \t]*\"C\\+\\+\"|\ -\\*-[ \t]*([mM]ode:[ \t]*)?[cC]\\+\\+[; \t]*-\\*-|\ template[ \t]*<|\ ^[ \t]*class[ \t]|\ (public|private|protected):|\ ^[ \t]*#[ \t]*pragma[ \t]+(interface|implementation)\ "; static regex_t cxxre; static int compiled; if (!compiled) compile_re (cxxpat, &cxxre, 0, "contents check", "is_cxx_header"); if (xregexec (&cxxre, text, 0, 0, 0) == 0) return BOOL_TRUE; } return BOOL_FALSE; } #endif /* CXX_TYPE_NEEDED */ #ifdef SKIP_QUOTE_NEEDED /* * Skip over a quoted string. Single quote strings may * contain multiple characters if the first character is * a backslash. Especially a backslash followed by octal digits. * We are not doing a correctness syntax check here. */ tCC* skip_quote(char q, char* text ) { for (;;) { char ch = *(text++); switch (ch) { case '\\': text++; /* skip over whatever character follows */ break; case '"': case '\'': if (ch != q) break; /*FALLTHROUGH*/ case '\n': case NUL: goto skip_done; } } skip_done:; return text; } #endif /* SKIP_QUOTE_NEEDED */ /* * * * * * * * * * * * * Compile one regular expression pattern for later use. PAT contains the pattern, RE points to a regex_t structure (which should have been bzeroed). MATCH is 1 if we need to know where the regex matched, 0 if not. If xregcomp fails, prints an error message and aborts; E1 and E2 are strings to shove into the error message. The patterns we search for are all egrep patterns. REG_EXTENDED|REG_NEWLINE produces identical regex syntax/semantics to egrep (verified from 4.4BSD Programmer's Reference Manual). */ void compile_re( tCC* pat, regex_t* re, int match, tCC* e1, tCC* e2 ) { tSCC z_bad_comp[] = "fixincl ERROR: cannot compile %s regex for %s\n\ \texpr = `%s'\n\terror %s\n"; int flags, err; flags = (match ? REG_EXTENDED|REG_NEWLINE : REG_EXTENDED|REG_NEWLINE|REG_NOSUB); err = xregcomp (re, pat, flags); if (err) { char rerrbuf[1024]; regerror (err, re, rerrbuf, 1024); fprintf (stderr, z_bad_comp, e1, e2, pat, rerrbuf); exit (EXIT_FAILURE); } } /* * * * * * * * * * * * * Helper routine and data for the machine_name test and fix. */ tSCC mn_label_pat[] = "^[ \t]*#[ \t]*(if|ifdef|ifndef)[ \t]+"; static regex_t mn_label_re; static regex_t mn_name_re; static int mn_compiled = 0; t_bool mn_get_regexps(regex_t** label_re, regex_t** name_re, tCC* who ) { if (! pz_mn_name_pat) return BOOL_FALSE; if (! mn_compiled) { compile_re (mn_label_pat, &mn_label_re, 1, "label pattern", who); compile_re (pz_mn_name_pat, &mn_name_re, 1, "name pattern", who); mn_compiled++; } *label_re = &mn_label_re; *name_re = &mn_name_re; return BOOL_TRUE; } #ifdef SEPARATE_FIX_PROC char* make_raw_shell_str( char* pz_d, tCC* pz_s, size_t smax ) { tSCC zQ[] = "'\\''"; size_t dtaSize; char* pz_d_start = pz_d; smax--; /* adjust for trailing NUL */ dtaSize = strlen( pz_s ) + 3; { const char* pz = pz_s - 1; for (;;) { pz = strchr( pz+1, '\'' ); if (pz == (char*)NULL) break; dtaSize += sizeof( zQ )-1; } } if (dtaSize > smax) return (char*)NULL; *(pz_d++) = '\''; for (;;) { if (pz_d - pz_d_start >= smax) return (char*)NULL; switch (*(pz_d++) = *(pz_s++)) { case NUL: goto loopDone; case '\'': if (pz_d - pz_d_start >= smax - sizeof( zQ )-1) return (char*)NULL; strcpy( pz_d-1, zQ ); pz_d += sizeof( zQ )-2; } } loopDone:; pz_d[-1] = '\''; *pz_d = NUL; return pz_d; } #endif
Go to most recent revision | Compare with Previous | Blame | View Log