Lines Matching refs:comment
1363 my $comment = "";
1368 $comment = $3 if defined $3;
1371 $comment = $2 if defined $2;
1374 $comment = $2 if defined $2;
1388 $comment = "";
1405 $comment = trim($comment);
1412 return ($name, $name_comment, $address, $comment);
1416 my ($name, $name_comment, $address, $comment) = @_;
1431 $comment = trim($comment);
1432 $comment = " $comment" if ($comment ne "");
1439 $formatted_email .= "$comment";
1446 my ($email_name, $name_comment, $email_address, $comment) = parse_email($email);
1447 return format_email($email_name, $name_comment, $email_address, $comment);
2569 my $comment = '';
2573 $comment .= substr($rawline, $i, 1);
2577 return $comment;
3143 my ($email_name, $name_comment, $email_address, $comment) = parse_email($email);
3144 my $suggested_email = format_email(($email_name, $name_comment, $email_address, $comment));
3185 if (($comment ne "" && $comment !~ /^#.+/) ||
3188 my $new_comment = $comment;
3207 } elsif ($comment ne "" && $comment !~ /^(?:#.+|\(.+\))$/) {
3208 my $new_comment = $comment;
3731 my $comment = "";
3733 $comment = '/*';
3735 $comment = '//';
3737 $comment = '#';
3739 $comment = '..';
3745 $rawline !~ m@^\+\s*\Q$comment\E\s*@) {
3747 … "Improper SPDX comment style for '$realfile', please use '$comment' instead\n" . $herecurr);
3750 if ($comment !~ /^$/ &&
3751 $rawline !~ m@^\+\Q$comment\E SPDX-License-Identifier: @) {
4575 my $comment = trim($1);
4576 $fixed[$fixlinenr] =~ s@\/\/(.*)$@/\* $comment \*/@;