From: Marcin Krol Date: Wed, 11 Jul 2012 11:14:24 +0000 (+0000) Subject: - merged from PLD, tldized X-Git-Url: https://git.tld-linux.org/?a=commitdiff_plain;h=93ab33314565da67cff1bcb5fc21f89484c59e2d;p=packages%2Frpm-build-tools.git - merged from PLD, tldized --- diff --git a/adapter b/adapter new file mode 100755 index 0000000..44a4ee2 --- /dev/null +++ b/adapter @@ -0,0 +1,319 @@ +#!/bin/sh +# +# Authors: +# Michał Kuratczyk +# Sebastian Zagrodzki +# Tomasz Kłoczko +# Artur Frysiak +# Michal Kochanowicz +# Elan Ruusamäe +# +# See cvs log adapter{,.awk} for list of contributors +# +# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # + +RCSID='$Id$' +REVISION=${RCSID#* * } REVISION=${REVISION%% *} +VERSION="v0.35/$REVISION" +VERSIONSTRING="\ +Adapter adapts .spec files for PLD Linux. +$VERSION (C) 1999-2010 Free Penguins". + +PROGRAM=${0##*/} +dir=$(d=$0; [ -L "$d" ] && d=$(readlink -f "$d"); dirname "$d") +adapter=$dir/adapter.awk +usage="Usage: $PROGRAM [FLAGS] SPECFILE + +-s|--no-sort|--skip-sort + skip BuildRequires, Requires sorting +-m|--no-macros|--skip-macros + skip use_macros() substitutions +-d|--skip-desc + skip desc wrapping +-a|--skip-defattr + skip %defattr corrections +-o + do not do any diffing, just dump the output +" + +if [ ! -x /usr/bin/getopt ]; then + echo >&2 "You need to install util-linux to use adapter" + exit 1 +fi + +if [ ! -x /usr/bin/patch ]; then + echo >&2 "You need to install patch to use adapter" + exit 1 +fi + +[ -n "$PAGER" ] || PAGER="/usr/bin/less -r" + +if [ -n "$CONFIG_DIR" ]; then + USER_CFG="$CONFIG_DIR/.adapterrc" +elif [ -n "$HOME_ETC" ]; then + USER_CFG="$HOME_ETC/.adapterrc" +else + USER_CFG=~/.adapterrc +fi + +[ -f $USER_CFG ] && . $USER_CFG + +t=$(getopt -o hsomdaV --long help,version,sort,sort-br,no-macros,skip-macros,skip-desc,skip-defattr -n "$PROGRAM" -- "$@") || exit $? +eval set -- "$t" + +while true; do + case "$1" in + -h|--help) + echo 2>&1 "$usage" + exit 1 + ;; + -s|--no-sort|--skip-sort) + export SKIP_SORTBR=1 + ;; + -m|--no-macros|--skip-macros) + export SKIP_MACROS=1 + ;; + -d|--skip-desc) + export SKIP_DESC=1 + ;; + -a|--skip-defattr) + export SKIP_DEFATTR=1 + ;; + -V|--version) + echo "$VERSIONSTRING" + exit 0 + ;; + -o) + outputonly=1 + ;; + --) + shift + break + ;; + *) + echo >&2 "$PROGRAM: Internal error: \`$1' not recognized!" + exit 1 + ;; + esac + shift +done + +diffcol() +{ + # vim like diff colourization +LC_ALL=en_US.UTF-8 gawk ' { + split( $0, S, /\t/ ); + $0 = S[ 1 ]; + for ( i = 2; i in S; i++ ) { + spaces = 7 - ( (length( $0 ) - 1) % 8 ); + $0 = $0 "\xE2\x9E\x94"; + for ( y = 0; y < spaces; y++ ) + $0 = $0 "\xE2\x87\xBE"; + $0 = $0 S[ i ]; + } + gsub( /\033/, "\033[44m^[\033[49m" ); + cmd = ""; + if ( sub( /^ /, "" ) ) + cmd = " "; + sub( /(\xE2\x9E\x94(\xE2\x87\xBE)*| )+$/, "\033[31;41m&\033[39;49m" ); + gsub( /\xE2\x9E\x94(\xE2\x87\xBE)*/, "\033[7m&\033[27m" ); + gsub( /\xE2\x87\xBE/, " " ); + # uncomment if you do not like utf-8 arrow + # gsub( /\xE2\x9E\x94/, ">" ); + $0 = cmd $0; + gsub( /\007/, "\033[44m^G\033[49m" ); + gsub( /\r/, "\033[44m^M\033[49m" ); +} +/^(Index:|diff|---|\+\+\+) / { $0 = "\033[32m" $0 } +/^@@ / { $0 = "\033[33m" $0 } +/^-/ { $0 = "\033[35m" $0 } +/^+/ { $0 = "\033[36m" $0 } +{ $0 = $0 "\033[0m"; print } +' "$@" +} + +diff2hunks() +{ + # diff2hunks orignally by dig + perl -e ' +#! /usr/bin/perl -w + +use strict; + +for my $filename (@ARGV) { + my $counter = 1; + my $fh; + open $fh, "<", $filename or die "$filename: open for reading: $!"; + my @lines = <$fh>; + my @hunks; + my @curheader; + for my $i (0 ... $#lines) { + next unless $lines[$i] =~ m/^\@\@ /; + if ($i >= 2 and $lines[$i - 2] =~ m/^--- / and $lines[$i - 1] =~ m/^\+\+\+ /) { + @curheader = @lines[$i - 2 ... $i - 1]; + } + next unless @curheader; + my $j = $i + 1; + while ($j < @lines and $lines[$j] !~ m/^\@\@ /) {$j++} + $j -= 2 + if $j >= 3 and $j < @lines + and $lines[$j - 2] =~ m/^--- / + and $lines[$j - 1] =~ m/^\+\+\+ /; + $j--; + $j-- until $lines[$j] =~ m/^[ @+-]/; + my $hunkfilename = $filename; + $hunkfilename =~ s/((\.(pat(ch)?|diff?))?)$/"-".sprintf("%03i",$counter++).$1/ei; + my $ofh; + open $ofh, ">", $hunkfilename or die "$hunkfilename: open for writing: $!"; + print $ofh @curheader, @lines[$i ... $j]; + close $ofh; + } +} +' "$@" +} + +# import selected macros for adapter.awk +# you should update the list also in adapter.awk when making changes here +import_rpm_macros() { + macros=" + _topdir + _prefix + _bindir + _sbindir + _libdir + _sysconfdir + _datadir + _includedir + _mandir + _infodir + _examplesdir + _defaultdocdir + _kdedocdir + _gtkdocdir + _desktopdir + _pixmapsdir + _javadir + _pkgconfigdir + _npkgconfigdir + _localedir + + perl_sitearch + perl_archlib + perl_privlib + perl_vendorlib + perl_vendorarch + perl_sitelib + + py_sitescriptdir + py_sitedir + py_scriptdir + py_ver + + py3_sitescriptdir + py3_sitedir + py3_scriptdir + py3_ver + + ruby_archdir + ruby_ridir + ruby_rubylibdir + ruby_sitearchdir + ruby_sitelibdir + ruby_rdocdir + + php_pear_dir + php_data_dir + tmpdir + + systemdunitdir + systemdtmpfilesdir +" + eval_expr="" + for macro in $macros; do + eval_expr="$eval_expr\nexport $macro='%{$macro}'" + done + + + # get cvsaddress for changelog section + # using rpm macros as too lazy to add ~/.adapterrc parsing support. + eval_expr="$eval_expr + export _cvsmaildomain='%{?_cvsmaildomain}%{!?_cvsmaildomain:@pld-linux.org}' + export _cvsmailfeedback='%{?_cvsmailfeedback}%{!?_cvsmailfeedback:PLD Team }' + " + + export ADAPTER_REVISION=$REVISION + + eval $(rpm --eval "$(echo -e $eval_expr)") +} + +adapterize() { + local workdir + workdir=$(mktemp -d ${TMPDIR:-/tmp}/adapter-XXXXXX) || exit $? + awk=gawk + + local tmp=$workdir/$(basename $SPECFILE) || exit $? + + import_rpm_macros + + LC_ALL=en_US.UTF-8 $awk -f $adapter $SPECFILE > $tmp || exit $? + + if [ "$outputonly" = 1 ]; then + cat $tmp + + elif [ "$(diff --brief $SPECFILE $tmp)" ]; then + diff -u $SPECFILE $tmp > $tmp.diff + if [ -t 1 ]; then + diffcol $tmp.diff | $PAGER + while : ; do + echo -n "Accept? (Yes, No, Confirm each chunk)? " + read ans + case "$ans" in + [yYoO]) # y0 mama + mv -f $tmp $SPECFILE + echo "Ok, adapterized." + break + ;; + [cC]) # confirm each chunk + diff2hunks $tmp.diff + for t in $(ls $tmp-*.diff); do + diffcol $t | $PAGER + echo -n "Accept? (Yes, [N]o, Quit)? " + read ans + case "$ans" in + [yYoO]) # y0 mama + patch -p0 < $t + ;; + [Q]) # Abort + break + ;; + esac + done + break + ;; + [QqnNsS]) + echo "Ok, exiting." + break + ;; + esac + done + else + cat $tmp.diff + fi + else + echo "The SPEC is perfect ;)" + fi + + rm -rf $workdir +} + +SPECFILE="$1" +[ -f "$SPECFILE" ] || SPECFILE="$(basename $SPECFILE .spec).spec" + +if [ $# -ne 1 -o ! -f "$SPECFILE" ]; then + echo "$usage" + exit 1 +fi + +adapterize + +# vim: ts=4:sw=4 diff --git a/adapter.awk b/adapter.awk new file mode 100644 index 0000000..fad5240 --- /dev/null +++ b/adapter.awk @@ -0,0 +1,2321 @@ +#!/usr/bin/gawk -f +# +# Adapter adapts .spec files for PLD Linux. +# +# Copyright (C) 1999-2012 PLD-Team +# Authors: +# Michał Kuratczyk +# Sebastian Zagrodzki +# Tomasz Kłoczko +# Artur Frysiak +# Michal Kochanowicz +# Jakub Bogusz +# Elan Ruusamäe +# +# 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) +# - sort Requires, BuildRequires +# - check if %description (lang=C) contains 8bit +# - desc wrapping is totally fucked up on global.spec,1.25, dosemu.spec,1.115- +# - it should change: /%source([0-9]+)/i to %{SOURCE\1} +# - extra quote on LDFLAGS line: https://bugs.launchpad.net/pld-linux/+bug/385836 +# - %{with_foo:%attr()...} gets converted to %attr() %{with_foo:...} [vlc.spec] +# - 'R: foo ' (with traliling space) gets coverted to "R: foo\nR: " [vlc.spec @ 1.199 ] + +BEGIN { + RPM_SECTIONS = "package|build|changelog|clean|description|install|post|posttrans|postun|pre|prep|pretrans|preun|triggerin|triggerpostun|triggerun|verifyscript|check" + SECTIONS = "^%(" RPM_SECTIONS ")" + + RCSID = "$Id$" + rev = RCSID # TODO: parse from RCSID + VERSION = "0.35/" 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|Auto(Req|Prov))" + + 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 + bod = 0 # Beginning of %description + tw = 70 # Descriptions width + + b_idx = 0 # index of BR/R arrays + BR_count = 0 # number of additional BuildRequires + + # If variable removed, then 1 (for removing it from export) + removed["LDFLAGS"] = 0 + removed["CFLAGS"] = 0 + removed["CXXFLAGS"] = 0 + + # If 1, we are inside of comment block (started with /^#%/) + comment_block = 0 + + import_rpm_macros() + + packages_dir = topdir + groups_file = packages_dir "/rpm.groups" + + system("cd "packages_dir"; [ -f rpm.groups ] || cvs up rpm.groups > /dev/null") + system("[ -d ../PLD-doc ] && cd ../PLD-doc && ([ -f BuildRequires.txt ] || cvs up BuildRequires.txt >/dev/null)"); + + # Temporary file for changelog section + changelog_file = mktemp("adapter.changelogXXXXXX") +} + +# There should be a comment with CVS keywords on the first line of file. +FNR == 1 { + if (!/^# \$[R]evision: .* \$, \$[D]ate: .* \$$/) { # If this line is already OK? + print "# $" "Revision:$, " "$" "Date:$" # No + if ( /^#.*([rR]evision|[dD]ate)/ ) # There was something similar, but incorrect + next + } else { + print $0 # Yes + next # It is enough for first line + } +} + +# If the latest line matched /%files/ +defattr == 1 { + if (ENVIRON["SKIP_DEFATTR"] != 1) { + if ($0 !~ /defattr/) { # If no %defattr + print "%defattr(644,root,root,755)" # Add it + } else { + $0 = "%defattr(644,root,root,755)" # Correct mistakes (if any) + } + } + defattr = 0 +} + +# call mktemp(1) and return the value +function mktemp(template, tmp) { + "mktemp " template | getline tmp + return tmp +} + +function b_makekey(a, b, s) { + s = a "" b; + # kill bcond + gsub(/[#%]+{[!?]+[_a-zA-Z0-9]+:/, "", s); + + # kill commented out items + gsub(/^#[ \t]*/, "", s); + + # force order + gsub(/^Summary\(/, "11Summary(", s); + gsub(/^Summary/, "10Summary", s); + + gsub(/^Name/, "2Name", s); + gsub(/^Version/, "3Version", s); + gsub(/^Release/, "4Release", s); + gsub(/^Epoch/, "5Epoch", s); + gsub(/^License/, "5License", s); + gsub(/^Group/, "6Group", s); + gsub(/^URL/, "7URL", s); + + gsub(/^BuildRequires/, "B1BuildRequires", s); + gsub(/^BuildConflicts/, "B2BuildConflicts", 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); + + gsub(/^AutoProv/, "Xx1AutoProv", s); + gsub(/^AutoReq/, "Xx2AutoReq", s); + +# printf("%s -> %s\n", a""b, s); + return s; +} + +# Comments +/^#/ && (description == 0) { + if (/This file does not like to be adapterized!/) { + print # print this message + while (getline) # print the rest of spec as it is + print + do_not_touch_anything = 1 # do not touch anything in END() + exit(rc = 0) + } + + # Generally, comments are printed without touching + sub(/[ \t]+$/, "") + + if (/#[ \t]*Source.*md5/) { + if (usedigest == 1) { + sub(/^#[ \t]*Source/, "BuildRequires:\tdigest(%SOURCE", $0) + sub(/-md5[ \t]*:[ \t]*/, ") = ", $0) + } + print $0 + next + } +} + +/^%define/ { + # Remove defining _applnkdir (this macro has been included in rpm-3.0.4) + if ($2 == "_applnkdir") { + next + } + if ($2 == "date") { + date = 1 + if (did_files == 0) { + print "%files" + print "" + did_files = 1 + } + } + + # Do not add %define of _prefix if it already is. + if ($2 ~ /^_prefix/) { + sub("^"prefix, $3, bindir) + sub("^"prefix, $3, sbindir) + sub("^"prefix, $3, libdir) + sub("^"prefix, $3, datadir) + sub("^"prefix, $3, includedir) + prefix = $3 + } + + if ($2 ~ /_bindir/ && !/_sbindir/) + bindir = $3 + if ($2 ~ /_sbindir/) + sbindir = $3 + if ($2 ~ /_libdir/) { + if ($3 ~ /^%\(/) { + # TODO: should escape for latter checks like: ($c ~ sysconfdir "/{?cron.") + libdir = "%%%%%%%%%%%%%%" + } else { + libdir = $3 + } + } + if ($2 ~ /_sysconfdir/) { + if ($3 ~ /^%\(/) { + # TODO: should escape for latter checks like: ($c ~ sysconfdir "/{?cron.") + sysconfdir = "%%%%%%%%%%%%%%" + } else { + sysconfdir = $3 + } + } + if ($2 ~ /_datadir/) { + if ($3 ~ /^%\(/) { + # TODO: should escape for latter checks like: ($c ~ sysconfdir "/{?cron.") + datadir = "%%%%%%%%%%%%%%" + } else { + datadir = $3 + } + } + if ($2 ~ /_includedir/) + includedir = $3 + if ($2 ~ /_mandir/) + mandir = $3 + if ($2 ~ /_infodir/) + infodir = $3 + if ($2 ~ /_docdir/) + docdir = $3 + + # version related macros + if ($2 ~ /^_beta$/) + _beta = $3 + if ($2 ~ /^_rc$/) + _rc = $3 + if ($2 ~ /^_pre$/) + _pre = $3 + if ($2 ~ /^_snap$/) + _snap = $3 + if ($2 ~ /^subver$/) + subver = $3 + + # these are used usually when adapterizing external spec + if ($2 ~ /^name$/) + name = $3 + if ($2 ~ /^version$/) + version = $3 + if ($2 ~ /^release$/) + release = $3 + + if ($2 ~ /^mod_name$/) + mod_name = $3 + if ($2 ~ /^_?pearname$/) + pearname = $3 + if ($2 ~ /^_class$/) + pear_class = $3 + if ($2 ~ /^_subclass$/) + pear_subclass = $3 + + # kill the _class and _subclass pear macros + if ($2 == "_pearname" || $2 == "pearname") { + if (pear_class) { + gsub("%{_class}", pear_class, $3); + } + if (pear_subclass) { + gsub("%{_subclass}", pear_subclass, $3); + } + } + + sub(/[ \t]+$/, ""); + # do nothing further, otherwise adapter thinks we're at preamble + print + next +} + +# Obsolete +/^%include.*\/usr\/lib\/rpm\/macros\.python$/ { + next +} + +################ +# %description # +################ +/^%description/, (!/^%description/ && $0 ~ SECTIONS) { + preamble = 0 + + if (/^%description/) { + bod++ + format_line = "" + format_indent = -1 + } + + # Format description + if (ENVIRON["SKIP_DESC"] != 1 && description == 1 && !/^%[a-z]+/ && !/^%description/) { + if (/^[ \t]*$/) { + format_flush(format_line, format_indent) + print "" + format_line = "" + format_indent = -1 + } else if (/^[ \t]*[-\*][ \t]*/) { + format_flush(format_line, format_indent) + match($0, /^[ \t]*/) + format_indent = RLENGTH + match($0, /^[ \t]*[-\*][ \t]/) + format_line = substr($0, RLENGTH) + } else + format_line = format_line " " $0 + next + } + + if (/^%[a-z]+/ && (!/^%description/ || bod == 2)) { + if (NF > 3 && $2 == "-l") { + ll = $1 + for (i = 4; i <= NF; i++) + ll = ll " " $i + $0 = ll " -l " $3 + } + format_flush(format_line, format_indent) + if (bod == 2) { + bod = 1 + description = 1 + } else { + bod = 0 + description = 0 + } + } else + description = 1 +} + +######### +# %prep # +######### +/^%prep/, (!/^%prep/ && $0 ~ SECTIONS) { + preamble = 0 + did_prep = 1 + + use_macros() + + # Add '-q' to %setup + if (/^%setup/ && !/-q/) { + sub(/^%setup/, "%setup -q") + } + + if (/^%setup/ && name != "setup") { + $0 = fixedsub(name, "%{name}", $0); + $0 = fixedsub(version, "%{version}", $0); + if (_beta) { + $0 = fixedsub(_beta, "%{_beta}", $0); + } + if (_rc) { + $0 = fixedsub(_rc, "%{_rc}", $0); + } + if (_pre) { + $0 = fixedsub(_pre, "%{_pre}", $0); + } + if (_snap) { + $0 = fixedsub(_snap, "%{_snap}", $0); + } + if (subver) { + $0 = fixedsub(subver, "%{subver}", $0); + } + } + + if (/^%setup/ && /-n %{name}-%{version}( |$)/) { + $0 = fixedsub(" -n %{name}-%{version}", "", $0) + } + sub("^%patch ", "%patch0 "); + + # fedora extras + if (/^%apply/) { + sub("^%apply -n", "%patch"); + } + + # invalid in %prep + sub("^rm -rf \$RPM_BUILD_ROOT.*", ""); +} + +########## +# %build # +########## +/^%build/, (!/^%build/ && $0 ~ SECTIONS) { + preamble = 0 + + if (did_prep == 0) { + print "%prep" + print "" + did_prep = 1 + } + + use_macros() + use_tabs() + + if (/^automake$/) + sub(/$/, " -a -c") + + if (/LDFLAGS/) { + if (/LDFLAGS="-s"/) { + removed["LDFLAGS"] = 1 + next + } else { + split($0, tmp, "LDFLAGS=") + count = split(tmp[2], flags, "\"") + if (flags[1] != "" && flags[1] !~ "!?debug") { + sub(/-s[" ]?/, "%{rpmldflags} ", flags[1]) + $0 = tmp[1] line[1] "LDFLAGS=" flags[1] "\"" + for (i = 2; i < count; i++) + $0 = $0 flags[i] "\"" + } + } + } + + if (/CFLAGS=/) + if (cflags("CFLAGS") == 0) + next + + if (/CXXFLAGS=/) + if (cflags("CXXFLAGS") == 0) + next + + if (/^export /) { + if (removed["LDFLAGS"]) + sub(" LDFLAGS", "") + if (removed["CFLAGS"]) + sub(" CFLAGS", "") + if (removed["CXXFLAGS"]) + sub(" CXXFLAGS", "") + # Is there still something? + if (/^export[ ]*$/) + next + } + + # quote CC + if (/CC=%{__cc} /) { + sub("CC=%{__cc}", "CC=\"%{__cc}\"") + } + + # use PLD Linux macros + $0 = fixedsub("glib-gettextize --copy --force","%{__glib_gettextize}", $0); + $0 = fixedsub("intltoolize --copy --force", "%{__intltoolize}", $0); + $0 = fixedsub("automake --add-missing --copy", "%{__automake}", $0); + $0 = fixedsub("automake -a --foreign --copy", "%{__automake}", $0); + $0 = fixedsub("automake -a -c --foreign", "%{__automake}", $0); + $0 = fixedsub("automake -a -c", "%{__automake}", $0); + $0 = fixedsub("libtoolize --force --automake --copy", "%{__libtoolize}", $0); + $0 = fixedsub("libtoolize -c -f --automake", "%{__libtoolize}", $0); + + sub(/^aclocal$/, "%{__aclocal}"); + sub(/^autoheader$/, "%{__autoheader}"); + sub(/^autoconf$/, "%{__autoconf}"); + sub(/^automake$/, "%{__automake}"); + sub(/^libtoolize$/, "%{__libtoolize}"); + + # atrpms + $0 = fixedsub("%perl_configure", "%{__perl} Makefile.PL \\\n\tINSTALLDIRS=vendor", $0); + $0 = fixedsub("%perl_makecheck", "%{?with_tests:%{__make} test}", $0); + + # alt linux + $0 = fixedsub("%make_build", "%{__make}", $0); +} + +########## +# %clean # +########## +/^%clean/, (!/^%clean/ && $0 ~ SECTIONS) { + did_clean = 1 + + use_macros() +} + +############ +# %install # +############ +/^%install/, (!/^%install/ && $0 ~ SECTIONS) { + + preamble = 0 + + # foreign rpms + sub("^%{__rm} -rf %{buildroot}", "rm -rf $RPM_BUILD_ROOT") + sub("%buildroot", "$RPM_BUILD_ROOT"); + sub("%{buildroot}", "$RPM_BUILD_ROOT"); + + if (/^[ \t]*rm([ \t]+-[rf]+)*[ \t]+(\${?RPM_BUILD_ROOT}?|%{?buildroot}?)/ && did_rmroot==0) { + did_rmroot=1 + print "rm -rf $RPM_BUILD_ROOT" + next + } + + if (!/^(#?[ \t]*)$/ && !/^%install/ && did_rmroot==0) { + print "rm -rf $RPM_BUILD_ROOT" + did_rmroot=1 + } + + if (tmpdir) { + buildroot = tmpdir "/" name "-" version "-root-" ENVIRON["USER"] + gsub(buildroot, "$RPM_BUILD_ROOT") + } + + if (!/%{_lib}/) { + sub("\$RPM_BUILD_ROOT/%", "$RPM_BUILD_ROOT%") + } + + use_macros() + + # 'install -d' instead 'mkdir -p' + if (/mkdir -p/) + sub(/mkdir -p/, "install -d") + + # cp -a already implies cp -r + sub(/^cp -ar/, "cp -a") + + # No '-u root' or '-g root' for 'install' + if (/^install/ && /-[ug][ \t]*root/) + gsub(/-[ug][ \t]*root /, "") + + if (/^install/ && /-m[ \t]*[0-9]+/) + gsub(/-m[ \t]*[0-9]+ /, "") + + # No lines contain 'chown' or 'chgrp' if owner/group is 'root' + if (($1 ~ /chown/ && $2 ~ /root\.root/) || ($1 ~ /chgrp/ && $2 ~ /root/)) + next + + # No lines contain 'chmod' if it sets the modes to '644' + if ($1 ~ /chmod/ && $2 ~ /644/) + next + + # atrpms + $0 = fixedsub("%perl_makeinstall", "%{__make} pure_install \\\n\tDESTDIR=$RPM_BUILD_ROOT", $0); + + # alt linux + $0 = fixedsub("%make_install DESTDIR=$RPM_BUILD_ROOT install", "%{__make} install \\\n\tDESTDIR=$RPM_BUILD_ROOT", $0); +} + +########## +# %files # +########## +/^%files/, (!/^%files/ && $0 ~ SECTIONS) { + preamble = 0 + did_files = 1 + + if ($0 ~ /^%files/) + defattr = 1 + + if (!use_files_macros()) { + next + } +} + +############## +# %changelog # +############## +/^%changelog/, (!/^%changelog/ && $0 ~ SECTIONS) { + preamble = 0 + has_changelog = 1 + skip = 0 + # There should be some CVS keywords on the first line of %changelog. + if (boc == 3) { + if ($0 !~ _cvsmailfeedback) { + print "* %{date} " _cvsmailfeedback > changelog_file + } 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 "" _cvsmaildomain "\n" > changelog_file + } else { + skip = 1 + } + boc = 1 + } + if (boc == 1 && !skip) { + if (!/^$/) { + if (!/\$.*Log:.*\$/) { + print "$" "Log:$" > changelog_file + } + boc = 0 + } + } + # Define date macro. + if (boc == 4) { + if (date == 0) { + printf "%%define date\t%%(echo `LC_ALL=\"C\"" > changelog_file + print " date +\"%a %b %d %Y\"`)" > changelog_file + date = 1 + } + boc = 3 + } + + 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 { + print + } + next +} + +########### +# SCRIPTS # +########### +/^%pre/, (!/^%pre/ && $0 ~ SECTIONS) { + preamble = 0 + + if (gsub("/usr/sbin/useradd", "%useradd")) { + sub(" 2> /dev/null \|\| :", ""); + sub(" >/dev/null 2>&1 \|\|:", ""); + } + + # fedora extras macros + if (/%__fe_useradd/) { + sub("%__fe_useradd", "%useradd -u "); + sub(" 2> /dev/null \|\| :", ""); + sub(" >/dev/null 2>&1 \|\|:", ""); + sub(" &>/dev/null \\|\\| :", ""); + } + + if (/%__fe_groupadd/) { + sub("%__fe_groupadd", "%groupadd -g "); + sub(" &>/dev/null \\|\\| :", ""); + } + + # %useradd and %groupadd may not be wrapped + if (/%(useradd|groupadd).*\\$/) { + a = $0; getline; + sub(/^[\s\t]*/, ""); + $0 = substr(a, 1, length(a) - 1) $0; + } + use_script_macros() +} + +/^%post/, (!/^%post/ && $0 ~ SECTIONS) { + preamble = 0 + + # fedora extras macros + sub("%__chkconfig", "/sbin/chkconfig"); + + sub("update-desktop-database &> /dev/null \\|\\| :", "%update_desktop_database"); + sub("touch --no-create %{_datadir}/icons/hicolor", "%update_icon_cache_post hicolor"); + sub("if \\[ -x %{_bindir}/gtk-update-icon-cache \\]; then\n\t%{_bindir}/gtk-update-icon-cache -q %{_datadir}/icons/hicolor \|\| :\nfi", ""); + + sub("export GCONF_CONFIG_SOURCE=`gconftool-2 --get-default-source`", "") + if (/gconftool-2 --makefile-install-rule/) { + sub("gconftool-2 --makefile-install-rule %{_sysconfdir}/gconf/schemas/", "%gconf_schema_install ") + sub("> /dev/null", ""); + } + + use_macros() +} +/^%preun/, (!/^%preun/ && $0 ~ SECTIONS) { + preamble = 0 + use_macros() +} +/^%postun/, (!/^%postun/ && $0 ~ SECTIONS) { + preamble = 0 + + # fedora extras macros + if (/%__fe_userdel|%__fe_groupdel/) { + sub("%__fe_groupdel", "%groupremove"); + sub("%__fe_userdel", "%userremove"); + sub(" &>/dev/null \\|\\| :", ""); + } + + use_script_macros() +} +/^%triggerin/, (!/^%triggerin/ && $0 ~ SECTIONS) { + preamble = 0 + use_script_macros() +} +/^%triggerun/, (!/^%triggerun/ && $0 ~ SECTIONS) { + preamble = 0 + use_script_macros() +} +/^%triggerpostun/, (!/^%triggerpostun/ && $0 ~ SECTIONS) { + preamble = 0 + use_script_macros() +} +/^%pretrans/, (!/^%pretrans/ && $0 ~ SECTIONS) { + preamble = 0 + use_script_macros() +} +/^%posttrans/, (!/^%posttrans/ && $0 ~ SECTIONS) { + preamble = 0 + use_script_macros() +} +/^%verifyscript/, (!/^%verifyscript/ && $0 ~ SECTIONS) { + preamble = 0 + use_script_macros() +} +/^%check/, (!/^%check/ && $0 ~ SECTIONS) { + preamble = 0 + use_script_macros() +} + +############# +# PREAMBLES # +############# +preamble == 1 { + # There should not be a space after the name of field + # and before the colon. + sub(/[ \t]*:/, ":") + + if (/^%perl_module_wo_prefix/) { + name = $2 + version = $3 + release = "0." fixedsub(".%{disttag}.at", "", $4) + } + + field = tolower($1) + if (field ~ /summary:/ && !/etc\.$/ && !/Inc\.$/) { + sub(/\.$/, "", $0); + } + if (field ~ /group(\([^)]+\)):/) + next + if (field ~ /group:/) { + format_preamble() + group = $0; + sub(/^[^ \t]*[ \t]*/, "", group); + group = replace_groupnames(group); + $0 = "Group:\t\t" group + + if (group ~ /^X11/ && x11 == 0) # Is it X11 application? + x11 = 1 + + byl_plik_z_groupmi = 0 + byl_opis_grupy = 0 + while ((getline linia_grup < groups_file) > 0) { + byl_plik_z_groupmi = 1 + if (linia_grup == group) { + byl_opis_grupy = 1 + break + } + } + + if (!byl_plik_z_groupmi) + print "######\t\t" groups_file ": no such file" + else if (!byl_opis_grupy) + print "######\t\t" "Unknown group!" + + close(groups_file) + did_groups = 1 + } + + if (field ~ /prereq:/) { + sub(/Pre[Rr]eq:/, "Requires:", $1); + } + + # split (build)requires, obsoletes on commas + if (field ~ /(obsoletes|requires|provides|conflicts|suggests):/ && NF > 2) { + value = substr($0, index($0, $2)); + $0 = format_requires($1, value); + } + + # BR: tar (and others) is to common (rpm-build requires it) + if (field ~ /^buildrequires:/) { + l = substr($0, index($0, $2)); + if (l == "awk" || + l == "binutils" || + l == "bzip2" || + l == "cpio" || + l == "diffutils" || + l == "elfutils" || + l == "fileutils" || + l == "findutils" || + l == "glibc-devel" || + l == "grep" || + l == "gzip" || + l == "make" || + l == "patch" || + l == "sed" || + l == "sh-utils" || + l == "tar" || + l == "textutils") { + next + } + + replace_requires(); + } + + if (field ~ /^requires:/ || field ~ /^requires\(/) { + replace_requires(); + } + + + # obsolete/unwanted tags + if (field ~ /vendor:|packager:|distribution:|docdir:|prefix:|icon:|author:|author-email:|metadata-version:/) { + next + } + + if (field ~ /buildroot:/) { + $0 = $1 "%{tmpdir}/%{name}-%{version}-root-%(id -u -n)" + did_build_root = 1 + } + + # Use "License" instead of "Copyright" if it is (L)GPL or BSD + if (field ~ /copyright:/ && $2 ~ /GPL|BSD/) { + $1 = "License:" + } + + # ease updating from debian .dsc + if (field ~ /homepage:/) { + $1 = "URL:" + } + + # suse + if (field ~ /recommends:/) { + $1 = "Suggests:" + } + + if ($3 == "==" && $1 !~ /%/) { + $3 = "=" + } + + if (field ~ /license:/) { + l = substr($0, index($0, $2)); + 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+" + } + if (l == "GPL v2 or later") { + l = "GPL v2+" + } + if (l == "LGPL v2.0 only") { + l = "LGPL v2" + } + if (l == "LGPLv2+") { + l = "LGPL v2+" + } + if (l == "GPLv3") { + l = "GPL v3" + } + if (l == "GPLv3+") { + l = "GPL v3+" + } + if (l == "MPLv1.1") { + l = "MPL v1.1" + } + $0 = "License:\t" l; + } + + + if (field ~ /name:/) { + if ($2 == "%{name}" && name) { + $2 = name + } + name = $2 + name_seen = 1; + } + + if (field ~ /version:/) { + if ($2 == "%{version}" && version) { + $2 = version + } + version = $2 + version_seen = 1; + } + + if (field ~ /release:/) { + if ($2 == "%{release}" && release) { + $2 = release + } + sub(/%atrelease /, "0.", $0) + release = $2 + release_seen = 1; + } + + + if (field ~ /serial:/) + $1 = "Epoch:" + + if (field ~ /home-page:/) + $1 = "URL:" + + # proper caps + if (field ~ /^url:$/) + $1 = "URL:" + + if (field ~ /^patch/) + $1 = "Patch" substr(field, 6); + + if (field ~ /^description:$/) + $1 = "\n%description\n" + + # Use %{name} and %{version} in the filenames in "Source:" + if (field ~ /^source/ || field ~ /patch/) { + n = split($2, url, /\//) + if (url[n] ~ /\.gz$/) { + url[n+1] = ".gz" url[n+1] + sub(/\.gz$/,"",url[n]) + } + if (url[n] ~ /\.zip$/) { + url[n+1] = ".zip" url[n+1] + sub(/\.zip$/,"",url[n]) + } + if (url[n] ~ /\.tar$/) { + url[n+1] = ".tar" url[n+1] + sub(/\.tar$/,"",url[n]) + } + if (url[n] ~ /\.patch$/) { + url[n+1] = ".patch" url[n+1] + sub(/\.patch$/,"",url[n]) + } + if (url[n] ~ /\.bz2$/) { + url[n+1] = ".bz2" url[n+1] + sub(/\.bz2$/,"",url[n]) + } + if (url[n] ~ /\.logrotate$/) { + url[n+1] = ".logrotate" url[n+1] + sub(/\.logrotate$/,"",url[n]) + } + if (url[n] ~ /\.pamd$/) { + url[n+1] = ".pamd" url[n+1] + sub(/\.pamd$/,"",url[n]) + } + + # allow %{name} only in last url component + s = "" + for (i = 1; i <= n; i++) { + url[i] = fixedsub("%{name}", name, url[i]) + if (s) { + s = s "/" url[i] + } else { + s = url[i] + } + } + $2 = s url[n+1] + + filename = url[n] + if (name) { + url[n] = fixedsub(name, "%{name}", url[n]) + } + if (field ~ /source/) { + if (version) { + url[n] = fixedsub(version, "%{version}", url[n]) + } + if (_beta) { + url[n] = fixedsub(_beta, "%{_beta}", url[n]) + } + if (_rc) { + url[n] = fixedsub(_rc, "%{_rc}", url[n]) + } + if (_pre) { + url[n] = fixedsub(_pre, "%{_pre}", url[n]) + } + 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) + + $2 = unify_url($2) + } + + + if (field ~ /^source:/) + $1 = "Source0:" + + if (field ~ /^patch:/) + $1 = "Patch0:" + + kill_preamble_macros(); + format_preamble() + + if (field ~ /requires/) { + # atrpms + $0 = fixedsub("%{eversion}", "%{epoch}:%{version}-%{release}", $0); + } +} + +/^%bcond_/ { + # do nothing + print + next +} + +# sort BR/R! +# +# NOTES: +# - mixing BR/R and anything else confuses this (all will be sorted together) +# so don't do that. +# - comments leading the BR/R can not be associated, +# so don't adapterize when the BR/R are mixed with comments +ENVIRON["SKIP_SORTBR"] != 1 && preamble == 1 && $0 ~ PREAMBLE_TAGS ":", $0 ~ PREAMBLE_TAGS ":"{ + 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 + + b_idx++; + l = substr($0, index($0, $2)); + b_ktmp = b_makekey($1, l); + b_key[b_idx] = b_ktmp; + b_val[b_ktmp] = $0; + + next; +} + +preamble == 1 { + if (b_idx > 0) { + isort(b_key, b_idx); + for (i = 1; i <= b_idx; i++) { + v = b_val[b_key[i]]; + sub(/[ \t]+$/, "", v); + print "" v; + } + b_idx = 0 + } +} + +# main() ;-) +{ + preamble = 1 + + sub(/[ \t]+$/, "") + print + + if (name_seen == 0 && name) { + print "Name:\t\t" name + name_seen = 1 + } + + if (version_seen == 0 && version) { + print "Version:\t" version + version_seen = 1 + } + + if (release_seen == 0 && release) { + print "Release:\t" release + release_seen = 1 + } + + if (did_build_root == 0) { +# print "BuildRoot:\t%{tmpdir}/%{name}-%{version}-root-%(id -u -n)" + did_build_root = 1 + } + if (did_groups == 0) { +# print "Group:\t\tunknown" + did_groups = 1 + } +} + + +END { + if (do_not_touch_anything) { + exit(rc) + } + + # TODO: need to output these in proper place + if (BR_count > 0) { + for (i = 0; i <= BR_count; i++) { + print BR[i]; + } + } + + close(changelog_file) + while ((getline < changelog_file) > 0) + print + system("rm -f " changelog_file) + + if (did_clean == 0) { + print "" + print "%clean" + print "rm -rf $RPM_BUILD_ROOT" + } + + if (date == 0) { + print "" + print "%define date\t%(echo `LC_ALL=\"C\" date +\"%a %b %d %Y\"`)" + } + + if (has_changelog == 0) { + print "%changelog" + } + + if (boc > 2) { + print "* %{date} PLD Team " + } + if (boc > 1) { + printf "All persons listed below can be reached at " + print "@pld-linux.org\n" + } + if (boc > 0) { + print "$" "Log:$" + } +} + +# substitutes fixed strings (not regexps) +function fixedsub(s1,s2,t, ind) { + if (ind = index(t,s1)) + t = substr(t, 1, ind-1) s2 substr(t, ind+length(s1)) + return t +} + +# replace s with s2 if it equals to s1 +function replace(s, s1, s2) { + if (s == s1) { + return s2; + } else { + return s; + } +} + +# There should be one or two tabs after the colon. +function format_preamble() +{ + if (/^#/ || /^%bcond_with/) { + return; + } + sub(/:[ \t]*/, ":") + if (match($0, /[A-Za-z0-9(),#_ \t.-]+[ \t]*:[ \t]*/) == 1) { + if (RLENGTH < 8) { + sub(/:/, ":\t\t") + } else { + sub(/:/, ":\t") + } + } +} + +# Replace directly specified directories with macros +function use_macros() +{ + # -m, --skip-macros, --no-macros -- skip macros subst + if (ENVIRON["SKIP_MACROS"]) { + return + } + + # leave inline sed lines alone + if (/(%{__sed}|sed) -i -e/) { + return; + } + + sub("%{_defaultdocdir}", "%{_docdir}"); + sub("%{_bindir}/perl", "%{__perl}"); + sub("%{_bindir}/python", "%{__python}"); + + gsub(infodir, "%{_infodir}") + + gsub(perl_sitearch, "%{perl_sitearch}") + gsub(perl_archlib, "%{perl_archlib}") + gsub(perl_privlib, "%{perl_privlib}") + gsub(perl_vendorlib, "%{perl_vendorlib}") + gsub(perl_vendorarch, "%{perl_vendorarch}") + gsub(perl_sitelib, "%{perl_sitelib}") + + gsub(py_sitescriptdir, "%{py_sitescriptdir}") + gsub(py_sitedir, "%{py_sitedir}") + gsub(py_scriptdir, "%{py_scriptdir}") + + gsub(py3_sitescriptdir, "%{py3_sitescriptdir}") + gsub(py3_sitedir, "%{py3_sitedir}") + gsub(py3_scriptdir, "%{py3_scriptdir}") + + gsub(ruby_archdir, "%{ruby_archdir}") + gsub(ruby_ridir, "%{ruby_ridir}") + gsub(ruby_rubylibdir, "%{ruby_rubylibdir}") + gsub(ruby_sitearchdir, "%{ruby_sitearchdir}") + gsub(ruby_sitelibdir, "%{ruby_sitelibdir}") + gsub(ruby_rdocdir, "%{ruby_rdocdir}") + + gsub(systemdunitdir, "%{systemdunitdir}") + gsub(systemdtmpfilesdir, "%{systemdtmpfilesdir}") + + gsub("%{_datadir}/applications", "%{_desktopdir}") + gsub("%{_datadir}/pixmaps", "%{_pixmapsdir}") + gsub("%{_datadir}/java", "%{_javadir}") + + gsub("%{_libdir}/pkgconfig", "%{_pkgconfigdir}") + gsub(pkgconfigdir, "%{_pkgconfigdir}") + + gsub("%{_datadir}/pkgconfig", "%{_npkgconfigdir}") + gsub(npkgconfigdir, "%{_npkgconfigdir}") + + gsub("%{_datadir}/locale", "%{_localedir}") + gsub(localedir, "%{_localedir}") + + gsub(libdir, "%{_libdir}") + gsub(javadir, "%{_javadir}") + + gsub(bindir, "%{_bindir}") + gsub("%{prefix}/bin", "%{_bindir}") + if (prefix"/bin" == bindir) + gsub("%{_prefix}/bin", "%{_bindir}") + + for (c = 1; c <= NF; c++) { + if ($c ~ sbindir "/fix-info-dir") + continue; + if ($c ~ sbindir "/webapp") + continue; + if ($c ~ sbindir "/ldconfig") + continue; + if ($c ~ sbindir "/chsh") + continue; + if ($c ~ sbindir "/usermod") + continue; + if ($c ~ sbindir "/chkconfig") + continue; + if ($c ~ sbindir "/installzope(product|3package)") + continue; + gsub(sbindir, "%{_sbindir}", $c) + } + + gsub("%{prefix}/sbin", "%{_sbindir}") + if (prefix"/sbin" == sbindir) { + gsub("%{_prefix}/sbin", "%{_sbindir}") + } + + for (c = 1; c <= NF; c++) { + if ($c ~ sysconfdir "/{?cron.") + continue; + if ($c ~ sysconfdir "/{?crontab.d") + continue; + if ($c ~ sysconfdir "/{?env.d") + continue; + if ($c ~ sysconfdir "/{?modprobe.(d|conf)") + continue; + if ($c ~ sysconfdir "/{?udev") + continue; + if ($c ~ sysconfdir "/{?hotplug") + continue; + if ($c ~ sysconfdir "/{?logrotate.d") + continue; + if ($c ~ sysconfdir "/{?pam.d") + continue; + if ($c ~ sysconfdir "/{?profile.d") + continue; + if ($c ~ sysconfdir "/{?rc.d") + continue; + if ($c ~ sysconfdir "/{?security") + continue; + if ($c ~ sysconfdir "/{?skel") + continue; + if ($c ~ sysconfdir "/{?sysconfig") + continue; + if ($c ~ sysconfdir "/{?shrc.d") + continue; + if ($c ~ sysconfdir "/{?certs") + continue; + if ($c ~ sysconfdir "/{?X11") + continue; + if ($c ~ sysconfdir "/{?ld.so.conf.d") + continue; + if ($c ~ sysconfdir "/{?rpm") + continue; + if ($c ~ sysconfdir "/{?bash_completion.d") + continue; + if ($c ~ sysconfdir "/{?samba") + continue; + if ($c ~ sysconfdir "/{?xdg") + continue; + if ($c ~ sysconfdir "/shells") + continue; + if ($c ~ sysconfdir "/inittab") + continue; + if ($c ~ sysconfdir "/init") + continue; + if ($c ~ sysconfdir "/ppp") + continue; + if ($c ~ sysconfdir "/dbus-1") + continue; + if ($c ~ sysconfdir "/tmpwatch") + continue; + if ($c ~ sysconfdir "/acpi") + continue; + if ($c ~ sysconfdir "/apm") + continue; + gsub(sysconfdir, "%{_sysconfdir}", $c) + } + + 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") + continue; + if ($c ~ datadir "/unsermake") + continue; + if ($c ~ datadir "/file/magic.mime") + continue; + gsub(datadir, "%{_datadir}", $c) + } + + gsub("%{prefix}/share", "%{_datadir}") + if (prefix"/share" == datadir) + gsub("%{_prefix}/share", "%{_datadir}") + + # CFLAGS="-I/usr/include/ncurses is usually correct. + if (!/-I\/usr\/include/) { + gsub(includedir, "%{_includedir}") + } + + gsub("%{prefix}/include", "%{_includedir}") + if (prefix"/include" == includedir) { + gsub("%{_prefix}/include", "%{_includedir}") + } + + gsub(mandir, "%{_mandir}") + if ($0 !~ "%{_datadir}/manual") { + gsub("%{_datadir}/man", "%{_mandir}") + } + gsub("%{_prefix}/share/man", "%{_mandir}") + gsub("%{prefix}/share/man", "%{_mandir}") + gsub("%{prefix}/man", "%{_mandir}") + gsub("%{_prefix}/man", "%{_mandir}") + + gsub(infodir, "%{_infodir}") + gsub("%{prefix}/info", "%{_infodir}") + gsub("%{_prefix}/info", "%{_infodir}") + + if (prefix !~ "/X11R6") { + gsub("%{_datadir}/aclocal", "%{_aclocaldir}") + } + + gsub(examplesdir, "%{_examplesdir}") + + if (prefix != "/") { + # leave --with-foo=/usr alone + if ($0 !~ "--with.*=.*" prefix) { + for (c = 1; c <= NF; c++) { + if ($c ~ prefix "/sbin/fix-info-dir") + continue; + if ($c ~ prefix "/sbin/webapp") + continue; + if ($c ~ prefix "/sbin/chsh") + continue; + if ($c ~ prefix "/sbin/usermod") + continue; + if ($c ~ prefix "/sbin/installzope(product|3package)") + continue; + if ($c ~ prefix "/share/automake") + continue; + if ($c ~ prefix "/share/unsermake") + continue; + if ($c ~ prefix "/lib/sendmail") + continue; + if ($c ~ prefix "/lib/pkgconfig") + continue; + + # CFLAGS="-I/usr..." is usually correct. + if (/-I\/usr/) + continue; + # same for LDFLAGS="-L/usr..." + if (/-L\/usr/) + continue; + + gsub(prefix, "%{_prefix}", $c) + } + } + gsub("%{prefix}", "%{_prefix}") + } + + # replace back + gsub("%{_includedir}/ncurses", "/usr/include/ncurses") + gsub("%{_includedir}/freetype", "/usr/include/freetype") + + gsub("%{PACKAGE_VERSION}", "%{version}") + gsub("%{PACKAGE_NAME}", "%{name}") + + gsub("^make$", "%{__make}") + gsub("^make ", "%{__make} ") + gsub("^gcc ", "%{__cc} ") + gsub("^rm --interactive=never ", "%{__rm} ") + + # fedora + gsub("%{ruby_sitearch}", "%{ruby_sitearchdir}") + gsub("%{python_sitearch}", "%{py_sitedir}") + gsub("%{python_sitelib}", "%{py_sitescriptdir}") + + # alt linux + gsub("%_man1dir", "%{_mandir}/man1") + + # mandrake specs + gsub("^%make$", "%{__make}") + gsub("^%make ", "%{__make} ") + gsub("^%makeinstall_std", "%{__make} install \\\n\tDESTDIR=$RPM_BUILD_ROOT") + gsub("^%{makeinstall}", "%{__make} install \\\n\tDESTDIR=$RPM_BUILD_ROOT") + gsub("^%makeinstall", "%{__make} install \\\n\tDESTDIR=$RPM_BUILD_ROOT") + gsub("^%{__rm} -rf %{buildroot}", "rm -rf $RPM_BUILD_ROOT") + gsub("^%{__install}", "install") + 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") + $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 +$/) { + sub( / +$/, "" ); + } else if (/%configure / && !/\\$/) { + $0 = format_configure($0); + } + + gsub("%_bindir", "%{_bindir}") + gsub("%_datadir", "%{_datadir}") + gsub("%_iconsdir", "%{_iconsdir}") + gsub("%_sbindir", "%{_sbindir}") + gsub("%_mandir", "%{_mandir}") + gsub("%name", "%{name}") + gsub(/%__rm/, "rm"); + gsub(/%__mkdir_p/, "install -d"); + gsub(/%__cp/, "cp"); + gsub(/%__ln_s/, "ln -s"); + gsub(/%__sed/, "%{__sed}"); + gsub(/%__cat/, "cat"); + gsub(/%__chmod/, "chmod"); + + gsub("/usr/src/linux", "%{_kernelsrcdir}") + gsub("%{_prefix}/src/linux", "%{_kernelsrcdir}") + + 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); + + # kill the _class and _subclass pear macros + if (pear_class) { + gsub("%{_class}", pear_class); + } + if (pear_subclass) { + gsub("%{_subclass}", pear_subclass); + } +} + +function format_configure(line, n, a, s) { + n = split(line, a, / /); + s = a[1] " \\\n"; + for (i = 2; i <= n; i++) { + s = s "\t" a[i] " \\\n" + } + return s +} + + +# insertion sort of A[1..n] +# copied from mawk manual +function isort(A,n, i,j,hold) { + for (i = 2; i <= n; i++) { + hold = A[j = i] + while (A[j-1] > hold) { + j-- ; A[j+1] = A[j] + } + A[j] = hold + } + # sentinel A[0] = "" will be created if needed +} + + +function use_files_macros( i, n, t, a, l) +{ + use_macros() + + # skip comments + if (/^#/) { + return 1; + } + + sub("^%doc %{_mandir}", "%{_mandir}") + + gsub("^%{_sbindir}", "%attr(755,root,root) %{_sbindir}") + gsub("^%{_bindir}", "%attr(755,root,root) %{_bindir}") + + # uid/gid nobody is not valid in %files + if (/%attr([^)]*nobody[^)]*)/ && !/FIXME/) { + $0 = $0 " # FIXME nobody user/group can't own files! -adapter.awk" + } + + # s[gu]id programs with globs are evil + if (/%attr\([246]...,.*\*/ && !/FIXME/) { + $0 = $0 " # FIXME no globs for suid/sgid files" + } + + # replace back + gsub("%{_sysconfdir}/cron\.d", "/etc/cron.d") + gsub("%{_sysconfdir}/crontab\.d", "/etc/crontab.d") + gsub("%{_sysconfdir}/logrotate\.d", "/etc/logrotate.d") + gsub("%{_sysconfdir}/pam\.d", "/etc/pam.d") + gsub("%{_sysconfdir}/profile\.d", "/etc/profile.d") + gsub("%{_sysconfdir}/rc\.d", "/etc/rc.d") + gsub("%{_sysconfdir}/security", "/etc/security") + gsub("%{_sysconfdir}/skel", "/etc/skel") + 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$/) { + gsub("/etc/init.d", "/etc/rc.d/init.d") + } + + if (/\/etc\/rc\.d\/init\.d\// && !/functions/) { + if (!/%attr.*\/etc\/rc\.d\/init\.d/) { + $0 = "%attr(754,root,root) " $0 + } + if (/^%attr.*\/etc\/rc\.d\/init\.d/ && !/^%attr\(754 *,/) { + gsub("^%attr\\(... *,", "%attr(754,"); + } + } + + if (/lib.+\.so\b/ && !/\.so$/ && !/^%attr.*/ && !/%exclude/) { + $0 = "%attr(755,root,root) " $0 + } + + if (/%{perl_vendorarch}.*\.so$/ && !/^%attr.*/) { + $0 = "%attr(755,root,root) " $0 + } + + # remove attrs from man pages + if (/%{_mandir}/ && /^%attr/) { + sub("^%attr\\(.*\\) *", ""); + } + + # /etc/sysconfig files + # %attr(640,root,root) %config(noreplace) %verify(not size mtime md5) /etc/sysconfig/* + # attr not required, allow default 644 attr + if (!/network-scripts/ && !/%dir/ && !/\.d$/ && !/functions/ && !/\/etc\/sysconfig\/wmstyle/) { + if (/\/etc\/sysconfig\// && /%config/ && !/%config\(noreplace/) { + gsub("%config", "%config(noreplace)") + } + + if (/\/etc\/sysconfig\// && !/%config\(noreplace/) { + $NF = "%config(noreplace) " $NF + } + + if (/\/etc\/sysconfig\// && /%attr\(755/) { + gsub("^%attr\\(... *,", "%attr(640,"); + } + + if (/\/etc\/sysconfig\// && !/%verify/) { + gsub("/etc/sysconfig", "%verify(not size mtime md5) /etc/sysconfig"); + } + } + + # kill leading zeros + if (/%attr\(0[1-9]/) { + 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"); + if (!/%dir/) { + gsub(/%attr\(644,root,root\) /, ""); + } + + # sort %verify attrs + if (match($0, /%verify\(not([^)]+)\)/)) { + t = substr($0, RSTART, RLENGTH) + # kill commas: %verify(not,md5,size,mtime) + gsub(/,/, " ", t); + + gsub(/^%verify\(not |\)$/, "", t) + n = split(t, a, / /) + isort(a, n) + + s = "%verify(not" + for (i = 1 ; i <= n; i++) { + s = s " " a[i] + } + s = s ")" + + gsub(/%verify\(not[^)]+\)/, s) + } + + if (/%{_mandir}/) { + gsub("\.gz$", "*") + gsub("%ext_man$", "*") + } + + # locale dir and no %lang -> bad + if (/%{_datadir}\/locale\/.*\// && !/%(dir|lang)/) { + $(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, "[^-]+$")) { + if (RSTART > 1) { + s = substr(s, 0, RSTART - 1); + } + print "%if \"%{py_ver}\" > \"2.4\"" + 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); + $0 = fixedsub("%{perl_bin}", "%{_bindir}", $0); + + gsub(libdir "/pkgconfig", "%{_pkgconfigdir}"); + gsub("%{_libdir}/pkgconfig", "%{_pkgconfigdir}"); + gsub("%{_prefix}/lib/pkgconfig", "%{_pkgconfigdir}"); + + 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() +{ + if (gsub("/sbin/service", "%service")) { + sub(" >/dev/null 2>&1 \|\|:", ""); + sub(" 2> /dev/null \|\| :", ""); + } +} + +function fill(ch, n, i) { + for (i = 0; i < n; i++) + printf("%c", ch) +} + +function format_flush(line, indent, newline, word, first_word) { + first_word = 1 + if (format_indent == -1) + newline = "" + else + newline = fill(" ", format_indent) "- " + + while (match(line, /[^\t ]+/)) { + word = substr(line, RSTART, RLENGTH) + if (length(newline) + length(word) + 1 > tw) { + print newline + + if (format_indent == -1) + newline = "" + else + newline = fill(" ", format_indent + 2) + first_word = 1 + } + + if (first_word) { + newline = newline word + first_word = 0 + } else + newline = newline " " word + + line = substr(line, RSTART + RLENGTH) + } + if (newline ~ /[^\t ]/) { + print newline + } +} + +function cflags(var) +{ + if ($0 == var "=\"$RPM_OPT_FLAGS\"") { + removed[var] = 1 + return 0 + } + + if (!/!\?debug/) + sub("\$RPM_OPT_FLAGS", "%{rpmcflags}") + return 1 +} + +# return whole matched pattern +function matchstr(str, pat) +{ + match(str, "[^/]+$"); + return substr(str, RSTART, RLENGTH); +} + +function unify_url(url) +{ + + # sourceforge urls + # Docs about sourceforge mirror system: http://sourceforge.net/apps/trac/sourceforge/wiki/Mirrors + + # 1. unify domains + sub("^http://prdownloads\.sourceforge\.net/", "http://downloads.sourceforge.net/", url) + sub("^http://download\.sf\.net/", "http://downloads.sourceforge.net/", url) + sub("^http://download\.sourceforge\.net/", "http://downloads.sourceforge.net/", url) + sub("^http://dl\.sourceforge\.net/", "http://downloads.sourceforge.net/", url) + sub("^http://.*\.dl\.sourceforge\.net/", "http://downloads.sourceforge.net/", url) + sub("^http://dl\.sf\.net/", "http://downloads.sourceforge.net/", url) + sub("^http://downloads\.sourceforge\.net/sourceforge/", "http://downloads.sourceforge.net/", url) + + # 3. unify urls + if (url ~ /sourceforge.net/) { + sub("[?&]big_mirror=.*$", "", url); + sub("[?&]modtime=.*$", "", url); + sub("[?]use_mirror=.*$", "", url); + sub("[?]download$", "", url); + sub("/download$", "", url); + } + + # SF: new style urls, strip "files/" between and prepend dl. + if (match(url, "^http://sourceforge.net/projects/[^/]+/files/")) { + url = substr(url, 1, RLENGTH - length("files/")) substr(url, RSTART + RLENGTH); + sub("^http://sourceforge.net/projects/", "http://downloads.sourceforge.net/project/", url); + } + + # SF unify: http://downloads.sourceforge.net/PROJECT/TARBALL + # http://downloads.sourceforge.net/project/PROJECT/FILE/VERSION/%{name}-%{version}.zip + if (match(url, "^http://downloads.sourceforge.net/project/[^/]+")) { + url = sprintf("http://downloads.sourceforge.net/%s/%s", substr(url, 42, RLENGTH - 41), matchstr(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) + + # debian.org + sub("^ftp://ftp\.[^.]+\.debian\.org/", "ftp://ftp.debian.org/", url) + sub("^http://ftp\.[^.]+\.debian\.org/", "ftp://ftp.debian.org/", url) + sub("^ftp://ftp\.debian\.org/pub/debian/", "ftp://ftp.debian.org/debian/", url) + + return url +} + +function demacroize(str) +{ + if (mod_name) { + sub("%{mod_name}", mod_name, str); + } + if (pearname) { + sub("%{_pearname}", pearname, str); + } + if (pearname) { + sub("%{pearname}", pearname, str); + } + if (name) { + sub("%{name}", name, str); + } + if (version) { + sub("%{version}", version, str); + } + if (_beta) { + sub("%{_beta}", _beta, str); + } + if (_rc) { + sub("%{_rc}", _rc, str); + } + if (_pre) { + sub("%{_pre}", _pre, str); + } + if (_snap) { + sub("%{_snap}", _snap, str); + } + if (subver) { + sub("%{subver}", subver, str); + } + return str; +} + +function kill_preamble_macros() +{ + 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); + $2 = unify_url($2) + } + + # fedora extras + if (/%{\?FE_USERADD_REQ}/) { + $0 = ""; + print "BuildRequires: rpmbuild(macros) >= 1.202" + print "Provides: user(xxx)" + print "Requires(postun): /usr/sbin/userdel" + print "Requires(pre): /bin/id" + print "Requires(pre): /usr/sbin/useradd" + } +} + +function get_epoch(pkg, ver, epoch) +{ + return +# should parse the BR lines more adequately: +# freetype = 2.0.0 -> correct +# freetype = 2.1.9 -> with epoch 1, as epoch 1 was added in 2.1.7 + + shell = "grep -o '^" pkg ":[^:]\+' ../PLD-doc/BuildRequires.txt | awk '{print $NF}'"; + shell | getline epoch; + return epoch; +} + +function format_requires(tag, value, n, p, i, deps, ndeps) { + # skip any formatting for commented out items or some weird macros + if (/^#/ || /%\(/) { + return tag "\t" value + } + n = split(value, p, / *,? */); + for (i = 1; i <= n; i++) { + if (p[i+1] ~ /[<=>]/) { + # add epoch if the version doesn't have it but BuildRequires.txt has + if (p[i] ~ /^[a-z]/ && p[i+2] !~ /^[0-9]+:/) { + epoch = get_epoch(p[i], p[i+2]) + if (epoch) { + p[i+2] = epoch ":" p[i+2]; + } + } + deps[ndeps++] = p[i] " " p[i+1] " " p[i+2]; + i += 2; + } else { + deps[ndeps++] = p[i]; + } + } + s = "" + for (i in deps) { + s = s sprintf("%s\t%s\n", tag, deps[i]); + } + return substr(s, 1, length(s)-1); +} + +function use_tabs() +{ + # reverse vim: ts=4 sw=4 et + gsub(/ /, "\t"); +} + +function add_br(br) +{ + BR[BR_count++] = br +} + +# Load rpm macros +# you should update the list also in adapter when making changes here +function import_rpm_macros( v) { + # File with rpm groups + topdir = ENVIRON["_topdir"] + + if (!topdir) { + print "adapter.awk should not not be invoked directly, but via adapter script" > "/dev/stderr" + do_not_touch_anything = 1 + exit(rc = 1); + } + + # update this version dep each time some new macro export is added + v = 1.49 + if (!ENVIRON["ADAPTER_REVISION"] || ENVIRON["ADAPTER_REVISION"] < v) { + printf("adapter shell script is outdated: Need %s, got %s. Please update it.\n", v, ENVIRON["ADAPTER_REVISION"]) > "/dev/stderr" + do_not_touch_anything = 1 + exit(rc = 1); + } + + # get cvsaddress for changelog section + # using rpm macros as too lazy to add ~/.adapterrc parsing support. + _cvsmaildomain = ENVIRON["_cvsmaildomain"] + _cvsmailfeedback = ENVIRON["_cvsmailfeedback"] + + prefix = ENVIRON["_prefix"] + bindir = ENVIRON["_bindir"] + sbindir = ENVIRON["_sbindir"] + libdir = ENVIRON["_libdir"] + sysconfdir = ENVIRON["_sysconfdir"] + datadir = ENVIRON["_datadir"] + includedir = ENVIRON["_includedir"] + mandir = ENVIRON["_mandir"] + infodir = ENVIRON["_infodir"] + examplesdir = ENVIRON["_examplesdir"] + docdir = ENVIRON["_defaultdocdir"] + kdedocdir = ENVIRON["_kdedocdir"] + gtkdocdir = ENVIRON["_gtkdocdir"] + desktopdir = ENVIRON["_desktopdir"] + pixmapsdir = ENVIRON["_pixmapsdir"] + javadir = ENVIRON["_javadir"] + pkgconfigdir = ENVIRON["_pkgconfigdir"] + npkgconfigdir = ENVIRON["_npkgconfigdir"] + localedir = ENVIRON["_localedir"] + + perl_sitearch = ENVIRON["perl_sitearch"] + perl_archlib = ENVIRON["perl_archlib"] + perl_privlib = ENVIRON["perl_privlib"] + perl_vendorlib = ENVIRON["perl_vendorlib"] + perl_vendorarch = ENVIRON["perl_vendorarch"] + perl_sitelib = ENVIRON["perl_sitelib"] + + py_sitescriptdir = ENVIRON["py_sitescriptdir"] + py_sitedir = ENVIRON["py_sitedir"] + py_scriptdir = ENVIRON["py_scriptdir"] + py_ver = ENVIRON["py_ver"] + + py3_sitescriptdir = ENVIRON["py3_sitescriptdir"] + py3_sitedir = ENVIRON["py3_sitedir"] + py3_scriptdir = ENVIRON["py3_scriptdir"] + py3_ver = ENVIRON["py3_ver"] + + ruby_archdir = ENVIRON["ruby_archdir"] + ruby_ridir = ENVIRON["ruby_ridir"] + ruby_rubylibdir = ENVIRON["ruby_rubylibdir"] + ruby_sitearchdir = ENVIRON["ruby_sitearchdir"] + ruby_sitelibdir = ENVIRON["ruby_sitelibdir"] + ruby_rdocdir = ENVIRON["ruby_rdocdir"] + + php_pear_dir = ENVIRON["php_pear_dir"] + php_data_dir = ENVIRON["php_data_dir"] + tmpdir = ENVIRON["tmpdir"] + + systemdunitdir = ENVIRON["systemdunitdir"] + systemdtmpfilesdir = ENVIRON["systemdtmpfilesdir"] +} + +# php virtual deps as discussed in devel-en +function replace_php_virtual_deps() { + pkg = $2 +# if (pkg == "php-program") { +# $0 = $1 "\t/usr/bin/php" +# return +# } + +# 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)"; + if ($4 ~ /^[0-9]:/) { + $4 = substr($4, 3); + } + } + + if (pkg ~/^php4$/) { + $2 = "webserver(php)"; + if ($4 ~ /^[0-9]:/) { + $4 = substr($4, 3); + } + } +} + +function replace_groupnames(group) { + group = replace(group, "Amusements/Games", "Applications/Games"); + group = replace(group, "Amusements/Games/Strategy/Real Time", "X11/Applications/Games/Strategy"); + group = replace(group, "Application/Multimedia", "Applications/Multimedia"); + group = replace(group, "Application/System", "Applications/System"); + group = replace(group, "Applications/Compilers", "Development/Languages"); + group = replace(group, "Applications/Daemons", "Daemons"); + group = replace(group, "Applications/Internet", "Applications/Networking"); + group = replace(group, "Applications/Internet/Peer to Peer", "Applications/Networking"); + group = replace(group, "Applications/Productivity", "X11/Applications"); + group = replace(group, "Applications/Security", "Applications/System"); + group = replace(group, "Applications/Web", "Applications/WWW"); + group = replace(group, "Database", "Applications/Databases"); + group = replace(group, "Development/C", "Development/Libraries"); + group = replace(group, "Development/Code Generators", "Development"); + group = replace(group, "Development/Docs", "Documentation"); + group = replace(group, "Development/Documentation", "Documentation"); + group = replace(group, "Development/Java", "Development/Languages/Java"); + group = replace(group, "Development/Languages/C and C++", "Libraries"); + group = replace(group, "Development/Languages/Other", "Development/Languages");; + group = replace(group, "Development/Languages/Ruby", "Development/Languages"); + group = replace(group, "Development/Libraries/C and C++", "Development/Libraries"); + group = replace(group, "Development/Libraries/Java", "Development/Languages/Java"); + group = replace(group, "Development/Libraries/Python", "Development/Languages/Python"); + group = replace(group, "Development/Libraries/TCL", "Development/Languages/Tcl");; + group = replace(group, "Development/Other", "Development"); + group = replace(group, "Development/Python", "Development/Languages/Python"); + group = replace(group, "Development/Testing", "Development"); + group = replace(group, "Editors", "Applications/Text"); + group = replace(group, "Emulators", "Applications/Emulators"); + group = replace(group, "File tools", "Applications/File"); + group = replace(group, "Games", "Applications/Games"); + group = replace(group, "Library/Development", "Development/Libraries"); + group = replace(group, "Networking/Deamons", "Networking/Daemons"); + group = replace(group, "Networking/Mail", "Applications/Mail"); + group = replace(group, "Networking/Other", "Networking"); + group = replace(group, "Productivity/Databases/Servers", "Applications/Databases"); + group = replace(group, "Productivity/Multimedia/Other", "X11/Applications/Multimedia"); + group = replace(group, "Productivity/Networking/Web/Servers", "Networking/Daemons/HTTP");; + group = replace(group, "Shells", "Applications/Shells"); + group = replace(group, "System Environment/Base", "Base"); + group = replace(group, "System Environment/Daemons", "Daemons"); + group = replace(group, "System Environment/Kernel", "Base/Kernel"); + group = replace(group, "System Environment/Libraries", "Libraries"); + group = replace(group, "System Tools", "Applications/System"); + group = replace(group, "System", "Base"); + group = replace(group, "System/Base", "Base"); + group = replace(group, "System/Kernel and hardware", "Base/Kernel"); + group = replace(group, "System/Libraries", "Libraries"); + group = replace(group, "System/Servers", "Daemons"); + group = replace(group, "Text Processing/Markup/HTML", "Applications/Text"); + group = replace(group, "Text Processing/Markup/XML", "Applications/Text"); + group = replace(group, "Text tools", "Applications/Text"); + group = replace(group, "User Interface/Desktops", "X11/Applications"); + group = replace(group, "User Interface/X", "X11/Applications"); + group = replace(group, "Utilities/System", "Applications/System"); + group = replace(group, "Web/Database", "Applications/WWW"); + group = replace(group, "X11/GNOME", "X11/Applications"); + group = replace(group, "X11/GNOME/Applications", "X11/Applications"); + group = replace(group, "X11/GNOME/Development/Libraries", "X11/Development/Libraries"); + group = replace(group, "X11/Games", "X11/Applications/Games"); + group = replace(group, "X11/Games/Strategy", "X11/Applications/Games/Strategy"); + group = replace(group, "X11/Library", "X11/Libraries"); + group = replace(group, "X11/Utilities", "X11/Applications"); + group = replace(group, "X11/XFree86", "X11"); + group = replace(group, "X11/Xserver", "X11/Servers"); + + return group; +} + +function replace_requires() { + + sub(/^python-setuptools-devel$/, "python-distribute", $2); + sub(/^gcc-g77/, "gcc-fortran", $2); + + # use virtual, not package name + sub(/^rpm-build-macros$/, "rpmbuild(macros)", $2); + + # bad package.xml, see http://pear.php.net/bugs/bug.php?id=17779 + sub(/^php-php-gtk/, "php-gtk2", $2); + + # jpackages / fedora java packages + sub(/^antlr3$/, "java-antlr3", $2); + sub(/^aqute-bnd$/, "java-bnd", $2); + sub(/^avalon-framework$/, "java-avalon-framework", $2); + sub(/^avalon-logkit$/, "java-avalon-logkit", $2); + sub(/^axis$/, "java-axis", $2); + sub(/^bouncycastle$/, "java-bcprov", $2); + sub(/^bouncycastle-mail$/, "java-bcmail", $2); + sub(/^bouncycastle-pg$/, "java-bcpg", $2); + sub(/^bouncycastle-tsp$/, "java-bctsp", $2); + sub(/^bsf$/, "java-bsf", $2); + sub(/^dom4j$/, "java-dom4j", $2); + sub(/^flute$/, "java-flute", $2); + sub(/^gnu-regexp$/, "java-gnu-regexp", $2); + sub(/^gnu.regexp$/, "java-gnu-regexp", $2); + sub(/^hamcrest$/, "java-hamcrest", $2); + sub(/^itext$/, "java-itext", $2); + sub(/^jaas$/, "java(jaas)", $2); + sub(/^jaf$/, "java(jaf)", $2); + sub(/^jakarta-ant$/, "ant", $2); + sub(/^jakarta-commons-codec$/, "java-commons-codec", $2); + sub(/^jakarta-commons-httpclient$/, "java-commons-httpclient", $2); + sub(/^jakarta-commons-logging$/, "java-commons-logging", $2); + sub(/^jakarta-log4j$/, "java-log4j", $2); + sub(/^jakarta-oro$/, "java-oro", $2); + sub(/^jakarta-servletapi$/, "java(servlet)", $2); + sub(/^java-devel$/, "jdk", $2); + sub(/^java\(JSP\)$/, "java(jsp)", $2); + sub(/^java\(JavaServerFaces\)$/, "java(javaserverfaces)", $2); + sub(/^java\(Portlet\)$/, "java(portlet)", $2); + sub(/^java\(Servlet\)$/, "java(servlet)", $2); + sub(/^javamail$/, "java(javamail)", $2); + sub(/^jaxp$/, "java(jaxp)", $2); + sub(/^jaxp_parser_impl$/, "java(jaxp_parser_impl)", $2); + sub(/^jaxp_transform_impl$/, "java(jaxp_transform_impl)", $2); + sub(/^jce$/, "java(jce)", $2); + sub(/^jcommon$/, "java-jcommon", $2); + sub(/^jdbc-stdext$/, "java(jdbc-stdext)", $2); + sub(/^jdepend$/, "java-jdepend", $2); + sub(/^jfreechart$/, "java-jfreechart", $2); + sub(/^jmx$/, "java(jmx)", $2); + sub(/^jndi$/, "java(jndi)", $2); + sub(/^jsch$/, "java-jsch", $2); + sub(/^jsse$/, "java(jsse)", $2); + sub(/^jta$/, "java(jta)", $2); + sub(/^junit$/, "java-junit", $2); + sub(/^junit4$/, "java-junit", $2); + sub(/^ldapjdk$/, "ldapsdk", $2); + sub(/^libbase$/, "java-libbase", $2); + sub(/^libfonts$/, "java-libfonts", $2); + sub(/^libformula$/, "java-libformula", $2); + sub(/^liblayout$/, "java-liblayout", $2); + sub(/^libloader$/, "java-libloader", $2); + sub(/^librepository$/, "java-librepository", $2); + sub(/^libserializer$/, "java-libserializer", $2); + sub(/^log4j$/, "java-log4j", $2); + sub(/^logging-log4j$/, "java-log4j", $2); + sub(/^oro$/, "java-oro", $2); + sub(/^pdf-renderer$/, "java-pdf-renderer", $2); + sub(/^pentaho-libxml$/, "java-libxml", $2); + sub(/^rhino$/, "java-rhino", $2); + sub(/^sac$/, "java-sac", $2); + sub(/^saxon-scripts$/, "saxon", $2); + sub(/^servlet$/, "java(servlet)", $2); + sub(/^uddi4j$/, "java-uddi4j", $2); + sub(/^ws-jaxme$/, "java-jaxme", $2); + sub(/^wsdl4j$/, "java-wsdl4j", $2); + sub(/^xalan-j$/, "java-xalan", $2); + sub(/^xalan-j2$/, "java-xalan", $2); + sub(/^xerces-j$/, "java-xerces", $2); + sub(/^xerces-j2$/, "java-xerces", $2); + sub(/^xml-commons-apis$/, "java-xml-commons", $2); + sub(/^xml-commons-resolver$/, "java-xml-commons-resolver", $2); + sub(/^xmldb-api$/, "java-xmldb", $2); + sub(/^xmldb-api-sdk$/, "java-xmldb-sdk", $2); + + # fedora / redhat + sub(/^Django$/, "python-django", $2); + sub(/^GitPython$/, "python-git", $2); + sub(/^PyQt4-devel$/, "python-PyQt4-devel", $2); + sub(/^PyQwt-devel$/, "python-PyQwt-devel", $2); + sub(/^ccid$/, "pcsc-driver-ccid", $2); + sub(/^chkconfig$/, "/sbin/chkconfig", $2); + sub(/^db4-devel$/, "db-devel", $2); + sub(/^dbus-python$/, "python-dbus", $2); + sub(/^desktop-notification-daemon$/, "dbus(org.freedesktop.Notifications)", $2); + sub(/^file-devel$/, "libmagic-devel", $2); + sub(/^freetype2-devel$/, "freetype-devel", $2); + sub(/^fuse-devel$/, "libfuse-devel", $2); + sub(/^gamin-python$/, "python-gamin", $2); + sub(/^gcc-c\+\+$/, "libstdc++-devel", $2); + sub(/^gnome-desktop3-devel$/, "gnome-desktop-devel", $2); + sub(/^gnome-python2-extras$/, "python-gnome-extras", $2); + sub(/^gnome-python2-gconf$/, "python-gnome-gconf", $2); + sub(/^gnome-python2-gnomekeyring$/, "python-gnome-desktop-keyring", $2); + sub(/^gnome-python2-gtkspell$/, "python-gnome-extras-gtkspell", $2); + sub(/^gtk-sharp2-devel$/, "dotnet-gtk-sharp2-devel", $2); + sub(/^gtk2$/, "gtk+2", $2); + sub(/^gtk2-devel$/, "gtk+2-devel", $2); + sub(/^gtk3-devel$/, "gtk+3-devel", $2); + sub(/^initscripts$/, "rc-scripts", $2); + sub(/^iproute$/, "iproute2", $2); + sub(/^iscsi-initiator-utils$/, "open-iscsi", $2); + sub(/^keyutils-libs-devel$/, "keyutils-devel", $2); + sub(/^libSM-devel$/, "xorg-lib-libSM-devel", $2); + sub(/^libX11-devel$/, "xorg-lib-libX11-devel", $2); + sub(/^libXScrnSaver-devel$/, "xorg-lib-libXScrnSaver-devel", $2); + sub(/^libXau-devel$/, "xorg-lib-libXau-devel", $2); + sub(/^libXcomposite-devel$/, "xorg-lib-libXcomposite-devel", $2); + sub(/^libXcursor-devel$/, "xorg-lib-libXcursor-devel", $2); + sub(/^libXdamage-devel$/, "xorg-lib-libXdamage-devel", $2); + sub(/^libXext-devel$/, "xorg-lib-libXext-devel", $2); + sub(/^libXft-devel$/, "xorg-lib-libXft-devel", $2); + sub(/^libXinerama-devel$/, "xorg-lib-libXinerama-devel", $2); + sub(/^libXrandr-devel$/, "xorg-lib-libXrandr-devel", $2); + sub(/^libXrender-devel$/, "xorg-lib-libXrender-devel", $2); + sub(/^libXxf86vm-devel$/, "xorg-lib-libXxf86vm-devel", $2); + sub(/^libacl-devel$/, "acl-devel", $2); + sub(/^libcurl-devel$/, "curl-devel", $2); + sub(/^libgudev1-devel$/, "udev-glib-devel", $2); + sub(/^libmx-devel$/, "mx-devel", $2); + sub(/^libselinux-python$/, "python-selinux", $2); + sub(/^libsrtp-devel$/, "srtp-devel", $2); + sub(/^libtdb$/, "tdb", $2); + sub(/^libtdb-devel$/, "tdb-devel", $2); + sub(/^libtevent$/, "tevent", $2); + sub(/^libtevent-devel$/, "tevent-devel", $2); + sub(/^libusb1-devel$/, "libusb-devel", $2); + sub(/^mod_wsgi$/, "apache-mod_wsgi", $2); + sub(/^newt-python$/, "python-snack", $2); + sub(/^notify-python$/, "python-pynotify", $2); + sub(/^pcsc-lite-ccid$/, "pcsc-driver-ccid", $2); + sub(/^pulseaudio-libs-devel$/, "pulseaudio-devel", $2); + sub(/^pyOpenSSL$/, "python-pyOpenSSL", $2); + sub(/^pycairo$/, "python-pycairo", $2); + sub(/^pyflakes$/, "python-pyflakes", $2); + sub(/^pygobject2$/, "python-pygobject", $2); + sub(/^pygobject3-devel$/, "python-pygobject3-common-devel", $2); + sub(/^pygtk2$/, "python-pygtk", $2); + sub(/^pygtk2-devel$/, "python-pygtk-devel", $2); + sub(/^pygtk2-libglade$/, "python-pygtk-glade", $2); + sub(/^pysvn$/, "python-pysvn", $2); + sub(/^pytalloc$/, "python-talloc", $2); + sub(/^pytalloc-devel$/, "python-talloc-devel", $2); + sub(/^python-cups$/, "python-pycups", $2); + sub(/^python-enchant$/, "python-pyenchant", $2); + sub(/^python-imaging$/, "python-PIL", $2); + sub(/^python-imaging-tk$/, "python-PIL-tk", $2); + sub(/^python-newt$/, "python-snack", $2); + sub(/^python-pygtk$/, "python-pygtk-gtk", $2); + sub(/^python-recaptcha-client$/, "python-recaptcha", $2); + sub(/^python-twisted-core$/, "python-TwistedCore", $2); + sub(/^python-twisted-core$/, "python-TwistedCore", $2); + sub(/^python-twisted-names$/, "python-TwistedNames", $2); + sub(/^python2-devel$/, "python-devel", $2); + sub(/^pytz$/, "python-pytz", $2); + sub(/^qt4-devel$/, "qt4-build", $2); + sub(/^qt4-webkit-devel$/, "QtWebKit-devel", $2); + sub(/^qtlockedfile-devel$/, "QtLockedFile-devel", $2); + sub(/^qtsingleapplication-devel$/, "QtSingleApplication-devel", $2); + sub(/^rpm-python$/, "python-rpm", $2); + sub(/^sip-devel$/, "python-sip-devel", $2); + sub(/^tftp-server$/, "tftpdaemon", $2); + sub(/^tkinter$/, "python-tkinter", $2); + sub(/^urw-fonts$/, "fonts-Type1-urw", $2); + sub(/^webkitgtk3-devel$/, "gtk-webkit3-devel", $2); + sub(/^xapian-bindings-python$/, "python-xapian", $2); + sub(/^xorg-x11-server-sdk$/, "xorg-xserver-server-devel", $2); + + # mandriva + sub(/^python-gobject-devel$/, "python-pygobject-devel", $2); + sub(/^python-pyrex$/, "python-Pyrex", $2); + sub(/^webkitgtk-devel$/, "gtk-webkit-devel", $2); + sub(/^python-curl$/, "python-pycurl", $2); + sub(/^python-webkitgtk$/, "python-pywebkitgtk", $2); + sub(/^pygtk2.0$/, "python-pygtk-gtk", $2); + sub(/^gnome-python-gconf$/, "python-gnome-gconf", $2); + + # debian / ubuntu + sub(/^blkid-dev$/, "libblkid-devel", $2); + sub(/^ext2fs-dev$/, "e2fsprogs-devel", $2); + sub(/^libao-dev$/, "libao-devel", $2); + sub(/^libboost-filesystem[0-9.]+-dev$/, "boost-devel", $2); + sub(/^libboost-program-options[0-9.]+-dev$/, "boost-devel", $2); + sub(/^libboost-regex[0-9.]+-dev$/, "boost-devel", $2); + sub(/^libboost-thread[0-9.]+-dev$/, "boost-devel", $2); + sub(/^libcurl4-openssl-dev$/, "curl-devel", $2); + sub(/^libdnet-dev$/, "libdnet-devel", $2); + sub(/^libesd0-dev$/, "esound-devel", $2); + sub(/^libfishsound1-dev$/, "libfishsound-devel", $2); + sub(/^libgconf2-dev$/, "GConf2-devel", $2); + sub(/^libgl1-mesa-dev$/, "OpenGL-devel", $2); + sub(/^libgl1-mesa-dri$/, "OpenGL", $2); + sub(/^libglib2.0-dev$/, "glib2-devel", $2); + sub(/^libglu1-mesa-dev$/, "OpenGL-GLU-devel", $2); + sub(/^libgtk2.0-dev$/, "gtk+2-devel", $2); + sub(/^libhunspell-dev$/, "hunspell-devel", $2); + sub(/^libmcrypt-dev$/, "libmcrypt-devel", $2); + sub(/^libmhash-dev$/, "mhash-devel", $2); + sub(/^liboggz1-dev$/, "libggz-devel", $2); + sub(/^libpango1.0-dev$/, "pango-devel", $2); + sub(/^libqt4-dev$/, "qt4-build", $2); + sub(/^libshout3-dev$/, "libshout-devel", $2); + sub(/^libslp-dev$/, "openslp-devel", $2); + sub(/^libsndfile1-dev$/, "libsndfile-devel", $2); + sub(/^libspeex-dev$/, "speex-devel", $2); + sub(/^libssl-dev$/, "openssl-devel", $2); + sub(/^libvorbis-dev$/, "libvorbis-devel", $2); + sub(/^libxslt1-dev$/, "libxslt-devel", $2); + sub(/^libxss-dev$/, "xorg-lib-libXScrnSaver-devel", $2); + sub(/^mesa-common-dev$/, "OpenGL-devel", $2); + sub(/^libudev$/, "udev-libs", $2); + sub(/^tcp_wrappers-devel$/, "libwrap-devel", $2); + sub(/^vala-tools$/, "vala", $2); + sub(/^vala-devel$/, "vala", $2); + + # altlinux + sub(/^libatk-devel$/, "atk-devel", $2); + sub(/^libgit-devel$/, "git-core-devel", $2); + sub(/^libgtk\+2-devel$/, "gtk+2-devel", $2); + sub(/^libncurses-devel$/, "ncurses-devel", $2); + sub(/^libncursesxx-devel$/, "ncurses-c++-devel", $2); + sub(/^libpango-devel$/, "pango-devel", $2); + sub(/^libpcre-devel$/, "pcre-devel", $2); + sub(/^libpopt-devel$/, "popt-devel", $2); + sub(/^libssl-devel$/, "openssl-devel", $2); + + # suse + sub(/^alsa-devel$/, "alsa-lib-devel", $2); + sub(/^gtk-sharp2$/, "dotnet-gtk-sharp2", $2); + sub(/^gtkmm2-devel$/, "gtkmm-devel", $2); + sub(/^libexpat-devel$/, "expat-devel", $2); + sub(/^libffmpeg-devel$/, "ffmpeg-devel", $2); + sub(/^libopenssl-devel$/, "openssl-devel", $2); + sub(/^libpulse-devel$/, "pulseaudio-devel", $2); + sub(/^monodoc-core$/, "mono-monodoc", $2); + sub(/^python-gtk$/, "python-pygtk-gtk", $2); + + replace_php_virtual_deps() +} + +# vim:ts=4:sw=4 diff --git a/pldnotify.awk b/pldnotify.awk new file mode 100644 index 0000000..11cff98 --- /dev/null +++ b/pldnotify.awk @@ -0,0 +1,701 @@ +#!/bin/awk -f +# $Revision$, $Date$ +# +# Copyright (C) 2000-2011 PLD-Team +# Authors: +# Sebastian Zagrodzki +# Jacek Konieczny +# Andrzej Krzysztofowicz +# Jakub Bogusz +# Elan Ruusamäe +# +# See cvs log pldnotify.awk for list of contributors +# +# TODO: +# - "SourceXDownload" support (use given URLs if present instead of cut-down SourceX URLs) +# - "SourceXActiveFTP" support +# - support debian/watch http://wiki.debian.org/debian/watch/ + + +function d(s) { + if (!DEBUG) { + return + } + +# print strftime("%Y-%m-%d %H:%M:%S ") s >> "/dev/stderr" + print s >> "/dev/stderr" +} + +function fixedsub(s1,s2,t, ind) { +# substitutes fixed strings (not regexps) + if (ind = index(t,s1)) { + t = substr(t, 1, ind-1) s2 substr(t, ind+length(s1)) + } + return t +} + +function ispre(s) { + if ((s~"pre")||(s~"PRE")||(s~"beta")||(s~"BETA")||(s~"alpha")||(s~"ALPHA")||(s~"rc")||(s~"RC")) { + d("pre-version") + return 1 + } else { + return 0 + } +} + +function compare_ver(v1,v2) { +# compares version numbers + while (match(v1,/[a-zA-Z][0-9]|[0-9][a-zA-Z]/)) + v1=(substr(v1,1,RSTART) "." substr(v1,RSTART+RLENGTH-1)) + while (match(v2,/[a-zA-Z][0-9]|[0-9][a-zA-Z]/)) + v2=(substr(v2,1,RSTART) "." substr(v2,RSTART+RLENGTH-1)) + sub("^0*","",v1) + sub("^0*","",v2) + gsub("\.0*",".",v1) + gsub("\.0*",".",v2) + d("v1 == " v1) + d("v2 == " v2) + count=split(v1,v1a,"\.") + count2=split(v2,v2a,"\.") + + if (countlength(v1a[i])) + return 1 + else if (v2a[i]>v1a[i]) + return 1 + else if (length(v1a[i])>length(v2a[i])) + return 0 + else if (v1a[i]>v2a[i]) + return 0 + } else if ((v1a[i]~/[A-Za-z]/)&&(v2a[i]~/[A-Za-z]/)) { + if (v2a[i]>v1a[i]) + return 1 + else if (v1a[i]>v2a[i]) + return 0 + } else if (ispre(v1a[i]) == 1) + return 1 + else + return 0 + } + if ((count2==mincount)&&(count!=count2)) { + for (i=count2+1; i<=count; i++) + if (ispre(v1a[i]) == 1) + return 1 + return 0 + } else if (count!=count2) { + for (i=count+1; i<=count2; i++) + if (ispre(v2a[i]) == 1) + return 0 + return 1 + } + return 0 +} + +function compare_ver_dec(v1,v2) { +# compares version numbers as decimal floats + while (match(v1,/[0-9][a-zA-Z]/)) + v1=(substr(v1,1,RSTART) "." substr(v1,RSTART+RLENGTH-1)) + while (match(v2,/[0-9][a-zA-Z]/)) + v2=(substr(v2,1,RSTART) "." substr(v2,RSTART+RLENGTH-1)) + sub("^0*","",v1) + sub("^0*","",v2) + d("v1 == " v1) + d("v2 == " v2) + count=split(v1,v1a,"\.") + count2=split(v2,v2a,"\.") + + if (count0+("." v1a[i])) + return 1 + else if (0+("." v1a[i])>0+("." v2a[i])) + return 0 + } else { + if (length(v2a[i])>length(v1a[i])) + return 1 + else if (v2a[i]>v1a[i]) + return 1 + else if (length(v1a[i])>length(v2a[i])) + return 0 + else if (v1a[i]>v2a[i]) + return 0 + } + } else if ((v1a[i]~/[A-Za-z]/)&&(v2a[i]~/[A-Za-z]/)) { + if (v2a[i]>v1a[i]) + return 1 + else if (v1a[i]>v2a[i]) + return 0 + } else if (ispre(v1a[i]) == 1) + return 1 + else + return 0 + } + if ((count2==mincount)&&(count!=count2)) { + for (i=count2+1; i<=count; i++) + if (ispre(v1a[i]) == 1) + return 1 + return 0 + } else if (count!=count2) { + for (i=count+1; i<=count2; i++) + if (ispre(v2a[i]) == 1) + return 0 + return 1 + } + return 0 +} + +function link_seen(link) { + for (seenlink in frameseen) { + if (seenlink == link) { + d("Link: [" link "] seen already, skipping...") + return 1 + } + } + frameseen[link]=1 + return 0 +} + +function mktemp( _cmd, _tmpfile) { + _cmd = "mktemp /tmp/XXXXXX" + _cmd | getline _tmpfile + close(_cmd) + return _tmpfile +} + +# fix link to artificial one that will be recognized rest of this script +function postfix_link(url, link, oldlink) { + oldlink = link + if ((url ~/^(http|https):\/\/github.com\//) && (link ~ /.*\/tarball\//)) { + gsub(".*\/tarball\/", "", link) + link = link ".tar.gz" + } + if (oldlink != link) { + d("POST FIXED URL [ " oldlink " ] to [ " link " ]") + } + return link +} + +# use perl HTML::TreeBuilder module to extract links from html +# it returns TAGNAME LINK in output which is pretty stright forward to parse in awk +function extract_links_cmd(tmpfile) { + return "perl -MHTML::TreeBuilder -e ' \ + my $content = join q//, <>; \ + my $root = new HTML::TreeBuilder; \ + $root->parse($content); \ + \ + my %links = (); \ + for (@{$root->extract_links(qw(a iframe))}) { \ + my($link, $element, $attr, $tag) = @$_; \ + $links{$link} = $tag; \ + } \ + \ + while (my($link, $tag) = each %links) { \ + print $tag, q/ /, $link, $/; \ + } \ + ' " tmpfile +} + +# get all tags from specified URL +function get_links(url,filename, errno,link,oneline,retval,odp,wholeodp,lowerodp,tmpfile,cmd) { + + wholeerr="" + + tmpfile = mktemp() + tmpfileerr = mktemp() + + if (url ~ /^http:\/\/(download|dl)\.(sf|sourceforge)\.net\//) { + # http://downloads.sourceforge.net/project/mediainfo/source/mediainfo/ + gsub("^http://(download|dl)\.(sf|sourceforge)\.net/", "", url) + + gsub("/.*", "", url) + url = "http://sourceforge.net/projects/" url "/files/" + d("sf url, mungled url to: " url) + } + + if (url ~ /^http:\/\/(.*)\.googlecode\.com\/files\//) { + gsub("^http://", "", url) + gsub("\..*", "", url) + url = "http://code.google.com/p/" url "/downloads/list" + d("googlecode url, mungled url to: " url) + } + + if (url ~ /^http:\/\/pecl.php.net\/get\//) { + gsub("-.*", "", filename) + url = "http://pecl.php.net/package/" filename + d("pecl.php.net url, mungled url to: " url) + } + + if (url ~ /^(http|ftp):\/\/mysql.*\/Downloads\/MySQL-5.1\//) { + url = "http://dev.mysql.com/downloads/mysql/5.1.html#source" + d("mysql 5.1 url, mungled url to: " url) + } + + if (url ~/^(http|https):\/\/launchpad\.net\/(.*)\//) { + gsub("^(http|https):\/\/launchpad\.net\/", "", url) + gsub("\/.*/", "", url) + url = "https://code.launchpad.net/" url "/+download" + d("main launchpad url, mungled url to: " url) + } + + if (url ~/^(http|https):\/\/edge\.launchpad\.net\/(.*)\//) { + gsub("^(http|https):\/\/edge\.launchpad\.net\/", "", url) + gsub("\/.*/", "", url) + url = "https://edge.launchpad.net/" url "/+download" + d("edge launchpad url, mungled url to: " url) + } + + if (url ~/^(http|https):\/\/github.com\/.*\/(.*)\/tarball\//) { + gsub("\/tarball\/.*", "/downloads", url) + d("github tarball url, mungled url to: " url) + } + + if (url ~/^(http|https):\/\/cgit\..*\/(.*)\/snapshot\//) { + gsub("\/snapshot\/.*", "/", url) + d("cgit snapshot tarball url, mungled url to: " url) + } + + if (url ~/^(http|https):\/\/www2\.aquamaniac\.de\/sites\/download\//) { + url = "http://www2.aquamaniac.de/sites/download/packages.php" + d("aquamaniac.de tarball url, mungled url to: " url) + } + + d("Retrieving: " url) + user_agent = "Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.2) Gecko/20100129 PLD/3.0 (Th) Iceweasel/3.6" + cmd = "wget -t 2 -T 45 --user-agent \"" user_agent "\" -nv -O - \"" url "\" --passive-ftp --no-check-certificate > " tmpfile " 2> " tmpfileerr + d("Execute: " cmd) + errno = system(cmd) + d("Execute done") + + if (errno != 0) { + d("Reading failure response...") + wholeerr = "" + while (getline oneline < tmpfileerr) + wholeerr = (wholeerr " " oneline) + d("Error Response: " wholeerr) + + system("rm -f " tmpfile) + system("rm -f " tmpfileerr) + retval = ("WGET ERROR: " errno ": " wholeerr) + return retval + } + system("rm -f " tmpfileerr) + + urldir = url; + sub(/[^\/]+$/, "", urldir) + +if (USE_PERL) { + cmd = extract_links_cmd(tmpfile) + while (cmd | getline) { + tag = $1 + link = substr($0, length(tag) + 2) + + if (tag == "iframe") { + d("Frame: " link) + if (url !~ /\//) { + link = (urldir link) + d("Frame->: " link) + } + + if (link_seen(link)) { + continue + } + retval = (retval " " get_links(link)) + } + + if (link_seen(link)) { + continue + } + + retval = (retval " " link) + d("href(): " link) + } + close(cmd) + system("rm -f " tmpfile) + + d("Returning: [" retval "]") + return retval +} + + wholeodp = "" + d("Reading success response...") + while (getline oneline < tmpfile) { + wholeodp = (wholeodp " " oneline) +# d("Response: " wholeodp) + } + d("Reponse read done...") + system("rm -f " tmpfile) + + while (match(wholeodp, /<([aA]|[fF][rR][aA][mM][eE])[ \t][^>]*>/) > 0) { + d("Processing links...") + odp = substr(wholeodp,RSTART,RLENGTH); + wholeodp = substr(wholeodp,RSTART+RLENGTH); + + lowerodp = tolower(odp); + if (lowerodp ~ /: " newurl) + } + + if (link_seen(newurl)) { + newurl = "" + continue + } + + retval = (retval " " get_links(newurl)) + } else if (lowerodp ~ /href=[ \t]*"[^"]*"/) { + sub(/[hH][rR][eE][fF]=[ \t]*"/,"href=\"",odp) + match(odp,/href="[^"]*"/) + link=substr(odp,RSTART,RLENGTH) + odp=substr(odp,1,RSTART) substr(odp,RSTART+RLENGTH) + link=substr(link,7,length(link)-7) + link=postfix_link(url, link) + + if (link_seen(link)) { + link="" + continue + } + + retval = (retval " " link) + d("href(\"\"): " link) + } else if (lowerodp ~ /href=[ \t]*'[^']*'/) { + sub(/[hH][rR][eE][fF]=[ \t]*'/,"href='",odp) + match(odp,/href='[^']*'/) + link=substr(odp,RSTART,RLENGTH) + odp=substr(odp,1,RSTART) substr(odp,RSTART+RLENGTH) + link=substr(link,7,length(link)-7) + link=postfix_link(url, link) + + if (link_seen(link)) { + link="" + continue + } + + retval = (retval " " link) + d("href(''): " link) + } else if (lowerodp ~ /href=[ \t]*[^ \t>]*/) { + sub(/[hH][rR][eE][fF]=[ \t]*/,"href=",odp) + match(odp,/href=[^ \t>]*/) + link=substr(odp,RSTART,RLENGTH) + odp=substr(odp,1,RSTART) substr(odp,RSTART+RLENGTH) + link=substr(link,6,length(link)-5) + + if (link_seen(link)) { + link="" + continue + } + + retval = (retval " " link) + d("href(): " link) + } else { + # but not href - skip + d("skipping without href: " odp) + } + } + + d("Returning: [" retval "]") + return retval +} + +function subst_defines(var,defs) { +# substitute all possible RPM macros + while ((var ~ /%{.*}/) || (var ~ /%[A-Za-z0-9_]+/)) { + oldvar=var + for (j in defs) { + gsub("%{" j "}", defs[j], var) + gsub("%" j , defs[j], var) + } + if (var==oldvar) { + if (DEBUG) { + for (i in defs) { + d(i " == " defs[i]) + } + } + return var + } + } + return var +} + +function find_mirror(url) { + + while (succ = (getline line < "mirrors")) { + if (succ==-1) { return url } + nf=split(line,fields,"|") + if (nf>1){ + origin=fields[1] + mirror=fields[2] + mname=fields[3] + prefix=substr(url,1,length(origin)) + if (prefix==origin){ + d("Mirror found at " mname) + close("mirrors") + return mirror substr(url,length(origin)+1) + } + } + } + + return url +} + +function process_source(number, lurl, name, version) { +# fetches file list, and compares version numbers + d("Processing " lurl) + + if (index(lurl, version) == 0) { + d("There is no version number ["version"] in ["lurl"]") + return 0 + } + + sub("://",":",lurl) + sub("/",":/",lurl) + gsub("[^/]*$",":&",lurl) + split(lurl,url,":") + acc=url[1] + host=url[2] + dir=url[3] + filename=url[4] + + if (index(dir,version)) { + # directory name as version maching mode: + # if /something/version/name-version.tarball then check + # in /something/ looking for newer directory + dir=substr(dir,1,index(dir,version)-1) + sub("[^/]*$","",dir) + sub("(\.tar\.(bz|bz2|gz|lzma|xz)|zip)$","",filename) + } + + d("Will check a directory: " dir) + d("and a file: " filename) + + filenameexp=filename + gsub("[+]","\\+",filenameexp) + sub(version,"[A-Za-z0-9.]+",filenameexp) + gsub("[.]","\\.",filenameexp) + d("Expression: " filenameexp) + match(filename,version) + prever=substr(filename,1,RSTART-1) + postver=substr(filename,RSTART+RLENGTH) + d("Before number: " prever) + d("and after: " postver) + newurl=find_mirror(acc "://" host dir) + #print acc "://" host dir + #newurl=url[1]"://"url[2]url[3]url[4] + #newurl=acc "://" host dir filename + d("Looking at " newurl) + + references=0 + finished=0 + oldversion=version + odp = get_links(newurl, filename) + if( odp ~ "ERROR: ") { + print name "(" number ") " odp + } else { + d("WebPage downloaded") + c=split(odp,linki) + for (nr=1; nr<=c; nr++) { + addr=linki[nr] + + d("Found link: " addr) + + # github has very different tarball links that clash with this safe check + if (!(newurl ~/^(http|https):\/\/github.com\/.*\/tarball/)) { + if (addr ~ "[-_.0-9A-Za-z~]" filenameexp) { + continue + } + } + + if (addr ~ filenameexp) { + match(addr,filenameexp) + newfilename=substr(addr,RSTART,RLENGTH) + d("Hypothetical new: " newfilename) + newfilename=fixedsub(prever,"",newfilename) + newfilename=fixedsub(postver,"",newfilename) + d("Version: " newfilename) + if (newfilename ~ /\.(asc|sig|pkg|bin|binary|built)$/) continue + # strip ending (happens when in directiory name as version matching mode) + sub("(\.tar\.(bz|bz2|gz|lzma|xz)|zip)$","",newfilename) + if (NUMERIC) { + if ( compare_ver_dec(version, newfilename)==1 ) { + d("Yes, there is new one") + version=newfilename + finished=1 + } + } else if ( compare_ver(version, newfilename)==1 ) { + d("Yes, there is new one") + version=newfilename + finished=1 + } + } + } + if (finished == 0) + print name "(" number ") seems ok: " oldversion + else + print name "(" number ") [OLD] " oldversion " [NEW] " version + } +} + +function rss_upgrade(name, ver, url, regex, cmd, nver) { + regex = "s/.*" regex "<\/title>.*/\\1/p" + cmd = "wget -t 2 -T 45 -q -O - " url " | sed -nre '" regex "' | head -n1" + + d("rss_upgrade_cmd: " cmd) + cmd | getline nver + close(cmd) + + if (compare_ver(ver, nver)) { + print name " [OLD] " ver " [NEW] " nver + } else { + print name " seems ok: " ver + } +} + +# check for ZF upgrade from rss +function zf_upgrade(name, ver) { + rss_upgrade(name, ver, \ + "http://devzone.zend.com/tag/Zend_Framework_Management/format/rss2.0", \ + "Zend Framework ([^\\s]+) Released" \ + ); +} + +function hudson_upgrade(name, ver) { + rss_upgrade(name, ver, \ + "https://hudson.dev.java.net/servlets/ProjectRSS?type=news", \ + "Hudson ([0-9.]+) released" \ + ); +} + +# upgrade check for pear package using PEAR CLI +function pear_upgrade(name, ver, pname, pearcmd, nver) { + pname = name; + sub(/^php-pear-/, "", pname); + + pearcmd = "pear remote-info " pname " | awk '/^Latest/{print $NF}'" + d("pearcmd: " pearcmd) + pearcmd | getline nver + close(pearcmd) + + if (compare_ver(ver, nver)) { + print name " [OLD] " ver " [NEW] " nver + } else { + print name " seems ok: " ver + } + + return +} + +function vim_upgrade(name, ver, mver, nver, vimcmd) { + # %patchset_source -f ftp://ftp.vim.org/pub/editors/vim/patches/7.2/7.2.%03g 1 %{patchlevel} + mver = substr(ver, 0, 4) + vimcmd = "wget -q -O - ftp://ftp.vim.org/pub/editors/vim/patches/"mver"/MD5SUMS|grep -vF .gz|tail -n1|awk '{print $2}'" + d("vimcmd: " vimcmd) + vimcmd | getline nver + close(vimcmd) + + if (compare_ver(ver, nver)) { + print name " [OLD] " ver " [NEW] " nver + } else { + print name " seems ok: " ver + } +} + +function process_data(name, ver, rel, src) { + if (name ~ /^php-pear-/) { + return pear_upgrade(name, ver); + } + if (name == "ZendFramework") { + return zf_upgrade(name, ver); + } + if (name == "hudson") { + return hudson_upgrade(name, ver); + } + if (name == "vim") { + return vim_upgrade(name, ver); + } + if (name == "xulrunner") { + ver = subst_defines(DEFS["firefox_ver"], DEFS) + d("package xulrunner, change version to firefox ["ver"]") + } + +# this function checks if substitutions were valid, and if true: +# processes each URL and tries to get current file list + for (i in src) { + if (src[i] ~ /%{nil}/) { + gsub(/\%\{nil\}/, "", src[i]) + } + if ( src[i] !~ /%{.*}/ && src[i] !~ /%[A-Za-z0-9_]/ ) { + d("Source: " src[i]) + process_source(i, src[i], name, ver) + } else { + print FNAME ":" i ": impossible substitution: " src[i] + } + } +} + +BEGIN { + # if U want to use DEBUG, run script with "-v DEBUG=1" + # or uncomment the line below + # DEBUG = 1 + + errno=system("wget --help > /dev/null 2>&1") + if (errno && errno != 3) { + print "No wget installed!" + exit 1 + } + if (ARGC>=3 && ARGV[2]=="-n") { + NUMERIC=1 + for (i=3; i<ARGC; i++) ARGV[i-1]=ARGV[i] + ARGC=ARGC-1 + } +} + +FNR==1 { + if ( ARGIND != 1 ) { + # clean frameseen for each ARG + for (i in frameseen) { + delete frameseen[i] + } + frameseen[0] = 1 + + process_data(NAME,VER,REL,SRC) + NAME="" ; VER="" ; REL="" + for (i in DEFS) delete DEFS[i] + for (i in SRC) delete SRC[i] + } + FNAME=FILENAME + DEFS["_alt_kernel"]="" + DEFS["20"]="\\ " +} + +/^[Uu][Rr][Ll]:/&&(URL=="") { URL=subst_defines($2,DEFS) ; DEFS["url"]=URL } +/^[Nn]ame:/&&(NAME=="") { NAME=subst_defines($2,DEFS) ; DEFS["name"]=NAME } +/^[Vv]ersion:/&&(VER=="") { VER=subst_defines($2,DEFS) ; DEFS["version"]=VER } +/^[Rr]elease:/&&(REL=="") { REL=subst_defines($2,DEFS) ; DEFS["release"]=REL } +/^[Ss]ource[0-9]*:/ { if (/(ftp|http|https):\/\//) SRC[FNR]=subst_defines($2,DEFS) } +/%define/ { DEFS[$2]=subst_defines($3,DEFS) } + +END { + process_data(NAME,VER,REL,SRC) +} diff --git a/rpm-build-tools.spec b/rpm-build-tools.spec new file mode 100644 index 0000000..974a788 --- /dev/null +++ b/rpm-build-tools.spec @@ -0,0 +1,84 @@ +Summary: Scripts for managing .spec files and building RPM packages +Summary(de.UTF-8): Scripts fürs Bauen binärer RPM-Pakete +Summary(pl.UTF-8): Skrypty pomocnicze do zarządznia plikami .spec i budowania RPM-ów +Summary(pt_BR.UTF-8): Scripts e programas executáveis usados para construir pacotes +Summary(ru.UTF-8): Скрипты и утилиты, необходимые для сборки пакетов +Summary(uk.UTF-8): Скрипти та утиліти, необхідні для побудови пакетів +Name: rpm-build-tools +Version: 4.5 +Release: 1 +License: GPL +Group: Applications/File +Group: Base +Source0: builder +Source1: adapter.awk +Source2: adapter +Source3: pldnotify.awk +BuildRequires: sed >= 4.0 +Requires: gawk >= 3.1.7 +Requires: grep +Requires: less +Requires: perl-base +Requires: rpm-build +Requires: rpmbuild(macros) >= 1.539 +Requires: sed >= 4.0 +Requires: util-linux +Requires: wget +Suggests: cvs-client +Suggests: rpm-specdump >= 0.3 +Suggests: schedtool +Suggests: vim-syntax-spec +BuildArch: noarch +BuildRoot: %{tmpdir}/%{name}-%{version}-root-%(id -u -n) + +%define _libdir %{_prefix}/lib + +%description +Scripts for managing .spec files and building RPM packages. + +%description -l de.UTF-8 +Scripts fürs Bauen RPM-Pakete. + +%description -l pl.UTF-8 +Skrypty pomocnicze do zarządzania plikami .spec i do budowania RPM-ów. + +%description -l pt_BR.UTF-8 +Este pacote contém scripts e programas executáveis que são usados para +construir pacotes usando o RPM. + +%description -l ru.UTF-8 +Различные вспомогательные скрипты и исполняемые программы, которые +используются для сборки RPM'ов. + +%description -l uk.UTF-8 +Різноманітні допоміжні скрипти та утиліти, які використовуються для +побудови RPM'ів. + +%prep +%setup -qcT +cp -p %{SOURCE0} %{SOURCE2} . +cp -p %{SOURCE1} adapter.awk +cp -p %{SOURCE3} pldnotify.awk + +%{__sed} -i -e 's,^adapter=.*/adapter.awk,adapter=%{_libdir}/adapter.awk,' adapter + +%{__sed} -i -e '/^VERSION=/s,\([^/]\+\)/.*",\1-RELEASE",' builder adapter +%{__sed} -i -e '/\tRCSID =/,/^\trev =/d;/\tVERSION = /s,\([^/]\+\)/.*,\1-RELEASE",' adapter.awk + +%install +rm -rf $RPM_BUILD_ROOT +install -d $RPM_BUILD_ROOT{%{_bindir},%{_libdir}} +cp -p adapter.awk $RPM_BUILD_ROOT%{_libdir}/adapter.awk +install -p pldnotify.awk $RPM_BUILD_ROOT%{_bindir} +install -p builder $RPM_BUILD_ROOT%{_bindir}/builder +install -p adapter $RPM_BUILD_ROOT%{_bindir}/adapter + +%clean +rm -rf $RPM_BUILD_ROOT + +%files +%defattr(644,root,root,755) +%attr(755,root,root) %{_bindir}/builder +%attr(755,root,root) %{_bindir}/adapter +%attr(755,root,root) %{_bindir}/pldnotify.awk +%{_libdir}/adapter.awk