doc/src/sgml/mk_feature_tables.pl

   1 # /usr/bin/perl -w
   2
   3 # $PostgreSQL$
   4
   5 my $yesno = $ARGV[0];
   6
   7 open PACK, $ARGV[1] or die;
   8
   9 my %feature_packages;
  10
  11 while (<PACK>) {
  12     chomp;
  13     my ($fid, $pname) = split /\t/;
  14     if ($feature_packages{$fid}) {
  15         $feature_packages{$fid} .= ", $pname";
  16     } else {
  17         $feature_packages{$fid} = $pname;
  18     }
  19 }
  20
  21 close PACK;
  22
  23 open FEAT, $ARGV[2] or die;
  24
  25 print "<tbody>\n";
  26
  27 while (<FEAT>) {
  28     chomp;
  29     my ($feature_id, $feature_name, $subfeature_id, $subfeature_name, $is_supported, $comments) = split /\t/;
  30
  31     $is_supported eq $yesno || next;
  32
  33     $feature_name =~ s/</&lt;/g;
  34     $feature_name =~ s/>/&gt;/g;
  35     $subfeature_name =~ s/</&lt;/g;
  36     $subfeature_name =~ s/>/&gt;/g;
  37
  38     print " <row>\n";
  39
  40     if ($subfeature_id) {
  41         print "  <entry>$feature_id-$subfeature_id</entry>\n";
  42     } else {
  43         print "  <entry>$feature_id</entry>\n";
  44     }
  45     print "  <entry>" . $feature_packages{$feature_id} . "</entry>\n";
  46     if ($subfeature_id) {
  47         print "  <entry>$subfeature_name</entry>\n";
  48     } else {
  49         print "  <entry>$feature_name</entry>\n";
  50     }
  51     print "  <entry>$comments</entry>\n";
  52
  53     print " </row>\n";
  54 }
  55
  56 print "</tbody>\n";
  57
  58 close FEAT;