Lines Matching refs:comment
1396 my $comment = "";
1401 $comment = $3 if defined $3;
1404 $comment = $2 if defined $2;
1407 $comment = $2 if defined $2;
1421 $comment = "";
1438 $comment = trim($comment);
1445 return ($name, $name_comment, $address, $comment);
1449 my ($name, $name_comment, $address, $comment) = @_;
1464 $comment = trim($comment);
1465 $comment = " $comment" if ($comment ne "");
1472 $formatted_email .= "$comment";
1479 my ($email_name, $name_comment, $email_address, $comment) = parse_email($email);
1480 return format_email($email_name, $name_comment, $email_address, $comment);
2602 my $comment = '';
2606 $comment .= substr($rawline, $i, 1);
2610 return $comment;
3065 my ($email_name, $name_comment, $email_address, $comment) = parse_email($email);
3066 my $suggested_email = format_email(($email_name, $name_comment, $email_address, $comment));
3107 if (($comment ne "" && $comment !~ /^#.+/) ||
3110 my $new_comment = $comment;
3129 } elsif ($comment ne "" && $comment !~ /^(?:#.+|\(.+\))$/) {
3130 my $new_comment = $comment;
3738 my $comment = "";
3740 $comment = '/*';
3742 $comment = '//';
3744 $comment = '#';
3746 $comment = '..';
3752 $rawline !~ m@^\+\s*\Q$comment\E\s*@) {
3754 … "Improper SPDX comment style for '$realfile', please use '$comment' instead\n" . $herecurr);
3757 if ($comment !~ /^$/ &&
3758 $rawline !~ m@^\+\Q$comment\E SPDX-License-Identifier: @) {
4583 my $comment = trim($1);
4584 $fixed[$fixlinenr] =~ s@\/\/(.*)$@/\* $comment \*/@;