-[= autogen template -*- Mode: C -*-
-x =]
+[= AutoGen5 Template -*- Mode: C -*-
+x=fixincl.x =]
/*
-[= _eval "# * " _DNE =]
+ * DO NOT EDIT THIS FILE - it has been generated
*
* 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 script contains [=_eval fix _hilim 1 +=] fixup scripts.
+ * This file contains [=(count "fix")=] fixup descriptions.
*
- * See README-fixinc for more information.
+ * See README for more information.
*
-[=_eval inclhack "# * " _gpl=]
- *[=
-
-
-_FOR fix =]
+ * inclhack copyright (c) 1998, 1999, 2000, 2001
+ * The Free Software Foundation, Inc.
*
- * Description [=_eval _index 1 + "#%3d -" _printf=] [=hackname _Cap=] fix
+ [=(define re-ct 0) (define max-mach 0) (define ct 0)
+ (define HACK "") (define Hack "") (define tmp "")
+ (gpl "inclhack" " * ")=]
*/
-tSCC z[=hackname _cap=]Name[] =
- [=hackname _cap _str=];
+[=
+
+FOR fix =]
+/* * * * * * * * * * * * * * * * * * * * * * * * * *
+ *
+ * Description of [=
+ (set! Hack (string-capitalize! (get "hackname")))
+ (set! HACK (string-upcase! (get "hackname")))
+ (. 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.
+=]
+#define [=(sprintf "%-32s" (string-append HACK "_FIXIDX"))=] [=(for-index)=]
+tSCC z[=(. Hack)=]Name[] =
+ "[=hackname=]";
+
/*
* File name selection pattern
*/[=
- _IF files _exist=]
-tSCC z[=hackname _cap=]List[] =[=
- _FOR files=]
- "|" [=files _str=][=
- /files=] "|";[=
+ IF (exist? "files")=]
+tSCC z[=(. Hack)=]List[] =
+ "[=FOR files =]|[=files=][=ENDFOR=]|";[=
- _ELSE =]
-#define z[=hackname _cap=]List (char*)NULL[=
- _ENDIF "files _exist" =]
+ ELSE =]
+#define z[=(. Hack)=]List (char*)NULL[=
+ ENDIF (exist? "files") =]
/*
* Machine/OS name selection pattern
*/[=
- _IF mach _exist=]
-tSCC* apz[=hackname _cap=]Machs[] = {[=
- _FOR mach =]
- [=mach _str=],[=
- /mach=]
+ 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 };[=
- _ELSE =]
-#define apz[=hackname _cap=]Machs (const char**)NULL[=
- _ENDIF "files _exist" =][=
+ (if (> ct max-mach) (set! max-mach ct)) =][=
- _IF exesel _exist=]
+ ELSE =]
+#define apz[=(. Hack)=]Machs (const char**)NULL[=
+ ENDIF (exist? "files") =][=
+
+ IF (exist? "select")=]
/*
- * content selection pattern
+ * content selection pattern - do fix if pattern found
*/[=
- _FOR exesel =]
-tSCC z[=hackname _cap=]Select[=_eval _index=][] =
- [=exesel _str=];[=
- /exesel =][=
+ FOR select =]
+tSCC z[=(. Hack)=]Select[=(for-index)=][] =
+ [=(kr-string (get "select"))=];[=
+ ENDFOR select =][=
+ ENDIF =][=
- _ELIF select _exist=]
+ IF (exist? "bypass")=]
/*
- * content selection pattern
+ * content bypass pattern - skip fix if pattern found
*/[=
- _FOR select =]
-tSCC z[=hackname _cap=]Select[=_eval _index=][] =
- [=select _str=];[=
- /select =][=
- _ENDIF =][=
+ FOR bypass =]
+tSCC z[=(. Hack)=]Bypass[=(for-index)=][] =
+ [=(kr-string (get "bypass"))=];[=
+ ENDFOR bypass =][=
+ ENDIF =][=
- _IF bypass _exist=]
+ IF (exist? "test")=]
/*
- * content bypass pattern
+ * perform the 'test' shell command - do fix on success
*/[=
- _FOR bypass =]
-tSCC z[=hackname _cap=]Bypass[=_eval _index=][] =
- [=bypass _str=];[=
- /bypass =][=
- _ENDIF =][=
+ FOR test =]
+tSCC z[=(. Hack)=]Test[=(for-index)=][] =
+ [=(kr-string (get "test"))=];[=
+ ENDFOR =][=
+ ENDIF =][=
- _IF test _exist=]
+ IF (exist? "c_test")=]
/*
- * content test pattern. A shell will deal with it later.
+ * perform the C function call test
*/[=
- _FOR test =]
-tSCC z[=hackname _cap=]Test[=_eval _index=][] =
- [=test _str=];[=
- /test =][=
- _ENDIF =][=
+ 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")))
- _IF exesel _exist select _exist bypass _exist test _exist | | |
+ (= 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[] = {[=
-#define [=hackname _up =]_TEST_CT [=
- _IF exesel _exist =][=
- _eval test _count bypass _count exesel _count + + =][=
- _ELSE =][=
- _eval test _count bypass _count select _count + + =][=
- _ENDIF =]
-tTestDesc a[=hackname _cap=]Tests[] = {[=
-
- _IF test _exist =][=
- _FOR test=]
- { TT_TEST, z[=hackname _cap=]Test[=_eval _index=], 0 /* unused */ },[=
- /test =][=
- _ENDIF =][=
-
- _IF bypass _exist =][=
- _FOR bypass=]
- { TT_NEGREP, z[=hackname _cap=]Bypass[=_eval _index=], (regex_t*)NULL },[=
- /bypass =][=
- _ENDIF =][=
-
- _IF exesel _exist =][=
- _FOR exesel ,=]
- { TT_EGREP, z[=hackname _cap=]Select[=_eval _index=], (regex_t*)NULL }[=
- /exesel =][=
-
- _ELIF select _exist =][=
- _FOR select ,=]
- { TT_EGREP, z[=hackname _cap=]Select[=_eval _index=], (regex_t*)NULL }[=
- /select =][=
- _ENDIF =] };[=
- _ELSE =]
-#define [=hackname _up=]_TEST_CT 0
-#define a[=hackname _cap=]Tests (tTestDesc*)NULL[=
- _ENDIF =]
+ 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 [=hackname _cap=]
+ * Fix Command Arguments for [=(. Hack)=]
*/
-const char* apz[=hackname _cap=]Patch[] = {[=
- _IF sed _exist =] "sed"[=_FOR sed=],
- "-e" [=sed _str=][=/sed=][=
- _ELIF replacement _exist =] "sed",
- "s@[=select[]=]@[=replacement=]@"[=
- _ELIF shell _exist =] "sh", "-c",
- [=shell _str=][=
- _ELSE =][=_ERROR hackname _get "Error: %s has two fixup specifications"
- _printf =][=
- _ENDIF=],
+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=]
-/* * * * * * * * * * * * * * * * * * * * * * * * * *[=
-/fix=]
+/* * * * * * * * * * * * * * * * * * * * * * * * * *
*
* List of all fixes
- */
-#define REGEX_COUNT [=_eval fix.select _count
- fix.bypass _count + =]
-#define FIX_COUNT [=_eval fix _count =]
-tFixDesc fixDescList[ [=_eval fix _count =] ] = {[=
-
-
-_FOR fix ",\n" =]
- { z[=hackname _cap=]Name, z[=hackname _cap=]List,
- apz[=hackname _cap=]Machs, (regex_t*)NULL,
- [=hackname _up=]_TEST_CT, [=
- _IF not_machine _exist =]FD_MACH_IFNOT[=
- _ELSE =]FD_MACH_ONLY[=
- _ENDIF =],
- a[=hackname _cap=]Tests, apz[=hackname _cap=]Patch }[=
-
-/fix=]
+ */[=
+# 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") =]
+
+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 =]
};
OSDN Git Service
