Lines Matching refs:ctx
2912 my $ctx = $1;
2913 my ($email_name, $email_comment, $email_address, $comment1) = parse_email($ctx);
2917 $author_sob = $ctx;
2920 $author_sob = $ctx;
2923 $author_sob = $ctx;
4115 my $ctx = $s;
4116 substr($ctx, 0, $name_len + 1, '');
4117 $ctx =~ s/\)[^\)]*$//;
4119 for my $arg (split(/\s*,\s*/, $ctx)) {
4138 my @ctx = ctx_block_outer($linenr, $realcnt);
4139 shift(@ctx);
4140 for my $ctx (@ctx) {
4141 my ($clen, $cindent) = line_stats($ctx);
4142 if ($ctx =~ /^\+\s*(case\s+|default:)/ &&
4144 $err .= "$sep$ctx\n";
4161 my ($level, @ctx) = ctx_statement_level($linenr, $realcnt, 0);
4168 my $ctx_cnt = $realcnt - $#ctx - 1;
4169 my $ctx = join("\n", @ctx);
4183 #print "pre<$pre_ctx>\nline<$line>\nctx<$ctx>\nnext<$lines[$ctx_ln - 1]>\n";
4185 if ($ctx !~ /{\s*/ && defined($lines[$ctx_ln - 1]) && $lines[$ctx_ln - 1] =~ /^\+\s*{/) {
4188 "$here\n$ctx\n$rawlines[$ctx_ln - 1]\n");
4191 $ctx =~ /\)\s*\;\s*$/ &&
4198 "$here\n$ctx\n$rawlines[$ctx_ln - 1]\n");
4891 my $ctx = "$ctx_before$name";
4906 } elsif ($ctx =~ /^.\s*\#\s*elif\s*$/) {
4910 } elsif ($ctx =~ /$Type$/) {
4992 my $ctx = "${a}x${c}";
4994 my $at = "(ctx:$ctx)";
5014 if ($ctx !~ /.x[WEBC]/ &&
5033 if ($ctx =~ /Wx.|.xW/) {
5048 if ($ctx =~ /Wx./) {
5055 if ($ctx !~ /.x[WEC]/ && $cc !~ /^}/) {
5084 if ($ctx !~ /[WEBC]x./ && $ca !~ /(?:\)|!|~|\*|-|\&|\||\+\+|\-\-|\{)$/) {
5096 } elsif ($ctx =~ /.xW/) {
5109 if ($ctx !~ /[WEOBC]x[^W]/ && $ctx !~ /[^W]x[WOBEC]/) {
5116 if ($ctx =~ /Wx[BE]/ ||
5117 ($ctx =~ /Wx./ && $cc =~ /^;/)) {
5124 if ($ctx =~ /ExW/) {
5143 if (defined $fix_elements[$n + 2] && $ctx !~ /[EW]x[EW]/) {
5150 } elsif (!defined $fix_elements[$n + 2] && $ctx !~ /Wx[OE]/) {
5157 } elsif ($ctx =~ /Wx[^WCE]|[^WCE]xW/) {
5171 if ($ctx =~ /Wx./ and $realfile !~ m@.*\.lds\.h$@) {
5180 } elsif ($ctx !~ /[EWC]x[CWE]/) {
5203 $msg_level = \&CHK if (($op eq '?:' || $op eq '?' || $op eq ':') && $ctx =~ /VxV/);
5744 my $ctx = '';
5749 $ctx = $dstat;
5753 $has_flow_statement = 1 if ($ctx =~ /\b(goto|return)\b/);
5754 $has_arg_concat = 1 if ($ctx =~ /\#\#/ && $ctx !~ /\#\#\s*(?:__VA_ARGS__|args)\b/);
5802 #print "REST<$rest> dstat<$dstat> ctx<$ctx>\n";
5804 $ctx =~ s/\n*$//;
5805 my $stmt_cnt = statement_rawlines($ctx);
5822 $ctx !~ /^.\s*#\s*define\s+TRACE_(?:SYSTEM|INCLUDE_FILE|INCLUDE_PATH)\b/)
5879 my $cnt = statement_rawlines($ctx);
5907 my $ctx = '';
5910 $ctx = $dstat;
5919 $ctx =~ s/\n*$//;
5920 my $cnt = statement_rawlines($ctx);
5933 $ctx =~ s/\n*$//;
5934 my $cnt = statement_rawlines($ctx);