Re: Perl 6 grammar progress?

[Ashley Winters]

On Sunday 30 June 2002 12:46 pm, Dan Sugalski wrote:
> So, it's been a week or so and, while I'm mostly offline until
> wednesday, I'll ask the question...
>
> How's the work on the perl 6 grammar going? We any further along than
> we were before YAPC?

I don't know how the grammars are going, and I'm not fit to write one myself, 
but I wrote a list of variables I'll try to parse using any grammars which go 
by. Are all of these legal? I suppose that's more of a -language question.

Ashley Winters

# Variable access you will want to parse

# standard variables
$foo;
@foo;
%foo;
&foo;

# need more tests for ${}, I'm not evil enough for it
${foo};

# Apocalypse 3 specifies context characters
*@foo;
$@foo;
&@foo;
*%foo;
*@{foo};    # sanity check

# Also, there are globals to consider
$*foo;
@*foo;
%*foo;
&*foo;
$*{foo};
*@*foo;
$@*foo;
&@*foo;
*%*foo;

# not to mention members
$.foo;
@.foo;
%.foo;
&.foo;
$.{foo};
*@.foo;
$@.foo;
&@.foo;
*%.foo;


# lets test packages at least once
$foo::bar;
@foo::bar::baz;
%foo::bar::baz::blurfl;
&foo::bar::baz::blurfl::aybabtu;

# Now, the hard part. Element access
$foo{1};
$foo[1];
$foo(1);
$foo();
$foo.{1};
$foo.[1];
$foo.(1);
$foo.();

# off the subject, but lets make sure $foo.. is parsed correctly
$foo..1;
$foo..[1];
$.foo..{1};
$foo..(1);
$foo..<$*STDIN>;    # perfectly legal
$foo...bar;         # $foo .. .bar, since there's no binary ...

@foo{1};      # I ass_u_me {} [] and () can be overloaded?
@foo[1];
@foo(1);
@foo();
@.foo{1};
@.foo[1];
@.foo(1);
@.foo();
@foo.{1};
@foo.[1];
@foo.(1);
@foo.();
@.foo.{1};
@.foo.[1];
@.foo.(1);
@.foo.();

# I will just assume if the parser made it this far, <[%$&]> also work

foo{1};         # foo is unary here
foo[1];
foo();
foo.{1};
foo.[1];
foo.();         # Is this &{ foo() }() or foo()? I would vote former
.foo{1};
.foo[1];
.foo();
.foo.{1};
.foo.[1];
.foo.();

# As a final sanity check, lets chain these things

@.proc[$*PID].ps.{RSS};
@proc.[$*PID].ps().{RSS};

# And, just to make sure your parser doesn't pass this suite...

$foo{"Do you want to try $interpolated{"string"}?"};

# Okay, I've had my fun