Changeset 13811 for src/Pugs/Parser/Charnames.hs

Timestamp:

10/03/06 13:28:56 (2 years ago)

Author:

audreyt

Message:

* Charnames.hs: Allow charnames.pm aliases such as \N[LF].

Files:

• src/Pugs/Parser/Charnames.hs (modified) (1 diff)

src/Pugs/Parser/Charnames.hs

@@ -17 +17 @@
 nameToCode name = inlinePerformIO $ do
     envSV   <- mkVal ()
-    sv      <- evalPerl5 ("require charnames; charnames::vianame(qq["++name++"])") envSV 1
+    sv      <- evalPerl5 ("use utf8; use charnames ':full'; ord(qq[\\N{"++name++"}])") envSV 1
     svToVInt sv >>= \iv -> case iv of
         0 -> svToVStr sv >>= \pv -> case pv of