-EOT
- for my $opt (@options) {
- printf("%-29s ", $opt->[0]);
- print 'texinfo ' unless $opt->[1];
- print 'nor ' unless $opt->[1] or $opt->[2];
- print '--help ' unless $opt->[2];
- print "\n";
+.
+
+format STDOUT =
+@<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<
+$opt->{name}, $not_found_in
+.
+ foreach $opt (@options) {
+ $not_found_in = join ' ', (
+ ! $opt->{tex} ? 'texinfo' : (),
+ !($opt->{tex} || $opt->{main}) ? 'nor' : (),
+ ! $opt->{main} ? '--help' : (),
+ );
+ write;