Add OSGi dependency extractor script from Kyu Lee

scripts/Makefile.am

@@ -14,7 +14,7 @@ EXTRA_DIST = \
 	check-files check-prereqs \
 	check-buildroot check-rpaths check-rpaths-worker \
 	find-debuginfo.sh find-lang.sh 
-	perldeps.pl perl.prov perl.req pythondeps.sh \
+	perldeps.pl perl.prov perl.req pythondeps.sh osgideps.pl \
 	rpmdb_loadcvt rpmdiff rpmdiff.cgi \
 	rpm.daily rpm.log rpm.xinetd rpm2cpio.sh \
 	tcl.req tgpg u_pkg.sh \
@@ -31,7 +31,7 @@ rpmconfig_SCRIPTS = \
 	check-files check-prereqs \
 	check-buildroot check-rpaths check-rpaths-worker \
 	find-lang.sh \
-	perl.prov perl.req pythondeps.sh \
+	perl.prov perl.req pythondeps.sh osgideps.pl \
 	mono-find-requires mono-find-provides \
 	rpmdb_loadcvt rpmdiff rpmdiff.cgi \
 	rpm.daily rpm.log rpm.xinetd rpm2cpio.sh \

scripts/osgideps.pl

@@ -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;
+}
+