Re^4: Generate the perl sequence 1, 11, 111, ....

[moritz]

in reply to Re^3: Generate the perl sequence 1, 11, 111, ....
in thread Generate the perl sequence 1, 11, 111, ....

Use the source, Luke.

regex prefix_circumfix_meta_operator:reduce (--> List_prefix) {
    $<s> = (
        '['
        [
        | <op=infix> ']' ['«'|<?>]
        | <op=infix_prefix_meta_operator> ']' ['«'|<?>]
        | <op=infix_circumfix_meta_operator> ']' ['«'|<?>]
        | \\<op=infix> ']' ['«'|<?>]
        | \\<op=infix_prefix_meta_operator> ']' ['«'|<?>]
        | \\<op=infix_circumfix_meta_operator> ']' ['«'|<?>]
        ]
    ) <?before \s | '(' >
...

So [\ is really a handled specially.

Or if you're not inclined to read the source, you can examine the match tree:

$ cat test.t 
[\~] 1..3
$ perl5.10.0 STD5_dump_match test.t 
comp_unit:
 statementlist:
  statement:
   EXPR:
    left:
     pre:
      prefix_circumfix_meta_operator:
       [\
       op:
        ~
       ]
       
     noun:
      value:
       number:
        integer:
         1
    infix:
     ..
    right:
     noun:
      value:
       number:
        integer:
         3
     \n

The output in a terminal is coloured, and much better readable. Basically you see that [\ is matched as a prefix_circumfix_meta_operator with the op: ~

[TimToady]

Note however that the main reason those are handled separately is to deal with certain limitations in the autolexer. There's no reason the underlying reductions can't share most of their code, except for the bit that decides whether to return partial results.

[blazar]

Or if you're not inclined to read the source, you can examine the match tree:

I personally believe that this would indeed better be the case. Actually, I have eventually obtained an account on feather courtesy of Juerd and I wanted to experiment there. But I'm stuck again: what package is the STD5_dump_match script supposed to be part of, and where can I find it to the point of trying it myself? I presume that it's pugs. But then I expected to find it somewhere in ~audreyt/pugs given that the pugs executable itself on that machine is a link into that directory - however that doesn't seem to be the case. Or it may be a matter of permissions; whatever: any idea?

Sorry for being so dumb: if nothing else I hope this may help some other people out there!

[moritz]

Sorry to the OP for going so far off-topic...

You need to grab a copy of the pugs repository. In that repo you'll find the directory src/perl6/, in which you can find STD.pm and STD5_dump_match.

(If you take somebody else's checkout of the pugs repository please copy the perl6/ folder to your home directory, because you need write accessing for the lex cache).

In that dir, type make, then you can use perl STD5_dump_match $file to print out a match tree.

(You need a perl 5.10.0 in /usr/local/perl to run this, along with a few modules like re::engine::TRE, JSON::XS and Moose. I'll try to install all the dependencies on feather now.)