adapter.awk

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