Lines Matching refs:head
452 my ($head, $tail) = (substr($str, 0, $i).$1, $3);
463 $hanging_offset -= INDENT_LEVEL if $hanging_offset > 0 && $head =~ m/[^\s\@]/;
484 # $head =~ m/^([\s@]*)(case\W.*$|\w+$)/ || # this matching would not work for
598 my ($head, $any_symbol, $cmt_text) = m/^(\s*)(.?)(.*)$/;
608 if ((my ($head, $tail) = m|^(.*?)\*/(.*)$|) && $1 ne '/') { # ending comment: '*/'
609 report("missing space or '*' before '*/'") if $head =~ m/[^*\s]$/;
611 if (!($head =~ m|/\*|)) { # not begin of comment '/*', which is is handled below
614 $_ = "$head@@".$tail; # blind the "*/"
616 report("text before '*/' in multi-line comment") if ($head =~ m/[^*\s]/); # non-SPC before '*/'
620 $head =~ s/^(\s*)\s/$1@/; # replace the last leading space by '@'
624 my $cmt_text = $head;
632 if (my ($head, $opt_minus, $tail) = m|^(.*?)/\*(-?)(.*)$|) { # begin of comment: '/*'
634 if $head =~ m/[^\s(\*]$/; # not space, '(', or or '*' (needed to allow '*/') before comment delimiter
643 $_ = "$head@@".blind_nonspace($cmt_text)."@@".$rest;
651 $comment_indent = length($head) + 1;
652 $_ = "$head@@".blind_nonspace($cmt_text);
654 $leading_comment = $head =~ m/^\s*$/; # there is code before beginning delimiter
657 } elsif (($head, $tail) = m|^\{-(.*)$|) { # begin of Perl pragma: '{-'
684 if (my ($head, $cmt_text) = m|^(.*?)//(.*$)|) {
687 $_ = "$head@@".blind_nonspace($cmt_text);
744 my ($head , $intra_line ) = split_line_head($_);
750 my $head = shift; # leading spaces and the first non-space char
754 my $offset = length($head);
768 && ! column_alignments_only($head , $intra_line , $contents_before_ ) ; # compare w/ $line_before
773 $intra_line =~ s/^(include\s*)(".*?"|<.*?>)/$1/e if $head =~ m/#/;
848 my $head = $1;
849 update_nested_indents($head);
850 $nested_indents_position = length($head);
882 if (my ($head, $before, $tail) = m/^([\s@]*([^{}]*)\})[\s@]*(.*)$/) { # leading closing '}', but possibly
897 update_nested_indents($head);
898 $nested_indents_position = length($head);
1015 my ($head, $mid, $tail) = ($1, $3, $4);
1020 # already handle $head, i.e., anything before expression
1021 update_nested_indents($head, $nested_indents_position);
1022 $nested_indents_position = length($head);
1034 if (my ($head, $mid, $tail) = m/(^|^.*\W)(else|do)(\W.*|$)$/) { # last else/do, where 'do' is preferred, but not #else
1035 my $code_before = $head =~ m/[^\s\@}]/; # leading non-whitespace non-comment non-'}'
1040 if ($head =~ m/(^|^.*\W)(else)(\W.*$|$)/) { # 'else' ... 'do'
1043 if ($head =~ m/;/) { # terminator ';' ... 'do'
1050 $hanging_offset = length($head) - $block_indent;
1126 if (my ($head, $tail) = m/^(.*)\{(.*)$/) { # match last ... '{'
1131 report("'{' not at line start") if length($head) != $preproc_offset && $head =~ m/\)\s*/; # at end of function definition header
1152 (my ($head, $mid, $tail) = ($contents_before_ =~ m/(^|^.*\W)(if|while|for|switch|do)(\W.*$|$)/))) {
1157 elsif (my ($head, $tail) = m/(^|^.*\W)else(\W.*$|$)/) {
1160 !($head =~ m/}[\s@]*$/) && # not: '}' then any whitespace or comments before 'else'
1167 if (my ($head, $tail) = m/(^|^.*\W)while(\W.*$|$)/) {
1168 my $brace_before = $head =~ m/}[\s@]*$/; # '}' then any whitespace or comments
1181 if (my ($head, $tail) = m/(^|^.*\W)else(\W.*$|$)/) {
1182 my $brace_before = $head =~ /}[\s@]*$/; # '}' then any whitespace or comments