| [= AutoGen5 Template -*- Mode: C -*- |
| x=fixincl.x =] |
| [= (dne " * " "/* ")=] |
| */ |
| /* DO NOT SVN-MERGE THIS FILE, EITHER [=`date`=] |
| * |
| * You must regenerate it. Use the ./genfixes script. |
| * |
| * |
| * This is part of the fixincl program used to install modified versions of |
| * certain ANSI-incompatible system header files which are fixed to work |
| * correctly with ANSI C and placed in a directory that GNU C will search. |
| * |
| * This file contains [=(count "fix")=] fixup descriptions. |
| * |
| * See README for more information. |
| * |
| * inclhack copyright (c) 1998, 1999, 2000, 2001 |
| * The Free Software Foundation, Inc. |
| * |
| [=(define re-ct 0) (define max-mach 0) (define ct 0) |
| (define HACK "") (define Hack "") (define tmp "") |
| (gpl "inclhack" " * ")=] |
| */ |
| [= |
| |
| FOR fix =] |
| /* * * * * * * * * * * * * * * * * * * * * * * * * * |
| * |
| * Description of [= |
| (set! Hack (string-capitalize! (get "hackname"))) |
| (set! HACK (string-upcase! (get "hackname"))) |
| (if (and (not (exist? "test_text")) (not (exist? "replace"))) |
| (error (sprintf "include fix '%s' has no test text" Hack )) ) |
| (. Hack)=] fix |
| */[= |
| |
| # Note that this is not just for debugging purposes, but in case |
| some C fix wishes to refer to the regexps it is paired with. |
| See commentary at the top of fixfixes.c. |
| =] |
| tSCC z[=(. Hack)=]Name[] = |
| "[=hackname=]"; |
| |
| /* |
| * File name selection pattern |
| */[= |
| |
| IF (exist? "files")=] |
| tSCC z[=(. Hack)=]List[] = |
| "[= (join "\\0" (stack "files")) =]\0";[= |
| |
| ELSE =] |
| #define z[=(. Hack)=]List (char*)NULL[= |
| ENDIF (exist? "files") =] |
| /* |
| * Machine/OS name selection pattern |
| */[= |
| |
| IF (exist? "mach")=] |
| tSCC* apz[=(. Hack)=]Machs[] = {[= |
| (set! ct 0) =][= |
| |
| FOR mach =] |
| [= |
| (set! tmp (get "mach")) |
| (set! ct (+ ct (string-length tmp) 5)) |
| (kr-string tmp)=],[= |
| ENDFOR=] |
| (const char*)NULL };[= |
| |
| (if (> ct max-mach) (set! max-mach ct)) =][= |
| |
| ELSE =] |
| #define apz[=(. Hack)=]Machs (const char**)NULL[= |
| ENDIF (exist? "mach") =][= |
| |
| IF (exist? "select")=] |
| |
| /* |
| * content selection pattern - do fix if pattern found |
| */[= |
| FOR select =] |
| tSCC z[=(. Hack)=]Select[=(for-index)=][] = |
| [=(kr-string (get "select"))=];[= |
| ENDFOR select =][= |
| ENDIF =][= |
| |
| IF (exist? "bypass")=] |
| |
| /* |
| * content bypass pattern - skip fix if pattern found |
| */[= |
| FOR bypass =] |
| tSCC z[=(. Hack)=]Bypass[=(for-index)=][] = |
| [=(kr-string (get "bypass"))=];[= |
| ENDFOR bypass =][= |
| ENDIF =][= |
| |
| IF (exist? "test")=] |
| |
| /* |
| * perform the 'test' shell command - do fix on success |
| */[= |
| FOR test =] |
| tSCC z[=(. Hack)=]Test[=(for-index)=][] = |
| [=(kr-string (get "test"))=];[= |
| ENDFOR =][= |
| ENDIF =][= |
| |
| IF (exist? "c_test")=] |
| |
| /* |
| * perform the C function call test |
| */[= |
| FOR c_test =] |
| tSCC z[=(. Hack)=]FTst[=(for-index)=][] = "[=c_test=]";[= |
| ENDFOR c_test =][= |
| ENDIF =][= |
| |
| IF (set! ct (+ (count "select") (count "bypass") |
| (count "test") (count "c_test"))) |
| |
| (= ct 0) |
| =] |
| #define [=(. HACK)=]_TEST_CT 0 |
| #define a[=(. Hack)=]Tests (tTestDesc*)NULL[= |
| ELSE =] |
| |
| #define [=(. HACK)=]_TEST_CT [=(. ct)=][= |
| (set! re-ct (+ re-ct (count "select") (count "bypass"))) =] |
| static tTestDesc a[=(. Hack)=]Tests[] = {[= |
| |
| FOR test =] |
| { TT_TEST, z[=(. Hack)=]Test[=(for-index)=], 0 /* unused */ },[= |
| ENDFOR test =][= |
| |
| FOR c_test =] |
| { TT_FUNCTION, z[=(. Hack)=]FTst[=(for-index)=], 0 /* unused */ },[= |
| ENDFOR c_test =][= |
| |
| FOR bypass =] |
| { TT_NEGREP, z[=(. Hack)=]Bypass[=(for-index)=], (regex_t*)NULL },[= |
| ENDFOR bypass =][= |
| |
| FOR select =] |
| { TT_EGREP, z[=(. Hack)=]Select[=(for-index)=], (regex_t*)NULL },[= |
| ENDFOR select =] };[= |
| ENDIF =] |
| |
| /* |
| * Fix Command Arguments for [=(. Hack)=] |
| */ |
| static const char* apz[=(. Hack)=]Patch[] = {[= |
| IF (exist? "sed")=] "sed"[= |
| FOR sed=], |
| "-e", [=(kr-string (get "sed"))=][= |
| ENDFOR sed=],[= |
| |
| ELIF (exist? "shell")=] "sh", "-c", |
| [=(kr-string (get "shell"))=],[= |
| |
| ELIF (exist? "c_fix")=] |
| [=(kr-string (get "c_fix"))=],[= |
| |
| FOR c_fix_arg =] |
| [=(kr-string (get "c_fix_arg"))=],[= |
| ENDFOR c_fix_arg =][= |
| |
| ELIF (> (len "replace") 0) =] |
| [=(kr-string (get "replace"))=],[= |
| |
| ENDIF=] |
| (char*)NULL }; |
| [=ENDFOR fix=] |
| |
| /* * * * * * * * * * * * * * * * * * * * * * * * * * |
| * |
| * List of all fixes |
| */[= |
| # as of this writing, 49 bytes are needed by the case statement format. |
| We also must allow for the size of the target machine machine name. |
| This allows for a 79 byte machine name. Better be enough. |
| =] |
| #define REGEX_COUNT [= (. re-ct) =] |
| #define MACH_LIST_SIZE_LIMIT [= (+ 128 max-mach) =] |
| #define FIX_COUNT [= (count "fix") =] |
| |
| /* |
| * Enumerate the fixes[= # in a way that minimizes diffs :-) =] |
| */ |
| typedef enum {[= |
| |
| FOR fix "," =] |
| [=(string-upcase! (get "hackname"))=]_FIXIDX[= |
| ENDFOR |
| |
| =] |
| } t_fixinc_idx; |
| |
| tFixDesc fixDescList[ FIX_COUNT ] = {[= |
| |
| |
| FOR fix ",\n" =][= |
| (set! Hack (string-capitalize! (get "hackname"))) |
| (set! HACK (string-upcase! (get "hackname"))) =] |
| { z[=(. Hack)=]Name, z[=(. Hack)=]List, |
| apz[=(. Hack)=]Machs, |
| [=(. HACK)=]_TEST_CT, [= |
| IF (exist? "not_machine") =]FD_MACH_IFNOT[= |
| ELSE =]FD_MACH_ONLY[= |
| ENDIF =][= |
| IF (exist? "shell") =] | FD_SHELL_SCRIPT[= |
| ELIF (exist? "c_fix") =] | FD_SUBROUTINE[= |
| ELIF (exist? "replace") =] | FD_REPLACEMENT[= |
| ENDIF =], |
| a[=(. Hack)=]Tests, apz[=(. Hack)=]Patch, 0 }[= |
| |
| ENDFOR =] |
| }; |