diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-02-08 14:05:46 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-02-08 14:05:46 +0000 |
| commit | c9ae662c24d59c323e1bde89efde876d11df1899 (patch) | |
| tree | 37b258f87322537c6cff2bdb286ff58f2925e676 /src/GF | |
| parent | 98b24d0e33e2cb90244773f8ad7d3c4f3f73ecd0 (diff) | |
numeration in treebank
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/UseGrammar/Treebank.hs | 7 |
1 files 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 () |