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

[svn:parrot] r34138 - trunk/languages/perl6/src/parser

From:
pmichaud
Date:
December 20, 2008 03:55
Subject:
[svn:parrot] r34138 - trunk/languages/perl6/src/parser
Message ID:
20081220115533.220C4CBA12@x12.develooper.com
Author: pmichaud
Date: Sat Dec 20 03:55:28 2008
New Revision: 34138

Modified:
   trunk/languages/perl6/src/parser/quote_expression.pir

Log:
[rakudo]:  Change \d[...] to \c[...] to comply with S02 change.


Modified: trunk/languages/perl6/src/parser/quote_expression.pir
==============================================================================
--- trunk/languages/perl6/src/parser/quote_expression.pir	(original)
+++ trunk/languages/perl6/src/parser/quote_expression.pir	Sat Dec 20 03:55:28 2008
@@ -401,7 +401,7 @@
     if backchar == stop1 goto add_backchar
     unless optb goto add_litchar
     ##  handle :b options
-    $I0 = index "0abefnrtxdo123456789", backchar
+    $I0 = index "0abefnrtxco123456789", backchar
     if $I0 < 0 goto add_backchar
     if $I0 >= 11 goto fail_backchar_digit
     if $I0 >= 8 goto scan_xdo
@@ -426,13 +426,13 @@
     goto scan_loop
 
   scan_xdo:
-    ##  handle \x, \d, and \o escapes.  start by converting
+    ##  handle \x, \c, and \o escapes.  start by converting
     ##  the backchar into 8, 10, or 16 (yes, it's a hack
     ##  but it works).  Then loop through the characters
     ##  that follow to compute the decimal value of codepoints,
     ##  and add the codepoints to our literal.
     .local int base, decnum, isbracketed
-    base = index '        o d     x', backchar
+    base = index '        o c     x', backchar
     decnum = 0
     pos += 2
     $S0 = substr target, pos, 1



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