Alternate view of Fyrd's when can I use... page -with Wikimedia -browser usage statistics.
+say "Browser usage data not found: %s.
\n", $_ - for $! || $@; -}; -my $scorediv = (max(map { sum(values %$_) } values %$canihas) // 1) / 100; +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 { + $_ => +{ + 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'; -printf(' | %s', - scalar @{ $versions{$_} }, - do { +my $header = join('', + ' | ||||||||
|---|---|---|---|---|---|---|---|---|---|
| feature', + (map { my $name = $caniuse->{agents}->{$_}->{browser}; - length $name < 16 ? $name : $caniuse->{agents}->{$_}->{abbr}; - }, -) for @browsers; -print ' | %'; + sprintf(' | %s', + scalar @{ $versions{$_} }, + join(' ', map {"b-a-$_"} grep {$_} + $_, @{ $caniuse->{agents}->{$_} }{'prefix', 'type'}, + ), + join(' ', + sprintf('%.1f%%', $canihas->{$_}->{-total} * $usagepct), + $name, + ), + do { + 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',
- $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 " | | ||
| %s', $familycount{$_}, $_ for @families; +} +say ' | |||||||||
| ', $cell; + $cell =~ s/ api$//; # trim unessential fluff in 'js api' + printf ' | %s', join(' + ', @$_), $cell; + } + + print ' | ', map {
+ sprintf('%s',
+ "#$id",
+ sprintf("try { %s; return false } catch(err) { return true }",
+ "document.getElementById('$id').classList.toggle('target')",
+ ),
+ Entity($_),
+ );
+ } $row->{title};
+ print ' ';
+ print " $_ " + for formatnotes($row->{description}, $row->{notes} || ()); + if (my %notes = %{ $row->{notes_by_num} }) { + say 'Browser-specific notes:';
+ say " %s', $row->{description}, $row->{title};
+ 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 ''; +} + +sub saystatuscol { + my ($id) = @_; + my $row = $caniuse->{data}->{$id}; + for ($row->{status}) { my $cell = $_ // '-'; $cell = sprintf '%s', $_, $cell for $row->{spec} // (); - printf ' %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(' ',
- $CSTATS{ $data->{$browser}->{$prev} },
- sprintf('opacity%.0f', $usage / $scorediv),
+}
+
+sub saybrowsercols {
+ my ($id, $browser) = @_;
+ my $feature = $caniuse->{data}->{$id};
+ my $data = $feature->{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 });
+
+ # 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{$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,
+ $title,
+ 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 - | external (js/plugin) - | missing + | supported + | partial + | optional + | missing + | unknown + | prefixed |
<: if ($usage) { :> + Usage percentage: + 0 - + .01 - + 1-9 - + 10 - + 20 - + majority +<: } else { :> +
| previous version | +current | +upcoming (within months) | +future (within a year) | +