ghcjs-dom-javascript-0.10.0.0: src/GHCJS/DOM/JSFFI/Generated/SerialOptions.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from serial (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.SerialOptions
       (js_newSerialOptions, js_setBaudRate, js_getBaudRate, js_setDataBits, js_getDataBits, js_setStopBits, js_getStopBits, js_setParity, js_getParity, js_setBufferSize, js_getBufferSize, js_setFlowControl, js_getFlowControl, newSerialOptions, setBaudRate, getBaudRate, setDataBits, getDataBits, getDataBitsUnsafe, getDataBitsUnchecked, setStopBits, getStopBits, getStopBitsUnsafe, getStopBitsUnchecked, setParity, getParity, getParityUnsafe, getParityUnchecked, setBufferSize, getBufferSize, getBufferSizeUnsafe, getBufferSizeUnchecked, setFlowControl, getFlowControl, getFlowControlUnsafe, getFlowControlUnchecked, SerialOptions(..), gTypeSerialOptions)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(($1) => { return ({\"baudRate\": $1}); })"
        js_newSerialOptions :: Word -> IO SerialOptions
-- | <https://serial.spec.whatwg.org/#dictdef-serialoptions SerialOptions specification>
newSerialOptions :: (MonadDOM m) => Word -> m SerialOptions
newSerialOptions baudRate = liftDOM ((js_newSerialOptions (baudRate)))

foreign import javascript safe "(($1, $2) => { $1[\"baudRate\"] = $2; })"
        js_setBaudRate :: SerialOptions -> Word -> IO ()
-- | <https://serial.spec.whatwg.org/#dom-serialoptions-baudrate SerialOptions.baudRate specification>
setBaudRate :: (MonadDOM m) => SerialOptions -> Word -> m ()
setBaudRate self val = liftDOM (void ((js_setBaudRate (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"baudRate\"]; })"
        js_getBaudRate :: SerialOptions -> IO Word
-- | <https://serial.spec.whatwg.org/#dom-serialoptions-baudrate SerialOptions.baudRate specification>
getBaudRate :: (MonadDOM m) => SerialOptions -> m Word
getBaudRate self = liftDOM ((js_getBaudRate (self)))

foreign import javascript safe "(($1, $2) => { $1[\"dataBits\"] = $2; })"
        js_setDataBits :: SerialOptions -> Word -> IO ()
-- | <https://serial.spec.whatwg.org/#dom-serialoptions-databits SerialOptions.dataBits specification>
setDataBits :: (MonadDOM m) => SerialOptions -> Word -> m ()
setDataBits self val = liftDOM (void ((js_setDataBits (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"dataBits\"]; })"
        js_getDataBits :: SerialOptions -> IO JSVal
-- | <https://serial.spec.whatwg.org/#dom-serialoptions-databits SerialOptions.dataBits specification>
getDataBits :: (MonadDOM m) => SerialOptions -> m (Maybe Word)
getDataBits self = liftDOM (((js_getDataBits (self)) >>= fromJSValUnchecked))

-- | <https://serial.spec.whatwg.org/#dom-serialoptions-databits SerialOptions.dataBits specification>
getDataBitsUnsafe :: (MonadDOM m, HasCallStack) => SerialOptions -> m Word
getDataBitsUnsafe self = liftDOM ((((js_getDataBits (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://serial.spec.whatwg.org/#dom-serialoptions-databits SerialOptions.dataBits specification>
getDataBitsUnchecked :: (MonadDOM m) => SerialOptions -> m Word
getDataBitsUnchecked self = liftDOM ((pFromJSVal <$> (js_getDataBits (self))))

foreign import javascript safe "(($1, $2) => { $1[\"stopBits\"] = $2; })"
        js_setStopBits :: SerialOptions -> Word -> IO ()
-- | <https://serial.spec.whatwg.org/#dom-serialoptions-stopbits SerialOptions.stopBits specification>
setStopBits :: (MonadDOM m) => SerialOptions -> Word -> m ()
setStopBits self val = liftDOM (void ((js_setStopBits (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"stopBits\"]; })"
        js_getStopBits :: SerialOptions -> IO JSVal
-- | <https://serial.spec.whatwg.org/#dom-serialoptions-stopbits SerialOptions.stopBits specification>
getStopBits :: (MonadDOM m) => SerialOptions -> m (Maybe Word)
getStopBits self = liftDOM (((js_getStopBits (self)) >>= fromJSValUnchecked))

-- | <https://serial.spec.whatwg.org/#dom-serialoptions-stopbits SerialOptions.stopBits specification>
getStopBitsUnsafe :: (MonadDOM m, HasCallStack) => SerialOptions -> m Word
getStopBitsUnsafe self = liftDOM ((((js_getStopBits (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://serial.spec.whatwg.org/#dom-serialoptions-stopbits SerialOptions.stopBits specification>
getStopBitsUnchecked :: (MonadDOM m) => SerialOptions -> m Word
getStopBitsUnchecked self = liftDOM ((pFromJSVal <$> (js_getStopBits (self))))

foreign import javascript safe "(($1, $2) => { $1[\"parity\"] = $2; })"
        js_setParity :: SerialOptions -> JSVal -> IO ()
-- | <https://serial.spec.whatwg.org/#dom-serialoptions-parity SerialOptions.parity specification>
setParity :: (MonadDOM m) => SerialOptions -> ParityType -> m ()
setParity self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setParity (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"parity\"]; })"
        js_getParity :: SerialOptions -> IO JSVal
-- | <https://serial.spec.whatwg.org/#dom-serialoptions-parity SerialOptions.parity specification>
getParity :: (MonadDOM m) => SerialOptions -> m (Maybe ParityType)
getParity self = liftDOM (((js_getParity (self)) >>= fromJSValUnchecked))

-- | <https://serial.spec.whatwg.org/#dom-serialoptions-parity SerialOptions.parity specification>
getParityUnsafe :: (MonadDOM m, HasCallStack) => SerialOptions -> m ParityType
getParityUnsafe self = liftDOM ((((js_getParity (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://serial.spec.whatwg.org/#dom-serialoptions-parity SerialOptions.parity specification>
getParityUnchecked :: (MonadDOM m) => SerialOptions -> m ParityType
getParityUnchecked self = liftDOM ((pFromJSVal <$> (js_getParity (self))))

foreign import javascript safe "(($1, $2) => { $1[\"bufferSize\"] = $2; })"
        js_setBufferSize :: SerialOptions -> Word -> IO ()
-- | <https://serial.spec.whatwg.org/#dom-serialoptions-buffersize SerialOptions.bufferSize specification>
setBufferSize :: (MonadDOM m) => SerialOptions -> Word -> m ()
setBufferSize self val = liftDOM (void ((js_setBufferSize (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"bufferSize\"]; })"
        js_getBufferSize :: SerialOptions -> IO JSVal
-- | <https://serial.spec.whatwg.org/#dom-serialoptions-buffersize SerialOptions.bufferSize specification>
getBufferSize :: (MonadDOM m) => SerialOptions -> m (Maybe Word)
getBufferSize self = liftDOM (((js_getBufferSize (self)) >>= fromJSValUnchecked))

-- | <https://serial.spec.whatwg.org/#dom-serialoptions-buffersize SerialOptions.bufferSize specification>
getBufferSizeUnsafe :: (MonadDOM m, HasCallStack) => SerialOptions -> m Word
getBufferSizeUnsafe self = liftDOM ((((js_getBufferSize (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://serial.spec.whatwg.org/#dom-serialoptions-buffersize SerialOptions.bufferSize specification>
getBufferSizeUnchecked :: (MonadDOM m) => SerialOptions -> m Word
getBufferSizeUnchecked self = liftDOM ((pFromJSVal <$> (js_getBufferSize (self))))

foreign import javascript safe "(($1, $2) => { $1[\"flowControl\"] = $2; })"
        js_setFlowControl :: SerialOptions -> JSVal -> IO ()
-- | <https://serial.spec.whatwg.org/#dom-serialoptions-flowcontrol SerialOptions.flowControl specification>
setFlowControl :: (MonadDOM m) => SerialOptions -> FlowControlType -> m ()
setFlowControl self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFlowControl (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"flowControl\"]; })"
        js_getFlowControl :: SerialOptions -> IO JSVal
-- | <https://serial.spec.whatwg.org/#dom-serialoptions-flowcontrol SerialOptions.flowControl specification>
getFlowControl :: (MonadDOM m) => SerialOptions -> m (Maybe FlowControlType)
getFlowControl self = liftDOM (((js_getFlowControl (self)) >>= fromJSValUnchecked))

-- | <https://serial.spec.whatwg.org/#dom-serialoptions-flowcontrol SerialOptions.flowControl specification>
getFlowControlUnsafe :: (MonadDOM m, HasCallStack) => SerialOptions -> m FlowControlType
getFlowControlUnsafe self = liftDOM ((((js_getFlowControl (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://serial.spec.whatwg.org/#dom-serialoptions-flowcontrol SerialOptions.flowControl specification>
getFlowControlUnchecked :: (MonadDOM m) => SerialOptions -> m FlowControlType
getFlowControlUnchecked self = liftDOM ((pFromJSVal <$> (js_getFlowControl (self))))