[devel] Minimal system: graph

* [devel] Minimal system: graph
@ 2001-11-27 11:46 Alexander Bokovoy
  2001-11-27 13:22 ` Aleksey Novodvorsky
  0 siblings, 1 reply; 5+ messages in thread
From: Alexander Bokovoy @ 2001-11-27 11:46 UTC (permalink / raw)
  To: devel

[-- 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 "}"

^ permalink raw reply	[flat|nested] 5+ messages in thread