module Main where

import Util
import Data.List as List
import Data.Char as Char
import qualified Data.Set as Set

main = do s <- getContents
          putStr $ amp $ xml $ concat $ map process $ map untab (lines s)

amp = concat . map f 
 where f '&' = "&amp;"
       f c = [c]

xml :: String -> String
xml s = concat 
        [
         "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n",
         "<Lexicon>\n",
         s,
         "</Lexicon>\n"
        ]

process :: [String] -> String
process (frame:fr_st:fr_domain:fr_example:fe_core_list:fe_noncore_list:fe_cmp_List:fe_cmp_example:lus_saldo:lus_new:notes:created_by:createDate:modifDate) =
    concat [
      unlines [
       " <LexicalEntry>",
       "  <saldo>" ++ l ++ "</saldo>",
       "  <frame>" ++ frame ++ "</frame>",
       " </LexicalEntry>"] | l <- words (replaces lus_saldo)]
process _ = ""

trim = unwords . words

abbr a c = if a == c then "" else " abbr=\"" ++ a ++ "\""

markup [] = []
markup ('[':s) = case span (/= ' ') s of
                   (tag,(_:s')) -> "<m name=\"" ++ tag ++ "\">" ++ markup s'
                   _            -> s
markup (']':s) = "</m>" ++ markup s
markup (x:s) = x:markup s