bracketing with tree node reference: l -bracket

This commit is contained in:
aarne
2008-12-13 20:19:37 +00:00
parent e8898ffd69
commit 10fbaa6dec
3 changed files with 48 additions and 6 deletions

View File

@@ -4,7 +4,8 @@ module PGF.ShowLinearize (
recordLinearize,
termLinearize,
tabularLinearize,
allLinearize
allLinearize,
markLinearize
) where
import PGF.CId
@@ -89,6 +90,10 @@ recLinearize pgf lang tree = mkRecord typ $ linTree pgf lang tree where
termLinearize :: PGF -> CId -> Tree -> String
termLinearize pgf lang = show . linTree pgf lang
-- show bracketed markup with references to tree structure
markLinearize :: PGF -> CId -> Tree -> String
markLinearize pgf lang t = concat $ take 1 $ linearizesMark pgf lang t
-- for Morphology: word, lemma, tags
collectWords :: PGF -> CId -> [(String, [(String,String)])]