+++ /dev/null
-
-/*
-
- Test to see if a particular fix should be applied to a header file.
-
- Copyright (C) 1997, 1998, 1999, 2000, 2003 Free Software Foundation, Inc.
-
-= = = = = = = = = = = = = = = = = = = = = = = = =
-
-NOTE TO DEVELOPERS
-
-The routines you write here must work closely with fixincl.c.
-
-Here are the rules:
-
-1. Every test procedure name must be suffixed with "_fix".
- These routines will be referenced from inclhack.def, sans the suffix.
-
-2. Use the "FIX_PROC_HEAD()" macro _with_ the "_fix" suffix
- (I cannot use the ## magic from ANSI C) for defining your entry point.
-
-3. Put your test name into the FIXUP_TABLE.
-
-4. Do not read anything from stdin. It is closed.
-
-5. Write to stderr only in the event of a reportable error
- In such an event, call "exit (EXIT_FAILURE)".
-
-6. You have access to the fixDescList entry for the fix in question.
- This may be useful, for example, if there are interesting strings
- or pre-compiled regular expressions stored there.
-
-= = = = = = = = = = = = = = = = = = = = = = = = =
-
-This file is part of GNU CC.
-
-GNU CC 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 CC 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 CC; see the file COPYING. If not, write to
-the Free Software Foundation, 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA. */
-
-#include "fixlib.h"
-#define GTYPE_SE_CT 1
-
-#ifdef SEPARATE_FIX_PROC
-#include "fixincl.x"
-#endif
-
-tSCC zNeedsArg[] = "fixincl error: `%s' needs %s argument (c_fix_arg[%d])\n";
-
-typedef void t_fix_proc PARAMS ((const char *, const char *, tFixDesc *));
-typedef struct {
- const char* fix_name;
- t_fix_proc* fix_proc;
-} fix_entry_t;
-
-#define FIXUP_TABLE \
- _FT_( "char_macro_def", char_macro_def_fix ) \
- _FT_( "char_macro_use", char_macro_use_fix ) \
- _FT_( "format", format_fix ) \
- _FT_( "machine_name", machine_name_fix ) \
- _FT_( "wrap", wrap_fix ) \
- _FT_( "gnu_type", gnu_type_fix )
-
-
-#define FIX_PROC_HEAD( fix ) \
-static void fix PARAMS ((const char *, const char *, tFixDesc *)); /* avoid warning */ \
-static void fix ( filname, text, p_fixd ) \
- const char* filname; \
- const char* text; \
- tFixDesc* p_fixd;
-
-#ifdef NEED_PRINT_QUOTE
-/*
- * 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.
- */
-static char*
-print_quote( q, text )
- char q;
- char* text;
-{
- fputc( q, stdout );
-
- for (;;)
- {
- char ch = *(text++);
- fputc( ch, stdout );
-
- switch (ch)
- {
- case '\\':
- if (*text == NUL)
- goto quote_done;
-
- fputc( *(text++), stdout );
- break;
-
- case '"':
- case '\'':
- if (ch != q)
- break;
- /*FALLTHROUGH*/
-
- case '\n':
- case NUL:
- goto quote_done;
- }
- } quote_done:;
-
- return text;
-}
-#endif /* NEED_PRINT_QUOTE */
-
-
-/*
- * Emit the GNU standard type wrapped up in such a way that
- * this thing can be encountered countless times during a compile
- * and not cause even a warning.
- */
-static const char *emit_gnu_type PARAMS ((const char *, regmatch_t *));
-static const char*
-emit_gnu_type ( text, rm )
- const char* text;
- regmatch_t* rm;
-{
- char z_TYPE[ 64 ];
- char z_type[ 64 ];
-
- fwrite (text, rm[0].rm_so, 1, stdout);
-
- {
- const char* ps = text + rm[1].rm_so;
- const char* pe = text + rm[1].rm_eo;
- char* pd = z_type;
- char* pD = z_TYPE;
-
- while (ps < pe)
- *(pD++) = TOUPPER( *(pd++) = *(ps++) );
-
- *pD = *pd = NUL;
- }
-
- /*
- * Now print out the reformed typedef,
- * with a C++ guard for WCHAR
- */
- {
- tSCC z_fmt[] = "\
-#if !defined(_GCC_%s_T)%s\n\
-#define _GCC_%s_T\n\
-typedef __%s_TYPE__ %s_t;\n\
-#endif\n";
-
- const char *const pz_guard = (strcmp (z_type, "wchar") == 0)
- ? " && ! defined(__cplusplus)" : "";
-
- printf (z_fmt, z_TYPE, pz_guard, z_TYPE, z_TYPE, z_type);
- }
-
- return text += rm[0].rm_eo;
-}
-
-
-/*
- * Copy the `format' string to std out, replacing `%n' expressions
- * with the matched text from a regular expression evaluation.
- * Doubled '%' characters will be replaced with a single copy.
- * '%' characters in other contexts and all other characters are
- * copied out verbatim.
- */
-static void format_write PARAMS ((tCC *, tCC *, regmatch_t[]));
-static void
-format_write (format, text, av)
- tCC* format;
- tCC* text;
- regmatch_t av[];
-{
- int c;
-
- while ((c = (unsigned)*(format++)) != NUL) {
-
- if (c != '%')
- {
- putchar(c);
- continue;
- }
-
- c = (unsigned)*(format++);
-
- /*
- * IF the character following a '%' is not a digit,
- * THEN we will always emit a '%' and we may or may
- * not emit the following character. We will end on
- * a NUL and we will emit only one of a pair of '%'.
- */
- if (! ISDIGIT ( c ))
- {
- putchar( '%' );
- switch (c) {
- case NUL:
- return;
- case '%':
- break;
- default:
- putchar(c);
- }
- }
-
- /*
- * Emit the matched subexpression numbered 'c'.
- * IF, of course, there was such a match...
- */
- else {
- regmatch_t* pRM = av + (c - (unsigned)'0');
- size_t len;
-
- if (pRM->rm_so < 0)
- continue;
-
- len = pRM->rm_eo - pRM->rm_so;
- if (len > 0)
- fwrite(text + pRM->rm_so, len, 1, stdout);
- }
- }
-}
-
-
-/*
- * Search for multiple copies of a regular expression. Each block
- * of matched text is replaced with the format string, as described
- * above in `format_write'.
- */
-FIX_PROC_HEAD( format_fix )
-{
- tCC* pz_pat = p_fixd->patch_args[2];
- tCC* pz_fmt = p_fixd->patch_args[1];
- regex_t re;
- regmatch_t rm[10];
- IGNORE_ARG(filname);
-
- /*
- * We must have a format
- */
- if (pz_fmt == (tCC*)NULL)
- {
- fprintf( stderr, zNeedsArg, p_fixd->fix_name, "replacement format", 0 );
- exit (EXIT_BROKEN);
- }
-
- /*
- * IF we don't have a search text, then go find the first
- * regular expression among the tests.
- */
- if (pz_pat == (tCC*)NULL)
- {
- tTestDesc* pTD = p_fixd->p_test_desc;
- int ct = p_fixd->test_ct;
- for (;;)
- {
- if (ct-- <= 0)
- {
- fprintf( stderr, zNeedsArg, p_fixd->fix_name, "search text", 1 );
- exit (EXIT_BROKEN);
- }
-
- if (pTD->type == TT_EGREP)
- {
- pz_pat = pTD->pz_test_text;
- break;
- }
-
- pTD++;
- }
- }
-
- /*
- * Replace every copy of the text we find
- */
- compile_re (pz_pat, &re, 1, "format search-text", "format_fix" );
- while (regexec (&re, text, 10, rm, 0) == 0)
- {
- fwrite( text, rm[0].rm_so, 1, stdout );
- format_write( pz_fmt, text, rm );
- text += rm[0].rm_eo;
- }
-
- /*
- * Dump out the rest of the file
- */
- fputs (text, stdout);
-}
-
-
-/* Scan the input file for all occurrences of text like this:
-
- #define TIOCCONS _IO(T, 12)
-
- and change them to read like this:
-
- #define TIOCCONS _IO('T', 12)
-
- which is the required syntax per the C standard. (The definition of
- _IO also has to be tweaked - see below.) 'IO' is actually whatever you
- provide as the `c_fix_arg' argument. */
-
-FIX_PROC_HEAD( char_macro_use_fix )
-{
- /* This regexp looks for a traditional-syntax #define (# in column 1)
- of an object-like macro. */
- static const char pat[] =
- "^#[ \t]*define[ \t]+[_A-Za-z][_A-Za-z0-9]*[ \t]+";
- static regex_t re;
-
- const char* str = p_fixd->patch_args[1];
- regmatch_t rm[1];
- const char *p, *limit;
- size_t len;
- IGNORE_ARG(filname);
-
- if (str == NULL)
- {
- fprintf (stderr, zNeedsArg, p_fixd->fix_name, "ioctl type", 0);
- exit (EXIT_BROKEN);
- }
-
- len = strlen (str);
- compile_re (pat, &re, 1, "macro pattern", "char_macro_use_fix");
-
- for (p = text;
- regexec (&re, p, 1, rm, 0) == 0;
- p = limit + 1)
- {
- /* p + rm[0].rm_eo is the first character of the macro replacement.
- Find the end of the macro replacement, and the STR we were
- sent to look for within the replacement. */
- p += rm[0].rm_eo;
- limit = p - 1;
- do
- {
- limit = strchr (limit + 1, '\n');
- if (!limit)
- goto done;
- }
- while (limit[-1] == '\\');
-
- do
- {
- if (*p == str[0] && !strncmp (p+1, str+1, len-1))
- goto found;
- }
- while (++p < limit - len);
- /* Hit end of line. */
- continue;
-
- found:
- /* Found STR on this line. If the macro needs fixing,
- the next few chars will be whitespace or uppercase,
- then an open paren, then a single letter. */
- while ((ISSPACE (*p) || ISUPPER (*p)) && p < limit) p++;
- if (*p++ != '(')
- continue;
- if (!ISALPHA (*p))
- continue;
- if (ISIDNUM (p[1]))
- continue;
-
- /* Splat all preceding text into the output buffer,
- quote the character at p, then proceed. */
- fwrite (text, 1, p - text, stdout);
- putchar ('\'');
- putchar (*p);
- putchar ('\'');
- text = p + 1;
- }
- done:
- fputs (text, stdout);
-}
-
-
-/* Scan the input file for all occurrences of text like this:
-
- #define xxxIOxx(x, y) (....'x'<<16....)
-
- and change them to read like this:
-
- #define xxxIOxx(x, y) (....x<<16....)
-
- which is the required syntax per the C standard. (The uses of _IO
- also has to be tweaked - see above.) 'IO' is actually whatever
- you provide as the `c_fix_arg' argument. */
-FIX_PROC_HEAD( char_macro_def_fix )
-{
- /* This regexp looks for any traditional-syntax #define (# in column 1). */
- static const char pat[] =
- "^#[ \t]*define[ \t]+";
- static regex_t re;
-
- const char* str = p_fixd->patch_args[1];
- regmatch_t rm[1];
- const char *p, *limit;
- char arg;
- size_t len;
- IGNORE_ARG(filname);
-
- if (str == NULL)
- {
- fprintf (stderr, zNeedsArg, p_fixd->fix_name, "ioctl type", 0);
- exit (EXIT_BROKEN);
- }
-
- len = strlen (str);
- compile_re (pat, &re, 1, "macro pattern", "fix_char_macro_defines");
-
- for (p = text;
- regexec (&re, p, 1, rm, 0) == 0;
- p = limit + 1)
- {
- /* p + rm[0].rm_eo is the first character of the macro name.
- Find the end of the macro replacement, and the STR we were
- sent to look for within the name. */
- p += rm[0].rm_eo;
- limit = p - 1;
- do
- {
- limit = strchr (limit + 1, '\n');
- if (!limit)
- goto done;
- }
- while (limit[-1] == '\\');
-
- do
- {
- if (*p == str[0] && !strncmp (p+1, str+1, len-1))
- goto found;
- p++;
- }
- while (ISIDNUM (*p));
- /* Hit end of macro name without finding the string. */
- continue;
-
- found:
- /* Found STR in this macro name. If the macro needs fixing,
- there may be a few uppercase letters, then there will be an
- open paren with _no_ intervening whitespace, and then a
- single letter. */
- while (ISUPPER (*p) && p < limit) p++;
- if (*p++ != '(')
- continue;
- if (!ISALPHA (*p))
- continue;
- if (ISIDNUM (p[1]))
- continue;
-
- /* The character at P is the one to look for in the following
- text. */
- arg = *p;
- p += 2;
-
- while (p < limit)
- {
- if (p[-1] == '\'' && p[0] == arg && p[1] == '\'')
- {
- /* Remove the quotes from this use of ARG. */
- p--;
- fwrite (text, 1, p - text, stdout);
- putchar (arg);
- p += 3;
- text = p;
- }
- else
- p++;
- }
- }
- done:
- fputs (text, stdout);
-}
-
-/* Fix for machine name #ifdefs that are not in the namespace reserved
- by the C standard. They won't be defined if compiling with -ansi,
- and the headers will break. We go to some trouble to only change
- #ifdefs where the macro is defined by GCC in non-ansi mode; this
- minimizes the number of headers touched. */
-
-#define SCRATCHSZ 64 /* hopefully long enough */
-
-FIX_PROC_HEAD( machine_name_fix )
-{
-#ifndef MN_NAME_PAT
- fputs( "The target machine has no needed machine name fixes\n", stderr );
-#else
- regmatch_t match[2];
- const char *line, *base, *limit, *p, *q;
- regex_t *label_re, *name_re;
- char scratch[SCRATCHSZ];
- size_t len;
- IGNORE_ARG(filname);
- IGNORE_ARG(p_fixd);
-
- mn_get_regexps (&label_re, &name_re, "machine_name_fix");
-
- scratch[0] = '_';
- scratch[1] = '_';
-
- for (base = text;
- regexec (label_re, base, 2, match, 0) == 0;
- base = limit)
- {
- base += match[0].rm_eo;
- /* We're looking at an #if or #ifdef. Scan forward for the
- next non-escaped newline. */
- line = limit = base;
- do
- {
- limit++;
- limit = strchr (limit, '\n');
- if (!limit)
- goto done;
- }
- while (limit[-1] == '\\');
-
- /* If the 'name_pat' matches in between base and limit, we have
- a bogon. It is not worth the hassle of excluding comments
- because comments on #if/#ifdef lines are rare, and strings on
- such lines are illegal.
-
- REG_NOTBOL means 'base' is not at the beginning of a line, which
- shouldn't matter since the name_re has no ^ anchor, but let's
- be accurate anyway. */
-
- for (;;)
- {
- again:
- if (base == limit)
- break;
-
- if (regexec (name_re, base, 1, match, REG_NOTBOL))
- goto done; /* No remaining match in this file */
-
- /* Match; is it on the line? */
- if (match[0].rm_eo > limit - base)
- break;
-
- p = base + match[0].rm_so;
- base += match[0].rm_eo;
-
- /* One more test: if on the same line we have the same string
- with the appropriate underscores, then leave it alone.
- We want exactly two leading and trailing underscores. */
- if (*p == '_')
- {
- len = base - p - ((*base == '_') ? 2 : 1);
- q = p + 1;
- }
- else
- {
- len = base - p - ((*base == '_') ? 1 : 0);
- q = p;
- }
- if (len + 4 > SCRATCHSZ)
- abort ();
- memcpy (&scratch[2], q, len);
- len += 2;
- scratch[len++] = '_';
- scratch[len++] = '_';
-
- for (q = line; q <= limit - len; q++)
- if (*q == '_' && !strncmp (q, scratch, len))
- goto again;
-
- fwrite (text, 1, p - text, stdout);
- fwrite (scratch, 1, len, stdout);
-
- text = base;
- }
- }
- done:
-#endif
- fputs (text, stdout);
-}
-
-
-FIX_PROC_HEAD( wrap_fix )
-{
- tSCC z_no_wrap_pat[] = "^#if.*__need_";
- static regex_t no_wrapping_re; /* assume zeroed data */
-
- tCC* pz_name = NULL;
-
- if (no_wrapping_re.allocated == 0)
- compile_re( z_no_wrap_pat, &no_wrapping_re, 0, "no-wrap pattern",
- "wrap-fix" );
-
- /*
- * IF we do *not* match the no-wrap re, then we have a double negative.
- * A double negative means YES.
- */
- if (regexec( &no_wrapping_re, text, 0, NULL, 0 ) != 0)
- {
- /*
- * A single file can get wrapped more than once by different fixes.
- * A single fix can wrap multiple files. Therefore, guard with
- * *both* the fix name and the file name.
- */
- size_t ln = strlen( filname ) + strlen( p_fixd->fix_name ) + 14;
- char* pz = xmalloc( ln );
- pz_name = pz;
- sprintf( pz, "FIXINC_WRAP_%s-%s", filname, p_fixd->fix_name );
-
- for (pz += 12; 1; pz++) {
- char ch = *pz;
-
- if (ch == NUL)
- break;
-
- if (! ISALNUM( ch )) {
- *pz = '_';
- }
- else {
- *pz = TOUPPER( ch );
- }
- }
-
- printf( "#ifndef %s\n", pz_name );
- printf( "#define %s 1\n\n", pz_name );
- }
-
- if (p_fixd->patch_args[1] == (tCC*)NULL)
- fputs( text, stdout );
-
- else {
- fputs( p_fixd->patch_args[1], stdout );
- fputs( text, stdout );
- if (p_fixd->patch_args[2] != (tCC*)NULL)
- fputs( p_fixd->patch_args[2], stdout );
- }
-
- if (pz_name != NULL) {
- printf( "\n#endif /* %s */\n", pz_name );
- free( (void*)pz_name );
- }
-}
-
-
-/*
- * Search for multiple copies of a regular expression. Each block
- * of matched text is replaced with the format string, as described
- * above in `format_write'.
- */
-FIX_PROC_HEAD( gnu_type_fix )
-{
- const char* pz_pat;
- regex_t re;
- regmatch_t rm[GTYPE_SE_CT+1];
- IGNORE_ARG(filname);
-
- {
- tTestDesc* pTD = p_fixd->p_test_desc;
- int ct = p_fixd->test_ct;
- for (;;)
- {
- if (ct-- <= 0)
- {
- fprintf (stderr, zNeedsArg, p_fixd->fix_name, "search text", 1);
- exit (EXIT_BROKEN);
- }
-
- if (pTD->type == TT_EGREP)
- {
- pz_pat = pTD->pz_test_text;
- break;
- }
-
- pTD++;
- }
- }
-
- compile_re (pz_pat, &re, 1, "gnu type typedef", "gnu_type_fix");
-
- while (regexec (&re, text, GTYPE_SE_CT+1, rm, 0) == 0)
- {
- text = emit_gnu_type (text, rm);
- }
-
- /*
- * Dump out the rest of the file
- */
- fputs (text, stdout);
-}
-
-
-/* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
-
- test for fix selector
-
- THIS IS THE ONLY EXPORTED ROUTINE
-
-*/
-void
-apply_fix( p_fixd, filname )
- tFixDesc* p_fixd;
- tCC* filname;
-{
-#define _FT_(n,p) { n, p },
- static fix_entry_t fix_table[] = { FIXUP_TABLE { NULL, NULL }};
-#undef _FT_
-#define FIX_TABLE_CT (ARRAY_SIZE (fix_table)-1)
-
- tCC* fixname = p_fixd->patch_args[0];
- char* buf;
- int ct = FIX_TABLE_CT;
- fix_entry_t* pfe = fix_table;
-
- for (;;)
- {
- if (strcmp (pfe->fix_name, fixname) == 0)
- break;
- if (--ct <= 0)
- {
- fprintf (stderr, "fixincl error: the `%s' fix is unknown\n",
- fixname );
- exit (EXIT_BROKEN);
- }
- pfe++;
- }
-
- buf = load_file_data (stdin);
- (*pfe->fix_proc)( filname, buf, p_fixd );
-}
-
-#ifdef SEPARATE_FIX_PROC
-tSCC z_usage[] =
-"USAGE: applyfix <fix-name> <file-to-fix> <file-source> <file-destination>\n";
-tSCC z_reopen[] =
-"FS error %d (%s) reopening %s as std%s\n";
-
-int
-main( argc, argv )
- int argc;
- char** argv;
-{
- tFixDesc* pFix;
- char* pz_tmptmp;
- char* pz_tmp_base;
- char* pz_tmp_dot;
-
- if (argc != 5)
- {
- usage_failure:
- fputs (z_usage, stderr);
- return EXIT_FAILURE;
- }
-
- {
- char* pz = argv[1];
- long idx;
-
- if (! ISDIGIT ( *pz ))
- goto usage_failure;
-
- idx = strtol (pz, &pz, 10);
- if ((*pz != NUL) || ((unsigned)idx >= FIX_COUNT))
- goto usage_failure;
- pFix = fixDescList + idx;
- }
-
- if (freopen (argv[3], "r", stdin) != stdin)
- {
- fprintf (stderr, z_reopen, errno, strerror( errno ), argv[3], "in");
- return EXIT_FAILURE;
- }
-
- pz_tmptmp = (char*)xmalloc( strlen( argv[4] ) + 5 );
- strcpy( pz_tmptmp, argv[4] );
-
- /* Don't lose because "12345678" and "12345678X" map to the same
- file under DOS restricted 8+3 file namespace. Note that DOS
- doesn't allow more than one dot in the trunk of a file name. */
- pz_tmp_base = basename( pz_tmptmp );
- pz_tmp_dot = strchr( pz_tmp_base, '.' );
- if (pathconf( pz_tmptmp, _PC_NAME_MAX ) <= 12 /* is this DOS or Windows9X? */
- && pz_tmp_dot != (char*)NULL)
- strcpy (pz_tmp_dot+1, "X"); /* nuke the original extension */
- else
- strcat (pz_tmptmp, ".X");
- if (freopen (pz_tmptmp, "w", stdout) != stdout)
- {
- fprintf (stderr, z_reopen, errno, strerror( errno ), pz_tmptmp, "out");
- return EXIT_FAILURE;
- }
-
- apply_fix (pFix, argv[1]);
- fclose (stdout);
- fclose (stdin);
- unlink (argv[4]);
- if (rename (pz_tmptmp, argv[4]) != 0)
- {
- fprintf (stderr, "error %d (%s) renaming %s to %s\n", errno,
- strerror( errno ), pz_tmptmp, argv[4]);
- return EXIT_FAILURE;
- }
-
- return EXIT_SUCCESS;
-}
-#endif
projects / msp430-gcc.git / blobdiff