OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/kernel-source?expand=0&rev=2

modversions

@@ -0,0 +1,96 @@
+#! /usr/bin/perl -w
+
+use File::Find;
+use Getopt::Long;
+use strict;
+
+my %symbol_type_name = (
+    n => 'normal', t => 'typedef', e => 'enum', s => 'struct', u => 'union'
+);
+
+sub pack_dump($$) {
+    my ($dir, $ext) = @_;
+    my %definitions;
+    my @files;
+
+    $ext = ".symtypes" unless defined $ext;
+
+    find(sub ($) { /\Q$ext\E$/ && push @files, $File::Find::name}, $dir);
+    map { s/^\Q$dir\E\/(.*)\Q$ext\E$/$1/ } @files;
+
+    foreach my $file (sort @files) {
+	print "/* $file.o */\n";
+
+	local *FD;
+	open FD, "< $dir/$file$ext"
+	    or die "$dir/$file$ext: $!\n";
+	while (<FD>) {
+	    chomp;
+
+	    if (s/^override //) {
+		print "override ";
+	    }
+	    if (/^(\S)#(\S+)\s*(.*)/) {
+		my $sym = "$1#$2";
+
+		if (/^$sym\s+$symbol_type_name{$1}\s+$2\s+{\s+UNKNOWN\s+}\s*$/) {
+		    $_ = substr($sym, 0, 1) . "##" . substr($sym, 2);
+		} else {
+		    if (exists $definitions{$sym} && $definitions{$sym} eq $3) {
+			$_ = $sym;
+		    } else {
+			$definitions{$sym} = $3;
+		    }
+		}
+	    }
+	    print "$_\n";
+	}
+	close FD;
+	print "\n";
+    }
+}
+
+sub unpack_dump($$) {
+    my ($dir, $ext) = @_;
+    my %definitions;
+
+    $ext = ".symref" unless defined $ext;
+
+    while (<STDIN>) {
+	next if /^$/;
+	chomp;
+
+	if (/^\/\* (.*)\.o \*\//) {
+	    close STDOUT;
+	    open STDOUT, "> $dir/$1$ext"
+		or die "$dir/$1$ext: $!\n";
+	    next;
+	}
+	if (s/^override //) {
+	    print "override ";
+	}
+	if (/^([^ ])#(#?)([^ ]+) *(.*)$/) {
+	    my $sym = "$1#$3";
+
+	    if ($4 ne "") {
+		unless (/\s+{\s+UNKNOWN\s+}\s*$/) {
+		    $definitions{$sym} = $4;
+		}
+	    } elsif ($2 ne "") {
+		$_ = "$sym $symbol_type_name{$1} $3 { UNKNOWN } ";
+	    } else {
+		$_ = "$sym $definitions{$sym}";
+	    }
+	}
+	print "$_\n";
+    }
+}
+
+my ($pack, $unpack, $ext);
+GetOptions("pack" => \$pack, "unpack" => \$unpack, "ext" => \$ext)
+    && ($pack || $unpack) && @ARGV == 1
+    or die "USAGE:\t$0 [--ext extension] --pack {dir} > file\n" .
+		 "\t$0 [--ext extension] --unpack {dir} < file\n";
+
+pack_dump($ARGV[0], $ext) if $pack;
+unpack_dump($ARGV[0], $ext) if $unpack;