]>
Commit | Line | Data |
---|---|---|
0731341f | 1 | #!/usr/bin/gawk -f |
c77ca889 | 2 | # |
4008d7de | 3 | # This is adapter v0.29. Adapter adapts .spec files for PLD Linux. |
eedfe25e | 4 | # $Id$ |
c77ca889 | 5 | # |
0731341f | 6 | # Copyright (C) 1999-2007 PLD-Team <feedback@pld-linux.org> |
c77ca889 | 7 | # Authors: |
0731341f | 8 | # Michał Kuratczyk <kura@pld.org.pl> |
c77ca889 | 9 | # Sebastian Zagrodzki <s.zagrodzki@mimuw.edu.pl> |
0731341f | 10 | # Tomasz Kłoczko <kloczek@rudy.mif.pg.gda.pl> |
eedfe25e | 11 | # Artur Frysiak <wiget@pld-linux.org> |
c77ca889 | 12 | # Michal Kochanowicz <mkochano@pld.org.pl> |
0731341f ER |
13 | # Jakub Bogusz <qboosh@pld-linux.org> |
14 | # Elan Ruusamäe <glen@pld-linux.org> | |
eedfe25e ER |
15 | # |
16 | # See cvs log adapter{,.awk} for list of contributors | |
17 | # | |
c77ca889 | 18 | # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # |
19 | ||
eedfe25e ER |
20 | # TODO |
21 | # - parse ../PLD-doc/BuildRequires.txt and setup proper BR epoches? | |
22 | # - add "-nc" option to skip CVS interaction | |
23 | # - sort Summary(XX) | |
24 | # - sort Requires, BuildRequires | |
25 | # - check if %description (lang=C) contains 8bit | |
26 | # - desc wrapping is totally fucked up on global.spec,1.25, dosemu.spec,1.115- | |
27 | ||
c77ca889 | 28 | BEGIN { |
eedfe25e ER |
29 | RPM_SECTIONS = "package|build|changelog|clean|description|install|post|posttrans|postun|pre|prep|pretrans|preun|triggerin|triggerpostun|triggerun|verifyscript|check" |
30 | SECTIONS = "^%(" RPM_SECTIONS ")" | |
31 | ||
0731341f | 32 | PREAMBLE_TAGS = "(R|BR|Summary|Name|Version|Release|Epoch|License|Group|URL|BuildArch|BuildRoot|Obsoletes|Conflicts|Provides|ExclusiveArch|ExcludeArch|Pre[Rr]eq|(Build)?Requires|Suggests)" |
eedfe25e | 33 | |
4008d7de ER |
34 | usedigest = 0 # Enable to switch to rpm 4.4.6+ md5 digests |
35 | ||
eedfe25e ER |
36 | preamble = 1 # Is it part of preamble? Default - yes |
37 | boc = 4 # Beginning of %changelog | |
38 | bod = 0 # Beginning of %description | |
39 | tw = 70 # Descriptions width | |
40 | ||
41 | b_idx = 0 # index of BR/R arrays | |
0731341f | 42 | BR_count = 0 # number of additional BuildRequires |
eedfe25e | 43 | |
c77ca889 | 44 | # If variable removed, then 1 (for removing it from export) |
45 | removed["LDFLAGS"] = 0 | |
46 | removed["CFLAGS"] = 0 | |
47 | removed["CXXFLAGS"] = 0 | |
48 | ||
eedfe25e ER |
49 | # get cvsaddress for changelog section |
50 | # using rpm macros as too lazy to add ~/.adapterrc parsing support. | |
51 | "rpm --eval '%{?_cvsmaildomain}%{!?_cvsmaildomain:@pld-linux.org}'" | getline _cvsmaildomain | |
52 | "rpm --eval '%{?_cvsmailfeedback}%{!?_cvsmailfeedback:PLD Team <feedback@pld-linux.org>}'" | getline _cvsmailfeedback | |
53 | ||
c77ca889 | 54 | # If 1, we are inside of comment block (started with /^#%/) |
55 | comment_block = 0 | |
eedfe25e | 56 | |
c77ca889 | 57 | # File with rpm groups |
58 | "rpm --eval %_sourcedir" | getline groups_file | |
59 | groups_file = groups_file "/rpm.groups" | |
eedfe25e ER |
60 | system("cd `rpm --eval %_sourcedir`; [ -f rpm.groups ] || cvs up rpm.groups >/dev/null") |
61 | system("[ -d ../PLD-doc ] && cd ../PLD-doc && ([ -f BuildRequires.txt ] || cvs up BuildRequires.txt >/dev/null)"); | |
c77ca889 | 62 | |
63 | # Temporary file for changelog section | |
64 | changelog_file = ENVIRON["HOME"] "/tmp/adapter.changelog" | |
65 | ||
66 | # Load rpm macros | |
67 | "rpm --eval %_prefix" | getline prefix | |
68 | "rpm --eval %_bindir" | getline bindir | |
69 | "rpm --eval %_sbindir" | getline sbindir | |
70 | "rpm --eval %_libdir" | getline libdir | |
71 | "rpm --eval %_sysconfdir" | getline sysconfdir | |
72 | "rpm --eval %_datadir" | getline datadir | |
73 | "rpm --eval %_includedir" | getline includedir | |
74 | "rpm --eval %_mandir" | getline mandir | |
75 | "rpm --eval %_infodir" | getline infodir | |
eedfe25e ER |
76 | "rpm --eval %_examplesdir" | getline examplesdir |
77 | "rpm --eval %_defaultdocdir" | getline docdir | |
0731341f | 78 | "rpm --eval %_kdedocdir" | getline kdedocdir |
eedfe25e ER |
79 | "rpm --eval %_desktopdir" | getline desktopdir |
80 | "rpm --eval %_pixmapsdir" | getline pixmapsdir | |
81 | ||
82 | "rpm --eval %perl_sitearch" | getline perl_sitearch | |
83 | "rpm --eval %perl_archlib" | getline perl_archlib | |
84 | "rpm --eval %perl_privlib" | getline perl_privlib | |
85 | "rpm --eval %perl_vendorlib" | getline perl_vendorlib | |
86 | "rpm --eval %perl_vendorarch" | getline perl_vendorarch | |
87 | "rpm --eval %perl_sitelib" | getline perl_sitelib | |
88 | ||
89 | "rpm --eval %py_sitescriptdir 2>/dev/null" | getline py_sitescriptdir | |
90 | "rpm --eval %py_sitedir 2>/dev/null" | getline py_sitedir | |
91 | "rpm --eval %py_scriptdir 2>/dev/null" | getline py_scriptdir | |
92 | ||
93 | "rpm --eval %ruby_archdir" | getline ruby_archdir | |
94 | "rpm --eval %ruby_ridir" | getline ruby_ridir | |
95 | "rpm --eval %ruby_rubylibdir" | getline ruby_rubylibdir | |
96 | "rpm --eval %ruby_sitearchdir" | getline ruby_sitearchdir | |
97 | "rpm --eval %ruby_sitelibdir" | getline ruby_sitelibdir | |
98 | ||
99 | "rpm --eval %php_pear_dir" | getline php_pear_dir | |
100 | "rpm --eval %tmpdir" | getline tmpdir | |
c77ca889 | 101 | } |
102 | ||
103 | # There should be a comment with CVS keywords on the first line of file. | |
104 | FNR == 1 { | |
105 | if (!/# \$Revision:/) # If this line is already OK? | |
106 | print "# $" "Revision:$, " "$" "Date:$" # No | |
107 | else { | |
108 | print $0 # Yes | |
109 | next # It is enough for first line | |
110 | } | |
111 | } | |
112 | ||
113 | # If the latest line matched /%files/ | |
114 | defattr == 1 { | |
eedfe25e ER |
115 | if (ENVIRON["SKIP_DEFATTR"] != 1) { |
116 | if ($0 !~ /defattr/) { # If no %defattr | |
117 | print "%defattr(644,root,root,755)" # Add it | |
118 | } else { | |
119 | $0 = "%defattr(644,root,root,755)" # Correct mistakes (if any) | |
120 | } | |
121 | } | |
c77ca889 | 122 | defattr = 0 |
123 | } | |
124 | ||
eedfe25e ER |
125 | function b_makekey(a, b, s) { |
126 | s = a "" b; | |
127 | # kill bcond | |
0731341f | 128 | gsub(/[#%]+{[!?]+[_a-zA-Z0-9]+:/, "", s); |
eedfe25e ER |
129 | |
130 | # kill commented out items | |
0731341f | 131 | gsub(/^#[ \t]*/, "", s); |
eedfe25e ER |
132 | |
133 | # force order | |
0731341f ER |
134 | gsub(/^Summary\(/, "11Summary(", s); |
135 | gsub(/^Summary/, "10Summary", s); | |
136 | gsub(/^Name/, "2Name", s); | |
137 | gsub(/^Version/, "3Version", s); | |
138 | gsub(/^Release/, "4Release", s); | |
139 | gsub(/^Epoch/, "5Epoch", s); | |
140 | gsub(/^License/, "5License", s); | |
141 | gsub(/^Group/, "6Group", s); | |
142 | gsub(/^URL/, "7URL", s); | |
143 | ||
144 | gsub(/^BuildRequires/, "B1BuildRequires", s); | |
145 | gsub(/^BuildConflicts/, "B2BuildConflicts", s); | |
146 | ||
147 | gsub(/^Suggests/, "X1Suggests", s); | |
148 | gsub(/^Provides/, "X2Provides", s); | |
149 | gsub(/^Obsoletes/, "X3Obsoletes", s); | |
150 | gsub(/^Conflicts/, "X4Conflicts", s); | |
151 | gsub(/^BuildArch/, "X5BuildArch", s); | |
152 | gsub(/^ExclusiveArch/, "X6ExclusiveArch", s); | |
153 | gsub(/^ExcludeArch/, "X7ExcludeArch", s); | |
154 | gsub(/^BuildRoot/, "X9BuildRoot", s); | |
eedfe25e ER |
155 | |
156 | # printf("%s -> %s\n", a""b, s); | |
157 | return s; | |
158 | } | |
159 | ||
c77ca889 | 160 | # Comments |
161 | /^#/ && (description == 0) { | |
162 | if (/This file does not like to be adapterized!/) { | |
163 | print # print this message | |
164 | while (getline) # print the rest of spec as it is | |
165 | ||
166 | do_not_touch_anything = 1 # do not touch anything in END() | |
167 | exit 0 | |
168 | } | |
169 | ||
170 | # Generally, comments are printed without touching | |
171 | sub(/[ \t]+$/, "") | |
eedfe25e | 172 | |
4008d7de ER |
173 | if (/#[ \t]*Source.*md5/) { |
174 | if (usedigest == 1) { | |
175 | sub(/^#[ \t]*Source/, "BuildRequires:\tdigest(%SOURCE", $0) | |
176 | sub(/-md5[ \t]*:[ \t]*/, ") = ", $0) | |
177 | } | |
eedfe25e ER |
178 | print $0 |
179 | next | |
180 | } | |
c77ca889 | 181 | } |
182 | ||
c77ca889 | 183 | /^%define/ { |
eedfe25e ER |
184 | # Remove defining _applnkdir (this macro has been included in rpm-3.0.4) |
185 | if ($2 == "_applnkdir") { | |
c77ca889 | 186 | next |
eedfe25e ER |
187 | } |
188 | if ($2 == "date") { | |
c77ca889 | 189 | date = 1 |
eedfe25e ER |
190 | if (did_files == 0) { |
191 | print "%files" | |
192 | print "" | |
193 | did_files = 1 | |
194 | } | |
195 | } | |
196 | ||
197 | # Do not add %define of _prefix if it already is. | |
198 | if ($2 ~ /^_prefix/) { | |
199 | sub("^"prefix, $3, bindir) | |
200 | sub("^"prefix, $3, sbindir) | |
201 | sub("^"prefix, $3, libdir) | |
202 | sub("^"prefix, $3, datadir) | |
203 | sub("^"prefix, $3, includedir) | |
204 | prefix = $3 | |
205 | } | |
206 | ||
207 | if ($2 ~ /_bindir/ && !/_sbindir/) | |
208 | bindir = $3 | |
209 | if ($2 ~ /_sbindir/) | |
210 | sbindir = $3 | |
211 | if ($2 ~ /_libdir/) { | |
212 | if ($3 ~ /^%\(/) { | |
213 | # TODO: should escape for latter checks like: ($c ~ sysconfdir "/{?cron.") | |
214 | libdir = "%%%%%%%%%%%%%%" | |
215 | } else { | |
216 | libdir = $3 | |
217 | } | |
218 | } | |
219 | if ($2 ~ /_sysconfdir/) { | |
220 | if ($3 ~ /^%\(/) { | |
221 | # TODO: should escape for latter checks like: ($c ~ sysconfdir "/{?cron.") | |
222 | sysconfdir = "%%%%%%%%%%%%%%" | |
223 | } else { | |
224 | sysconfdir = $3 | |
225 | } | |
226 | } | |
227 | if ($2 ~ /_datadir/) { | |
228 | if ($3 ~ /^%\(/) { | |
229 | # TODO: should escape for latter checks like: ($c ~ sysconfdir "/{?cron.") | |
230 | datadir = "%%%%%%%%%%%%%%" | |
231 | } else { | |
232 | datadir = $3 | |
233 | } | |
234 | } | |
235 | if ($2 ~ /_includedir/) | |
236 | includedir = $3 | |
237 | if ($2 ~ /_mandir/) | |
238 | mandir = $3 | |
239 | if ($2 ~ /_infodir/) | |
240 | infodir = $3 | |
241 | if ($2 ~ /_docdir/) | |
242 | docdir = $3 | |
243 | ||
244 | # version related macros | |
245 | if ($2 ~ /^_beta$/) | |
246 | _beta = $3 | |
247 | if ($2 ~ /^_rc$/) | |
248 | _rc = $3 | |
249 | if ($2 ~ /^_pre$/) | |
250 | _pre = $3 | |
251 | if ($2 ~ /^_snap$/) | |
252 | _snap = $3 | |
4008d7de ER |
253 | if ($2 ~ /^subver$/) |
254 | subver = $3 | |
eedfe25e ER |
255 | |
256 | # these are used usually when adapterizing external spec | |
257 | if ($2 ~ /^name$/) | |
258 | name = $3 | |
259 | if ($2 ~ /^version$/) | |
260 | version = $3 | |
261 | if ($2 ~ /^release$/) | |
262 | release = $3 | |
263 | ||
264 | if ($2 ~ /^mod_name$/) | |
265 | mod_name = $3 | |
266 | ||
267 | sub(/[ \t]+$/, ""); | |
268 | # do nothing further, otherwise adapter thinks we're at preamble | |
269 | ||
270 | next | |
271 | } | |
272 | ||
273 | # Obsolete | |
274 | /^%include.*\/usr\/lib\/rpm\/macros\.python$/ { | |
275 | next | |
c77ca889 | 276 | } |
277 | ||
278 | ################ | |
279 | # %description # | |
280 | ################ | |
eedfe25e | 281 | /^%description/, (!/^%description/ && $0 ~ SECTIONS) { |
c77ca889 | 282 | preamble = 0 |
283 | ||
284 | if (/^%description/) { | |
285 | bod++ | |
286 | format_line = "" | |
287 | format_indent = -1 | |
288 | } | |
289 | ||
c77ca889 | 290 | # Format description |
eedfe25e | 291 | if (ENVIRON["SKIP_DESC"] != 1 && description == 1 && !/^%[a-z]+/ && !/^%description/) { |
c77ca889 | 292 | if (/^[ \t]*$/) { |
293 | format_flush(format_line, format_indent) | |
294 | print "" | |
295 | format_line = "" | |
296 | format_indent = -1 | |
297 | } else if (/^[ \t]*[-\*][ \t]*/) { | |
298 | format_flush(format_line, format_indent) | |
eedfe25e | 299 | match($0, /^[ \t]*/) |
c77ca889 | 300 | format_indent = RLENGTH |
301 | match($0, /^[ \t]*[-\*][ \t]/) | |
302 | format_line = substr($0, RLENGTH) | |
eedfe25e | 303 | } else |
c77ca889 | 304 | format_line = format_line " " $0 |
305 | next | |
306 | } | |
eedfe25e | 307 | |
c77ca889 | 308 | if (/^%[a-z]+/ && (!/^%description/ || bod == 2)) { |
309 | if (NF > 3 && $2 == "-l") { | |
310 | ll = $1 | |
311 | for (i = 4; i <= NF; i++) | |
312 | ll = ll " " $i | |
313 | $0 = ll " -l " $3 | |
314 | } | |
315 | format_flush(format_line, format_indent) | |
316 | if (bod == 2) { | |
317 | bod = 1 | |
318 | description = 1 | |
319 | } else { | |
320 | bod = 0 | |
321 | description = 0 | |
322 | } | |
323 | } else | |
324 | description = 1 | |
325 | } | |
326 | ||
327 | ######### | |
328 | # %prep # | |
329 | ######### | |
eedfe25e | 330 | /^%prep/, (!/^%prep/ && $0 ~ SECTIONS) { |
c77ca889 | 331 | preamble = 0 |
eedfe25e ER |
332 | did_prep = 1 |
333 | ||
334 | use_macros() | |
335 | ||
c77ca889 | 336 | # Add '-q' to %setup |
eedfe25e | 337 | if (/^%setup/ && !/-q/) { |
c77ca889 | 338 | sub(/^%setup/, "%setup -q") |
eedfe25e ER |
339 | } |
340 | ||
341 | if (/^%setup/ && name != "setup") { | |
342 | $0 = fixedsub(name, "%{name}", $0); | |
343 | $0 = fixedsub(version, "%{version}", $0); | |
344 | if (_beta) { | |
345 | $0 = fixedsub(_beta, "%{_beta}", $0); | |
346 | } | |
347 | if (_rc) { | |
348 | $0 = fixedsub(_rc, "%{_rc}", $0); | |
349 | } | |
350 | if (_pre) { | |
351 | $0 = fixedsub(_pre, "%{_pre}", $0); | |
352 | } | |
353 | if (_snap) { | |
354 | $0 = fixedsub(_snap, "%{_snap}", $0); | |
355 | } | |
4008d7de ER |
356 | if (subver) { |
357 | $0 = fixedsub(subver, "%{subver}", $0); | |
358 | } | |
eedfe25e ER |
359 | } |
360 | ||
361 | if (/^%setup/ && /-n %{name}-%{version}( |$)/) { | |
362 | $0 = fixedsub(" -n %{name}-%{version}", "", $0) | |
363 | } | |
0731341f | 364 | sub("^%patch ", "%patch0 "); |
eedfe25e ER |
365 | |
366 | # invalid in %prep | |
367 | sub("^rm -rf \$RPM_BUILD_ROOT.*", ""); | |
c77ca889 | 368 | } |
369 | ||
370 | ########## | |
371 | # %build # | |
372 | ########## | |
eedfe25e | 373 | /^%build/, (!/^%build/ && $0 ~ SECTIONS) { |
c77ca889 | 374 | preamble = 0 |
375 | ||
eedfe25e ER |
376 | if (did_prep == 0) { |
377 | print "%prep" | |
378 | print "" | |
379 | did_prep = 1 | |
380 | } | |
381 | ||
c77ca889 | 382 | use_macros() |
eedfe25e ER |
383 | use_tabs() |
384 | ||
c77ca889 | 385 | if (/^automake$/) |
386 | sub(/$/, " -a -c") | |
387 | ||
388 | if (/LDFLAGS/) { | |
389 | if (/LDFLAGS="-s"/) { | |
390 | removed["LDFLAGS"] = 1 | |
391 | next | |
392 | } else { | |
393 | split($0, tmp, "LDFLAGS=") | |
394 | count = split(tmp[2], flags, "\"") | |
395 | if (flags[1] != "" && flags[1] !~ "!?debug") { | |
396 | sub(/-s[" ]?/, "%{rpmldflags} ", flags[1]) | |
397 | $0 = tmp[1] line[1] "LDFLAGS=" flags[1] "\"" | |
398 | for (i = 2; i < count; i++) | |
399 | $0 = $0 flags[i] "\"" | |
400 | } | |
401 | } | |
402 | } | |
403 | ||
404 | if (/CFLAGS=/) | |
405 | if (cflags("CFLAGS") == 0) | |
406 | next | |
407 | ||
408 | if (/CXXFLAGS=/) | |
409 | if (cflags("CXXFLAGS") == 0) | |
410 | next | |
eedfe25e | 411 | |
c77ca889 | 412 | if (/^export /) { |
413 | if (removed["LDFLAGS"]) | |
414 | sub(" LDFLAGS", "") | |
415 | if (removed["CFLAGS"]) | |
416 | sub(" CFLAGS", "") | |
417 | if (removed["CXXFLAGS"]) | |
418 | sub(" CXXFLAGS", "") | |
419 | # Is there still something? | |
420 | if (/^export[ ]*$/) | |
421 | next | |
422 | } | |
eedfe25e ER |
423 | |
424 | # quote CC | |
425 | if (/CC=%{__cc} /) { | |
426 | sub("CC=%{__cc}", "CC=\"%{__cc}\"") | |
427 | } | |
428 | ||
429 | # use PLD Linux macros | |
430 | $0 = fixedsub("glib-gettextize --copy --force","%{__glib_gettextize}", $0); | |
431 | $0 = fixedsub("intltoolize --copy --force", "%{__intltoolize}", $0); | |
432 | $0 = fixedsub("automake --add-missing --copy", "%{__automake}", $0); | |
433 | $0 = fixedsub("automake -a --foreign --copy", "%{__automake}", $0); | |
434 | $0 = fixedsub("automake -a -c --foreign", "%{__automake}", $0); | |
0731341f | 435 | $0 = fixedsub("automake -a -c", "%{__automake}", $0); |
eedfe25e ER |
436 | $0 = fixedsub("libtoolize --force --automake --copy", "%{__libtoolize}", $0); |
437 | $0 = fixedsub("libtoolize -c -f --automake", "%{__libtoolize}", $0); | |
438 | ||
439 | sub(/^aclocal$/, "%{__aclocal}"); | |
440 | sub(/^autoheader$/, "%{__autoheader}"); | |
441 | sub(/^autoconf$/, "%{__autoconf}"); | |
442 | sub(/^automake$/, "%{__automake}"); | |
0731341f | 443 | sub(/^libtoolize$/, "%{__libtoolize}"); |
eedfe25e ER |
444 | |
445 | # atrpms | |
446 | $0 = fixedsub("%perl_configure", "%{__perl} Makefile.PL \\\n\tINSTALLDIRS=vendor", $0); | |
447 | $0 = fixedsub("%perl_makecheck", "%{?with_tests:%{__make} test}", $0); | |
c77ca889 | 448 | } |
449 | ||
450 | ########## | |
451 | # %clean # | |
452 | ########## | |
eedfe25e | 453 | /^%clean/, (!/^%clean/ && $0 ~ SECTIONS) { |
c77ca889 | 454 | did_clean = 1 |
eedfe25e | 455 | |
0731341f | 456 | use_macros() |
c77ca889 | 457 | } |
458 | ||
459 | ############ | |
460 | # %install # | |
461 | ############ | |
eedfe25e ER |
462 | /^%install/, (!/^%install/ && $0 ~ SECTIONS) { |
463 | ||
c77ca889 | 464 | preamble = 0 |
eedfe25e ER |
465 | |
466 | # foreign rpms | |
467 | sub("^%{__rm} -rf %{buildroot}", "rm -rf $RPM_BUILD_ROOT") | |
0731341f ER |
468 | sub("%buildroot", "$RPM_BUILD_ROOT"); |
469 | sub("%{buildroot}", "$RPM_BUILD_ROOT"); | |
eedfe25e ER |
470 | |
471 | if (/^[ \t]*rm([ \t]+-[rf]+)*[ \t]+(\${?RPM_BUILD_ROOT}?|%{?buildroot}?)/ && did_rmroot==0) { | |
c77ca889 | 472 | did_rmroot=1 |
473 | print "rm -rf $RPM_BUILD_ROOT" | |
474 | next | |
475 | } | |
476 | ||
477 | if (!/^(#?[ \t]*)$/ && !/^%install/ && did_rmroot==0) { | |
478 | print "rm -rf $RPM_BUILD_ROOT" | |
479 | did_rmroot=1 | |
480 | } | |
eedfe25e | 481 | |
0731341f ER |
482 | if (tmpdir) { |
483 | buildroot = tmpdir "/" name "-" version "-root-" ENVIRON["USER"] | |
eedfe25e | 484 | gsub(buildroot, "$RPM_BUILD_ROOT") |
0731341f | 485 | } |
eedfe25e | 486 | |
0731341f ER |
487 | if (!/%{_lib}/) { |
488 | sub("\$RPM_BUILD_ROOT/%", "$RPM_BUILD_ROOT%") | |
489 | } | |
eedfe25e | 490 | |
c77ca889 | 491 | use_macros() |
eedfe25e | 492 | |
c77ca889 | 493 | # 'install -d' instead 'mkdir -p' |
494 | if (/mkdir -p/) | |
495 | sub(/mkdir -p/, "install -d") | |
eedfe25e ER |
496 | |
497 | # cp -a already implies cp -r | |
0731341f | 498 | sub(/^cp -ar/, "cp -a") |
eedfe25e | 499 | |
c77ca889 | 500 | # No '-u root' or '-g root' for 'install' |
501 | if (/^install/ && /-[ug][ \t]*root/) | |
502 | gsub(/-[ug][ \t]*root /, "") | |
eedfe25e ER |
503 | |
504 | if (/^install/ && /-m[ \t]*[0-9]+/) | |
505 | gsub(/-m[ \t]*[0-9]+ /, "") | |
506 | ||
c77ca889 | 507 | # No lines contain 'chown' or 'chgrp' if owner/group is 'root' |
508 | if (($1 ~ /chown/ && $2 ~ /root\.root/) || ($1 ~ /chgrp/ && $2 ~ /root/)) | |
509 | next | |
eedfe25e | 510 | |
c77ca889 | 511 | # No lines contain 'chmod' if it sets the modes to '644' |
512 | if ($1 ~ /chmod/ && $2 ~ /644/) | |
513 | next | |
eedfe25e ER |
514 | |
515 | # atrpms | |
516 | $0 = fixedsub("%perl_makeinstall", "%{__make} pure_install \\\n\tDESTDIR=$RPM_BUILD_ROOT", $0); | |
c77ca889 | 517 | } |
518 | ||
519 | ########## | |
520 | # %files # | |
521 | ########## | |
eedfe25e | 522 | /^%files/, (!/^%files/ && $0 ~ SECTIONS) { |
c77ca889 | 523 | preamble = 0 |
eedfe25e ER |
524 | did_files = 1 |
525 | ||
c77ca889 | 526 | if ($0 ~ /^%files/) |
527 | defattr = 1 | |
eedfe25e | 528 | |
c77ca889 | 529 | use_files_macros() |
530 | } | |
531 | ||
532 | ############## | |
533 | # %changelog # | |
534 | ############## | |
eedfe25e | 535 | /^%changelog/, (!/^%changelog/ && $0 ~ SECTIONS) { |
c77ca889 | 536 | preamble = 0 |
537 | has_changelog = 1 | |
568630a3 | 538 | skip = 0 |
c77ca889 | 539 | # There should be some CVS keywords on the first line of %changelog. |
568630a3 | 540 | if (boc == 3) { |
0731341f | 541 | if ($0 !~ _cvsmailfeedback) { |
eedfe25e | 542 | print "* %{date} " _cvsmailfeedback > changelog_file |
0731341f | 543 | } else { |
568630a3 | 544 | skip = 1 |
0731341f | 545 | } |
568630a3 JB |
546 | boc = 2 |
547 | } | |
548 | if (boc == 2 && !skip) { | |
549 | if (!/All persons listed below/) { | |
c77ca889 | 550 | printf "All persons listed below can be reached at " > changelog_file |
eedfe25e | 551 | print "<cvs_login>" _cvsmaildomain "\n" > changelog_file |
0731341f | 552 | } else { |
568630a3 | 553 | skip = 1 |
0731341f | 554 | } |
568630a3 JB |
555 | boc = 1 |
556 | } | |
557 | if (boc == 1 && !skip) { | |
558 | if (!/^$/) { | |
0731341f | 559 | if (!/\$.*Log:.*\$/) { |
568630a3 | 560 | print "$" "Log:$" > changelog_file |
0731341f | 561 | } |
568630a3 | 562 | boc = 0 |
c77ca889 | 563 | } |
c77ca889 | 564 | } |
c77ca889 | 565 | # Define date macro. |
568630a3 | 566 | if (boc == 4) { |
c77ca889 | 567 | if (date == 0) { |
568 | printf "%%define date\t%%(echo `LC_ALL=\"C\"" > changelog_file | |
569 | print " date +\"%a %b %d %Y\"`)" > changelog_file | |
570 | date = 1 | |
571 | } | |
568630a3 | 572 | boc = 3 |
c77ca889 | 573 | } |
574 | ||
0731341f ER |
575 | sub(/[ \t]+$/, ""); |
576 | if (!/^%[a-z]+$/ || /changelog/) { | |
577 | # stop changelog if "real" changelog starts | |
578 | if (boc == 0 && /^\* /) { | |
579 | boc = -1 | |
580 | } | |
581 | if (boc == -1) { | |
582 | next; | |
583 | } | |
c77ca889 | 584 | print > changelog_file |
0731341f | 585 | } else { |
c77ca889 | 586 | |
0731341f | 587 | } |
c77ca889 | 588 | next |
589 | } | |
590 | ||
591 | ########### | |
592 | # SCRIPTS # | |
593 | ########### | |
eedfe25e | 594 | /^%pre/, (!/^%pre/ && $0 ~ SECTIONS) { |
c77ca889 | 595 | preamble = 0 |
eedfe25e ER |
596 | |
597 | if (gsub("/usr/sbin/useradd", "%useradd")) { | |
598 | sub(" 2> /dev/null \|\| :", ""); | |
599 | sub(" >/dev/null 2>&1 \|\|:", ""); | |
600 | } | |
601 | ||
602 | # %useradd and %groupadd may not be wrapped | |
603 | if (/%(useradd|groupadd).*\\$/) { | |
604 | a = $0; getline; | |
605 | sub(/^[\s\t]*/, ""); | |
606 | $0 = substr(a, 1, length(a) - 1) $0; | |
607 | } | |
608 | use_script_macros() | |
c77ca889 | 609 | } |
eedfe25e ER |
610 | |
611 | /^%post/, (!/^%post/ && $0 ~ SECTIONS) { | |
612 | preamble = 0 | |
613 | use_macros() | |
614 | } | |
615 | /^%preun/, (!/^%preun/ && $0 ~ SECTIONS) { | |
616 | preamble = 0 | |
0731341f | 617 | use_macros() |
eedfe25e ER |
618 | } |
619 | /^%postun/, (!/^%postun/ && $0 ~ SECTIONS) { | |
c77ca889 | 620 | preamble = 0 |
eedfe25e | 621 | use_script_macros() |
c77ca889 | 622 | } |
eedfe25e | 623 | /^%triggerin/, (!/^%triggerin/ && $0 ~ SECTIONS) { |
c77ca889 | 624 | preamble = 0 |
eedfe25e | 625 | use_script_macros() |
c77ca889 | 626 | } |
eedfe25e | 627 | /^%triggerun/, (!/^%triggerun/ && $0 ~ SECTIONS) { |
c77ca889 | 628 | preamble = 0 |
eedfe25e ER |
629 | use_script_macros() |
630 | } | |
631 | /^%triggerpostun/, (!/^%triggerpostun/ && $0 ~ SECTIONS) { | |
632 | preamble = 0 | |
633 | use_script_macros() | |
634 | } | |
635 | /^%pretrans/, (!/^%pretrans/ && $0 ~ SECTIONS) { | |
636 | preamble = 0 | |
637 | use_script_macros() | |
638 | } | |
639 | /^%posttrans/, (!/^%posttrans/ && $0 ~ SECTIONS) { | |
640 | preamble = 0 | |
641 | use_script_macros() | |
642 | } | |
643 | /^%verifyscript/, (!/^%verifyscript/ && $0 ~ SECTIONS) { | |
644 | preamble = 0 | |
645 | use_script_macros() | |
646 | } | |
647 | /^%check/, (!/^%check/ && $0 ~ SECTIONS) { | |
648 | preamble = 0 | |
649 | use_script_macros() | |
c77ca889 | 650 | } |
651 | ||
652 | ############# | |
653 | # PREAMBLES # | |
654 | ############# | |
655 | preamble == 1 { | |
656 | # There should not be a space after the name of field | |
657 | # and before the colon. | |
658 | sub(/[ \t]*:/, ":") | |
eedfe25e ER |
659 | |
660 | if (/^%perl_module_wo_prefix/) { | |
661 | name = $2 | |
662 | version = $3 | |
663 | release = "0." fixedsub(".%{disttag}.at", "", $4) | |
664 | } | |
665 | ||
c77ca889 | 666 | field = tolower($1) |
667 | fieldnlower = $1 | |
0731341f | 668 | if (field ~ /summary:/ && !/etc\.$/ && !/Inc\.$/) { |
eedfe25e ER |
669 | sub(/\.$/, "", $0); |
670 | } | |
c77ca889 | 671 | if (field ~ /group(\([^)]+\)):/) |
672 | next | |
673 | if (field ~ /group:/) { | |
674 | format_preamble() | |
eedfe25e ER |
675 | group = $0; |
676 | sub(/^[^ \t]*[ \t]*/, "", group); | |
677 | ||
4008d7de | 678 | sub(/^Amusements\/Games\/Strategy\/Real Time/, "X11/Applications/Games/Strategy", group) |
eedfe25e | 679 | sub(/^Application\/Multimedia$/, "Applications/Multimedia", group) |
eedfe25e | 680 | sub(/^Applications\/Compilers$/, "Development/Languages", group) |
4008d7de ER |
681 | sub(/^Applications\/Daemons$/, "Daemons", group) |
682 | sub(/^Applications\/Internet$/, "Applications/Networking", group) | |
eedfe25e | 683 | sub(/^Applications\/Internet\/Peer to Peer/, "Applications/Networking", group) |
4008d7de ER |
684 | sub(/^Applications\/Productivity$/, "X11/Applications", group) |
685 | sub(/^Database$/, "Applications/Databases", group) | |
686 | sub(/^Development\/Code Generators$/, "Development", group) | |
eedfe25e ER |
687 | sub(/^Development\/Docs$/, "Documentation", group) |
688 | sub(/^Development\/Documentation$/, "Documentation", group) | |
eedfe25e | 689 | sub(/^Development\/Java/, "Development/Languages/Java", group) |
4008d7de ER |
690 | sub(/^Development\/Libraries\/C and C\+\+$/, "Development/Libraries", group) |
691 | sub(/^Development\/Libraries\/Java$/, "Development/Languages/Java", group) | |
692 | sub(/^Development\/Other/,"Development", group) | |
eedfe25e | 693 | sub(/^Development\/Testing$/, "Development", group) |
4008d7de ER |
694 | sub(/^Emulators$/, "Applications/Emulators", group) |
695 | sub(/^Games/,"Applications/Games", group) | |
696 | sub(/^Library\/Development$/, "Development/Libraries", group) | |
697 | sub(/^Networking\/Deamons$/, "Networking/Daemons", group) | |
698 | sub(/^Shells/,"Applications/Shells", group) | |
eedfe25e | 699 | sub(/^System Environment\/Base$/, "Base", group) |
4008d7de ER |
700 | sub(/^System Environment\/Daemons$/, "Daemons", group) |
701 | sub(/^System Environment\/Kernel$/, "Base/Kernel", group) | |
702 | sub(/^System Environment\/Libraries$/, "Libraries", group) | |
0731341f | 703 | sub(/^System$/, "Base", group) |
4008d7de | 704 | sub(/^System\/Base$/, "Base", group) |
0731341f | 705 | sub(/^System\/Libraries$/, "Libraries", group) |
4008d7de ER |
706 | sub(/^System\/Servers$/, "Daemons", group) |
707 | sub(/^Text Processing\/Markup\/HTML$/, "Applications/Text", group) | |
708 | sub(/^Text Processing\/Markup\/XML$/, "Applications/Text", group) | |
709 | sub(/^Utilities\//,"Applications/", group) | |
710 | sub(/^Web\/Database$/, "Applications/WWW", group) | |
711 | sub(/^X11\/GNOME/,"X11/Applications", group) | |
712 | sub(/^X11\/GNOME\/Applications/,"X11/Applications", group) | |
713 | sub(/^X11\/GNOME\/Development\/Libraries/,"X11/Development/Libraries", group) | |
714 | sub(/^X11\/Games/,"X11/Applications/Games", group) | |
715 | sub(/^X11\/Games\/Strategy/,"X11/Applications/Games/Strategy", group) | |
716 | sub(/^X11\/Library/,"X11/Libraries", group) | |
717 | sub(/^X11\/Utilities/,"X11/Applications", group) | |
718 | sub(/^X11\/XFree86/, "X11", group) | |
719 | sub(/^X11\/Xserver$/, "X11/Servers", group) | |
eedfe25e ER |
720 | |
721 | $0 = "Group:\t\t" group | |
722 | ||
723 | if (group ~ /^X11/ && x11 == 0) # Is it X11 application? | |
724 | x11 = 1 | |
725 | ||
726 | byl_plik_z_groupmi = 0 | |
c77ca889 | 727 | byl_opis_grupy = 0 |
728 | while ((getline linia_grup < groups_file) > 0) { | |
eedfe25e ER |
729 | byl_plik_z_groupmi = 1 |
730 | if (linia_grup == group) { | |
c77ca889 | 731 | byl_opis_grupy = 1 |
732 | break | |
733 | } | |
734 | } | |
735 | ||
eedfe25e | 736 | if (!byl_plik_z_groupmi) |
c77ca889 | 737 | print "######\t\t" groups_file ": no such file" |
738 | else if (!byl_opis_grupy) | |
739 | print "######\t\t" "Unknown group!" | |
eedfe25e | 740 | |
c77ca889 | 741 | close(groups_file) |
eedfe25e | 742 | did_groups = 1 |
c77ca889 | 743 | } |
eedfe25e ER |
744 | |
745 | if (field ~ /prereq:/) { | |
746 | sub(/Pre[Rr]eq:/, "Requires:", $1); | |
747 | } | |
748 | ||
749 | # split (build)requires, obsoletes on commas | |
750 | if (field ~ /(obsoletes|requires|provides|conflicts):/ && NF > 2) { | |
751 | value = substr($0, index($0, $2)); | |
752 | $0 = format_requires($1, value); | |
753 | } | |
0731341f | 754 | |
eedfe25e ER |
755 | # BR: tar (and others) is to common (rpm-build requires it) |
756 | if (field ~ /^buildrequires:/) { | |
757 | l = substr($0, index($0, $2)); | |
758 | if (l == "awk" || | |
759 | l == "binutils" || | |
760 | l == "bzip2" || | |
761 | l == "cpio" || | |
762 | l == "diffutils" || | |
763 | l == "elfutils" || | |
764 | l == "fileutils" || | |
765 | l == "findutils" || | |
766 | l == "glibc-devel" || | |
767 | l == "grep" || | |
768 | l == "gzip" || | |
769 | l == "make" || | |
770 | l == "patch" || | |
771 | l == "sed" || | |
772 | l == "sh-utils" || | |
773 | l == "tar" || | |
774 | l == "textutils") { | |
775 | next | |
776 | } | |
777 | ||
4008d7de | 778 | replace_requires(); |
eedfe25e ER |
779 | } |
780 | ||
781 | if (field ~ /^requires:/) { | |
4008d7de | 782 | replace_requires(); |
0731341f | 783 | } |
eedfe25e ER |
784 | |
785 | ||
786 | # obsolete/unwanted tags | |
787 | if (field ~ /vendor:|packager:|distribution:|docdir:|prefix:|icon:|author:|author-email:|metadata-version:/) { | |
c77ca889 | 788 | next |
eedfe25e ER |
789 | } |
790 | ||
791 | if (field ~ /buildroot:/) { | |
c77ca889 | 792 | $0 = $1 "%{tmpdir}/%{name}-%{version}-root-%(id -u -n)" |
eedfe25e ER |
793 | did_build_root = 1 |
794 | } | |
c77ca889 | 795 | |
796 | # Use "License" instead of "Copyright" if it is (L)GPL or BSD | |
eedfe25e | 797 | if (field ~ /copyright:/ && $2 ~ /GPL|BSD/) { |
c77ca889 | 798 | $1 = "License:" |
eedfe25e ER |
799 | } |
800 | ||
801 | if (field ~ /license:/) { | |
802 | l = substr($0, index($0, $2)); | |
803 | if (l == "Python Software Foundation License") { | |
804 | l = "PSF" | |
805 | } | |
4008d7de ER |
806 | if (l == "Apache License 2.0" || l == "Apache 2.0" || l == "Apache License Version 2.0" || l == "Apache License, Version 2.0" || l == "Apache Software License v2") { |
807 | l = "Apache v2.0" | |
808 | } | |
809 | if (l == "Apache Group License" || l == "Apache Software License" || l == "Apache License") { | |
810 | l = "Apache" | |
811 | } | |
812 | if (l == "Apache-style License" || l == "Apache-style Software License") { | |
813 | l = "Apache-like" | |
814 | } | |
815 | if (l == "Apache Software License 1.1" || l == "Apache 1.1") { | |
816 | l = "Apache v1.1" | |
817 | } | |
eedfe25e ER |
818 | $0 = "License:\t" l; |
819 | } | |
820 | ||
821 | ||
822 | if (field ~ /name:/) { | |
823 | if ($2 == "%{name}" && name) { | |
824 | $2 = name | |
825 | } | |
c77ca889 | 826 | name = $2 |
eedfe25e ER |
827 | name_seen = 1; |
828 | } | |
c77ca889 | 829 | |
eedfe25e ER |
830 | if (field ~ /version:/) { |
831 | if ($2 == "%{version}" && version) { | |
832 | $2 = version | |
833 | } | |
c77ca889 | 834 | version = $2 |
eedfe25e ER |
835 | version_seen = 1; |
836 | } | |
837 | ||
838 | if (field ~ /release:/) { | |
839 | if ($2 == "%{release}" && release) { | |
840 | $2 = release | |
841 | } | |
842 | sub(/%atrelease /, "0.", $0) | |
843 | release = $2 | |
844 | release_seen = 1; | |
845 | } | |
846 | ||
c77ca889 | 847 | |
848 | if (field ~ /serial:/) | |
849 | $1 = "Epoch:" | |
850 | ||
eedfe25e ER |
851 | if (field ~ /home-page:/) |
852 | $1 = "URL:" | |
853 | ||
854 | # proper caps | |
855 | if (field ~ /^url:$/) | |
856 | $1 = "URL:" | |
857 | ||
858 | if (field ~ /^description:$/) | |
859 | $1 = "\n%description\n" | |
860 | ||
c77ca889 | 861 | # Use %{name} and %{version} in the filenames in "Source:" |
862 | if (field ~ /^source/ || field ~ /patch/) { | |
863 | n = split($2, url, /\//) | |
864 | if (url[n] ~ /\.gz$/) { | |
865 | url[n+1] = ".gz" url[n+1] | |
866 | sub(/\.gz$/,"",url[n]) | |
867 | } | |
868 | if (url[n] ~ /\.zip$/) { | |
869 | url[n+1] = ".zip" url[n+1] | |
870 | sub(/\.zip$/,"",url[n]) | |
871 | } | |
872 | if (url[n] ~ /\.tar$/) { | |
873 | url[n+1] = ".tar" url[n+1] | |
874 | sub(/\.tar$/,"",url[n]) | |
875 | } | |
876 | if (url[n] ~ /\.patch$/) { | |
877 | url[n+1] = ".patch" url[n+1] | |
878 | sub(/\.patch$/,"",url[n]) | |
879 | } | |
880 | if (url[n] ~ /\.bz2$/) { | |
881 | url[n+1] = ".bz2" url[n+1] | |
882 | sub(/\.bz2$/,"",url[n]) | |
883 | } | |
884 | if (url[n] ~ /\.logrotate$/) { | |
885 | url[n+1] = ".logrotate" url[n+1] | |
886 | sub(/\.logrotate$/,"",url[n]) | |
887 | } | |
888 | if (url[n] ~ /\.pamd$/) { | |
889 | url[n+1] = ".pamd" url[n+1] | |
890 | sub(/\.pamd$/,"",url[n]) | |
891 | } | |
892 | ||
eedfe25e ER |
893 | # allow %{name} only in last url component |
894 | s = "" | |
895 | for (i = 1; i <= n; i++) { | |
896 | url[i] = fixedsub("%{name}", name, url[i]) | |
897 | if (s) { | |
898 | s = s "/" url[i] | |
899 | } else { | |
900 | s = url[i] | |
901 | } | |
902 | } | |
903 | $2 = s url[n+1] | |
904 | ||
c77ca889 | 905 | filename = url[n] |
eedfe25e ER |
906 | if (name) { |
907 | url[n] = fixedsub(name, "%{name}", url[n]) | |
908 | } | |
909 | if (field ~ /source/) { | |
910 | if (version) { | |
911 | url[n] = fixedsub(version, "%{version}", url[n]) | |
912 | } | |
913 | if (_beta) { | |
914 | url[n] = fixedsub(_beta, "%{_beta}", url[n]) | |
915 | } | |
916 | if (_rc) { | |
917 | url[n] = fixedsub(_rc, "%{_rc}", url[n]) | |
918 | } | |
919 | if (_pre) { | |
920 | url[n] = fixedsub(_pre, "%{_pre}", url[n]) | |
921 | } | |
922 | if (_snap) { | |
923 | url[n] = fixedsub(_snap, "%{_snap}", url[n]) | |
924 | } | |
4008d7de ER |
925 | if (subver) { |
926 | url[n] = fixedsub(subver, "%{subver}", url[n]) | |
927 | } | |
eedfe25e ER |
928 | } |
929 | # assigning to $2 kills preamble formatting | |
c77ca889 | 930 | $2 = fixedsub(filename, url[n], $2) |
eedfe25e ER |
931 | |
932 | # sourceforge urls | |
933 | sub("[?&]big_mirror=.*$", "", $2); | |
934 | sub("[?&]modtime=.*$", "", $2); | |
935 | ||
936 | sub("[?]use_mirror=.*$", "", $2); | |
937 | sub("[?]download$", "", $2); | |
938 | ||
939 | sub("^http://prdownloads\.sourceforge\.net/", "http://dl.sourceforge.net/", $2) | |
940 | sub("^http://download\.sf\.net/", "http://dl.sourceforge.net/", $2) | |
4008d7de | 941 | sub("^http://download\.sourceforge\.net/", "http://dl.sourceforge.net/", $2) |
eedfe25e ER |
942 | sub("^http://downloads\.sourceforge\.net/", "http://dl.sourceforge.net/", $2) |
943 | ||
944 | sub("^http://.*\.dl\.sourceforge\.net/", "http://dl.sourceforge.net/", $2) | |
945 | sub("^http://dl\.sourceforge\.net/sourceforge/", "http://dl.sourceforge.net/", $2) | |
946 | sub("^http://dl\.sf\.net/", "http://dl.sourceforge.net/", $2) | |
0731341f ER |
947 | |
948 | sub("^ftp://ftp\.gnome\.org/", "http://ftp.gnome.org/", $2) | |
949 | sub("^http://ftp\.gnome\.org/pub/gnome/", "http://ftp.gnome.org/pub/GNOME/", $2) | |
4008d7de ER |
950 | |
951 | # apache urls | |
952 | sub("^http://apache.zone-h.org/", "http://www.apache.org/dist/", $2) | |
c77ca889 | 953 | } |
954 | ||
eedfe25e | 955 | |
c77ca889 | 956 | if (field ~ /^source:/) |
eedfe25e | 957 | $1 = "Source0:" |
c77ca889 | 958 | |
eedfe25e | 959 | if (field ~ /^patch:/) |
c77ca889 | 960 | $1 = "Patch0:" |
eedfe25e ER |
961 | |
962 | kill_preamble_macros(); | |
c77ca889 | 963 | format_preamble() |
eedfe25e ER |
964 | |
965 | if (field ~ /requires/) { | |
966 | # atrpms | |
967 | $0 = fixedsub("%{eversion}", "%{epoch}:%{version}-%{release}", $0); | |
c77ca889 | 968 | } |
969 | } | |
970 | ||
eedfe25e ER |
971 | /^%bcond_/ { |
972 | # do nothing | |
973 | ||
974 | next | |
975 | } | |
976 | ||
977 | # sort BR/R! | |
978 | # | |
979 | # NOTES: | |
980 | # - mixing BR/R and anything else confuses this (all will be sorted together) | |
0731341f | 981 | # so don't do that. |
eedfe25e | 982 | # - comments leading the BR/R can not be associated, |
0731341f | 983 | # so don't adapterize when the BR/R are mixed with comments |
eedfe25e ER |
984 | ENVIRON["SKIP_SORTBR"] != 1 && preamble == 1 && $0 ~ PREAMBLE_TAGS, $0 ~ PREAMBLE_TAGS { |
985 | if ($1 ~ /Pre[Rr]eq:/) { | |
986 | sub(/Pre[Rr]eq:/, "Requires:", $1); | |
987 | } | |
0731341f ER |
988 | if ($1 == "BR:" ) { |
989 | $1 = "BuildRequires:" | |
990 | } | |
991 | if ($1 == "R:" ) { | |
992 | $1 = "Requires:" | |
993 | } | |
eedfe25e ER |
994 | format_preamble() |
995 | # kill_preamble_macros(); # breaks tabbing | |
996 | ||
997 | b_idx++; | |
998 | l = substr($0, index($0, $2)); | |
999 | b_ktmp = b_makekey($1, l); | |
1000 | b_key[b_idx] = b_ktmp; | |
1001 | b_val[b_ktmp] = $0; | |
c77ca889 | 1002 | |
eedfe25e ER |
1003 | next; |
1004 | } | |
1005 | ||
1006 | preamble == 1 { | |
1007 | if (b_idx > 0) { | |
1008 | isort(b_key, b_idx); | |
1009 | for (i = 1; i <= b_idx; i++) { | |
1010 | v = b_val[b_key[i]]; | |
1011 | sub(/[ \t]+$/, "", v); | |
1012 | print "" v; | |
1013 | } | |
1014 | b_idx = 0 | |
1015 | } | |
1016 | } | |
1017 | ||
1018 | # main() ;-) | |
c77ca889 | 1019 | { |
1020 | preamble = 1 | |
eedfe25e | 1021 | |
c77ca889 | 1022 | sub(/[ \t]+$/, "") |
1023 | ||
eedfe25e ER |
1024 | |
1025 | if (name_seen == 0 && name) { | |
1026 | print "Name:\t\t" name | |
1027 | name_seen = 1 | |
1028 | } | |
1029 | ||
1030 | if (version_seen == 0 && version) { | |
1031 | print "Version:\t" version | |
1032 | version_seen = 1 | |
1033 | } | |
1034 | ||
1035 | if (release_seen == 0 && release) { | |
1036 | print "Release:\t" release | |
1037 | release_seen = 1 | |
1038 | } | |
1039 | ||
1040 | if (did_build_root == 0) { | |
1041 | # print "BuildRoot:\t%{tmpdir}/%{name}-%{version}-root-%(id -u -n)" | |
1042 | did_build_root = 1 | |
1043 | } | |
1044 | if (did_groups == 0) { | |
1045 | # print "Group:\t\tunknown" | |
1046 | did_groups = 1 | |
1047 | } | |
c77ca889 | 1048 | } |
1049 | ||
1050 | ||
1051 | END { | |
1052 | if (do_not_touch_anything) | |
1053 | exit 0 | |
eedfe25e | 1054 | |
0731341f ER |
1055 | # TODO: need to output these in proper place |
1056 | if (BR_count > 0) { | |
1057 | for (i = 0; i <= BR_count; i++) { | |
1058 | print BR[i]; | |
1059 | } | |
1060 | } | |
eedfe25e | 1061 | |
c77ca889 | 1062 | close(changelog_file) |
1063 | while ((getline < changelog_file) > 0) | |
1064 | ||
1065 | system("rm -f " changelog_file) | |
1066 | ||
1067 | if (did_clean == 0) { | |
1068 | print "" | |
1069 | print "%clean" | |
1070 | print "rm -rf $RPM_BUILD_ROOT" | |
1071 | } | |
1072 | ||
1073 | if (date == 0) { | |
1074 | print "" | |
1075 | print "%define date\t%(echo `LC_ALL=\"C\" date +\"%a %b %d %Y\"`)" | |
1076 | } | |
eedfe25e ER |
1077 | |
1078 | if (has_changelog == 0) { | |
c77ca889 | 1079 | print "%changelog" |
0731341f | 1080 | } |
c77ca889 | 1081 | |
eedfe25e | 1082 | if (boc > 2) { |
568630a3 | 1083 | print "* %{date} PLD Team <feedback@pld-linux.org>" |
0731341f | 1084 | } |
568630a3 | 1085 | if (boc > 1) { |
c77ca889 | 1086 | printf "All persons listed below can be reached at " |
568630a3 | 1087 | print "<cvs_login>@pld-linux.org\n" |
c77ca889 | 1088 | } |
eedfe25e | 1089 | if (boc > 0) { |
568630a3 | 1090 | print "$" "Log:$" |
0731341f | 1091 | } |
c77ca889 | 1092 | } |
1093 | ||
eedfe25e | 1094 | function fixedsub(s1,s2,t, ind) { |
c77ca889 | 1095 | # substitutes fixed strings (not regexps) |
eedfe25e ER |
1096 | if (ind = index(t,s1)) |
1097 | t = substr(t, 1, ind-1) s2 substr(t, ind+length(s1)) | |
1098 | return t | |
c77ca889 | 1099 | } |
1100 | ||
1101 | # There should be one or two tabs after the colon. | |
1102 | function format_preamble() | |
1103 | { | |
eedfe25e ER |
1104 | if (/^#/ || /^%bcond_with/) { |
1105 | return; | |
1106 | } | |
c77ca889 | 1107 | sub(/:[ \t]*/, ":") |
0731341f ER |
1108 | if (match($0, /[A-Za-z0-9(),#_ \t.-]+[ \t]*:[ \t]*/) == 1) { |
1109 | if (RLENGTH < 8) { | |
c77ca889 | 1110 | sub(/:/, ":\t\t") |
0731341f | 1111 | } else { |
c77ca889 | 1112 | sub(/:/, ":\t") |
0731341f | 1113 | } |
c77ca889 | 1114 | } |
1115 | } | |
1116 | ||
1117 | # Replace directly specified directories with macros | |
1118 | function use_macros() | |
1119 | { | |
eedfe25e ER |
1120 | # -m, --skip-macros, --no-macros -- skip macros subst |
1121 | if (ENVIRON["SKIP_MACROS"]) { | |
1122 | return | |
1123 | } | |
1124 | ||
1125 | # leave inline sed lines alone | |
1126 | if (/(%{__sed}|sed) -i -e/) { | |
1127 | return; | |
1128 | } | |
1129 | ||
0731341f ER |
1130 | sub("%{_defaultdocdir}", "%{_docdir}"); |
1131 | sub("%{_bindir}/perl", "%{__perl}"); | |
1132 | sub("%{_bindir}/python", "%{__python}"); | |
eedfe25e ER |
1133 | |
1134 | gsub(infodir, "%{_infodir}") | |
1135 | ||
1136 | gsub(perl_sitearch, "%{perl_sitearch}") | |
1137 | gsub(perl_archlib, "%{perl_archlib}") | |
1138 | gsub(perl_privlib, "%{perl_privlib}") | |
1139 | gsub(perl_vendorlib, "%{perl_vendorlib}") | |
1140 | gsub(perl_vendorarch, "%{perl_vendorarch}") | |
1141 | gsub(perl_sitelib, "%{perl_sitelib}") | |
1142 | ||
1143 | gsub(py_sitescriptdir, "%{py_sitescriptdir}") | |
1144 | gsub(py_sitedir, "%{py_sitedir}") | |
1145 | gsub(py_scriptdir, "%{py_scriptdir}") | |
1146 | gsub("%{_libdir}/python2.4/site-packages", "%{py_sitedir}") | |
1147 | gsub("%{python_sitelib}", "%{py_sitedir}") | |
1148 | ||
1149 | gsub(ruby_archdir, "%{ruby_archdir}") | |
1150 | gsub(ruby_ridir, "%{ruby_ridir}") | |
1151 | gsub(ruby_rubylibdir, "%{ruby_rubylibdir}") | |
1152 | gsub(ruby_sitearchdir, "%{ruby_sitearchdir}") | |
1153 | gsub(ruby_sitelibdir, "%{ruby_sitelibdir}") | |
1154 | ||
1155 | gsub("%{_datadir}/applications", "%{_desktopdir}") | |
1156 | gsub("%{_datadir}/pixmaps", "%{_pixmapsdir}") | |
1157 | ||
0731341f ER |
1158 | gsub(libdir, "%{_libdir}") |
1159 | ||
c77ca889 | 1160 | gsub(bindir, "%{_bindir}") |
1161 | gsub("%{prefix}/bin", "%{_bindir}") | |
eedfe25e | 1162 | if (prefix"/bin" == bindir) |
c77ca889 | 1163 | gsub("%{_prefix}/bin", "%{_bindir}") |
1164 | ||
1165 | for (c = 1; c <= NF; c++) { | |
1166 | if ($c ~ sbindir "/fix-info-dir") | |
1167 | continue; | |
eedfe25e ER |
1168 | if ($c ~ sbindir "/webapp") |
1169 | continue; | |
1170 | if ($c ~ sbindir "/ldconfig") | |
1171 | continue; | |
1172 | if ($c ~ sbindir "/chsh") | |
1173 | continue; | |
1174 | if ($c ~ sbindir "/usermod") | |
1175 | continue; | |
1176 | if ($c ~ sbindir "/chkconfig") | |
1177 | continue; | |
1178 | if ($c ~ sbindir "/installzope(product|3package)") | |
1179 | continue; | |
c77ca889 | 1180 | gsub(sbindir, "%{_sbindir}", $c) |
1181 | } | |
1182 | ||
1183 | gsub("%{prefix}/sbin", "%{_sbindir}") | |
eedfe25e | 1184 | if (prefix"/sbin" == sbindir) { |
c77ca889 | 1185 | gsub("%{_prefix}/sbin", "%{_sbindir}") |
eedfe25e | 1186 | } |
c77ca889 | 1187 | |
1188 | for (c = 1; c <= NF; c++) { | |
568630a3 | 1189 | if ($c ~ sysconfdir "/{?cron.") |
c77ca889 | 1190 | continue; |
1191 | if ($c ~ sysconfdir "/{?crontab.d") | |
1192 | continue; | |
eedfe25e ER |
1193 | if ($c ~ sysconfdir "/{?env.d") |
1194 | continue; | |
1195 | if ($c ~ sysconfdir "/{?modprobe.(d|conf)") | |
1196 | continue; | |
1197 | if ($c ~ sysconfdir "/{?udev/rules.d") | |
1198 | continue; | |
c77ca889 | 1199 | if ($c ~ sysconfdir "/{?logrotate.d") |
1200 | continue; | |
1201 | if ($c ~ sysconfdir "/{?pam.d") | |
1202 | continue; | |
1203 | if ($c ~ sysconfdir "/{?profile.d") | |
1204 | continue; | |
1205 | if ($c ~ sysconfdir "/{?rc.d") | |
1206 | continue; | |
1207 | if ($c ~ sysconfdir "/{?security") | |
1208 | continue; | |
1209 | if ($c ~ sysconfdir "/{?skel") | |
1210 | continue; | |
1211 | if ($c ~ sysconfdir "/{?sysconfig") | |
1212 | continue; | |
eedfe25e ER |
1213 | if ($c ~ sysconfdir "/{?shrc.d") |
1214 | continue; | |
1215 | if ($c ~ sysconfdir "/{?certs") | |
1216 | continue; | |
1217 | if ($c ~ sysconfdir "/{?X11") | |
1218 | continue; | |
1219 | if ($c ~ sysconfdir "/{?ld.so.conf.d") | |
1220 | continue; | |
1221 | if ($c ~ sysconfdir "/{?rpm") | |
1222 | continue; | |
1223 | if ($c ~ sysconfdir "/{?bash_completion.d") | |
1224 | continue; | |
1225 | if ($c ~ sysconfdir "/{?samba") | |
1226 | continue; | |
1227 | if ($c ~ sysconfdir "/shells") | |
1228 | continue; | |
0731341f ER |
1229 | if ($c ~ sysconfdir "/ppp") |
1230 | continue; | |
1231 | if ($c ~ sysconfdir "/dbus-1") | |
1232 | continue; | |
c77ca889 | 1233 | gsub(sysconfdir, "%{_sysconfdir}", $c) |
1234 | } | |
1235 | ||
0731341f | 1236 | gsub(kdedocdir, "%{_kdedocdir}") |
eedfe25e ER |
1237 | gsub(docdir, "%{_docdir}") |
1238 | gsub(php_pear_dir, "%{php_pear_dir}") | |
1239 | ||
1240 | for (c = 1; c <= NF; c++) { | |
1241 | if ($c ~ datadir "/automake") | |
1242 | continue; | |
1243 | if ($c ~ datadir "/unsermake") | |
1244 | continue; | |
1245 | if ($c ~ datadir "/file/magic.mime") | |
1246 | continue; | |
1247 | gsub(datadir, "%{_datadir}", $c) | |
1248 | } | |
1249 | ||
c77ca889 | 1250 | gsub("%{prefix}/share", "%{_datadir}") |
eedfe25e | 1251 | if (prefix"/share" == datadir) |
c77ca889 | 1252 | gsub("%{_prefix}/share", "%{_datadir}") |
1253 | ||
eedfe25e ER |
1254 | # CFLAGS="-I/usr/include/ncurses is usually correct. |
1255 | if (!/-I\/usr\/include/) { | |
1256 | gsub(includedir, "%{_includedir}") | |
1257 | } | |
1258 | ||
c77ca889 | 1259 | gsub("%{prefix}/include", "%{_includedir}") |
eedfe25e | 1260 | if (prefix"/include" == includedir) { |
c77ca889 | 1261 | gsub("%{_prefix}/include", "%{_includedir}") |
eedfe25e | 1262 | } |
c77ca889 | 1263 | |
1264 | gsub(mandir, "%{_mandir}") | |
eedfe25e | 1265 | if ($0 !~ "%{_datadir}/manual") { |
c77ca889 | 1266 | gsub("%{_datadir}/man", "%{_mandir}") |
eedfe25e | 1267 | } |
c77ca889 | 1268 | gsub("%{_prefix}/share/man", "%{_mandir}") |
1269 | gsub("%{prefix}/share/man", "%{_mandir}") | |
1270 | gsub("%{prefix}/man", "%{_mandir}") | |
1271 | gsub("%{_prefix}/man", "%{_mandir}") | |
1272 | ||
1273 | gsub(infodir, "%{_infodir}") | |
1274 | gsub("%{prefix}/info", "%{_infodir}") | |
1275 | gsub("%{_prefix}/info", "%{_infodir}") | |
1276 | ||
568630a3 JB |
1277 | if (prefix !~ "/X11R6") { |
1278 | gsub("%{_datadir}/aclocal", "%{_aclocaldir}") | |
1279 | } | |
c77ca889 | 1280 | |
eedfe25e ER |
1281 | gsub(examplesdir, "%{_examplesdir}") |
1282 | ||
c77ca889 | 1283 | if (prefix != "/") { |
eedfe25e ER |
1284 | # leave --with-foo=/usr alone |
1285 | if ($0 !~ "--with.*=.*" prefix) { | |
1286 | for (c = 1; c <= NF; c++) { | |
1287 | if ($c ~ prefix "/sbin/fix-info-dir") | |
1288 | continue; | |
1289 | if ($c ~ prefix "/sbin/webapp") | |
1290 | continue; | |
1291 | if ($c ~ prefix "/sbin/chsh") | |
1292 | continue; | |
1293 | if ($c ~ prefix "/sbin/usermod") | |
1294 | continue; | |
1295 | if ($c ~ prefix "/sbin/installzope(product|3package)") | |
1296 | continue; | |
1297 | if ($c ~ prefix "/share/automake") | |
1298 | continue; | |
1299 | if ($c ~ prefix "/share/unsermake") | |
1300 | continue; | |
1301 | if ($c ~ prefix "/lib/sendmail") | |
1302 | continue; | |
1303 | if ($c ~ prefix "/lib/pkgconfig") | |
1304 | continue; | |
1305 | ||
1306 | # CFLAGS="-I/usr..." is usually correct. | |
1307 | if (/-I\/usr/) | |
1308 | continue; | |
1309 | # same for LDFLAGS="-L/usr..." | |
1310 | if (/-L\/usr/) | |
1311 | continue; | |
1312 | ||
1313 | gsub(prefix, "%{_prefix}", $c) | |
1314 | } | |
c77ca889 | 1315 | } |
1316 | gsub("%{prefix}", "%{_prefix}") | |
1317 | } | |
1318 | ||
eedfe25e ER |
1319 | # replace back |
1320 | gsub("%{_includedir}/ncurses", "/usr/include/ncurses") | |
1321 | gsub("%{_includedir}/freetype", "/usr/include/freetype") | |
1322 | ||
c77ca889 | 1323 | gsub("%{PACKAGE_VERSION}", "%{version}") |
1324 | gsub("%{PACKAGE_NAME}", "%{name}") | |
1325 | ||
c77ca889 | 1326 | gsub("^make$", "%{__make}") |
1327 | gsub("^make ", "%{__make} ") | |
eedfe25e | 1328 | gsub("^gcc ", "%{__cc} ") |
4008d7de | 1329 | gsub("^rm --interactive=never ", "%{__rm} ") |
eedfe25e ER |
1330 | |
1331 | # mandrake specs | |
1332 | gsub("^%make$", "%{__make}") | |
1333 | gsub("^%make ", "%{__make} ") | |
1334 | gsub("^%makeinstall_std", "%{__make} install \\\n\tDESTDIR=$RPM_BUILD_ROOT") | |
1335 | gsub("^%{makeinstall}", "%{__make} install \\\n\tDESTDIR=$RPM_BUILD_ROOT") | |
1336 | gsub("^%makeinstall", "%{__make} install \\\n\tDESTDIR=$RPM_BUILD_ROOT") | |
1337 | gsub("^%{__rm} -rf %{buildroot}", "rm -rf $RPM_BUILD_ROOT") | |
1338 | gsub("^%{__install}", "install") | |
eedfe25e ER |
1339 | gsub("%optflags", "%{rpmcflags}") |
1340 | gsub("%{compat_perl_vendorarch}", "%{perl_vendorarch}") | |
1341 | ||
1342 | gsub("^%{__make} install DESTDIR=\$RPM_BUILD_ROOT", "%{__make} install \\\n\tDESTDIR=$RPM_BUILD_ROOT") | |
0731341f | 1343 | gsub("^fix-info-dir$", "[ ! -x /usr/sbin/fix-info-dir ] || /usr/sbin/fix-info-dir -c %{_infodir} >/dev/null 2>\\&1") |
eedfe25e ER |
1344 | $0 = fixedsub("%buildroot", "$RPM_BUILD_ROOT", $0) |
1345 | $0 = fixedsub("%{buildroot}", "$RPM_BUILD_ROOT", $0) | |
1346 | $0 = fixedsub("CXXFLAGS=%{rpmcflags} %configure", "CXXFLAGS=%{rpmcflags}\n%configure", $0); | |
0731341f | 1347 | $0 = fixedsub("%__install", "install", $0); |
eedfe25e ER |
1348 | |
1349 | # split configure line to multiple lines | |
1350 | if (/%configure / && !/\\$/) { | |
1351 | $0 = format_configure($0); | |
1352 | } | |
1353 | ||
1354 | gsub("%_bindir", "%{_bindir}") | |
1355 | gsub("%_datadir", "%{_datadir}") | |
1356 | gsub("%_iconsdir", "%{_iconsdir}") | |
1357 | gsub("%_sbindir", "%{_sbindir}") | |
1358 | gsub("%_mandir", "%{_mandir}") | |
1359 | gsub("%name", "%{name}") | |
0731341f ER |
1360 | gsub(/%__rm/, "rm"); |
1361 | gsub(/%__mkdir_p/, "install -d"); | |
1362 | gsub(/%__cp/, "cp"); | |
1363 | gsub(/%__ln_s/, "ln -s"); | |
1364 | gsub(/%__sed/, "%{__sed}"); | |
1365 | gsub(/%__cat/, "cat"); | |
1366 | gsub(/%__chmod/, "chmod"); | |
c77ca889 | 1367 | |
1368 | gsub("/usr/src/linux", "%{_kernelsrcdir}") | |
1369 | gsub("%{_prefix}/src/linux", "%{_kernelsrcdir}") | |
eedfe25e ER |
1370 | |
1371 | if (/^ant /) { | |
1372 | sub(/^ant/, "%ant") | |
0731341f ER |
1373 | add_br("BuildRequires: jpackage-utils"); |
1374 | add_br("BuildRequires: rpmbuild(macros) >= 1.300"); | |
1375 | } | |
eedfe25e | 1376 | |
c77ca889 | 1377 | } |
eedfe25e ER |
1378 | |
1379 | function format_configure(line, n, a, s) { | |
1380 | n = split(line, a, / /); | |
1381 | s = a[1] " \\\n"; | |
1382 | for (i = 2; i <= n; i++) { | |
1383 | s = s "\t" a[i] " \\\n" | |
1384 | } | |
1385 | return s | |
1386 | } | |
1387 | ||
1388 | ||
1389 | # insertion sort of A[1..n] | |
1390 | # copied from mawk manual | |
1391 | function isort(A,n, i,j,hold) { | |
1392 | for (i = 2; i <= n; i++) { | |
1393 | hold = A[j = i] | |
1394 | while (A[j-1] > hold) { | |
1395 | j-- ; A[j+1] = A[j] | |
1396 | } | |
1397 | A[j] = hold | |
1398 | } | |
1399 | # sentinel A[0] = "" will be created if needed | |
1400 | } | |
1401 | ||
1402 | ||
1403 | function use_files_macros( i, n, t, a) | |
c77ca889 | 1404 | { |
eedfe25e ER |
1405 | use_macros() |
1406 | ||
1407 | # skip comments | |
1408 | if (/^#/) { | |
1409 | return; | |
1410 | } | |
1411 | ||
1412 | sub("^%doc %{_mandir}", "%{_mandir}") | |
1413 | ||
c77ca889 | 1414 | gsub("^%{_sbindir}", "%attr(755,root,root) %{_sbindir}") |
1415 | gsub("^%{_bindir}", "%attr(755,root,root) %{_bindir}") | |
eedfe25e ER |
1416 | |
1417 | # uid/gid nobody is not valid in %files | |
1418 | if (/%attr([^)]*nobody[^)]*)/ && !/FIXME/) { | |
1419 | $0 = $0 " # FIXME nobody user/group can't own files! -adapter.awk" | |
1420 | } | |
1421 | ||
1422 | # s[gu]id programs with globs are evil | |
1423 | if (/%attr\([246]...,.*\*/ && !/FIXME/) { | |
1424 | $0 = $0 " # FIXME no globs for suid/sgid files" | |
1425 | } | |
1426 | ||
1427 | # replace back | |
1428 | gsub("%{_sysconfdir}/cron\.d", "/etc/cron.d") | |
1429 | gsub("%{_sysconfdir}/crontab\.d", "/etc/crontab.d") | |
1430 | gsub("%{_sysconfdir}/logrotate\.d", "/etc/logrotate.d") | |
1431 | gsub("%{_sysconfdir}/pam\.d", "/etc/pam.d") | |
1432 | gsub("%{_sysconfdir}/profile\.d", "/etc/profile.d") | |
1433 | gsub("%{_sysconfdir}/rc\.d", "/etc/rc.d") | |
1434 | gsub("%{_sysconfdir}/security", "/etc/security") | |
1435 | gsub("%{_sysconfdir}/skel", "/etc/skel") | |
1436 | gsub("%{_sysconfdir}/sysconfig", "/etc/sysconfig") | |
1437 | gsub("%{_sysconfdir}/certs", "/etc/certs") | |
1438 | gsub("%{_sysconfdir}/init.d", "/etc/init.d") | |
0731341f | 1439 | gsub("%{_sysconfdir}/dbus-1", "/etc/dbus-1") |
eedfe25e ER |
1440 | |
1441 | # /etc/init.d -> /etc/rc.d/init.d | |
1442 | if (!/^\/etc\/init\.d$/) { | |
1443 | gsub("/etc/init.d", "/etc/rc.d/init.d") | |
1444 | } | |
1445 | ||
1446 | if (/\/etc\/rc\.d\/init\.d\// && !/functions/) { | |
1447 | if (!/%attr.*\/etc\/rc\.d\/init\.d/) { | |
1448 | $0 = "%attr(754,root,root) " $0 | |
1449 | } | |
1450 | if (/^%attr.*\/etc\/rc\.d\/init\.d/ && !/^%attr\(754 *,/) { | |
1451 | gsub("^%attr\\(... *,", "%attr(754,"); | |
1452 | } | |
1453 | } | |
1454 | ||
1455 | if (/lib.+\.so/ && !/\.so$/ && !/^%attr.*/ && !/%exclude/) { | |
1456 | $0 = "%attr(755,root,root) " $0 | |
1457 | } | |
1458 | ||
1459 | if (/%{perl_vendorarch}.*\.so$/ && !/^%attr.*/) { | |
1460 | $0 = "%attr(755,root,root) " $0 | |
1461 | } | |
1462 | ||
1463 | # /etc/sysconfig files | |
1464 | # %attr(640,root,root) %config(noreplace) %verify(not size mtime md5) /etc/sysconfig/* | |
1465 | # attr not required, allow default 644 attr | |
1466 | if (!/network-scripts/ && !/%dir/ && !/\.d$/ && !/functions/ && !/\/etc\/sysconfig\/wmstyle/) { | |
1467 | if (/\/etc\/sysconfig\// && /%config/ && !/%config\(noreplace/) { | |
1468 | gsub("%config", "%config(noreplace)") | |
1469 | } | |
1470 | ||
1471 | if (/\/etc\/sysconfig\// && !/%config\(noreplace/) { | |
1472 | $NF = "%config(noreplace) " $NF | |
1473 | } | |
1474 | ||
1475 | if (/\/etc\/sysconfig\// && /%attr\(755/) { | |
1476 | gsub("^%attr\\(... *,", "%attr(640,"); | |
1477 | } | |
1478 | ||
1479 | if (/\/etc\/sysconfig\// && !/%verify/) { | |
1480 | gsub("/etc/sysconfig", "%verify(not size mtime md5) /etc/sysconfig"); | |
1481 | } | |
1482 | } | |
1483 | ||
1484 | # kill leading zeros | |
1485 | if (/%attr\(0[1-9]/) { | |
1486 | gsub("%attr\\(0", "%attr(") | |
1487 | } | |
1488 | ||
0731341f ER |
1489 | # kill leading whitespace |
1490 | gsub(/^ +/, ""); | |
1491 | ||
1492 | # kill default attrs | |
1493 | gsub(/%dir %attr\(755,root,root\)/, "%dir"); | |
1494 | gsub(/%attr\(755,root,root\) %dir/, "%dir"); | |
1495 | if (!/%dir/) { | |
1496 | gsub(/%attr\(644,root,root\) /, ""); | |
1497 | } | |
eedfe25e ER |
1498 | |
1499 | # sort %verify attrs | |
1500 | if (match($0, /%verify\(not([^)]+)\)/)) { | |
1501 | t = substr($0, RSTART, RLENGTH) | |
1502 | # kill commas: %verify(not,md5,size,mtime) | |
1503 | gsub(/,/, " ", t); | |
1504 | ||
1505 | gsub(/^%verify\(not |\)$/, "", t) | |
1506 | n = split(t, a, / /) | |
1507 | isort(a, n) | |
1508 | ||
1509 | s = "%verify(not" | |
1510 | for (i = 1 ; i <= n; i++) { | |
1511 | s = s " " a[i] | |
1512 | } | |
1513 | s = s ")" | |
1514 | ||
1515 | gsub(/%verify\(not[^)]+\)/, s) | |
1516 | } | |
1517 | ||
1518 | if (/%{_mandir}/) { | |
1519 | gsub("\.gz$", "*") | |
1520 | } | |
1521 | ||
1522 | # locale dir and no %lang -> bad | |
1523 | if (/%{_datadir}\/locale\/.*\// && !/%(dir|lang)/) { | |
1524 | $(NF + 1) = "# FIXME consider using %find_lang" | |
1525 | } | |
1526 | ||
1527 | # atrpms | |
1528 | $0 = fixedsub("%{perl_man1dir}", "%{_mandir}/man1", $0); | |
1529 | $0 = fixedsub("%{perl_man3dir}", "%{_mandir}/man3", $0); | |
1530 | $0 = fixedsub("%{perl_bin}", "%{_bindir}", $0); | |
1531 | ||
1532 | gsub(libdir "/pkgconfig", "%{_pkgconfigdir}"); | |
1533 | gsub("%{_libdir}/pkgconfig", "%{_pkgconfigdir}"); | |
1534 | gsub("%{_prefix}/lib/pkgconfig", "%{_pkgconfigdir}"); | |
1535 | ||
1536 | gsub("%{_datadir}/applications", "%{_desktopdir}"); | |
1537 | gsub("%{_datadir}/icons", "%{_iconsdir}"); | |
1538 | gsub("%{_datadir}/pixmaps", "%{_pixmapsdir}"); | |
1539 | } | |
1540 | ||
1541 | function use_script_macros() | |
1542 | { | |
1543 | if (gsub("/sbin/service", "%service")) { | |
1544 | sub(" >/dev/null 2>&1 \|\|:", ""); | |
1545 | sub(" 2> /dev/null \|\| :", ""); | |
1546 | } | |
c77ca889 | 1547 | } |
1548 | ||
1549 | function fill(ch, n, i) { | |
1550 | for (i = 0; i < n; i++) | |
1551 | printf("%c", ch) | |
1552 | } | |
1553 | ||
1554 | function format_flush(line, indent, newline, word, first_word) { | |
1555 | first_word = 1 | |
eedfe25e | 1556 | if (format_indent == -1) |
c77ca889 | 1557 | newline = "" |
1558 | else | |
1559 | newline = fill(" ", format_indent) "- " | |
1560 | ||
1561 | while (match(line, /[^\t ]+/)) { | |
1562 | word = substr(line, RSTART, RLENGTH) | |
1563 | if (length(newline) + length(word) + 1 > tw) { | |
1564 | print newline | |
eedfe25e | 1565 | |
c77ca889 | 1566 | if (format_indent == -1) |
1567 | newline = "" | |
1568 | else | |
1569 | newline = fill(" ", format_indent + 2) | |
1570 | first_word = 1 | |
1571 | } | |
1572 | ||
1573 | if (first_word) { | |
1574 | newline = newline word | |
1575 | first_word = 0 | |
1576 | } else | |
1577 | newline = newline " " word | |
eedfe25e | 1578 | |
c77ca889 | 1579 | line = substr(line, RSTART + RLENGTH) |
1580 | } | |
1581 | if (newline ~ /[^\t ]/) { | |
1582 | print newline | |
1583 | } | |
1584 | } | |
1585 | ||
1586 | function cflags(var) | |
1587 | { | |
1588 | if ($0 == var "=\"$RPM_OPT_FLAGS\"") { | |
1589 | removed[var] = 1 | |
1590 | return 0 | |
1591 | } | |
eedfe25e | 1592 | |
c77ca889 | 1593 | if (!/!\?debug/) |
1594 | sub("\$RPM_OPT_FLAGS", "%{rpmcflags}") | |
1595 | return 1 | |
1596 | } | |
1597 | ||
eedfe25e ER |
1598 | function demacroize(str) |
1599 | { | |
1600 | if (mod_name) { | |
1601 | sub("%{mod_name}", mod_name, str); | |
1602 | } | |
1603 | if (name) { | |
1604 | sub("%{name}", name, str); | |
1605 | } | |
1606 | if (version) { | |
1607 | sub("%{version}", version, str); | |
1608 | } | |
1609 | if (_beta) { | |
1610 | sub("%{_beta}", _beta, str); | |
1611 | } | |
1612 | if (_rc) { | |
1613 | sub("%{_rc}", _rc, str); | |
1614 | } | |
1615 | if (_pre) { | |
1616 | sub("%{_pre}", _pre, str); | |
1617 | } | |
1618 | if (_snap) { | |
1619 | sub("%{_snap}", _snap, str); | |
1620 | } | |
4008d7de ER |
1621 | if (subver) { |
1622 | sub("%{subver}", subver, str); | |
1623 | } | |
eedfe25e ER |
1624 | return str; |
1625 | } | |
1626 | ||
1627 | function kill_preamble_macros() | |
1628 | { | |
1629 | if ($1 ~ /^URL:/ || $1 ~ /^Obsoletes:/) { | |
1630 | # NB! assigning $2 a value breaks tabbing | |
1631 | $2 = demacroize($2); | |
1632 | # unify sourceforge url | |
1633 | sub("\.sf\.net/$", ".sourceforge.net/", $2); | |
1634 | } | |
1635 | } | |
1636 | ||
1637 | function get_epoch(pkg, ver, epoch) | |
1638 | { | |
1639 | return | |
1640 | # should parse the BR lines more adequately: | |
1641 | # freetype = 2.0.0 -> correct | |
1642 | # freetype = 2.1.9 -> with epoch 1, as epoch 1 was added in 2.1.7 | |
1643 | ||
1644 | shell = "grep -o '^" pkg ":[^:]\+' ../PLD-doc/BuildRequires.txt | awk '{print $NF}'"; | |
1645 | shell | getline epoch; | |
1646 | return epoch; | |
1647 | } | |
1648 | ||
1649 | function format_requires(tag, value, n, p, i, deps, ndeps) { | |
1650 | # skip any formatting for commented out items or some weird macros | |
1651 | if (/^#/ || /%\(/) { | |
1652 | return tag "\t" value | |
1653 | } | |
1654 | n = split(value, p, / *,? */); | |
1655 | for (i = 1; i <= n; i++) { | |
1656 | if (p[i+1] ~ /[<=>]/) { | |
1657 | # add epoch if the version doesn't have it but BuildRequires.txt has | |
1658 | if (p[i] ~ /^[a-z]/ && p[i+2] !~ /^[0-9]+:/) { | |
1659 | epoch = get_epoch(p[i], p[i+2]) | |
1660 | if (epoch) { | |
1661 | p[i+2] = epoch ":" p[i+2]; | |
1662 | } | |
1663 | } | |
1664 | deps[ndeps++] = p[i] " " p[i+1] " " p[i+2]; | |
1665 | i += 2; | |
1666 | } else { | |
1667 | deps[ndeps++] = p[i]; | |
1668 | } | |
1669 | } | |
1670 | s = "" | |
1671 | for (i in deps) { | |
1672 | s = s sprintf("%s\t%s\n", tag, deps[i]); | |
1673 | } | |
1674 | return substr(s, 1, length(s)-1); | |
1675 | } | |
1676 | ||
1677 | function use_tabs() | |
1678 | { | |
1679 | # reverse vim: ts=4 sw=4 et | |
1680 | gsub(/ /, "\t"); | |
1681 | } | |
1682 | ||
1683 | function add_br(br) | |
1684 | { | |
0731341f | 1685 | BR[BR_count++] = br |
eedfe25e ER |
1686 | } |
1687 | ||
4008d7de ER |
1688 | function replace_requires() |
1689 | { | |
1690 | ||
1691 | # jpackages | |
1692 | sub(/^java-devel$/, "jdk", $2); | |
1693 | sub(/^log4j$/, "logging-log4j", $2); | |
1694 | sub(/^jakarta-log4j$/, "logging-log4j", $2); | |
1695 | sub(/^oro$/, "jakarta-oro", $2); | |
1696 | sub(/^jakarta-ant$/, "ant", $2); | |
1697 | sub(/^xerces-j2$/, "xerces-j", $2); | |
1698 | sub(/^ldapjdk$/, "ldapsdk", $2); | |
1699 | sub(/^saxon-scripts$/, "saxon", $2); | |
1700 | sub(/^xalan-j2$/, "xalan-j", $2); | |
1701 | sub(/^xerces-j2$/, "xerces-j", $2); | |
1702 | sub(/^gnu-regexp$/, "gnu.regexp", $2); | |
1703 | ||
1704 | # redhat virtual | |
1705 | sub(/^tftp-server$/, "tftpdaemon", $2); | |
1706 | ||
1707 | sub(/^gcc-c\+\+$/, "libstdc++-devel", $2); | |
1708 | ||
1709 | replace_php_virtual_deps() | |
1710 | } | |
1711 | ||
eedfe25e ER |
1712 | # php virtual deps as discussed in devel-en |
1713 | function replace_php_virtual_deps() | |
1714 | { | |
0731341f ER |
1715 | pkg = $2 |
1716 | # if (pkg == "php-program") { | |
1717 | # $0 = $1 "\t/usr/bin/php" | |
1718 | # return | |
1719 | # } | |
1720 | ||
1721 | # if (pkg ~ /^php-[a-z]/ && pkg !~ /^php-(pear|common|cli|devel|fcgi|cgi|dirs|program|pecl-)/) { | |
1722 | # sub(/^php-/, "php(", pkg); | |
1723 | # sub(/$/, ") # verify this correctness -- it may be wanted to use specific not virtual dep", pkg); | |
1724 | # $2 = pkg | |
1725 | # } | |
1726 | ||
1727 | if (pkg ~/^php$/) { | |
1728 | $2 = "webserver(php)"; | |
1729 | if ($4 ~ /^[0-9]:/) { | |
1730 | $4 = substr($4, 3); | |
1731 | } | |
1732 | } | |
1733 | ||
1734 | if (pkg ~/^php4$/) { | |
1735 | $2 = "webserver(php)"; | |
1736 | if ($4 ~ /^[0-9]:/) { | |
1737 | $4 = substr($4, 3); | |
1738 | } | |
1739 | } | |
eedfe25e ER |
1740 | } |
1741 | ||
0731341f | 1742 | # vim:ts=4:sw=4 |