{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.TypeConversions (js_setTestLong, setTestLong, js_getTestLong, getTestLong, js_setTestEnforceRangeLong, setTestEnforceRangeLong, js_getTestEnforceRangeLong, getTestEnforceRangeLong, js_setTestUnsignedLong, setTestUnsignedLong, js_getTestUnsignedLong, getTestUnsignedLong, js_setTestEnforceRangeUnsignedLong, setTestEnforceRangeUnsignedLong, js_getTestEnforceRangeUnsignedLong, getTestEnforceRangeUnsignedLong, js_setTestLongLong, setTestLongLong, js_getTestLongLong, getTestLongLong, js_setTestEnforceRangeLongLong, setTestEnforceRangeLongLong, js_getTestEnforceRangeLongLong, getTestEnforceRangeLongLong, js_setTestUnsignedLongLong, setTestUnsignedLongLong, js_getTestUnsignedLongLong, getTestUnsignedLongLong, js_setTestEnforceRangeUnsignedLongLong, setTestEnforceRangeUnsignedLongLong, js_getTestEnforceRangeUnsignedLongLong, getTestEnforceRangeUnsignedLongLong, js_setTestByte, setTestByte, js_getTestByte, getTestByte, js_setTestEnforceRangeByte, setTestEnforceRangeByte, js_getTestEnforceRangeByte, getTestEnforceRangeByte, js_setTestOctet, setTestOctet, js_getTestOctet, getTestOctet, js_setTestEnforceRangeOctet, setTestEnforceRangeOctet, js_getTestEnforceRangeOctet, getTestEnforceRangeOctet, js_setTestShort, setTestShort, js_getTestShort, getTestShort, js_setTestEnforceRangeShort, setTestEnforceRangeShort, js_getTestEnforceRangeShort, getTestEnforceRangeShort, js_setTestUnsignedShort, setTestUnsignedShort, js_getTestUnsignedShort, getTestUnsignedShort, js_setTestEnforceRangeUnsignedShort, setTestEnforceRangeUnsignedShort, js_getTestEnforceRangeUnsignedShort, getTestEnforceRangeUnsignedShort, TypeConversions, castToTypeConversions, gTypeTypeConversions) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "$1[\"testLong\"] = $2;" js_setTestLong :: TypeConversions -> Int -> IO () -- | setTestLong :: (MonadIO m) => TypeConversions -> Int -> m () setTestLong self val = liftIO (js_setTestLong (self) val) foreign import javascript unsafe "$1[\"testLong\"]" js_getTestLong :: TypeConversions -> IO Int -- | getTestLong :: (MonadIO m) => TypeConversions -> m Int getTestLong self = liftIO (js_getTestLong (self)) foreign import javascript unsafe "$1[\"testEnforceRangeLong\"] = $2;" js_setTestEnforceRangeLong :: TypeConversions -> Int -> IO () -- | setTestEnforceRangeLong :: (MonadIO m) => TypeConversions -> Int -> m () setTestEnforceRangeLong self val = liftIO (js_setTestEnforceRangeLong (self) val) foreign import javascript unsafe "$1[\"testEnforceRangeLong\"]" js_getTestEnforceRangeLong :: TypeConversions -> IO Int -- | getTestEnforceRangeLong :: (MonadIO m) => TypeConversions -> m Int getTestEnforceRangeLong self = liftIO (js_getTestEnforceRangeLong (self)) foreign import javascript unsafe "$1[\"testUnsignedLong\"] = $2;" js_setTestUnsignedLong :: TypeConversions -> Word -> IO () -- | setTestUnsignedLong :: (MonadIO m) => TypeConversions -> Word -> m () setTestUnsignedLong self val = liftIO (js_setTestUnsignedLong (self) val) foreign import javascript unsafe "$1[\"testUnsignedLong\"]" js_getTestUnsignedLong :: TypeConversions -> IO Word -- | getTestUnsignedLong :: (MonadIO m) => TypeConversions -> m Word getTestUnsignedLong self = liftIO (js_getTestUnsignedLong (self)) foreign import javascript unsafe "$1[\"testEnforceRangeUnsignedLong\"] = $2;" js_setTestEnforceRangeUnsignedLong :: TypeConversions -> Word -> IO () -- | setTestEnforceRangeUnsignedLong :: (MonadIO m) => TypeConversions -> Word -> m () setTestEnforceRangeUnsignedLong self val = liftIO (js_setTestEnforceRangeUnsignedLong (self) val) foreign import javascript unsafe "$1[\"testEnforceRangeUnsignedLong\"]" js_getTestEnforceRangeUnsignedLong :: TypeConversions -> IO Word -- | getTestEnforceRangeUnsignedLong :: (MonadIO m) => TypeConversions -> m Word getTestEnforceRangeUnsignedLong self = liftIO (js_getTestEnforceRangeUnsignedLong (self)) foreign import javascript unsafe "$1[\"testLongLong\"] = $2;" js_setTestLongLong :: TypeConversions -> Double -> IO () -- | setTestLongLong :: (MonadIO m) => TypeConversions -> Int64 -> m () setTestLongLong self val = liftIO (js_setTestLongLong (self) (fromIntegral val)) foreign import javascript unsafe "$1[\"testLongLong\"]" js_getTestLongLong :: TypeConversions -> IO Double -- | getTestLongLong :: (MonadIO m) => TypeConversions -> m Int64 getTestLongLong self = liftIO (round <$> (js_getTestLongLong (self))) foreign import javascript unsafe "$1[\"testEnforceRangeLongLong\"] = $2;" js_setTestEnforceRangeLongLong :: TypeConversions -> Double -> IO () -- | setTestEnforceRangeLongLong :: (MonadIO m) => TypeConversions -> Int64 -> m () setTestEnforceRangeLongLong self val = liftIO (js_setTestEnforceRangeLongLong (self) (fromIntegral val)) foreign import javascript unsafe "$1[\"testEnforceRangeLongLong\"]" js_getTestEnforceRangeLongLong :: TypeConversions -> IO Double -- | getTestEnforceRangeLongLong :: (MonadIO m) => TypeConversions -> m Int64 getTestEnforceRangeLongLong self = liftIO (round <$> (js_getTestEnforceRangeLongLong (self))) foreign import javascript unsafe "$1[\"testUnsignedLongLong\"] = $2;" js_setTestUnsignedLongLong :: TypeConversions -> Double -> IO () -- | setTestUnsignedLongLong :: (MonadIO m) => TypeConversions -> Word64 -> m () setTestUnsignedLongLong self val = liftIO (js_setTestUnsignedLongLong (self) (fromIntegral val)) foreign import javascript unsafe "$1[\"testUnsignedLongLong\"]" js_getTestUnsignedLongLong :: TypeConversions -> IO Double -- | getTestUnsignedLongLong :: (MonadIO m) => TypeConversions -> m Word64 getTestUnsignedLongLong self = liftIO (round <$> (js_getTestUnsignedLongLong (self))) foreign import javascript unsafe "$1[\"testEnforceRangeUnsignedLongLong\"] = $2;" js_setTestEnforceRangeUnsignedLongLong :: TypeConversions -> Double -> IO () -- | setTestEnforceRangeUnsignedLongLong :: (MonadIO m) => TypeConversions -> Word64 -> m () setTestEnforceRangeUnsignedLongLong self val = liftIO (js_setTestEnforceRangeUnsignedLongLong (self) (fromIntegral val)) foreign import javascript unsafe "$1[\"testEnforceRangeUnsignedLongLong\"]" js_getTestEnforceRangeUnsignedLongLong :: TypeConversions -> IO Double -- | getTestEnforceRangeUnsignedLongLong :: (MonadIO m) => TypeConversions -> m Word64 getTestEnforceRangeUnsignedLongLong self = liftIO (round <$> (js_getTestEnforceRangeUnsignedLongLong (self))) foreign import javascript unsafe "$1[\"testByte\"] = $2;" js_setTestByte :: TypeConversions -> Int -> IO () -- | setTestByte :: (MonadIO m) => TypeConversions -> Int -> m () setTestByte self val = liftIO (js_setTestByte (self) val) foreign import javascript unsafe "$1[\"testByte\"]" js_getTestByte :: TypeConversions -> IO Int -- | getTestByte :: (MonadIO m) => TypeConversions -> m Int getTestByte self = liftIO (js_getTestByte (self)) foreign import javascript unsafe "$1[\"testEnforceRangeByte\"] = $2;" js_setTestEnforceRangeByte :: TypeConversions -> Int -> IO () -- | setTestEnforceRangeByte :: (MonadIO m) => TypeConversions -> Int -> m () setTestEnforceRangeByte self val = liftIO (js_setTestEnforceRangeByte (self) val) foreign import javascript unsafe "$1[\"testEnforceRangeByte\"]" js_getTestEnforceRangeByte :: TypeConversions -> IO Int -- | getTestEnforceRangeByte :: (MonadIO m) => TypeConversions -> m Int getTestEnforceRangeByte self = liftIO (js_getTestEnforceRangeByte (self)) foreign import javascript unsafe "$1[\"testOctet\"] = $2;" js_setTestOctet :: TypeConversions -> Word -> IO () -- | setTestOctet :: (MonadIO m) => TypeConversions -> Word -> m () setTestOctet self val = liftIO (js_setTestOctet (self) val) foreign import javascript unsafe "$1[\"testOctet\"]" js_getTestOctet :: TypeConversions -> IO Word -- | getTestOctet :: (MonadIO m) => TypeConversions -> m Word getTestOctet self = liftIO (js_getTestOctet (self)) foreign import javascript unsafe "$1[\"testEnforceRangeOctet\"] = $2;" js_setTestEnforceRangeOctet :: TypeConversions -> Word -> IO () -- | setTestEnforceRangeOctet :: (MonadIO m) => TypeConversions -> Word -> m () setTestEnforceRangeOctet self val = liftIO (js_setTestEnforceRangeOctet (self) val) foreign import javascript unsafe "$1[\"testEnforceRangeOctet\"]" js_getTestEnforceRangeOctet :: TypeConversions -> IO Word -- | getTestEnforceRangeOctet :: (MonadIO m) => TypeConversions -> m Word getTestEnforceRangeOctet self = liftIO (js_getTestEnforceRangeOctet (self)) foreign import javascript unsafe "$1[\"testShort\"] = $2;" js_setTestShort :: TypeConversions -> Int -> IO () -- | setTestShort :: (MonadIO m) => TypeConversions -> Int -> m () setTestShort self val = liftIO (js_setTestShort (self) val) foreign import javascript unsafe "$1[\"testShort\"]" js_getTestShort :: TypeConversions -> IO Int -- | getTestShort :: (MonadIO m) => TypeConversions -> m Int getTestShort self = liftIO (js_getTestShort (self)) foreign import javascript unsafe "$1[\"testEnforceRangeShort\"] = $2;" js_setTestEnforceRangeShort :: TypeConversions -> Int -> IO () -- | setTestEnforceRangeShort :: (MonadIO m) => TypeConversions -> Int -> m () setTestEnforceRangeShort self val = liftIO (js_setTestEnforceRangeShort (self) val) foreign import javascript unsafe "$1[\"testEnforceRangeShort\"]" js_getTestEnforceRangeShort :: TypeConversions -> IO Int -- | getTestEnforceRangeShort :: (MonadIO m) => TypeConversions -> m Int getTestEnforceRangeShort self = liftIO (js_getTestEnforceRangeShort (self)) foreign import javascript unsafe "$1[\"testUnsignedShort\"] = $2;" js_setTestUnsignedShort :: TypeConversions -> Word -> IO () -- | setTestUnsignedShort :: (MonadIO m) => TypeConversions -> Word -> m () setTestUnsignedShort self val = liftIO (js_setTestUnsignedShort (self) val) foreign import javascript unsafe "$1[\"testUnsignedShort\"]" js_getTestUnsignedShort :: TypeConversions -> IO Word -- | getTestUnsignedShort :: (MonadIO m) => TypeConversions -> m Word getTestUnsignedShort self = liftIO (js_getTestUnsignedShort (self)) foreign import javascript unsafe "$1[\"testEnforceRangeUnsignedShort\"] = $2;" js_setTestEnforceRangeUnsignedShort :: TypeConversions -> Word -> IO () -- | setTestEnforceRangeUnsignedShort :: (MonadIO m) => TypeConversions -> Word -> m () setTestEnforceRangeUnsignedShort self val = liftIO (js_setTestEnforceRangeUnsignedShort (self) val) foreign import javascript unsafe "$1[\"testEnforceRangeUnsignedShort\"]" js_getTestEnforceRangeUnsignedShort :: TypeConversions -> IO Word -- | getTestEnforceRangeUnsignedShort :: (MonadIO m) => TypeConversions -> m Word getTestEnforceRangeUnsignedShort self = liftIO (js_getTestEnforceRangeUnsignedShort (self))