2 # Re-generate symbol renaming defines
3 # (c) 2013 Martin Mares <mj@ucw.cz>
8 open my $f, '<', 'tools/libucw.api' or die;
15 push @{$renames{$current}}, $_;
20 for my $g (sort keys %renames) {
21 my @symbols = sort @{$renames{$g}};
25 open my $in, '<', $g or die;
26 open my $out, '>', "$g.new" or die;
31 if (m{^/\*$} && !$cmt) {
39 # Waiting for the right spot
40 } elsif (m{^#ifdef CONFIG_UCW_CLEAN_ABI$}) {
45 print $out "#ifdef CONFIG_UCW_CLEAN_ABI\n";
46 for my $sym (@symbols) {
47 print $out "#define $sym ucw_$sym\n";
49 print $out "#endif\n\n";
51 } elsif ($mode == 2) {
62 rename "$g.new", $g or die;