module HROOT.Hist.TH3F.Interface where
import Data.Word
import Foreign.C
import Foreign.Ptr
import Foreign.ForeignPtr
import FFICXX.Runtime.Cast
import HROOT.Hist.TH3F.RawType
import HROOT.Hist.TH3.Interface
import HROOT.Core.TArrayF.Interface
class (ITH3 a,ITArrayF a) => ITH3F a where
instance Existable TH3F where
data Exist TH3F = forall a. (FPtr a, ITH3F a) => ETH3F a
upcastTH3F :: (FPtr a, ITH3F a) => a -> TH3F
upcastTH3F h = let fh = get_fptr h
fh2 :: ForeignPtr RawTH3F = castForeignPtr fh
in cast_fptr_to_obj fh2
downcastTH3F :: (FPtr a, ITH3F a) => TH3F -> a
downcastTH3F h = let fh = get_fptr h
fh2 = castForeignPtr fh
in cast_fptr_to_obj fh2