Lines Matching refs:comment
1401 my $comment = "";
1406 $comment = $3 if defined $3;
1409 $comment = $2 if defined $2;
1412 $comment = $2 if defined $2;
1426 $comment = "";
1443 $comment = trim($comment);
1450 return ($name, $name_comment, $address, $comment);
1454 my ($name, $name_comment, $address, $comment) = @_;
1469 $comment = trim($comment);
1470 $comment = " $comment" if ($comment ne "");
1477 $formatted_email .= "$comment";
1484 my ($email_name, $name_comment, $email_address, $comment) = parse_email($email);
1485 return format_email($email_name, $name_comment, $email_address, $comment);
2607 my $comment = '';
2611 $comment .= substr($rawline, $i, 1);
2615 return $comment;
3073 my ($email_name, $name_comment, $email_address, $comment) = parse_email($email);
3074 my $suggested_email = format_email(($email_name, $name_comment, $email_address, $comment));
3115 if (($comment ne "" && $comment !~ /^#.+/) ||
3118 my $new_comment = $comment;
3137 } elsif ($comment ne "" && $comment !~ /^(?:#.+|\(.+\))$/) {
3138 my $new_comment = $comment;
3757 my $comment = "";
3759 $comment = '/*';
3761 $comment = '//';
3763 $comment = '#';
3765 $comment = '..';
3771 $rawline !~ m@^\+\s*\Q$comment\E\s*@) {
3773 … "Improper SPDX comment style for '$realfile', please use '$comment' instead\n" . $herecurr);
3776 if ($comment !~ /^$/ &&
3777 $rawline !~ m@^\+\Q$comment\E SPDX-License-Identifier: @) {
4592 my $comment = trim($1);
4593 $fixed[$fixlinenr] =~ s@\/\/(.*)$@/\* $comment \*/@;