-
-#
+#!/usr/bin/perl
# Creates Texinfo documentation from the source
-$file = $ARGV[0];
+use strict;
+use warnings 'all';
+
+my ($file) = $ARGV[0];
open(INFO, $file) || die "Cannot open \"$file\"\n" ;
+print "\@c Generated from $file by get-commands.pl\n";
+print "\@c Do not modify!\n\n";
+
print "\@table \@asis\n";
-while ($line = <INFO>)
+while (<INFO>)
{
- if ( $line =~ /^UNIMPL/ )
- {
- @fields = split(/,/,$line);
- $_ = $fields[0];
- s/^UNIMPL//;
- s/ *\(\"// ;
- s/\"//;
- $command = $_;
- $_=$fields[5];
- s/\"//;
- s/\"\)//;
- s/^ *//;
- chomp;
- $description = $_;
- print "\@item $command\n$description\n\n";
- }
+ my ($command, $description)
+ = /^\s*UNIMPL_CMD\s*\(\s*"([^"]*)"\s*,\s*"([^"]*)"\)\s*$/
+ or next;
+ print "\@item $command\n$description\n\n";
}
print "\@end table\n";
+
+print "\@c Local Variables:\n";
+print "\@c buffer-read-only: t\n";
+print "\@c End:\n";
close(INFO); # Close the file