loop/src/Dodge/Data/Terminal.hs

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}

module Dodge.Data.Terminal where

import Color
import Control.Lens
import Data.Aeson
import Data.Aeson.TH
import qualified Data.Map.Strict as M
import Dodge.Data.WorldEffect

data TerminalStatus = TerminalOff | TerminalBusy | TerminalReady
    deriving Eq
    --deriving (Eq, Ord, Show, Read) --Generic, Flat)

data TerminalInput = TerminalInput
    { _tiText :: String
    , _tiFocus :: Bool
    , _tiSel :: (Int, Int)
    }
    --deriving (Eq, Ord, Show, Read) --Generic, Flat)

data TerminalBootProgram
    = TerminalBootMempty
    | TerminalBootLines [TerminalLine]
    --deriving (Eq, Show, Read) --, Generic)
    --h--deriving (Eq, Show, Read) --Generic, Flat)

data Terminal = Terminal
    { _tmID :: Int
    , _tmBootProgram :: TerminalBootProgram
    , _tmButtonID :: Int
    , _tmMachineID :: Int
    , _tmName :: String
    , _tmDisplayedLines :: [(String, Color)]
    , _tmFutureLines :: [TerminalLine]
    , _tmMaxLines :: Int
    , _tmTitle :: String
    , _tmInput :: TerminalInput
    , _tmScrollCommands :: [TerminalCommand]
    , _tmWriteCommands :: [TerminalCommand]
    , _tmDeathEffect :: TmWdWd -- Terminal -> World -> World
    , _tmStatus :: TerminalStatus
    , _tmCommandHistory :: [String]
    , _tmToggles :: M.Map String TerminalToggle
    , _tmPartialCommand :: Maybe TerminalCommand
    , _tmPromptString :: String
    }
    --deriving (Eq, Show, Read) --, Generic)
    --h--deriving (Eq, Show, Read) --Generic, Flat)

data TerminalLineString = TerminalLineConst String Color
    --deriving (Eq, Ord, Show, Read) --Generic, Flat)

data TmTm
    = TmId
    | TmTmClearDisplayedLines
    | TmTmSetStatus TerminalStatus
    | TmTmSetPartialCommand (Maybe TerminalCommand)
    --deriving (Eq, Ord, Show, Read) --Generic, Flat)

data TerminalLine
    = TerminalLineDisplay
        { _tlPause :: Int
        , _tlString :: TerminalLineString -- World -> (String, Color)
        }
    | TerminalLineTerminalEffect
        { _tlPause :: Int
        , _tlTermEffect :: TmTm -- Terminal -> Terminal
        }
    | TerminalLineEffect
        { _tlPause :: Int
        , _tlEffect :: TmWdWd --Terminal -> World -> World
        }
    --deriving (Eq, Show, Read) --, Generic)
    --h--deriving (Eq, Show, Read) --Generic, Flat)

data TerminalToggle = TerminalToggle
    { _ttTriggerID :: Int
    , _ttDeathEffect :: BlBl
    }
    --deriving (Eq, Ord, Show, Read) --Generic, Flat)

data BlBl
    = BlNegate
    | BlConst Bool
    | BlId
    --deriving (Eq, Ord, Show, Read) --Generic, Flat)

data EffectArguments
    = NoArguments {_cmdEffect :: [TerminalLine]}
    | OneArgument
        { _argType :: String
        , _argList :: M.Map String [TerminalLine]
        }
    --deriving (Eq, Show, Read) --, Generic)
    --h--deriving (Eq, Show, Read) --Generic, Flat)

data TerminalCommandEffect
    = TerminalCommandArguments EffectArguments
    | TerminalCommandEffectDamageCoding
    | TerminalCommandEffectSensorParameter
    | TerminalCommandEffectLinkedObject
    | TerminalCommandEffectHelp
    | TerminalCommandEffectNoArgumentsStr String
    | TerminalCommandEffectCommands
    | TerminalCommandEffectSingleCommand WdWd [String]
    | TerminalCommandEffectNone
    --deriving (Eq, Show, Read) --, Generic)
    --h--deriving (Eq, Show, Read) --Generic, Flat)

data TerminalCommand = TerminalCommand
    { _tcString :: String
    , _tcAlias :: [String]
    , _tcHelp :: String
    , _tcEffect :: TerminalCommandEffect -- Terminal -> World -> EffectArguments
    }
    --deriving (Eq, Show, Read) --, Generic)
    --h--deriving (Eq, Show, Read) --Generic, Flat)

makeLenses ''TerminalInput
makeLenses ''Terminal
makeLenses ''TerminalLine
makeLenses ''TerminalToggle
makeLenses ''EffectArguments
makeLenses ''TerminalCommand
concat <$> mapM (deriveJSON defaultOptions)
    [ ''TerminalStatus
    , ''TerminalInput
    , ''TerminalLineString
    , ''TmTm
    , ''TerminalLine
    , ''TerminalBootProgram
    , ''BlBl
    , ''TerminalToggle
    , ''EffectArguments
    , ''TerminalCommandEffect
    , ''TerminalCommand
    , ''Terminal
    ]