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

data RawTArrayL

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

instance () => FPtr (TArrayL) where
        type Raw TArrayL = RawTArrayL
        get_fptr :: TArrayL -> Ptr (Raw TArrayL)
get_fptr (TArrayL Ptr RawTArrayL
ptr) = Ptr (Raw TArrayL)
Ptr RawTArrayL
ptr
        cast_fptr_to_obj :: Ptr (Raw TArrayL) -> TArrayL
cast_fptr_to_obj = Ptr (Raw TArrayL) -> TArrayL
Ptr RawTArrayL -> TArrayL
TArrayL