{-# LANGUAGE ForeignFunctionInterface, TypeFamilies,
  MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances,
  EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-}
module HROOT.Core.TAttBBox.RawType where
import Foreign.Ptr
import FFICXX.Runtime.Cast

data RawTAttBBox

newtype TAttBBox = TAttBBox (Ptr RawTAttBBox)
                     deriving (TAttBBox -> TAttBBox -> Bool
(TAttBBox -> TAttBBox -> Bool)
-> (TAttBBox -> TAttBBox -> Bool) -> Eq TAttBBox
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TAttBBox -> TAttBBox -> Bool
== :: TAttBBox -> TAttBBox -> Bool
$c/= :: TAttBBox -> TAttBBox -> Bool
/= :: TAttBBox -> TAttBBox -> Bool
Eq, Eq TAttBBox
Eq TAttBBox
-> (TAttBBox -> TAttBBox -> Ordering)
-> (TAttBBox -> TAttBBox -> Bool)
-> (TAttBBox -> TAttBBox -> Bool)
-> (TAttBBox -> TAttBBox -> Bool)
-> (TAttBBox -> TAttBBox -> Bool)
-> (TAttBBox -> TAttBBox -> TAttBBox)
-> (TAttBBox -> TAttBBox -> TAttBBox)
-> Ord TAttBBox
TAttBBox -> TAttBBox -> Bool
TAttBBox -> TAttBBox -> Ordering
TAttBBox -> TAttBBox -> TAttBBox
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: TAttBBox -> TAttBBox -> Ordering
compare :: TAttBBox -> TAttBBox -> Ordering
$c< :: TAttBBox -> TAttBBox -> Bool
< :: TAttBBox -> TAttBBox -> Bool
$c<= :: TAttBBox -> TAttBBox -> Bool
<= :: TAttBBox -> TAttBBox -> Bool
$c> :: TAttBBox -> TAttBBox -> Bool
> :: TAttBBox -> TAttBBox -> Bool
$c>= :: TAttBBox -> TAttBBox -> Bool
>= :: TAttBBox -> TAttBBox -> Bool
$cmax :: TAttBBox -> TAttBBox -> TAttBBox
max :: TAttBBox -> TAttBBox -> TAttBBox
$cmin :: TAttBBox -> TAttBBox -> TAttBBox
min :: TAttBBox -> TAttBBox -> TAttBBox
Ord, Int -> TAttBBox -> ShowS
[TAttBBox] -> ShowS
TAttBBox -> String
(Int -> TAttBBox -> ShowS)
-> (TAttBBox -> String) -> ([TAttBBox] -> ShowS) -> Show TAttBBox
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TAttBBox -> ShowS
showsPrec :: Int -> TAttBBox -> ShowS
$cshow :: TAttBBox -> String
show :: TAttBBox -> String
$cshowList :: [TAttBBox] -> ShowS
showList :: [TAttBBox] -> ShowS
Show)

instance () => FPtr (TAttBBox) where
        type Raw TAttBBox = RawTAttBBox
        get_fptr :: TAttBBox -> Ptr (Raw TAttBBox)
get_fptr (TAttBBox Ptr RawTAttBBox
ptr) = Ptr (Raw TAttBBox)
Ptr RawTAttBBox
ptr
        cast_fptr_to_obj :: Ptr (Raw TAttBBox) -> TAttBBox
cast_fptr_to_obj = Ptr (Raw TAttBBox) -> TAttBBox
Ptr RawTAttBBox -> TAttBBox
TAttBBox