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

datatype for bracketed texts, and improved word alignment

Browse Source
This commit is contained in:
aarne
2008-12-16 13:56:23 +00:00
parent 8c7aa2f5bb
commit e32e914703
2 changed files with 44 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/PGF/Linearize.hs
View File

@@ -146,11 +146,10 @@ linTreeMark pgf lang = lin []
R ts -> R $ map (mark p) ts
FV ts -> R $ map (mark p) ts
S ts -> S $ bracket p ts
K s -> S $ bracketw p [t]
K s -> S $ bracket p [t]
W s (R ts) -> R [mark p $ kks (s ++ u) | K (KS u) <- ts]
_ -> t
-- otherwise in normal form
bracket p ts = [kks ("("++show p)] ++ ts ++ [kks ")"]
bracketw p ts = [kks ("{"++show p)] ++ ts ++ [kks "}"] -- for easy word alignment
sub p i = p ++ [i]