159 lines
3.5 KiB
Perl
159 lines
3.5 KiB
Perl
#! /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;
|