diff options
Diffstat (limited to 'doc/src/sgml/mk_feature_tables.pl')
| -rw-r--r-- | doc/src/sgml/mk_feature_tables.pl | 82 |
1 files changed, 47 insertions, 35 deletions
diff --git a/doc/src/sgml/mk_feature_tables.pl b/doc/src/sgml/mk_feature_tables.pl index 7c78e0e3aa9..45dea798cdd 100644 --- a/doc/src/sgml/mk_feature_tables.pl +++ b/doc/src/sgml/mk_feature_tables.pl @@ -8,14 +8,18 @@ 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; - } +while (<PACK>) +{ + chomp; + my ($fid, $pname) = split /\t/; + if ($feature_packages{$fid}) + { + $feature_packages{$fid} .= ", $pname"; + } + else + { + $feature_packages{$fid} = $pname; + } } close PACK; @@ -24,33 +28,41 @@ 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; - - $feature_name =~ s/</</g; - $feature_name =~ s/>/>/g; - $subfeature_name =~ s/</</g; - $subfeature_name =~ s/>/>/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"; +while (<FEAT>) +{ + chomp; + my ($feature_id, $feature_name, $subfeature_id, + $subfeature_name, $is_supported, $comments) = split /\t/; + + $is_supported eq $yesno || next; + + $feature_name =~ s/</</g; + $feature_name =~ s/>/>/g; + $subfeature_name =~ s/</</g; + $subfeature_name =~ s/>/>/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"; |