Broken: refactor terminals

src/Dodge/Data/Terminal.hs

@@ -0,0 +1,99 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.Terminal
+    where
+import Dodge.Data.WorldEffect
+import Color
+import Control.Lens
+import qualified Data.Text as T
+import qualified Data.Map.Strict as M
+data TerminalStatus = TerminalOff | TerminalBusy | TerminalReady
+  deriving (Eq,Ord,Show,Read)
+data TerminalInput = TerminalInput
+    { _tiText   :: T.Text
+    , _tiFocus  :: Bool
+    , _tiSel    :: (Int,Int)
+    }
+  deriving (Eq,Ord,Show,Read)
+data TerminalBootProgram = TerminalBootMempty
+    | TerminalBootLines [TerminalLine]
+  deriving (Eq,Ord,Show,Read)
+data Terminal = Terminal
+    { _tmID         :: Int 
+    , _tmBootProgram    :: TerminalBootProgram -- Terminal -> World -> [TerminalLine]
+    , _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
+    }
+  deriving (Eq,Ord,Show,Read)
+data TerminalLineString = TerminalLineConst String Color
+  deriving (Eq,Ord,Show,Read)
+data TmTm = TmId
+    | TmTmClearDisplayedLines
+    | TmTmSetStatus TerminalStatus
+  deriving (Eq,Ord,Show,Read)
+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,Ord,Show,Read)
+data TerminalToggle = TerminalToggle
+    { _ttTriggerID :: Int
+    , _ttDeathEffect :: BlBl
+    }
+  deriving (Eq,Ord,Show,Read)
+data BlBl = BlNegate
+    | BlConst Bool
+    | BlId
+  deriving (Eq,Ord,Show,Read)
+
+data EffectArguments
+    = NoArguments {_cmdEffect :: [TerminalLine]}
+    | OneArgument 
+        {_argType :: String
+        ,_argList :: M.Map String [TerminalLine]
+        }
+  deriving (Eq,Ord,Show,Read)
+
+data TerminalCommandEffect = TerminalCommandArguments EffectArguments 
+    | TerminalCommandEffectDamageCoding
+    | TerminalCommandEffectSensorParameter
+    | TerminalCommandEffectLinkedObject 
+    | TerminalCommandEffectHelp
+    | TerminalCommandEffectNoArgumentsStr String
+    | TerminalCommandEffectCommands
+    | TerminalCommandEffectSingleCommand WdWd [String]
+    | TerminalCommandEffectNone
+  deriving (Eq,Ord,Show,Read)
+
+data TerminalCommand = TerminalCommand
+    { _tcString :: String
+    , _tcAlias  :: [String]
+    , _tcHelp   :: String
+    , _tcEffect :: TerminalCommandEffect -- Terminal -> World -> EffectArguments
+    }
+  deriving (Eq,Ord,Show,Read)
+makeLenses ''Terminal
+makeLenses ''TerminalLine
+makeLenses ''TerminalCommand
+makeLenses ''TerminalInput