perl: indicate experimental features

diff --git a/perl.inc.pl b/perl.inc.pl
index 67774cf187238325522aefd715afe169b03bf32d..3be3eec98733b172cc449fc79d5ba2084bd3bcfd 100644 (file)
--- a/perl.inc.pl
+++ b/perl.inc.pl
@@ -4,15 +4,15 @@ use utf8;
        v5.6 => {
                new => [
                        ['<code>use warnings</code>', 'pragma to enable warnings in lexical scope'],
        v5.6 => {
                new => [
                        ['<code>use warnings</code>', 'pragma to enable warnings in lexical scope'],

-                       ['<code>use utf8</code>', 'experimental unicode semantics <small>(completed in v5.8)</small>'],
+                       ['<code>use utf8</code>', 'experimental unicode semantics <small>(completed in v5.8)</small>', v5.8],

                        ['<code>use charnames</code>', 'string escape <code>\N{}</code> to insert named character'],
                        ['<code>our</code>', 'declare global variables'],
                        ['<code>v1.2.3</code>', q`represent strings as vector of ordinals, useful in version numbers (<code>printf '%vd'</code> to display)`],
                        ['<code>0b0</code>', q`binary numbers in literals, <code>printf '%b'</code>, and <code>oct</code>`],
                        ['<code>use charnames</code>', 'string escape <code>\N{}</code> to insert named character'],
                        ['<code>our</code>', 'declare global variables'],
                        ['<code>v1.2.3</code>', q`represent strings as vector of ordinals, useful in version numbers (<code>printf '%vd'</code> to display)`],
                        ['<code>0b0</code>', q`binary numbers in literals, <code>printf '%b'</code>, and <code>oct</code>`],

-                       ['<code>sub :lvalue</code>', 'subroutine attribute to return a modifiable value'],
+                       ['<code>sub :lvalue</code>', 'subroutine attribute to return a modifiable value', v5.20],

 #                      ['<code>sub :locked :method</code>', 'syntax to declare subroutine attributes'], # can be inferred from :lvalue support
                        ['<code>open my $fh, $mode, $expr</code>', 'file handles in scoped scalars, third argument for unambiguous file name'],
 #                      ['<code>sub :locked :method</code>', 'syntax to declare subroutine attributes'], # can be inferred from :lvalue support
                        ['<code>open my $fh, $mode, $expr</code>', 'file handles in scoped scalars, third argument for unambiguous file name'],

-                       [q`<code>pack 'q'</code>`, '64-bit integer support (also large files &gt;2GiB)'],
+                       [q`<code>pack 'q'</code>`, '64-bit integer support (also large files &gt;2GiB)', v5.8.1],

                        ['<code>sort $coderef ()</code>', 'comparison function can be a subroutine reference; prototype <code>($$)</code> to pass elements as normal <code>@_</code>'],
                        ['<code>CHECK {}</code>', 'special block called at end of compilation'],
                        ['<code>/[[:…:]]/</code>', 'POSIX character class syntax such as <code>/[[:alpha:]]/</code>'],
                        ['<code>sort $coderef ()</code>', 'comparison function can be a subroutine reference; prototype <code>($$)</code> to pass elements as normal <code>@_</code>'],
                        ['<code>CHECK {}</code>', 'special block called at end of compilation'],
                        ['<code>/[[:…:]]/</code>', 'POSIX character class syntax such as <code>/[[:alpha:]]/</code>'],


@@ -50,12 +50,12 @@ use utf8;
        v5.10 => {
                new => [
                        ['<code>//</code>', 'defined-or operator'],
        v5.10 => {
                new => [
                        ['<code>//</code>', 'defined-or operator'],

-                       ['<code>~~</code>', 'smart-match operator to compare different data types <small>(updated in v5.10.1)</small>'],
-                       ['<code>given</code>', 'switch statement to smart-match with <code>when</code>/<code>default</code>'],
+                       ['<code>~~</code>', 'smart-match operator to compare different data types <small>(updated in v5.10.1)</small>', 'experimental::smartmatch'],
+                       ['<code>given</code>', 'switch statement to smart-match with <code>when</code>/<code>default</code>', 'experimental::smartmatch'],

                        ['<code>/(?&lt;name>)/</code>', 'named capture buffers into <code>%+</code>'],
                        ['<code>s/keep\K//</code>', 'floating positive lookbehind, efficient alternative for <code>s/(keep)/$1/</code>'],
                        ['<code>/\v/, /\h/</code>', 'vertical and horizontal whitespace escapes'],
                        ['<code>/(?&lt;name>)/</code>', 'named capture buffers into <code>%+</code>'],
                        ['<code>s/keep\K//</code>', 'floating positive lookbehind, efficient alternative for <code>s/(keep)/$1/</code>'],
                        ['<code>/\v/, /\h/</code>', 'vertical and horizontal whitespace escapes'],

-                       ['<code>my $_</code>', 'lexically scoped version of the default variable'],
+                       ['<code>my $_</code>', 'lexically scoped version of the default variable', 'experimental::lexical_topic'],

                ],
                release => '2007-12-18',
                distro => {
                ],
                release => '2007-12-18',
                distro => {


@@ -73,7 +73,7 @@ use utf8;
                        ['<code>use 5.012</code>', 'Implicit <code>strict</code> if use VERSION >= v5.12'],
                        ['<code>… when</code>', '<code>when</code> is now allowed to be used as a statement modifier'],
                        [q(<code>use overload 'qr'</code>), 'customisable conversion to regular expressions'],
                        ['<code>use 5.012</code>', 'Implicit <code>strict</code> if use VERSION >= v5.12'],
                        ['<code>… when</code>', '<code>when</code> is now allowed to be used as a statement modifier'],
                        [q(<code>use overload 'qr'</code>), 'customisable conversion to regular expressions'],

-                       ['<code>/\N/</code>', 'inverse \n to match any character except newline regardless of <code>/s</code>'],
+                       ['<code>/\N/</code>', 'inverse \n to match any character except newline regardless of <code>/s</code>', v5.18],

                ],
                release => '2010-04-12',
                unicode => '5.2',
                ],
                release => '2010-04-12',
                unicode => '5.2',


@@ -86,9 +86,9 @@ use utf8;
                new => [
                        ['<code>s///r</code>', 'non-destructive substitution'],
                        ['<code>/(?^)/</code>', 'construct to reset to default modifiers'],
                new => [
                        ['<code>s///r</code>', 'non-destructive substitution'],
                        ['<code>/(?^)/</code>', 'construct to reset to default modifiers'],

-                       ['<code>/(?{ m() })/</code>', 'regular expressions can be nested in <code>/(?{})/</code> and <code>/(??{})/</code>'],
+                       ['<code>/(?{ m() })/</code>', 'regular expressions can be nested in <code>/(?{})/</code> and <code>/(??{})/</code>', v5.20],

                        ["<code>use re '/flags'</code>", 'customise default modifiers'],
                        ["<code>use re '/flags'</code>", 'customise default modifiers'],

-                       ['<code>each $ref</code> e.a.', 'array and hash container functions accept references'],
+                       ['<code>each $ref</code> e.a.', 'array and hash container functions accept references', ''],

                        ['<code>FH->method</code>', 'filehandle method calls load IO::File on demand (eg. <code>STDOUT->flush</code>)'],
                ],
                release => '2011-05-14',
                        ['<code>FH->method</code>', 'filehandle method calls load IO::File on demand (eg. <code>STDOUT->flush</code>)'],
                ],
                release => '2011-05-14',


@@ -115,8 +115,8 @@ use utf8;
        v5.18 => {
                new => [
                        ['<code>${^LAST_FH}</code>', 'last read filehandle (used by <code>$.</code>)'],
        v5.18 => {
                new => [
                        ['<code>${^LAST_FH}</code>', 'last read filehandle (used by <code>$.</code>)'],

-                       ['<code>/(?[ a + b ])/</code>', 'regex set operations (character substraction <code>-</code>, unions <code>&amp;</code>)'],
-                       ['<code>my sub</code>', 'lexical subroutines (also <code>state</code>, <code>our</code>)'],
+                       ['<code>/(?[ a + b ])/</code>', 'regex set operations (character substraction <code>-</code>, unions <code>&amp;</code>)', 'experimental::regex_sets'],
+                       ['<code>my sub</code>', 'lexical subroutines (also <code>state</code>, <code>our</code>)', 'experimental::lexical_subs'],

                        ['<code>next $expression</code>', 'loop controls allow runtime expressions'],
                        [q(<code>no warnings 'experimental::…'</code>), 'mechanism for experimental features, as of now required for smartmatch'],
                ],
                        ['<code>next $expression</code>', 'loop controls allow runtime expressions'],
                        [q(<code>no warnings 'experimental::…'</code>), 'mechanism for experimental features, as of now required for smartmatch'],
                ],


@@ -126,9 +126,9 @@ use utf8;
 
        v5.20 => {
                new => [
 
        v5.20 => {
                new => [

-                       ['<code>sub ($var)</code>', 'subroutine signatures'],
+                       ['<code>sub ($var)</code>', 'subroutine signatures', 'experimental::signatures'],

                        ['<code>%hash{…}</code>', 'hash slices return key+value pairs'],
                        ['<code>%hash{…}</code>', 'hash slices return key+value pairs'],

-                       ['<code>[]->@*</code>', 'postfix dereferencing (also e.g. <code>$scalar->$*</code> for <code>$$scalar</code>)'],
+                       ['<code>[]->@*</code>', 'postfix dereferencing (also e.g. <code>$scalar->$*</code> for <code>$$scalar</code>)', 'experimental::postderef'],

                        [q(<code>use warnings 'once'; $a</code>), 'variables $a and $b are exempt from <em>used once</em> warnings'],
                ],
                unicode => '6.3',
                        [q(<code>use warnings 'once'; $a</code>), 'variables $a and $b are exempt from <em>used once</em> warnings'],
                ],
                unicode => '6.3',

diff --git a/perl.plp b/perl.plp
index 56904e107717ff6abe4383107880848e3a2a6400..f4360c5928332f6aecfa5a0d554ddcab163aa33c 100644 (file)
--- a/perl.plp
+++ b/perl.plp
@@ -28,7 +28,13 @@ for my $vernum (reverse sort keys %{$info}) {
 
        print '<div class="section">'."\n";
        printf '<h2>%vd <small>%s</small></h2><dl>'."\n", $vernum, $verrow->{release};
 
        print '<div class="section">'."\n";
        printf '<h2>%vd <small>%s</small></h2><dl>'."\n", $vernum, $verrow->{release};

-       printf '<dt>%s<dd>%s'."\n", @{$_}, '<br/>' for @{ $verrow->{new} };
+       for (@{ $verrow->{new} }) {
+               if (my $aside = defined $_->[2] && 'experimental') {
+                       $aside .= sprintf ' until %vd', $_->[2] if ref \$_->[2] eq 'VSTRING';
+                       $_->[1] .= qq{ <em class="ex">($aside)</em>};
+               }
+               printf '<dt>%s<dd>%s'."\n", @{$_}, '<br/>'
+       }

        printf '<dt>Unicode</dt><dd>v%s'."\n", $_ for $verrow->{unicode} || ();
        print "</dl>\n";
        print "</div>\n\n";
        printf '<dt>Unicode</dt><dd>v%s'."\n", $_ for $verrow->{unicode} || ();
        print "</dl>\n";
        print "</div>\n\n";