#!/usr/bin/perl
-# Creates Texinfo documentation from the source
+# Creates Texinfo documentation from the source
use strict;
use warnings 'all';
-my ($file) = $ARGV[0];
-open(INFO, $file) || die "Cannot open \"$file\"\n" ;
+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";
my ($command, $description)
= /^\s*UNIMPL_CMD\s*\(\s*"([^"]*)"\s*,\s*"([^"]*)"\)\s*$/
or next;
- print "\@item $command\n$description\n\n";
+ print "\@item \@cmd{$command}\n$description\n\n";
}
print "\@end table\n";