From a1e79f3634f062d03385f57cbd1106e48d7ed54d Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 8 Feb 2006 14:05:46 +0000 Subject: [PATCH] numeration in treebank --- src/GF/UseGrammar/Treebank.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/GF/UseGrammar/Treebank.hs b/src/GF/UseGrammar/Treebank.hs index 667c323f6..838e23597 100644 --- a/src/GF/UseGrammar/Treebank.hs +++ b/src/GF/UseGrammar/Treebank.hs @@ -33,17 +33,18 @@ import qualified GF.Grammar.Abstract as A -- | the main function mkTreebank :: Options -> ShellState -> String -> [A.Tree] -> IO () -mkTreebank opts sh com trees = putInXML opts "treebank" comm(mapM_ mkItem trees) +mkTreebank opts sh com trees = putInXML opts "treebank" comm(mapM_ mkItem tris) where - mkItem t = putInXML opts "item" cat (mkTree t >>mapM_ (mkLin t) langs) + mkItem(t,i)= putInXML opts "item" (cat i) (mkTree t >>mapM_ (mkLin t) langs) mkTree t = putInXML opts "tree" [] (putStrLn $ showTree t) mkLin t lg = putInXML opts "lin" (lang lg) (putStrLn $ linearize sh lg t) langs = [prt_ l | l <- allLanguages sh] comm = "" --- " command=" ++ show com +++ "abstract=" ++ show abstr abstr = "" --- "Abs" ---- - cat = "" --- " cat=" ++ show "S" ---- + cat i = " number=" ++ show (show i) --- " cat=" ++ show "S" ---- lang lg = " lang=" ++ show (prt_ (zIdent lg)) + tris = zip trees [1..] putInXML :: Options -> String -> String -> IO () -> IO ()