{-
	Keyboard functionality and settings
	HGamer3D Library (A project to enable 3D game development in Haskell)
	Copyright 2015 Peter Althainz
	
	Distributed under the Apache License, Version 2.0
	(See attached file LICENSE or copy at 
	http://www.apache.org/licenses/LICENSE-2.0)
 
	file: HGamer3D/Input/Keyboard.hs
-}

-- | Module providing the keyboard functionality and settings
module HGamer3D.Input.Keyboard
where

import Fresco
import Data.Binary.Serialise.CBOR
import Data.Binary.Serialise.CBOR.Encoding
import Data.Binary.Serialise.CBOR.Decoding

import Data.Text
import Data.Monoid
import Control.Applicative

import Debug.Trace

data KeyData = KeyData {
    keyDataKey::Int,
    keyDataScancode::Int,
    keyDataName::Text
    } deriving (Eq, Read, Show)

data KeyEvent = NoKeyEvent
    | KeyUpEvent KeyData
    | KeyDownEvent KeyData
    deriving (Eq, Read, Show)

ctKeyEvent :: ComponentType KeyEvent
ctKeyEvent = ComponentType 0x07995a794e698f4b

instance Serialise KeyData where
    encode (KeyData v1 v2 v3) = encodeListLen 3 <> encode v1 <> encode v2 <> encode v3
    decode = decodeListLenOf 3 >> KeyData <$> decode <*> decode <*> decode

instance Serialise KeyEvent where
    encode (NoKeyEvent) = encodeListLen 1 <>  encode (0::Int) 
    encode (KeyUpEvent v1) = encodeListLen 2 <>  encode (1::Int) <> encode v1
    encode (KeyDownEvent v1) = encodeListLen 2 <>  encode (2::Int) <> encode v1
    decode = do
        decodeListLen
        i <- (decode :: Decoder s Int) 
        case i of
            0 -> (pure NoKeyEvent)
            1 -> (KeyUpEvent <$> decode)
            2 -> (KeyDownEvent <$> decode)