This is a proposal for reorganizing some of the current Rakudo NQP code in order to ease maintenance by separating, to the extent possible, grammar and actions pod-only code handling from the rest of the code. The proposal is an interim step toward a future step of a separate slang (sublang) for pod.
The current organization of pertinent parts of the code in the Rakudo repo directory src/Perl6/ looks like this
$ ls -1
Actions.nqp
Grammar.nqp
| # code fragment in rakudo's src/Perl6/Grammar.nqp | |
| token numbered-alias { '#' } | |
| my $*USE-HASH-MARK := 1; # default, means we're free to extract the first '#' in a pod block's data | |
| # inside a pod block, e.g., abbreviated, paragraph, or delimited | |
| # following the configuration, if any | |
| { |
| /usr/bin/perl tools/build/check-nqp-version.pl /usr/local/people/tbrowde/mydata/tbrowde-home-bzr/perl6/perl6-repo-forks/rakudo/install/bin/nqp-m | |
| rm -f -- perl6 | |
| cp -- perl6-m perl6 | |
| chmod -- 755 perl6 | |
| /usr/bin/perl t/harness5 --fudge --moar --keep-exit-code --verbosity=1 t/spec/S32-list/seq.t | |
| t/spec/S32-list/seq.rakudo.moar .. | |
| 1..41 | |
| ok 1 - seq => array works 1 | |
| ok 2 - We didn't flatten the RHS because it's no single argument | |
| ok 3 - Seq stayed intact |
| There are several instances of some old regex syntax in the current rakudo grammar. | |
| From a brief answer by @timotimo, I'm assuming those instances can be changed to: | |
| <tok>**1 [1 use; require one instance of the token?; change to =>] <tok> | |
| <tok>**0..1 [17 uses; require none or one?; change to =>] <tok>? |
| ``` | |
| use v6; | |
| use Test; | |
| plan 46; | |
| my $o; | |
| my $p = -1; | |
| # These tests validate a new specification for S26's abbreviated |
| Given this Perl 5 script which allows a scalar reference | |
| as a hash value: | |
| #!/usr/bin/env perl | |
| my $b = 0; | |
| my %h = ( a => \$b ); | |
| my $b1 = ${$h{a}}; | |
| print "\$b1 = $b1\n"; # output: 0 | |
| $b = 1; | |
| $b1 = ${$h{a}}; |
| example-vim.p6: | |
| #!/usr/bin/env perl6 | |
| say qq:to/HERE/; | |
| Usage: $*PROGRAM-NAME go | |
| Options (this text overhangs desired left margin): | |
| a - something | |
| HERE |
| #|( | |
| This sub does everything including | |
| filling the kitchen sink. It includes: | |
| + knives | |
| + forks | |
| and all kinds of other things. | |
| ) |
| goal: | |
| periodically test all perl6 modules on linux and windows | |
| against latest stable rakudo | |
| against current master branch of rakudo | |
| the modules will be the latest version only | |
| besides running each module's defined tests, each | |
| will be checked for: | |
| a valid and complete META6.json | |
| a travis setup |
| # cat file: lib/Presenters.pm6 | |
| unit module Presenters; | |
| use Grammar::Tracer; | |
| grammar Presenters::PGrammar { | |
| token TOP { | |
| [ | |
| | <entry> | |
| | <blank> | |
| ]+ | |
| } |