diff options
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/.gitignore | 1 | ||||
-rwxr-xr-x | scripts/get_maintainer.pl | 42 | ||||
-rw-r--r-- | scripts/kconfig/lxdialog/util.c | 2 | ||||
-rw-r--r-- | scripts/kconfig/mconf.c | 2 | ||||
-rw-r--r-- | scripts/markup_oops.pl | 5 | ||||
-rw-r--r-- | scripts/package/builddeb | 4 | ||||
-rwxr-xr-x | scripts/recordmcount.pl | 12 |
7 files changed, 54 insertions, 14 deletions
diff --git a/scripts/.gitignore b/scripts/.gitignore index b939fbd01195..52cab46ae35a 100644 --- a/scripts/.gitignore +++ b/scripts/.gitignore | |||
@@ -7,3 +7,4 @@ pnmtologo | |||
7 | bin2c | 7 | bin2c |
8 | unifdef | 8 | unifdef |
9 | binoffset | 9 | binoffset |
10 | ihex2fw | ||
diff --git a/scripts/get_maintainer.pl b/scripts/get_maintainer.pl index 3e733146cd51..278a45bd45a5 100755 --- a/scripts/get_maintainer.pl +++ b/scripts/get_maintainer.pl | |||
@@ -13,7 +13,7 @@ | |||
13 | use strict; | 13 | use strict; |
14 | 14 | ||
15 | my $P = $0; | 15 | my $P = $0; |
16 | my $V = '0.16'; | 16 | my $V = '0.17'; |
17 | 17 | ||
18 | use Getopt::Long qw(:config no_auto_abbrev); | 18 | use Getopt::Long qw(:config no_auto_abbrev); |
19 | 19 | ||
@@ -27,6 +27,7 @@ my $email_git = 1; | |||
27 | my $email_git_penguin_chiefs = 0; | 27 | my $email_git_penguin_chiefs = 0; |
28 | my $email_git_min_signatures = 1; | 28 | my $email_git_min_signatures = 1; |
29 | my $email_git_max_maintainers = 5; | 29 | my $email_git_max_maintainers = 5; |
30 | my $email_git_min_percent = 5; | ||
30 | my $email_git_since = "1-year-ago"; | 31 | my $email_git_since = "1-year-ago"; |
31 | my $output_multiline = 1; | 32 | my $output_multiline = 1; |
32 | my $output_separator = ", "; | 33 | my $output_separator = ", "; |
@@ -65,6 +66,7 @@ if (!GetOptions( | |||
65 | 'git-chief-penguins!' => \$email_git_penguin_chiefs, | 66 | 'git-chief-penguins!' => \$email_git_penguin_chiefs, |
66 | 'git-min-signatures=i' => \$email_git_min_signatures, | 67 | 'git-min-signatures=i' => \$email_git_min_signatures, |
67 | 'git-max-maintainers=i' => \$email_git_max_maintainers, | 68 | 'git-max-maintainers=i' => \$email_git_max_maintainers, |
69 | 'git-min-percent=i' => \$email_git_min_percent, | ||
68 | 'git-since=s' => \$email_git_since, | 70 | 'git-since=s' => \$email_git_since, |
69 | 'm!' => \$email_maintainer, | 71 | 'm!' => \$email_maintainer, |
70 | 'n!' => \$email_usename, | 72 | 'n!' => \$email_usename, |
@@ -132,6 +134,10 @@ while (<MAINT>) { | |||
132 | $value =~ s@\.@\\\.@g; ##Convert . to \. | 134 | $value =~ s@\.@\\\.@g; ##Convert . to \. |
133 | $value =~ s/\*/\.\*/g; ##Convert * to .* | 135 | $value =~ s/\*/\.\*/g; ##Convert * to .* |
134 | $value =~ s/\?/\./g; ##Convert ? to . | 136 | $value =~ s/\?/\./g; ##Convert ? to . |
137 | ##if pattern is a directory and it lacks a trailing slash, add one | ||
138 | if ((-d $value)) { | ||
139 | $value =~ s@([^/])$@$1/@; | ||
140 | } | ||
135 | } | 141 | } |
136 | push(@typevalue, "$type:$value"); | 142 | push(@typevalue, "$type:$value"); |
137 | } elsif (!/^(\s)*$/) { | 143 | } elsif (!/^(\s)*$/) { |
@@ -146,8 +152,10 @@ close(MAINT); | |||
146 | my @files = (); | 152 | my @files = (); |
147 | 153 | ||
148 | foreach my $file (@ARGV) { | 154 | foreach my $file (@ARGV) { |
149 | next if ((-d $file)); | 155 | ##if $file is a directory and it lacks a trailing slash, add one |
150 | if (!(-f $file)) { | 156 | if ((-d $file)) { |
157 | $file =~ s@([^/])$@$1/@; | ||
158 | } elsif (!(-f $file)) { | ||
151 | die "$P: file '${file}' not found\n"; | 159 | die "$P: file '${file}' not found\n"; |
152 | } | 160 | } |
153 | if ($from_filename) { | 161 | if ($from_filename) { |
@@ -292,7 +300,7 @@ sub file_match_pattern { | |||
292 | sub usage { | 300 | sub usage { |
293 | print <<EOT; | 301 | print <<EOT; |
294 | usage: $P [options] patchfile | 302 | usage: $P [options] patchfile |
295 | $P [options] -f file | 303 | $P [options] -f file|directory |
296 | version: $V | 304 | version: $V |
297 | 305 | ||
298 | MAINTAINER field selection options: | 306 | MAINTAINER field selection options: |
@@ -301,6 +309,7 @@ MAINTAINER field selection options: | |||
301 | --git-chief-penguins => include ${penguin_chiefs} | 309 | --git-chief-penguins => include ${penguin_chiefs} |
302 | --git-min-signatures => number of signatures required (default: 1) | 310 | --git-min-signatures => number of signatures required (default: 1) |
303 | --git-max-maintainers => maximum maintainers to add (default: 5) | 311 | --git-max-maintainers => maximum maintainers to add (default: 5) |
312 | --git-min-percent => minimum percentage of commits required (default: 5) | ||
304 | --git-since => git history to use (default: 1-year-ago) | 313 | --git-since => git history to use (default: 1-year-ago) |
305 | --m => include maintainer(s) if any | 314 | --m => include maintainer(s) if any |
306 | --n => include name 'Full Name <addr\@domain.tld>' | 315 | --n => include name 'Full Name <addr\@domain.tld>' |
@@ -322,6 +331,15 @@ Other options: | |||
322 | --version => show version | 331 | --version => show version |
323 | --help => show this help information | 332 | --help => show this help information |
324 | 333 | ||
334 | Notes: | ||
335 | Using "-f directory" may give unexpected results: | ||
336 | |||
337 | Used with "--git", git signators for _all_ files in and below | ||
338 | directory are examined as git recurses directories. | ||
339 | Any specified X: (exclude) pattern matches are _not_ ignored. | ||
340 | Used with "--nogit", directory is used as a pattern match, | ||
341 | no individual file within the directory or subdirectory | ||
342 | is matched. | ||
325 | EOT | 343 | EOT |
326 | } | 344 | } |
327 | 345 | ||
@@ -482,6 +500,7 @@ sub recent_git_signoffs { | |||
482 | my $output = ""; | 500 | my $output = ""; |
483 | my $count = 0; | 501 | my $count = 0; |
484 | my @lines = (); | 502 | my @lines = (); |
503 | my $total_sign_offs; | ||
485 | 504 | ||
486 | if (which("git") eq "") { | 505 | if (which("git") eq "") { |
487 | warn("$P: git not found. Add --nogit to options?\n"); | 506 | warn("$P: git not found. Add --nogit to options?\n"); |
@@ -505,17 +524,26 @@ sub recent_git_signoffs { | |||
505 | $output =~ s/^\s*//gm; | 524 | $output =~ s/^\s*//gm; |
506 | 525 | ||
507 | @lines = split("\n", $output); | 526 | @lines = split("\n", $output); |
527 | |||
528 | $total_sign_offs = 0; | ||
529 | foreach my $line (@lines) { | ||
530 | if ($line =~ m/([0-9]+)\s+(.*)/) { | ||
531 | $total_sign_offs += $1; | ||
532 | } else { | ||
533 | die("$P: Unexpected git output: ${line}\n"); | ||
534 | } | ||
535 | } | ||
536 | |||
508 | foreach my $line (@lines) { | 537 | foreach my $line (@lines) { |
509 | if ($line =~ m/([0-9]+)\s+(.*)/) { | 538 | if ($line =~ m/([0-9]+)\s+(.*)/) { |
510 | my $sign_offs = $1; | 539 | my $sign_offs = $1; |
511 | $line = $2; | 540 | $line = $2; |
512 | $count++; | 541 | $count++; |
513 | if ($sign_offs < $email_git_min_signatures || | 542 | if ($sign_offs < $email_git_min_signatures || |
514 | $count > $email_git_max_maintainers) { | 543 | $count > $email_git_max_maintainers || |
544 | $sign_offs * 100 / $total_sign_offs < $email_git_min_percent) { | ||
515 | last; | 545 | last; |
516 | } | 546 | } |
517 | } else { | ||
518 | die("$P: Unexpected git output: ${line}\n"); | ||
519 | } | 547 | } |
520 | if ($line =~ m/(.+)<(.+)>/) { | 548 | if ($line =~ m/(.+)<(.+)>/) { |
521 | my $git_name = $1; | 549 | my $git_name = $1; |
diff --git a/scripts/kconfig/lxdialog/util.c b/scripts/kconfig/lxdialog/util.c index 86d95cca46a7..f2375ad7ebc9 100644 --- a/scripts/kconfig/lxdialog/util.c +++ b/scripts/kconfig/lxdialog/util.c | |||
@@ -19,6 +19,8 @@ | |||
19 | * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. | 19 | * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
20 | */ | 20 | */ |
21 | 21 | ||
22 | #include <stdarg.h> | ||
23 | |||
22 | #include "dialog.h" | 24 | #include "dialog.h" |
23 | 25 | ||
24 | struct dialog_info dlg; | 26 | struct dialog_info dlg; |
diff --git a/scripts/kconfig/mconf.c b/scripts/kconfig/mconf.c index 3bcacb4bfd3a..25b60bc117f7 100644 --- a/scripts/kconfig/mconf.c +++ b/scripts/kconfig/mconf.c | |||
@@ -888,6 +888,8 @@ int main(int ac, char **av) | |||
888 | single_menu_mode = 1; | 888 | single_menu_mode = 1; |
889 | } | 889 | } |
890 | 890 | ||
891 | initscr(); | ||
892 | |||
891 | getyx(stdscr, saved_y, saved_x); | 893 | getyx(stdscr, saved_y, saved_x); |
892 | if (init_dialog(NULL)) { | 894 | if (init_dialog(NULL)) { |
893 | fprintf(stderr, N_("Your display is too small to run Menuconfig!\n")); | 895 | fprintf(stderr, N_("Your display is too small to run Menuconfig!\n")); |
diff --git a/scripts/markup_oops.pl b/scripts/markup_oops.pl index 528492bcba5b..89774011965d 100644 --- a/scripts/markup_oops.pl +++ b/scripts/markup_oops.pl | |||
@@ -1,6 +1,7 @@ | |||
1 | #!/usr/bin/perl | 1 | #!/usr/bin/perl |
2 | 2 | ||
3 | use File::Basename; | 3 | use File::Basename; |
4 | use Math::BigInt; | ||
4 | 5 | ||
5 | # Copyright 2008, Intel Corporation | 6 | # Copyright 2008, Intel Corporation |
6 | # | 7 | # |
@@ -172,8 +173,8 @@ while (<STDIN>) { | |||
172 | parse_x86_regs($line); | 173 | parse_x86_regs($line); |
173 | } | 174 | } |
174 | 175 | ||
175 | my $decodestart = hex($target) - hex($func_offset); | 176 | my $decodestart = Math::BigInt->from_hex("0x$target") - Math::BigInt->from_hex("0x$func_offset"); |
176 | my $decodestop = hex($target) + 8192; | 177 | my $decodestop = Math::BigInt->from_hex("0x$target") + 8192; |
177 | if ($target eq "0") { | 178 | if ($target eq "0") { |
178 | print "No oops found!\n"; | 179 | print "No oops found!\n"; |
179 | print "Usage: \n"; | 180 | print "Usage: \n"; |
diff --git a/scripts/package/builddeb b/scripts/package/builddeb index 01c2d13dd020..8b357b0bd250 100644 --- a/scripts/package/builddeb +++ b/scripts/package/builddeb | |||
@@ -16,6 +16,8 @@ create_package() { | |||
16 | local pname="$1" pdir="$2" | 16 | local pname="$1" pdir="$2" |
17 | 17 | ||
18 | cp debian/copyright "$pdir/usr/share/doc/$pname/" | 18 | cp debian/copyright "$pdir/usr/share/doc/$pname/" |
19 | cp debian/changelog "$pdir/usr/share/doc/$pname/changelog.Debian" | ||
20 | gzip -9 "$pdir/usr/share/doc/$pname/changelog.Debian" | ||
19 | 21 | ||
20 | # Fix ownership and permissions | 22 | # Fix ownership and permissions |
21 | chown -R root:root "$pdir" | 23 | chown -R root:root "$pdir" |
@@ -87,7 +89,7 @@ for script in postinst postrm preinst prerm ; do | |||
87 | set -e | 89 | set -e |
88 | 90 | ||
89 | # Pass maintainer script parameters to hook scripts | 91 | # Pass maintainer script parameters to hook scripts |
90 | export DEB_MAINT_PARAMS="\$@" | 92 | export DEB_MAINT_PARAMS="\$*" |
91 | 93 | ||
92 | test -d $debhookdir/$script.d && run-parts --arg="$version" $debhookdir/$script.d | 94 | test -d $debhookdir/$script.d && run-parts --arg="$version" $debhookdir/$script.d |
93 | exit 0 | 95 | exit 0 |
diff --git a/scripts/recordmcount.pl b/scripts/recordmcount.pl index 7109e2b5bc0a..911ba7ffab84 100755 --- a/scripts/recordmcount.pl +++ b/scripts/recordmcount.pl | |||
@@ -393,7 +393,7 @@ while (<IN>) { | |||
393 | $read_function = 0; | 393 | $read_function = 0; |
394 | } | 394 | } |
395 | # print out any recorded offsets | 395 | # print out any recorded offsets |
396 | update_funcs() if ($text_found); | 396 | update_funcs() if (defined($ref_func)); |
397 | 397 | ||
398 | # reset all markers and arrays | 398 | # reset all markers and arrays |
399 | $text_found = 0; | 399 | $text_found = 0; |
@@ -403,7 +403,6 @@ while (<IN>) { | |||
403 | # section found, now is this a start of a function? | 403 | # section found, now is this a start of a function? |
404 | } elsif ($read_function && /$function_regex/) { | 404 | } elsif ($read_function && /$function_regex/) { |
405 | $text_found = 1; | 405 | $text_found = 1; |
406 | $offset = hex $1; | ||
407 | $text = $2; | 406 | $text = $2; |
408 | 407 | ||
409 | # if this is either a local function or a weak function | 408 | # if this is either a local function or a weak function |
@@ -412,10 +411,15 @@ while (<IN>) { | |||
412 | if (!defined($locals{$text}) && !defined($weak{$text})) { | 411 | if (!defined($locals{$text}) && !defined($weak{$text})) { |
413 | $ref_func = $text; | 412 | $ref_func = $text; |
414 | $read_function = 0; | 413 | $read_function = 0; |
414 | $offset = hex $1; | ||
415 | } else { | 415 | } else { |
416 | # if we already have a function, and this is weak, skip it | 416 | # if we already have a function, and this is weak, skip it |
417 | if (!defined($ref_func) || !defined($weak{$text})) { | 417 | if (!defined($ref_func) && !defined($weak{$text}) && |
418 | # PPC64 can have symbols that start with .L and | ||
419 | # gcc considers these special. Don't use them! | ||
420 | $text !~ /^\.L/) { | ||
418 | $ref_func = $text; | 421 | $ref_func = $text; |
422 | $offset = hex $1; | ||
419 | } | 423 | } |
420 | } | 424 | } |
421 | } elsif ($read_headers && /$mcount_section/) { | 425 | } elsif ($read_headers && /$mcount_section/) { |
@@ -440,7 +444,7 @@ while (<IN>) { | |||
440 | } | 444 | } |
441 | 445 | ||
442 | # dump out anymore offsets that may have been found | 446 | # dump out anymore offsets that may have been found |
443 | update_funcs() if ($text_found); | 447 | update_funcs() if (defined($ref_func)); |
444 | 448 | ||
445 | # If we did not find any mcount callers, we are done (do nothing). | 449 | # If we did not find any mcount callers, we are done (do nothing). |
446 | if (!$opened) { | 450 | if (!$opened) { |