Lines Matching refs:c

284 	for my $c (split(//, $str)) {
285 		if ($c eq "\t") {
293 		$res .= $c;
336 	my $c;
342 		$c = substr($line, $off, 1);
362 		    $c eq "\\") {
368 		if ($c eq "'" || $c eq '"') {
370 				$sanitise_quote = $c;
372 				substr($res, $off, 1, $c);
374 			} elsif ($sanitise_quote eq $c) {
380 		if ($off != 0 && $sanitise_quote eq '*/' && $c ne "\t") {
382 		} elsif ($off != 0 && $sanitise_quote && $c ne "\t") {
385 			substr($res, $off, 1, $c);
417 	my $c;
444 		$p = $c;
445 		$c = substr($blk, $off, 1);
461 		if ($level == 0 && $c eq ';') {
476 		if (($type eq '' || $type eq '(') && $c eq '(') {
480 		if ($type eq '(' && $c eq ')') {
490 		if (($type eq '' || $type eq '{') && $c eq '{') {
494 		if ($type eq '{' && $c eq '}') {
601 	my @c;
621 		foreach my $c (split(//, $rawlines[$line])) {
628 			if ($c eq $close && $level > 0) {
631 			} elsif ($c eq $open) {
740 			$coded = sprintf("^%c", unpack('C', $2) + 64);
1478 			my ($s, $c) = ($stat, $cond);
1480 			substr($s, 0, length($c), '');
1488 			my @newlines = ($c =~ /\n/gs);
1821 				my $c = '';
1823 					$c = 'V' if ($elements[$n + 2] ne '');
1824 					$c = 'W' if ($elements[$n + 2] =~ /^\s/);
1825 					$c = 'C' if ($elements[$n + 2] =~ /^$;/);
1826 					$c = 'B' if ($elements[$n + 2] =~ /^(\)|\]|;)/);
1827 					$c = 'O' if ($elements[$n + 2] eq '');
1828 					$c = 'E' if ($elements[$n + 2] =~ /^\s*\\$/);
1830 					$c = 'E';
1833 				my $ctx = "${a}x${c}";
2063 			my ($s, $c) = ($stat, $cond);
2065 			if ($c =~ /\bif\s*\(.*[^<>!=]=[^=].*/s) {
2071 			substr($s, 0, length($c), '');
2074 			if (length($c) && $s !~ /^\s*{?\s*\\*\s*$/ &&
2075 			    $c !~ /}\s*while\s*/)
2078 				my @newlines = ($c =~ /\n/gs);
2137 			my ($s, $c) = ctx_statement_block($linenr, $realcnt, 0);
2141 			substr($s, 0, length($c), '');