[devel] sisyphus_check: check-subdirs

[Alexey Tourbin]

Я реализовал новую проверку на владение подкаталогами.
Эта проверка требует, что если какой-то каталог /A
запакован в пакет, то и все подкаталоги в иерархии /A/**/*
тоже должны быть запакованы в этот пакет.

Пример:
%files
%dir /A
/A/B/C/D

Ошибка -- также должны быть запакованы подкаталоги /A/B
и /A/B/C, потому что они являются промежуточными компонентами
пути /A/B/C/D.

commit a139ba3bb19c1651b2c52bab8b237fe73b4e0b4f
Author: Alexey Tourbin <at на altlinux.ru>
Date:   Sun May 4 20:46:17 2008 +0400

    check-subdirs: new check for unpackaged directories

diff --git a/sisyphus_check/sisyphus_check.d/170-check-subdirs b/sisyphus_check/sisyphus_check.d/170-check-subdirs
new file mode 100644
index 0000000..522978b
--- /dev/null
+++ b/sisyphus_check/sisyphus_check.d/170-check-subdirs
@@ -0,0 +1,72 @@
+#!/bin/sh -efu
+#
+# Check that directory packaging is hierarchically consistent.
+#
+# E.g. consider this %files section:
+#	%dir /A
+#	/A/B/C/D
+# Now we require that directories "/A/B" and "/A/B/C" are also packaged.
+#
+# Copyright (C) 2008  Alexey Tourbin <at на altlinux.org>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+
+find_unpackaged_subdirs()
+{
+	[ -n "${rpm_filelist?}" ] || return 0
+	printf '%s\n' "$rpm_filelist" |awk '
+		/^\// {
+			OWN[$0] = 1
+		}
+		function check_path(path) {
+			# "/A/B/C/D" -> ["","A","B","C","D"]
+			n = split(path, comp, "/")
+			# find shortest prefix which is owned by the package,
+			# i.e. either "/A" or "/A/B" (or none - no need to check "/A/B/C").
+			prefix = ""
+			for (i = 2; i < n-1; i++) {
+				prefix = prefix "/" comp[i]
+				if (prefix in OWN)
+					break
+			}
+			if (!prefix)
+				return
+			# check if every subdir under the prefix is also owned
+			subdir = prefix
+			for (j = i+1; j < n; j++) {
+				subdir = subdir "/" comp[j]
+				if (!(subdir in OWN))
+					printf "%s\t%s\t%s\n", prefix, subdir, path
+			}
+		}
+		END {
+			for (path in OWN)
+				check_path(path)
+		}'
+}
+
+check_subdirs()
+{
+	local f="$1"; shift || return
+	local subdirs="$(find_unpackaged_subdirs)"
+	[ -n "$subdirs" ] || return 0
+	local tab="$(printf '\t')"
+	subdirs=$(printf '%s\n' "$subdirs" |sort -t "$tab" -u -k2,2)
+	local prefix subdir path
+	printf '%s\n' "$subdirs" |
+	while IFS="$tab" read -r prefix subdir path; do
+		FileError "unpackaged directory: $subdir" "$f"
+	done
+	return 1
+}
+
+run_check()
+{
+	if ! check_subdirs "$1"; then
+		Message 'ERROR: you have problems!'
+		return 1
+	fi
+}

В сизиф эта проверка пойдёт, наверное, после окончания фриза.
Если есть возражения, а именно, если есть случаи, когда условие
"иерархической консистентности" владения каталогами выполняться
не должно, я прошу эти возражения озвучить.

Пока же попались следующие *.noarch.rpm пакеты.
----------- следующая часть -----------
Было удалено вложение не в текстовом формате...
Имя     : noarch-unpackaged-subdirs.txt.gz
Тип     : application/octet-stream
Размер  : 1928 байтов
Описание: =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Url     : <http://lists.altlinux.org/pipermail/devel/attachments/20080504/a63fc26e/attachment-0002.obj>
----------- следующая часть -----------
Было удалено вложение не в текстовом формате...
Имя     : =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Тип     : application/pgp-signature
Размер  : 197 байтов
Описание: =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Url     : <http://lists.altlinux.org/pipermail/devel/attachments/20080504/a63fc26e/attachment-0002.bin>