diff options
| author | Paul Mundt <lethal@linux-sh.org> | 2009-04-13 17:29:07 -0400 |
|---|---|---|
| committer | Paul Mundt <lethal@linux-sh.org> | 2009-04-13 17:29:07 -0400 |
| commit | f499cae1e59d75d5eb24c23d47cf8986e6032c6d (patch) | |
| tree | 1af6235c18391212c40116eb90b01eae8938efee /scripts | |
| parent | fc3f55e672e1ed917dd9e215af81939cd3d717da (diff) | |
| parent | 80a04d3f2f94fb68b5df05e3ac6697130bc3467a (diff) | |
Merge branch 'master' of git://git.kernel.org/pub/scm/linux/kernel/git/torvalds/linux-2.6
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/.gitignore | 1 | ||||
| -rw-r--r-- | scripts/Makefile | 3 | ||||
| -rw-r--r-- | scripts/Makefile.headersinst | 2 | ||||
| -rw-r--r-- | scripts/gen_initramfs_list.sh | 2 | ||||
| -rwxr-xr-x | scripts/get_maintainer.pl | 515 | ||||
| -rwxr-xr-x | scripts/headerdep.pl | 2 | ||||
| -rw-r--r-- | scripts/ihex2fw.c | 268 | ||||
| -rw-r--r-- | scripts/kconfig/kxgettext.c | 4 | ||||
| -rw-r--r-- | scripts/mod/modpost.c | 4 | ||||
| -rwxr-xr-x | scripts/setlocalversion | 2 | ||||
| -rw-r--r-- | scripts/tracing/power.pl (renamed from scripts/trace/power.pl) | 0 |
11 files changed, 527 insertions, 276 deletions
diff --git a/scripts/.gitignore b/scripts/.gitignore index 09e2406f3b78..b939fbd01195 100644 --- a/scripts/.gitignore +++ b/scripts/.gitignore | |||
| @@ -1,7 +1,6 @@ | |||
| 1 | # | 1 | # |
| 2 | # Generated files | 2 | # Generated files |
| 3 | # | 3 | # |
| 4 | ihex2fw | ||
| 5 | conmakehash | 4 | conmakehash |
| 6 | kallsyms | 5 | kallsyms |
| 7 | pnmtologo | 6 | pnmtologo |
diff --git a/scripts/Makefile b/scripts/Makefile index 035182e16afb..aafdf064feef 100644 --- a/scripts/Makefile +++ b/scripts/Makefile | |||
| @@ -2,12 +2,11 @@ | |||
| 2 | # scripts contains sources for various helper programs used throughout | 2 | # scripts contains sources for various helper programs used throughout |
| 3 | # the kernel for the build process. | 3 | # the kernel for the build process. |
| 4 | # --------------------------------------------------------------------------- | 4 | # --------------------------------------------------------------------------- |
| 5 | # ihex2fw: Parser/loader for IHEX formatted data | ||
| 6 | # kallsyms: Find all symbols in vmlinux | 5 | # kallsyms: Find all symbols in vmlinux |
| 7 | # pnmttologo: Convert pnm files to logo files | 6 | # pnmttologo: Convert pnm files to logo files |
| 7 | # conmakehash: Create chartable | ||
| 8 | # conmakehash: Create arrays for initializing the kernel console tables | 8 | # conmakehash: Create arrays for initializing the kernel console tables |
| 9 | 9 | ||
| 10 | hostprogs-y := ihex2fw | ||
| 11 | hostprogs-$(CONFIG_KALLSYMS) += kallsyms | 10 | hostprogs-$(CONFIG_KALLSYMS) += kallsyms |
| 12 | hostprogs-$(CONFIG_LOGO) += pnmtologo | 11 | hostprogs-$(CONFIG_LOGO) += pnmtologo |
| 13 | hostprogs-$(CONFIG_VT) += conmakehash | 12 | hostprogs-$(CONFIG_VT) += conmakehash |
diff --git a/scripts/Makefile.headersinst b/scripts/Makefile.headersinst index 612dc13ddd85..095cfc8b9dbf 100644 --- a/scripts/Makefile.headersinst +++ b/scripts/Makefile.headersinst | |||
| @@ -14,6 +14,8 @@ _dst := $(if $(dst),$(dst),$(obj)) | |||
| 14 | kbuild-file := $(srctree)/$(obj)/Kbuild | 14 | kbuild-file := $(srctree)/$(obj)/Kbuild |
| 15 | include $(kbuild-file) | 15 | include $(kbuild-file) |
| 16 | 16 | ||
| 17 | _dst := $(if $(destination-y),$(destination-y),$(_dst)) | ||
| 18 | |||
| 17 | include scripts/Kbuild.include | 19 | include scripts/Kbuild.include |
| 18 | 20 | ||
| 19 | install := $(INSTALL_HDR_PATH)/$(_dst) | 21 | install := $(INSTALL_HDR_PATH)/$(_dst) |
diff --git a/scripts/gen_initramfs_list.sh b/scripts/gen_initramfs_list.sh index 3eea8f15131b..76af5f9623e3 100644 --- a/scripts/gen_initramfs_list.sh +++ b/scripts/gen_initramfs_list.sh | |||
| @@ -97,7 +97,7 @@ print_mtime() { | |||
| 97 | } | 97 | } |
| 98 | 98 | ||
| 99 | list_parse() { | 99 | list_parse() { |
| 100 | echo "$1 \\" | 100 | [ ! -L "$1" ] && echo "$1 \\" || : |
| 101 | } | 101 | } |
| 102 | 102 | ||
| 103 | # for each file print a line in following format | 103 | # for each file print a line in following format |
diff --git a/scripts/get_maintainer.pl b/scripts/get_maintainer.pl new file mode 100755 index 000000000000..60dc0c48c929 --- /dev/null +++ b/scripts/get_maintainer.pl | |||
| @@ -0,0 +1,515 @@ | |||
| 1 | #!/usr/bin/perl -w | ||
| 2 | # (c) 2007, Joe Perches <joe@perches.com> | ||
| 3 | # created from checkpatch.pl | ||
| 4 | # | ||
| 5 | # Print selected MAINTAINERS information for | ||
| 6 | # the files modified in a patch or for a file | ||
| 7 | # | ||
| 8 | # usage: perl scripts/get_maintainers.pl [OPTIONS] <patch> | ||
| 9 | # perl scripts/get_maintainers.pl [OPTIONS] -f <file> | ||
| 10 | # | ||
| 11 | # Licensed under the terms of the GNU GPL License version 2 | ||
| 12 | |||
| 13 | use strict; | ||
| 14 | |||
| 15 | my $P = $0; | ||
| 16 | my $V = '0.15'; | ||
| 17 | |||
| 18 | use Getopt::Long qw(:config no_auto_abbrev); | ||
| 19 | |||
| 20 | my $lk_path = "./"; | ||
| 21 | my $email = 1; | ||
| 22 | my $email_usename = 1; | ||
| 23 | my $email_maintainer = 1; | ||
| 24 | my $email_list = 1; | ||
| 25 | my $email_subscriber_list = 0; | ||
| 26 | my $email_git = 1; | ||
| 27 | my $email_git_penguin_chiefs = 0; | ||
| 28 | my $email_git_min_signatures = 1; | ||
| 29 | my $email_git_max_maintainers = 5; | ||
| 30 | my $email_git_since = "1-year-ago"; | ||
| 31 | my $output_multiline = 1; | ||
| 32 | my $output_separator = ", "; | ||
| 33 | my $scm = 0; | ||
| 34 | my $web = 0; | ||
| 35 | my $subsystem = 0; | ||
| 36 | my $status = 0; | ||
| 37 | my $from_filename = 0; | ||
| 38 | my $version = 0; | ||
| 39 | my $help = 0; | ||
| 40 | |||
| 41 | my $exit = 0; | ||
| 42 | |||
| 43 | my @penguin_chief = (); | ||
| 44 | push(@penguin_chief,"Linus Torvalds:torvalds\@linux-foundation.org"); | ||
| 45 | #Andrew wants in on most everything - 2009/01/14 | ||
| 46 | #push(@penguin_chief,"Andrew Morton:akpm\@linux-foundation.org"); | ||
| 47 | |||
| 48 | my @penguin_chief_names = (); | ||
| 49 | foreach my $chief (@penguin_chief) { | ||
| 50 | if ($chief =~ m/^(.*):(.*)/) { | ||
| 51 | my $chief_name = $1; | ||
| 52 | my $chief_addr = $2; | ||
| 53 | push(@penguin_chief_names, $chief_name); | ||
| 54 | } | ||
| 55 | } | ||
| 56 | my $penguin_chiefs = "\(" . join("|",@penguin_chief_names) . "\)"; | ||
| 57 | |||
| 58 | if (!GetOptions( | ||
| 59 | 'email!' => \$email, | ||
| 60 | 'git!' => \$email_git, | ||
| 61 | 'git-chief-penguins!' => \$email_git_penguin_chiefs, | ||
| 62 | 'git-min-signatures=i' => \$email_git_min_signatures, | ||
| 63 | 'git-max-maintainers=i' => \$email_git_max_maintainers, | ||
| 64 | 'git-since=s' => \$email_git_since, | ||
| 65 | 'm!' => \$email_maintainer, | ||
| 66 | 'n!' => \$email_usename, | ||
| 67 | 'l!' => \$email_list, | ||
| 68 | 's!' => \$email_subscriber_list, | ||
| 69 | 'multiline!' => \$output_multiline, | ||
| 70 | 'separator=s' => \$output_separator, | ||
| 71 | 'subsystem!' => \$subsystem, | ||
| 72 | 'status!' => \$status, | ||
| 73 | 'scm!' => \$scm, | ||
| 74 | 'web!' => \$web, | ||
| 75 | 'f|file' => \$from_filename, | ||
| 76 | 'v|version' => \$version, | ||
| 77 | 'h|help' => \$help, | ||
| 78 | )) { | ||
| 79 | usage(); | ||
| 80 | die "$P: invalid argument\n"; | ||
| 81 | } | ||
| 82 | |||
| 83 | if ($help != 0) { | ||
| 84 | usage(); | ||
| 85 | exit 0; | ||
| 86 | } | ||
| 87 | |||
| 88 | if ($version != 0) { | ||
| 89 | print("${P} ${V}\n"); | ||
| 90 | exit 0; | ||
| 91 | } | ||
| 92 | |||
| 93 | if ($#ARGV < 0) { | ||
| 94 | usage(); | ||
| 95 | die "$P: argument missing: patchfile or -f file please\n"; | ||
| 96 | } | ||
| 97 | |||
| 98 | my $selections = $email + $scm + $status + $subsystem + $web; | ||
| 99 | if ($selections == 0) { | ||
| 100 | usage(); | ||
| 101 | die "$P: Missing required option: email, scm, status, subsystem or web\n"; | ||
| 102 | } | ||
| 103 | |||
| 104 | if ($email && ($email_maintainer + $email_list + $email_subscriber_list | ||
| 105 | + $email_git + $email_git_penguin_chiefs) == 0) { | ||
| 106 | usage(); | ||
| 107 | die "$P: Please select at least 1 email option\n"; | ||
| 108 | } | ||
| 109 | |||
| 110 | if (!top_of_kernel_tree($lk_path)) { | ||
| 111 | die "$P: The current directory does not appear to be " | ||
| 112 | . "a linux kernel source tree.\n"; | ||
| 113 | } | ||
| 114 | |||
| 115 | ## Read MAINTAINERS for type/value pairs | ||
| 116 | |||
| 117 | my @typevalue = (); | ||
| 118 | open(MAINT, "<${lk_path}MAINTAINERS") || die "$P: Can't open MAINTAINERS\n"; | ||
| 119 | while (<MAINT>) { | ||
| 120 | my $line = $_; | ||
| 121 | |||
| 122 | if ($line =~ m/^(\C):\s*(.*)/) { | ||
| 123 | my $type = $1; | ||
| 124 | my $value = $2; | ||
| 125 | |||
| 126 | ##Filename pattern matching | ||
| 127 | if ($type eq "F" || $type eq "X") { | ||
| 128 | $value =~ s@\.@\\\.@g; ##Convert . to \. | ||
| 129 | $value =~ s/\*/\.\*/g; ##Convert * to .* | ||
| 130 | $value =~ s/\?/\./g; ##Convert ? to . | ||
| 131 | } | ||
| 132 | push(@typevalue, "$type:$value"); | ||
| 133 | } elsif (!/^(\s)*$/) { | ||
| 134 | $line =~ s/\n$//g; | ||
| 135 | push(@typevalue, $line); | ||
| 136 | } | ||
| 137 | } | ||
| 138 | close(MAINT); | ||
| 139 | |||
| 140 | ## use the filenames on the command line or find the filenames in the patchfiles | ||
| 141 | |||
| 142 | my @files = (); | ||
| 143 | |||
| 144 | foreach my $file (@ARGV) { | ||
| 145 | next if ((-d $file)); | ||
| 146 | if (!(-f $file)) { | ||
| 147 | die "$P: file '${file}' not found\n"; | ||
| 148 | } | ||
| 149 | if ($from_filename) { | ||
| 150 | push(@files, $file); | ||
| 151 | } else { | ||
| 152 | my $file_cnt = @files; | ||
| 153 | open(PATCH, "<$file") or die "$P: Can't open ${file}\n"; | ||
| 154 | while (<PATCH>) { | ||
| 155 | if (m/^\+\+\+\s+(\S+)/) { | ||
| 156 | my $filename = $1; | ||
| 157 | $filename =~ s@^[^/]*/@@; | ||
| 158 | $filename =~ s@\n@@; | ||
| 159 | push(@files, $filename); | ||
| 160 | } | ||
| 161 | } | ||
| 162 | close(PATCH); | ||
| 163 | if ($file_cnt == @files) { | ||
| 164 | die "$P: file '${file}' doesn't appear to be a patch. " | ||
| 165 | . "Add -f to options?\n"; | ||
| 166 | } | ||
| 167 | @files = sort_and_uniq(@files); | ||
| 168 | } | ||
| 169 | } | ||
| 170 | |||
| 171 | my @email_to = (); | ||
| 172 | my @scm = (); | ||
| 173 | my @web = (); | ||
| 174 | my @subsystem = (); | ||
| 175 | my @status = (); | ||
| 176 | |||
| 177 | # Find responsible parties | ||
| 178 | |||
| 179 | foreach my $file (@files) { | ||
| 180 | |||
| 181 | #Do not match excluded file patterns | ||
| 182 | |||
| 183 | my $exclude = 0; | ||
| 184 | foreach my $line (@typevalue) { | ||
| 185 | if ($line =~ m/^(\C):(.*)/) { | ||
| 186 | my $type = $1; | ||
| 187 | my $value = $2; | ||
| 188 | if ($type eq 'X') { | ||
| 189 | if (file_match_pattern($file, $value)) { | ||
| 190 | $exclude = 1; | ||
| 191 | } | ||
| 192 | } | ||
| 193 | } | ||
| 194 | } | ||
| 195 | |||
| 196 | if (!$exclude) { | ||
| 197 | my $tvi = 0; | ||
| 198 | foreach my $line (@typevalue) { | ||
| 199 | if ($line =~ m/^(\C):(.*)/) { | ||
| 200 | my $type = $1; | ||
| 201 | my $value = $2; | ||
| 202 | if ($type eq 'F') { | ||
| 203 | if (file_match_pattern($file, $value)) { | ||
| 204 | add_categories($tvi); | ||
| 205 | } | ||
| 206 | } | ||
| 207 | } | ||
| 208 | $tvi++; | ||
| 209 | } | ||
| 210 | } | ||
| 211 | |||
| 212 | if ($email && $email_git) { | ||
| 213 | recent_git_signoffs($file); | ||
| 214 | } | ||
| 215 | |||
| 216 | } | ||
| 217 | |||
| 218 | if ($email_git_penguin_chiefs) { | ||
| 219 | foreach my $chief (@penguin_chief) { | ||
| 220 | if ($chief =~ m/^(.*):(.*)/) { | ||
| 221 | my $chief_name = $1; | ||
| 222 | my $chief_addr = $2; | ||
| 223 | if ($email_usename) { | ||
| 224 | push(@email_to, format_email($chief_name, $chief_addr)); | ||
| 225 | } else { | ||
| 226 | push(@email_to, $chief_addr); | ||
| 227 | } | ||
| 228 | } | ||
| 229 | } | ||
| 230 | } | ||
| 231 | |||
| 232 | if ($email) { | ||
| 233 | my $address_cnt = @email_to; | ||
| 234 | if ($address_cnt == 0 && $email_list) { | ||
| 235 | push(@email_to, "linux-kernel\@vger.kernel.org"); | ||
| 236 | } | ||
| 237 | |||
| 238 | #Don't sort email address list, but do remove duplicates | ||
| 239 | @email_to = uniq(@email_to); | ||
| 240 | output(@email_to); | ||
| 241 | } | ||
| 242 | |||
| 243 | if ($scm) { | ||
| 244 | @scm = sort_and_uniq(@scm); | ||
| 245 | output(@scm); | ||
| 246 | } | ||
| 247 | |||
| 248 | if ($status) { | ||
| 249 | @status = sort_and_uniq(@status); | ||
| 250 | output(@status); | ||
| 251 | } | ||
| 252 | |||
| 253 | if ($subsystem) { | ||
| 254 | @subsystem = sort_and_uniq(@subsystem); | ||
| 255 | output(@subsystem); | ||
| 256 | } | ||
| 257 | |||
| 258 | if ($web) { | ||
| 259 | @web = sort_and_uniq(@web); | ||
| 260 | output(@web); | ||
| 261 | } | ||
| 262 | |||
| 263 | exit($exit); | ||
| 264 | |||
| 265 | sub file_match_pattern { | ||
| 266 | my ($file, $pattern) = @_; | ||
| 267 | if (substr($pattern, -1) eq "/") { | ||
| 268 | if ($file =~ m@^$pattern@) { | ||
| 269 | return 1; | ||
| 270 | } | ||
| 271 | } else { | ||
| 272 | if ($file =~ m@^$pattern@) { | ||
| 273 | my $s1 = ($file =~ tr@/@@); | ||
| 274 | my $s2 = ($pattern =~ tr@/@@); | ||
| 275 | if ($s1 == $s2) { | ||
| 276 | return 1; | ||
| 277 | } | ||
| 278 | } | ||
| 279 | } | ||
| 280 | return 0; | ||
| 281 | } | ||
| 282 | |||
| 283 | sub usage { | ||
| 284 | print <<EOT; | ||
| 285 | usage: $P [options] patchfile | ||
| 286 | $P [options] -f file | ||
| 287 | version: $V | ||
| 288 | |||
| 289 | MAINTAINER field selection options: | ||
| 290 | --email => print email address(es) if any | ||
| 291 | --git => include recent git \*-by: signers | ||
| 292 | --git-chief-penguins => include ${penguin_chiefs} | ||
| 293 | --git-min-signatures => number of signatures required (default: 1) | ||
| 294 | --git-max-maintainers => maximum maintainers to add (default: 5) | ||
| 295 | --git-since => git history to use (default: 1-year-ago) | ||
| 296 | --m => include maintainer(s) if any | ||
| 297 | --n => include name 'Full Name <addr\@domain.tld>' | ||
| 298 | --l => include list(s) if any | ||
| 299 | --s => include subscriber only list(s) if any | ||
| 300 | --scm => print SCM tree(s) if any | ||
| 301 | --status => print status if any | ||
| 302 | --subsystem => print subsystem name if any | ||
| 303 | --web => print website(s) if any | ||
| 304 | |||
| 305 | Output type options: | ||
| 306 | --separator [, ] => separator for multiple entries on 1 line | ||
| 307 | --multiline => print 1 entry per line | ||
| 308 | |||
| 309 | Default options: | ||
| 310 | [--email --git --m --l --multiline] | ||
| 311 | |||
| 312 | Other options: | ||
| 313 | --version -> show version | ||
| 314 | --help => show this help information | ||
| 315 | |||
| 316 | EOT | ||
| 317 | } | ||
| 318 | |||
| 319 | sub top_of_kernel_tree { | ||
| 320 | my ($lk_path) = @_; | ||
| 321 | |||
| 322 | if ($lk_path ne "" && substr($lk_path,length($lk_path)-1,1) ne "/") { | ||
| 323 | $lk_path .= "/"; | ||
| 324 | } | ||
| 325 | if ( (-f "${lk_path}COPYING") | ||
| 326 | && (-f "${lk_path}CREDITS") | ||
| 327 | && (-f "${lk_path}Kbuild") | ||
| 328 | && (-f "${lk_path}MAINTAINERS") | ||
| 329 | && (-f "${lk_path}Makefile") | ||
| 330 | && (-f "${lk_path}README") | ||
| 331 | && (-d "${lk_path}Documentation") | ||
| 332 | && (-d "${lk_path}arch") | ||
| 333 | && (-d "${lk_path}include") | ||
| 334 | && (-d "${lk_path}drivers") | ||
| 335 | && (-d "${lk_path}fs") | ||
| 336 | && (-d "${lk_path}init") | ||
| 337 | && (-d "${lk_path}ipc") | ||
| 338 | && (-d "${lk_path}kernel") | ||
| 339 | && (-d "${lk_path}lib") | ||
| 340 | && (-d "${lk_path}scripts")) { | ||
| 341 | return 1; | ||
| 342 | } | ||
| 343 | return 0; | ||
| 344 | } | ||
| 345 | |||
| 346 | sub format_email { | ||
| 347 | my ($name, $email) = @_; | ||
| 348 | |||
| 349 | $name =~ s/^\s+|\s+$//g; | ||
| 350 | $email =~ s/^\s+|\s+$//g; | ||
| 351 | |||
| 352 | my $formatted_email = ""; | ||
| 353 | |||
| 354 | if ($name =~ /[^a-z0-9 \.\-]/i) { ##has "must quote" chars | ||
| 355 | $name =~ s/(?<!\\)"/\\"/g; ##escape quotes | ||
| 356 | $formatted_email = "\"${name}\"\ \<${email}\>"; | ||
| 357 | } else { | ||
| 358 | $formatted_email = "${name} \<${email}\>"; | ||
| 359 | } | ||
| 360 | return $formatted_email; | ||
| 361 | } | ||
| 362 | |||
| 363 | sub add_categories { | ||
| 364 | my ($index) = @_; | ||
| 365 | |||
| 366 | $index = $index - 1; | ||
| 367 | while ($index >= 0) { | ||
| 368 | my $tv = $typevalue[$index]; | ||
| 369 | if ($tv =~ m/^(\C):(.*)/) { | ||
| 370 | my $ptype = $1; | ||
| 371 | my $pvalue = $2; | ||
| 372 | if ($ptype eq "L") { | ||
| 373 | my $subscr = $pvalue; | ||
| 374 | if ($subscr =~ m/\s*\(subscribers-only\)/) { | ||
| 375 | if ($email_subscriber_list) { | ||
| 376 | $subscr =~ s/\s*\(subscribers-only\)//g; | ||
| 377 | push(@email_to, $subscr); | ||
| 378 | } | ||
| 379 | } else { | ||
| 380 | if ($email_list) { | ||
| 381 | push(@email_to, $pvalue); | ||
| 382 | } | ||
| 383 | } | ||
| 384 | } elsif ($ptype eq "M") { | ||
| 385 | if ($email_maintainer) { | ||
| 386 | if ($index >= 0) { | ||
| 387 | my $tv = $typevalue[$index - 1]; | ||
| 388 | if ($tv =~ m/^(\C):(.*)/) { | ||
| 389 | if ($1 eq "P" && $email_usename) { | ||
| 390 | push(@email_to, format_email($2, $pvalue)); | ||
| 391 | } else { | ||
| 392 | push(@email_to, $pvalue); | ||
| 393 | } | ||
| 394 | } | ||
| 395 | } else { | ||
| 396 | push(@email_to, $pvalue); | ||
| 397 | } | ||
| 398 | } | ||
| 399 | } elsif ($ptype eq "T") { | ||
| 400 | push(@scm, $pvalue); | ||
| 401 | } elsif ($ptype eq "W") { | ||
| 402 | push(@web, $pvalue); | ||
| 403 | } elsif ($ptype eq "S") { | ||
| 404 | push(@status, $pvalue); | ||
| 405 | } | ||
| 406 | |||
| 407 | $index--; | ||
| 408 | } else { | ||
| 409 | push(@subsystem,$tv); | ||
| 410 | $index = -1; | ||
| 411 | } | ||
| 412 | } | ||
| 413 | } | ||
| 414 | |||
| 415 | sub which { | ||
| 416 | my ($bin) = @_; | ||
| 417 | |||
| 418 | foreach my $path (split /:/, $ENV{PATH}) { | ||
| 419 | if (-e "$path/$bin") { | ||
| 420 | return "$path/$bin"; | ||
| 421 | } | ||
| 422 | } | ||
| 423 | |||
| 424 | return ""; | ||
| 425 | } | ||
| 426 | |||
| 427 | sub recent_git_signoffs { | ||
| 428 | my ($file) = @_; | ||
| 429 | |||
| 430 | my $sign_offs = ""; | ||
| 431 | my $cmd = ""; | ||
| 432 | my $output = ""; | ||
| 433 | my $count = 0; | ||
| 434 | my @lines = (); | ||
| 435 | |||
| 436 | if (which("git") eq "") { | ||
| 437 | die("$P: git not found. Add --nogit to options?\n"); | ||
| 438 | } | ||
| 439 | |||
| 440 | $cmd = "git log --since=${email_git_since} -- ${file}"; | ||
| 441 | $cmd .= " | grep -Pi \"^[-_ a-z]+by:.*\\\@\""; | ||
| 442 | if (!$email_git_penguin_chiefs) { | ||
| 443 | $cmd .= " | grep -Pv \"${penguin_chiefs}\""; | ||
| 444 | } | ||
| 445 | $cmd .= " | cut -f2- -d\":\""; | ||
| 446 | $cmd .= " | sed -e \"s/^\\s+//g\""; | ||
| 447 | $cmd .= " | sort | uniq -c | sort -rn"; | ||
| 448 | |||
| 449 | $output = `${cmd}`; | ||
| 450 | $output =~ s/^\s*//gm; | ||
| 451 | |||
| 452 | @lines = split("\n", $output); | ||
| 453 | foreach my $line (@lines) { | ||
| 454 | if ($line =~ m/([0-9]+)\s+(.*)/) { | ||
| 455 | my $sign_offs = $1; | ||
| 456 | $line = $2; | ||
| 457 | $count++; | ||
| 458 | if ($sign_offs < $email_git_min_signatures || | ||
| 459 | $count > $email_git_max_maintainers) { | ||
| 460 | last; | ||
| 461 | } | ||
| 462 | } else { | ||
| 463 | die("$P: Unexpected git output: ${line}\n"); | ||
| 464 | } | ||
| 465 | if ($line =~ m/(.+)<(.+)>/) { | ||
| 466 | my $git_name = $1; | ||
| 467 | my $git_addr = $2; | ||
| 468 | $git_name =~ tr/^\"//; | ||
| 469 | $git_name =~ tr/^\\s*//; | ||
| 470 | $git_name =~ tr/\"$//; | ||
| 471 | $git_name =~ tr/\\s*$//; | ||
| 472 | if ($email_usename) { | ||
| 473 | push(@email_to, format_email($git_name, $git_addr)); | ||
| 474 | } else { | ||
| 475 | push(@email_to, $git_addr); | ||
| 476 | } | ||
| 477 | } elsif ($line =~ m/<(.+)>/) { | ||
| 478 | my $git_addr = $1; | ||
| 479 | push(@email_to, $git_addr); | ||
| 480 | } else { | ||
| 481 | push(@email_to, $line); | ||
| 482 | } | ||
| 483 | } | ||
| 484 | return $output; | ||
| 485 | } | ||
| 486 | |||
| 487 | sub uniq { | ||
| 488 | my @parms = @_; | ||
| 489 | |||
| 490 | my %saw; | ||
| 491 | @parms = grep(!$saw{$_}++, @parms); | ||
| 492 | return @parms; | ||
| 493 | } | ||
| 494 | |||
| 495 | sub sort_and_uniq { | ||
| 496 | my @parms = @_; | ||
| 497 | |||
| 498 | my %saw; | ||
| 499 | @parms = sort @parms; | ||
| 500 | @parms = grep(!$saw{$_}++, @parms); | ||
| 501 | return @parms; | ||
| 502 | } | ||
| 503 | |||
| 504 | sub output { | ||
| 505 | my @parms = @_; | ||
| 506 | |||
| 507 | if ($output_multiline) { | ||
| 508 | foreach my $line (@parms) { | ||
| 509 | print("${line}\n"); | ||
| 510 | } | ||
| 511 | } else { | ||
| 512 | print(join($output_separator, @parms)); | ||
| 513 | print("\n"); | ||
| 514 | } | ||
| 515 | } | ||
diff --git a/scripts/headerdep.pl b/scripts/headerdep.pl index 97399da89ef2..b7f6c560e24d 100755 --- a/scripts/headerdep.pl +++ b/scripts/headerdep.pl | |||
| @@ -19,7 +19,7 @@ my $opt_graph; | |||
| 19 | version => \&version, | 19 | version => \&version, |
| 20 | 20 | ||
| 21 | all => \$opt_all, | 21 | all => \$opt_all, |
| 22 | I => \@opt_include, | 22 | "I=s" => \@opt_include, |
| 23 | graph => \$opt_graph, | 23 | graph => \$opt_graph, |
| 24 | ); | 24 | ); |
| 25 | 25 | ||
diff --git a/scripts/ihex2fw.c b/scripts/ihex2fw.c deleted file mode 100644 index 8f7fdaa9e010..000000000000 --- a/scripts/ihex2fw.c +++ /dev/null | |||
| @@ -1,268 +0,0 @@ | |||
| 1 | /* | ||
| 2 | * Parser/loader for IHEX formatted data. | ||
| 3 | * | ||
| 4 | * Copyright © 2008 David Woodhouse <dwmw2@infradead.org> | ||
| 5 | * Copyright © 2005 Jan Harkes <jaharkes@cs.cmu.edu> | ||
| 6 | * | ||
| 7 | * This program is free software; you can redistribute it and/or modify | ||
| 8 | * it under the terms of the GNU General Public License version 2 as | ||
| 9 | * published by the Free Software Foundation. | ||
| 10 | */ | ||
| 11 | |||
| 12 | #include <stdint.h> | ||
| 13 | #include <arpa/inet.h> | ||
| 14 | #include <stdio.h> | ||
| 15 | #include <errno.h> | ||
| 16 | #include <sys/types.h> | ||
| 17 | #include <sys/stat.h> | ||
| 18 | #include <sys/mman.h> | ||
| 19 | #include <fcntl.h> | ||
| 20 | #include <string.h> | ||
| 21 | #include <unistd.h> | ||
| 22 | #include <stdlib.h> | ||
| 23 | #define _GNU_SOURCE | ||
| 24 | #include <getopt.h> | ||
| 25 | |||
| 26 | |||
| 27 | struct ihex_binrec { | ||
| 28 | struct ihex_binrec *next; /* not part of the real data structure */ | ||
| 29 | uint32_t addr; | ||
| 30 | uint16_t len; | ||
| 31 | uint8_t data[]; | ||
| 32 | }; | ||
| 33 | |||
| 34 | /** | ||
| 35 | * nybble/hex are little helpers to parse hexadecimal numbers to a byte value | ||
| 36 | **/ | ||
| 37 | static uint8_t nybble(const uint8_t n) | ||
| 38 | { | ||
| 39 | if (n >= '0' && n <= '9') return n - '0'; | ||
| 40 | else if (n >= 'A' && n <= 'F') return n - ('A' - 10); | ||
| 41 | else if (n >= 'a' && n <= 'f') return n - ('a' - 10); | ||
| 42 | return 0; | ||
| 43 | } | ||
| 44 | |||
| 45 | static uint8_t hex(const uint8_t *data, uint8_t *crc) | ||
| 46 | { | ||
| 47 | uint8_t val = (nybble(data[0]) << 4) | nybble(data[1]); | ||
| 48 | *crc += val; | ||
| 49 | return val; | ||
| 50 | } | ||
| 51 | |||
| 52 | static int process_ihex(uint8_t *data, ssize_t size); | ||
| 53 | static void file_record(struct ihex_binrec *record); | ||
| 54 | static int output_records(int outfd); | ||
| 55 | |||
| 56 | static int sort_records = 0; | ||
| 57 | static int wide_records = 0; | ||
| 58 | |||
| 59 | int usage(void) | ||
| 60 | { | ||
| 61 | fprintf(stderr, "ihex2fw: Convert ihex files into binary " | ||
| 62 | "representation for use by Linux kernel\n"); | ||
| 63 | fprintf(stderr, "usage: ihex2fw [<options>] <src.HEX> <dst.fw>\n"); | ||
| 64 | fprintf(stderr, " -w: wide records (16-bit length)\n"); | ||
| 65 | fprintf(stderr, " -s: sort records by address\n"); | ||
| 66 | return 1; | ||
| 67 | } | ||
| 68 | |||
| 69 | int main(int argc, char **argv) | ||
| 70 | { | ||
| 71 | int infd, outfd; | ||
| 72 | struct stat st; | ||
| 73 | uint8_t *data; | ||
| 74 | int opt; | ||
| 75 | |||
| 76 | while ((opt = getopt(argc, argv, "ws")) != -1) { | ||
| 77 | switch (opt) { | ||
| 78 | case 'w': | ||
| 79 | wide_records = 1; | ||
| 80 | break; | ||
| 81 | case 's': | ||
| 82 | sort_records = 1; | ||
| 83 | break; | ||
| 84 | default: | ||
| 85 | return usage(); | ||
| 86 | } | ||
| 87 | } | ||
| 88 | |||
| 89 | if (optind + 2 != argc) | ||
| 90 | return usage(); | ||
| 91 | |||
| 92 | if (!strcmp(argv[optind], "-")) | ||
| 93 | infd = 0; | ||
| 94 | else | ||
| 95 | infd = open(argv[optind], O_RDONLY); | ||
| 96 | if (infd == -1) { | ||
| 97 | fprintf(stderr, "Failed to open source file: %s", | ||
| 98 | strerror(errno)); | ||
| 99 | return usage(); | ||
| 100 | } | ||
| 101 | if (fstat(infd, &st)) { | ||
| 102 | perror("stat"); | ||
| 103 | return 1; | ||
| 104 | } | ||
| 105 | data = mmap(NULL, st.st_size, PROT_READ, MAP_SHARED, infd, 0); | ||
| 106 | if (data == MAP_FAILED) { | ||
| 107 | perror("mmap"); | ||
| 108 | return 1; | ||
| 109 | } | ||
| 110 | |||
| 111 | if (!strcmp(argv[optind+1], "-")) | ||
| 112 | outfd = 1; | ||
| 113 | else | ||
| 114 | outfd = open(argv[optind+1], O_TRUNC|O_CREAT|O_WRONLY, 0644); | ||
| 115 | if (outfd == -1) { | ||
| 116 | fprintf(stderr, "Failed to open destination file: %s", | ||
| 117 | strerror(errno)); | ||
| 118 | return usage(); | ||
| 119 | } | ||
| 120 | if (process_ihex(data, st.st_size)) | ||
| 121 | return 1; | ||
| 122 | |||
| 123 | output_records(outfd); | ||
| 124 | return 0; | ||
| 125 | } | ||
| 126 | |||
| 127 | static int process_ihex(uint8_t *data, ssize_t size) | ||
| 128 | { | ||
| 129 | struct ihex_binrec *record; | ||
| 130 | uint32_t offset = 0; | ||
| 131 | uint8_t type, crc = 0, crcbyte = 0; | ||
| 132 | int i, j; | ||
| 133 | int line = 1; | ||
| 134 | int len; | ||
| 135 | |||
| 136 | i = 0; | ||
| 137 | next_record: | ||
| 138 | /* search for the start of record character */ | ||
| 139 | while (i < size) { | ||
| 140 | if (data[i] == '\n') line++; | ||
| 141 | if (data[i++] == ':') break; | ||
| 142 | } | ||
| 143 | |||
| 144 | /* Minimum record length would be about 10 characters */ | ||
| 145 | if (i + 10 > size) { | ||
| 146 | fprintf(stderr, "Can't find valid record at line %d\n", line); | ||
| 147 | return -EINVAL; | ||
| 148 | } | ||
| 149 | |||
| 150 | len = hex(data + i, &crc); i += 2; | ||
| 151 | if (wide_records) { | ||
| 152 | len <<= 8; | ||
| 153 | len += hex(data + i, &crc); i += 2; | ||
| 154 | } | ||
| 155 | record = malloc((sizeof (*record) + len + 3) & ~3); | ||
| 156 | if (!record) { | ||
| 157 | fprintf(stderr, "out of memory for records\n"); | ||
| 158 | return -ENOMEM; | ||
| 159 | } | ||
| 160 | memset(record, 0, (sizeof(*record) + len + 3) & ~3); | ||
| 161 | record->len = len; | ||
| 162 | |||
| 163 | /* now check if we have enough data to read everything */ | ||
| 164 | if (i + 8 + (record->len * 2) > size) { | ||
| 165 | fprintf(stderr, "Not enough data to read complete record at line %d\n", | ||
| 166 | line); | ||
| 167 | return -EINVAL; | ||
| 168 | } | ||
| 169 | |||
| 170 | record->addr = hex(data + i, &crc) << 8; i += 2; | ||
| 171 | record->addr |= hex(data + i, &crc); i += 2; | ||
| 172 | type = hex(data + i, &crc); i += 2; | ||
| 173 | |||
| 174 | for (j = 0; j < record->len; j++, i += 2) | ||
| 175 | record->data[j] = hex(data + i, &crc); | ||
| 176 | |||
| 177 | /* check CRC */ | ||
| 178 | crcbyte = hex(data + i, &crc); i += 2; | ||
| 179 | if (crc != 0) { | ||
| 180 | fprintf(stderr, "CRC failure at line %d: got 0x%X, expected 0x%X\n", | ||
| 181 | line, crcbyte, (unsigned char)(crcbyte-crc)); | ||
| 182 | return -EINVAL; | ||
| 183 | } | ||
| 184 | |||
| 185 | /* Done reading the record */ | ||
| 186 | switch (type) { | ||
| 187 | case 0: | ||
| 188 | /* old style EOF record? */ | ||
| 189 | if (!record->len) | ||
| 190 | break; | ||
| 191 | |||
| 192 | record->addr += offset; | ||
| 193 | file_record(record); | ||
| 194 | goto next_record; | ||
| 195 | |||
| 196 | case 1: /* End-Of-File Record */ | ||
| 197 | if (record->addr || record->len) { | ||
| 198 | fprintf(stderr, "Bad EOF record (type 01) format at line %d", | ||
| 199 | line); | ||
| 200 | return -EINVAL; | ||
| 201 | } | ||
| 202 | break; | ||
| 203 | |||
| 204 | case 2: /* Extended Segment Address Record (HEX86) */ | ||
| 205 | case 4: /* Extended Linear Address Record (HEX386) */ | ||
| 206 | if (record->addr || record->len != 2) { | ||
| 207 | fprintf(stderr, "Bad HEX86/HEX386 record (type %02X) at line %d\n", | ||
| 208 | type, line); | ||
| 209 | return -EINVAL; | ||
| 210 | } | ||
| 211 | |||
| 212 | /* We shouldn't really be using the offset for HEX86 because | ||
| 213 | * the wraparound case is specified quite differently. */ | ||
| 214 | offset = record->data[0] << 8 | record->data[1]; | ||
| 215 | offset <<= (type == 2 ? 4 : 16); | ||
| 216 | goto next_record; | ||
| 217 | |||
| 218 | case 3: /* Start Segment Address Record */ | ||
| 219 | case 5: /* Start Linear Address Record */ | ||
| 220 | if (record->addr || record->len != 4) { | ||
| 221 | fprintf(stderr, "Bad Start Address record (type %02X) at line %d\n", | ||
| 222 | type, line); | ||
| 223 | return -EINVAL; | ||
| 224 | } | ||
| 225 | |||
| 226 | /* These records contain the CS/IP or EIP where execution | ||
| 227 | * starts. Don't really know what to do with them. */ | ||
| 228 | goto next_record; | ||
| 229 | |||
| 230 | default: | ||
| 231 | fprintf(stderr, "Unknown record (type %02X)\n", type); | ||
| 232 | return -EINVAL; | ||
| 233 | } | ||
| 234 | |||
| 235 | return 0; | ||
| 236 | } | ||
| 237 | |||
| 238 | static struct ihex_binrec *records; | ||
| 239 | |||
| 240 | static void file_record(struct ihex_binrec *record) | ||
| 241 | { | ||
| 242 | struct ihex_binrec **p = &records; | ||
| 243 | |||
| 244 | while ((*p) && (!sort_records || (*p)->addr < record->addr)) | ||
| 245 | p = &((*p)->next); | ||
| 246 | |||
| 247 | record->next = *p; | ||
| 248 | *p = record; | ||
| 249 | } | ||
| 250 | |||
| 251 | static int output_records(int outfd) | ||
| 252 | { | ||
| 253 | unsigned char zeroes[6] = {0, 0, 0, 0, 0, 0}; | ||
| 254 | struct ihex_binrec *p = records; | ||
| 255 | |||
| 256 | while (p) { | ||
| 257 | uint16_t writelen = (p->len + 9) & ~3; | ||
| 258 | |||
| 259 | p->addr = htonl(p->addr); | ||
| 260 | p->len = htons(p->len); | ||
| 261 | write(outfd, &p->addr, writelen); | ||
| 262 | p = p->next; | ||
| 263 | } | ||
| 264 | /* EOF record is zero length, since we don't bother to represent | ||
| 265 | the type field in the binary version */ | ||
| 266 | write(outfd, zeroes, 6); | ||
| 267 | return 0; | ||
| 268 | } | ||
diff --git a/scripts/kconfig/kxgettext.c b/scripts/kconfig/kxgettext.c index 6eb72a7f2562..8d9ce22b0fc5 100644 --- a/scripts/kconfig/kxgettext.c +++ b/scripts/kconfig/kxgettext.c | |||
| @@ -43,6 +43,10 @@ static char *escape(const char* text, char *bf, int len) | |||
| 43 | ++text; | 43 | ++text; |
| 44 | goto next; | 44 | goto next; |
| 45 | } | 45 | } |
| 46 | else if (*text == '\\') { | ||
| 47 | *bfp++ = '\\'; | ||
| 48 | len--; | ||
| 49 | } | ||
| 46 | *bfp++ = *text++; | 50 | *bfp++ = *text++; |
| 47 | next: | 51 | next: |
| 48 | --len; | 52 | --len; |
diff --git a/scripts/mod/modpost.c b/scripts/mod/modpost.c index 8cc70612984c..df6e6286a065 100644 --- a/scripts/mod/modpost.c +++ b/scripts/mod/modpost.c | |||
| @@ -1913,7 +1913,7 @@ static void read_dump(const char *fname, unsigned int kernel) | |||
| 1913 | if (!mod) { | 1913 | if (!mod) { |
| 1914 | if (is_vmlinux(modname)) | 1914 | if (is_vmlinux(modname)) |
| 1915 | have_vmlinux = 1; | 1915 | have_vmlinux = 1; |
| 1916 | mod = new_module(NOFAIL(strdup(modname))); | 1916 | mod = new_module(modname); |
| 1917 | mod->skip = 1; | 1917 | mod->skip = 1; |
| 1918 | } | 1918 | } |
| 1919 | s = sym_add_exported(symname, mod, export_no(export)); | 1919 | s = sym_add_exported(symname, mod, export_no(export)); |
| @@ -1997,7 +1997,7 @@ static void read_markers(const char *fname) | |||
| 1997 | 1997 | ||
| 1998 | mod = find_module(modname); | 1998 | mod = find_module(modname); |
| 1999 | if (!mod) { | 1999 | if (!mod) { |
| 2000 | mod = new_module(NOFAIL(strdup(modname))); | 2000 | mod = new_module(modname); |
| 2001 | mod->skip = 1; | 2001 | mod->skip = 1; |
| 2002 | } | 2002 | } |
| 2003 | if (is_vmlinux(modname)) { | 2003 | if (is_vmlinux(modname)) { |
diff --git a/scripts/setlocalversion b/scripts/setlocalversion index f1c4b35bc324..47e75b69a2e9 100755 --- a/scripts/setlocalversion +++ b/scripts/setlocalversion | |||
| @@ -21,7 +21,7 @@ if head=`git rev-parse --verify --short HEAD 2>/dev/null`; then | |||
| 21 | 21 | ||
| 22 | # Is this git on svn? | 22 | # Is this git on svn? |
| 23 | if git config --get svn-remote.svn.url >/dev/null; then | 23 | if git config --get svn-remote.svn.url >/dev/null; then |
| 24 | printf -- '-svn%s' "`git-svn find-rev $head`" | 24 | printf -- '-svn%s' "`git svn find-rev $head`" |
| 25 | fi | 25 | fi |
| 26 | 26 | ||
| 27 | # Are there uncommitted changes? | 27 | # Are there uncommitted changes? |
diff --git a/scripts/trace/power.pl b/scripts/tracing/power.pl index 4f729b3501e0..4f729b3501e0 100644 --- a/scripts/trace/power.pl +++ b/scripts/tracing/power.pl | |||
