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

data RawTGaxis

newtype TGaxis = TGaxis (Ptr RawTGaxis)
                   deriving (TGaxis -> TGaxis -> Bool
(TGaxis -> TGaxis -> Bool)
-> (TGaxis -> TGaxis -> Bool) -> Eq TGaxis
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TGaxis -> TGaxis -> Bool
== :: TGaxis -> TGaxis -> Bool
$c/= :: TGaxis -> TGaxis -> Bool
/= :: TGaxis -> TGaxis -> Bool
Eq, Eq TGaxis
Eq TGaxis
-> (TGaxis -> TGaxis -> Ordering)
-> (TGaxis -> TGaxis -> Bool)
-> (TGaxis -> TGaxis -> Bool)
-> (TGaxis -> TGaxis -> Bool)
-> (TGaxis -> TGaxis -> Bool)
-> (TGaxis -> TGaxis -> TGaxis)
-> (TGaxis -> TGaxis -> TGaxis)
-> Ord TGaxis
TGaxis -> TGaxis -> Bool
TGaxis -> TGaxis -> Ordering
TGaxis -> TGaxis -> TGaxis
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 :: TGaxis -> TGaxis -> Ordering
compare :: TGaxis -> TGaxis -> Ordering
$c< :: TGaxis -> TGaxis -> Bool
< :: TGaxis -> TGaxis -> Bool
$c<= :: TGaxis -> TGaxis -> Bool
<= :: TGaxis -> TGaxis -> Bool
$c> :: TGaxis -> TGaxis -> Bool
> :: TGaxis -> TGaxis -> Bool
$c>= :: TGaxis -> TGaxis -> Bool
>= :: TGaxis -> TGaxis -> Bool
$cmax :: TGaxis -> TGaxis -> TGaxis
max :: TGaxis -> TGaxis -> TGaxis
$cmin :: TGaxis -> TGaxis -> TGaxis
min :: TGaxis -> TGaxis -> TGaxis
Ord, Int -> TGaxis -> ShowS
[TGaxis] -> ShowS
TGaxis -> String
(Int -> TGaxis -> ShowS)
-> (TGaxis -> String) -> ([TGaxis] -> ShowS) -> Show TGaxis
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TGaxis -> ShowS
showsPrec :: Int -> TGaxis -> ShowS
$cshow :: TGaxis -> String
show :: TGaxis -> String
$cshowList :: [TGaxis] -> ShowS
showList :: [TGaxis] -> ShowS
Show)

instance () => FPtr (TGaxis) where
        type Raw TGaxis = RawTGaxis
        get_fptr :: TGaxis -> Ptr (Raw TGaxis)
get_fptr (TGaxis Ptr RawTGaxis
ptr) = Ptr (Raw TGaxis)
Ptr RawTGaxis
ptr
        cast_fptr_to_obj :: Ptr (Raw TGaxis) -> TGaxis
cast_fptr_to_obj = Ptr (Raw TGaxis) -> TGaxis
Ptr RawTGaxis -> TGaxis
TGaxis