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