doc/get-commands.pl

   1
   2 #
   3 # Creates Texinfo documentation from the source
   4
   5 $file = $ARGV[0];
   6 open(INFO, $file) || die "Cannot open \"$file\"\n" ;
   7 print "\@table \@asis\n";
   8 while ($line = <INFO>)
   9 {
  10         if ( $line =~ /^UNIMPL/ )
  11         {
  12                 @fields = split(/,/,$line);
  13                 $_ = $fields[0];
  14                 s/^UNIMPL//;
  15                 s/ *\(\"// ;
  16                 s/\"//;
  17                 $command = $_;
  18                 $_=$fields[5];
  19                 s/\"//;
  20                 s/\"\)//;
  21                 s/^ *//;
  22                 chomp;
  23                 $description = $_;
  24                 print "\@item $command\n$description\n\n";
  25         }
  26 }
  27 print "\@end table\n";
  28 close(INFO);                    # Close the file