codec.plp

   1 <(common.inc.plp)><:
   2
   3 my @feat = split m{/+}, $Request || 'default';
   4
   5 Html({
   6         title => 'Codecs',
   7         version => '1.0',
   8         description => [
   9         ],
  10         keywords => [qw'
  11         '],
  12         stylesheet => [qw'light circus dark red'],
  13         data => [qw'codec.inc.pl'],
  14 });
  15
  16 my $info = do 'codec.inc.pl';
  17 $info and %{$info} > 1 or Abort("cannot open operator include", 500, $@ // $!);
  18
  19 my %BOOLSCORE = (y => [5, '✔'], n => [1, '✘'], 0 => [0, 'n/a']);
  20 :>
  21 <h1>Image codecs</h1>
  22
  23 <div class="section">
  24 <table class="mapped">
  25         <col><colgroup span=3><colgroup span=2><colgroup span=3>
  26 <thead><tr><th rowspan=2>feature
  27 <:
  28 my @codecs = sort {
  29         $info->{codec}->{$a}->{available} <=> $info->{codec}->{$b}->{available}
  30 } keys $info->{codec}->%*;
  31
  32 print '<th>', $_->{name} for @{$info->{codec}}{@codecs};
  33 print "\n<tr>";
  34 print '<td>', $_->{available} for @{$info->{codec}}{@codecs};
  35 say '</thead>';
  36
  37 while (defined (my $feat = shift @feat)) {
  38         my $featinfo = $info->{feature}->{$feat} or next;
  39         unshift @feat, @{$_} for $featinfo->{children} // ();
  40         $featinfo->{score} or next;
  41         print '<tbody>' if $featinfo->{children};
  42         printf '<tr><th>%s', $featinfo->{name} // $feat;
  43         for (@codecs) {
  44                 my ($score, $data) = map { ref ? @$_ : $_ } $featinfo->{score}->{$_};
  45                 if (not defined $data) {
  46                         if (my $override = $BOOLSCORE{$score}) {
  47                                 ($score, $data) = @{$override};
  48                         }
  49                         else {
  50                                 $data = '•' x ($score - 1);
  51                         }
  52                 }
  53                 printf '<td class="l%d">%s', $score, $data;
  54         }
  55         say '</td>';
  56 }
  57
  58 :></table>
  59 </div>
  60