From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alexander Bokovoy To: devel@linux.iplabs.ru Message-ID: <20011024140616.A21260@pc152.belcaf.minsk.by> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="qMm9M+Fa2AknHoGS" Content-Disposition: inline Content-Transfer-Encoding: 8bit User-Agent: Mutt/1.3.22.1i Subject: [devel] I: RPM Requires finder Sender: devel-admin@linux.iplabs.ru Errors-To: devel-admin@linux.iplabs.ru X-BeenThere: devel@linux.iplabs.ru X-Mailman-Version: 2.0 Precedence: bulk Reply-To: devel@linux.iplabs.ru List-Help: List-Post: List-Subscribe: , List-Id: ALT Linux Team Developers mailing list List-Unsubscribe: , List-Archive: X-Original-Date: Wed, 24 Oct 2001 14:06:16 +0300 Date: Wed, 24 Oct 2001 14:06:16 +0300 Archived-At: List-Archive: List-Post: --qMm9M+Fa2AknHoGS Content-Type: text/plain; charset=koi8-r Content-Disposition: inline Content-Transfer-Encoding: 8bit Прилагаемый скрипт является (после некоторой обобщающей доработки) претендентом на включение в rpm-utils. Он принимает в качестве аргумента либо имя установленного пакета, либо файла с пакетом (*.rpm) и вычисляет относительно системной базы RPM имена и версии пакетов, которые требуются для работы данного пакета. Результат -- строчка, пригодная для вписывания в SPEC-файл в качестве Requires:. Скрипт сырой но вполне готовый к применению для прочистки SPEC-файлов с непроставленными зависимостями. Его можно было бы также включить в механизм find-requires в RPM. Собственно, вторым прилагается "быстрый хак" на тему /usr/lib/rpm/find-requires, который оный и реализует. Из имеющихся недостатков: - автоматически вставляет "пакет >= версия-сборка". Нужна определенная логика по дифференцированию вывода. Например, жесткая индикация номеров версий только для определенных пакетов. - не объединяет результат find-requires с Requires:, указанными в SPEC-файле, в результате чего получается двойное указание зависимостей, например: mnogosearch, mnogosearch >= 3.1.16-alt1 Однако в целом предлагаемый механизм позволяет малой кровью вычистить Requires: в репозитарии. -- / Alexander Bokovoy $ cat /proc/identity >~/.signature `Senior software developer and analyst for SaM-Solutions Ltd.` --- God must have loved calories, she made so many of them. --qMm9M+Fa2AknHoGS Content-Type: text/plain; charset=koi8-r Content-Disposition: attachment; filename=rpmreqs #!/bin/sh -e ESSENTIAL="/etc/buildreqs/packages/essential" IGNORE="/etc/buildreqs/packages/ignore" CHECKER="/usr/share/buildreqs/check_importance" RPMARGS= PNAME="$1" if test -f "$1" ; then RPMARGS="-p" PNAME=`rpm -qp --qf='%{name}' $1` fi echo -n "Requires: " REQUIRESLIST=`rpm -q --qf='[%{requirename}\n]' $RPMARGS $1| grep -ve 'rpmlib\(.*\)'| xargs rpm -q --whatprovides |sort -u | xargs rpm -q --qf='%{name}\n'| while read package ; do if test "$PNAME" != "$package" ; then if ! "$CHECKER" "$package" "$ESSENTIAL" "$IGNORE"; then rpm -q --qf='%{name} >= %{version}-%{release}, ' "$package" fi fi done| sed -e 's/, $//'` echo $REQUIRESLIST --qMm9M+Fa2AknHoGS Content-Type: text/plain; charset=koi8-r Content-Disposition: attachment; filename=find-requires #!/bin/sh -e # # find-requires - generate list of linux-specific package requires. # Inspired by tool with same name from RPM distribution. # # Copyright (C) 2000 Dmitry V. Levin # # 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. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # PROG="${0##*/}" Exit() { RETVAL=$? trap '' EXIT cat &>/dev/null exit $RETVAL } trap "Exit " EXIT # If using normal root, avoid changing anything. if [ -z "$(echo "$RPM_BUILD_ROOT" |tr -d ' /.')" ]; then echo "$PROG: non-/ RPM_BUILD_ROOT expected" >&2 exit 1 fi FIND_FILES= FIND_LIBS= FIND_PAM= FIND_PERL= FIND_SHELL= ParseMethod() { local t for t in "$@"; do case "${t/%,}" in no|none|off|false) FIND_FILES= FIND_LIBS= FIND_PAM= FIND_PERL= FIND_SHELL= ;; lib|library) FIND_LIBS=1 ;; nolib|nolibrary) FIND_LIBS= ;; files) FIND_FILES=1 ;; nofiless) FIND_FILES= ;; pam) FIND_PAM=1 ;; nopam) FIND_PAM= ;; perl) FIND_PERL=1 ;; noperl) FIND_PERL= ;; sh|shell) FIND_SHELL=1 ;; nosh|noshell) FIND_SHELL= ;; all) FIND_FILES=1 FIND_LIBS=1 FIND_PAM=1 FIND_PERL=1 FIND_SHELL=1 ;; default|yes|true) ParseMethod $RPM_FINDREQ_DEFAULT_METHOD ;; *) echo "Unrecognized find-requires method: $t" >&2 exit 1 ;; esac done } ParseMethod $RPM_FINDREQ_METHOD FIND_SCRIPT= if [ -n "$FIND_SHELL" -o -n "$FIND_PERL" -o -n "$FIND_PAM" ]; then FIND_SCRIPT=1 fi if [ -z "$FIND_LIBS" -a -z "$FIND_SCRIPT" -a -z "$FIND_FILES" ]; then # Nothing to do exit fi . /usr/lib/rpm/find-package ulimit -c 0 case "$LD_PRELOAD" in *libfakeroot*) unset LD_PRELOAD ;; *libbuildreq.so*) unset LD_PRELOAD ;; esac FOUND_REQS= LIST_PERL= ListScriptReqs() { [ -n "$FIND_SCRIPT" ] || return 0 local f="$1" local t="$2" if [ -x "$f" ]; then local r="$(FindPackage "$f" "$(head -1 "$f" |sed -n 's|^#![ ]*\(/[^ ]\+\).*|\1|p')")" [ -z "$FOUND_REQS" ] && FOUND_REQS="$r" || FOUND_REQS="$FOUND_REQS $r" fi if [ -z "${t##Bourne* shell script text*}" ]; then if [ -n "$FIND_SHELL" -a -x "$f" ]; then local r="$(/usr/lib/rpm/shell.req "$f")" [ -z "$FOUND_REQS" ] && FOUND_REQS="$r" || FOUND_REQS="$FOUND_REQS $r" fi elif [ -z "${t##ASCII *text*}" -a -z "${f%%$RPM_BUILD_ROOT/etc/pam.d/*}" ]; then if [ -n "$FIND_PAM" ]; then local r="$(/usr/lib/rpm/pam.req "$f")" [ -z "$FOUND_REQS" ] && FOUND_REQS="$r" || FOUND_REQS="$FOUND_REQS $r" fi elif [ -z "${t##perl script text*}" -o -z "${f%%*.p[lmh]}" ]; then if [ -n "$FIND_PERL" ]; then [ -z "$LIST_PERL" ] && LIST_PERL="$f" || LIST_PERL="$LIST_PERL $f" fi fi } FindPerlReqs() { if [ -n "$LIST_PERL" ]; then local r="$(echo "$LIST_PERL" |/usr/lib/rpm/perl.req)" [ -z "$FOUND_REQS" ] && FOUND_REQS="$r" || FOUND_REQS="$FOUND_REQS $r" fi } # Note this works for both a.out and ELF executables. # It also auto-generates requirements for scripts. FindLibReqs() { [ -n "$FIND_LIBS" ] || return 0 local f="$1" local d if d="$(objdump -p "$f")"; then # Shared library dependencies, glibc version references. echo -E "$d" |awk ' BEGIN {start_shared=0; start_version=0; lib_name="";} /^Dynamic Section:$/ {start_shared=1;} /^Version References:$/ {start_version=1;} (start_version==1) && /^ *required from/ {sub(/:/, "", $3); lib_name=$3;} (start_shared==1) && /^ *NEEDED/ {print $2;} (start_version==1) && (lib_name!="") && ($4~/^GLIBC_*/) {print lib_name "(" $4 ")";} /^$/ {start_shared=0; start_version=0;} ' fi } FindExeReqs() { if [ -x "$1" ]; then FindLibReqs "$1" fi } while IFS= read -r f; do if [ -z "${f%%$RPM_BUILD_ROOT/etc/xinetd.d/*}" ]; then if [ -n "$FIND_FILES" ]; then [ -z "$FOUND_REQS" ] && FOUND_REQS="xinetd" || FOUND_REQS="$FOUND_REQS xinetd" fi elif [ -z "${f%%$RPM_BUILD_ROOT/etc/security/console.apps/*}" ]; then if [ -n "$FIND_FILES" ]; then [ -z "$FOUND_REQS" ] && FOUND_REQS="consolehelper" || FOUND_REQS="$FOUND_REQS consolehelper" fi fi t="$(file -b "$f")" if [ -z "${t##* text*}" ]; then ListScriptReqs "$f" "$t" elif [ -z "${t##* executable*}" ]; then r="$(FindExeReqs "$f")" [ -z "$FOUND_REQS" ] && FOUND_REQS="$r" || FOUND_REQS="$FOUND_REQS $r" elif [ -z "${t##* shared object*}" ]; then r="$(FindLibReqs "$f")" [ -z "$FOUND_REQS" ] && FOUND_REQS="$r" || FOUND_REQS="$FOUND_REQS $r" fi done # Find requires in listed perl scripts, if any FindPerlReqs # Finally sort and print them. ESSENTIAL="/etc/buildreqs/packages/essential" IGNORE="/etc/buildreqs/packages/ignore" CHECKER="/usr/share/buildreqs/check_importance" echo "$FOUND_REQS" |sort -u| xargs rpm -q --whatprovides |sort -u | xargs rpm -q --qf='%{name}\n'| while read package ; do # Temporarily ignore essential list # if ! "$CHECKER" "$package" "$ESSENTIAL" "$IGNORE"; then rpm -q --qf='%{name} >= %{version}-%{release}\n' "$package" # fi done| sort -u --qMm9M+Fa2AknHoGS-- _______________________________________________ Devel mailing list Devel@linux.iplabs.ru http://www.logic.ru/mailman/listinfo/devel