Lines Matching refs:comment
1392 my $comment = "";
1397 $comment = $3 if defined $3;
1400 $comment = $2 if defined $2;
1403 $comment = $2 if defined $2;
1417 $comment = "";
1434 $comment = trim($comment);
1441 return ($name, $name_comment, $address, $comment);
1445 my ($name, $name_comment, $address, $comment) = @_;
1460 $comment = trim($comment);
1461 $comment = " $comment" if ($comment ne "");
1468 $formatted_email .= "$comment";
1475 my ($email_name, $name_comment, $email_address, $comment) = parse_email($email);
1476 return format_email($email_name, $name_comment, $email_address, $comment);
2598 my $comment = '';
2602 $comment .= substr($rawline, $i, 1);
2606 return $comment;
3064 my ($email_name, $name_comment, $email_address, $comment) = parse_email($email);
3065 my $suggested_email = format_email(($email_name, $name_comment, $email_address, $comment));
3106 if (($comment ne "" && $comment !~ /^#.+/) ||
3109 my $new_comment = $comment;
3128 } elsif ($comment ne "" && $comment !~ /^(?:#.+|\(.+\))$/) {
3129 my $new_comment = $comment;
3729 my $comment = "";
3731 $comment = '/*';
3733 $comment = '//';
3735 $comment = '#';
3737 $comment = '..';
3743 $rawline !~ m@^\+\s*\Q$comment\E\s*@) {
3745 … "Improper SPDX comment style for '$realfile', please use '$comment' instead\n" . $herecurr);
3748 if ($comment !~ /^$/ &&
3749 $rawline !~ m@^\+\Q$comment\E SPDX-License-Identifier: @) {
4564 my $comment = trim($1);
4565 $fixed[$fixlinenr] =~ s@\/\/(.*)$@/\* $comment \*/@;