{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegList (js_clear, clear, js_initialize, initialize, initialize_, initializeUnsafe, initializeUnchecked, js_getItem, getItem, getItem_, getItemUnsafe, getItemUnchecked, js_insertItemBefore, insertItemBefore, insertItemBefore_, insertItemBeforeUnsafe, insertItemBeforeUnchecked, js_replaceItem, replaceItem, replaceItem_, replaceItemUnsafe, replaceItemUnchecked, js_removeItem, removeItem, removeItem_, removeItemUnsafe, removeItemUnchecked, js_appendItem, appendItem, appendItem_, appendItemUnsafe, appendItemUnchecked, js_getNumberOfItems, getNumberOfItems, SVGPathSegList(..), gTypeSVGPathSegList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript unsafe "$1[\"clear\"]()" js_clear :: SVGPathSegList -> IO () -- | clear :: (MonadIO m) => SVGPathSegList -> m () clear self = liftIO (js_clear (self)) foreign import javascript unsafe "$1[\"initialize\"]($2)" js_initialize :: SVGPathSegList -> Nullable SVGPathSeg -> IO (Nullable SVGPathSeg) -- | initialize :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> m (Maybe SVGPathSeg) initialize self newItem = liftIO (nullableToMaybe <$> (js_initialize (self) (maybeToNullable (fmap toSVGPathSeg newItem)))) -- | initialize_ :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> m () initialize_ self newItem = liftIO (void (js_initialize (self) (maybeToNullable (fmap toSVGPathSeg newItem)))) -- | initializeUnsafe :: (MonadIO m, IsSVGPathSeg newItem, HasCallStack) => SVGPathSegList -> Maybe newItem -> m SVGPathSeg initializeUnsafe self newItem = liftIO ((nullableToMaybe <$> (js_initialize (self) (maybeToNullable (fmap toSVGPathSeg newItem)))) >>= maybe (Prelude.error "Nothing to return") return) -- | initializeUnchecked :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> m SVGPathSeg initializeUnchecked self newItem = liftIO (fromJust . nullableToMaybe <$> (js_initialize (self) (maybeToNullable (fmap toSVGPathSeg newItem)))) foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem :: SVGPathSegList -> Word -> IO (Nullable SVGPathSeg) -- | getItem :: (MonadIO m) => SVGPathSegList -> Word -> m (Maybe SVGPathSeg) getItem self index = liftIO (nullableToMaybe <$> (js_getItem (self) index)) -- | getItem_ :: (MonadIO m) => SVGPathSegList -> Word -> m () getItem_ self index = liftIO (void (js_getItem (self) index)) -- | getItemUnsafe :: (MonadIO m, HasCallStack) => SVGPathSegList -> Word -> m SVGPathSeg getItemUnsafe self index = liftIO ((nullableToMaybe <$> (js_getItem (self) index)) >>= maybe (Prelude.error "Nothing to return") return) -- | getItemUnchecked :: (MonadIO m) => SVGPathSegList -> Word -> m SVGPathSeg getItemUnchecked self index = liftIO (fromJust . nullableToMaybe <$> (js_getItem (self) index)) foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)" js_insertItemBefore :: SVGPathSegList -> Nullable SVGPathSeg -> Word -> IO (Nullable SVGPathSeg) -- | insertItemBefore :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> Word -> m (Maybe SVGPathSeg) insertItemBefore self newItem index = liftIO (nullableToMaybe <$> (js_insertItemBefore (self) (maybeToNullable (fmap toSVGPathSeg newItem)) index)) -- | insertItemBefore_ :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> Word -> m () insertItemBefore_ self newItem index = liftIO (void (js_insertItemBefore (self) (maybeToNullable (fmap toSVGPathSeg newItem)) index)) -- | insertItemBeforeUnsafe :: (MonadIO m, IsSVGPathSeg newItem, HasCallStack) => SVGPathSegList -> Maybe newItem -> Word -> m SVGPathSeg insertItemBeforeUnsafe self newItem index = liftIO ((nullableToMaybe <$> (js_insertItemBefore (self) (maybeToNullable (fmap toSVGPathSeg newItem)) index)) >>= maybe (Prelude.error "Nothing to return") return) -- | insertItemBeforeUnchecked :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> Word -> m SVGPathSeg insertItemBeforeUnchecked self newItem index = liftIO (fromJust . nullableToMaybe <$> (js_insertItemBefore (self) (maybeToNullable (fmap toSVGPathSeg newItem)) index)) foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)" js_replaceItem :: SVGPathSegList -> Nullable SVGPathSeg -> Word -> IO (Nullable SVGPathSeg) -- | replaceItem :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> Word -> m (Maybe SVGPathSeg) replaceItem self newItem index = liftIO (nullableToMaybe <$> (js_replaceItem (self) (maybeToNullable (fmap toSVGPathSeg newItem)) index)) -- | replaceItem_ :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> Word -> m () replaceItem_ self newItem index = liftIO (void (js_replaceItem (self) (maybeToNullable (fmap toSVGPathSeg newItem)) index)) -- | replaceItemUnsafe :: (MonadIO m, IsSVGPathSeg newItem, HasCallStack) => SVGPathSegList -> Maybe newItem -> Word -> m SVGPathSeg replaceItemUnsafe self newItem index = liftIO ((nullableToMaybe <$> (js_replaceItem (self) (maybeToNullable (fmap toSVGPathSeg newItem)) index)) >>= maybe (Prelude.error "Nothing to return") return) -- | replaceItemUnchecked :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> Word -> m SVGPathSeg replaceItemUnchecked self newItem index = liftIO (fromJust . nullableToMaybe <$> (js_replaceItem (self) (maybeToNullable (fmap toSVGPathSeg newItem)) index)) foreign import javascript unsafe "$1[\"removeItem\"]($2)" js_removeItem :: SVGPathSegList -> Word -> IO (Nullable SVGPathSeg) -- | removeItem :: (MonadIO m) => SVGPathSegList -> Word -> m (Maybe SVGPathSeg) removeItem self index = liftIO (nullableToMaybe <$> (js_removeItem (self) index)) -- | removeItem_ :: (MonadIO m) => SVGPathSegList -> Word -> m () removeItem_ self index = liftIO (void (js_removeItem (self) index)) -- | removeItemUnsafe :: (MonadIO m, HasCallStack) => SVGPathSegList -> Word -> m SVGPathSeg removeItemUnsafe self index = liftIO ((nullableToMaybe <$> (js_removeItem (self) index)) >>= maybe (Prelude.error "Nothing to return") return) -- | removeItemUnchecked :: (MonadIO m) => SVGPathSegList -> Word -> m SVGPathSeg removeItemUnchecked self index = liftIO (fromJust . nullableToMaybe <$> (js_removeItem (self) index)) foreign import javascript unsafe "$1[\"appendItem\"]($2)" js_appendItem :: SVGPathSegList -> Nullable SVGPathSeg -> IO (Nullable SVGPathSeg) -- | appendItem :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> m (Maybe SVGPathSeg) appendItem self newItem = liftIO (nullableToMaybe <$> (js_appendItem (self) (maybeToNullable (fmap toSVGPathSeg newItem)))) -- | appendItem_ :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> m () appendItem_ self newItem = liftIO (void (js_appendItem (self) (maybeToNullable (fmap toSVGPathSeg newItem)))) -- | appendItemUnsafe :: (MonadIO m, IsSVGPathSeg newItem, HasCallStack) => SVGPathSegList -> Maybe newItem -> m SVGPathSeg appendItemUnsafe self newItem = liftIO ((nullableToMaybe <$> (js_appendItem (self) (maybeToNullable (fmap toSVGPathSeg newItem)))) >>= maybe (Prelude.error "Nothing to return") return) -- | appendItemUnchecked :: (MonadIO m, IsSVGPathSeg newItem) => SVGPathSegList -> Maybe newItem -> m SVGPathSeg appendItemUnchecked self newItem = liftIO (fromJust . nullableToMaybe <$> (js_appendItem (self) (maybeToNullable (fmap toSVGPathSeg newItem)))) foreign import javascript unsafe "$1[\"numberOfItems\"]" js_getNumberOfItems :: SVGPathSegList -> IO Word -- | getNumberOfItems :: (MonadIO m) => SVGPathSegList -> m Word getNumberOfItems self = liftIO (js_getNumberOfItems (self))