} 	$string =~ s@\s+@ @g; 	return $string;} sub seed_camelcase_file {	my ($file) = @_; 	return if (!(-f $file)); 	local $/; 	open(my $include_file, '<', "$file")	    or warn "$P: Can't read '$file' $!\n";	my $text = <$include_file>;	close($include_file); 	my @lines = split('\n', $text); 	foreach my $line (@lines) {		next if ($line !~ /(?:[A-Z][a-z]|[a-z][A-Z])/);		if ($line =~ /^[ \t]*(?:#[ \t]*define|typedef\s+$Type)\s+(\w*(?:[A-Z][a-z]|[a-z][A-Z])\w*)/) {			$camelcase{$1} = 1;		} elsif ($line =~ /^\s*$Declare\s+(\w*(?:[A-Z][a-z]|[a-z][A-Z])\w*)\s*[\(\[,;]/) {			$camelcase{$1} = 1;		} elsif ($line =~ /^\s*(?:union|struct|enum)\s+(\w*(?:[A-Z][a-z]|[a-z][A-Z])\w*)\s*[;\{]/) {			$camelcase{$1} = 1;		}	}} my $camelcase_seeded = 0;sub seed_camelcase_includes {	return if ($camelcase_seeded); 	my $files;	my $camelcase_cache = "";	my @include_files = (); 	$camelcase_seeded = 1; 	if (-e ".git") {		my $git_last_include_commit = `git log --no-merges --pretty=format:"%h%n" -1 -- include`;		chomp $git_last_include_commit;		$camelcase_cache = ".checkpatch-camelcase.git.$git_last_include_commit";	} else {		my $last_mod_date = 0;		$files = `find $root/include -name "*.h"`;		@include_files = split('\n', $files);		foreach my $file (@include_files) {			my $date = POSIX::strftime("%Y%m%d%H%M",						   localtime((stat $file)[9]));			$last_mod_date = $date if ($last_mod_date < $date);		}		$camelcase_cache = ".checkpatch-camelcase.date.$last_mod_date";	} 	if ($camelcase_cache ne "" && -f $camelcase_cache) {		open(my $camelcase_file, '<', "$camelcase_cache")		    or warn "$P: Can't read '$camelcase_cache' $!\n";		while (<$camelcase_file>) {			chomp;			$camelcase{$_} = 1;		}		close($camelcase_file); 		return;	} 	if (-e ".git") {		$files = `git ls-files "include/*.h"`;		@include_files = split('\n', $files);	} 	foreach my $file (@include_files) {		seed_camelcase_file($file);	} 	if ($camelcase_cache ne "") {		unlink glob ".checkpatch-camelcase.*";		open(my $camelcase_file, '>', "$camelcase_cache")		    or warn "$P: Can't write '$camelcase_cache' $!\n";		foreach (sort { lc($a) cmp lc($b) } keys(%camelcase)) {			print $camelcase_file ("$_\n");		}		close($camelcase_file);	}} sub git_commit_info {	my ($commit, $id, $desc) = @_; 	return ($id, $desc) if ((which("git") eq "") || !(-e ".git")); 	my $output = `git log --no-color --format='%H %s' -1 $commit 2>&1`;	$output =~ s/^\s*//gm;	my @lines = split("\n", $output); 	if ($lines[0] =~ /^error: short SHA1 $commit is ambiguous\./) {# Maybe one day convert this block of bash into something that returns# all matching commit ids, but it's very slow...##		echo "checking commits $1..."#		git rev-list --remotes | grep -i "^$1" |#		while read line ; do#		    git log --format='%H %s' -1 $line |#		    echo "commit $(cut -c 1-12,41-)"#		done	} elsif ($lines[0] =~ /^fatal: ambiguous argument '$commit': unknown revision or path not in the working tree\./) {	} else {		$id = substr($lines[0], 0, 12);		$desc = substr($lines[0], 41);	} 	return ($id, $desc);} $chk_signoff = 0 if ($file); my @rawlines = ();my @lines = ();my @fixed = ();my @fixed_inserted = ();my @fixed_deleted = ();my $fixlinenr = -1; my $vname;for my $filename (@ARGV) {	my $FILE;	if ($file) {		open($FILE, '-|', "diff -u /dev/null $filename") ||			die "$P: $filename: diff failed - $!\n";	} elsif ($filename eq '-') {		open($FILE, '<&STDIN');	} else {		open($FILE, '<', "$filename") ||			die "$P: $filename: open failed - $!\n";	}	if ($filename eq '-') {		$vname = 'Your patch';	} else {		$vname = $filename;	}	while (<$FILE>) {		chomp;		push(@rawlines, $_);	}	close($FILE);	if (!process($filename)) {		$exit = 1;	}	@rawlines = ();	@lines = ();	@fixed = ();	@fixed_inserted = ();	@fixed_deleted = ();	$fixlinenr = -1;} exit($exit); sub top_of_kernel_tree {	my ($root) = @_; 	my @tree_check = (		"COPYING", "CREDITS", "Kbuild", "MAINTAINERS", "Makefile",		"README", "Documentation", "arch", "include", "drivers",		"fs", "init", "ipc", "kernel", "lib", "scripts",	); 	foreach my $check (@tree_check) {		if (! -e $root . '/' . $check) {			return 0;		}	}	return 1;} sub parse_email {	my ($formatted_email) = @_; 	my $name = "";	my $address = "";	my $comment = ""; 	if ($formatted_email =~ /^(.*)<(\S+\@\S+)>(.*)$/) {		$name = $1;		$address = $2;		$comment = $3 if defined $3;	} elsif ($formatted_email =~ /^\s*<(\S+\@\S+)>(.*)$/) {		$address = $1;		$comment = $2 if defined $2;	} elsif ($formatted_email =~ /(\S+\@\S+)(.*)$/) {		$address = $1;		$comment = $2 if defined $2;		$formatted_email =~ s/$address.*$//;		$name = $formatted_email;		$name = trim($name);		$name =~ s/^\"|\"$//g;		# If there's a name left after stripping spaces and		# leading quotes, and the address doesn't have both		# leading and trailing angle brackets, the address		# is invalid. ie:		#   "joe smith joe@smith.com" bad		#   "joe smith <joe@smith.com" bad		if ($name ne "" && $address !~ /^<[^>]+>$/) {			$name = "";			$address = "";			$comment = "";		}	} 	$name = trim($name);	$name =~ s/^\"|\"$//g;	$address = trim($address);	$address =~ s/^\<|\>$//g; 	if ($name =~ /[^\w \-]/i) { ##has "must quote" chars		$name =~ s/(?<!\\)"/\\"/g; ##escape quotes		$name = "\"$name\"";	} 	return ($name, $address, $comment);} sub format_email {	my ($name, $address) = @_; 	my $formatted_email; 	$name = trim($name);	$name =~ s/^\"|\"$//g;	$address = trim($address); 	if ($name =~ /[^\w \-]/i) { ##has "must quote" chars		$name =~ s/(?<!\\)"/\\"/g; ##escape quotes		$name = "\"$name\"";	} 	if ("$name" eq "") {		$formatted_email = "$address";	} else {		$formatted_email = "$name <$address>";	} 	return $formatted_email;} sub which {	my ($bin) = @_; 	foreach my $path (split(/:/, $ENV{PATH})) {		if (-e "$path/$bin") {			return "$path/$bin";		}	} 	return "";} sub which_conf {	my ($conf) = @_; 	foreach my $path (split(/:/, ".:$ENV{HOME}:.scripts")) {		if (-e "$path/$conf") {			return "$path/$conf";		}	} 	return "";} sub expand_tabs {	my ($str) = @_; 	my $res = '';	my $n = 0;	for my $c (split(//, $str)) {		if ($c eq "\t") {			$res .= ' ';			$n++;			for (; ($n % 8) != 0; $n++) {				$res .= ' ';			}			next;		}		$res .= $c;		$n++;	} 	return $res;}sub copy_spacing {	(my $res = shift) =~ tr/\t/ /c;	return $res;} sub line_stats {	my ($line) = @_; 	# Drop the diff line leader and expand tabs	$line =~ s/^.//;	$line = expand_tabs($line); 	# Pick the indent from the front of the line.	my ($white) = ($line =~ /^(\s*)/); 	return (length($line), length($white));} my $sanitise_quote = ''; sub sanitise_line_reset {	my ($in_comment) = @_; 	if ($in_comment) {		$sanitise_quote = '*/';	} else {		$sanitise_quote = '';	}}sub sanitise_line {	my ($line) = @_; 	my $res = '';	my $l = ''; 	my $qlen = 0;	my $off = 0;	my $c; 	# Always copy over the diff marker.	$res = substr($line, 0, 1); 	for ($off = 1; $off < length($line); $off++) {		$c = substr($line, $off, 1); 		# Comments we are wacking completly including the begin		# and end, all to $;.		if ($sanitise_quote eq '' && substr($line, $off, 2) eq '/*') {			$sanitise_quote = '*/'; 			substr($res, $off, 2, "$;$;");			$off++;			next;		}		if ($sanitise_quote eq '*/' && substr($line, $off, 2) eq '*/') {			$sanitise_quote = '';			substr($res, $off, 2, "$;$;");			$off++;			next;		}		if ($sanitise_quote eq '' && substr($line, $off, 2) eq '//') {			$sanitise_quote = '//'; 			substr($res, $off, 2, $sanitise_quote);			$off++;			next;		} 		# A \ in a string means ignore the next character.		if (($sanitise_quote eq "'" || $sanitise_quote eq '"') &&		    $c eq "\\") {			substr($res, $off, 2, 'XX');			$off++;			next;		}		# Regular quotes.		if ($c eq "'" || $c eq '"') {			if ($sanitise_quote eq '') {				$sanitise_quote = $c; 				substr($res, $off, 1, $c);				next;			} elsif ($sanitise_quote eq $c) {				$sanitise_quote = '';			}		} 		#print "c<$c> SQ<$sanitise_quote>\n";		if ($off != 0 && $sanitise_quote eq '*/' && $c ne "\t") {			substr($res, $off, 1, $;);		} elsif ($off != 0 && $sanitise_quote eq '//' && $c ne "\t") {			substr($res, $off, 1, $;);		} elsif ($off != 0 && $sanitise_quote && $c ne "\t") {			substr($res, $off, 1, 'X');		} else {			substr($res, $off, 1, $c);		}	} 	if ($sanitise_quote eq '//') {		$sanitise_quote = '';	} 	# The pathname on a #include may be surrounded by '<' and '>'.	if ($res =~ /^.\s*\#\s*include\s+\<(.*)\>/) {		my $clean = 'X' x length($1);		$res =~ s@\<.*\>@<$clean>@; 	# The whole of a #error is a string.	} elsif ($res =~ /^.\s*\#\s*(?:error|warning)\s+(.*)\b/) {		my $clean = 'X' x length($1);		$res =~ s@(\#\s*(?:error|warning)\s+).*@$1$clean@;	} 	return $res;} sub get_quoted_string {	my ($line, $rawline) = @_; 	return "" if ($line !~ m/(\"[X]+\")/g);	return substr($rawline, $-[0], $+[0] - $-[0]);} sub ctx_statement_block {	my ($linenr, $remain, $off) = @_;	my $line = $linenr - 1;	my $blk = '';	my $soff = $off;	my $coff = $off - 1;	my $coff_set = 0; 	my $loff = 0; 	my $type = '';	my $level = 0;	my @stack = ();	my $p;	my $c;	my $len = 0; 	my $remainder;	while (1) {		@stack = (['', 0]) if ($#stack == -1); 		#warn "CSB: blk<$blk> remain<$remain>\n";		# If we are about to drop off the end, pull in more		# context.		if ($off >= $len) {			for (; $remain > 0; $line++) {				last if (!defined $lines[$line]);				next if ($lines[$line] =~ /^-/);				$remain--;				$loff = $len;				$blk .= $lines[$line] . "\n";				$len = length($blk);				$line++;				last;			}			# Bail if there is no further context.			#warn "CSB: blk<$blk> off<$off> len<$len>\n";			if ($off >= $len) {				last;			}			if ($level == 0 && substr($blk, $off) =~ /^.\s*#\s*define/) {				$level++;				$type = '#';			}		}		$p = $c;		$c = substr($blk, $off, 1);		$remainder = substr($blk, $off); 		#warn "CSB: c<$c> type<$type> level<$level> remainder<$remainder> coff_set<$coff_set>\n"; 		# Handle nested #if/#else.		if ($remainder =~ /^#\s*(?:ifndef|ifdef|if)\s/) {			push(@stack, [ $type, $level ]);		} elsif ($remainder =~ /^#\s*(?:else|elif)\b/) {			($type, $level) = @{$stack[$#stack - 1]};		} elsif ($remainder =~ /^#\s*endif\b/) {			($type, $level) = @{pop(@stack)};		} 		# Statement ends at the ';' or a close '}' at the		# outermost level.		if ($level == 0 && $c eq ';') {			last;		} 		# An else is really a conditional as long as its not else if		if ($level == 0 && $coff_set == 0 &&				(!defined($p) || $p =~ /(?:\s|\}|\+)/) &&				$remainder =~ /^(else)(?:\s|{)/ &&				$remainder !~ /^else\s+if\b/) {			$coff = $off + length($1) - 1;			$coff_set = 1;			#warn "CSB: mark coff<$coff> soff<$soff> 1<$1>\n";			#warn "[" . substr($blk, $soff, $coff - $soff + 1) . "]\n";		} 		if (($type eq '' || $type eq '(') && $c eq '(') {			$level++;			$type = '(';		}		if ($type eq '(' && $c eq ')') {

Lines 501–1000 of 5160. Previous lines Load more