-- GENERATED by C->Haskell Compiler, version 0.13.13 (gtk2hs branch) "Bin IO", 27 May 2012 (Haskell)
-- Edit the ORIGNAL .chs file instead!


{-# LINE 1 "./Graphics/UI/Gtk/WebKit/DOM/ProcessingInstruction.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.ProcessingInstruction(
getTarget,
getSheet,
ProcessingInstruction,
castToProcessingInstruction,
gTypeProcessingInstruction,
ProcessingInstructionClass,
toProcessingInstruction,
) where
import Prelude hiding (drop, error, print)
import Data.Typeable (Typeable)
import Foreign.Marshal (maybePeek, maybeWith)
import System.Glib.FFI (maybeNull, withForeignPtr, nullForeignPtr, Ptr, nullPtr, castPtr, Word, Int64, Word64, CChar(..), CInt(..), CUInt(..), CLong(..), CULong(..), CLLong(..), CULLong(..), CShort(..), CUShort(..), CFloat(..), CDouble(..), toBool, fromBool)
import System.Glib.UTFString (GlibString(..), readUTFString)
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventTargetClosures
import Graphics.UI.Gtk.WebKit.DOM.EventM
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 21 "./Graphics/UI/Gtk/WebKit/DOM/ProcessingInstruction.chs" #-}
import Graphics.UI.Gtk.WebKit.DOM.Enums

 
getTarget ::
          (MonadIO m, ProcessingInstructionClass self, GlibString string) =>
            self -> m (Maybe string)
getTarget self
  = liftIO
      (((\(ProcessingInstruction arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_processing_instruction_get_target argPtr1)
{-# LINE 30 "./Graphics/UI/Gtk/WebKit/DOM/ProcessingInstruction.chs" #-}
          (toProcessingInstruction self))
         >>=
         maybePeek readUTFString)
 
getSheet ::
         (MonadIO m, ProcessingInstructionClass self) =>
           self -> m (Maybe StyleSheet)
getSheet self
  = liftIO
      (maybeNull (makeNewGObject mkStyleSheet)
         ((\(ProcessingInstruction arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_processing_instruction_get_sheet argPtr1)
{-# LINE 41 "./Graphics/UI/Gtk/WebKit/DOM/ProcessingInstruction.chs" #-}
            (toProcessingInstruction self)))

foreign import ccall safe "webkit_dom_processing_instruction_get_target"
  webkit_dom_processing_instruction_get_target :: ((Ptr ProcessingInstruction) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_processing_instruction_get_sheet"
  webkit_dom_processing_instruction_get_sheet :: ((Ptr ProcessingInstruction) -> (IO (Ptr StyleSheet)))