From 6a747fab31ae09ec31a1790aa874d5968b1c0569 Mon Sep 17 00:00:00 2001
From: Panu Matilainen <pmatilai@fedoraproject.org>
Date: Oct 12 2007 05:48:22 +0000
Subject: Remember to add the osgideps patch..


---

diff --git a/rpm-4.4.2.2-osgideps.patch b/rpm-4.4.2.2-osgideps.patch
new file mode 100644
index 0000000..877fee4
--- /dev/null
+++ b/rpm-4.4.2.2-osgideps.patch
@@ -0,0 +1,197 @@
+changeset:   6184:9de21aa6bd62
+tag:         tip
+user:        Panu Matilainen <pmatilai@redhat.com>
+date:        Thu Sep 06 08:19:03 2007 +0300
+files:       scripts/Makefile.am scripts/osgideps.pl
+description:
+Add OSGi dependency extractor script from Kyu Lee
+(transplanted from 838c8ccfcf2619369e76bdca375721e049052dc8)
+
+
+diff -r 358dd9d838a6 -r 9de21aa6bd62 scripts/Makefile.am
+--- a/scripts/Makefile.am	Thu Oct 11 14:14:00 2007 +0300
++++ b/scripts/Makefile.am	Thu Sep 06 08:19:03 2007 +0300
+@@ -21,7 +21,7 @@ EXTRA_DIST = \
+ 	sql.prov sql.req tcl.req tgpg trpm u_pkg.sh \
+ 	vpkg-provides.sh vpkg-provides2.sh \
+ 	macros.perl* macros.python* \
+-	macros.php* find-*.php find-php-* mono-find*
++	macros.php* find-*.php find-php-* mono-find* osgideps.pl
+ 
+ installprefix = $(DESTDIR)
+ 
+@@ -38,7 +38,7 @@ config_SCRIPTS = \
+ 	cpanflute cpanflute2 Specfile.pm find-provides.perl \
+ 	find-requires.perl freshen.sh get_magic.pl getpo.sh http.req \
+ 	magic.prov magic.req perldeps.pl perl.prov perl.req pythondeps.sh \
+-	mono-find-requires mono-find-provides \
++	mono-find-requires mono-find-provides osgideps.pl \
+ 	rpmdb_loadcvt rpmdiff rpmdiff.cgi \
+ 	rpm.daily rpm.log rpm.xinetd rpm2cpio.sh \
+ 	sql.prov sql.req tcl.req tgpg trpm u_pkg.sh \
+diff -r 358dd9d838a6 -r 9de21aa6bd62 scripts/osgideps.pl
+--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
++++ b/scripts/osgideps.pl	Thu Sep 06 08:19:03 2007 +0300
+@@ -0,0 +1,161 @@
++#!/usr/bin/perl
++
++
++use Cwd;
++use Getopt::Long;
++
++
++$cdir = getcwd();
++$TEMPDIR="/tmp";
++$MANIFEST_NAME="META-INF/MANIFEST.MF";
++
++
++# prepare temporary directory
++if (! (-d $TEMPDIR)) {
++        if (($_ = `mkdir $TEMPDIR`) != 0) {exit 1;}
++        elsif (! (-w $TEMPDIR) && (-x $TEMPDIR)) {exit 1;}
++}
++
++# parse options
++my ($show_provides, $show_requires);
++
++my $result = GetOptions("provides" => \$show_provides,
++			"requires" => \$show_requires);
++
++exit(1) if (not $result);
++
++
++
++@allfiles = <STDIN>;
++
++if ($show_provides) {
++	do_provides(@allfiles);
++}
++
++if ($show_requires) {
++	do_requires(@allfiles);
++}
++
++
++exit(0);
++
++
++
++sub do_provides {
++
++
++foreach $jar (@_) {
++
++next if -f $jar && -r $jar;
++ $jar =~ s/[^[:print:]]//g;
++        # if this jar contains MANIFEST.MF file
++        if (`jar tf $jar | grep -e \^$MANIFEST_NAME` eq "$MANIFEST_NAME\n") {
++                # extract MANIFEST.MF file from jar to temporary directory
++                chdir $TEMPDIR;
++                `jar xf $cdir/$jar $MANIFEST_NAME`;
++                open(MANIFEST, "$MANIFEST_NAME");
++                my $bundleName = "";
++                my $bundleVersion = "";
++                # parse bundle name and version
++                while(<MANIFEST>) {
++                        # get rid of non-print chars (some manifest files contain weird chars
++                        s/[^[:print]]//g;
++                        if (m/(^Bundle-SymbolicName: )((\w|\.)+)(\;*)(.*\n)/) {
++                                $bundleName = $2;
++                        }
++                        if (m/(^Bundle-Version: )(.*)/) {
++                                $bundleVersion = $2;
++                        }
++                }
++                # skip this jar if no bundle name exists
++                if (! $bundleName eq "") {
++                        if (! $bundleVersion eq "") {
++                                print "osgi(".$bundleName.") = ".$bundleVersion."\n";
++                        } else {
++                                print "osgi(".$bundleName.")\n";
++                        }
++                }
++                chdir $cdir;
++        }
++	
++}
++
++}
++
++
++sub do_requires {
++
++foreach $jar (@_) {
++next if -f $jar && -r $jar;
++$jar =~ s/[^[:print:]]//g;
++        if (`jar tf $jar | grep -e \^$MANIFEST_NAME` eq "$MANIFEST_NAME\n") {
++                chdir $TEMPDIR;
++                `jar xf $cdir/$jar $MANIFEST_NAME`;
++                open(MANIFEST, "$MANIFEST_NAME") or die;
++                my %reqcomp = ();
++                while(<MANIFEST>) {
++                        if (m/(^(Require-Bundle|Import-Package): )(.*)$/) {
++                                my $reqlist = "$3"."\n";
++                                while(<MANIFEST>) {
++                                        if (m/^[[:upper:]][[:alpha:]]+-[[:upper:]][[:alpha:]]+: .*/) {
++                                                $len = length $_;
++                                                seek MANIFEST, $len*-1 , 1;
++                                                last;
++                                        }
++                                        $reqlist.="$_";
++                                }
++                                push @requirelist,  parseReqString($reqlist);
++                        }
++
++                }
++                chdir $cdir;
++	}
++
++}
++
++$list = "";
++for $require (@requirelist) {
++        $list .= "osgi(".$require->{NAME}.")".$require->{VERSION}."\n";
++}
++#$abc = `echo \"$list\"|grep -e \^osgi\\(.*\\)| sort|uniq`;
++print $list;
++
++}
++
++sub parseReqString {
++        my $reqstr = $_[0];
++        my @return;
++        $reqstr =~ s/ //g;
++        $reqstr =~ s/\n//g;
++        $reqstr =~ s/[^[:print:]]//g;
++        $reqstr =~ s/("[[:alnum:]|\-|\_|\.|\(|\)|\[|\]]+)(,)([[:alnum:]|\-|\_|\.|\(|\)|\[|\]]+")/$1 $3/g;
++        @reqcomp = split /,/g, $reqstr;
++        foreach $reqelement (@reqcomp) {
++                @reqelementfrmnt = split /;/g, $reqelement;
++                $name="";
++                $version="";
++                $name = $reqelementfrmnt[0];
++                for $i (1 .. $#reqelementfrmnt) {
++                        if ($reqelementfrmnt[$i] =~ m/(^(bundle-|)version=")(.*)(")/){
++                                $version = $3;
++                                last;
++                        }
++                }
++                $version = parseVersion($version);
++                push @return, { NAME=>"$name", VERSION=>"$version"};
++        }
++
++        return @return;
++}
++
++sub parseVersion {
++        my $ver = $_[0];
++        if ($ver eq "") { return "";}
++        if ($ver =~ m/(^[\[|\(])(.+)\ (.+)([\]|\)]$)/) {
++                ($1 eq "\[") ? return " <= $2" : return " < $2";
++        } else {
++                return " = $ver";
++        }
++        return $ver;
++}
++
+