Lines Matching refs:head
453 my ($head, $tail) = (substr($str, 0, $i).$1, $3);
464 $hanging_offset -= INDENT_LEVEL if $hanging_offset > 0 && $head =~ m/[^\s\@]/;
599 my ($head, $any_symbol, $cmt_text) = m/^(\s*)(.?)(.*)$/;
609 if ((my ($head, $tail) = m|^(.*?)\*/(.*)$|) && $1 ne '/') { # ending comment: '*/'
610 report("missing space or '*' before '*/'") if $head =~ m/[^*\s]$/;
612 if (!($head =~ m|/\*|)) { # not begin of comment '/*', which is is handled below
615 $_ = "$head@@".$tail; # blind the "*/"
617 … report("text before '*/' in multi-line comment") if ($head =~ m/[^*\s]/); # non-SPC before '*/'
621 $head =~ s/^(\s*)\s/$1@/; # replace the last leading space by '@'
625 my $cmt_text = $head;
633 if (my ($head, $opt_minus, $tail) = m|^(.*?)/\*(-?)(.*)$|) { # begin of comment: '/*'
635 …if $head =~ m/[^\s(\*]$/; # not space, '(', or or '*' (needed to allow '*/') before comment delimi…
644 $_ = "$head@@".blind_nonspace($cmt_text)."@@".$rest;
652 $comment_indent = length($head) + 1;
653 $_ = "$head@@".blind_nonspace($cmt_text);
655 $leading_comment = $head =~ m/^\s*$/; # there is code before beginning delimiter
658 } elsif (($head, $tail) = m|^\{-(.*)$|) { # begin of Perl pragma: '{-'
685 if (my ($head, $cmt_text) = m|^(.*?)//(.*$)|) {
688 $_ = "$head@@".blind_nonspace($cmt_text);
745 my ($head , $intra_line ) = split_line_head($_);
751 my $head = shift; # leading spaces and the first non-space char
755 my $offset = length($head);
769 … && ! column_alignments_only($head , $intra_line , $contents_before_ ) ; # compare w/ $line_before
774 $intra_line =~ s/^(include\s*)(".*?"|<.*?>)/$1/e if $head =~ m/#/;
849 my $head = $1;
850 update_nested_indents($head);
851 $nested_indents_position = length($head);
883 …if (my ($head, $before, $tail) = m/^([\s@]*([^{}]*)\})[\s@]*(.*)$/) { # leading closing '}', but p…
898 update_nested_indents($head);
899 $nested_indents_position = length($head);
1019 my ($head, $mid, $tail) = ($1, $3, $4);
1025 update_nested_indents($head, $nested_indents_position);
1026 $nested_indents_position = length($head);
1038 …if (my ($head, $mid, $tail) = m/(^|^.*\W)(else|do)(\W.*|$)$/) { # last else/do, where 'do' is pref…
1039 my $code_before = $head =~ m/[^\s\@}]/; # leading non-whitespace non-comment non-'}'
1044 if ($head =~ m/(^|^.*\W)(else)(\W.*$|$)/) { # 'else' ... 'do'
1047 if ($head =~ m/;/) { # terminator ';' ... 'do'
1054 $hanging_offset = length($head) - $block_indent;
1130 if (my ($head, $tail) = m/^(.*)\{(.*)$/) { # match last ... '{'
1135 …report("'{' not at line start") if length($head) != $preproc_offset && $head =~ m/\)\s*/; # at end…
1156 …(my ($head, $mid, $tail) = ($contents_before_ =~ m/(^|^.*\W)(if|while|for|(OSSL_)?LIST_FOREACH(_\w…
1161 elsif (my ($head, $tail) = m/(^|^.*\W)else(\W.*$|$)/) {
1164 !($head =~ m/}[\s@]*$/) && # not: '}' then any whitespace or comments before 'else'
1171 if (my ($head, $tail) = m/(^|^.*\W)while(\W.*$|$)/) {
1172 my $brace_before = $head =~ m/}[\s@]*$/; # '}' then any whitespace or comments
1185 if (my ($head, $tail) = m/(^|^.*\W)else(\W.*$|$)/) {
1186 my $brace_before = $head =~ /}[\s@]*$/; # '}' then any whitespace or comments
