msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Tense to Common ; Idiom ; Text

Browse Source
This commit is contained in:
aarne
2006-02-20 22:11:57 +00:00
parent 4e574703de
commit 13672549f8
2 changed files with 3 additions and 1 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

2
src/GF/UseGrammar/Treebank.hs
View File

@@ -110,6 +110,6 @@ linearize mgr lang =
linTree2string noMark (canModules mgr) (zIdent lang)
where
sgr = stateGrammarOfLangOpt False mgr (zIdent lang)
untok = customOrDefault noOptions useUntokenizer customUntokenizer sgr
untok = customOrDefault (stateOptions sgr) useUntokenizer customUntokenizer sgr
showTree t = prt_ $ tree2exp t