System.CWiid

Bindings for the cwiid library, a working userspace driver along with various applications implementing event drivers, multiple Wiimote connectivity, gesture recognition, and other Wiimote-based functionality.

The current implementation is rather incomplete. In particular:

• Some Haskell functions (those related to rpt mode, rumble, leds) had hard-coded values in them. Therefore, they implemented only a very partial interface to their C counterparts. The new versions should be tested and, if any other function is like this, then exported properly.
• Not all functions/wiimote fields are accessible. In particular, acceleromoter and IR is in testing stage. Nunchuck, calibration, wiimote plus are not handled at all (but will be in the future).

All in all, the code works quite well and is currently being used to implement several real games.

Initialization

cwiidOpen :: IO (Maybe CWiidWiimote)

Try to establish a connection to any existing Wiimote using any existing bluetooth interface.

The function returns Nothing if there is no bluetooth interface or if no wiimote can be located. If the connection succeeds, a CWiidWiimote is returned (inside a Just), which can be used to poll the wiimote using other functions.

There is a default timeout of 5 seconds.

• TODO: export cwiid_open_time and cwiid_close as well.

data CWiidWiimote

A connection to an existing wiimote. Use cwiidOpen to connect to a wiimote and obtain one of these.

State

data CWiidState

The state of the wiimote. Use cwiidSetRptMode to enable/disable sensors.

• FIXME: incomplete state
• FIXME: export get_state

Constructors

CWiidState

Fields

• rptMode :: Int
• led :: Int
• rumble :: Int
• battery :: Int
• buttons :: Int
• acc :: [Int]
• irSrc :: [CWiidIRSrc]

Instances

Show CWiidState

Methods

showsPrec :: Int -> CWiidState -> ShowS

show :: CWiidState -> String

showList :: [CWiidState] -> ShowS

Storable CWiidState

Methods

sizeOf :: CWiidState -> Int

alignment :: CWiidState -> Int

peekElemOff :: Ptr CWiidState -> Int -> IO CWiidState

pokeElemOff :: Ptr CWiidState -> Int -> CWiidState -> IO ()

peekByteOff :: Ptr b -> Int -> IO CWiidState

pokeByteOff :: Ptr b -> Int -> CWiidState -> IO ()

peek :: Ptr CWiidState -> IO CWiidState

poke :: Ptr CWiidState -> CWiidState -> IO ()

Reception mode

cwiidSetRptMode :: CWiidWiimote -> CUChar -> IO CInt

Enable/disable reception of certain sensors. Use 2 to enable buttons.

Leds

data CWiidLedFlag

Instances

Eq CWiidLedFlag

Methods

(==) :: CWiidLedFlag -> CWiidLedFlag -> Bool

(/=) :: CWiidLedFlag -> CWiidLedFlag -> Bool

Show CWiidLedFlag

Methods

showsPrec :: Int -> CWiidLedFlag -> ShowS

show :: CWiidLedFlag -> String

showList :: [CWiidLedFlag] -> ShowS

cwiidLed1 :: CWiidLedFlag

Flag with exactly led 1 enabled. Use combineCwiidLedFlag to create flags with several leds enabled.

cwiidLed2 :: CWiidLedFlag

Flag with exactly led 2 enabled. Use combineCwiidLedFlag to create flags with several leds enabled.

cwiidLed3 :: CWiidLedFlag

Flag with exactly led 2 enabled. Use combineCwiidLedFlag to create flags with several leds enabled.

cwiidLed4 :: CWiidLedFlag

Flag with exactly led 4 enabled. Use combineCwiidLedFlag to create flags with several leds enabled.

Led operations

cwiidSetLed :: CWiidWiimote -> CWiidLedFlag -> IO CInt

Enable/disable certain leds.

Use cwiidLed1 .. cwiidLed4 together with combineCwiidLedFlag to create a flag with just the leds you want enabled and change all at once with one operation.

combineCwiidLedFlag :: [CWiidLedFlag] -> CWiidLedFlag

Combine several led flags into one led flag with those leds enabled and all other leds disabled.

Rumble

cwiidSetRumble :: CWiidWiimote -> CUChar -> IO CInt

Buttons

cwiidGetBtnState :: CWiidWiimote -> IO CWiidBtnFlag

Returns a mask with the buttons that are currently pushed.

cwiidIsBtnPushed

Arguments

:: CWiidBtnFlag

The button flags as returned by cwiidGetBtnState.

-> CWiidBtnFlag

A mask that flags the button/s that we want to check.

-> Bool

True if they are all pushed, False otherwise.

Returns True if the button indicated by the flag is pushed, False otherwise.

This is a pure function, so the first argument must be the button flags as returned by cwiidGetBtnState.

cwiidBtn2 :: CWiidBtnFlag

cwiidBtn1 :: CWiidBtnFlag

cwiidBtnB :: CWiidBtnFlag

cwiidBtnA :: CWiidBtnFlag

cwiidBtnMinus :: CWiidBtnFlag

cwiidBtnHome :: CWiidBtnFlag

cwiidBtnLeft :: CWiidBtnFlag

cwiidBtnRight :: CWiidBtnFlag

cwiidBtnDown :: CWiidBtnFlag

cwiidBtnUp :: CWiidBtnFlag

cwiidBtnPlus :: CWiidBtnFlag

combineCwiidBtnFlag :: [CWiidBtnFlag] -> CWiidBtnFlag

diffCwiidBtnFlag :: CWiidBtnFlag -> CWiidBtnFlag -> CWiidBtnFlag

newtype CWiidBtnFlag

Constructors

CWiidBtnFlag

Fields

• unCWiidBtnFlag :: Int

Instances

Eq CWiidBtnFlag

Methods

(==) :: CWiidBtnFlag -> CWiidBtnFlag -> Bool

(/=) :: CWiidBtnFlag -> CWiidBtnFlag -> Bool

Show CWiidBtnFlag

Methods

showsPrec :: Int -> CWiidBtnFlag -> ShowS

show :: CWiidBtnFlag -> String

showList :: [CWiidBtnFlag] -> ShowS

Accelerometers

cwiidGetAcc :: CWiidWiimote -> IO CWiidAcc

Obtain accelerometer information. FIXME: read wmgui/main.c:cwiid_acc(1119) to understand how to use this information, what else might need to be exported, and how to calibrate the accelerometers.

newtype CWiidAcc

Array of accelerometer information. It will always contain exactly three elements.

• TODO: provide a more informative and restrictive interface with exactly three named Int (byte?) fields.

Constructors

CWiidAcc

Fields

• unCWiidAcc :: [Int]

Instances

Eq CWiidAcc

Methods

(==) :: CWiidAcc -> CWiidAcc -> Bool

(/=) :: CWiidAcc -> CWiidAcc -> Bool

Show CWiidAcc

Methods

showsPrec :: Int -> CWiidAcc -> ShowS

show :: CWiidAcc -> String

showList :: [CWiidAcc] -> ShowS

Infra-red

data CWiidIRSrc

Internal representation of an infrared point. You should no use it unless you know what you are doing; use CWiidIR instead.

Constructors

CWiidIRSrc

Fields

• cwiidIRSrcValid :: Bool
• cwiidIRSrcPosX :: Int
• cwiidIRSrcPosY :: Int
• cwiidIRSrcSize :: Int

Instances

Show CWiidIRSrc

Methods

showsPrec :: Int -> CWiidIRSrc -> ShowS

show :: CWiidIRSrc -> String

showList :: [CWiidIRSrc] -> ShowS

Storable CWiidIRSrc

Methods

sizeOf :: CWiidIRSrc -> Int

alignment :: CWiidIRSrc -> Int

peekElemOff :: Ptr CWiidIRSrc -> Int -> IO CWiidIRSrc

pokeElemOff :: Ptr CWiidIRSrc -> Int -> CWiidIRSrc -> IO ()

peekByteOff :: Ptr b -> Int -> IO CWiidIRSrc

pokeByteOff :: Ptr b -> Int -> CWiidIRSrc -> IO ()

peek :: Ptr CWiidIRSrc -> IO CWiidIRSrc

poke :: Ptr CWiidIRSrc -> CWiidIRSrc -> IO ()

cwiidGetIR :: CWiidWiimote -> IO [CWiidIRSrc]