module Main (main) where

import Parser
import Lexer
import Data.Char

main = getContents >>= putStrLn . serialize . Parser.parse . Lexer.lex

type XML = String

serialize :: From -> XML
serialize (From mailboxList) = "<From>" ++ serializeMailboxList mailboxList ++ "</From>"

serializeMailboxList :: MailboxList -> XML
serializeMailboxList [] = ""
serializeMailboxList (x:xs) = serializeMailboxList xs ++ "<Mailbox>" ++ serializeMailbox x ++ "</Mailbox>"

serializeMailbox :: Mailbox -> XML
serializeMailbox (LongMailbox displayName angleAddress) = serializeDisplayName displayName ++ serializeAngleAddress angleAddress
serializeMailbox (AngleMailbox angleAddress) = serializeAngleAddress angleAddress
serializeMailbox (ShortMailbox addressSpecification) = serializeAddressSpecification addressSpecification

serializeDisplayName :: DisplayName -> XML
serializeDisplayName (DisplayName s) = "<DisplayName>" ++ s ++ "</DisplayName>"

serializeAngleAddress :: AngleAddress -> XML
serializeAngleAddress (AngleAddress s) = "<Address>" ++ s ++ "</Address>"

serializeAddressSpecification :: AddressSpecification -> XML
serializeAddressSpecification (AddressSpecification s) = "<Address>" ++ s ++ "</Address>"