4 Test to see if a particular fix should be applied to a header file.
6 Copyright (C) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
8 = = = = = = = = = = = = = = = = = = = = = = = = =
12 The routines you write here must work closely with fixincl.c.
16 1. Every test procedure name must be suffixed with "_test".
17 These routines will be referenced from inclhack.def, sans the suffix.
19 2. Use the "TEST_FOR_FIX_PROC_HEAD()" macro _with_ the "_test" suffix
20 (I cannot use the ## magic from ANSI C) for defining your entry point.
22 3. Put your test name into the FIX_TEST_TABLE
24 4. Do not write anything to stdout. It may be closed.
26 5. Write to stderr only in the event of a reportable error
27 In such an event, call "exit(1)".
29 = = = = = = = = = = = = = = = = = = = = = = = = =
31 This file is part of GCC.
33 GCC is free software; you can redistribute it and/or modify
34 it under the terms of the GNU General Public License as published by
35 the Free Software Foundation; either version 2, or (at your option)
38 GCC is distributed in the hope that it will be useful,
39 but WITHOUT ANY WARRANTY; without even the implied warranty of
40 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
41 GNU General Public License for more details.
43 You should have received a copy of the GNU General Public License
44 along with GCC; see the file COPYING. If not, write to
45 the Free Software Foundation, 59 Temple Place - Suite 330,
46 Boston, MA 02111-1307, USA. */
50 #define _ENV_(v,m,n,t) extern tCC* v;
54 typedef apply_fix_p_t
t_test_proc ( tCC
* file
, tCC
* text
);
58 t_test_proc
* test_proc
;
61 #define FIX_TEST_TABLE \
62 _FT_( "machine_name", machine_name_test ) \
63 _FT_( "stdc_0_in_system_headers", stdc_0_in_system_headers_test )
65 #define TEST_FOR_FIX_PROC_HEAD( test ) \
66 static apply_fix_p_t test ( tCC* fname ATTRIBUTE_UNUSED, \
67 tCC* text ATTRIBUTE_UNUSED )
69 TEST_FOR_FIX_PROC_HEAD( machine_name_test
)
74 regex_t
*label_re
, *name_re
;
79 mn_get_regexps(&label_re
, &name_re
, "machine_name_test");
82 xregexec (label_re
, base
, 2, match
, 0) == 0;
85 base
+= match
[0].rm_eo
;
86 /* We're looking at an #if or #ifdef. Scan forward for the
87 next non-escaped newline. */
92 limit
= strchr (limit
, '\n');
96 while (limit
[-1] == '\\');
98 /* If the 'name_pat' matches in between base and limit, we have
99 a bogon. It is not worth the hassle of excluding comments,
100 because comments on #if/#ifdef/#ifndef lines are rare,
101 and strings on such lines are illegal.
103 REG_NOTBOL means 'base' is not at the beginning of a line, which
104 shouldn't matter since the name_re has no ^ anchor, but let's
105 be accurate anyway. */
107 if (xregexec (name_re
, base
, 1, match
, REG_NOTBOL
))
108 return SKIP_FIX
; /* No match in file - no fix needed */
110 /* Match; is it on the line? */
111 if (match
[0].rm_eo
<= limit
- base
)
112 return APPLY_FIX
; /* Yup */
114 /* Otherwise, keep looking... */
121 TEST_FOR_FIX_PROC_HEAD( stdc_0_in_system_headers_test
)
123 #ifdef STDC_0_IN_SYSTEM_HEADERS
124 return (pz_machine
== NULL
) ? APPLY_FIX
: SKIP_FIX
;
131 /* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
133 test for fix selector
135 THIS IS THE ONLY EXPORTED ROUTINE
139 run_test( tCC
* tname
, tCC
* fname
, tCC
* text
)
141 #define _FT_(n,p) { n, p },
142 static test_entry_t test_table
[] = { FIX_TEST_TABLE
{ NULL
, NULL
}};
144 #define TEST_TABLE_CT (ARRAY_SIZE (test_table)-1)
146 int ct
= TEST_TABLE_CT
;
147 test_entry_t
* pte
= test_table
;
151 if (strcmp( pte
->test_name
, tname
) == 0)
152 return (*pte
->test_proc
)( fname
, text
);
155 fprintf( stderr
, "fixincludes error: the `%s' fix test is unknown\n",