Lines Matching refs:tail
371 my ($head, $tail) = (substr($str, 0, $i).$1, $3);
389 $tail =~ m/^([\s@]*)([^\s\@])/;
432 … if $tail =~ m/^([^{]*)/ && $1 =~ m/[^\s\@;]/; # non-space non-';' before any '{'
525 if ((my ($head, $tail) = m|^(.*?)\*/(.*)$|) && $1 ne '/') { # ending comment: '*/'
527 report("no space after '*/'") if $tail =~ m/^[^\s,;)}\]]/; # no space or ,;)}] after '*/'
531 $_ = "$head@@".$tail; # blind the "*/"
542 $_ = blind_nonspace($cmt_text)."@@".$tail;
549 if (my ($head, $opt_minus, $tail) = m|^(.*?)/\*(-?)(.*)$|) { # begin of comment: '/*'
552 … report("neither space nor '*' after '/*' or '/*-'") if $tail =~ m/^[^\s*$self_test_exception]/;
553 my $cmt_text = $opt_minus.$tail; # preliminary
556 } elsif ($tail =~ m|^(.*?)\*/(.*)$|) { # comment end: */ on same line
565 unless $tail =~ m/^$self_test_exception.?\s*$/;
776 …if (my ($head, $before, $tail) = m/^([\s@]*([^{}]*)\})[\s@]*(.*)$/) { # leading closing '}', but p…
778 … report("code after '}'") unless $tail eq "" || $tail =~ m/(else|while|OSSL_TRACE_END)(\W|$)/;
892 my ($head, $mid, $tail) = ($1, $3, $4);
911 …if (my ($head, $mid, $tail) = m/(^|^.*\W)(else|do)(\W.*|$)$/) { # last else/do, where 'do' is pref…
914 …report("code after '$mid'" ) if $tail =~ m/[^\s\@{]/# trailing non-whitespace non-comment non-'{' …
915 … && !($mid eq "else" && $tail =~ m/[\s@]*if(\W|$)/);
930 $keyword_opening_brace = $mid if $tail =~ m/\{/;
962 my $tail = substr($_, $terminator_position + 1);
964 if ($tail =~ m/\s*else(\W|$)/) {
967 } elsif ($tail =~ m/[^\s@]/) { # code (not just comment) follows
973 …} elsif ($tail =~ m/^[\s@]*$/) { # ';' has been trailing, i.e. there is nothing but whitespace and…
1003 if (my ($head, $tail) = m/^(.*)\{(.*)$/) { # match last ... '{'
1020 … report("code after '{'") if $tail=~ m/[^\s\@]/ && # trailing non-whitespace non-comment (non-'\')
1021 !($tail=~ m/\}/); # no '}' after last '{'
1029 …(my ($head, $mid, $tail) = ($contents_before_ =~ m/(^|^.*\W)(if|while|for|switch|do)(\W.*$|$)/))) {
1030 my $brace_after = $tail =~ /^[\s@]*{/; # any whitespace or comments then '{'
1034 elsif (my ($head, $tail) = m/(^|^.*\W)else(\W.*$|$)/) {
1035 … if (parens_balance($tail) == 0 && # avoid false positive due to unfinished expr on current line
1036 !($tail =~ m/{/) && # after 'else' no '{' on same line
1044 if (my ($head, $tail) = m/(^|^.*\W)while(\W.*$|$)/) {
1049 … parens_balance($tail) == 0 && # avoid false positive due to unfinished expr on current line
1050 $tail =~ /;/ && # 'while' terminates loop (by ';')
1058 if (my ($head, $tail) = m/(^|^.*\W)else(\W.*$|$)/) {
1060 my $brace_after = $tail =~ /^[\s@]*if[\s@]*\(.*\)[\s@]*{|[\s@]*{/;
1065 …} elsif (parens_balance($tail) == 0) { # avoid false positive due to unfinished expr on current li…
1068 …} elsif (parens_balance($tail) == 0) { # avoid false positive due to unfinished expr on current li…