Lines Matching refs:in_comment

137 my $in_comment;            # number of lines so far within multi-line comment, 0 if no comment, < 0…
200 $in_comment = 0;
371 if ($in_comment != 0 && $in_comment != 1) { # in multi-line comment but not on its first line
373 if ($in_comment > 0) { # not at its end
377 my $tweak = $in_comment == -2 ? 1 : 0;
383 if ($in_comment < 0 && !$leading_comment) {
387 return if $in_comment > 0; # not on its last line
393 …if (($in_comment == 0 || $in_comment == 1) # no comment, intra-line comment, or begin of multi-lin…
400 …if (($in_comment == 0 || $in_comment < 0) # (no comment,) intra-line comment or end of multi-line …
412 report("intra-line comment indent = $count != $ref_indent") if $in_comment == 0;
413 report("multi-line comment indent = $count != $ref_indent") if $in_comment < 0;
597 if ($in_comment > 0) { # this still includes the last line of multi-line comment
604 $in_comment++;
612 if ($in_comment == 0) {
617 $in_comment = -1; # indicate that multi-line comment ends on current line
622 … $in_comment = -2; # indicate that multi-line comment ends on current line, with tweak
637 if ($in_comment > 0) {
653 $in_comment = 1;
660 if ($in_comment > 1) { # still inside multi-line comment (not at its begin or end)
728 …my $in_multiline_comment = ($in_comment > 1 || $in_comment < 0); # $in_multiline_comment refers to…
733 $in_comment != 0 ? " in multi-line comment"
738 … $in_comment != 0 ? "@" : ""; # '@' will match the blinded leading '*' in multi-line comment
945 $in_comment == 0 && !m/^\s*\*?@/ && # not in a multi-line or intra-line comment
959 || $in_comment != 0 || m/^\s*\*?@/; # in multi-line comment or an intra-line comment
963 $in_comment = 0 if $in_comment < 0; # multi-line comment has ended
1200 if ($in_comment == 0 && $trailing_backslash) {
1216 $in_comment == 0 && !m/^\s*\*?@/; # not in a multi-line comment nor in an intra-line comment