2 # Creates Texinfo documentation from the source
5 open(INFO, $file) || die "Cannot open \"$file\"\n" ;
6 print "\@c Generated from $file by get-commands.pl\n";
7 print "\@c Do not modify!\n\n";
9 print "\@table \@asis\n";
10 while ($line = <INFO>)
12 if ( $line =~ /^UNIMPL_CMD/ )
14 @fields = split(/,/,$line);
25 print "\@item $command\n$description\n\n";
28 print "\@end table\n";
30 print "\@c Local Variables:\n";
31 print "\@c buffer-read-only: t\n";
32 close(INFO); # Close the file