/
githubmirror
/
pciutils
Обзор
Документация
Войти
/
githubmirror
/
pciutils
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
lib/ver2def.pl
47 строк
2 KB
Pali Rohár
libpci: Add support for building versioned shared Windows DLL library libpci3.dll
30 окт 2022, 18:00
30 окт 2022, 18:00
32934d5
Код
Авторство
О чём код?
#!/usr/bin/perl use strict; use warnings; die "Usage: $0 script.ver dllname build.def import.def\n" if @ARGV != 4; my ($verfile, $dllname, $builddef, $importdef) = @ARGV; open my $verfh, '<', $verfile or die "Cannot open input file $verfile: $!\n"; my $input = join '', <$verfh>; close $verfh; my @syms; my (%cnt, %last, %ords); $input =~ s/\/\*.*?\*\///sg; # Remove C comments while ($input =~ m/(\S+)\s*\{((?:[^\{\}]|\{(?2)\})+)\}\s*;/sg) { # Split {...} my ($ver, $block) = ($1, $2); while ($block =~ s/(\S+)\s*:((?:[^\{\}:]|\{(?2)\})+)$//sg) { # Split section: my ($section, $syms) = ($1, $2); next if $section ne 'global'; $syms =~ s/\s+//g; foreach (split /;\s*/, $syms) { # Split symbols $cnt{$_}++; $last{$_} = $ver; push @syms, [$_, $ver]; } } } open my $importfh, '>', $importdef or die "Cannot open output file $importdef: $!\n"; open my $buildfh, '>', $builddef or die "Cannot open output file $builddef: $!\n"; print $importfh "LIBRARY \"$dllname\"\n"; print $importfh "EXPORTS\n"; print $buildfh "EXPORTS\n"; my $ord = 1; foreach (@syms) { my ($sym, $ver) = @{$_}; print $importfh "\"$sym\@$ver\" \@$ord\n"; if ($last{$sym} ne $ver) { print $buildfh "\"$sym\@$ver\" \@$ord\n"; } else { $ords{$sym} = $ord; print $buildfh "\"$sym\@$ver\" = " . (($cnt{$sym} > 1) ? "\"$sym\@\@$ver\"" : $sym) . " \@$ord\n" } $ord++; } # GNU dlltool has broken calculation of ordinals for aliased symbols, so specify ordinals explicitly # GNU LD prior 2.21 has broken handling of symbols with dot character # Operator == for defining symbol alias is supported since GNU dlltool 2.21 print $importfh "$_ \@$ords{$_} == \"$_\@$last{$_}\"\n" foreach sort keys %last; close $importfh; close $buildfh;