]> git.pld-linux.org Git - packages/adapter.git/blobdiff - adapter.awk
- Networking/Daemons/HTTP
[packages/adapter.git] / adapter.awk
index bb4f0bb3125ad7d9df355076a4866b64b2a21c72..d2403cb1c8985bc182d8816db4df93069a8122cb 100644 (file)
@@ -1,22 +1,23 @@
-#!/bin/awk -f
+#!/usr/bin/gawk -f
 #
-# This is adapter v0.28. Adapter adapts .spec files for PLD Linux.
-# $Id$
+# Adapter adapts .spec files for PLD Linux.
 #
-# Copyright (C) 1999-2006 PLD-Team <feedback@pld-linux.org>
+# Copyright (C) 1999-2007 PLD-Team <feedback@pld-linux.org>
 # Authors:
-#      Micha³ Kuratczyk <kura@pld.org.pl>
+#      Michał Kuratczyk <kura@pld.org.pl>
 #      Sebastian Zagrodzki <s.zagrodzki@mimuw.edu.pl>
-#      Tomasz K³oczko <kloczek@rudy.mif.pg.gda.pl>
+#      Tomasz Kłoczko <kloczek@rudy.mif.pg.gda.pl>
 #      Artur Frysiak <wiget@pld-linux.org>
 #      Michal Kochanowicz <mkochano@pld.org.pl>
-#      Elan Ruusamä¤e <glen@pld-linux.org>
+#      Jakub Bogusz <qboosh@pld-linux.org>
+#      Elan Ruusamäe <glen@pld-linux.org>
 #
 # See cvs log adapter{,.awk} for list of contributors
 #
 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
 
 # TODO
+# - really long sourceX make preamble sorting totally fcked up (try snake.spec r1.1)
 # - parse ../PLD-doc/BuildRequires.txt and setup proper BR epoches?
 # - add "-nc" option to skip CVS interaction
 # - sort Summary(XX)
@@ -28,7 +29,13 @@ BEGIN {
        RPM_SECTIONS = "package|build|changelog|clean|description|install|post|posttrans|postun|pre|prep|pretrans|preun|triggerin|triggerpostun|triggerun|verifyscript|check"
        SECTIONS = "^%(" RPM_SECTIONS ")"
 
-       PREAMBLE_TAGS = "(Summary|Name|Version|Release|Epoch|License|Group|URL|BuildArch|BuildRoot|Obsoletes|Conflicts|Provides|ExclusiveArch|ExcludeArch|Pre[Rr]eq|(Build)?Requires)"
+       RCSID = "$Id$"
+       rev = RCSID # TODO: parse from RCSID
+       VERSION = "0.31/" rev
+
+       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)"
+
+       usedigest = 0   # Enable to switch to rpm 4.4.6+ md5 digests
 
        preamble = 1    # Is it part of preamble? Default - yes
        boc = 4                 # Beginning of %changelog
@@ -73,8 +80,10 @@ BEGIN {
        "rpm --eval %_examplesdir"      | getline examplesdir
        "rpm --eval %_defaultdocdir"    | getline docdir
        "rpm --eval %_kdedocdir"        | getline kdedocdir
+       "rpm --eval %_gtkdocdir"        | getline gtkdocdir
        "rpm --eval %_desktopdir" | getline desktopdir
        "rpm --eval %_pixmapsdir" | getline pixmapsdir
+       "rpm --eval %_javadir" | getline javadir
 
        "rpm --eval %perl_sitearch" | getline perl_sitearch
        "rpm --eval %perl_archlib" | getline perl_archlib
@@ -86,6 +95,7 @@ BEGIN {
        "rpm --eval %py_sitescriptdir 2>/dev/null" | getline py_sitescriptdir
        "rpm --eval %py_sitedir 2>/dev/null" | getline py_sitedir
        "rpm --eval %py_scriptdir 2>/dev/null" | getline py_scriptdir
+       "rpm --eval %py_ver 2>/dev/null" | getline py_ver
 
        "rpm --eval %ruby_archdir" | getline ruby_archdir
        "rpm --eval %ruby_ridir" | getline ruby_ridir
@@ -94,6 +104,7 @@ BEGIN {
        "rpm --eval %ruby_sitelibdir" | getline ruby_sitelibdir
 
        "rpm --eval %php_pear_dir" | getline php_pear_dir
+       "rpm --eval %php_data_dir" | getline php_data_dir
        "rpm --eval %tmpdir" | getline tmpdir
 }
 
@@ -140,10 +151,12 @@ function b_makekey(a, b,  s) {
 
        gsub(/^BuildRequires/, "B1BuildRequires", s);
        gsub(/^BuildConflicts/, "B2BuildConflicts", s);
-       gsub(/^Provides/, "X1Provides", s);
-       gsub(/^Obsoletes/, "X2Obsoletes", s);
-       gsub(/^Conflicts/, "X3Conflicts", s);
-       gsub(/^BuildArch/, "X4BuildArch", s);
+
+       gsub(/^Suggests/, "X1Suggests", s);
+       gsub(/^Provides/, "X2Provides", s);
+       gsub(/^Obsoletes/, "X3Obsoletes", s);
+       gsub(/^Conflicts/, "X4Conflicts", s);
+       gsub(/^BuildArch/, "X5BuildArch", s);
        gsub(/^ExclusiveArch/, "X6ExclusiveArch", s);
        gsub(/^ExcludeArch/, "X7ExcludeArch", s);
        gsub(/^BuildRoot/, "X9BuildRoot", s);
@@ -165,7 +178,11 @@ function b_makekey(a, b,   s) {
        # Generally, comments are printed without touching
        sub(/[ \t]+$/, "")
 
-       if (/Source.*md5/) {
+       if (/#[ \t]*Source.*md5/) {
+               if (usedigest == 1) {
+                       sub(/^#[ \t]*Source/, "BuildRequires:\tdigest(%SOURCE", $0)
+                       sub(/-md5[ \t]*:[ \t]*/, ") = ", $0)
+               }
                print $0
                next
        }
@@ -241,6 +258,8 @@ function b_makekey(a, b,    s) {
                _pre = $3
        if ($2 ~ /^_snap$/)
                _snap = $3
+       if ($2 ~ /^subver$/)
+               subver = $3
 
        # these are used usually when adapterizing external spec
        if ($2 ~ /^name$/)
@@ -342,6 +361,9 @@ function b_makekey(a, b,    s) {
                if (_snap) {
                        $0 = fixedsub(_snap, "%{_snap}", $0);
                }
+               if (subver) {
+                       $0 = fixedsub(subver, "%{subver}", $0);
+               }
        }
 
        if (/^%setup/ && /-n %{name}-%{version}( |$)/) {
@@ -512,7 +534,9 @@ function b_makekey(a, b,    s) {
        if ($0 ~ /^%files/)
                defattr = 1
 
-       use_files_macros()
+       if (!use_files_macros()) {
+               next
+       }
 }
 
 ##############
@@ -524,24 +548,27 @@ function b_makekey(a, b,  s) {
        skip = 0
        # There should be some CVS keywords on the first line of %changelog.
        if (boc == 3) {
-               if ($0 !~ _cvsmailfeedback)
+               if ($0 !~ _cvsmailfeedback) {
                        print "* %{date} " _cvsmailfeedback > changelog_file
-               else
+               } else {
                        skip = 1
+               }
                boc = 2
        }
        if (boc == 2 && !skip) {
                if (!/All persons listed below/) {
                        printf "All persons listed below can be reached at " > changelog_file
                        print "<cvs_login>" _cvsmaildomain "\n" > changelog_file
-               } else
+               } else {
                        skip = 1
+               }
                boc = 1
        }
        if (boc == 1 && !skip) {
                if (!/^$/) {
-                       if (!/\$.*Log:.*\$/)
+                       if (!/\$.*Log:.*\$/) {
                                print "$" "Log:$" > changelog_file
+                       }
                        boc = 0
                }
        }
@@ -555,11 +582,19 @@ function b_makekey(a, b,  s) {
                boc = 3
        }
 
-       sub(/[ \t]+$/, "")
-       if (!/^%[a-z]+$/ || /changelog/)
+       sub(/[ \t]+$/, "");
+       if (!/^%[a-z]+$/ || /changelog/) {
+               # stop changelog if "real" changelog starts
+               if (boc == 0 && /^\* /) {
+                       boc = -1
+               }
+               if (boc == -1) {
+                       next;
+               }
                print > changelog_file
-       else
+       } else {
                print
+       }
        next
 }
 
@@ -589,7 +624,7 @@ function b_makekey(a, b,    s) {
 }
 /^%preun/, (!/^%preun/ && $0 ~ SECTIONS) {
        preamble = 0
-       use_script_macros()
+       use_macros()
 }
 /^%postun/, (!/^%postun/ && $0 ~ SECTIONS) {
        preamble = 0
@@ -640,7 +675,7 @@ preamble == 1 {
 
        field = tolower($1)
        fieldnlower = $1
-       if (field ~ /summary:/ && !/etc\.$/) {
+       if (field ~ /summary:/ && !/etc\.$/ && !/Inc\.$/) {
                sub(/\.$/, "", $0);
        }
        if (field ~ /group(\([^)]+\)):/)
@@ -649,44 +684,7 @@ preamble == 1 {
                format_preamble()
                group = $0;
                sub(/^[^ \t]*[ \t]*/, "", group);
-
-               sub(/^Utilities\//,"Applications/", group)
-               sub(/^Games/,"Applications/Games", group)
-               sub(/^X11\/Games/,"X11/Applications/Games", group)
-               sub(/^X11\/GNOME\/Development\/Libraries/,"X11/Development/Libraries", group)
-               sub(/^X11\/GNOME\/Applications/,"X11/Applications", group)
-               sub(/^X11\/GNOME/,"X11/Applications", group)
-               sub(/^X11\/Utilities/,"X11/Applications", group)
-               sub(/^X11\/Games\/Strategy/,"X11/Applications/Games/Strategy", group)
-               sub(/^X11\/Library/,"X11/Libraries", group)
-               sub(/^Shells/,"Applications/Shells", group)
-               sub(/^System Environment\/Libraries$/, "Libraries", group)
-               sub(/^Library\/Development$/, "Development/Libraries", group)
-               sub(/^System Environment\/Daemons$/, "Daemons", group)
-               sub(/^Applications\/Internet$/, "Applications/Networking", group)
-               sub(/^Applications\/Daemons$/, "Daemons", group)
-               sub(/^Application\/Multimedia$/, "Applications/Multimedia", group)
-               sub(/^System\/Servers$/, "Daemons", group)
-               sub(/^X11\/Xserver$/, "X11/Servers", group)
-               sub(/^X11\/XFree86/, "X11", group)
-               sub(/^Applications\/Compilers$/, "Development/Languages", group)
-               sub(/^Applications\/Internet\/Peer to Peer/, "Applications/Networking", group)
-               sub(/^Networking\/Deamons$/, "Networking/Daemons", group)
-               sub(/^Development\/Docs$/, "Documentation", group)
-               sub(/^Development\/Documentation$/, "Documentation", group)
-               sub(/^System Environment\/Kernel$/, "Base/Kernel", group)
-               sub(/^Development\/Libraries\/Java$/, "Development/Languages/Java", group)
-               sub(/^Development\/Java/, "Development/Languages/Java", group)
-               sub(/^Development\/Testing$/, "Development", group)
-               sub(/^Text Processing\/Markup\/HTML$/, "Applications/Text", group)
-               sub(/^Text Processing\/Markup\/XML$/, "Applications/Text", group)
-               sub(/^Web\/Database$/, "Applications/WWW", group)
-               sub(/^System Environment\/Base$/, "Base", group)
-               sub(/^System$/, "Base", group)
-               sub(/^Applications\/Productivity$/, "X11/Applications", group)
-               sub(/^Database$/, "Applications/Databases", group)
-               sub(/^Development\/Code Generators$/, "Development", group)
-
+               group = replace_groupnames(group);
                $0 = "Group:\t\t" group
 
                if (group ~ /^X11/ && x11 == 0) # Is it X11 application?
@@ -744,24 +742,11 @@ preamble == 1 {
                        next
                }
 
-               # perhaps we have common known name?
-
-               # jpackages
-               sub(/^java-devel$/, "jdk", $2);
-               sub(/^log4j$/, "jakarta-log4j", $2);
-               sub(/^oro$/, "jakarta-oro", $2);
-               sub(/^jakarta-ant$/, "ant", $2);
-               sub(/^xerces-j2$/, "xerces-j", $2);
-               sub(/^ldapjdk$/, "ldapsdk", $2);
-               sub(/^saxon-scripts$/, "saxon", $2);
-               sub(/^xalan-j2$/, "xalan-j", $2);
-               sub(/^xerces-j2$/, "xerces-j", $2);
-
-               replace_php_virtual_deps();
+               replace_requires();
        }
 
        if (field ~ /^requires:/) {
-               replace_php_virtual_deps();
+               replace_requires();
        }
 
 
@@ -785,6 +770,24 @@ preamble == 1 {
                if (l == "Python Software Foundation License") {
                        l = "PSF"
                }
+               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") {
+                       l = "Apache v2.0"
+               }
+               if (l == "Apache Group License" || l == "Apache Software License" || l == "Apache License") {
+                       l = "Apache"
+               }
+               if (l == "Apache-style License" || l == "Apache-style Software License") {
+                       l = "Apache-like"
+               }
+               if (l == "Apache Software License 1.1" || l == "Apache 1.1") {
+                       l = "Apache v1.1"
+               }
+               if (l == "GPLv2") {
+                       l = "GPL v2"
+               }
+               if (l == "GPLv2+") {
+                       l = "GPL v2+"
+               }
                $0 = "License:\t" l;
        }
 
@@ -892,24 +895,14 @@ preamble == 1 {
                        if (_snap) {
                                url[n] = fixedsub(_snap, "%{_snap}", url[n])
                        }
+                       if (subver) {
+                               url[n] = fixedsub(subver, "%{subver}", url[n])
+                       }
                }
                # assigning to $2 kills preamble formatting
                $2 = fixedsub(filename, url[n], $2)
 
-               # sourceforge urls
-               sub("[?&]big_mirror=.*$", "", $2);
-               sub("[?&]modtime=.*$", "", $2);
-
-               sub("[?]use_mirror=.*$", "", $2);
-               sub("[?]download$", "", $2);
-
-               sub("^http://prdownloads\.sourceforge\.net/", "http://dl.sourceforge.net/", $2)
-               sub("^http://download\.sf\.net/", "http://dl.sourceforge.net/", $2)
-               sub("^http://downloads\.sourceforge\.net/", "http://dl.sourceforge.net/", $2)
-
-               sub("^http://.*\.dl\.sourceforge\.net/", "http://dl.sourceforge.net/", $2)
-               sub("^http://dl\.sourceforge\.net/sourceforge/", "http://dl.sourceforge.net/", $2)
-               sub("^http://dl\.sf\.net/", "http://dl.sourceforge.net/", $2)
+               $2 = unify_url($2)
        }
 
 
@@ -945,6 +938,12 @@ ENVIRON["SKIP_SORTBR"] != 1 && preamble == 1 && $0 ~ PREAMBLE_TAGS, $0 ~ PREAMBL
        if ($1 ~ /Pre[Rr]eq:/) {
                sub(/Pre[Rr]eq:/, "Requires:", $1);
        }
+       if ($1 == "BR:" ) {
+               $1 = "BuildRequires:"
+       }
+       if ($1 == "R:" ) {
+               $1 = "Requires:"
+       }
        format_preamble()
 #      kill_preamble_macros(); # breaks tabbing
 
@@ -1108,6 +1107,10 @@ function use_macros()
 
        gsub("%{_datadir}/applications", "%{_desktopdir}")
        gsub("%{_datadir}/pixmaps", "%{_pixmapsdir}")
+       gsub("%{_datadir}/java", "%{_javadir}")
+
+       gsub(libdir, "%{_libdir}")
+       gsub(javadir, "%{_javadir}")
 
        gsub(bindir, "%{_bindir}")
        gsub("%{prefix}/bin", "%{_bindir}")
@@ -1146,7 +1149,9 @@ function use_macros()
                        continue;
                if ($c ~ sysconfdir "/{?modprobe.(d|conf)")
                        continue;
-               if ($c ~ sysconfdir "/{?udev/rules.d")
+               if ($c ~ sysconfdir "/{?udev")
+                       continue;
+               if ($c ~ sysconfdir "/{?hotplug")
                        continue;
                if ($c ~ sysconfdir "/{?logrotate.d")
                        continue;
@@ -1180,12 +1185,22 @@ function use_macros()
                        continue;
                if ($c ~ sysconfdir "/ppp")
                        continue;
+               if ($c ~ sysconfdir "/dbus-1")
+                       continue;
+               if ($c ~ sysconfdir "/tmpwatch")
+                       continue;
                gsub(sysconfdir, "%{_sysconfdir}", $c)
        }
 
-       gsub(kdedocdir, "%{_kdedocdir}")
        gsub(docdir, "%{_docdir}")
+
+       gsub(kdedocdir, "%{_kdedocdir}")
+
+       gsub(gtkdocdir, "%{_gtkdocdir}")
+       gsub("%{_docdir}/gtk-doc/html", "%{_gtkdocdir}")
+
        gsub(php_pear_dir, "%{php_pear_dir}")
+       gsub(php_data_dir, "%{php_data_dir}")
 
        for (c = 1; c <= NF; c++) {
                if ($c ~ datadir "/automake")
@@ -1276,6 +1291,7 @@ function use_macros()
        gsub("^make$", "%{__make}")
        gsub("^make ", "%{__make} ")
        gsub("^gcc ", "%{__cc} ")
+       gsub("^rm --interactive=never ", "%{__rm} ")
 
        # mandrake specs
        gsub("^%make$", "%{__make}")
@@ -1285,15 +1301,15 @@ function use_macros()
        gsub("^%makeinstall", "%{__make} install \\\n\tDESTDIR=$RPM_BUILD_ROOT")
        gsub("^%{__rm} -rf %{buildroot}", "rm -rf $RPM_BUILD_ROOT")
        gsub("^%{__install}", "install")
-       gsub("^%{__rm}", "rm")
        gsub("%optflags", "%{rpmcflags}")
        gsub("%{compat_perl_vendorarch}", "%{perl_vendorarch}")
 
        gsub("^%{__make} install DESTDIR=\$RPM_BUILD_ROOT", "%{__make} install \\\n\tDESTDIR=$RPM_BUILD_ROOT")
-       gsub("^fix-info-dir$", "[ ! -x /usr/sbin/fix-info-dir ] || /usr/sbin/fix-info-dir -c %{_infodir} >/dev/null 2>\&1")
+       gsub("^fix-info-dir$", "[ ! -x /usr/sbin/fix-info-dir ] || /usr/sbin/fix-info-dir -c %{_infodir} >/dev/null 2>\\&1")
        $0 = fixedsub("%buildroot", "$RPM_BUILD_ROOT", $0)
        $0 = fixedsub("%{buildroot}", "$RPM_BUILD_ROOT", $0)
        $0 = fixedsub("CXXFLAGS=%{rpmcflags} %configure", "CXXFLAGS=%{rpmcflags}\n%configure", $0);
+       $0 = fixedsub("%__install", "install", $0);
 
        # split configure line to multiple lines
        if (/%configure / && !/\\$/) {
@@ -1317,12 +1333,15 @@ function use_macros()
        gsub("/usr/src/linux", "%{_kernelsrcdir}")
        gsub("%{_prefix}/src/linux", "%{_kernelsrcdir}")
 
-       if (/^ant /) {
+       if (/^ant / || /^%{ant}/) {
                sub(/^ant/, "%ant")
+               sub(/^%{ant}/, "%ant")
                add_br("BuildRequires:  jpackage-utils");
                add_br("BuildRequires:  rpmbuild(macros) >= 1.300");
        }
 
+       $0 = fixedsub("%(%{__cc} -dumpversion)", "%{cc_version}", $0);
+       $0 = fixedsub("%(%{__cxx} -dumpversion)", "%{cxx_version}", $0);
 }
 
 function format_configure(line,                n, a, s) {
@@ -1349,13 +1368,13 @@ function isort(A,n,             i,j,hold) {
 }
 
 
-function use_files_macros(     i, n, t, a)
+function use_files_macros(     i, n, t, a, l)
 {
        use_macros()
 
        # skip comments
        if (/^#/) {
-               return;
+               return 1;
        }
 
        sub("^%doc %{_mandir}", "%{_mandir}")
@@ -1385,6 +1404,9 @@ function use_files_macros(        i, n, t, a)
        gsub("%{_sysconfdir}/sysconfig", "/etc/sysconfig")
        gsub("%{_sysconfdir}/certs", "/etc/certs")
        gsub("%{_sysconfdir}/init.d", "/etc/init.d")
+       gsub("%{_sysconfdir}/dbus-1", "/etc/dbus-1")
+       gsub("%{_sysconfdir}/pki", "/etc/pki")
+       gsub("%{_sysconfdir}/tmpwatch", "/etc/tmpwatch")
 
        # /etc/init.d -> /etc/rc.d/init.d
        if (!/^\/etc\/init\.d$/) {
@@ -1434,6 +1456,9 @@ function use_files_macros(        i, n, t, a)
                gsub("%attr\\(0", "%attr(")
        }
 
+       # kill leading whitespace
+       gsub(/^ +/, "");
+
        # kill default attrs
        gsub(/%dir %attr\(755,root,root\)/, "%dir");
        gsub(/%attr\(755,root,root\) %dir/, "%dir");
@@ -1469,6 +1494,32 @@ function use_files_macros(       i, n, t, a)
                $(NF + 1) = "# FIXME consider using %find_lang"
        }
 
+       # python egg-infos
+       if (match($0, "^%{py_site(script)?dir}/.+-py"py_ver".egg-info$")) {
+               # tests:
+               #%{py_sitedir}/*-py2.4.egg-info
+               #%{py_sitescriptdir}/GnuPGInterface-%{version}-py2.4.egg-info
+               #%{py_sitescriptdir}/python_mpd-%{version}-py2.4.egg-info
+               #%{py_sitescriptdir}/mechanize-0.1.6b-py2.4.egg-info
+
+               l = index($0, "/");
+               t = substr($0, 0, l);
+               s = substr($0, l + 1, RLENGTH - l - length("-py"py_ver".egg-info"));
+               if (match(s, "[^-]+$")) {
+#printf("s[%s]; start[%d]; length[%d]\n", s, RSTART, RLENGTH);
+                       if (RSTART > 1) {
+                               s = substr(s, 0, RSTART - 1);
+                       }
+#printf("s2[%s]\n", s);
+                       print "%if \"%{py_ver}\" > \"2.4\""
+#print t "/.+.egg-info"
+                       gsub(t "/.+.egg-info", t "/" s "-*.egg-info");
+                       print
+                       print "%endif"
+                       return 0;
+               }
+       }
+
        # atrpms
        $0 = fixedsub("%{perl_man1dir}", "%{_mandir}/man1", $0);
        $0 = fixedsub("%{perl_man3dir}", "%{_mandir}/man3", $0);
@@ -1481,6 +1532,10 @@ function use_files_macros(       i, n, t, a)
        gsub("%{_datadir}/applications", "%{_desktopdir}");
        gsub("%{_datadir}/icons", "%{_iconsdir}");
        gsub("%{_datadir}/pixmaps", "%{_pixmapsdir}");
+       gsub("%{_datadir}/pear", "%{php_pear_dir}");
+       gsub("%{_datadir}/php", "%{php_data_dir}");
+
+       return 1
 }
 
 function use_script_macros()
@@ -1540,6 +1595,37 @@ function cflags(var)
        return 1
 }
 
+function unify_url(url)
+{
+
+       # sourceforge urls
+       sub("[?&]big_mirror=.*$", "", url);
+       sub("[?&]modtime=.*$", "", url);
+       sub("[?]use_mirror=.*$", "", url);
+       sub("[?]download$", "", url);
+
+       sub("^http://prdownloads\.sourceforge\.net/", "http://dl.sourceforge.net/", url)
+       sub("^http://download\.sf\.net/", "http://dl.sourceforge.net/", url)
+       sub("^http://download\.sourceforge\.net/", "http://dl.sourceforge.net/", url)
+       sub("^http://downloads\.sourceforge\.net/", "http://dl.sourceforge.net/", url)
+
+       sub("^http://.*\.dl\.sourceforge\.net/", "http://dl.sourceforge.net/", url)
+       sub("^http://dl\.sourceforge\.net/sourceforge/", "http://dl.sourceforge.net/", url)
+       sub("^http://dl\.sf\.net/", "http://dl.sourceforge.net/", url)
+
+       sub("^ftp://ftp\.gnome\.org/", "http://ftp.gnome.org/", url)
+       sub("^http://ftp\.gnome\.org/pub/gnome/", "http://ftp.gnome.org/pub/GNOME/", url)
+
+       # apache urls
+       sub("^http://apache.zone-h.org/", "http://www.apache.org/dist/", url)
+
+       # gnu.org
+       sub("^ftp://ftp.gnu.org/", "http://ftp.gnu.org/", url)
+       sub("^http://ftp.gnu.org/pub/gnu/", "http://ftp.gnu.org/gnu/", url)
+
+       return url
+}
+
 function demacroize(str)
 {
        if (mod_name) {
@@ -1563,16 +1649,22 @@ function demacroize(str)
        if (_snap) {
                sub("%{_snap}", _snap, str);
        }
+       if (subver) {
+               sub("%{subver}", subver, str);
+       }
        return str;
 }
 
 function kill_preamble_macros()
 {
-       if ($1 ~ /^URL:/ || $1 ~ /^Obsoletes:/) {
+       if ($1 ~ /^Obsoletes:/) {
+               # NB! assigning $2 a value breaks tabbing
+               $2 = demacroize($2);
+       }
+       if ($1 ~ /^URL:/) {
                # NB! assigning $2 a value breaks tabbing
                $2 = demacroize($2);
-               # unify sourceforge url
-               sub("\.sf\.net/$", ".sourceforge.net/", $2);
+               $2 = unify_url($2)
        }
 }
 
@@ -1627,6 +1719,34 @@ function add_br(br)
        BR[BR_count++] = br
 }
 
+function replace_requires()
+{
+
+       # jpackages
+       sub(/^java-devel$/, "jdk", $2);
+       sub(/^log4j$/, "logging-log4j", $2);
+       sub(/^jakarta-log4j$/, "logging-log4j", $2);
+       sub(/^oro$/, "jakarta-oro", $2);
+       sub(/^jakarta-ant$/, "ant", $2);
+       sub(/^xerces-j2$/, "xerces-j", $2);
+       sub(/^ldapjdk$/, "ldapsdk", $2);
+       sub(/^saxon-scripts$/, "saxon", $2);
+       sub(/^xalan-j2$/, "xalan-j", $2);
+       sub(/^xerces-j2$/, "xerces-j", $2);
+       sub(/^gnu-regexp$/, "gnu.regexp", $2);
+
+       # redhat virtual
+       sub(/^tftp-server$/, "tftpdaemon", $2);
+
+       sub(/^gcc-c\+\+$/, "libstdc++-devel", $2);
+       sub(/^chkconfig$/, "/sbin/chkconfig", $2);
+
+       # fedora
+       sub(/^iscsi-initiator-utils$/, "open-iscsi", $2);
+
+       replace_php_virtual_deps()
+}
+
 # php virtual deps as discussed in devel-en
 function replace_php_virtual_deps()
 {
@@ -1636,11 +1756,11 @@ function replace_php_virtual_deps()
 #              return
 #      }
 
-       if (pkg ~ /^php-[a-z]/ && pkg !~ /^php-(pear|common|cli|devel|fcgi|cgi|dirs|program|pecl-)/) {
-               sub(/^php-/, "php(", pkg);
-               sub(/$/, ")", pkg);
-               $2 = pkg
-       }
+#      if (pkg ~ /^php-[a-z]/ && pkg !~ /^php-(pear|common|cli|devel|fcgi|cgi|dirs|program|pecl-)/) {
+#              sub(/^php-/, "php(", pkg);
+#              sub(/$/, ") # verify this correctness -- it may be wanted to use specific not virtual dep", pkg);
+#              $2 = pkg
+#      }
 
        if (pkg ~/^php$/) {
                $2 = "webserver(php)";
@@ -1657,4 +1777,62 @@ function replace_php_virtual_deps()
        }
 }
 
+function replace_groupnames(group)
+{
+       sub(/^Amusements\/Games\/Strategy\/Real Time/, "X11/Applications/Games/Strategy", group)
+       sub(/^Application\/Multimedia$/, "Applications/Multimedia", group)
+       sub(/^Applications\/Compilers$/, "Development/Languages", group)
+       sub(/^Applications\/Daemons$/, "Daemons", group)
+       sub(/^Applications\/Internet$/, "Applications/Networking", group)
+       sub(/^Applications\/Internet\/Peer to Peer/, "Applications/Networking", group)
+       sub(/^Applications\/Productivity$/, "X11/Applications", group)
+       sub(/^Database$/, "Applications/Databases", group)
+       sub(/^Development\/Code Generators$/, "Development", group)
+       sub(/^Development\/Docs$/, "Documentation", group)
+       sub(/^Development\/Documentation$/, "Documentation", group)
+       sub(/^Development\/Java/, "Development/Languages/Java", group)
+       sub(/^Development\/Libraries\/C and C\+\+$/, "Development/Libraries", group)
+       sub(/^Development\/Libraries\/Java$/, "Development/Languages/Java", group)
+       sub(/^Development\/Other/,"Development", group)
+       sub(/^Development\/Testing$/, "Development", group)
+       sub(/^Emulators$/, "Applications/Emulators", group)
+       sub(/^Games/,"Applications/Games", group)
+       sub(/^Library\/Development$/, "Development/Libraries", group)
+       sub(/^Networking\/Deamons$/, "Networking/Daemons", group)
+       sub(/^Shells/,"Applications/Shells", group)
+       sub(/^System Environment\/Base$/, "Base", group)
+       sub(/^System Environment\/Daemons$/, "Daemons", group)
+       sub(/^System Environment\/Kernel$/, "Base/Kernel", group)
+       sub(/^System Environment\/Libraries$/, "Libraries", group)
+       sub(/^System$/, "Base", group)
+       sub(/^System\/Base$/, "Base", group)
+       sub(/^System\/Libraries$/, "Libraries", group)
+       sub(/^System\/Servers$/, "Daemons", group)
+       sub(/^Text Processing\/Markup\/HTML$/, "Applications/Text", group)
+       sub(/^Text Processing\/Markup\/XML$/, "Applications/Text", group)
+       sub(/^Utilities\//,"Applications/", group)
+       sub(/^Web\/Database$/, "Applications/WWW", group)
+       sub(/^X11\/GNOME/,"X11/Applications", group)
+       sub(/^X11\/GNOME\/Applications/,"X11/Applications", group)
+       sub(/^X11\/GNOME\/Development\/Libraries/,"X11/Development/Libraries", group)
+       sub(/^X11\/Games/,"X11/Applications/Games", group)
+       sub(/^X11\/Games\/Strategy/,"X11/Applications/Games/Strategy", group)
+       sub(/^X11\/Library/,"X11/Libraries", group)
+       sub(/^X11\/Utilities/,"X11/Applications", group)
+       sub(/^X11\/XFree86/, "X11", group)
+       sub(/^X11\/Xserver$/, "X11/Servers", group)
+       sub(/^Development\/C$/, "Development/Libraries", group)
+       sub(/^Development\/Python$/, "Development/Languages/Python", group)
+       sub(/^System\/Kernel and hardware$/, "Base/Kernel", group)
+       sub(/^Application\/System$/, "Applications/System", group)
+       sub(/^Productivity\/Databases\/Servers$/, "Applications/Databases", group)
+       sub(/^Development\/Libraries\/Python$/, "Development/Languages/Python", group)
+       sub(/^Development\/Languages\/Ruby$/, "Development/Languages", group)
+       sub(/^Development\/Libraries\/TCL$/, "Development/Languages/Tcl", group);
+       sub(/^Development\/Languages\/Other$/, "Development/Languages", group);
+       sub(/^Productivity\/Networking\/Web\/Servers$/, "Networking/Daemons/HTTP", group);
+
+       return group;
+}
+
 # vim:ts=4:sw=4
This page took 0.051986 seconds and 4 git commands to generate.