#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.GLib.Unions.TokenValue
(
TokenValue(..) ,
newZeroTokenValue ,
noTokenValue ,
getTokenValueVBinary ,
setTokenValueVBinary ,
#if ENABLE_OVERLOADING
tokenValue_vBinary ,
#endif
getTokenValueVChar ,
setTokenValueVChar ,
#if ENABLE_OVERLOADING
tokenValue_vChar ,
#endif
clearTokenValueVComment ,
getTokenValueVComment ,
setTokenValueVComment ,
#if ENABLE_OVERLOADING
tokenValue_vComment ,
#endif
getTokenValueVError ,
setTokenValueVError ,
#if ENABLE_OVERLOADING
tokenValue_vError ,
#endif
getTokenValueVFloat ,
setTokenValueVFloat ,
#if ENABLE_OVERLOADING
tokenValue_vFloat ,
#endif
getTokenValueVHex ,
setTokenValueVHex ,
#if ENABLE_OVERLOADING
tokenValue_vHex ,
#endif
clearTokenValueVIdentifier ,
getTokenValueVIdentifier ,
setTokenValueVIdentifier ,
#if ENABLE_OVERLOADING
tokenValue_vIdentifier ,
#endif
getTokenValueVInt ,
setTokenValueVInt ,
#if ENABLE_OVERLOADING
tokenValue_vInt ,
#endif
getTokenValueVInt64 ,
setTokenValueVInt64 ,
#if ENABLE_OVERLOADING
tokenValue_vInt64 ,
#endif
getTokenValueVOctal ,
setTokenValueVOctal ,
#if ENABLE_OVERLOADING
tokenValue_vOctal ,
#endif
clearTokenValueVString ,
getTokenValueVString ,
setTokenValueVString ,
#if ENABLE_OVERLOADING
tokenValue_vString ,
#endif
clearTokenValueVSymbol ,
getTokenValueVSymbol ,
setTokenValueVSymbol ,
#if ENABLE_OVERLOADING
tokenValue_vSymbol ,
#endif
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
newtype TokenValue = TokenValue (ManagedPtr TokenValue)
instance WrappedPtr TokenValue where
wrappedPtrCalloc :: IO (Ptr TokenValue)
wrappedPtrCalloc = Int -> IO (Ptr TokenValue)
forall a. Int -> IO (Ptr a)
callocBytes 8
wrappedPtrCopy :: TokenValue -> IO TokenValue
wrappedPtrCopy = \p :: TokenValue
p -> TokenValue -> (Ptr TokenValue -> IO TokenValue) -> IO TokenValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
p (Int -> Ptr TokenValue -> IO (Ptr TokenValue)
forall a. WrappedPtr a => Int -> Ptr a -> IO (Ptr a)
copyBytes 8 (Ptr TokenValue -> IO (Ptr TokenValue))
-> (Ptr TokenValue -> IO TokenValue)
-> Ptr TokenValue
-> IO TokenValue
forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> (ManagedPtr TokenValue -> TokenValue)
-> Ptr TokenValue -> IO TokenValue
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr TokenValue -> TokenValue
TokenValue)
wrappedPtrFree :: Maybe (FunPtr (Ptr TokenValue -> IO ()))
wrappedPtrFree = FunPtr (Ptr TokenValue -> IO ())
-> Maybe (FunPtr (Ptr TokenValue -> IO ()))
forall a. a -> Maybe a
Just FunPtr (Ptr TokenValue -> IO ())
forall a. FunPtr (Ptr a -> IO ())
ptr_to_g_free
newZeroTokenValue :: MonadIO m => m TokenValue
newZeroTokenValue :: m TokenValue
newZeroTokenValue = IO TokenValue -> m TokenValue
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TokenValue -> m TokenValue) -> IO TokenValue -> m TokenValue
forall a b. (a -> b) -> a -> b
$ IO (Ptr TokenValue)
forall a. WrappedPtr a => IO (Ptr a)
wrappedPtrCalloc IO (Ptr TokenValue)
-> (Ptr TokenValue -> IO TokenValue) -> IO TokenValue
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (ManagedPtr TokenValue -> TokenValue)
-> Ptr TokenValue -> IO TokenValue
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr TokenValue -> TokenValue
TokenValue
instance tag ~ 'AttrSet => Constructible TokenValue tag where
new :: (ManagedPtr TokenValue -> TokenValue)
-> [AttrOp TokenValue tag] -> m TokenValue
new _ attrs :: [AttrOp TokenValue tag]
attrs = do
TokenValue
o <- m TokenValue
forall (m :: * -> *). MonadIO m => m TokenValue
newZeroTokenValue
TokenValue -> [AttrOp TokenValue 'AttrSet] -> m ()
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set TokenValue
o [AttrOp TokenValue tag]
[AttrOp TokenValue 'AttrSet]
attrs
TokenValue -> m TokenValue
forall (m :: * -> *) a. Monad m => a -> m a
return TokenValue
o
noTokenValue :: Maybe TokenValue
noTokenValue :: Maybe TokenValue
noTokenValue = Maybe TokenValue
forall a. Maybe a
Nothing
getTokenValueVSymbol :: MonadIO m => TokenValue -> m (Ptr ())
getTokenValueVSymbol :: TokenValue -> m (Ptr ())
getTokenValueVSymbol s :: TokenValue
s = IO (Ptr ()) -> m (Ptr ())
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO (Ptr ())) -> IO (Ptr ())
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO (Ptr ())) -> IO (Ptr ()))
-> (Ptr TokenValue -> IO (Ptr ())) -> IO (Ptr ())
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
Ptr ()
val <- Ptr (Ptr ()) -> IO (Ptr ())
forall a. Storable a => Ptr a -> IO a
peek (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO (Ptr ())
Ptr () -> IO (Ptr ())
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ()
val
setTokenValueVSymbol :: MonadIO m => TokenValue -> Ptr () -> m ()
setTokenValueVSymbol :: TokenValue -> Ptr () -> m ()
setTokenValueVSymbol s :: TokenValue
s val :: Ptr ()
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO ()) -> IO ())
-> (Ptr TokenValue -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (Ptr ()
val :: Ptr ())
clearTokenValueVSymbol :: MonadIO m => TokenValue -> m ()
clearTokenValueVSymbol :: TokenValue -> m ()
clearTokenValueVSymbol s :: TokenValue
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO ()) -> IO ())
-> (Ptr TokenValue -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (Ptr ()
forall a. Ptr a
FP.nullPtr :: Ptr ())
#if ENABLE_OVERLOADING
data TokenValueVSymbolFieldInfo
instance AttrInfo TokenValueVSymbolFieldInfo where
type AttrAllowedOps TokenValueVSymbolFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint TokenValueVSymbolFieldInfo = (~) (Ptr ())
type AttrBaseTypeConstraint TokenValueVSymbolFieldInfo = (~) TokenValue
type AttrGetType TokenValueVSymbolFieldInfo = Ptr ()
type AttrLabel TokenValueVSymbolFieldInfo = "v_symbol"
type AttrOrigin TokenValueVSymbolFieldInfo = TokenValue
attrGet _ = getTokenValueVSymbol
attrSet _ = setTokenValueVSymbol
attrConstruct = undefined
attrClear _ = clearTokenValueVSymbol
tokenValue_vSymbol :: AttrLabelProxy "vSymbol"
tokenValue_vSymbol = AttrLabelProxy
#endif
getTokenValueVIdentifier :: MonadIO m => TokenValue -> m (Maybe T.Text)
getTokenValueVIdentifier :: TokenValue -> m (Maybe Text)
getTokenValueVIdentifier s :: TokenValue
s = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ TokenValue
-> (Ptr TokenValue -> IO (Maybe Text)) -> IO (Maybe Text)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO (Maybe Text)) -> IO (Maybe Text))
-> (Ptr TokenValue -> IO (Maybe Text)) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
CString
val <- Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO CString
Maybe Text
result <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \val' :: CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
val'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setTokenValueVIdentifier :: MonadIO m => TokenValue -> CString -> m ()
setTokenValueVIdentifier :: TokenValue -> CString -> m ()
setTokenValueVIdentifier s :: TokenValue
s val :: CString
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO ()) -> IO ())
-> (Ptr TokenValue -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (CString
val :: CString)
clearTokenValueVIdentifier :: MonadIO m => TokenValue -> m ()
clearTokenValueVIdentifier :: TokenValue -> m ()
clearTokenValueVIdentifier s :: TokenValue
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO ()) -> IO ())
-> (Ptr TokenValue -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (CString
forall a. Ptr a
FP.nullPtr :: CString)
#if ENABLE_OVERLOADING
data TokenValueVIdentifierFieldInfo
instance AttrInfo TokenValueVIdentifierFieldInfo where
type AttrAllowedOps TokenValueVIdentifierFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint TokenValueVIdentifierFieldInfo = (~) CString
type AttrBaseTypeConstraint TokenValueVIdentifierFieldInfo = (~) TokenValue
type AttrGetType TokenValueVIdentifierFieldInfo = Maybe T.Text
type AttrLabel TokenValueVIdentifierFieldInfo = "v_identifier"
type AttrOrigin TokenValueVIdentifierFieldInfo = TokenValue
attrGet _ = getTokenValueVIdentifier
attrSet _ = setTokenValueVIdentifier
attrConstruct = undefined
attrClear _ = clearTokenValueVIdentifier
tokenValue_vIdentifier :: AttrLabelProxy "vIdentifier"
tokenValue_vIdentifier = AttrLabelProxy
#endif
getTokenValueVBinary :: MonadIO m => TokenValue -> m CULong
getTokenValueVBinary :: TokenValue -> m CULong
getTokenValueVBinary s :: TokenValue
s = IO CULong -> m CULong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO CULong) -> IO CULong
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO CULong) -> IO CULong)
-> (Ptr TokenValue -> IO CULong) -> IO CULong
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
CULong
val <- Ptr CULong -> IO CULong
forall a. Storable a => Ptr a -> IO a
peek (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr CULong
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO CULong
CULong -> IO CULong
forall (m :: * -> *) a. Monad m => a -> m a
return CULong
val
setTokenValueVBinary :: MonadIO m => TokenValue -> CULong -> m ()
setTokenValueVBinary :: TokenValue -> CULong -> m ()
setTokenValueVBinary s :: TokenValue
s val :: CULong
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO ()) -> IO ())
-> (Ptr TokenValue -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
Ptr CULong -> CULong -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr CULong
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (CULong
val :: CULong)
#if ENABLE_OVERLOADING
data TokenValueVBinaryFieldInfo
instance AttrInfo TokenValueVBinaryFieldInfo where
type AttrAllowedOps TokenValueVBinaryFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint TokenValueVBinaryFieldInfo = (~) CULong
type AttrBaseTypeConstraint TokenValueVBinaryFieldInfo = (~) TokenValue
type AttrGetType TokenValueVBinaryFieldInfo = CULong
type AttrLabel TokenValueVBinaryFieldInfo = "v_binary"
type AttrOrigin TokenValueVBinaryFieldInfo = TokenValue
attrGet _ = getTokenValueVBinary
attrSet _ = setTokenValueVBinary
attrConstruct = undefined
attrClear _ = undefined
tokenValue_vBinary :: AttrLabelProxy "vBinary"
tokenValue_vBinary = AttrLabelProxy
#endif
getTokenValueVOctal :: MonadIO m => TokenValue -> m CULong
getTokenValueVOctal :: TokenValue -> m CULong
getTokenValueVOctal s :: TokenValue
s = IO CULong -> m CULong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO CULong) -> IO CULong
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO CULong) -> IO CULong)
-> (Ptr TokenValue -> IO CULong) -> IO CULong
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
CULong
val <- Ptr CULong -> IO CULong
forall a. Storable a => Ptr a -> IO a
peek (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr CULong
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO CULong
CULong -> IO CULong
forall (m :: * -> *) a. Monad m => a -> m a
return CULong
val
setTokenValueVOctal :: MonadIO m => TokenValue -> CULong -> m ()
setTokenValueVOctal :: TokenValue -> CULong -> m ()
setTokenValueVOctal s :: TokenValue
s val :: CULong
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO ()) -> IO ())
-> (Ptr TokenValue -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
Ptr CULong -> CULong -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr CULong
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (CULong
val :: CULong)
#if ENABLE_OVERLOADING
data TokenValueVOctalFieldInfo
instance AttrInfo TokenValueVOctalFieldInfo where
type AttrAllowedOps TokenValueVOctalFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint TokenValueVOctalFieldInfo = (~) CULong
type AttrBaseTypeConstraint TokenValueVOctalFieldInfo = (~) TokenValue
type AttrGetType TokenValueVOctalFieldInfo = CULong
type AttrLabel TokenValueVOctalFieldInfo = "v_octal"
type AttrOrigin TokenValueVOctalFieldInfo = TokenValue
attrGet _ = getTokenValueVOctal
attrSet _ = setTokenValueVOctal
attrConstruct = undefined
attrClear _ = undefined
tokenValue_vOctal :: AttrLabelProxy "vOctal"
tokenValue_vOctal = AttrLabelProxy
#endif
getTokenValueVInt :: MonadIO m => TokenValue -> m CULong
getTokenValueVInt :: TokenValue -> m CULong
getTokenValueVInt s :: TokenValue
s = IO CULong -> m CULong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO CULong) -> IO CULong
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO CULong) -> IO CULong)
-> (Ptr TokenValue -> IO CULong) -> IO CULong
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
CULong
val <- Ptr CULong -> IO CULong
forall a. Storable a => Ptr a -> IO a
peek (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr CULong
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO CULong
CULong -> IO CULong
forall (m :: * -> *) a. Monad m => a -> m a
return CULong
val
setTokenValueVInt :: MonadIO m => TokenValue -> CULong -> m ()
setTokenValueVInt :: TokenValue -> CULong -> m ()
setTokenValueVInt s :: TokenValue
s val :: CULong
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO ()) -> IO ())
-> (Ptr TokenValue -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
Ptr CULong -> CULong -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr CULong
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (CULong
val :: CULong)
#if ENABLE_OVERLOADING
data TokenValueVIntFieldInfo
instance AttrInfo TokenValueVIntFieldInfo where
type AttrAllowedOps TokenValueVIntFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint TokenValueVIntFieldInfo = (~) CULong
type AttrBaseTypeConstraint TokenValueVIntFieldInfo = (~) TokenValue
type AttrGetType TokenValueVIntFieldInfo = CULong
type AttrLabel TokenValueVIntFieldInfo = "v_int"
type AttrOrigin TokenValueVIntFieldInfo = TokenValue
attrGet _ = getTokenValueVInt
attrSet _ = setTokenValueVInt
attrConstruct = undefined
attrClear _ = undefined
tokenValue_vInt :: AttrLabelProxy "vInt"
tokenValue_vInt = AttrLabelProxy
#endif
getTokenValueVInt64 :: MonadIO m => TokenValue -> m Word64
getTokenValueVInt64 :: TokenValue -> m Word64
getTokenValueVInt64 s :: TokenValue
s = IO Word64 -> m Word64
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO Word64) -> IO Word64
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO Word64) -> IO Word64)
-> (Ptr TokenValue -> IO Word64) -> IO Word64
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
Word64
val <- Ptr Word64 -> IO Word64
forall a. Storable a => Ptr a -> IO a
peek (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr Word64
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO Word64
Word64 -> IO Word64
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
val
setTokenValueVInt64 :: MonadIO m => TokenValue -> Word64 -> m ()
setTokenValueVInt64 :: TokenValue -> Word64 -> m ()
setTokenValueVInt64 s :: TokenValue
s val :: Word64
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO ()) -> IO ())
-> (Ptr TokenValue -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
Ptr Word64 -> Word64 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr Word64
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (Word64
val :: Word64)
#if ENABLE_OVERLOADING
data TokenValueVInt64FieldInfo
instance AttrInfo TokenValueVInt64FieldInfo where
type AttrAllowedOps TokenValueVInt64FieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint TokenValueVInt64FieldInfo = (~) Word64
type AttrBaseTypeConstraint TokenValueVInt64FieldInfo = (~) TokenValue
type AttrGetType TokenValueVInt64FieldInfo = Word64
type AttrLabel TokenValueVInt64FieldInfo = "v_int64"
type AttrOrigin TokenValueVInt64FieldInfo = TokenValue
attrGet _ = getTokenValueVInt64
attrSet _ = setTokenValueVInt64
attrConstruct = undefined
attrClear _ = undefined
tokenValue_vInt64 :: AttrLabelProxy "vInt64"
tokenValue_vInt64 = AttrLabelProxy
#endif
getTokenValueVFloat :: MonadIO m => TokenValue -> m Double
getTokenValueVFloat :: TokenValue -> m Double
getTokenValueVFloat s :: TokenValue
s = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO Double) -> IO Double
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO Double) -> IO Double)
-> (Ptr TokenValue -> IO Double) -> IO Double
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
CDouble
val <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO CDouble
let val' :: Double
val' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
val
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
val'
setTokenValueVFloat :: MonadIO m => TokenValue -> Double -> m ()
setTokenValueVFloat :: TokenValue -> Double -> m ()
setTokenValueVFloat s :: TokenValue
s val :: Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO ()) -> IO ())
-> (Ptr TokenValue -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
let val' :: CDouble
val' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
val
Ptr CDouble -> CDouble -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (CDouble
val' :: CDouble)
#if ENABLE_OVERLOADING
data TokenValueVFloatFieldInfo
instance AttrInfo TokenValueVFloatFieldInfo where
type AttrAllowedOps TokenValueVFloatFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint TokenValueVFloatFieldInfo = (~) Double
type AttrBaseTypeConstraint TokenValueVFloatFieldInfo = (~) TokenValue
type AttrGetType TokenValueVFloatFieldInfo = Double
type AttrLabel TokenValueVFloatFieldInfo = "v_float"
type AttrOrigin TokenValueVFloatFieldInfo = TokenValue
attrGet _ = getTokenValueVFloat
attrSet _ = setTokenValueVFloat
attrConstruct = undefined
attrClear _ = undefined
tokenValue_vFloat :: AttrLabelProxy "vFloat"
tokenValue_vFloat = AttrLabelProxy
#endif
getTokenValueVHex :: MonadIO m => TokenValue -> m CULong
getTokenValueVHex :: TokenValue -> m CULong
getTokenValueVHex s :: TokenValue
s = IO CULong -> m CULong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO CULong) -> IO CULong
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO CULong) -> IO CULong)
-> (Ptr TokenValue -> IO CULong) -> IO CULong
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
CULong
val <- Ptr CULong -> IO CULong
forall a. Storable a => Ptr a -> IO a
peek (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr CULong
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO CULong
CULong -> IO CULong
forall (m :: * -> *) a. Monad m => a -> m a
return CULong
val
setTokenValueVHex :: MonadIO m => TokenValue -> CULong -> m ()
setTokenValueVHex :: TokenValue -> CULong -> m ()
setTokenValueVHex s :: TokenValue
s val :: CULong
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO ()) -> IO ())
-> (Ptr TokenValue -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
Ptr CULong -> CULong -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr CULong
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (CULong
val :: CULong)
#if ENABLE_OVERLOADING
data TokenValueVHexFieldInfo
instance AttrInfo TokenValueVHexFieldInfo where
type AttrAllowedOps TokenValueVHexFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint TokenValueVHexFieldInfo = (~) CULong
type AttrBaseTypeConstraint TokenValueVHexFieldInfo = (~) TokenValue
type AttrGetType TokenValueVHexFieldInfo = CULong
type AttrLabel TokenValueVHexFieldInfo = "v_hex"
type AttrOrigin TokenValueVHexFieldInfo = TokenValue
attrGet _ = getTokenValueVHex
attrSet _ = setTokenValueVHex
attrConstruct = undefined
attrClear _ = undefined
tokenValue_vHex :: AttrLabelProxy "vHex"
tokenValue_vHex = AttrLabelProxy
#endif
getTokenValueVString :: MonadIO m => TokenValue -> m (Maybe T.Text)
getTokenValueVString :: TokenValue -> m (Maybe Text)
getTokenValueVString s :: TokenValue
s = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ TokenValue
-> (Ptr TokenValue -> IO (Maybe Text)) -> IO (Maybe Text)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO (Maybe Text)) -> IO (Maybe Text))
-> (Ptr TokenValue -> IO (Maybe Text)) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
CString
val <- Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO CString
Maybe Text
result <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \val' :: CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
val'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setTokenValueVString :: MonadIO m => TokenValue -> CString -> m ()
setTokenValueVString :: TokenValue -> CString -> m ()
setTokenValueVString s :: TokenValue
s val :: CString
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO ()) -> IO ())
-> (Ptr TokenValue -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (CString
val :: CString)
clearTokenValueVString :: MonadIO m => TokenValue -> m ()
clearTokenValueVString :: TokenValue -> m ()
clearTokenValueVString s :: TokenValue
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO ()) -> IO ())
-> (Ptr TokenValue -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (CString
forall a. Ptr a
FP.nullPtr :: CString)
#if ENABLE_OVERLOADING
data TokenValueVStringFieldInfo
instance AttrInfo TokenValueVStringFieldInfo where
type AttrAllowedOps TokenValueVStringFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint TokenValueVStringFieldInfo = (~) CString
type AttrBaseTypeConstraint TokenValueVStringFieldInfo = (~) TokenValue
type AttrGetType TokenValueVStringFieldInfo = Maybe T.Text
type AttrLabel TokenValueVStringFieldInfo = "v_string"
type AttrOrigin TokenValueVStringFieldInfo = TokenValue
attrGet _ = getTokenValueVString
attrSet _ = setTokenValueVString
attrConstruct = undefined
attrClear _ = clearTokenValueVString
tokenValue_vString :: AttrLabelProxy "vString"
tokenValue_vString = AttrLabelProxy
#endif
getTokenValueVComment :: MonadIO m => TokenValue -> m (Maybe T.Text)
s :: TokenValue
s = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ TokenValue
-> (Ptr TokenValue -> IO (Maybe Text)) -> IO (Maybe Text)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO (Maybe Text)) -> IO (Maybe Text))
-> (Ptr TokenValue -> IO (Maybe Text)) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
CString
val <- Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO CString
Maybe Text
result <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \val' :: CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
val'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setTokenValueVComment :: MonadIO m => TokenValue -> CString -> m ()
s :: TokenValue
s val :: CString
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO ()) -> IO ())
-> (Ptr TokenValue -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (CString
val :: CString)
clearTokenValueVComment :: MonadIO m => TokenValue -> m ()
s :: TokenValue
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO ()) -> IO ())
-> (Ptr TokenValue -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (CString
forall a. Ptr a
FP.nullPtr :: CString)
#if ENABLE_OVERLOADING
data TokenValueVCommentFieldInfo
instance AttrInfo TokenValueVCommentFieldInfo where
type AttrAllowedOps TokenValueVCommentFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint TokenValueVCommentFieldInfo = (~) CString
type AttrBaseTypeConstraint TokenValueVCommentFieldInfo = (~) TokenValue
type AttrGetType TokenValueVCommentFieldInfo = Maybe T.Text
type AttrLabel TokenValueVCommentFieldInfo = "v_comment"
type AttrOrigin TokenValueVCommentFieldInfo = TokenValue
attrGet _ = getTokenValueVComment
attrSet _ = setTokenValueVComment
attrConstruct = undefined
attrClear _ = clearTokenValueVComment
tokenValue_vComment :: AttrLabelProxy "vComment"
tokenValue_vComment = AttrLabelProxy
#endif
getTokenValueVChar :: MonadIO m => TokenValue -> m Word8
getTokenValueVChar :: TokenValue -> m Word8
getTokenValueVChar s :: TokenValue
s = IO Word8 -> m Word8
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word8 -> m Word8) -> IO Word8 -> m Word8
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO Word8) -> IO Word8
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO Word8) -> IO Word8)
-> (Ptr TokenValue -> IO Word8) -> IO Word8
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
Word8
val <- Ptr Word8 -> IO Word8
forall a. Storable a => Ptr a -> IO a
peek (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr Word8
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO Word8
Word8 -> IO Word8
forall (m :: * -> *) a. Monad m => a -> m a
return Word8
val
setTokenValueVChar :: MonadIO m => TokenValue -> Word8 -> m ()
setTokenValueVChar :: TokenValue -> Word8 -> m ()
setTokenValueVChar s :: TokenValue
s val :: Word8
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO ()) -> IO ())
-> (Ptr TokenValue -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
Ptr Word8 -> Word8 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr Word8
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (Word8
val :: Word8)
#if ENABLE_OVERLOADING
data TokenValueVCharFieldInfo
instance AttrInfo TokenValueVCharFieldInfo where
type AttrAllowedOps TokenValueVCharFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint TokenValueVCharFieldInfo = (~) Word8
type AttrBaseTypeConstraint TokenValueVCharFieldInfo = (~) TokenValue
type AttrGetType TokenValueVCharFieldInfo = Word8
type AttrLabel TokenValueVCharFieldInfo = "v_char"
type AttrOrigin TokenValueVCharFieldInfo = TokenValue
attrGet _ = getTokenValueVChar
attrSet _ = setTokenValueVChar
attrConstruct = undefined
attrClear _ = undefined
tokenValue_vChar :: AttrLabelProxy "vChar"
tokenValue_vChar = AttrLabelProxy
#endif
getTokenValueVError :: MonadIO m => TokenValue -> m Word32
getTokenValueVError :: TokenValue -> m Word32
getTokenValueVError s :: TokenValue
s = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO Word32) -> IO Word32)
-> (Ptr TokenValue -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO Word32
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setTokenValueVError :: MonadIO m => TokenValue -> Word32 -> m ()
setTokenValueVError :: TokenValue -> Word32 -> m ()
setTokenValueVError s :: TokenValue
s val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ TokenValue -> (Ptr TokenValue -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TokenValue
s ((Ptr TokenValue -> IO ()) -> IO ())
-> (Ptr TokenValue -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr TokenValue
ptr -> do
Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TokenValue
ptr Ptr TokenValue -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (Word32
val :: Word32)
#if ENABLE_OVERLOADING
data TokenValueVErrorFieldInfo
instance AttrInfo TokenValueVErrorFieldInfo where
type AttrAllowedOps TokenValueVErrorFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint TokenValueVErrorFieldInfo = (~) Word32
type AttrBaseTypeConstraint TokenValueVErrorFieldInfo = (~) TokenValue
type AttrGetType TokenValueVErrorFieldInfo = Word32
type AttrLabel TokenValueVErrorFieldInfo = "v_error"
type AttrOrigin TokenValueVErrorFieldInfo = TokenValue
attrGet _ = getTokenValueVError
attrSet _ = setTokenValueVError
attrConstruct = undefined
attrClear _ = undefined
tokenValue_vError :: AttrLabelProxy "vError"
tokenValue_vError = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList TokenValue
type instance O.AttributeList TokenValue = TokenValueAttributeList
type TokenValueAttributeList = ('[ '("vSymbol", TokenValueVSymbolFieldInfo), '("vIdentifier", TokenValueVIdentifierFieldInfo), '("vBinary", TokenValueVBinaryFieldInfo), '("vOctal", TokenValueVOctalFieldInfo), '("vInt", TokenValueVIntFieldInfo), '("vInt64", TokenValueVInt64FieldInfo), '("vFloat", TokenValueVFloatFieldInfo), '("vHex", TokenValueVHexFieldInfo), '("vString", TokenValueVStringFieldInfo), '("vComment", TokenValueVCommentFieldInfo), '("vChar", TokenValueVCharFieldInfo), '("vError", TokenValueVErrorFieldInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
type family ResolveTokenValueMethod (t :: Symbol) (o :: *) :: * where
ResolveTokenValueMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTokenValueMethod t TokenValue, O.MethodInfo info TokenValue p) => O.IsLabelProxy t (TokenValue -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveTokenValueMethod t TokenValue, O.MethodInfo info TokenValue p) => O.IsLabel t (TokenValue -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif