On Wed, 1 May 2002 07:00:05 -0700, jhi(_at_)iki(_dot_)fi (Jarkko Hietaniemi)
wrote:
Change 16302 by jhi(_at_)alpha on 2002/05/01 12:54:24
Provide the \N{U+HHHH} syntax before we forget.
Do we also want to support U-HHHHHH? I seem to recall from somewhere
that U+HHHH went to U+FFFF and that code points beyond that were
U-HHHHHHHH (i.e. U+ form took 4 hex chars and U- form took 8 hex chars,
or something like that.)
+ return chr hex $1 if $arg =~ /^U\+([0-9a-fA-F]+)$/;
It would be a simple matter of replacing \+ with [-+] .
Not world-shaking, just asking a question.
==== //depot/perl/toke.c#431 (text) ====
Index: perl/toke.c
--- perl/toke.c.~1~ Wed May 1 07:00:05 2002
+++ perl/toke.c Wed May 1 07:00:05 2002
@@ -1540,6 +1540,16 @@
e = s - 1;
goto cont_scan;
}
+ if (e > s + 2 && s[1] == 'U' && s[2] == '+') {
Oh, I suppose this would have to be changed to '&& (s[2] == '+' || s[2]
== '-')', too.
Cheers,
Philip
