Mercurial > hg > CbC > CbC_gcc

comparison fixincludes/fixincl.tpl @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents a06113de4d67
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 [= AutoGen5 Template -*- Mode: C -*- 1 [= AutoGen5 Template -*- Mode: C -*-
2 x=fixincl.x =] 2 x=fixincl.x =]
3 [= (dne " * " "/* ")=] 3 [=
4 (if (version-compare >= autogen-version "5.18.1")
5 (dne "-D" " * " "/* ")
6 (dne " * " "/* ") ) =]
4 */ 7 */
5 /* DO NOT SVN-MERGE THIS FILE, EITHER [= 8 /* DO NOT SVN-MERGE THIS FILE, EITHER [=
6 (define re-ct 0) (define max-mach 0) (define ct 0) 9 (define re-ct 0) (define max-mach 0) (define ct 0)
7 (define HACK "") (define Hack "") (define tmp "") 10 (define HACK "") (define Hack "") (define tmp "")
8 (shell "date") =] 11 (shell "date") =]
61 64
62 /* 65 /*
63 * File name selection pattern 66 * File name selection pattern
64 */[= 67 */[=
65 68
66 IF (exist? "files")=] 69 IF (exist? "files") =]
67 tSCC z[=(. Hack)=]List[] = 70 tSCC z[=(. Hack)=]List[] =
68 "[= (join "\\0" (stack "files")) =]\0";[= 71 "[= (join "\\0" (stack "files")) =]\0";[=
69 72
70 ELSE =] 73 ELSE =]
71 #define z[=(. Hack)=]List (char*)NULL[= 74 #define z[=(. Hack)=]List (char*)NULL[=
72 ENDIF (exist? "files") =] 75 ENDIF (exist? "files") =]
73 /* 76 /*
74 * Machine/OS name selection pattern 77 * Machine/OS name selection pattern
75 */[= 78 */[=
76 79
77 IF (exist? "mach")=] 80 IF (exist? "mach") =]
78 tSCC* apz[=(. Hack)=]Machs[] = {[= 81 tSCC* apz[=(. Hack)=]Machs[] = {[=
79 (set! ct 0) =][= 82 (set! ct 0) =][=
80 83
81 FOR mach =] 84 FOR mach =]
82 [= 85 [=
83 (set! tmp (get "mach")) 86 (set! tmp (get "mach"))
84 (set! ct (+ ct (string-length tmp) 5)) 87 (set! ct (+ ct (string-length tmp) 5))
85 (kr-string tmp)=],[= 88 (kr-string tmp)=],[=
86 ENDFOR=] 89 ENDFOR =]
87 (const char*)NULL };[= 90 (const char*)NULL };[=
88 91
89 (if (> ct max-mach) (set! max-mach ct)) =][= 92 (if (> ct max-mach) (set! max-mach ct)) =][=
90 93
91 ELSE =] 94 ELSE =]
92 #define apz[=(. Hack)=]Machs (const char**)NULL[= 95 #define apz[=(. Hack)=]Machs (const char**)NULL[=
93 ENDIF (exist? "mach") =][= 96 ENDIF (exist? "mach") =][=
94 97
95 IF (exist? "select")=] 98 IF (exist? "select")=]
96 99
97 /* 100 /*
98 * content selection pattern - do fix if pattern found 101 * content selection pattern - do fix if pattern found
99 */[= 102 */[=
100 FOR select =] 103 FOR select =]
101 tSCC z[=(. Hack)=]Select[=(for-index)=][] = 104 tSCC z[=(. Hack)=]Select[=(for-index)=][] =
102 [=(kr-string (get "select"))=];[= 105 [=(kr-string (get "select"))=];[=
103 ENDFOR select =][= 106 ENDFOR select =][=
104 ENDIF =][= 107 ENDIF =][=
105 108
106 IF (exist? "bypass")=] 109 IF (exist? "bypass") =]
107 110
108 /* 111 /*
109 * content bypass pattern - skip fix if pattern found 112 * content bypass pattern - skip fix if pattern found
110 */[= 113 */[=
111 FOR bypass =] 114 FOR bypass =]
112 tSCC z[=(. Hack)=]Bypass[=(for-index)=][] = 115 tSCC z[=(. Hack)=]Bypass[=(for-index)=][] =
113 [=(kr-string (get "bypass"))=];[= 116 [=(kr-string (get "bypass"))=];[=
114 ENDFOR bypass =][= 117 ENDFOR bypass =][=
115 ENDIF =][= 118 ENDIF =][=
116 119
117 IF (exist? "test")=] 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") =]
118 135
119 /* 136 /*
120 * perform the 'test' shell command - do fix on success 137 * perform the 'test' shell command - do fix on success
121 */[= 138 */[=
122 FOR test =] 139 FOR test =]
123 tSCC z[=(. Hack)=]Test[=(for-index)=][] = 140 tSCC z[=(. Hack)=]Test[=(for-index)=][] =
124 [=(kr-string (get "test"))=];[= 141 [=(kr-string (get "test"))=];[=
125 ENDFOR =][= 142 ENDFOR =][=
126 ENDIF =][= 143 ENDIF =][=
127 144
128 IF (exist? "c_test")=] 145 IF (exist? "c_test") =]
129 146
130 /* 147 /*
131 * perform the C function call test 148 * perform the C function call test
132 */[= 149 */[=
133 FOR c_test =] 150 FOR c_test =]
134 tSCC z[=(. Hack)=]FTst[=(for-index)=][] = "[=c_test=]";[= 151 tSCC z[=(. Hack)=]FTst[=(for-index)=][] = "[=c_test=]";[=
135 ENDFOR c_test =][= 152 ENDFOR c_test =][=
136 ENDIF =][= 153 ENDIF =][=
137 154
138 IF (set! ct (+ (count "select") (count "bypass") 155 IF (set! ct (+ (count "select") (count "bypass")
139 (count "test") (count "c_test"))) 156 (count "test") (count "c_test")))
140 157
141 (= ct 0) 158 (= ct 0)
143 #define [=(. HACK)=]_TEST_CT 0 160 #define [=(. HACK)=]_TEST_CT 0
144 #define a[=(. Hack)=]Tests (tTestDesc*)NULL[= 161 #define a[=(. Hack)=]Tests (tTestDesc*)NULL[=
145 ELSE =] 162 ELSE =]
146 163
147 #define [=(. HACK)=]_TEST_CT [=(. ct)=][= 164 #define [=(. HACK)=]_TEST_CT [=(. ct)=][=
148 (set! re-ct (+ re-ct (count "select") (count "bypass"))) =] 165 (set! re-ct (+ re-ct (count "select") (count "bypass"))) =]
149 static tTestDesc a[=(. Hack)=]Tests[] = {[= 166 static tTestDesc a[=(. Hack)=]Tests[] = {[=
150 167
151 FOR test =] 168 FOR test =]
152 { TT_TEST, z[=(. Hack)=]Test[=(for-index)=], 0 /* unused */ },[= 169 { TT_TEST, z[=(. Hack)=]Test[=(for-index)=], 0 /* unused */ },[=
153 ENDFOR test =][= 170 ENDFOR test =][=
154 171
155 FOR c_test =] 172 FOR c_test =]
156 { TT_FUNCTION, z[=(. Hack)=]FTst[=(for-index)=], 0 /* unused */ },[= 173 { TT_FUNCTION, z[=(. Hack)=]FTst[=(for-index)=], 0 /* unused */ },[=
157 ENDFOR c_test =][= 174 ENDFOR c_test =][=
158 175
159 FOR bypass =] 176 FOR bypass =]
160 { TT_NEGREP, z[=(. Hack)=]Bypass[=(for-index)=], (regex_t*)NULL },[= 177 { TT_NEGREP, z[=(. Hack)=]Bypass[=(for-index)=], (regex_t*)NULL },[=
161 ENDFOR bypass =][= 178 ENDFOR bypass =][=
162 179
163 FOR select =] 180 FOR select =]
164 { TT_EGREP, z[=(. Hack)=]Select[=(for-index)=], (regex_t*)NULL },[= 181 { TT_EGREP, z[=(. Hack)=]Select[=(for-index)=], (regex_t*)NULL },[=
165 ENDFOR select =] };[= 182 ENDFOR select =][=
183
184 FOR sum =]
185 { TT_CKSUM, z[=(. Hack)=]Sum[=(for-index)=], 0 /* unused */ },[=
186 ENDFOR sum =] };[=
166 ENDIF =] 187 ENDIF =]
167 188
168 /* 189 /*
169 * Fix Command Arguments for [=(. Hack)=] 190 * Fix Command Arguments for [=(. Hack)=]
170 */ 191 */