From: Mischa POSLAWSKY Date: Fri, 3 Mar 2017 16:18:18 +0000 (+0100) Subject: perl: indicate features distinct from experimental X-Git-Tag: v1.9~17 X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/0062da448369aded78eebffeaae69561fa016024 perl: indicate features distinct from experimental Describe attributes as hash after all, especially with this additional parameter. --- diff --git a/perl.inc.pl b/perl.inc.pl index 09fff96..ee6d9a2 100644 --- a/perl.inc.pl +++ b/perl.inc.pl @@ -4,15 +4,15 @@ use utf8; v5.6 => { new => [ ['use warnings', 'pragma to enable warnings in lexical scope'], - ['use utf8', 'experimental unicode semantics (completed in v5.8)', v5.8], + ['use utf8', 'experimental unicode semantics (completed in v5.8)', {experimental => 0, stable => v5.8}], ['use charnames', 'string escape \N{} to insert named character'], ['our', 'declare global variables'], ['v1.2.3', q"represent strings as vector of ordinals, useful in version numbers (printf '%vd' to display)"], ['0b0', q"binary numbers in literals, printf '%b', and oct"], - ['sub :lvalue', 'subroutine attribute to return a modifiable value', v5.20], + ['sub :lvalue', 'subroutine attribute to return a modifiable value', {experimental => 0, stable => v5.20}], # ['sub :locked :method', 'syntax to declare subroutine attributes'], # can be inferred from :lvalue support ['open my $fh, $mode, $expr', 'file handles in scoped scalars, third argument for unambiguous file name'], - [q"pack 'q'", '64-bit integer support (also large files >2GiB)', v5.8.1], + [q"pack 'q'", '64-bit integer support (also large files >2GiB)', {experimental => 0, stable => v5.8.1}], ['sort $coderef ()', 'comparison function can be a subroutine reference; prototype ($$) to pass elements as normal @_'], ['CHECK {}', 'special block called at end of compilation'], ['/[[:…:]]/', 'POSIX character class syntax such as /[[:alpha:]]/'], @@ -53,16 +53,16 @@ use utf8; v5.10 => { new => [ ['//', 'defined-or operator'], - ['~~', 'smart-match operator to compare different data types (updated in v5.10.1)', 'experimental::smartmatch'], - ['say', 'print with newline, equivalent to print @_, "\n"'], - ['given', 'switch statement to smart-match with when/default', 'experimental::smartmatch'], + ['~~', 'smart-match operator to compare different data types (updated in v5.10.1)', {experimental => 'smartmatch'}], + ['say', 'print with newline, equivalent to print @_, "\n"', {feature => 'say'}], + ['given', 'switch statement to smart-match with when/default', {feature => 'switch', experimental => 'smartmatch'}], ['/(?<name>)/', 'named capture buffers into %+'], ['/(?1)/', 'recursive regular expression patterns'], ['/.++/', 'possessive quantifiers ?+, *+, ++ to match greedily'], ['s/keep\K//', 'floating positive lookbehind, efficient alternative for s/(keep)/$1/'], ['/\v/, /\h/', 'vertical and horizontal whitespace escapes'], - ['my $_', 'lexically scoped version of the default variable', v0.5.23.4, 'experimental::lexical_topic'], - ['state', 'persistent my variables'], + ['my $_', 'lexically scoped version of the default variable', {experimental => 'lexical_topic', dropped => v5.23.4}], + ['state', 'persistent my variables', {feature => 'state'}], ], release => '2007-12-18', distro => { @@ -82,7 +82,7 @@ use utf8; ['use 5.012', 'implicit strict if use VERSION >= v5.12'], ['… when', 'when is now allowed to be used as a statement modifier'], [q"use overload 'qr'", 'customisable conversion to regular expressions'], - ['/\N/', 'inverse \n to match any character except newline regardless of /s', v5.18], + ['/\N/', 'inverse \n to match any character except newline regardless of /s', {experimental => 0, stable => v5.18}], ], release => '2010-04-12', unicode => '5.2', @@ -96,9 +96,9 @@ use utf8; new => [ ['s///r', 'non-destructive substitution'], ['/(?^)/', 'construct to reset to default modifiers'], - ['/(?{ m() })/', 'regular expressions can be nested in /(?{})/ and /(??{})/', v5.20], + ['/(?{ m() })/', 'regular expressions can be nested in /(?{})/ and /(??{})/', {experimental => 0, stable => v5.20}], [q"use re '/flags'", 'customise default modifiers'], - ['each $ref e.a.', 'array and hash container functions accept references', v0.5.23.1], + ['each $ref e.a.', 'array and hash container functions accept references', {experimental => 'postderef', dropped => v5.23.1}], ['FH->method', 'filehandle method calls load IO::File on demand (eg. STDOUT->flush)'], ], release => '2011-05-14', @@ -111,8 +111,8 @@ use utf8; v5.16 => { new => [ - ['__SUB__', 'current subroutine reference'], - ['fc, "\F"', 'unicode foldcase to compare case-insensitively'], + ['__SUB__', 'current subroutine reference', {feature => 'current_sub'}], + ['fc, "\F"', 'unicode foldcase to compare case-insensitively', {feature => 'fc'}], ['"\N{}"', 'automatic use charnames qw( :full :short )'], ], release => '2012-05-20', @@ -126,10 +126,10 @@ use utf8; v5.18 => { new => [ ['${^LAST_FH}', 'last read filehandle (used by $.)'], - ['/(?[ a + b ])/', 'regex set operations (character substraction -, unions &)', 'experimental::regex_sets'], - ['my sub', 'lexical subroutines (also state, our); buggy before v5.22', 'experimental::lexical_subs'], + ['/(?[ a + b ])/', 'regex set operations (character substraction -, unions &)', {experimental => 'regex_sets'}], + ['my sub', 'lexical subroutines (also state, our); buggy before v5.22', {feature => 'lexical_subs', experimental => 'lexical_subs'}], ['next $expression', 'loop controls allow runtime expressions'], - [q"no warnings 'experimental::…'", 'mechanism for experimental features, as of now required for smartmatch'], + [q"no warnings 'experimental::…'", 'mechanism for experimental features, as of now required for smartmatch'], ], release => '2013-05-18', distro => { @@ -140,9 +140,9 @@ use utf8; v5.20 => { new => [ - ['sub ($var)', 'subroutine signatures', 'experimental::signatures'], + ['sub ($var)', 'subroutine signatures', {feature => 'signatures', experimental => 'signatures'}], ['%hash{…}', 'hash slices return key+value pairs'], - ['[]->@*', 'postfix dereferencing (also e.g. $scalar->$* for $$scalar)', v5.23.1, 'experimental::postderef'], + ['[]->@*', 'postfix dereferencing (also e.g. $scalar->$* for $$scalar)', {feature => 'postderef, postderef_qq', experimental => 'postderef', stable => v5.23.1}], [q"use warnings 'once'; $a", 'variables $a and $b are exempt from used once warnings'], ], unicode => '6.3', @@ -156,12 +156,12 @@ use utf8; v5.22 => { new => [ - ['\$alias =', 'aliasing via reference (scoped as of v5.25.3)', 'experimental::refaliasing'], + ['\$alias =', 'aliasing via reference (scoped as of v5.25.3)', {experimental => 'refaliasing'}], ['<<>>', 'safe readline ignoring open flags in arguments'], ['/()/n', 'flag to disable numbered capturing, turning () into (?:)'], ['/\b{}/', 'boundary types: gcb (grapheme cluster), sb (sentence), wb (word)'], - ['&.', '& | ^ ~ consistently numeric, dotted operators for strings', 'experimental::bitwise'], - [q"use re 'strict'", 'apply stricter syntax rules to regular expression patterns', 'experimental::re_strict'], + ['&.', '& | ^ ~ consistently numeric, dotted operators for strings', {experimental => 'bitwise'}], + [q"use re 'strict'", 'apply stricter syntax rules to regular expression patterns', {experimental => 're_strict'}], ['0x.beep+0', q"hexadecimal floating point notation with binary power; printf '%a' to display"], ], unicode => '7.0', diff --git a/perl.plp b/perl.plp index 0a13fdc..ff3054e 100644 --- a/perl.plp +++ b/perl.plp @@ -29,24 +29,30 @@ for my $vernum (reverse sort keys %{$info}) { print '
'."\n"; printf '

%vd %s

'."\n", $vernum, $verrow->{release}; for (@{ $verrow->{new} }) { - if (defined (my $experimental = $_->[2])) { - my $title = 'experimental'; - my $class = ' class="ex"'; - if (ref \$experimental eq 'VSTRING') { - my $dropped = $experimental =~ s/^\0// - and (exists $get{v} or next); - $title = sprintf('%s %vd', - $dropped ? 'removed in ' : "$title until", - $experimental, - ); - $experimental = $_->[3]; # optional additional class + my ($topic, $desc, $attr) = @{$_}; + if ($attr) { + my $title; + if (defined $attr->{experimental}) { + $title = 'experimental'; } - if ($experimental) { - $class .= sprintf ' title="%s"', $experimental; + if ($attr->{dropped}) { + next unless exists $get{v}; + $title = sprintf 'removed in %vd', $attr->{dropped}; } - $_->[1] .= qq{ ($title)}; + elsif ($attr->{stable}) { + $title .= sprintf ' until %vd', $attr->{stable}; + } + if ($attr->{experimental}) { + $title = sprintf '%s', + $attr->{experimental}, $title; + } + if ($attr->{feature}) { + $title = sprintf('feature', $attr->{feature}) + . (defined $title && ", $title"); + } + $desc .= sprintf ' (%s)', $title; } - printf '
%s
%s'."\n", @{$_}, '
' + printf '
%s
%s'."\n", $topic, $desc || '
'; } printf '
Unicode
v%s'."\n", $_ for $verrow->{unicode} || (); print "
\n";