Mercurial > hg > CbC > CbC_gcc

comparison fixincludes/fixincl.tpl @ 0:a06113de4d67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
first commit
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Fri, 17 Jul 2009 14:47:48 +0900
parents
children 04ced10e8804
comparison
equal deleted inserted replaced
-1:000000000000 0:a06113de4d67
1 [= AutoGen5 Template -*- Mode: C -*-
2 x=fixincl.x =]
3 [= (dne " * " "/* ")=]
4 */
5 /* DO NOT SVN-MERGE THIS FILE, EITHER [=
6 (define re-ct 0) (define max-mach 0) (define ct 0)
7 (define HACK "") (define Hack "") (define tmp "")
8 (shell "date") =]
9 *
10 * You must regenerate it. Use the ./genfixes script.
11 *
12 *
13 * This is part of the fixincl program used to install modified versions of
14 * certain ANSI-incompatible system header files which are fixed to work
15 * correctly with ANSI C and placed in a directory that GNU C will search.
16 *
17 * This file contains [=(count "fix")=] fixup descriptions.
18 *
19 * See README for more information.
20 *
21 * inclhack copyright (c) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
22 * 2006, 2007, 2008
23 * The Free Software Foundation, Inc.
24 *
25 * inclhack is free software: you can redistribute it and/or modify it
26 * under the terms of the GNU General Public License as published by the
27 * Free Software Foundation, either version 3 of the License, or
28 * (at your option) any later version.
29 *
30 * inclhack is distributed in the hope that it will be useful, but
31 * WITHOUT ANY WARRANTY; without even the implied warranty of
32 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
33 * See the GNU General Public License for more details.
34 *
35 * You should have received a copy of the GNU General Public License along
36 * with this program. If not, see <http://www.gnu.org/licenses/>.
37 */
38 #ifndef SED_PROGRAM
39 #define SED_PROGRAM "/usr/bin/sed"
40 #endif
41 static char const sed_cmd_z[] = SED_PROGRAM;
42 [=
43
44 FOR fix =]
45 /* * * * * * * * * * * * * * * * * * * * * * * * * *
46 *
47 * Description of [=
48 (set! Hack (string-capitalize! (get "hackname")))
49 (set! HACK (string-upcase! (get "hackname")))
50 (if (and (not (exist? "test_text")) (not (exist? "replace")))
51 (error (sprintf "include fix '%s' has no test text" Hack )) )
52 (. Hack)=] fix
53 */[=
54
55 # Note that this is not just for debugging purposes, but in case
56 some C fix wishes to refer to the regexps it is paired with.
57 See commentary at the top of fixfixes.c.
58 =]
59 tSCC z[=(. Hack)=]Name[] =
60 "[=hackname=]";
61
62 /*
63 * File name selection pattern
64 */[=
65
66 IF (exist? "files")=]
67 tSCC z[=(. Hack)=]List[] =
68 "[= (join "\\0" (stack "files")) =]\0";[=
69
70 ELSE =]
71 #define z[=(. Hack)=]List (char*)NULL[=
72 ENDIF (exist? "files") =]
73 /*
74 * Machine/OS name selection pattern
75 */[=
76
77 IF (exist? "mach")=]
78 tSCC* apz[=(. Hack)=]Machs[] = {[=
79 (set! ct 0) =][=
80
81 FOR mach =]
82 [=
83 (set! tmp (get "mach"))
84 (set! ct (+ ct (string-length tmp) 5))
85 (kr-string tmp)=],[=
86 ENDFOR=]
87 (const char*)NULL };[=
88
89 (if (> ct max-mach) (set! max-mach ct)) =][=
90
91 ELSE =]
92 #define apz[=(. Hack)=]Machs (const char**)NULL[=
93 ENDIF (exist? "mach") =][=
94
95 IF (exist? "select")=]
96
97 /*
98 * content selection pattern - do fix if pattern found
99 */[=
100 FOR select =]
101 tSCC z[=(. Hack)=]Select[=(for-index)=][] =
102 [=(kr-string (get "select"))=];[=
103 ENDFOR select =][=
104 ENDIF =][=
105
106 IF (exist? "bypass")=]
107
108 /*
109 * content bypass pattern - skip fix if pattern found
110 */[=
111 FOR bypass =]
112 tSCC z[=(. Hack)=]Bypass[=(for-index)=][] =
113 [=(kr-string (get "bypass"))=];[=
114 ENDFOR bypass =][=
115 ENDIF =][=
116
117 IF (exist? "test")=]
118
119 /*
120 * perform the 'test' shell command - do fix on success
121 */[=
122 FOR test =]
123 tSCC z[=(. Hack)=]Test[=(for-index)=][] =
124 [=(kr-string (get "test"))=];[=
125 ENDFOR =][=
126 ENDIF =][=
127
128 IF (exist? "c_test")=]
129
130 /*
131 * perform the C function call test
132 */[=
133 FOR c_test =]
134 tSCC z[=(. Hack)=]FTst[=(for-index)=][] = "[=c_test=]";[=
135 ENDFOR c_test =][=
136 ENDIF =][=
137
138 IF (set! ct (+ (count "select") (count "bypass")
139 (count "test") (count "c_test")))
140
141 (= ct 0)
142 =]
143 #define [=(. HACK)=]_TEST_CT 0
144 #define a[=(. Hack)=]Tests (tTestDesc*)NULL[=
145 ELSE =]
146
147 #define [=(. HACK)=]_TEST_CT [=(. ct)=][=
148 (set! re-ct (+ re-ct (count "select") (count "bypass"))) =]
149 static tTestDesc a[=(. Hack)=]Tests[] = {[=
150
151 FOR test =]
152 { TT_TEST, z[=(. Hack)=]Test[=(for-index)=], 0 /* unused */ },[=
153 ENDFOR test =][=
154
155 FOR c_test =]
156 { TT_FUNCTION, z[=(. Hack)=]FTst[=(for-index)=], 0 /* unused */ },[=
157 ENDFOR c_test =][=
158
159 FOR bypass =]
160 { TT_NEGREP, z[=(. Hack)=]Bypass[=(for-index)=], (regex_t*)NULL },[=
161 ENDFOR bypass =][=
162
163 FOR select =]
164 { TT_EGREP, z[=(. Hack)=]Select[=(for-index)=], (regex_t*)NULL },[=
165 ENDFOR select =] };[=
166 ENDIF =]
167
168 /*
169 * Fix Command Arguments for [=(. Hack)=]
170 */
171 static const char* apz[=(. Hack)=]Patch[] = {[=
172 IF (exist? "sed")=] sed_cmd_z[=
173 FOR sed=],
174 "-e", [=(kr-string (get "sed"))=][=
175 ENDFOR sed=],[=
176
177 ELIF (exist? "shell")=] "sh", "-c",
178 [=(kr-string (get "shell"))=],[=
179
180 ELIF (exist? "c_fix")=]
181 [=(kr-string (get "c_fix"))=],[=
182
183 FOR c_fix_arg =]
184 [=(kr-string (get "c_fix_arg"))=],[=
185 ENDFOR c_fix_arg =][=
186
187 ELIF (> (len "replace") 0) =]
188 [=(kr-string (get "replace"))=],[=
189
190 ENDIF=]
191 (char*)NULL };
192 [=ENDFOR fix=]
193
194 /* * * * * * * * * * * * * * * * * * * * * * * * * *
195 *
196 * List of all fixes
197 */[=
198 # as of this writing, 49 bytes are needed by the case statement format.
199 We also must allow for the size of the target machine machine name.
200 This allows for a 79 byte machine name. Better be enough.
201 =]
202 #define REGEX_COUNT [= (. re-ct) =]
203 #define MACH_LIST_SIZE_LIMIT [= (+ 128 max-mach) =]
204 #define FIX_COUNT [= (count "fix") =]
205
206 /*
207 * Enumerate the fixes[= # in a way that minimizes diffs :-) =]
208 */
209 typedef enum {[=
210
211 FOR fix "," =]
212 [=(string-upcase! (get "hackname"))=]_FIXIDX[=
213 ENDFOR
214
215 =]
216 } t_fixinc_idx;
217
218 tFixDesc fixDescList[ FIX_COUNT ] = {[=
219
220
221 FOR fix ",\n" =][=
222 (set! Hack (string-capitalize! (get "hackname")))
223 (set! HACK (string-upcase! (get "hackname"))) =]
224 { z[=(. Hack)=]Name, z[=(. Hack)=]List,
225 apz[=(. Hack)=]Machs,
226 [=(. HACK)=]_TEST_CT, [=
227 IF (exist? "not_machine") =]FD_MACH_IFNOT[=
228 ELSE =]FD_MACH_ONLY[=
229 ENDIF =][=
230 IF (exist? "shell") =] | FD_SHELL_SCRIPT[=
231 ELIF (exist? "c_fix") =] | FD_SUBROUTINE[=
232 ELIF (exist? "replace") =] | FD_REPLACEMENT[=
233 ENDIF =],
234 a[=(. Hack)=]Tests, apz[=(. Hack)=]Patch, 0 }[=
235
236 ENDFOR =]
237 };