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

data RawTArrayS

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

instance () => FPtr (TArrayS) where
        type Raw TArrayS = RawTArrayS
        get_fptr :: TArrayS -> Ptr (Raw TArrayS)
get_fptr (TArrayS Ptr RawTArrayS
ptr) = Ptr (Raw TArrayS)
Ptr RawTArrayS
ptr
        cast_fptr_to_obj :: Ptr (Raw TArrayS) -> TArrayS
cast_fptr_to_obj = Ptr (Raw TArrayS) -> TArrayS
Ptr RawTArrayS -> TArrayS
TArrayS