Fixed bug 12931

[pspp-builds.git] / doc / get-commands.pl

diff --git a/doc/get-commands.pl b/doc/get-commands.pl
new file mode 100755 (executable)
index 0000000..c5cd163
--- /dev/null
+++ b/doc/get-commands.pl
@@ -0,0 +1,28 @@
+
+#
+# Creates Texinfo documentation from the source 
+
+$file = $ARGV[0]; 
+open(INFO, $file) || die "Cannot open \"$file\"\n" ;   
+print "\@table \@asis\n";
+while ($line = <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";
+       }
+}
+print "\@end table\n";
+close(INFO);                   # Close the file