Rename scripts for release
[globsym.git] / krextract
1 #!/usr/bin/perl
2
3 # Copyright (c) 2015 Georget, Laurent <laurent.georget@irisa.fr>
4
5 # Permission is hereby granted, free of charge, to any person obtaining a copy of
6 # this software and associated documentation files (the "Software"), to deal in
7 # the Software without restriction, including without limitation the rights to
8 # use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
9 # the Software, and to permit persons to whom the Software is furnished to do so,
10 # subject to the following conditions:
11
12 # The above copyright notice and this permission notice shall be included in all
13 # copies or substantial portions of the Software.
14
15 # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
16 # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
17 # FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
18 # COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
19 # IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
20 # CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
21
22 use strict;
23 use warnings;
24
25 use File::Find ();
26 use File::Basename;
27 use Cwd;
28
29 # Set the variable $File::Find::dont_use_nlink if you're using AFS,
30 # since AFS cheats.
31
32 # for the convenience of &wanted calls, including -eval statements:
33 use vars qw/*name *dir *prune/;
34 *name   = *File::Find::name;
35 *dir    = *File::Find::dir;
36 *prune  = *File::Find::prune;
37
38 sub wanted;
39
40
41 print <<'EOF';
42 CREATE TABLE global_symbols   ( symbol TEXT,
43 dir TEXT,
44 file TEXT,
45 line INTEGER);
46 EOF
47
48 # Traverse desired filesystems
49 File::Find::find({wanted => \&wanted}, '.');
50
51 sub wanted {
52     my ($dev,$ino,$mode,$nlink,$uid,$gid);
53
54     (
55         (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
56         $File::Find::name =~ /^\.\/lib\z/s
57         ||
58         $File::Find::name =~ /^\.\/arch\/x86\/lib\z/s
59         ||
60         $File::Find::name =~ /^\.\/drivers\z/s
61     ) &&
62     ($File::Find::prune = 1)
63     ||
64     (
65         /^.*\.dwo\z/s &&
66         ($nlink || (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_))) &&
67         ! /^.*built-in.*\z/s
68     ) &&
69     look_for_symbols_in_file($name);
70 }
71
72
73 sub look_for_symbols_in_file
74 {
75         my $file = shift;
76         my ($base,$path,$suffix) = fileparse($file,('.dwo'));
77         if (! -e "$base.mod.c" && -e "$base.o")
78         {
79                 #print STDERR "$base\n";
80                 my $nm_output;
81                 open ($nm_output, "-|", "nm -l -g --defined-only --no-sort $base.o");
82                 while (<$nm_output>)
83                 {
84                         if (/.*\s+T\s+(\w+).*:(\d+)/)
85                         {
86                                 # print STDERR $_;
87                                 my ($symbol,$line) = ($1,$2);
88                                 # Special case for system calls
89                                 next if $symbol =~ /^SyS_/;
90                                 $symbol =~ s/^sys_/SYSC_/;
91
92                                 print "INSERT INTO global_symbols (symbol,dir,file,line) VALUES ('$symbol', '$path', '$base.c', '$line');\n"
93                         }
94                 }
95         }
96 }
97
98 1;
99
100 __END__