1 files changed, 54 insertions, 0 deletions
diff --git a/doc/src/sgml/mk_feature_tables.pl b/doc/src/sgml/mk_feature_tables.pl
new file mode 100644
index 00000000000..445acdb2e99
--- /dev/null
+++ b/doc/src/sgml/mk_feature_tables.pl
@@ -0,0 +1,54 @@
+# /usr/bin/perl -w
+
+my $yesno = $ARGV[0];
+
+open PACK, $ARGV[1] or die;
+
+my %feature_packages;
+
+while (<PACK>) {
+    chomp;
+    my ($fid, $pname) = split /\t/;
+    if ($feature_packages{$fid}) {
+	$feature_packages{$fid} .= ", $pname";
+    } else {
+	$feature_packages{$fid} = $pname;
+    }
+}
+
+close PACK;
+
+open FEAT, $ARGV[2] or die;
+
+print "<tbody>\n";
+
+while (<FEAT>) {
+    chomp;
+    my ($feature_id, $feature_name, $subfeature_id, $subfeature_name, $is_supported, $comments) = split /\t/;
+
+    $is_supported eq $yesno || next;
+
+    $subfeature_name =~ s/</&lt;/g;
+    $subfeature_name =~ s/>/&gt;/g;
+
+    print " <row>\n";
+
+    if ($subfeature_id) {
+	print "  <entry>$feature_id-$subfeature_id</entry>\n";
+    } else {
+	print "  <entry>$feature_id</entry>\n";
+    }
+    print "  <entry>" . $feature_packages{$feature_id} . "</entry>\n";
+    if ($subfeature_id) {
+	print "  <entry>$subfeature_name</entry>\n";
+    } else {
+	print "  <entry>$feature_name</entry>\n";
+    }
+    print "  <entry>$comments</entry>\n";
+
+    print " </row>\n";
+}
+
+print "</tbody>\n";
+
+close FEAT;