ghcjs-dom-javascript-0.10.0.0: src/GHCJS/DOM/JSFFI/Generated/SerialPort.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.SerialPort
       (js_close, js_forget, js_getInfo, js_getSignals, js_open, js_setSignals, js_getConnected, js_getReadable, js_getWritable, close, forget, getInfo, getInfo_, getSignals, getSignals_, open, setSignals, getConnected, getReadable, getReadableUnsafe, getReadableUnchecked, getWritable, getWritableUnsafe, getWritableUnchecked, connect, disconnect, SerialPort(..), gTypeSerialPort)
       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 interruptible "(($1, $c) => { return $1[\"close\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_close :: SerialPort -> IO (JSVal, ())
-- | <https://developer.mozilla.org/docs/Web/API/SerialPort/close MDN SerialPort.close documentation>
close :: (MonadDOM m) => SerialPort -> m ()
close self = liftDOM (void (((js_close (self)) >>= checkPromiseResult)))

foreign import javascript interruptible "(($1, $c) => { return $1[\"forget\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_forget :: SerialPort -> IO (JSVal, ())
-- | <https://developer.mozilla.org/docs/Web/API/SerialPort/forget MDN SerialPort.forget documentation>
forget :: (MonadDOM m) => SerialPort -> m ()
forget self = liftDOM (void (((js_forget (self)) >>= checkPromiseResult)))

foreign import javascript safe "(($1) => { return $1[\"getInfo\"](); })"
        js_getInfo :: SerialPort -> IO SerialPortInfo
-- | <https://developer.mozilla.org/docs/Web/API/SerialPort/getInfo MDN SerialPort.getInfo documentation>
getInfo :: (MonadDOM m) => SerialPort -> m SerialPortInfo
getInfo self = liftDOM ((js_getInfo (self)))

-- | <https://developer.mozilla.org/docs/Web/API/SerialPort/getInfo MDN SerialPort.getInfo documentation>
getInfo_ :: (MonadDOM m) => SerialPort -> m ()
getInfo_ self = liftDOM (void ((js_getInfo (self))))

foreign import javascript interruptible "(($1, $c) => { return $1[\"getSignals\"]().then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_getSignals :: SerialPort -> IO (JSVal, SerialInputSignals)
-- | <https://developer.mozilla.org/docs/Web/API/SerialPort/getSignals MDN SerialPort.getSignals documentation>
getSignals :: (MonadDOM m) => SerialPort -> m SerialInputSignals
getSignals self = liftDOM (((js_getSignals (self)) >>= checkPromiseResult))

-- | <https://developer.mozilla.org/docs/Web/API/SerialPort/getSignals MDN SerialPort.getSignals documentation>
getSignals_ :: (MonadDOM m) => SerialPort -> m ()
getSignals_ self = liftDOM (void (((js_getSignals (self)) >>= checkPromiseResult)))

foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"open\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_open :: SerialPort -> SerialOptions -> IO (JSVal, ())
-- | <https://developer.mozilla.org/docs/Web/API/SerialPort/open MDN SerialPort.open documentation>
open :: (MonadDOM m) => SerialPort -> SerialOptions -> m ()
open self options = liftDOM (void (((js_open (self) (options)) >>= checkPromiseResult)))

foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"setSignals\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_setSignals :: SerialPort -> JSVal -> IO (JSVal, ())
-- | <https://developer.mozilla.org/docs/Web/API/SerialPort/setSignals MDN SerialPort.setSignals documentation>
setSignals :: (MonadDOM m) => SerialPort -> Maybe SerialOutputSignals -> m ()
setSignals self signals = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal signals) >>= \a2' -> js_setSignals (self) a2') >>= checkPromiseResult)))

foreign import javascript unsafe "(($1) => { return $1[\"connected\"]; })"
        js_getConnected :: SerialPort -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/SerialPort/connected MDN SerialPort.connected documentation>
getConnected :: (MonadDOM m) => SerialPort -> m Bool
getConnected self = liftDOM ((js_getConnected (self)))

foreign import javascript unsafe "(($1) => { return $1[\"readable\"]; })"
        js_getReadable :: SerialPort -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/SerialPort/readable MDN SerialPort.readable documentation>
getReadable :: (MonadDOM m) => SerialPort -> m (Maybe ReadableStream)
getReadable self = liftDOM (((js_getReadable (self)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SerialPort/readable MDN SerialPort.readable documentation>
getReadableUnsafe :: (MonadDOM m, HasCallStack) => SerialPort -> m ReadableStream
getReadableUnsafe self = liftDOM ((((js_getReadable (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/SerialPort/readable MDN SerialPort.readable documentation>
getReadableUnchecked :: (MonadDOM m) => SerialPort -> m ReadableStream
getReadableUnchecked self = liftDOM ((pFromJSVal <$> (js_getReadable (self))))

foreign import javascript unsafe "(($1) => { return $1[\"writable\"]; })"
        js_getWritable :: SerialPort -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/SerialPort/writable MDN SerialPort.writable documentation>
getWritable :: (MonadDOM m) => SerialPort -> m (Maybe WritableStream)
getWritable self = liftDOM (((js_getWritable (self)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SerialPort/writable MDN SerialPort.writable documentation>
getWritableUnsafe :: (MonadDOM m, HasCallStack) => SerialPort -> m WritableStream
getWritableUnsafe self = liftDOM ((((js_getWritable (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/SerialPort/writable MDN SerialPort.writable documentation>
getWritableUnchecked :: (MonadDOM m) => SerialPort -> m WritableStream
getWritableUnchecked self = liftDOM ((pFromJSVal <$> (js_getWritable (self))))

-- | <https://serial.spec.whatwg.org/#dom-serialport-onconnect connect event>
connect :: EventName SerialPort Event
connect = unsafeEventName (toJSString "connect")

-- | <https://serial.spec.whatwg.org/#dom-serialport-ondisconnect disconnect event>
disconnect :: EventName SerialPort Event
disconnect = unsafeEventName (toJSString "disconnect")