GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-06-12 03:20:12 -06:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
aarne
2009-03-18 12:49:46 +00:00
parent 20d6d7372f
commit ba2c0a7b02
3 changed files with 24 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Text/Lexing.hs
View File

@@ -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 =