Lines Matching refs:comment
45 defined ($new = <$file>) || die "Unmatched comment in $ARGV";
95 (?:[^,/]|/(?!\*))* # anything but a comma or comment
148 print " --comments <text> Comment structure\n";
175 my $comment_tmpl = "/* \@comment\@ */";
186 'comment', $comment_tmpl);
217 $comment_tmpl = $tmpl{'comment'};
241 # put auto-generation comment
243 my $comment = $comment_tmpl;
244 $comment =~ s/\@comment\@/Generated data (by glib-mkenums)/;
245 print "\n" . $comment . "\n\n";
268 defined ($new = <>) || die "Unmatched comment in $ARGV";
497 # put auto-generation comment
499 my $comment = $comment_tmpl;
500 $comment =~ s/\@comment\@/Generated data ends here/;
501 print "\n" . $comment . "\n\n";
