{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances,
  ForeignFunctionInterface, IncoherentInstances,
  MultiParamTypeClasses, OverlappingInstances, TemplateHaskell,
  TypeFamilies, TypeSynonymInstances #-}
module OGDF.SugiyamaLayout.Implementation where
import Data.Monoid
import Data.Word
import Data.Int
import Foreign.C
import Foreign.Ptr
import Language.Haskell.TH
import Language.Haskell.TH.Syntax
import System.IO.Unsafe
import FFICXX.Runtime.Cast
import FFICXX.Runtime.CodeGen.Cxx
import FFICXX.Runtime.TH
import OGDF.SugiyamaLayout.RawType
import OGDF.SugiyamaLayout.FFI
import OGDF.SugiyamaLayout.Interface
import OGDF.SugiyamaLayout.Cast
import OGDF.SugiyamaLayout.RawType
import OGDF.SugiyamaLayout.Cast
import OGDF.SugiyamaLayout.Interface
import OGDF.GraphAttributes.RawType
import OGDF.GraphAttributes.Cast
import OGDF.GraphAttributes.Interface
import OGDF.LayeredCrossMinModule.RawType
import OGDF.LayeredCrossMinModule.Cast
import OGDF.LayeredCrossMinModule.Interface
import OGDF.HierarchyLayoutModule.RawType
import OGDF.HierarchyLayoutModule.Cast
import OGDF.HierarchyLayoutModule.Interface
import OGDF.RankingModule.RawType
import OGDF.RankingModule.Cast
import OGDF.RankingModule.Interface
import STD.Deletable.RawType
import STD.Deletable.Cast
import STD.Deletable.Interface
import OGDF.LayoutModule.RawType
import OGDF.LayoutModule.Cast
import OGDF.LayoutModule.Interface

instance () => ISugiyamaLayout (SugiyamaLayout) where

instance () => IDeletable (SugiyamaLayout) where
        delete :: SugiyamaLayout -> IO ()
delete = (Ptr RawSugiyamaLayout -> IO ()) -> SugiyamaLayout -> IO ()
forall a ca y cy.
(Castable a ca, Castable y cy) =>
(ca -> IO cy) -> a -> IO y
xform0 Ptr RawSugiyamaLayout -> IO ()
c_sugiyamalayout_delete

instance () => ILayoutModule (SugiyamaLayout) where
        call :: forall c0.
(IGraphAttributes c0, FPtr c0) =>
SugiyamaLayout -> c0 -> IO ()
call = (Ptr RawSugiyamaLayout -> Ptr RawGraphAttributes -> IO ())
-> SugiyamaLayout -> c0 -> IO ()
forall a ca x1 cx1 y cy.
(Castable a ca, Castable x1 cx1, Castable y cy) =>
(ca -> cx1 -> IO cy) -> a -> x1 -> IO y
xform1 Ptr RawSugiyamaLayout -> Ptr RawGraphAttributes -> IO ()
c_sugiyamalayout_call

newSugiyamaLayout :: () => IO SugiyamaLayout
newSugiyamaLayout :: IO SugiyamaLayout
newSugiyamaLayout = IO (Ptr RawSugiyamaLayout) -> IO SugiyamaLayout
forall a ca. Castable a ca => IO ca -> IO a
xformnull IO (Ptr RawSugiyamaLayout)
c_sugiyamalayout_newsugiyamalayout

sugiyamaLayout_pageRatio ::
                           () => SugiyamaLayout -> CDouble -> IO ()
sugiyamaLayout_pageRatio :: SugiyamaLayout -> CDouble -> IO ()
sugiyamaLayout_pageRatio
  = (Ptr RawSugiyamaLayout -> CDouble -> IO ())
-> SugiyamaLayout -> CDouble -> IO ()
forall a ca x1 cx1 y cy.
(Castable a ca, Castable x1 cx1, Castable y cy) =>
(ca -> cx1 -> IO cy) -> a -> x1 -> IO y
xform1 Ptr RawSugiyamaLayout -> CDouble -> IO ()
c_sugiyamalayout_sugiyamalayout_pageratio

sugiyamaLayout_setCrossMin ::
                             (ILayeredCrossMinModule c0, FPtr c0) =>
                             SugiyamaLayout -> c0 -> IO ()
sugiyamaLayout_setCrossMin :: forall c0.
(ILayeredCrossMinModule c0, FPtr c0) =>
SugiyamaLayout -> c0 -> IO ()
sugiyamaLayout_setCrossMin
  = (Ptr RawSugiyamaLayout -> Ptr RawLayeredCrossMinModule -> IO ())
-> SugiyamaLayout -> c0 -> IO ()
forall a ca x1 cx1 y cy.
(Castable a ca, Castable x1 cx1, Castable y cy) =>
(ca -> cx1 -> IO cy) -> a -> x1 -> IO y
xform1 Ptr RawSugiyamaLayout -> Ptr RawLayeredCrossMinModule -> IO ()
c_sugiyamalayout_sugiyamalayout_setcrossmin

sugiyamaLayout_setLayout ::
                           (IHierarchyLayoutModule c0, FPtr c0) =>
                           SugiyamaLayout -> c0 -> IO ()
sugiyamaLayout_setLayout :: forall c0.
(IHierarchyLayoutModule c0, FPtr c0) =>
SugiyamaLayout -> c0 -> IO ()
sugiyamaLayout_setLayout
  = (Ptr RawSugiyamaLayout -> Ptr RawHierarchyLayoutModule -> IO ())
-> SugiyamaLayout -> c0 -> IO ()
forall a ca x1 cx1 y cy.
(Castable a ca, Castable x1 cx1, Castable y cy) =>
(ca -> cx1 -> IO cy) -> a -> x1 -> IO y
xform1 Ptr RawSugiyamaLayout -> Ptr RawHierarchyLayoutModule -> IO ()
c_sugiyamalayout_sugiyamalayout_setlayout

sugiyamaLayout_setRanking ::
                            (IRankingModule c0, FPtr c0) => SugiyamaLayout -> c0 -> IO ()
sugiyamaLayout_setRanking :: forall c0.
(IRankingModule c0, FPtr c0) =>
SugiyamaLayout -> c0 -> IO ()
sugiyamaLayout_setRanking
  = (Ptr RawSugiyamaLayout -> Ptr RawRankingModule -> IO ())
-> SugiyamaLayout -> c0 -> IO ()
forall a ca x1 cx1 y cy.
(Castable a ca, Castable x1 cx1, Castable y cy) =>
(ca -> cx1 -> IO cy) -> a -> x1 -> IO y
xform1 Ptr RawSugiyamaLayout -> Ptr RawRankingModule -> IO ()
c_sugiyamalayout_sugiyamalayout_setranking