treebanks/susanne/convert.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

import System.Directory
import System.FilePath
import Data.List

import SusanneFormat

main = do
  fs <- getDirectoryContents "data"
  txts <- (mapM (\f -> readFile ("data" </> f)) . filter ((/= ".") . take 1)) (sort fs)
  let ts = filter (not . isBreak) (readTreebank (lines (concat txts)))
  writeFile "text" (unlines (map show ts))

isBreak (Phrase "Oh" [Word _ "YB" "<minbrk>" _]) = True
isBreak _                                        = False