module TersmuIRC (onelineParse) where

import ParseText (parseText)

import JboParse (evalText, evalStatement)

import JboSyntax

import ParseM (ParseStateM, evalParseStateM)

import JboShow

import Logic

import Bindful

import Morph

import Control.Monad.State

import Control.Monad.Identity

import Control.Applicative

import Data.Map (Map)

import qualified Data.Map as Map

import Data.List

import Data.Char

import Data.Either

onelineParse :: Bool -> String -> String

onelineParse jbo s =

case morph s of

Left errpos ->

"Morphology error at " ++ show errpos

Right text ->

evalParseStateM $ showParsedText jbo text $ parseText text

showParsedText :: Bool -> String -> Either Int Text -> ParseStateM String

showParsedText jbo s (Right text) = do

jboText <- mapStateT (return.runIdentity) $ JboParse.evalText text

return $ onelinify jbo $ evalBindful $ logjboshow jbo jboText

showParsedText jbo s (Left pos) = return $ "Parse error at " ++ show pos

onelinify :: Bool -> String -> String

onelinify jbo "" = ""

onelinify jbo ('\n':cs) = (if jbo then " " else "; ") ++ onelinify jbo cs

onelinify jbo (c:cs) = c:onelinify jbo cs