Changeset 21951 for src/perl6

Timestamp:

08/19/08 21:09:58 (3 months ago)

Author:

lwall

Message:

[gimme5] treat whitespace before optional | as insignificant
[STD] allow anonymous sigil on simple var declarations
[STD] allow post constraints on simple var declarations
[teststd] don't report on failures if no failures

Location:

src/perl6

Files:

• STD.pm (modified) (8 diffs)
• gimme5 (modified) (3 diffs)
• teststd (modified) (1 diff)

src/perl6/STD.pm

@@ -11 +11 @@
 # random rule for debugging, please ignore
 token foo {
-   'foo' 'bar' 'baz'
+   'foo' <.ws> 'bar' <.ws> 'baz'
 }
 
@@ -436 +436 @@
 token unv {
    | \h+                 {*}                                    #= hwhite
-   | <?before '='> ^^ :: <.pod_comment>  {*}                    #= pod
-   | \h* '#' :: [
-         |  <?opener> ::
+   | <?before '='> ^^ <.pod_comment>  {*}                    #= pod
+   | \h* '#' [
+         |  <?opener>
             [ <!after ^^ . > || <.panic: "Can't use embedded comments in column 1"> ]
             <.quibble($¢.cursor_fresh( ::STD::Q ))>   {*}                               #= embedded
@@ -1094 +1094 @@
         ]*
     ]?
+    <.ws>
 
     <trait>*
-    <.ws>
+
+    <post_constraint>*
+
     [
     | '=' <.ws> <EXPR( ($<sigil> // '') eq '$' ?? item %item_assignment !! item %list_prefix )>
@@ -1110 +1113 @@
     | <fulltypename>+ <multi_declarator>
     | <multi_declarator>
-    | <?before <[A..Z]> > <name> <.panic("Apparent type name " ~ $<name>.text ~ " is not declared yet")>
+#    | <?before <[A..Z]> > <name> <.panic("Apparent type name " ~ $<name>.text ~ " is not declared yet")>
     ]
 }
@@ -1512 +1515 @@
         # Note: $() can also parse as contextualizer in an expression; should have same effect
         | <sigil> <?before '<' | '('> <postcircumfix> {*}           #= $()
+        | <sigil> <?{ $+IN_DECL }> {*}                              #= anondecl
         ]
     ]
@@ -1809 +1813 @@
     [ <!before <stopper> >
         [
-        || <starter> :: <nibbler> <stopper>
+        || <starter> <nibbler> <stopper>
                         {
                             my $n = $<nibbler>[*-1]<nibbles>;
@@ -1817 +1821 @@
                             push @nibbles, @n;
                         }
-        || <escape>   :: {
+        || <escape>   {
                             push @nibbles, $text, $<escape>;
                             $text = '';
                         }
-        ||            :: .
+        || .
                         {{
                             my $ch = substr($$buf, $¢.pos-1, 1);
@@ -3475 +3479 @@
         :my $ignorecase is context<rw> = $+ignorecase // 0;
         :my $ignoreaccent    is context<rw> = $+ignoreaccent    // 0;
-        < || | && & >?
+        [ \s* < || | && & > ]?
         <EXPR>
     }

src/perl6/gimme5

@@ -961 +961 @@
     my $min = 1_000_000_000;
 
-    s/^\|\|//;
+    s/^\s*\|\|//;
 
     do {
@@ -1015 +1015 @@
     my $name = $ALTNAME;
 
-    s/^ \| (?!\|) //x;
+    s/^ \s*\| (?!\|) //x;
 
     do {
@@ -2227 +2227 @@
                 substr(<<"END",0,-1);
 do {
-    if (my (\$C) = ($outer)[0]) {
+    if (my (\$C) = ($outer)) {
 $in;
     }

src/perl6/teststd

@@ -25 +25 @@
 
 printf "Passed $success/$total, %6.2f%%\n", $success/$total * 100;
-print "Failed tests:\n";
-for my $file (@failed) {
-    print "$file\n";
+if (@failed) {
+    print "Failed tests:\n";
+    for my $file (@failed) {
+        print "$file\n";
+    }
 }