Lines Matching refs:ctx
1590 my $ctx = $s;
1591 substr($ctx, 0, $name_len + 1, '');
1592 $ctx =~ s/\)[^\)]*$//;
1594 for my $arg (split(/\s*,\s*/, $ctx)) {
1613 my @ctx = ctx_block_outer($linenr, $realcnt);
1614 shift(@ctx);
1615 for my $ctx (@ctx) {
1616 my ($clen, $cindent) = line_stats($ctx);
1617 if ($ctx =~ /^\+\s*(case\s+|default:)/ &&
1619 $err .= "$sep$ctx\n";
1635 my ($level, @ctx) = ctx_statement_level($linenr, $realcnt, 0);
1636 my $ctx_cnt = $realcnt - $#ctx - 1;
1637 my $ctx = join("\n", @ctx);
1653 if ($ctx !~ /{\s*/ && defined($lines[$ctx_ln -1]) && $lines[$ctx_ln - 1] =~ /^\+\s*{/) {
1655 "$here\n$ctx\n$rawlines[$ctx_ln - 1]\n");
1658 $ctx =~ /\)\s*\;\s*$/ &&
1664 "$here\n$ctx\n$rawlines[$ctx_ln - 1]\n");
2009 my $ctx = "$ctx_before$name";
2025 } elsif ($ctx =~ /^.\s*\#\s*elif\s*$/) {
2029 } elsif ($ctx =~ /$Type$/) {
2082 my $ctx = "${a}x${c}";
2084 my $at = "(ctx:$ctx)";
2104 if ($ctx !~ /.x[WEBC]/ &&
2116 if ($ctx =~ /Wx.|.xW/) {
2122 if ($ctx !~ /.x[WEC]/ && $cc !~ /^}/) {
2136 if ($ctx !~ /[WEBC]x./ && $ca !~ /(?:\)|!|~|\*|-|\&|\||\+\+|\-\-|\{)$/) {
2142 } elsif ($ctx =~ /.xW/) {
2148 if ($ctx !~ /[WEOBC]x[^W]/ && $ctx !~ /[^W]x[WOBEC]/) {
2151 if ($ctx =~ /Wx[BE]/ ||
2152 ($ctx =~ /Wx./ && $cc =~ /^;/)) {
2155 if ($ctx =~ /ExW/) {
2167 if ($ctx =~ /Wx[^WCE]|[^WCE]xW/) {
2175 if ($ctx =~ /Wx./) {
2180 } elsif ($ctx !~ /[EWC]x[CWE]/) {
2444 my $ctx = '';
2453 $ctx .= $rawlines[$ln - 1] . "\n";
2457 $ctx .= $rawlines[$ln - 1];
2515 …ROR("Macros with multiple statements should be enclosed in a do - while loop\n" . "$here\n$ctx\n");
2518 } elsif ($ctx !~ /;/) {
2525 ERROR("Macros with complex values should be enclosed in parenthesis\n" . "$here\n$ctx\n");