Lines Matching refs:comment
197 my ($note1, $format, $comment, $note2) = @$caseElement;
216 my @comment = split(/\s*:\s*/, $comment);
224 @comment);
343 my ($note1, $format, $comment, $note2) = @$caseElement;
362 my @comment = split(/\s*:\s*/, $comment);
369 @comment);
544 # expanded to their printable form and also paired with a comment if
550 my @comment = @_;
554 my ($token, $comment);
557 if ($arg =~ s/(\D*)(\d+)$/$1/) { # trailing digits select a comment
570 unless(defined($comment[$cmt])) {
572 "missing comment for %s %s token %d\n");
575 $comment = gettext('missing comment field');
577 $comment = $comment[$cmt];
578 $comment =~ s/:/:/g; #':' is a delimiter
581 $comment = '';
583 unless (defined($token) && defined($comment)) {
584 my $errString = gettext("attribute format/comment error for %s\n");
587 return ($token, $comment);