[svn:parrot] r38720 - trunk/runtime/parrot/library/PGE

[pmichaud at svn.parrot.org]

Author: pmichaud
Date: Tue May 12 18:23:03 2009
New Revision: 38720
URL: https://trac.parrot.org/parrot/changeset/38720

Log:
[pge]:  Update Perl6Grammar.pir to handle utf8 input a bit better.

Modified:
   trunk/runtime/parrot/library/PGE/Perl6Grammar.pir

Modified: trunk/runtime/parrot/library/PGE/Perl6Grammar.pir
==============================================================================
--- trunk/runtime/parrot/library/PGE/Perl6Grammar.pir	Tue May 12 17:06:40 2009	(r38719)
+++ trunk/runtime/parrot/library/PGE/Perl6Grammar.pir	Tue May 12 18:23:03 2009	(r38720)
@@ -66,7 +66,7 @@
     .local pmc pgc
 
     pgc = compreg 'PGE::Perl6Grammar'
-    pgc.'command_line'(args, 'target'=>'PIR', 'combine'=>1)
+    pgc.'command_line'(args, 'target'=>'PIR', 'combine'=>1, 'transcode'=>'iso-8859-1')
     .return ()
 .end
 
@@ -101,7 +101,8 @@
       | '"' (<-["]>*:) '"'
       | '(' (<-[)]>*:) ')'
       | '<' (<-[>]>*:) '>'
-      | '«' (<-[»]>*:) '»'
+      | \xc2\xab (.*?) \xc2\xbb
+      | \xab (<-[\xbb]>*:) \xbb
       | (\S+)
       ]
       END_ARG_RULE