X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/6e61b5be6d46cffa66793d5d78f51bcfad6e65ca..HEAD:/browser.plp diff --git a/browser.plp b/browser.plp index 5c3f769..6d75d4a 100644 --- a/browser.plp +++ b/browser.plp @@ -4,7 +4,7 @@ no if $] >= 5.018, warnings => 'experimental::smartmatch'; Html({ title => 'browser compatibility cheat sheet', - version => '1.4', + version => '1.6', description => [ "Compatibility table of new web features (HTML5, CSS3, SVG, Javascript)", "comparing support and usage share for all popular browser versions.", @@ -20,14 +20,7 @@ Html({ say "

Browser compatibility

\n"; -my $caniuse = do 'data/browser/support.inc.pl' or die $@ || $!; -$_->{verrelease} = { - # 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 $caniuse = Data('data/browser/support'); my %CSTATS = ( 'n' => 'l1', @@ -36,11 +29,14 @@ my %CSTATS = ( 'p d' => 'l2', 'a d' => 'l2', 'y' => 'l5', + 'y #' => 'l4', 'y x' => 'l5 ex', + 'y x #' => 'l4 ex', 'a' => 'l3', 'a x' => 'l3 ex', 'p' => 'l2', 'u' => 'l0', + 'u d' => 'l2', ); my %DSTATS = ( u => 'unknown', @@ -53,7 +49,7 @@ my %DSTATS = ( join(' ', 'with prefix', map {"-$_-"} - ($caniuse->{agents}->{$_[0]}->{prefix_exceptions} // {})->{$_[1]} + $caniuse->{agents}->{$_[0]}->{version_list}->{$_[1]}->{prefix} // $caniuse->{agents}->{$_[0]}->{prefix} // (), ); }, @@ -77,14 +73,14 @@ my %CSTATUS = ( ); my %versions; while (my ($browser, $row) = each %{ $caniuse->{agents} }) { - $versions{$browser} = [ - sort { paddedver($a) cmp paddedver($b) } grep { defined } - @{ $row->{versions} } - ]; + $versions{$browser} = [@{ $row->{versions} }]; } -print <<''; -

Alternate rendition of Fyrd's when can I use... page +my $ref = showlink('Can I use', 'https://caniuse.com/'); +$ref =~ s/(?=>)/ title="updated $_"/ + for map { s/[\sT].*//r } $caniuse->{-date} || (); +$ref = "Fyrd's $ref page"; +say '

Alternate rendition of '.$ref; my ($canihas, $usage); my $minusage = $get{threshold} // 1; @@ -98,15 +94,15 @@ given ($get{usage} // 'wm') { 'Identifier must be alphanumeric name or 0.', ]); } - $canihas = do "data/browser/usage-$_.inc.pl" or do { - Alert('Browser usage data not found', $@ || $!); + $canihas = eval { Data("data/browser/usage-$_") } or do { + Alert('Browser usage data not found', $@); break; }; $usage = $_; my $ref = $canihas->{-title} || 'unknown'; $ref = showlink($ref, $_) for $canihas->{-site} || $canihas->{-source} || (); - $ref .= " $_" for $canihas->{-date} || (); + $ref =~ s/(?=>)/ title="updated $_"/ for $canihas->{-date} || (); print "\nwith $ref browser usage statistics"; } @@ -193,11 +189,14 @@ $canihas ||= { } @browsers }; # fallback hash based on release semantics -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 -}); +# score multiplier for percentage of all browser versions +my $usagepct = 99.99 / sum( + map { $_->{-total} // values %{$_} } + map { $canihas->{$_} } + grep { !/^-/ } + keys %{$canihas} +); + $_->{usage} = featurescore($_->{stats}) * $usagepct for values %{ $caniuse->{data} }; @@ -234,16 +233,18 @@ print "\n"; for my $browser (@browsers) { for my $span (@{ $versions{$browser} }) { my $lastver = first { - !defined $caniuse->{agents}->{$browser}->{verrelease}->{$_} # stable + $caniuse->{agents}->{$browser}->{version_list}->{$_}->{release_date} # stable } reverse @{$span}; printf('%s', join(' ', sprintf('%.1f%%', sum(@{ $canihas->{$browser} }{ @{$span} }) * $usagepct), 'version ' . showversions(@{$span}, undef), - $span->[-1] eq $lastver ? () : '(development)', + (map { + $_ ? sprintf('(released %d)', $_/3600/24/365.25 + 1970) : '(development)' + } $caniuse->{agents}->{$browser}->{version_list}->{$lastver}->{release_date}), ), !defined $lastver && ' class="ex"', - showversions($lastver), + showversions($lastver // $span->[0]), ); } } @@ -270,9 +271,12 @@ sub featurescore { if ($canihas) { while (my ($browser, $versions) = each %$row) { ref $versions eq 'HASH' or next; - while (my ($version, $status) = each %$versions) { + my $prev; + for my $version (@{ $caniuse->{agents}->{$browser}->{versions} }) { + my $status = $versions->{$version} // $prev; $status =~ s/\h\#\d+//g; $rank += ($canihas->{$browser}->{$version} || .001) * $PSTATS{$status}; + $prev = $status; } } return $rank; @@ -304,6 +308,7 @@ sub formatnotes { s/(?<= [^.\n]) $/./gmx; # consistently end each line by a period Entity($_); s{ ` ([^`]*) ` }{$1}gx; + s{ \(\K (?: \Qhttps://caniuse.com\E )? (?: /? \#feat= | / ) }{#}gx; s{ \[ ([^]]*) \] \( ([^)]*) \) }{$1}gx; } return @html; @@ -372,9 +377,9 @@ sub saybrowsercols { 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 + map { $_ => 'n' } + keys %{ $caniuse->{agents}->{$browser}->{version_list} } }; } @@ -383,15 +388,15 @@ sub saybrowsercols { 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 + (first { defined } @{$data}{ reverse @{$ver} }) # last known version + // $prev # inherit from predecessor || 'u' # unsure ); - unless (!defined $prev or $prev ~~ $compare) { - my @vercover = (map { @{$_} } @span); + if (defined $prev and not $prev ~~ $compare) { + # different columns + my @vercover = (map { @{$_} } @span); # accumulated conforming versions for ($ver ? @{$ver} : ()) { - $data->{$_} eq $data->{$vercover[-1]} or last; + last if defined $data->{$_}; # until different push @vercover, $_; # matches from next span start } my $usage = sum(@{ $canihas->{$browser} }{@vercover}); @@ -413,6 +418,7 @@ sub saybrowsercols { )); $title .= "\n$_" for notestotitle(@notes); + $prev .= ' #' if @notes and $prev =~ /^y/; printf('%s', join(' ', X => $CSTATS{$prev}, @@ -423,12 +429,16 @@ sub saybrowsercols { ), scalar @span, $title, - showversions($span[0]->[0], @span > 1 ? $span[-1]->[-1] : ()), + showversions($span[0]->[0], @span > 1 && defined $ver ? $span[-1]->[-1] : ()), ); undef $prev; @span = (); } - push @span, $ver && [ grep { $data->{ $_ } eq $data->{ $ver->[-1] } } @{$ver} ]; + if ($ver) { + my $startversion = first { defined $data->{ $ver->[$_] } } + reverse 0 .. $#{$ver}; # compare index + push @span, [ @{$ver}[ $startversion .. $#{$ver} ] ]; + } $prev = $compare; } } @@ -455,9 +465,9 @@ say ''; sub paddedver { # normalised version number comparable as string (cmp) - shift =~ /(?:.*-|^)(\d*)(.*)/; + $_[0] =~ m/(?:.*-|^)(\d*)(.*)/; # matched (major)(.minor) of last value in range (a-B) - return sprintf('%02d', $1 || 99) . $2; + return sprintf('%03d', length $1 ? $1 : 999) . $2; } sub showversions { @@ -474,6 +484,7 @@ sub showversions {

supported + annotated partial optional missing @@ -511,5 +522,7 @@ sub showversions { - +