Lines Matching refs:comment
1421 my $comment = "";
1426 $comment = $3 if defined $3;
1429 $comment = $2 if defined $2;
1432 $comment = $2 if defined $2;
1446 $comment = "";
1463 $comment = trim($comment);
1470 return ($name, $name_comment, $address, $comment);
1474 my ($name, $name_comment, $address, $comment) = @_;
1489 $comment = trim($comment);
1490 $comment = " $comment" if ($comment ne "");
1497 $formatted_email .= "$comment";
1504 my ($email_name, $name_comment, $email_address, $comment) = parse_email($email);
1505 return format_email($email_name, $name_comment, $email_address, $comment);
1982 # If c99 comment on the current line, or the line before or after
1990 # Catch a comment on the end of the line itself.
1995 # comment.
2627 my $comment = '';
2631 $comment .= substr($rawline, $i, 1);
2635 return $comment;
2753 # Guestimate if this is a continuing comment. Run
2754 # the context looking for a comment "edge". If this
2755 # edge is a close comment then we must be in a comment
2775 # Guestimate if this is a continuing comment. If this
2777 # ' *' then it is very likely a comment.
3108 my ($email_name, $name_comment, $email_address, $comment) = parse_email($email);
3109 my $suggested_email = format_email(($email_name, $name_comment, $email_address, $comment));
3138 # Only one name comment should be allowed
3142 "Use a single name comment in email: '$email'\n" . $herecurr);
3150 if (($comment ne "" && $comment !~ /^#.+/) ||
3153 my $new_comment = $comment;
3156 # Remove brackets enclosing comment text
3157 # and # from start of comments to get comment text
3172 } elsif ($comment ne "" && $comment !~ /^(?:#.+|\(.+\))$/) {
3173 my $new_comment = $comment;
3175 # Extract comment text from within brackets or
3181 $new_comment =~ s/^[^\w]$//; # Single lettered comment with non word character is usually a typo
3606 # if it's a repeated word on consecutive lines in a comment block
3784 "$prop $mode without comment -- delays on the PCB should be described, otherwise use \"rgmii-id\"\n" . $herecurr);
3793 my $comment = "";
3795 $comment = '/*';
3797 $comment = '//';
3799 $comment = '#';
3801 $comment = '..';
3804 # check SPDX comment style for .[chsS] files
3807 $rawline !~ m@^\+\s*\Q$comment\E\s*@) {
3809 "Improper SPDX comment style for '$realfile', please use '$comment' instead\n" . $herecurr);
3812 if ($comment !~ /^$/ &&
3813 $rawline !~ m@^\+\Q$comment\E SPDX-License-Identifier: @) {
3868 # LONG_LINE_COMMENT a comment starts before but extends beyond $max_line_length
3897 # URL ($rawline is used in case the URL is in a comment)
3903 # a comment starts before $max_line_length
3986 # insert logical operator at last non-comment, non-whitepsace char on previous line
4055 if ($prevline =~ /$;[ \t]*$/ && #ends in comment
4073 # Block comment * alignment
4074 if ($prevline =~ /$;[ \t]*$/ && #ends in comment
4075 $line =~ /^\+[ \t]*$;/ && #leading comment
4628 my $comment = trim($1);
4629 $fixed[$fixlinenr] =~ s@\/\/(.*)$@/\* $comment \*/@;
5221 # // is a comment
6055 # Make $define_stmt single line, comment-free, etc
6687 # check for spinlock_t definitions without a comment.
6693 "$1 definition without comment\n" . $herecurr);
6696 # check for memory barriers without a comment.
6720 "memory barrier without comment\n" . $herecurr);
6734 # check for waitqueue_active without a comment.
6738 "waitqueue_active without comment\n" . $herecurr);
6742 # check for data_race without a comment.
6746 "data_race without comment\n" . $herecurr);
6750 # check for context_unsafe without a comment.
6754 "context_unsafe without comment\n" . $herecurr);
7391 # check for /* fallthrough */ like comment, prefer fallthrough;
7407 "Prefer 'fallthrough;' over fallthrough comment\n" . $herecurr);