develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33556 - trunk/tools/dev

From:
moritz
Date:
December 6, 2008 06:32
Subject:
[svn:parrot] r33556 - trunk/tools/dev
Message ID:
20081206143243.B9FD9CB9AF@x12.develooper.com
Author: moritz
Date: Sat Dec  6 06:32:42 2008
New Revision: 33556

Modified:
   trunk/tools/dev/mk_language_shell.pl

Log:
[tools/dev/mk_language_shell.pl] use tokens for matching literals.
Patch courtesy by Gabriele Renzi, riffraff++. Closes RT #61086


Modified: trunk/tools/dev/mk_language_shell.pl
==============================================================================
--- trunk/tools/dev/mk_language_shell.pl	(original)
+++ trunk/tools/dev/mk_language_shell.pl	Sat Dec  6 06:32:42 2008
@@ -364,9 +364,9 @@
     | <quote> {*}                                #= quote
 }
 
-rule integer { \d+ {*} }
+token integer { \d+ {*} }
 
-rule quote {
+token quote {
     [ \' <string_literal: '\'' > \' | \" <string_literal: '"' > \" ]
     {*}
 }
@@ -535,10 +535,11 @@
 
 __t/00-sanity.t__
 # This just checks that the basic parsing and call to builtin say() works.
-say '1..3';
+say '1..4';
 say 'ok 1';
 say 'ok ', 2;
 say 'ok ', 2 + 1;
+say 'ok', ' ', 4;
 
 __DATA__
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About