From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <at@altlinux.ru>
Date: Tue, 11 Oct 2005 21:12:17 +0400
From: Alexey Tourbin <at@altlinux.ru>
To: devel@altlinux.ru
Message-ID: <20051011171217.GA5311@solemn.turbinal.org>
Mail-Followup-To: devel@altlinux.ru
References: <20051010231530.GA7419@basalt.office.altlinux.org>
	<20051011033205.GO27969@wrars-comp.wrarsdomain>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="24zk1gE8NUlDmwG9"
Content-Disposition: inline
In-Reply-To: <20051011033205.GO27969@wrars-comp.wrarsdomain>
Subject: [devel] Re: I: Sisyphus-20051011 unexpanded_macros: +4 -2 (784)
X-BeenThere: devel@altlinux.ru
X-Mailman-Version: 2.1.5
Precedence: list
Reply-To: ALT Devel discussion list <devel@altlinux.ru>
List-Id: ALT Devel discussion list <devel.altlinux.ru>
List-Unsubscribe: <https://lists.altlinux.ru/mailman/listinfo/devel>,
	<mailto:devel-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://lists.altlinux.ru/pipermail/devel>
List-Post: <mailto:devel@altlinux.ru>
List-Help: <mailto:devel-request@altlinux.ru?subject=help>
List-Subscribe: <https://lists.altlinux.ru/mailman/listinfo/devel>,
	<mailto:devel-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Tue, 11 Oct 2005 17:12:31 -0000
Archived-At: <http://lore.altlinux.org/devel/20051011171217.GA5311@solemn.turbinal.org/>
List-Archive: <http://lore.altlinux.org/devel/>
List-Post: <mailto:devel@altlinux.org>


--24zk1gE8NUlDmwG9
Content-Type: multipart/mixed; boundary="h31gzZEtNLTqOjlF"
Content-Disposition: inline


--h31gzZEtNLTqOjlF
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

On Tue, Oct 11, 2005 at 09:32:05AM +0600, Andrey Rahmatullin wrote:
> > vim-plugin-vimbuddy-0.9.1-alt1.1.noarch.rpm	DESCRIPTION	%{VimBuddy()}
> > vim-plugin-vimbuddy-0.9.1-alt1.1.src.rpm	DESCRIPTION	%{VimBuddy()}
> =FC=D4=CF =CB=C1=CB?
> =E9 =D1 =D5=D6=C5 =C7=CF=D7=CF=D2=C9=CC, =DE=D4=CF =D4=C1=CD %%.

=EF=C2=DF=D1=D3=CE=C9 =DC=D4=CF =D2=CF=C2=CF=D4=D5.  =EB=D3=D4=C1=D4=C9, =
=D1 =CF=D4=CB=CC=C0=DE=C1=C0 =DC=D4=CF=C7=CF =D2=CF=C2=CF=D4=C1, =D0=CF=D4=
=CF=CD=D5 =DE=D4=CF =D4=C5=D0=C5=D2=D8
=D0=D2=CF=D7=C5=D2=CB=C1 =D7=D3=D4=D2=CF=C5=CE=C1 =D7 rpm.  =EB=C1=CB=C9=CD=
 =CF=CE =C2=D9=CC, =D4=C1=CB=C9=CD =CF=D3=D4=C1=CE=C5=D4=D3=D1 (=CC=C9=D2=
=C9=CB=C1).

--h31gzZEtNLTqOjlF
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename=unexpanded_macros

#!/bin/sh -ef

dump()
{
	find "$@" -type f -name '*.rpm' -print0 |perl -Mstrict -ln0 -e \
'	use RPM::Header; my $f = $_;
	my $rpm = RPM::Header->new($f) or die "$f: $RPM::err\n";
	while (my ($k, $v) = each %$rpm) {
		next if $k =~ /CHANGELOGTEXT|SIGGPG|SIGMD5|GIF/;
		my @v = ref($v) ? @$v : $v;
		my @lines = map { split /[\r\n]+/ } @v;
		foreach (@lines) {
			next if /^\s*#/;
			use File::Basename;
			printf "%s\t%s\t%s\n", basename($f), $k, $_
				for /\%\{[a-zA-Z_]\w.*?\}|\%[a-zA-Z_]\w+/g;
		}
	}
'
}

dump "${1-/raid/ALT/Sisyphus/files}"

--h31gzZEtNLTqOjlF--

--24zk1gE8NUlDmwG9
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.5 (GNU/Linux)

iD8DBQFDS/JxfBKgtDjnu0YRAolVAKCyQ+L4D+zrm8HyUEc70Ywx+AHHvgCgmRZY
eyB3qYy8fUxdRNKAA64xL1Y=
=UHfO
-----END PGP SIGNATURE-----

--24zk1gE8NUlDmwG9--