OBS-URL: https://build.opensuse.org/package/show/Kernel:HEAD/kernel-source?expand=0&rev=7109

modversions

@@ -1,158 +0,0 @@
-#! /usr/bin/perl -w
-
-use File::Basename;
-use File::Path;
-use File::Find;
-use Getopt::Long;
-use strict;
-
-my %symbol_type_name = (
-    n => 'normal', t => 'typedef', e => 'enum', s => 'struct', u => 'union',
-    E => 'enum constant'
-);
-
-my %definitions;
-my %override;
-my %override_locally;
-my %locally_unknown;
-my %locally_defined;
-
-sub expand_types($);
-sub expand_types($) {
-    my ($definition) = @_;
-    local ($_, $1, $2);
-
-    my @defn = split ' ', $definition;
-    for (@defn[1..$#defn]) {
-	if (/^(.)#(.*)/) {
-	    #print "<<$defn[0] : $_>>\n";
-	    next if exists $locally_defined{$_};
-	    $locally_defined{$_} = 1;
-
-	    if ($locally_unknown{$_}) {
-                print "override " if $override_locally{$_};
-		print "$_ $symbol_type_name{$1} $2 { UNKNOWN } \n";
-	    } else {
-		if (!exists $definitions{$_}) {
-		    die "Missing definition of $symbol_type_name{$1} $2\n";
-		}
-		expand_types("$_ $definitions{$_}");
-	    }
-	}
-    }
-    print "override " if $override_locally{$defn[0]};
-    print "$definition\n";
-}
-
-sub pack_dump($$) {
-    my ($dir, $ext) = @_;
-    my @files;
-
-    $ext = ".symtypes" unless defined $ext;
-    $dir =~ s/\/+$//;
-
-    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;
-
-	    my $override = "";
-	    if (s/^override //) {
-		$override = $&;
-	    }
-
-	    if (/^(\S)#(\S+)\s*(.*)/) {
-		my $sym = "$1#$2";
-		my $definition = $3;
-
-		if (/^$sym\s+$symbol_type_name{$1}\s+$2\s+{\s+UNKNOWN\s+}\s*$/) {
-		    $_ = $override . substr($sym, 0, 1) . "##" . substr($sym, 2);
-		} else {
-		    if (exists $definitions{$sym} && $definitions{$sym} eq $definition) {
-			if (($override ne "") == (exists $override{$sym})) {
-			    next;
-			}
-			$_ = "$override$sym";
-		    } else {
-			$definitions{$sym} = $definition;
-			if ($override eq "") {
-			    delete $override{$sym};
-			} else {
-			    $override{$sym} = 1;
-			    $_ = "$override$_";
-			}
-		    }
-		}
-	    } elsif ($override) {
-		    $_ = "$override$_";
-	    }
-	    print "$_\n";
-	}
-	close FD;
-	print "\n";
-    }
-}
-
-sub unpack_dump($$) {
-    my ($dir, $ext) = @_;
-
-    $ext = ".symref" unless defined $ext;
-
-    while (<STDIN>) {
-	next if /^$/;
-	chomp;
-
-	if (/^\/\* (.*)\.o \*\//) {
-	    close STDOUT;
-	    mkpath(dirname("$dir/$1$ext"));
-	    open STDOUT, "> $dir/$1$ext"
-		or die "$dir/$1$ext: $!\n";
-	    %locally_defined = ();
-	    %locally_unknown = ();
-	    %override_locally = %override;
-	    next;
-	}
-
-	my $override = /^override\s/;
-	s/^override\s//;
-
-	if (/^([^ ])#(#?)([^ ]+) *(.*)$/) {
-	    my $sym = "$1#$3";
-
-	    if ($4 ne "") {
-		if (/\s+{\s+UNKNOWN\s+}\s*$/) {
-		    $locally_unknown{$sym} = 1;
-		    $override_locally{$sym} = $override;
-		} else {
-		    $definitions{$sym} = $4;
-		    $locally_unknown{$sym} = 0;
-		    $override{$sym} = $override;
-		    $override_locally{$sym} = $override;
-		}
-	    } else {
-		$locally_unknown{$sym} = ($2 ne "");
-		$override_locally{$sym} = $override;
-	    }
-	    next;
-	} elsif (/^([^# ]*)/) {
-		$override_locally{$1} = $override;
-	}
-	expand_types($_);
-    }
-}
-
-my ($pack, $unpack, $ext);
-GetOptions("pack" => \$pack, "unpack" => \$unpack, "ext:s" => \$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;