2 # Creates Texinfo documentation from the source
8 open(INFO, $file) || die "Cannot open \"$file\"\n" ;
9 print "\@c Generated from $file by get-commands.pl\n";
10 print "\@c Do not modify!\n\n";
12 print "\@table \@asis\n";
15 my ($command, $description)
16 = /^\s*UNIMPL_CMD\s*\(\s*"([^"]*)"\s*,\s*"([^"]*)"\)\s*$/
18 print "\@item \@cmd{$command}\n$description\n\n";
20 print "\@end table\n";
22 print "\@c Local Variables:\n";
23 print "\@c buffer-read-only: t\n";
25 close(INFO); # Close the file