flag -env=quotes (and possible other flags) to restrict ps

2009-03-18 12:49:46 +00:00
parent 20d6d7372f
commit ba2c0a7b02
3 changed files with 24 additions and 6 deletions
--- a/src/GF/Text/Lexing.hs
+++ b/src/GF/Text/Lexing.hs
@@ -29,6 +29,8 @@ stringOp name = case name of
  "from_cp1251" -> Just decodeCP1251
  _ -> transliterate name

+-- perform op in environments beg--end, t.ex. between "--"
+--- suboptimal implementation
 opInEnv :: String -> String -> (String -> String) -> (String -> String)
 opInEnv beg end op = concat . altern False . chop (lbeg, beg) [] where
  chop mk@(lg, mark) s0 s =