lib/mpg123
1
0
Fork 0
mirror of http://mpg123.de/trunk/.git synced 2025-07-31 13:24:22 +03:00
Code Activity

merge in libout123 branch

Browse Source 
git-svn-id: svn://scm.orgis.org/mpg123/trunk@3770 35dc7657-300d-0410-a2e5-dc2837fedb53
This commit is contained in:
thor
2015-09-04 07:06:24 +00:00
parent 7a43c67d9f
commit 382a464cfd
83 changed files with 6365 additions and 3257 deletions
Download Patch File Download Diff File Expand all files Collapse all files

127
scripts/intsym.pl
View File

@ -2,64 +2,105 @@
use strict;
my $dir = 'src/libmpg123';
my @headers = qw(compat decode dither frame getbits getcpuflags huffman icy2utf8 icy id3 index mpg123lib_intern optimize parse reader);
my $prefix = 'INT123_';
my @leavealone = qw(strerror strdup);
print STDERR "Do not forget to handle renaming of symbols from a statically linked output module!\n";
my %ident;
my @instances =
(
{ name => 'intsym.h'
, guard => 'MPG123_INTSYM_H'
, dir => 'src/libmpg123'
, headers => [qw(../compat/compat decode dither frame getbits getcpuflags huffman icy2utf8 icy id3 index mpg123lib_intern optimize parse reader)]
, prefix => 'INT123_'
, apiprefix => 'mpg123_'
, conditional => { strerror=>'HAVE_STRERROR', strdup=>'HAVE_STRDUP' }
, symbols => [qw(COS9 tfcos36 pnts)] # extra symbols
}
,
{ name => 'out123_intsym.h'
, guard => 'OUT123_INTSYM_H'
, dir => 'src/libout123'
, headers => [qw(../compat/compat module buffer xfermem wav out123_int)]
, prefix => 'IOT123_'
, apiprefix => 'out123_|audio_|output_'
, conditional => { strerror=>'HAVE_STRERROR', strdup=>'HAVE_STRDUP' }
, symbols => [qw(catchsignal)] # extra symbols
}
);
# Extra symbols.
my @symbols = qw(COS9 tfcos36 pnts);
foreach my $header (@headers)
for my $i (@instances)
{
print STDERR "==== working on header $header\n";
open(DAT, '<', $dir.'/'.$header.'.h') or die "Cannot open $header.\n";
while(<DAT>)
my $dir = $i->{dir};
print STDERR "dir: $dir\n";
my $outfile = "$dir/$i->{name}";
print STDERR "generating $outfile\n";
open(my $out, '>', $outfile) or die "Meh.\n";
my %ident;
my @symbols = @{$i->{symbols}};
my $apiex = qr/^$i->{apiprefix}/;
foreach my $header (@{$i->{headers}})
{
if(/^([^\s\(#][^\(]*)\s\*?([a-z][a-z_0-9]+)\s*\(/)
{
# Skip preprocessing/comment stuff and official API.
unless($1 =~ '^#' or $1 =~ '/\*' or $2 =~ /^mpg123_/)
print STDERR "==== working on header $header\n";
open(DAT, '<', $dir.'/'.$header.'.h') or die "Cannot open $header.\n";
while(<DAT>)
{ # Only simple declarations parsed here, more configured manually.
if(/^([^\s\(#][^\(]*)\s\*?([a-z][a-z_0-9]+)\s*\(/)
{
push(@symbols, $2) unless grep {$_ eq $2} @leavealone;
# Skip preprocessing/comment stuff and official API.
unless($1 =~ '^#' or $1 =~ '/\*' or $2 =~ $apiex)
{
push(@symbols, $2) unless grep {$_ eq $2} (keys %{$i->{conditional}});
}
}
}
close(DAT);
}
close(DAT);
}
print STDERR join("\n", glob("$dir/*.S"))."\n";
foreach my $asm (glob("$dir/*.S"))
{
print STDERR "==== working on asm file $asm\n";
open(DAT, '<', $asm) or die "Cannot open $asm.\n";
while(<DAT>)
print STDERR join("\n", glob("$dir/*.S"))."\n";
foreach my $asm (glob("$dir/*.S"))
{
if(/^\s*\.globl\s+ASM_NAME\((\S+)\)$/)
print STDERR "==== working on asm file $asm\n";
open(DAT, '<', $asm) or die "Cannot open $asm.\n";
while(<DAT>)
{
print STDERR;
push(@symbols, $1) unless grep {$_ eq $1} @symbols;
if(/^\s*\.globl\s+ASM_NAME\((\S+)\)$/)
{
print STDERR;
push(@symbols, $1) unless grep {$_ eq $1} @symbols;
}
}
close(DAT);
}
close(DAT);
}
print "#ifndef MPG123_INTMAP_H\n";
print "#define MPG123_INTMAP_H\n";
print "/* Mapping of internal mpg123 symbols to something that is less likely to conflict in case of static linking. */\n";
print $out "#ifndef $i->{guard}\n";
print $out "#define $i->{guard}\n";
print $out "/* Mapping of internal mpg123 symbols to something that is less likely to conflict in case of static linking. */\n";
foreach my $sym (@symbols)
{
my $name = $prefix.$sym;
my $signi = substr($name,0,31);
#print STDERR "$name / $signi\n";
if(++$ident{$signi} > 1)
foreach my $sym (@symbols)
{
die "That symbol is not unique in 31 chars: $name\n";
my $name = $i->{prefix}.$sym;
my $signi = substr($name,0,31);
#print STDERR "$name / $signi\n";
if(++$ident{$signi} > 1)
{
print STDERR "WARNING: That symbol is not unique in 31 chars: $name\n";
}
print $out "#define $sym $name\n";
}
foreach my $key (keys %{$i->{conditional}})
{
my ($sym, $guard) = ($key, $i->{conditional}{$key});
my $name = $i->{prefix}.$sym;
my $signi = substr($name,0,31);
if(++$ident{$signi} > 1)
{
print STDERR "WARNING: That symbol is not unique in 31 chars: $name\n";
}
print $out "#ifndef $guard\n";
print $out "#define $sym $name\n";
print $out "#endif\n";
}
print "#define $sym $name\n";
}
print "#endif\n";
print $out "#endif\n";
}