adapter.awk

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