diff options
Diffstat (limited to 'gcc-4.2.1-5666.3/fixincludes/fixincl.tpl')
-rw-r--r-- | gcc-4.2.1-5666.3/fixincludes/fixincl.tpl | 220 |
1 files changed, 0 insertions, 220 deletions
diff --git a/gcc-4.2.1-5666.3/fixincludes/fixincl.tpl b/gcc-4.2.1-5666.3/fixincludes/fixincl.tpl deleted file mode 100644 index 420b11d87..000000000 --- a/gcc-4.2.1-5666.3/fixincludes/fixincl.tpl +++ /dev/null @@ -1,220 +0,0 @@ -[= AutoGen5 Template -*- Mode: C -*- -x=fixincl.x =] -[= (dne " * " "/* ")=] - */ -/* DO NOT CVS-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[] = - "[=FOR files =]|[=files=][=ENDFOR=]|";[= - - 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? "files") =][= - - 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 =] -}; |