HGamer3D.Common

Description

Synopsis

• data Component
  • = CTPos
  • | CTOri
  • | CTSiz
  • | CTSca
  • | CTFig
  • | CTASr
  • | CTALs
  • | CTCam
  • | CTLig
  • | CTScP
  • | CTGFo
  • | CTWin
  • | CTCmd
  • | CTEvt
• type Entity = Map Component Dynamic
• (#:) :: Typeable a => Component -> a -> (Component, Dynamic)
• entity :: [(Component, Dynamic)] -> Entity
• (#?) :: Entity -> Component -> Bool
• (#) :: Typeable a => Entity -> Component -> a
• (?#) :: Typeable a => Entity -> Component -> Maybe a
• updateEntity :: Typeable a => Entity -> Component -> (a -> a) -> Entity
• _setComponent :: Typeable a => Entity -> Component -> a -> Entity
• type Listeners = TVar (Map Component [Entity -> Entity -> IO ()])
• addListener :: Listeners -> Component -> (Entity -> Entity -> IO ()) -> IO ()
• clearAllListeners :: Listeners -> IO ()
• fireListeners :: Listeners -> Component -> Entity -> Entity -> IO ()
• data ERef = ERef (TVar Entity) Listeners
• newE :: [(Component, Dynamic)] -> IO ERef
• readE :: ERef -> IO Entity
• updateE :: Typeable a => ERef -> Component -> (a -> a) -> IO ()
• _setE :: Typeable a => ERef -> Component -> a -> IO ()
• sendCmd :: Typeable a => ERef -> a -> IO ()
• sendEvt :: Typeable a => ERef -> a -> IO ()
• regEvtH :: Typeable a => ERef -> (a -> IO ()) -> IO ()
• type ComponentListener = TVar (Maybe (Entity, Entity))
• componentListener :: ERef -> Component -> IO ComponentListener
• queryComponentListener :: ComponentListener -> IO (Maybe (Entity, Entity))
• type OnUpdateFunction = Entity -> Entity -> IO ()
• type OnDeleteFunction = IO ()
• type SystemRecord = (ComponentListener, OnUpdateFunction, OnDeleteFunction)
• type SystemFunction a = a -> ERef -> IO [SystemRecord]
• data SystemData a = SystemData {
  • sdLock :: MVar ()
  • sdNewERefs :: IORef [ERef]
  • sdDelERefs :: IORef [ERef]
  • sdRecords :: [SystemRecord]
  • sdSystem :: a
  • sdSystemFunction :: SystemFunction a
  }
• class System a where
  • initializeSystem :: IO (SystemData a)
  • stepSystem :: SystemData a -> IO Bool
  • addERef :: SystemData a -> ERef -> IO ()
  • removeERef :: SystemData a -> ERef -> IO ()
  • runSystem :: GameTime -> IO (SystemData a)
  • shutdownSystem :: SystemData a -> IO ()
  • stepSystem' :: SystemData a -> IO (SystemData a, Bool)
• data SomeSystem = forall a . System a => SomeSystem (SystemData a)
• (#+) :: [SomeSystem] -> [SomeSystem] -> [SomeSystem]
• addToWorld :: [SomeSystem] -> ERef -> IO ()
• removeFromWorld :: [SomeSystem] -> ERef -> IO ()
• module HGamer3D.Common.FileLocation
• module HGamer3D.Common.UniqueName

Documentation