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

Tense to Common ; Idiom ; Text

Browse Source
This commit is contained in:
aarne
2006-02-20 22:11:57 +00:00
parent b6957f4e41
commit e0dc7034ac
39 changed files with 255 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -71,6 +71,7 @@ formatAsTextGen tag para = unwords . format . cap . words where
w : c : ww | major c -> format $ (w ++ c) :(cap ww)
w : c : ww | minor c -> format $ (w ++ c) : ww
p : c : ww | openp p -> format $ (p ++ c) :ww
p : c : ww | spanish p -> format $ (p ++ concat (cap [c])) :ww
c : ww | para c -> "\n\n" : format ww
w : ww -> w : format ww
[] -> []
@@ -81,6 +82,7 @@ formatAsTextGen tag para = unwords . format . cap . words where
major = flip elem (map singleton ".!?")
minor = flip elem (map singleton ",:;)")
openp = all (flip elem "(")
spanish = all (flip elem "¡¿")
formatAsCode :: String -> String
formatAsCode = rend 0 . words where