Rename scripts for release master origin/HEAD origin/master
authorLaurent Georget <laurent.georget@inria.fr>
Wed, 26 Aug 2015 15:54:18 +0000 (17:54 +0200)
committerLaurent Georget <laurent.georget@inria.fr>
Wed, 26 Aug 2015 15:54:18 +0000 (17:54 +0200)
count_global_symbols.sh [deleted file]
extract_global_symbols.pl [deleted file]
krcount [new file with mode: 0755]
krextract [new file with mode: 0755]

diff --git a/count_global_symbols.sh b/count_global_symbols.sh
deleted file mode 100755 (executable)
index b298c6e..0000000
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/bin/bash
-# Copyright (c) 2015 Georget, Laurent <laurent.georget@irisa.fr>
-# 
-# Permission is hereby granted, free of charge, to any person obtaining a copy of
-# this software and associated documentation files (the "Software"), to deal in
-# the Software without restriction, including without limitation the rights to
-# use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
-# the Software, and to permit persons to whom the Software is furnished to do so,
-# subject to the following conditions:
-# 
-# The above copyright notice and this permission notice shall be included in all
-# copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
-# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
-# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
-# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
-# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-
-for i in $(find -name '*.dwo' -a ! -name '*built-in*' -a ! -wholename '*/drivers/*' -a ! -wholename '*/lib/*' ) ; do
-       if [[ ! -e ${i/%.dwo/.mod.c} ]]; then
-               for symbol in $(nm ${i/%.dwo/.o} | awk '$2 == "T" { print $3; }') ; do
-                       echo "$symbol $i" >> symbols.list
-               done
-       fi
-done
diff --git a/extract_global_symbols.pl b/extract_global_symbols.pl
deleted file mode 100755 (executable)
index 22df028..0000000
+++ /dev/null
@@ -1,100 +0,0 @@
-#!/usr/bin/perl
-
-# Copyright (c) 2015 Georget, Laurent <laurent.georget@irisa.fr>
-# 
-# Permission is hereby granted, free of charge, to any person obtaining a copy of
-# this software and associated documentation files (the "Software"), to deal in
-# the Software without restriction, including without limitation the rights to
-# use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
-# the Software, and to permit persons to whom the Software is furnished to do so,
-# subject to the following conditions:
-# 
-# The above copyright notice and this permission notice shall be included in all
-# copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
-# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
-# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
-# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
-# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-
-use strict;
-use warnings;
-
-use File::Find ();
-use File::Basename;
-use Cwd;
-
-# Set the variable $File::Find::dont_use_nlink if you're using AFS,
-# since AFS cheats.
-
-# for the convenience of &wanted calls, including -eval statements:
-use vars qw/*name *dir *prune/;
-*name   = *File::Find::name;
-*dir    = *File::Find::dir;
-*prune  = *File::Find::prune;
-
-sub wanted;
-
-
-print <<'EOF';
-CREATE TABLE global_symbols   (        symbol TEXT,
-dir TEXT,
-file TEXT,
-line INTEGER);
-EOF
-
-# Traverse desired filesystems
-File::Find::find({wanted => \&wanted}, '.');
-
-sub wanted {
-    my ($dev,$ino,$mode,$nlink,$uid,$gid);
-
-    (
-       (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
-       $File::Find::name =~ /^\.\/lib\z/s
-       ||
-       $File::Find::name =~ /^\.\/arch\/x86\/lib\z/s
-       ||
-       $File::Find::name =~ /^\.\/drivers\z/s
-    ) &&
-    ($File::Find::prune = 1)
-    ||
-    (
-       /^.*\.dwo\z/s &&
-       ($nlink || (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_))) &&
-       ! /^.*built-in.*\z/s
-    ) &&
-    look_for_symbols_in_file($name);
-}
-
-
-sub look_for_symbols_in_file
-{
-       my $file = shift;
-       my ($base,$path,$suffix) = fileparse($file,('.dwo'));
-       if (! -e "$base.mod.c" && -e "$base.o")
-       {
-               #print STDERR "$base\n";
-               my $nm_output;
-               open ($nm_output, "-|", "nm -l -g --defined-only --no-sort $base.o");
-               while (<$nm_output>)
-               {
-                       if (/.*\s+T\s+(\w+).*:(\d+)/)
-                       {
-                               # print STDERR $_;
-                               my ($symbol,$line) = ($1,$2);
-                               # Special case for system calls
-                               next if $symbol =~ /^SyS_/;
-                               $symbol =~ s/^sys_/SYSC_/;
-
-                               print "INSERT INTO global_symbols (symbol,dir,file,line) VALUES ('$symbol', '$path', '$base.c', '$line');\n"
-                       }
-               }
-       }
-}
-
-1;
-
-__END__
diff --git a/krcount b/krcount
new file mode 100755 (executable)
index 0000000..b298c6e
--- /dev/null
+++ b/krcount
@@ -0,0 +1,27 @@
+#!/bin/bash
+# Copyright (c) 2015 Georget, Laurent <laurent.georget@irisa.fr>
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy of
+# this software and associated documentation files (the "Software"), to deal in
+# the Software without restriction, including without limitation the rights to
+# use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+# the Software, and to permit persons to whom the Software is furnished to do so,
+# subject to the following conditions:
+# 
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+for i in $(find -name '*.dwo' -a ! -name '*built-in*' -a ! -wholename '*/drivers/*' -a ! -wholename '*/lib/*' ) ; do
+       if [[ ! -e ${i/%.dwo/.mod.c} ]]; then
+               for symbol in $(nm ${i/%.dwo/.o} | awk '$2 == "T" { print $3; }') ; do
+                       echo "$symbol $i" >> symbols.list
+               done
+       fi
+done
diff --git a/krextract b/krextract
new file mode 100755 (executable)
index 0000000..22df028
--- /dev/null
+++ b/krextract
@@ -0,0 +1,100 @@
+#!/usr/bin/perl
+
+# Copyright (c) 2015 Georget, Laurent <laurent.georget@irisa.fr>
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy of
+# this software and associated documentation files (the "Software"), to deal in
+# the Software without restriction, including without limitation the rights to
+# use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+# the Software, and to permit persons to whom the Software is furnished to do so,
+# subject to the following conditions:
+# 
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+use strict;
+use warnings;
+
+use File::Find ();
+use File::Basename;
+use Cwd;
+
+# Set the variable $File::Find::dont_use_nlink if you're using AFS,
+# since AFS cheats.
+
+# for the convenience of &wanted calls, including -eval statements:
+use vars qw/*name *dir *prune/;
+*name   = *File::Find::name;
+*dir    = *File::Find::dir;
+*prune  = *File::Find::prune;
+
+sub wanted;
+
+
+print <<'EOF';
+CREATE TABLE global_symbols   (        symbol TEXT,
+dir TEXT,
+file TEXT,
+line INTEGER);
+EOF
+
+# Traverse desired filesystems
+File::Find::find({wanted => \&wanted}, '.');
+
+sub wanted {
+    my ($dev,$ino,$mode,$nlink,$uid,$gid);
+
+    (
+       (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
+       $File::Find::name =~ /^\.\/lib\z/s
+       ||
+       $File::Find::name =~ /^\.\/arch\/x86\/lib\z/s
+       ||
+       $File::Find::name =~ /^\.\/drivers\z/s
+    ) &&
+    ($File::Find::prune = 1)
+    ||
+    (
+       /^.*\.dwo\z/s &&
+       ($nlink || (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_))) &&
+       ! /^.*built-in.*\z/s
+    ) &&
+    look_for_symbols_in_file($name);
+}
+
+
+sub look_for_symbols_in_file
+{
+       my $file = shift;
+       my ($base,$path,$suffix) = fileparse($file,('.dwo'));
+       if (! -e "$base.mod.c" && -e "$base.o")
+       {
+               #print STDERR "$base\n";
+               my $nm_output;
+               open ($nm_output, "-|", "nm -l -g --defined-only --no-sort $base.o");
+               while (<$nm_output>)
+               {
+                       if (/.*\s+T\s+(\w+).*:(\d+)/)
+                       {
+                               # print STDERR $_;
+                               my ($symbol,$line) = ($1,$2);
+                               # Special case for system calls
+                               next if $symbol =~ /^SyS_/;
+                               $symbol =~ s/^sys_/SYSC_/;
+
+                               print "INSERT INTO global_symbols (symbol,dir,file,line) VALUES ('$symbol', '$path', '$base.c', '$line');\n"
+                       }
+               }
+       }
+}
+
+1;
+
+__END__