termcol: show incompatible palettes on ?v option

diff --git a/termcol.plp b/termcol.plp
index c3bdbd28cb6f8c268f9b2b3d298c8c8ea14dbde8..be514c3a98d32d3f3f333733f673da1ab6b12aa5 100644 (file)
--- a/termcol.plp
+++ b/termcol.plp
@@ -171,7 +171,9 @@ my %col = (
        ],
 );
 
        ],
 );
 

-for my $term (qw/cga xterm tango app html xkcd/) {
+my @termlist = qw( cga xterm tango app html xkcd );
+push @termlist, qw( c64 msx2 mac2 risc game ) if exists $get{v};
+for my $term (@termlist) {

        print '<table>', "\n";
        printf "<caption>%s</caption>\n", $col{$term}[0] || $term;
        for my $num (1 .. $#{ $col{$term} }) {
        print '<table>', "\n";
        printf "<caption>%s</caption>\n", $col{$term}[0] || $term;
        for my $num (1 .. $#{ $col{$term} }) {