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

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

From:
pmichaud
Date:
May 7, 2008 16:54
Subject:
[svn:parrot] r27389 - trunk/tools/dev
Author: pmichaud
Date: Wed May  7 16:54:50 2008
New Revision: 27389

Modified:
   trunk/tools/dev/mk_language_shell.pl

Log:
[pge]:
* Update tools/dev/mk_language_shell.pl to use <foo: 'bar'> syntax.


Modified: trunk/tools/dev/mk_language_shell.pl
==============================================================================
--- trunk/tools/dev/mk_language_shell.pl	(original)
+++ trunk/tools/dev/mk_language_shell.pl	Wed May  7 16:54:50 2008
@@ -325,7 +325,7 @@
 
 rule TOP {
     <statement>*
-    [ $ || <panic: Syntax error> ]
+    [ $ || <panic: 'Syntax error'> ]
     {*}
 }
 
@@ -349,7 +349,7 @@
 rule integer { \d+ {*} }
 
 rule quote {
-    [ \' <string_literal: '> \' | \" <string_literal: "> \" ]
+    [ \' <string_literal: '\'' > \' | \" <string_literal: '"' > \" ]
     {*}
 }
 



Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About