4 Test to see if a particular fix should be applied to a header file.
6 Copyright (C) 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2009
7 Free Software Foundation, Inc.
9 = = = = = = = = = = = = = = = = = = = = = = = = =
13 The routines you write here must work closely with fixincl.c.
17 1. Every test procedure name must be suffixed with "_fix".
18 These routines will be referenced from inclhack.def, sans the suffix.
20 2. Use the "FIX_PROC_HEAD()" macro _with_ the "_fix" suffix
21 (I cannot use the ## magic from ANSI C) for defining your entry point.
23 3. Put your test name into the FIXUP_TABLE.
25 4. Do not read anything from stdin. It is closed.
27 5. Write to stderr only in the event of a reportable error
28 In such an event, call "exit (EXIT_FAILURE)".
30 6. You have access to the fixDescList entry for the fix in question.
31 This may be useful, for example, if there are interesting strings
32 or pre-compiled regular expressions stored there.
34 = = = = = = = = = = = = = = = = = = = = = = = = =
36 This file is part of GCC.
38 GCC is free software; you can redistribute it and/or modify
39 it under the terms of the GNU General Public License as published by
40 the Free Software Foundation; either version 3, or (at your option)
43 GCC is distributed in the hope that it will be useful,
44 but WITHOUT ANY WARRANTY; without even the implied warranty of
45 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
46 GNU General Public License for more details.
48 You should have received a copy of the GNU General Public License
49 along with GCC; see the file COPYING3. If not see
50 <http://www.gnu.org/licenses/>. */
55 #ifdef SEPARATE_FIX_PROC
59 tSCC zNeedsArg[] = "fixincl error: `%s' needs %s argument (c_fix_arg[%d])\n";
61 typedef void t_fix_proc (const char *, const char *, tFixDesc *) ;
68 _FT_( "char_macro_def", char_macro_def_fix ) \
69 _FT_( "char_macro_use", char_macro_use_fix ) \
70 _FT_( "format", format_fix ) \
71 _FT_( "machine_name", machine_name_fix ) \
72 _FT_( "wrap", wrap_fix ) \
73 _FT_( "gnu_type", gnu_type_fix )
76 #define FIX_PROC_HEAD( fix ) \
77 static void fix (const char* filname ATTRIBUTE_UNUSED , \
78 const char* text ATTRIBUTE_UNUSED , \
79 tFixDesc* p_fixd ATTRIBUTE_UNUSED )
81 #ifdef NEED_PRINT_QUOTE
83 * Skip over a quoted string. Single quote strings may
84 * contain multiple characters if the first character is
85 * a backslash. Especially a backslash followed by octal digits.
86 * We are not doing a correctness syntax check here.
89 print_quote(char q, char* text )
104 fputc( *(text++), stdout );
121 #endif /* NEED_PRINT_QUOTE */
125 * Emit the GNU standard type wrapped up in such a way that
126 * this thing can be encountered countless times during a compile
127 * and not cause even a warning.
130 emit_gnu_type (const char* text, regmatch_t* rm )
135 fwrite (text, rm[0].rm_so, 1, stdout);
138 const char* ps = text + rm[1].rm_so;
139 const char* pe = text + rm[1].rm_eo;
144 *(pD++) = TOUPPER( *(pd++) = *(ps++) );
150 * Now print out the reformed typedef,
151 * with a C++ guard for WCHAR
155 #if !defined(_GCC_%s_T)%s\n\
157 typedef __%s_TYPE__ %s_t;\n\
160 const char *const pz_guard = (strcmp (z_type, "wchar") == 0)
161 ? " && ! defined(__cplusplus)" : "";
163 printf (z_fmt, z_TYPE, pz_guard, z_TYPE, z_TYPE, z_type);
166 return text += rm[0].rm_eo;
171 * Copy the `format' string to std out, replacing `%n' expressions
172 * with the matched text from a regular expression evaluation.
173 * Doubled '%' characters will be replaced with a single copy.
174 * '%' characters in other contexts and all other characters are
175 * copied out verbatim.
178 format_write (tCC* format, tCC* text, regmatch_t av[] )
182 while ((c = (unsigned)*(format++)) != NUL) {
190 c = (unsigned)*(format++);
193 * IF the character following a '%' is not a digit,
194 * THEN we will always emit a '%' and we may or may
195 * not emit the following character. We will end on
196 * a NUL and we will emit only one of a pair of '%'.
212 * Emit the matched subexpression numbered 'c'.
213 * IF, of course, there was such a match...
216 regmatch_t* pRM = av + (c - (unsigned)'0');
222 len = pRM->rm_eo - pRM->rm_so;
224 fwrite(text + pRM->rm_so, len, 1, stdout);
231 * Search for multiple copies of a regular expression. Each block
232 * of matched text is replaced with the format string, as described
233 * above in `format_write'.
235 FIX_PROC_HEAD( format_fix )
237 tCC* pz_pat = p_fixd->patch_args[2];
238 tCC* pz_fmt = p_fixd->patch_args[1];
244 * We must have a format
246 if (pz_fmt == (tCC*)NULL)
248 fprintf( stderr, zNeedsArg, p_fixd->fix_name, "replacement format", 0 );
253 * IF we don't have a search text, then go find the first
254 * regular expression among the tests.
256 if (pz_pat == (tCC*)NULL)
258 tTestDesc* pTD = p_fixd->p_test_desc;
259 int ct = p_fixd->test_ct;
264 fprintf( stderr, zNeedsArg, p_fixd->fix_name, "search text", 1 );
268 if (pTD->type == TT_EGREP)
270 pz_pat = pTD->pz_test_text;
279 * Replace every copy of the text we find
281 compile_re (pz_pat, &re, 1, "format search-text", "format_fix" );
282 while (xregexec (&re, text, 10, rm, 0) == 0)
284 fwrite( text, rm[0].rm_so, 1, stdout );
285 format_write( pz_fmt, text, rm );
290 * Dump out the rest of the file
292 fputs (text, stdout);
296 /* Scan the input file for all occurrences of text like this:
298 #define TIOCCONS _IO(T, 12)
300 and change them to read like this:
302 #define TIOCCONS _IO('T', 12)
304 which is the required syntax per the C standard. (The definition of
305 _IO also has to be tweaked - see below.) 'IO' is actually whatever you
306 provide as the `c_fix_arg' argument. */
308 FIX_PROC_HEAD( char_macro_use_fix )
310 /* This regexp looks for a traditional-syntax #define (# in column 1)
311 of an object-like macro. */
312 static const char pat[] =
313 "^#[ \t]*define[ \t]+[_A-Za-z][_A-Za-z0-9]*[ \t]+";
316 const char* str = p_fixd->patch_args[1];
318 const char *p, *limit;
324 fprintf (stderr, zNeedsArg, p_fixd->fix_name, "ioctl type", 0);
329 compile_re (pat, &re, 1, "macro pattern", "char_macro_use_fix");
332 xregexec (&re, p, 1, rm, 0) == 0;
335 /* p + rm[0].rm_eo is the first character of the macro replacement.
336 Find the end of the macro replacement, and the STR we were
337 sent to look for within the replacement. */
342 limit = strchr (limit + 1, '\n');
346 while (limit[-1] == '\\');
350 if (*p == str[0] && !strncmp (p+1, str+1, len-1))
353 while (++p < limit - len);
354 /* Hit end of line. */
358 /* Found STR on this line. If the macro needs fixing,
359 the next few chars will be whitespace or uppercase,
360 then an open paren, then a single letter. */
361 while ((ISSPACE (*p) || ISUPPER (*p)) && p < limit) p++;
369 /* Splat all preceding text into the output buffer,
370 quote the character at p, then proceed. */
371 fwrite (text, 1, p - text, stdout);
378 fputs (text, stdout);
382 /* Scan the input file for all occurrences of text like this:
384 #define xxxIOxx(x, y) (....'x'<<16....)
386 and change them to read like this:
388 #define xxxIOxx(x, y) (....x<<16....)
390 which is the required syntax per the C standard. (The uses of _IO
391 also has to be tweaked - see above.) 'IO' is actually whatever
392 you provide as the `c_fix_arg' argument. */
393 FIX_PROC_HEAD( char_macro_def_fix )
395 /* This regexp looks for any traditional-syntax #define (# in column 1). */
396 static const char pat[] =
397 "^#[ \t]*define[ \t]+";
400 const char* str = p_fixd->patch_args[1];
402 const char *p, *limit;
409 fprintf (stderr, zNeedsArg, p_fixd->fix_name, "ioctl type", 0);
414 compile_re (pat, &re, 1, "macro pattern", "fix_char_macro_defines");
417 xregexec (&re, p, 1, rm, 0) == 0;
420 /* p + rm[0].rm_eo is the first character of the macro name.
421 Find the end of the macro replacement, and the STR we were
422 sent to look for within the name. */
427 limit = strchr (limit + 1, '\n');
431 while (limit[-1] == '\\');
435 if (*p == str[0] && !strncmp (p+1, str+1, len-1))
439 while (ISIDNUM (*p));
440 /* Hit end of macro name without finding the string. */
444 /* Found STR in this macro name. If the macro needs fixing,
445 there may be a few uppercase letters, then there will be an
446 open paren with _no_ intervening whitespace, and then a
448 while (ISUPPER (*p) && p < limit) p++;
456 /* The character at P is the one to look for in the following
463 if (p[-1] == '\'' && p[0] == arg && p[1] == '\'')
465 /* Remove the quotes from this use of ARG. */
467 fwrite (text, 1, p - text, stdout);
477 fputs (text, stdout);
480 /* Fix for machine name #ifdefs that are not in the namespace reserved
481 by the C standard. They won't be defined if compiling with -ansi,
482 and the headers will break. We go to some trouble to only change
483 #ifdefs where the macro is defined by GCC in non-ansi mode; this
484 minimizes the number of headers touched. */
486 #define SCRATCHSZ 64 /* hopefully long enough */
488 FIX_PROC_HEAD( machine_name_fix )
491 const char *line, *base, *limit, *p, *q;
492 regex_t *label_re, *name_re;
493 char scratch[SCRATCHSZ];
498 if (!mn_get_regexps (&label_re, &name_re, "machine_name_fix"))
500 fputs( "The target machine has no needed machine name fixes\n", stderr );
508 xregexec (label_re, base, 2, match, 0) == 0;
511 base += match[0].rm_eo;
512 /* We're looking at an #if or #ifdef. Scan forward for the
513 next non-escaped newline. */
518 limit = strchr (limit, '\n');
522 while (limit[-1] == '\\');
524 /* If the 'name_pat' matches in between base and limit, we have
525 a bogon. It is not worth the hassle of excluding comments
526 because comments on #if/#ifdef lines are rare, and strings on
527 such lines are illegal.
529 REG_NOTBOL means 'base' is not at the beginning of a line, which
530 shouldn't matter since the name_re has no ^ anchor, but let's
531 be accurate anyway. */
539 if (xregexec (name_re, base, 1, match, REG_NOTBOL))
540 goto done; /* No remaining match in this file */
542 /* Match; is it on the line? */
543 if (match[0].rm_eo > limit - base)
546 p = base + match[0].rm_so;
547 base += match[0].rm_eo;
549 /* One more test: if on the same line we have the same string
550 with the appropriate underscores, then leave it alone.
551 We want exactly two leading and trailing underscores. */
554 len = base - p - ((*base == '_') ? 2 : 1);
559 len = base - p - ((*base == '_') ? 1 : 0);
562 if (len + 4 > SCRATCHSZ)
564 memcpy (&scratch[2], q, len);
566 scratch[len++] = '_';
567 scratch[len++] = '_';
569 for (q = line; q <= limit - len; q++)
570 if (*q == '_' && !strncmp (q, scratch, len))
573 fwrite (text, 1, p - text, stdout);
574 fwrite (scratch, 1, len, stdout);
580 fputs (text, stdout);
584 FIX_PROC_HEAD( wrap_fix )
586 tSCC z_no_wrap_pat[] = "^#if.*__need_";
587 static regex_t no_wrapping_re; /* assume zeroed data */
591 if (no_wrapping_re.allocated == 0)
592 compile_re( z_no_wrap_pat, &no_wrapping_re, 0, "no-wrap pattern",
596 * IF we do *not* match the no-wrap re, then we have a double negative.
597 * A double negative means YES.
599 if (xregexec( &no_wrapping_re, text, 0, NULL, 0 ) != 0)
602 * A single file can get wrapped more than once by different fixes.
603 * A single fix can wrap multiple files. Therefore, guard with
604 * *both* the fix name and the file name.
606 size_t ln = strlen( filname ) + strlen( p_fixd->fix_name ) + 14;
607 char* pz = XNEWVEC (char, ln);
609 sprintf( pz, "FIXINC_WRAP_%s-%s", filname, p_fixd->fix_name );
611 for (pz += 12; 1; pz++) {
617 if (! ISALNUM( ch )) {
625 printf( "#ifndef %s\n", pz_name );
626 printf( "#define %s 1\n\n", pz_name );
629 if (p_fixd->patch_args[1] == (tCC*)NULL)
630 fputs( text, stdout );
633 fputs( p_fixd->patch_args[1], stdout );
634 fputs( text, stdout );
635 if (p_fixd->patch_args[2] != (tCC*)NULL)
636 fputs( p_fixd->patch_args[2], stdout );
639 if (pz_name != NULL) {
640 printf( "\n#endif /* %s */\n", pz_name );
641 free( (void*)pz_name );
647 * Search for multiple copies of a regular expression. Each block
648 * of matched text is replaced with the format string, as described
649 * above in `format_write'.
651 FIX_PROC_HEAD( gnu_type_fix )
655 regmatch_t rm[GTYPE_SE_CT+1];
659 tTestDesc* pTD = p_fixd->p_test_desc;
660 int ct = p_fixd->test_ct;
665 fprintf (stderr, zNeedsArg, p_fixd->fix_name, "search text", 1);
669 if (pTD->type == TT_EGREP)
671 pz_pat = pTD->pz_test_text;
679 compile_re (pz_pat, &re, 1, "gnu type typedef", "gnu_type_fix");
681 while (xregexec (&re, text, GTYPE_SE_CT+1, rm, 0) == 0)
683 text = emit_gnu_type (text, rm);
687 * Dump out the rest of the file
689 fputs (text, stdout);
693 /* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
695 test for fix selector
697 THIS IS THE ONLY EXPORTED ROUTINE
701 apply_fix( tFixDesc* p_fixd, tCC* filname )
703 #define _FT_(n,p) { n, p },
704 static fix_entry_t fix_table[] = { FIXUP_TABLE { NULL, NULL }};
706 #define FIX_TABLE_CT (ARRAY_SIZE (fix_table)-1)
708 tCC* fixname = p_fixd->patch_args[0];
710 int ct = FIX_TABLE_CT;
711 fix_entry_t* pfe = fix_table;
715 if (strcmp (pfe->fix_name, fixname) == 0)
719 fprintf (stderr, "fixincl error: the `%s' fix is unknown\n",
726 buf = load_file_data (stdin);
727 (*pfe->fix_proc)( filname, buf, p_fixd );
730 #ifdef SEPARATE_FIX_PROC
732 "USAGE: applyfix <fix-name> <file-to-fix> <file-source> <file-destination>\n";
734 "FS error %d (%s) reopening %s as std%s\n";
737 main( int argc, char** argv )
747 fputs (z_usage, stderr);
757 if (! ISDIGIT ( *pz ))
760 idx = strtol (pz, &pz, 10);
761 if ((*pz != NUL) || ((unsigned)idx >= FIX_COUNT))
763 pFix = fixDescList + idx;
766 if (freopen (argv[3], "r", stdin) != stdin)
768 fprintf (stderr, z_reopen, errno, strerror( errno ), argv[3], "in");
772 pz_tmptmp = XNEWVEC (char, strlen (argv[4]) + 5);
773 strcpy( pz_tmptmp, argv[4] );
775 /* Don't lose because "12345678" and "12345678X" map to the same
776 file under DOS restricted 8+3 file namespace. Note that DOS
777 doesn't allow more than one dot in the trunk of a file name. */
778 pz_tmp_base = basename( pz_tmptmp );
779 pz_tmp_dot = strchr( pz_tmp_base, '.' );
781 if (pathconf( pz_tmptmp, _PC_NAME_MAX ) <= 12 /* is this DOS or Windows9X? */
782 && pz_tmp_dot != (char*)NULL)
783 strcpy (pz_tmp_dot+1, "X"); /* nuke the original extension */
785 #endif /* _PC_NAME_MAX */
786 strcat (pz_tmptmp, ".X");
787 if (freopen (pz_tmptmp, "w", stdout) != stdout)
789 fprintf (stderr, z_reopen, errno, strerror( errno ), pz_tmptmp, "out");
793 apply_fix (pFix, argv[1]);
797 if (rename (pz_tmptmp, argv[4]) != 0)
799 fprintf (stderr, "error %d (%s) renaming %s to %s\n", errno,
800 strerror( errno ), pz_tmptmp, argv[4]);