Lines Matching refs:comment
1365 my $comment = "";
1370 $comment = $3 if defined $3;
1373 $comment = $2 if defined $2;
1376 $comment = $2 if defined $2;
1390 $comment = "";
1407 $comment = trim($comment);
1414 return ($name, $name_comment, $address, $comment);
1418 my ($name, $name_comment, $address, $comment) = @_;
1433 $comment = trim($comment);
1434 $comment = " $comment" if ($comment ne "");
1441 $formatted_email .= "$comment";
1448 my ($email_name, $name_comment, $email_address, $comment) = parse_email($email);
1449 return format_email($email_name, $name_comment, $email_address, $comment);
2571 my $comment = '';
2575 $comment .= substr($rawline, $i, 1);
2579 return $comment;
3034 my ($email_name, $name_comment, $email_address, $comment) = parse_email($email);
3035 my $suggested_email = format_email(($email_name, $name_comment, $email_address, $comment));
3076 if (($comment ne "" && $comment !~ /^#.+/) ||
3079 my $new_comment = $comment;
3098 } elsif ($comment ne "" && $comment !~ /^(?:#.+|\(.+\))$/) {
3099 my $new_comment = $comment;
3666 my $comment = "";
3668 $comment = '/*';
3670 $comment = '//';
3672 $comment = '#';
3674 $comment = '..';
3680 $rawline !~ m@^\+\s*\Q$comment\E\s*@) {
3682 … "Improper SPDX comment style for '$realfile', please use '$comment' instead\n" . $herecurr);
3685 if ($comment !~ /^$/ &&
3686 $rawline !~ m@^\+\Q$comment\E SPDX-License-Identifier: @) {
4506 my $comment = trim($1);
4507 $fixed[$fixlinenr] =~ s@\/\/(.*)$@/\* $comment \*/@;