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?