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

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

From:
pmichaud
Date:
December 20, 2008 06:18
Subject:
[svn:parrot] r34144 - trunk/languages/perl6/src/parser
Message ID:
20081220141811.B1163CBA12@x12.develooper.com
Author: pmichaud
Date: Sat Dec 20 06:18:11 2008
New Revision: 34144

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

Log:
[rakudo]:  Recognize more unicode bracketing characters in quotes.


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 06:18:11 2008
@@ -9,7 +9,8 @@
     .param string target
     .param int pos
     .local string brackets, start, stop
-    brackets = unicode:"<>[](){}\xab\xbb"
+    brackets = unicode:"<>[](){}\xab\xbb\u0f3a\u0f3b\u0f3c\u0f3d\u169b\u169c\u2045\u2046\u207d\u207e\u208d\u208e\u2329\u232a\u2768\u2769\u276a\u276b\u276c\u276d\u276e\u276f\u2770\u2771\u2772\u2773\u2774\u2775\u27c5\u27c6\u27e6\u27e7\u27e8\u27e9\u27ea\u27eb\u2983\u2984\u2985\u2986\u2987\u2988\u2989\u298a\u298b\u298c\u298d\u298e\u298f\u2990\u2991\u2992\u2993\u2994\u2995\u2996\u2997\u2998\u29d8\u29d9\u29da\u29db\u29fc\u29fd\u3008\u3009\u300a\u300b\u300c\u300d\u300e\u300f\u3010\u3011\u3014\u3015\u3016\u3017\u3018\u3019\u301a\u301b\u301d\u301e\ufd3e\ufd3f\ufe17\ufe18\ufe35\ufe36\ufe37\ufe38\ufe39\ufe3a\ufe3b\ufe3c\ufe3d\ufe3e\ufe3f\ufe40\ufe41\ufe42\ufe43\ufe44\ufe47\ufe48\ufe59\ufe5a\ufe5b\ufe5c\ufe5d\ufe5e\uff08\uff09\uff3b\uff3d\uff5b\uff5d\uff5f\uff60\uff62\uff63"
+
     start = substr target, pos, 1
     stop = start
     $I0 = index brackets, start



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