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

numeration in treebank

Browse Source
This commit is contained in:
aarne
2006-02-08 14:05:46 +00:00
parent 91c50eae38
commit a1e79f3634
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/GF/UseGrammar/Treebank.hs
View File

@@ -33,17 +33,18 @@ import qualified GF.Grammar.Abstract as A
-- | the main function -- | the main function
mkTreebank :: Options -> ShellState -> String -> [A.Tree] -> IO () 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 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) mkTree t = putInXML opts "tree" [] (putStrLn $ showTree t)
mkLin t lg = putInXML opts "lin" (lang lg) (putStrLn $ linearize sh lg t) mkLin t lg = putInXML opts "lin" (lang lg) (putStrLn $ linearize sh lg t)
langs = [prt_ l | l <- allLanguages sh] langs = [prt_ l | l <- allLanguages sh]
comm = "" --- " command=" ++ show com +++ "abstract=" ++ show abstr comm = "" --- " command=" ++ show com +++ "abstract=" ++ show abstr
abstr = "" --- "Abs" ---- abstr = "" --- "Abs" ----
cat = "" --- " cat=" ++ show "S" ---- cat i = " number=" ++ show (show i) --- " cat=" ++ show "S" ----
lang lg = " lang=" ++ show (prt_ (zIdent lg)) lang lg = " lang=" ++ show (prt_ (zIdent lg))
tris = zip trees [1..]
putInXML :: Options -> String -> String -> IO () -> IO () putInXML :: Options -> String -> String -> IO () -> IO ()