Alternate view of Fyrd's when can I use... page -with Wikimedia -browser usage statistics.
+say "Alternate rendition of Fyrd's when can I use... page + +my ($canihas, $usage, $minusage); +given ($get{usage} // 'wm') { + when (!$_) { + # none + } + when (!/^[a-z][\w-]+$/) { + printf "
Invalid browser usage data request: %s",
+ 'identifier must be alphanumeric name or 0
';
+ }
+ $canihas = do "browser-usage-$_.inc.pl" or do {
+ printf "
Browser usage data not found: %s", $! || $@; + break; + }; + $usage = $_; + my $ref = $canihas->{-title} || 'unknown'; + $ref = sprintf '%s', $_, $ref + for $canihas->{-site} || $canihas->{-source} || (); + $ref .= " $_" for $canihas->{-date} || (); + print "\nwith $ref browser usage statistics"; +} +if ($usage) { # first() does not work inside given >:( + # adapt version usage to actual support data + my %engineuse; # prefix => usage sum + for my $browser (keys %versions) { + my $row = $canihas->{$browser} // {}; + my $verlist = $versions{$browser} or next; + my %supported = map { $_ => 1 } @$verlist; + + # cascade unknown versions + $row->{$_} //= undef for @$verlist; # ensure stable keys during iteration + while (my ($version, $usage) = each %$row) { + next if defined $supported{$version}; + my $next = first { paddedver($_) ge paddedver($version) } @$verlist + or warn("No fallback found for $browser v$version; $usage% ignored"), next; + $row->{$next} += $usage; + $row->{$version} = 0; # balance browser total + } + + # build row list for each version + if ($minusage = $get{threshold} // .5) { + my @vershown; # $verlist replacement + my ($rowusage, @verrow) = (0); # replacement row tracking + for (@$verlist) { + push @verrow, $_; # queue each version + if (($rowusage += $row->{$_}) >= $minusage) { + push @vershown, [@verrow]; # add row + ($rowusage, @verrow) = (0); # reset row tracking + } + } + push @vershown, \@verrow if @verrow; # always add latest + @$verlist = @vershown; + } + else { + @$verlist = map { [$_] } @$verlist; + } + + # reusable aggregates (grouped by prefix (engine) and browser) + $engineuse{ $caniuse->{agents}->{$browser}->{prefix} } += + $row->{-total} = sum(values %$row); + } + + # order browser columns by usage grouped by engine + @browsers = sort { + $engineuse{ $caniuse->{agents}->{$b}->{prefix} } <=> + $engineuse{ $caniuse->{agents}->{$a}->{prefix} } + || + $canihas->{$b}->{-total} <=> $canihas->{$a}->{-total} + } @browsers; +} +else { + # order browser columns by name grouped by engine + @browsers = sort { + $caniuse->{agents}->{$b}->{prefix} cmp + $caniuse->{agents}->{$a}->{prefix} + || + $a cmp $b + } @browsers; +} +:>. +
-my $canihas = do 'browser-usage.inc.pl' or do { - printf "Browser usage data not found: %s.
\n", $_ - for $! || $@; -}; -my $scorediv = (max(map { sum(values %$_) } values %$canihas) // 1) / 100; +<: +$canihas ||= { + map { + $_ => +{ + map { + my $zero = $#$_ - 2; # baseline index + ($_->[$zero - 2] => .5), # past + ($_->[$zero - 1] => 10 ), # previous + ($_->[$zero + 2] => 0 ), # future + ($_->[$zero + 1] => .5), # next + ($_->[$zero ] => 30 ), # current + } $caniuse->{agents}->{$_}->{versions} + } + } @browsers +}; # fallback hash based on release semantics +my $usagemax = (max(map { ref $_ eq 'HASH' && sum(values %$_) } values %$canihas) // 1) / 100; + +my $usagepct = 1; # score multiplier for 0..100 result +# normalise usage percentage to only include shown browsers +$usagepct = 100.01 / featurescore({ # yes for every possible version + map { $_ => { map {$_ => 'y'} map { @{$_} } @{$versions{$_}} } } keys %versions +}); print '| feature', (map { - sprintf(' | %s', + my $name = $caniuse->{agents}->{$_}->{browser}; + sprintf(' | %s',
scalar @{ $versions{$_} },
- sum(values %{ $canihas->{$_} }),
+ join(' ', map {"b-a-$_"} grep {$_}
+ $_, @{ $caniuse->{agents}->{$_} }{'prefix', 'type'},
+ ),
+ join(' ',
+ sprintf('%.1f%%', $canihas->{$_}->{-total} * $usagepct),
+ $name,
+ ),
do {
- my $name = $caniuse->{agents}->{$_}->{browser};
- length $name < 16 ? $name : $caniuse->{agents}->{$_}->{abbr};
+ length $name < 3 + @{ $versions{$_} }*2 ? $name
+ : $caniuse->{agents}->{$_}->{abbr};
},
)
} @browsers),
@@ -81,22 +209,35 @@ print '', $header;
print "\n| ' x 3;
for my $browser (@browsers) {
- printf(' | %s',
- $canihas->{$browser}->{$_}, showversions($_),
- ) for @{ $versions{$browser} };
+ for (@{ $versions{$browser} }) {
+ my $lastver = $_->[-1];
+ my $release = $caniuse->{agents}->{$browser}->{verrelease}->{$lastver};
+ my $future = defined $release;
+ printf(' | %s',
+ join(' ',
+ sprintf('%.1f%%', sum(@{ $canihas->{$browser} }{@$_}) * $usagepct),
+ $future ? 'development' : (),
+ 'version ' . join(', ', @{$_}),
+ ),
+ $future && ' class="ex"',
+ showversions($lastver),
+ );
+ }
}
print ' | ' x 1;
-print " | | ||
|---|---|---|---|---|---|---|---|---|
| ', $cell; + $cell =~ s/ api$//; # trim unessential fluff in 'js api' + printf ' | %s', join(' + ', @$_), $cell; } - printf ' | %s', $row->{description}, $row->{title}; + + print ' | ', map {
+ sprintf('%s',
+ "#$id",
+ sprintf("try { %s; return false } catch(err) { return true }",
+ "document.getElementById('$id').classList.toggle('target')",
+ ),
+ Entity($_),
+ );
+ } $row->{title};
+ print ' ';
+ s/\.?$/./, print " ';
+}
+
+sub saystatuscol {
+ my ($id) = @_;
+ my $row = $caniuse->{data}->{$id};
+
for ($row->{status}) {
my $cell = $_ // '-';
$cell = sprintf '%s', $_, $cell for $row->{spec} // ();
- printf '$_ " for map { ref $_ ? @$_ : $_ || () } + Entity($row->{description}), + map { s/\s*\n/\n/g; $_ } $row->{notes}; + printf 'Resources: %s.', join(', ', map { + sprintf '%s', EscapeHTML($_->{url}), $_->{title} + } @$_) for grep { @$_ } $row->{links} // (); + printf ' Parent feature: %s.', join(', ', map { + sprintf '%s', EscapeHTML("#$_"), $caniuse->{data}->{$_}->{title} + } $_) for $row->{parent} || (); + print ' | %s', + printf ' | %s', $caniuse->{statuses}->{$_}, $CSTATUS{$_} // '', $cell; } - for my $browser (@browsers) { - my ($prev, @span); - for my $ver (@{ $versions{$browser} }, undef) { - unless (!defined $prev - or $data->{$browser}->{$prev} ~~ $data->{$browser}->{$ver}) { - my $usage = sum(map { $canihas->{$browser}->{$_} } @span); - printf ' | %s', - join(' ', - X => $CSTATS{ $data->{$browser}->{$prev} }, - !$usage ? ('p0') : ('p', - sprintf('p%01d', $usage / 10), - sprintf('p%02d', $usage), - ), - sprintf('pp%02d', $usage / $scorediv), +} + +sub saybrowsercols { + my ($id, $browser) = @_; + my $data = $caniuse->{data}->{$id}->{stats}->{$browser}; + if (ref $data eq 'ARRAY') { + # special case for unsupported + my $release = $caniuse->{agents}->{$browser}->{verrelease}; + $data = { + map { $_ => defined $release->{$_} ? 'u' : 'n' } keys %$release + }; + } + + my ($prev, @span); + for my $ver (@{ $versions{$browser} }, undef) { + my $compare = ( + !defined $ver ? undef : # last column if nameless + ref $data ne 'HASH' ? '' : # unclassified if no support hash + $data->{ $ver->[-1] } // $prev # known or inherit from predecessor + // (grep { defined } @{$data}{ map { $_->[0] } @{ $versions{$browser} } })[0] + ~~ 'n' && 'n' # first known version is unsupported + || 'u' # unsure + ); + unless (!defined $prev or $prev ~~ $compare) { + my $usage = sum(@{ $canihas->{$browser} }{ map { @{$_} } @span }); + printf ' | %s', + join(' ', + X => $CSTATS{$prev}, + !$usage ? ('p0') : ('p', + sprintf('p%01d', $usage * ($usagepct - .0001) / 10), + sprintf('p%02d', $usage * ($usagepct - .0001)), ), - scalar @span, - $usage, - showversions(@span), - undef $prev; - @span = (); - } - push @span, $ver; - $prev = $ver; + sprintf('pp%02d', $usage / $usagemax), + ), + scalar @span, + sprintf('%.1f%% %s', $usage * $usagepct, join(', ', + map { ref $_ eq 'CODE' ? $_->($browser) : $_ } + map { $DSTATS{$_} // () } + map { split / /, $_ } + $prev + )), + showversions($span[0]->[0], @span > 1 ? ($span[-1]->[-1]) : ()), + undef $prev; + @span = (); } + push @span, $ver && [ grep { $data->{ $_ } eq $data->{ $ver->[-1] } } @{$ver} ]; + $prev = $compare; } - state $maxscore = featurescore({ # yes for every possible version - map { $_ => { map {$_ => 'y'} @{$versions{$_}} } } keys %versions - }); - print ' | ', int featurescore($caniuse->{data}->{$id}->{stats}) / $maxscore * 100; } -print ' |
| supported - | prefixed - | partial + | supported + | partial | external (js/plugin) - | missing + | missing + | unknown + | prefixed |
<: if ($usage) { :> Usage percentage: 0 - .01 - @@ -218,13 +413,27 @@ Array.forEach(document.getElementsByTagName('TD'), function(val) { 10 - 20 - majority -
| previous version | +current | +upcoming (within months) | +future (within a year) | +