Alternate view of Fyrd's when can I use... page<: -my ($canihas, $usage); -given ($get{usage} // 'wm') { - when (!$_) { - # none - } - when (!/^\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->{-source} || 'unknown'; - $ref = sprintf '%s', $_, $ref for $canihas->{-url} || (); - $ref .= " $_" for $canihas->{-date} || (); - print "\nwith $ref browser usage statistics"; -} -:>. -
- -<: -my $caniuse = do 'browser-support.inc.pl' or die $! || $@; +my $caniuse = do 'data/browser/support.inc.pl' or die $@ || $!; $_->{verrelease} = { - # mark last two (future) versions as unreleased, ensure current isn't - map { $_->[-1] => 0, $_->[-2] => 0, $_->[-3] => undef } $_->{versions} + # mark last three (future) versions as unreleased, ensure current isn't + map { + $_->[-1] => 0, $_->[-2] => 0, $_->[-3] => 0, + $_->[-4] => undef, + } $_->{versions} } for values %{ $caniuse->{agents} }; my %CSTATS = ( 'n' => 'l1', + 'n d' => 'l2', + 'n x d' => 'l2 ex', + 'p d' => 'l2', + 'a d' => 'l2', 'y' => 'l5', 'y x' => 'l5 ex', 'a' => 'l3', @@ -65,6 +54,7 @@ my %DSTATS = ( j => 'javascript required', a => 'partial', y => 'supported', + d => 'disabled by default', x => sub { join(' ', 'requires prefix', @@ -72,14 +62,21 @@ my %DSTATS = ( ); }, ); +my %PSTATS = ( # score percentage + y => 1, 'y x' => .9, + a => .5, 'a x' => .5, 'a d' => .1, + j => .2, 'p j' => .2, 'n d' => .2, 'n x d' => .2, + p => .2, 'p p' => .2, 'p d' => .1, +); my %CSTATUS = ( unoff => 'l1', # unofficial - wd => 'l3', # draft - cr => 'l4', # candidate - pr => 'l4', # proposed + wd => 'l2', # draft + cr => 'l3', # candidate + pr => 'l3', # proposed rec => 'l5', # recommendation - other => 'l2', # non-w3 - ietf => 'l5', # standard + ls => 'l4', # whatwg + ietf => 'l0', # standard + other => 'l0', # non-w3 ); my %versions; if (my ($somerow) = values %{ $caniuse->{data} }) { @@ -87,9 +84,100 @@ if (my ($somerow) = values %{ $caniuse->{data} }) { $versions{$browser} = [ sort { paddedver($a) cmp paddedver($b) } keys %$row ]; } } -my @browsers = grep { $versions{$_} } - qw(trident gecko webkit_saf ios_saf webkit_chr android presto op_mob op_mini); +print <<''; +Alternate rendition of Fyrd's when can I use... page + +my ($canihas, $usage); +my $minusage = $get{threshold} // .7; +given ($get{usage} // 'wm') { + when (!$_) { + # none + } + when (!m{ \A [a-z]\w+ (?:/\d[\d-]*\d)? \z }x) { + printf "
Invalid browser usage data request: %s",
+ 'identifier must be alphanumeric name or 0
';
+ }
+ $canihas = do "data/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"; +} + +my @browsers; +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; + if ($minusage and sum(values %$row) < $minusage) { + delete $versions{$browser}; + 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) { + 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} + } keys %versions; +} +else { + # order browser columns by name grouped by engine + @{$_} = map { [$_] } @{$_} for values %versions; + @browsers = sort { + $caniuse->{agents}->{$b}->{prefix} cmp + $caniuse->{agents}->{$a}->{prefix} + || + $a cmp $b + } keys %versions; +} +:>. +
+ +<: $canihas ||= { map { $_ => +{ @@ -104,65 +192,85 @@ $canihas ||= { } } @browsers }; # fallback hash based on release semantics -my $scorediv = (max(map { ref $_ eq 'HASH' && sum(values %$_) } values %$canihas) // 1) / 100; +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', + ' | feature', (map { my $name = $caniuse->{agents}->{$_}->{browser}; sprintf(' | %s', scalar @{ $versions{$_} }, join(' ', map {"b-a-$_"} grep {$_} - $_, $caniuse->{agents}->{$_}->{prefix}, + $_, @{ $caniuse->{agents}->{$_} }{'prefix', 'type'}, ), join(' ', - sprintf('%.1f%%', sum(values %{ $canihas->{$_} })), + sprintf('%.1f%%', $canihas->{$_}->{-total} * $usagepct), $name, ), do { - length $name < 3 + @{ $versions{$_} }*2 ? $name + length $name <= (3 * @{ $versions{$_} }) ? $name : $caniuse->{agents}->{$_}->{abbr}; }, ) } @browsers), - ' | %', + ' | %',
);
print '', $header;
# preceding row without any colspan to work around gecko bug
print "\n| ' x 3;
for my $browser (@browsers) {
- printf(' | %s',
- join(' ',
- sprintf('%.1f%%', $canihas->{$browser}->{$_}),
- "version $_",
- ),
- (map {
- defined $_ && !$_ && ' class="ex"'
- } $caniuse->{agents}->{$browser}->{verrelease}->{$_}),
- 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;
say ' | | ||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| %s', $familycount{$_}, $_ for @families; +} +say ' | %s', + 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 }); + + # strip #\d note references from support class + my @notes; + push @notes, $feature->{notes_by_num}->{$1} + while $prev =~ s/\h \# (\d+) \b//x; + + # prepare version hover details + my $title = sprintf('%.1f%% %s', $usage * $usagepct, join(', ', + map { ref $_ eq 'CODE' ? $_->($browser) : $_ } + map { $DSTATS{$_} // () } + map { split / /, $_ } + $prev + )); + $title .= "\n".EscapeHTML($_) for @notes; + + printf(' | %s', join(' ', - X => $CSTATS{ ref $data eq 'HASH' && $data->{$prev} || 'u' }, + X => $CSTATS{$prev}, !$usage ? ('p0') : ('p', - sprintf('p%01d', $usage / 10), - sprintf('p%02d', $usage), + sprintf('p%01d', $usage * ($usagepct - .0001) / 10), + sprintf('p%02d', $usage * ($usagepct - .0001)), ), - sprintf('pp%02d', $usage / $scorediv), + sprintf('pp%02d', $usage / $usagemax), ), scalar @span, - sprintf('%.1f%% %s', $usage, join(', ', - map { ref $_ eq 'CODE' ? $_->($browser) : $_ } - map { $DSTATS{$_} // () } - map { split / /, $_ } - ref $data eq 'HASH' && $data->{$prev} || 'u' - )), - showversions(@span), + $title, + showversions($span[0]->[0], @span > 1 ? ($span[-1]->[-1]) : ()), + ); undef $prev; @span = (); } - push @span, $ver; - $prev = $ver; + push @span, $ver && [ grep { $data->{ $_ } eq $data->{ $ver->[-1] } } @{$ver} ]; + $prev = $compare; } } sub sayusagecol { my ($id) = @_; - state $maxscore = featurescore({ # yes for every possible version - map { $_ => { map {$_ => 'y'} @{$versions{$_}} } } keys %versions - }); - print ' | ', int featurescore($caniuse->{data}->{$id}->{stats}) / $maxscore * 100; + print ' | ', int featurescore($caniuse->{data}->{$id}->{stats}) * $usagepct; } say ' | '; @@ -284,27 +435,20 @@ for my $id (sort { say ''; say '||||||||
| supported | partial - | external (js/plugin) + | optional | missing | unknown | prefixed
@@ -345,6 +489,8 @@ sub showversions {
<:= defined $get{style} && 'set to ' :><:= $style :>
|