build/scripts/checkpatch.pl

400 	my $off = 0;
406 	for ($off = 1; $off < length($line); $off++) {
407 		$c = substr($line, $off, 1);
411 		if ($sanitise_quote eq '' && substr($line, $off, 2) eq '/*') {
414 			substr($res, $off, 2, "$;$;");
415 			$off++;
418 		if ($sanitise_quote eq '*/' && substr($line, $off, 2) eq '*/') {
420 			substr($res, $off, 2, "$;$;");
421 			$off++;
424 		if ($sanitise_quote eq '' && substr($line, $off, 2) eq '//') {
427 			substr($res, $off, 2, $sanitise_quote);
428 			$off++;
435 			substr($res, $off, 2, 'XX');
436 			$off++;
444 				substr($res, $off, 1, $c);
452 		if ($off != 0 && $sanitise_quote eq '*/' && $c ne "\t") {
453 			substr($res, $off, 1, $;);
454 		} elsif ($off != 0 && $sanitise_quote eq '//' && $c ne "\t") {
455 			substr($res, $off, 1, $;);
456 		} elsif ($off != 0 && $sanitise_quote && $c ne "\t") {
457 			substr($res, $off, 1, 'X');
459 			substr($res, $off, 1, $c);
482 	my ($linenr, $remain, $off) = @_;
485 	my $soff = $off;
486 	my $coff = $off - 1;
505 		if ($off >= $len) {
518 			if ($off >= $len) {
523 		$c = substr($blk, $off, 1);
524 		$remainder = substr($blk, $off);
548 			$coff = $off + length($1) - 1;
563 				$coff = $off;
577 				if (substr($blk, $off + 1, 1) eq ';') {
578 					$off++;
583 		$off++;
586 	if ($off == $len) {
592 	my $statement = substr($blk, $soff, $off - $soff + 1);
601 			$line, $remain + 1, $off - $loff + 1, $level);
648 	my ($linenr, $remain, $off) = @_;
654 	($statement, $condition, $linenr, $remain, $off, $level) =
655 				ctx_statement_block($linenr, $remain, $off);
665 		($statement, $condition, $linenr, $remain, $off, $level) =
666 				ctx_statement_block($linenr, $remain, $off);
677 	my ($linenr, $remain, $outer, $open, $close, $off) = @_;
704 			if ($off > 0) {
705 				$off--;
739 	my ($linenr, $remain, $off) = @_;
741 	my ($level, @r) = ctx_block_get($linenr, $remain, 0, '(', ')', $off);
750 	my ($linenr, $remain, $off) = @_;
752 	return ctx_block_get($linenr, $remain, 0, '(', ')', $off);
2045 			my $off = 0;
2050 				$off += length($elements[$n]);
2053 				my $ca = substr($opline, 0, $off);
2055 				if (length($opline) >= ($off + length($elements[$n + 1]))) {
2056 					$cc = substr($opline, $off + length($elements[$n + 1]));
2086 				my $ptr = substr($blank, 0, $off) . "^";
2090 				my $op_type = substr($curr_values, $off + 1, 1);
2093 				my $opv = $op . substr($curr_vars, $off, 1);
2202 				$off += length($elements[$n + 1]);
2443 			my ($off, $dstat, $dcond, $rest);
2459 			($dstat, $dcond, $ln, $cnt, $off) =
2467 			while ($off != 0 || ($cnt > 0 && $rest =~ /\\\s*$/)) {
2469 				if ($off != 0 || $lines[$ln - 1] !~ /^-/) {
2470 					$rest .= substr($lines[$ln - 1], $off) . "\n";
2474 				$off = 0;