Changeset 2948 for src/Pugs/Prim/Match.hs

Timestamp:

05/10/05 22:25:13 (4 years ago)

Author:

corion

svk:copy_cache_prev:

4498

Message:

PCRE matches work with Unicode strings now again

Files:

• src/Pugs/Prim/Match.hs (modified) (3 diffs)

src/Pugs/Prim/Match.hs

@@ -27 +27 @@
         return (name, rxRule rule)
     pge <- liftIO $ evalPGE pwd (encodeUTF8 cs) (encodeUTF8 re) subrules
-    rv  <- tryIO Nothing $ fmap Just (readIO $ decodeUTF8 pge) 
+    rv  <- tryIO Nothing $ fmap Just (readIO $ decodeUTF8 pge)
     let matchToVal PGE_Fail = VMatch mkMatchFail
         matchToVal (PGE_Array ms) = VList (map matchToVal ms)
@@ -43 +43 @@
 
 doMatch cs MkRulePCRE{ rxRegex = re } = do
-    rv <- liftIO $ PCRE.execute re (encodeUTF8 cs) 0
+    rv <- liftIO $ PCRE.execute re csUTF8 0
     if isNothing rv then return mkMatchFail else do
-    let ((from, len):subs) = Array.elems (fromJust rv)
-        substr from len = genericTake len (genericDrop from cs)
+    let ((fromBytes, lenBytes):subs) = Array.elems (fromJust rv)
+        substr from len = genericTake len (genericDrop from cs) -- in bytes
         subsMatch = [ VMatch $ mkMatchOk f (f + t) (substr f t) [] Map.empty | (f, t) <- subs ]
-    return $ mkMatchOk from (from + len) (substr from len) subsMatch Map.empty
+
+        leftmatch = decodeUTF8 $ genericTake fromBytes csUTF8
+        fromChars = genericLength leftmatch
+        lenChars  = genericLength $ decodeUTF8 $ (substr fromBytes lenBytes)
+
+    return $ mkMatchOk fromChars (fromChars + lenChars) (substr fromBytes lenBytes) subsMatch Map.empty
+    where
+    csUTF8 = encodeUTF8 cs
 
 matchFromMR mr = VMatch $ mkMatchOk 0 0 (decodeUTF8 all) subsMatch Map.empty
@@ -131 +138 @@
 rxSplit _  [] = return []
 rxSplit rx str = do
-    match <- str `doMatch` rx 
+    match <- str `doMatch` rx
     if not (matchOk match) then return [str] else do
     if matchFrom match == matchTo match