diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-12-13 20:19:37 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-12-13 20:19:37 +0000 |
| commit | 3e293ae3e0b9664fadb118d013563be52f0e5885 (patch) | |
| tree | 2921df5a86643d38a4dbe80e8d41d882e3a01691 /src/PGF/ShowLinearize.hs | |
| parent | 6e511e5fbddf3f388ff16c45030e2db470029758 (diff) | |
bracketing with tree node reference: l -bracket
Diffstat (limited to 'src/PGF/ShowLinearize.hs')
| -rw-r--r-- | src/PGF/ShowLinearize.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/PGF/ShowLinearize.hs b/src/PGF/ShowLinearize.hs index 87538201c..26fddd6c2 100644 --- a/src/PGF/ShowLinearize.hs +++ b/src/PGF/ShowLinearize.hs @@ -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)])] |