[devel] rpmelfsymv
Alexey Tourbin
=?iso-8859-1?q?at_=CE=C1_altlinux=2Eru?=
Ср Авг 9 02:03:42 MSD 2006
On Tue, Aug 08, 2006 at 10:36:18PM +0400, Alexey Tourbin wrote:
> On Tue, Aug 08, 2006 at 04:30:44PM +0400, Dmitry V. Levin wrote:
> > На старом libgcc не запустится:
> > $ rpmquery -pR FlightGear-0.9.10-alt1.i586.rpm |fgrep libgcc
> > libgcc_s.so.1(GCC_3.0)
> > libgcc_s.so.1(GCC_4.0.0)
> >
> > На конфренеции Алексею пеняли, что его робот не учитывает versioning.
Понимаешь в чем дело. Есть несколько проблем, которые всё усложняют.
Вот первая из них:
> Что нужно использовать вместо nm -D, чтобы получить отношение
> <типа символа> <символ> <версия символа> ?
Почему-то мне хочется сохранить однобуквенное обозначение типа символа,
как в nm -D. При этом нужно добавить в таблицу ещё одно поле, в
котором будет версия символа (или прочерк, если версии нет).
Как это можно сделать? Сначала запустить nm -D, а потом ещё раз
запустить readelf или же objdump. Я остановился на objdump (его удобнее
использовать с xargs). Вот что пока получается получается:
--- rpmelfsym 2006-05-27 11:15:29 +0000
+++ rpmelfsymv 2006-08-08 21:54:15 +0000
@@ -1,17 +1,22 @@
#!/bin/sh -ef
export LC_ALL=C
-rpmelfsym()
+rpmelfsymv()
{
rpmfile "$1" >files
awk -F'\t' '$NF~/ELF.*(dynamic|shared)/{printf"./%s\0",$1}' files >elfs0
[ -s elfs0 ] || return 0
rpmpeek "$1" xargs -r0 nm -Do <elfs0 >nm.out
- awk '{OFS="\t";sub("^./","",$1);sub(":[0-9a-fA-F]*$","",$1);print}' nm.out
+ awk '{OFS="\t";sub("^./","",$1);sub(":[0-9a-fA-F]*$","",$1);print}' nm.out >elfsym
+ rpmpeek "$1" xargs -r0 objdump -Tw <elfs0 >objdump.out
+ awk --lint '{OFS="\t"}
+ sub(/:[[:space:]]+file format.+/,""){sub("^./","");f=$0;next}
+ sub(/.+\t/,"")&&NF>2&&$(NF-1)!="Base"{print f,$NF,$(NF-1)}' objdump.out >elfsymv
+ head elfsym elfsymv
}
. cmdcache ""
-. rpmargs -c "cmdcache rpmelfsym" "$@"
+. rpmargs -c "rpmelfsymv" "$@"
: <<'__EOF__'
И вот что выдает:
$ ./rpmelfsymv ~sisyphus/files/i586/RPMS/perl-base-5.8.8-alt1.i586.rpm
==> elfsym <==
/usr/bin/perl5.8.8 U PL_do_undump
/usr/bin/perl5.8.8 U PL_op_mutex
/usr/bin/perl5.8.8 U PL_sigfpe_saved
/usr/bin/perl5.8.8 U PL_use_safe_putenv
/usr/bin/perl5.8.8 U Perl_atfork_lock
/usr/bin/perl5.8.8 U Perl_atfork_unlock
/usr/bin/perl5.8.8 U Perl_croak_nocontext
/usr/bin/perl5.8.8 U Perl_newXS
/usr/bin/perl5.8.8 R _IO_stdin_used
/usr/bin/perl5.8.8 w _Jv_RegisterClasses
==> elfsymv <==
/usr/bin/perl5.8.8 signal GLIBC_2.0
/usr/bin/perl5.8.8 pthread_mutex_destroy GLIBC_2.0
/usr/bin/perl5.8.8 __register_atfork GLIBC_2.3.2
/usr/bin/perl5.8.8 boot_DynaLoader DynaLoader
/usr/bin/perl5.8.8 __libc_start_main GLIBC_2.0
/usr/bin/perl5.8.8 memcpy GLIBC_2.0
/usr/bin/perl5.8.8 exit GLIBC_2.0
/usr/lib/libperl.so.5.8.8 readlink GLIBC_2.0
/usr/lib/libperl.so.5.8.8 atol GLIBC_2.0
/usr/lib/libperl.so.5.8.8 nl_langinfo GLIBC_2.0
$
Значит есть две таблицы: в одной есть тип, но нет версии; а в другой
есть версия, но нет типа. Эти таблицы нужно соединять по двум полям:
по имени файла и имени символа, join(1) такое не умеет. Допустим, есть
два способа обойти это ограничение join, не суть важно.
Внимание, вопрос: могут ли два одинаковых символа с разными версиями
иметь разные типы? Т.е. symbol на LIB_1.0 -- T (функция), symbol на LIB_1.1 --
D (переменная). Как тогда правильно соединить тип и версию? И какой тип
на самом деле показывает nm -D?
----------- следующая часть -----------
Было удалено вложение не в текстовом формате...
Имя : =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Тип : application/pgp-signature
Размер : 189 байтов
Описание: =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Url : <http://lists.altlinux.org/pipermail/devel/attachments/20060809/43ee2f8d/attachment-0001.bin>
Подробная информация о списке рассылки Devel