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

Timestamp:

09/21/06 00:52:34 (2 years ago)

Author:

audreyt

Message:

* Pugs.Prim.Match: Allow selection of PGE instead of PCR by

setting an environment variable, PUGS_REGEX_ENGINE, to "pge"
or "PGE".

Files:

• src/Pugs/Prim/Match.hs (modified) (1 diff)

src/Pugs/Prim/Match.hs

@@ -47 +47 @@
         return (name, text)
     text <- ruleWithAdverbs rule
-    pge  <- liftIO $ evalPCR pwd (encodeUTF8 cs) (encodeUTF8 text) subrules
+    rv   <- liftIO $ fmap (fmap (fmap toUpper)) (getEnv "PUGS_REGEX_ENGINE")
+    let ruleEngine | Just "PGE" <- rv   = evalPGE
+                   | otherwise          = evalPCR
+    pge  <- liftIO $ ruleEngine pwd (encodeUTF8 cs) (encodeUTF8 text) subrules
             `catchIO` (\e -> return $ show e)
     rv  <- tryIO Nothing $ fmap Just (readIO $ decodeUTF8 pge)