Lines Matching refs:c
349 for my $c (split(//, $str)) {
350 if ($c eq "\t") {
358 $res .= $c;
401 my $c;
407 $c = substr($line, $off, 1);
434 $c eq "\\") {
440 if ($c eq "'" || $c eq '"') {
442 $sanitise_quote = $c;
444 substr($res, $off, 1, $c);
446 } elsif ($sanitise_quote eq $c) {
452 if ($off != 0 && $sanitise_quote eq '*/' && $c ne "\t") {
454 } elsif ($off != 0 && $sanitise_quote eq '//' && $c ne "\t") {
456 } elsif ($off != 0 && $sanitise_quote && $c ne "\t") {
459 substr($res, $off, 1, $c);
495 my $c;
522 $p = $c;
523 $c = substr($blk, $off, 1);
539 if ($level == 0 && $c eq ';') {
554 if (($type eq '' || $type eq '(') && $c eq '(') {
558 if ($type eq '(' && $c eq ')') {
568 if (($type eq '' || $type eq '{') && $c eq '{') {
572 if ($type eq '{' && $c eq '}') {
682 my @c;
702 foreach my $c (split(//, $lines[$line])) {
709 if ($c eq $close && $level > 0) {
712 } elsif ($c eq $open) {
821 $coded = sprintf("^%c", unpack('C', $2) + 64);
1671 my ($s, $c) = ($stat, $cond);
1673 substr($s, 0, length($c), '');
1681 my @newlines = ($c =~ /\n/gs);
2070 my $c = '';
2072 $c = 'V' if ($elements[$n + 2] ne '');
2073 $c = 'W' if ($elements[$n + 2] =~ /^\s/);
2074 $c = 'C' if ($elements[$n + 2] =~ /^$;/);
2075 $c = 'B' if ($elements[$n + 2] =~ /^(\)|\]|;)/);
2076 $c = 'O' if ($elements[$n + 2] eq '');
2077 $c = 'E' if ($elements[$n + 2] =~ /^\s*\\$/);
2079 $c = 'E';
2082 my $ctx = "${a}x${c}";
2320 my ($s, $c) = ($stat, $cond);
2322 if ($c =~ /\bif\s*\(.*[^<>!=]=[^=].*/s) {
2328 substr($s, 0, length($c), '');
2331 if (length($c) && $s !~ /^\s*{?\s*\\*\s*$/ &&
2332 $c !~ /}\s*while\s*/)
2335 my @newlines = ($c =~ /\n/gs);
2396 my ($s, $c) = ctx_statement_block($linenr, $realcnt, 0);
2400 substr($s, 0, length($c), '');