started modules for printing dictionary contents for a database

lib/src/translator/Dataview.hs

@@ -0,0 +1,27 @@
+module Dataview where
+
+import Data.List
+
+dataFile :: FilePath -> IO ()
+dataFile file = do
+  wss <- readFile file >>= return . filter (not . null) . map commaSep . lines
+  let d = view2data wss
+  writeFile (file ++ ".tsv") (unlines d)
+
+view2data :: [[String]] -> [String]
+view2data ss = case ss of
+  s:ss2 -> case s of
+    "Dataview":f:_ ->
+      let (s1,s2) = break ((=="Dataview") . head) ss2
+      in [last (words f) ++ sp ++ values l | l <- s1] ++ view2data s2
+    _ -> error (show s)
+  _ -> []
+ where
+   values (w:ws) = concat $ intersperse sp $ map normalize $ case w of {'D':'a':'t':'a':'v':'i':'e':'w':_:_ -> ws  ; _ -> w:ws}
+   sp = "\t"
+
+commaSep :: String -> [String]
+commaSep = lines . map (\c -> if elem c ":," then '\n' else c) . normalize
+
+normalize = unwords . words
+