Lines Matching refs:comment
1358 my $comment = "";
1363 $comment = $3 if defined $3;
1366 $comment = $2 if defined $2;
1369 $comment = $2 if defined $2;
1383 $comment = "";
1400 $comment = trim($comment);
1407 return ($name, $name_comment, $address, $comment);
1411 my ($name, $name_comment, $address, $comment) = @_;
1426 $comment = trim($comment);
1427 $comment = " $comment" if ($comment ne "");
1434 $formatted_email .= "$comment";
1441 my ($email_name, $name_comment, $email_address, $comment) = parse_email($email);
1442 return format_email($email_name, $name_comment, $email_address, $comment);
2564 my $comment = '';
2568 $comment .= substr($rawline, $i, 1);
2572 return $comment;
3027 my ($email_name, $name_comment, $email_address, $comment) = parse_email($email);
3028 my $suggested_email = format_email(($email_name, $name_comment, $email_address, $comment));
3069 if (($comment ne "" && $comment !~ /^#.+/) ||
3072 my $new_comment = $comment;
3091 } elsif ($comment ne "" && $comment !~ /^(?:#.+|\(.+\))$/) {
3092 my $new_comment = $comment;
3615 my $comment = "";
3617 $comment = '/*';
3619 $comment = '//';
3621 $comment = '#';
3623 $comment = '..';
3629 $rawline !~ m@^\+\s*\Q$comment\E\s*@) {
3631 … "Improper SPDX comment style for '$realfile', please use '$comment' instead\n" . $herecurr);
3634 if ($comment !~ /^$/ &&
3635 $rawline !~ m@^\+\Q$comment\E SPDX-License-Identifier: @) {
4455 my $comment = trim($1);
4456 $fixed[$fixlinenr] =~ s@\/\/(.*)$@/\* $comment \*/@;