"rpm --eval %_sourcedir" | getline groups_file
groups_file = groups_file "/rpm.groups"
system("cd `rpm --eval %_sourcedir`; [ -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 = ENVIRON["HOME"] "/tmp/adapter.changelog"
"rpm --eval %perl_sitelib" | getline perl_sitelib
"rpm --eval %py_sitescriptdir" | getline py_sitescriptdir
+ "rpm --eval %py_scriptdir " | getline py_scriptdir
}
# There should be a comment with CVS keywords on the first line of file.
gsub(/^Group/, "6Group", s);
gsub(/^URL/, "7URL", 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(/^ExclusiveArch/, "X6ExclusiveArch", s);
- gsub(/^ExcludeArch/, "X6ExcludeArch", s);
+ gsub(/^ExcludeArch/, "X7ExcludeArch", s);
gsub(/^BuildRoot/, "X9BuildRoot", s);
# printf("%s -> %s\n", a""b, s);
$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("libtoolize --force --automake --copy", "%{__libtoolize}", $0);
+ $0 = fixedsub("libtoolize -c -f --automake", "%{__libtoolize}", $0);
sub(/^aclocal$/, "%{__aclocal}");
sub(/^autoheader$/, "%{__autoheader}");
}
# split (build)requires, obsoletes on commas
- if (field ~ /(obsoletes|requires):/ && $0 ~ /,/) {
- l = substr($0, index($0, $2));
- n = split(l, p, / *, */);
- for (i in p) {
- printf("%s\t%s\n", $1, p[i]);
- }
- next;
+ if (field ~ /(obsoletes|requires):/ && NF > 2) {
+ value = substr($0, index($0, $2));
+ $0 = format_requires($1, value);
}
- if (field ~ /packager:|distribution:|docdir:|prefix:/)
+ # obsolete/unwanted tags
+ if (field ~ /packager:|distribution:|docdir:|prefix:|icon:/) {
next
+ }
if (field ~ /buildroot:/)
$0 = $1 "%{tmpdir}/%{name}-%{version}-root-%(id -u -n)"
sub(/\.pamd$/,"",url[n])
}
- # allow %{name} just in last url component
+ # allow %{name} only in last url component
s = ""
for (i = 1; i <= n; i++) {
url[i] = fixedsub("%{name}", name, url[i])
sub(/PreReq:/, "Requires:", $1);
}
format_preamble()
- kill_preamble_macros();
+# kill_preamble_macros(); # breaks tabbing
b_idx++;
l = substr($0, index($0, $2));
gsub(perl_sitelib, "%{perl_sitelib}")
gsub(py_sitescriptdir, "%{py_sitescriptdir}")
+ gsub(py_scriptdir, "%{py_scriptdir}")
gsub(bindir, "%{_bindir}")
gsub("%{prefix}/bin", "%{_bindir}")
continue;
if ($c ~ sysconfdir "/{?ld.so.conf.d")
continue;
+ if ($c ~ sysconfdir "/{?rpm")
+ continue;
if ($c ~ sysconfdir "/{?httpd") # temp
continue;
gsub(sysconfdir, "%{_sysconfdir}", $c)
$0 = fixedsub("%{buildroot}", "$RPM_BUILD_ROOT", $0)
$0 = fixedsub("CXXFLAGS=%{rpmcflags} %configure", "CXXFLAGS=%{rpmcflags}\n%configure", $0);
+ # split configure line to multiple lines
+ if (/%configure / && !/\\$/) {
+ $0 = format_configure($0);
+ }
+
gsub("%_bindir", "%{_bindir}")
gsub("%_datadir", "%{_datadir}")
gsub("%_iconsdir", "%{_iconsdir}")
gsub("%{_prefix}/src/linux", "%{_kernelsrcdir}")
}
+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
{
use_macros()
+ # skip comments
+ if (/^#/) {
+ return;
+ }
+
gsub("^%{_sbindir}", "%attr(755,root,root) %{_sbindir}")
gsub("^%{_bindir}", "%attr(755,root,root) %{_bindir}")
$0 = $0 " # FIXME nobody user/group can't own files! -adapter.awk"
}
- # suid programs with globs are evil
- if (/%attr\(4...,.*\*/ && !/FIXME/) {
- $0 = $0 " # FIXME no globs for suid files"
+ # s[gu]id programs with globs are evil
+ if (/%attr\([246]...,.*\*/ && !/FIXME/) {
+ $0 = $0 " # FIXME no globs for suid/sgid files"
}
# replace back
$0 = "%attr(755,root,root) " $0
}
+ if (/%{perl_vendorarch}.*\.so$/ && !/^%attr.*/) {
+ $0 = "%attr(755,root,root) " $0
+ }
+
# /etc/sysconfig files
# %attr(640,root,root) %config(noreplace) %verify(not size mtime md5) /etc/sysconfig/*
# attr not required, allow default 644 attr
return 1
}
+function demacroize(str)
+{
+ if (mod_name) {
+ sub("%{mod_name}", mod_name, 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 (_snap) {
+ sub("%{_snap}", _snap, str);
+ }
+ return str;
+}
+
function kill_preamble_macros()
{
if ($1 ~ /^URL:/ || $1 ~ /^Obsoletes:/) {
- sub("%{mod_name}", mod_name, $2);
+ # NB! assigning $2 a value breaks tabbing
+ $2 = demacroize($2);
+ # unify sourceforge url
+ sub("\.sf\.net/$", ".sourceforge.net/", $2);
+ }
+}
+
+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
+ 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);
}