[devel] Minimal system: graph

[Alexander Bokovoy <a.bokovoy@sam-solutions.net>]

[-- Attachment #1: Type: text/plain, Size: 504 bytes --]

Доброго времени суток!

Для интересующихся прилагаются скрипт rpmdot для генерации исходного файла
с описанием графа зависимостей пакетов, установленных в системе и пример
такого графа для минимальной системы ALT Linux, состоящей из 89 пакетов
(117Мб).



-- 
/ Alexander Bokovoy
$ cat /proc/identity >~/.signature
  `Senior software developer and analyst for SaM-Solutions Ltd.`
---
Nov 21 20:58:58 alconost kernel: VFS: Busy inodes after unmount. 
		    Self-destruct in 5 seconds.  Have a nice day...

[-- Attachment #2: rpmdep.dot.bz2 --]
[-- Type: application/x-bzip2, Size: 1834 bytes --]

[-- Attachment #3: rpmdep.ps.bz2 --]
[-- Type: application/x-bzip2, Size: 23649 bytes --]

[-- Attachment #4: rpmdot --]
[-- Type: text/plain, Size: 619 bytes --]

#!/bin/sh
echo "digraph RPM {
size=\"40,22\"
page=\"8,12\"
ratio=fill
"
rpmlist=$(rpm -qa --qf='[%{name}\n]')
for i in $rpmlist ; do 
rpmdeplist=`(rpm -q --qf='[%{requirename}\n]' "$i"|
grep -ve 'rpmlib\(.*\)'|
xargs rpm -q --whatprovides |sort -u |
xargs rpm -q --qf='%{name}\n'|
while read package ; do
	if test "$i" != "$package" ; then
		rpm -q --qf='%{name}\n' "$package"
	fi
done| sed -e 's/, $//') 2>/dev/null`
    iescape=$(echo "$i"|tr '/-' '__')
    echo "$iescape [fontsize=12, label=\"$i\"]"
	for j in $rpmdeplist ; do
	jescape=$(echo "$j"|tr '/-' '__')
	echo "$iescape -> $jescape;"
    done
done
echo "}"