doc/src/sgml/mk_feature_tables.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56

# /usr/bin/perl -w

# $PostgreSQL: pgsql/doc/src/sgml/mk_feature_tables.pl,v 2.2 2006/03/11 04:38:30 momjian Exp $

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;