{-# LANGUAGE TypeApplications #-}


-- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-- License    : LGPL-2.1
-- Maintainer : Iñaki García Etxebarria
-- 
-- Specifies the t'GI.GLib.Structs.Scanner.Scanner' parser configuration. Most settings can
-- be changed during the parsing phase and will affect the lexical
-- parsing of the next unpeeked token.

#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif

module GI.GLib.Structs.ScannerConfig
    ( 

-- * Exported types
    ScannerConfig(..)                       ,
    newZeroScannerConfig                    ,


 -- * Methods
-- ** Overloaded methods #method:Overloaded methods#

#if defined(ENABLE_OVERLOADING)
    ResolveScannerConfigMethod              ,
#endif




 -- * Properties
-- ** caseSensitive #attr:caseSensitive#
-- | specifies if symbols are case sensitive (the
--     default is 'P.False').

    getScannerConfigCaseSensitive           ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_caseSensitive             ,
#endif
    setScannerConfigCaseSensitive           ,


-- ** char2Token #attr:char2Token#
-- | specifies if characters are reported by setting
--     @token = ch@ or as 'GI.GLib.Enums.TokenTypeChar' (the default is 'P.True').

    getScannerConfigChar2Token              ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_char2Token                ,
#endif
    setScannerConfigChar2Token              ,


-- ** cpairCommentSingle #attr:cpairCommentSingle#
-- | specifies the characters at the start and
--     end of single-line comments. The default is \"#\\n\" which means
--     that single-line comments start with a \'#\' and continue until
--     a \'\\n\' (end of line).

    clearScannerConfigCpairCommentSingle    ,
    getScannerConfigCpairCommentSingle      ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_cpairCommentSingle        ,
#endif
    setScannerConfigCpairCommentSingle      ,


-- ** csetIdentifierFirst #attr:csetIdentifierFirst#
-- | specifies the characters which can start
--     identifiers (the default is 'GI.GLib.Constants.CSET_a_2_z', \"_\", and 'GI.GLib.Constants.CSET_A_2_Z').

    clearScannerConfigCsetIdentifierFirst   ,
    getScannerConfigCsetIdentifierFirst     ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_csetIdentifierFirst       ,
#endif
    setScannerConfigCsetIdentifierFirst     ,


-- ** csetIdentifierNth #attr:csetIdentifierNth#
-- | specifies the characters which can be used
--     in identifiers, after the first character (the default is
--     'GI.GLib.Constants.CSET_a_2_z', \"_0123456789\", 'GI.GLib.Constants.CSET_A_2_Z', @/G_CSET_LATINS/@,
--     @/G_CSET_LATINC/@).

    clearScannerConfigCsetIdentifierNth     ,
    getScannerConfigCsetIdentifierNth       ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_csetIdentifierNth         ,
#endif
    setScannerConfigCsetIdentifierNth       ,


-- ** csetSkipCharacters #attr:csetSkipCharacters#
-- | specifies which characters should be skipped
--     by the scanner (the default is the whitespace characters: space,
--     tab, carriage-return and line-feed).

    clearScannerConfigCsetSkipCharacters    ,
    getScannerConfigCsetSkipCharacters      ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_csetSkipCharacters        ,
#endif
    setScannerConfigCsetSkipCharacters      ,


-- ** identifier2String #attr:identifier2String#
-- | specifies if identifiers are reported as strings
--     (the default is 'P.False').

    getScannerConfigIdentifier2String       ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_identifier2String         ,
#endif
    setScannerConfigIdentifier2String       ,


-- ** int2Float #attr:int2Float#
-- | specifies if all numbers are reported as 'GI.GLib.Enums.TokenTypeFloat'
--     (the default is 'P.False').

    getScannerConfigInt2Float               ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_int2Float                 ,
#endif
    setScannerConfigInt2Float               ,


-- ** numbers2Int #attr:numbers2Int#
-- | specifies if binary, octal and hexadecimal numbers
--     are reported as @/G_TOKEN_INT/@ (the default is 'P.True').

    getScannerConfigNumbers2Int             ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_numbers2Int               ,
#endif
    setScannerConfigNumbers2Int             ,


-- ** scanBinary #attr:scanBinary#
-- | specifies if binary numbers are recognized (the
--     default is 'P.False').

    getScannerConfigScanBinary              ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_scanBinary                ,
#endif
    setScannerConfigScanBinary              ,


-- ** scanCommentMulti #attr:scanCommentMulti#
-- | specifies if multi-line comments are recognized
--     (the default is 'P.True').

    getScannerConfigScanCommentMulti        ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_scanCommentMulti          ,
#endif
    setScannerConfigScanCommentMulti        ,


-- ** scanFloat #attr:scanFloat#
-- | specifies if floating point numbers are recognized
--     (the default is 'P.True').

    getScannerConfigScanFloat               ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_scanFloat                 ,
#endif
    setScannerConfigScanFloat               ,


-- ** scanHex #attr:scanHex#
-- | specifies if hexadecimal numbers are recognized (the
--     default is 'P.True').

    getScannerConfigScanHex                 ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_scanHex                   ,
#endif
    setScannerConfigScanHex                 ,


-- ** scanHexDollar #attr:scanHexDollar#
-- | specifies if \'$\' is recognized as a prefix for
--     hexadecimal numbers (the default is 'P.False').

    getScannerConfigScanHexDollar           ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_scanHexDollar             ,
#endif
    setScannerConfigScanHexDollar           ,


-- ** scanIdentifier #attr:scanIdentifier#
-- | specifies if identifiers are recognized (the
--     default is 'P.True').

    getScannerConfigScanIdentifier          ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_scanIdentifier            ,
#endif
    setScannerConfigScanIdentifier          ,


-- ** scanIdentifier1char #attr:scanIdentifier1char#
-- | specifies if single-character
--     identifiers are recognized (the default is 'P.False').

    getScannerConfigScanIdentifier1char     ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_scanIdentifier1char       ,
#endif
    setScannerConfigScanIdentifier1char     ,


-- ** scanIdentifierNULL #attr:scanIdentifierNULL#
-- | specifies if 'P.Nothing' is reported as
--     'GI.GLib.Enums.TokenTypeIdentifierNull' (the default is 'P.False').

    getScannerConfigScanIdentifierNULL      ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_scanIdentifierNULL        ,
#endif
    setScannerConfigScanIdentifierNULL      ,


-- ** scanOctal #attr:scanOctal#
-- | specifies if octal numbers are recognized (the
--     default is 'P.True').

    getScannerConfigScanOctal               ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_scanOctal                 ,
#endif
    setScannerConfigScanOctal               ,


-- ** scanStringDq #attr:scanStringDq#
-- | specifies if strings can be enclosed in double
--     quotes (the default is 'P.True').

    getScannerConfigScanStringDq            ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_scanStringDq              ,
#endif
    setScannerConfigScanStringDq            ,


-- ** scanStringSq #attr:scanStringSq#
-- | specifies if strings can be enclosed in single
--     quotes (the default is 'P.True').

    getScannerConfigScanStringSq            ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_scanStringSq              ,
#endif
    setScannerConfigScanStringSq            ,


-- ** scanSymbols #attr:scanSymbols#
-- | specifies if symbols are recognized (the default
--     is 'P.True').

    getScannerConfigScanSymbols             ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_scanSymbols               ,
#endif
    setScannerConfigScanSymbols             ,


-- ** scope0Fallback #attr:scope0Fallback#
-- | specifies if a symbol is searched for in the
--     default scope in addition to the current scope (the default is 'P.False').

    getScannerConfigScope0Fallback          ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_scope0Fallback            ,
#endif
    setScannerConfigScope0Fallback          ,


-- ** skipCommentMulti #attr:skipCommentMulti#
-- | specifies if multi-line comments are skipped
--     and not returned as tokens (the default is 'P.True').

    getScannerConfigSkipCommentMulti        ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_skipCommentMulti          ,
#endif
    setScannerConfigSkipCommentMulti        ,


-- ** skipCommentSingle #attr:skipCommentSingle#
-- | specifies if single-line comments are skipped
--     and not returned as tokens (the default is 'P.True').

    getScannerConfigSkipCommentSingle       ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_skipCommentSingle         ,
#endif
    setScannerConfigSkipCommentSingle       ,


-- ** storeInt64 #attr:storeInt64#
-- | use value.v_int64 rather than v_int

    getScannerConfigStoreInt64              ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_storeInt64                ,
#endif
    setScannerConfigStoreInt64              ,


-- ** symbol2Token #attr:symbol2Token#
-- | specifies if symbols are reported by setting
--     @token = v_symbol@ or as 'GI.GLib.Enums.TokenTypeSymbol' (the default is 'P.False').

    getScannerConfigSymbol2Token            ,
#if defined(ENABLE_OVERLOADING)
    scannerConfig_symbol2Token              ,
#endif
    setScannerConfigSymbol2Token            ,




    ) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
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.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
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
import qualified GHC.OverloadedLabels as OL


-- | Memory-managed wrapper type.
newtype ScannerConfig = ScannerConfig (SP.ManagedPtr ScannerConfig)
    deriving (ScannerConfig -> ScannerConfig -> Bool
(ScannerConfig -> ScannerConfig -> Bool)
-> (ScannerConfig -> ScannerConfig -> Bool) -> Eq ScannerConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ScannerConfig -> ScannerConfig -> Bool
$c/= :: ScannerConfig -> ScannerConfig -> Bool
== :: ScannerConfig -> ScannerConfig -> Bool
$c== :: ScannerConfig -> ScannerConfig -> Bool
Eq)

instance SP.ManagedPtrNewtype ScannerConfig where
    toManagedPtr :: ScannerConfig -> ManagedPtr ScannerConfig
toManagedPtr (ScannerConfig ManagedPtr ScannerConfig
p) = ManagedPtr ScannerConfig
p

instance BoxedPtr ScannerConfig where
    boxedPtrCopy :: ScannerConfig -> IO ScannerConfig
boxedPtrCopy = \ScannerConfig
p -> ScannerConfig
-> (Ptr ScannerConfig -> IO ScannerConfig) -> IO ScannerConfig
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ScannerConfig
p (Int -> Ptr ScannerConfig -> IO (Ptr ScannerConfig)
forall a. (HasCallStack, CallocPtr a) => Int -> Ptr a -> IO (Ptr a)
copyBytes Int
128 (Ptr ScannerConfig -> IO (Ptr ScannerConfig))
-> (Ptr ScannerConfig -> IO ScannerConfig)
-> Ptr ScannerConfig
-> IO ScannerConfig
forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> (ManagedPtr ScannerConfig -> ScannerConfig)
-> Ptr ScannerConfig -> IO ScannerConfig
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.wrapPtr ManagedPtr ScannerConfig -> ScannerConfig
ScannerConfig)
    boxedPtrFree :: ScannerConfig -> IO ()
boxedPtrFree = \ScannerConfig
x -> ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
SP.withManagedPtr ScannerConfig
x Ptr ScannerConfig -> IO ()
forall a. Ptr a -> IO ()
SP.freeMem
instance CallocPtr ScannerConfig where
    boxedPtrCalloc :: IO (Ptr ScannerConfig)
boxedPtrCalloc = Int -> IO (Ptr ScannerConfig)
forall a. Int -> IO (Ptr a)
callocBytes Int
128


-- | Construct a `ScannerConfig` struct initialized to zero.
newZeroScannerConfig :: MonadIO m => m ScannerConfig
newZeroScannerConfig :: m ScannerConfig
newZeroScannerConfig = IO ScannerConfig -> m ScannerConfig
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ScannerConfig -> m ScannerConfig)
-> IO ScannerConfig -> m ScannerConfig
forall a b. (a -> b) -> a -> b
$ IO (Ptr ScannerConfig)
forall a. CallocPtr a => IO (Ptr a)
boxedPtrCalloc IO (Ptr ScannerConfig)
-> (Ptr ScannerConfig -> IO ScannerConfig) -> IO ScannerConfig
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (ManagedPtr ScannerConfig -> ScannerConfig)
-> Ptr ScannerConfig -> IO ScannerConfig
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr ScannerConfig -> ScannerConfig
ScannerConfig

instance tag ~ 'AttrSet => Constructible ScannerConfig tag where
    new :: (ManagedPtr ScannerConfig -> ScannerConfig)
-> [AttrOp ScannerConfig tag] -> m ScannerConfig
new ManagedPtr ScannerConfig -> ScannerConfig
_ [AttrOp ScannerConfig tag]
attrs = do
        ScannerConfig
o <- m ScannerConfig
forall (m :: * -> *). MonadIO m => m ScannerConfig
newZeroScannerConfig
        ScannerConfig -> [AttrOp ScannerConfig 'AttrSet] -> m ()
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set ScannerConfig
o [AttrOp ScannerConfig tag]
[AttrOp ScannerConfig 'AttrSet]
attrs
        ScannerConfig -> m ScannerConfig
forall (m :: * -> *) a. Monad m => a -> m a
return ScannerConfig
o


-- | Get the value of the “@cset_skip_characters@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #csetSkipCharacters
-- @
getScannerConfigCsetSkipCharacters :: MonadIO m => ScannerConfig -> m (Maybe T.Text)
getScannerConfigCsetSkipCharacters :: ScannerConfig -> m (Maybe Text)
getScannerConfigCsetSkipCharacters ScannerConfig
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
$ ScannerConfig
-> (Ptr ScannerConfig -> IO (Maybe Text)) -> IO (Maybe Text)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO (Maybe Text)) -> IO (Maybe Text))
-> (Ptr ScannerConfig -> IO (Maybe Text)) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    CString
val <- Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
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
$ \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

-- | Set the value of the “@cset_skip_characters@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #csetSkipCharacters 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigCsetSkipCharacters :: MonadIO m => ScannerConfig -> CString -> m ()
setScannerConfigCsetSkipCharacters :: ScannerConfig -> CString -> m ()
setScannerConfigCsetSkipCharacters ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (CString
val :: CString)

-- | Set the value of the “@cset_skip_characters@” field to `Nothing`.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.clear' #csetSkipCharacters
-- @
clearScannerConfigCsetSkipCharacters :: MonadIO m => ScannerConfig -> m ()
clearScannerConfigCsetSkipCharacters :: ScannerConfig -> m ()
clearScannerConfigCsetSkipCharacters ScannerConfig
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (CString
forall a. Ptr a
FP.nullPtr :: CString)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigCsetSkipCharactersFieldInfo
instance AttrInfo ScannerConfigCsetSkipCharactersFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigCsetSkipCharactersFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigCsetSkipCharactersFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint ScannerConfigCsetSkipCharactersFieldInfo = (~) CString
    type AttrTransferTypeConstraint ScannerConfigCsetSkipCharactersFieldInfo = (~)CString
    type AttrTransferType ScannerConfigCsetSkipCharactersFieldInfo = CString
    type AttrGetType ScannerConfigCsetSkipCharactersFieldInfo = Maybe T.Text
    type AttrLabel ScannerConfigCsetSkipCharactersFieldInfo = "cset_skip_characters"
    type AttrOrigin ScannerConfigCsetSkipCharactersFieldInfo = ScannerConfig
    attrGet = getScannerConfigCsetSkipCharacters
    attrSet = setScannerConfigCsetSkipCharacters
    attrConstruct = undefined
    attrClear = clearScannerConfigCsetSkipCharacters
    attrTransfer _ v = do
        return v

scannerConfig_csetSkipCharacters :: AttrLabelProxy "csetSkipCharacters"
scannerConfig_csetSkipCharacters = AttrLabelProxy

#endif


-- | Get the value of the “@cset_identifier_first@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #csetIdentifierFirst
-- @
getScannerConfigCsetIdentifierFirst :: MonadIO m => ScannerConfig -> m (Maybe T.Text)
getScannerConfigCsetIdentifierFirst :: ScannerConfig -> m (Maybe Text)
getScannerConfigCsetIdentifierFirst ScannerConfig
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
$ ScannerConfig
-> (Ptr ScannerConfig -> IO (Maybe Text)) -> IO (Maybe Text)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO (Maybe Text)) -> IO (Maybe Text))
-> (Ptr ScannerConfig -> IO (Maybe Text)) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    CString
val <- Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) :: 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
$ \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

-- | Set the value of the “@cset_identifier_first@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #csetIdentifierFirst 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigCsetIdentifierFirst :: MonadIO m => ScannerConfig -> CString -> m ()
setScannerConfigCsetIdentifierFirst :: ScannerConfig -> CString -> m ()
setScannerConfigCsetIdentifierFirst ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (CString
val :: CString)

-- | Set the value of the “@cset_identifier_first@” field to `Nothing`.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.clear' #csetIdentifierFirst
-- @
clearScannerConfigCsetIdentifierFirst :: MonadIO m => ScannerConfig -> m ()
clearScannerConfigCsetIdentifierFirst :: ScannerConfig -> m ()
clearScannerConfigCsetIdentifierFirst ScannerConfig
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (CString
forall a. Ptr a
FP.nullPtr :: CString)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigCsetIdentifierFirstFieldInfo
instance AttrInfo ScannerConfigCsetIdentifierFirstFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigCsetIdentifierFirstFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigCsetIdentifierFirstFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint ScannerConfigCsetIdentifierFirstFieldInfo = (~) CString
    type AttrTransferTypeConstraint ScannerConfigCsetIdentifierFirstFieldInfo = (~)CString
    type AttrTransferType ScannerConfigCsetIdentifierFirstFieldInfo = CString
    type AttrGetType ScannerConfigCsetIdentifierFirstFieldInfo = Maybe T.Text
    type AttrLabel ScannerConfigCsetIdentifierFirstFieldInfo = "cset_identifier_first"
    type AttrOrigin ScannerConfigCsetIdentifierFirstFieldInfo = ScannerConfig
    attrGet = getScannerConfigCsetIdentifierFirst
    attrSet = setScannerConfigCsetIdentifierFirst
    attrConstruct = undefined
    attrClear = clearScannerConfigCsetIdentifierFirst
    attrTransfer _ v = do
        return v

scannerConfig_csetIdentifierFirst :: AttrLabelProxy "csetIdentifierFirst"
scannerConfig_csetIdentifierFirst = AttrLabelProxy

#endif


-- | Get the value of the “@cset_identifier_nth@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #csetIdentifierNth
-- @
getScannerConfigCsetIdentifierNth :: MonadIO m => ScannerConfig -> m (Maybe T.Text)
getScannerConfigCsetIdentifierNth :: ScannerConfig -> m (Maybe Text)
getScannerConfigCsetIdentifierNth ScannerConfig
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
$ ScannerConfig
-> (Ptr ScannerConfig -> IO (Maybe Text)) -> IO (Maybe Text)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO (Maybe Text)) -> IO (Maybe Text))
-> (Ptr ScannerConfig -> IO (Maybe Text)) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    CString
val <- Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) :: 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
$ \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

-- | Set the value of the “@cset_identifier_nth@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #csetIdentifierNth 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigCsetIdentifierNth :: MonadIO m => ScannerConfig -> CString -> m ()
setScannerConfigCsetIdentifierNth :: ScannerConfig -> CString -> m ()
setScannerConfigCsetIdentifierNth ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (CString
val :: CString)

-- | Set the value of the “@cset_identifier_nth@” field to `Nothing`.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.clear' #csetIdentifierNth
-- @
clearScannerConfigCsetIdentifierNth :: MonadIO m => ScannerConfig -> m ()
clearScannerConfigCsetIdentifierNth :: ScannerConfig -> m ()
clearScannerConfigCsetIdentifierNth ScannerConfig
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (CString
forall a. Ptr a
FP.nullPtr :: CString)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigCsetIdentifierNthFieldInfo
instance AttrInfo ScannerConfigCsetIdentifierNthFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigCsetIdentifierNthFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigCsetIdentifierNthFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint ScannerConfigCsetIdentifierNthFieldInfo = (~) CString
    type AttrTransferTypeConstraint ScannerConfigCsetIdentifierNthFieldInfo = (~)CString
    type AttrTransferType ScannerConfigCsetIdentifierNthFieldInfo = CString
    type AttrGetType ScannerConfigCsetIdentifierNthFieldInfo = Maybe T.Text
    type AttrLabel ScannerConfigCsetIdentifierNthFieldInfo = "cset_identifier_nth"
    type AttrOrigin ScannerConfigCsetIdentifierNthFieldInfo = ScannerConfig
    attrGet = getScannerConfigCsetIdentifierNth
    attrSet = setScannerConfigCsetIdentifierNth
    attrConstruct = undefined
    attrClear = clearScannerConfigCsetIdentifierNth
    attrTransfer _ v = do
        return v

scannerConfig_csetIdentifierNth :: AttrLabelProxy "csetIdentifierNth"
scannerConfig_csetIdentifierNth = AttrLabelProxy

#endif


-- | Get the value of the “@cpair_comment_single@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #cpairCommentSingle
-- @
getScannerConfigCpairCommentSingle :: MonadIO m => ScannerConfig -> m (Maybe T.Text)
getScannerConfigCpairCommentSingle :: ScannerConfig -> m (Maybe Text)
getScannerConfigCpairCommentSingle ScannerConfig
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
$ ScannerConfig
-> (Ptr ScannerConfig -> IO (Maybe Text)) -> IO (Maybe Text)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO (Maybe Text)) -> IO (Maybe Text))
-> (Ptr ScannerConfig -> IO (Maybe Text)) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    CString
val <- Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) :: 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
$ \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

-- | Set the value of the “@cpair_comment_single@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #cpairCommentSingle 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigCpairCommentSingle :: MonadIO m => ScannerConfig -> CString -> m ()
setScannerConfigCpairCommentSingle :: ScannerConfig -> CString -> m ()
setScannerConfigCpairCommentSingle ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) (CString
val :: CString)

-- | Set the value of the “@cpair_comment_single@” field to `Nothing`.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.clear' #cpairCommentSingle
-- @
clearScannerConfigCpairCommentSingle :: MonadIO m => ScannerConfig -> m ()
clearScannerConfigCpairCommentSingle :: ScannerConfig -> m ()
clearScannerConfigCpairCommentSingle ScannerConfig
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) (CString
forall a. Ptr a
FP.nullPtr :: CString)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigCpairCommentSingleFieldInfo
instance AttrInfo ScannerConfigCpairCommentSingleFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigCpairCommentSingleFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigCpairCommentSingleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint ScannerConfigCpairCommentSingleFieldInfo = (~) CString
    type AttrTransferTypeConstraint ScannerConfigCpairCommentSingleFieldInfo = (~)CString
    type AttrTransferType ScannerConfigCpairCommentSingleFieldInfo = CString
    type AttrGetType ScannerConfigCpairCommentSingleFieldInfo = Maybe T.Text
    type AttrLabel ScannerConfigCpairCommentSingleFieldInfo = "cpair_comment_single"
    type AttrOrigin ScannerConfigCpairCommentSingleFieldInfo = ScannerConfig
    attrGet = getScannerConfigCpairCommentSingle
    attrSet = setScannerConfigCpairCommentSingle
    attrConstruct = undefined
    attrClear = clearScannerConfigCpairCommentSingle
    attrTransfer _ v = do
        return v

scannerConfig_cpairCommentSingle :: AttrLabelProxy "cpairCommentSingle"
scannerConfig_cpairCommentSingle = AttrLabelProxy

#endif


-- | Get the value of the “@case_sensitive@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #caseSensitive
-- @
getScannerConfigCaseSensitive :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigCaseSensitive :: ScannerConfig -> m Word32
getScannerConfigCaseSensitive ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@case_sensitive@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #caseSensitive 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigCaseSensitive :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigCaseSensitive :: ScannerConfig -> Word32 -> m ()
setScannerConfigCaseSensitive ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigCaseSensitiveFieldInfo
instance AttrInfo ScannerConfigCaseSensitiveFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigCaseSensitiveFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigCaseSensitiveFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigCaseSensitiveFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigCaseSensitiveFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigCaseSensitiveFieldInfo = Word32
    type AttrGetType ScannerConfigCaseSensitiveFieldInfo = Word32
    type AttrLabel ScannerConfigCaseSensitiveFieldInfo = "case_sensitive"
    type AttrOrigin ScannerConfigCaseSensitiveFieldInfo = ScannerConfig
    attrGet = getScannerConfigCaseSensitive
    attrSet = setScannerConfigCaseSensitive
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_caseSensitive :: AttrLabelProxy "caseSensitive"
scannerConfig_caseSensitive = AttrLabelProxy

#endif


-- | Get the value of the “@skip_comment_multi@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #skipCommentMulti
-- @
getScannerConfigSkipCommentMulti :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigSkipCommentMulti :: ScannerConfig -> m Word32
getScannerConfigSkipCommentMulti ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
36) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@skip_comment_multi@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #skipCommentMulti 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigSkipCommentMulti :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigSkipCommentMulti :: ScannerConfig -> Word32 -> m ()
setScannerConfigSkipCommentMulti ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
36) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigSkipCommentMultiFieldInfo
instance AttrInfo ScannerConfigSkipCommentMultiFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigSkipCommentMultiFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigSkipCommentMultiFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigSkipCommentMultiFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigSkipCommentMultiFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigSkipCommentMultiFieldInfo = Word32
    type AttrGetType ScannerConfigSkipCommentMultiFieldInfo = Word32
    type AttrLabel ScannerConfigSkipCommentMultiFieldInfo = "skip_comment_multi"
    type AttrOrigin ScannerConfigSkipCommentMultiFieldInfo = ScannerConfig
    attrGet = getScannerConfigSkipCommentMulti
    attrSet = setScannerConfigSkipCommentMulti
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_skipCommentMulti :: AttrLabelProxy "skipCommentMulti"
scannerConfig_skipCommentMulti = AttrLabelProxy

#endif


-- | Get the value of the “@skip_comment_single@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #skipCommentSingle
-- @
getScannerConfigSkipCommentSingle :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigSkipCommentSingle :: ScannerConfig -> m Word32
getScannerConfigSkipCommentSingle ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@skip_comment_single@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #skipCommentSingle 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigSkipCommentSingle :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigSkipCommentSingle :: ScannerConfig -> Word32 -> m ()
setScannerConfigSkipCommentSingle ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigSkipCommentSingleFieldInfo
instance AttrInfo ScannerConfigSkipCommentSingleFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigSkipCommentSingleFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigSkipCommentSingleFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigSkipCommentSingleFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigSkipCommentSingleFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigSkipCommentSingleFieldInfo = Word32
    type AttrGetType ScannerConfigSkipCommentSingleFieldInfo = Word32
    type AttrLabel ScannerConfigSkipCommentSingleFieldInfo = "skip_comment_single"
    type AttrOrigin ScannerConfigSkipCommentSingleFieldInfo = ScannerConfig
    attrGet = getScannerConfigSkipCommentSingle
    attrSet = setScannerConfigSkipCommentSingle
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_skipCommentSingle :: AttrLabelProxy "skipCommentSingle"
scannerConfig_skipCommentSingle = AttrLabelProxy

#endif


-- | Get the value of the “@scan_comment_multi@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #scanCommentMulti
-- @
getScannerConfigScanCommentMulti :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanCommentMulti :: ScannerConfig -> m Word32
getScannerConfigScanCommentMulti ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
44) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@scan_comment_multi@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #scanCommentMulti 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigScanCommentMulti :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanCommentMulti :: ScannerConfig -> Word32 -> m ()
setScannerConfigScanCommentMulti ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
44) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigScanCommentMultiFieldInfo
instance AttrInfo ScannerConfigScanCommentMultiFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigScanCommentMultiFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigScanCommentMultiFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigScanCommentMultiFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigScanCommentMultiFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigScanCommentMultiFieldInfo = Word32
    type AttrGetType ScannerConfigScanCommentMultiFieldInfo = Word32
    type AttrLabel ScannerConfigScanCommentMultiFieldInfo = "scan_comment_multi"
    type AttrOrigin ScannerConfigScanCommentMultiFieldInfo = ScannerConfig
    attrGet = getScannerConfigScanCommentMulti
    attrSet = setScannerConfigScanCommentMulti
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_scanCommentMulti :: AttrLabelProxy "scanCommentMulti"
scannerConfig_scanCommentMulti = AttrLabelProxy

#endif


-- | Get the value of the “@scan_identifier@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #scanIdentifier
-- @
getScannerConfigScanIdentifier :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanIdentifier :: ScannerConfig -> m Word32
getScannerConfigScanIdentifier ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@scan_identifier@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #scanIdentifier 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigScanIdentifier :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanIdentifier :: ScannerConfig -> Word32 -> m ()
setScannerConfigScanIdentifier ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigScanIdentifierFieldInfo
instance AttrInfo ScannerConfigScanIdentifierFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigScanIdentifierFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigScanIdentifierFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigScanIdentifierFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigScanIdentifierFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigScanIdentifierFieldInfo = Word32
    type AttrGetType ScannerConfigScanIdentifierFieldInfo = Word32
    type AttrLabel ScannerConfigScanIdentifierFieldInfo = "scan_identifier"
    type AttrOrigin ScannerConfigScanIdentifierFieldInfo = ScannerConfig
    attrGet = getScannerConfigScanIdentifier
    attrSet = setScannerConfigScanIdentifier
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_scanIdentifier :: AttrLabelProxy "scanIdentifier"
scannerConfig_scanIdentifier = AttrLabelProxy

#endif


-- | Get the value of the “@scan_identifier_1char@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #scanIdentifier1char
-- @
getScannerConfigScanIdentifier1char :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanIdentifier1char :: ScannerConfig -> m Word32
getScannerConfigScanIdentifier1char ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
52) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@scan_identifier_1char@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #scanIdentifier1char 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigScanIdentifier1char :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanIdentifier1char :: ScannerConfig -> Word32 -> m ()
setScannerConfigScanIdentifier1char ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
52) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigScanIdentifier1charFieldInfo
instance AttrInfo ScannerConfigScanIdentifier1charFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigScanIdentifier1charFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigScanIdentifier1charFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigScanIdentifier1charFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigScanIdentifier1charFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigScanIdentifier1charFieldInfo = Word32
    type AttrGetType ScannerConfigScanIdentifier1charFieldInfo = Word32
    type AttrLabel ScannerConfigScanIdentifier1charFieldInfo = "scan_identifier_1char"
    type AttrOrigin ScannerConfigScanIdentifier1charFieldInfo = ScannerConfig
    attrGet = getScannerConfigScanIdentifier1char
    attrSet = setScannerConfigScanIdentifier1char
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_scanIdentifier1char :: AttrLabelProxy "scanIdentifier1char"
scannerConfig_scanIdentifier1char = AttrLabelProxy

#endif


-- | Get the value of the “@scan_identifier_NULL@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #scanIdentifierNULL
-- @
getScannerConfigScanIdentifierNULL :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanIdentifierNULL :: ScannerConfig -> m Word32
getScannerConfigScanIdentifierNULL ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
56) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@scan_identifier_NULL@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #scanIdentifierNULL 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigScanIdentifierNULL :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanIdentifierNULL :: ScannerConfig -> Word32 -> m ()
setScannerConfigScanIdentifierNULL ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
56) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigScanIdentifierNULLFieldInfo
instance AttrInfo ScannerConfigScanIdentifierNULLFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigScanIdentifierNULLFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigScanIdentifierNULLFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigScanIdentifierNULLFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigScanIdentifierNULLFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigScanIdentifierNULLFieldInfo = Word32
    type AttrGetType ScannerConfigScanIdentifierNULLFieldInfo = Word32
    type AttrLabel ScannerConfigScanIdentifierNULLFieldInfo = "scan_identifier_NULL"
    type AttrOrigin ScannerConfigScanIdentifierNULLFieldInfo = ScannerConfig
    attrGet = getScannerConfigScanIdentifierNULL
    attrSet = setScannerConfigScanIdentifierNULL
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_scanIdentifierNULL :: AttrLabelProxy "scanIdentifierNULL"
scannerConfig_scanIdentifierNULL = AttrLabelProxy

#endif


-- | Get the value of the “@scan_symbols@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #scanSymbols
-- @
getScannerConfigScanSymbols :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanSymbols :: ScannerConfig -> m Word32
getScannerConfigScanSymbols ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
60) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@scan_symbols@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #scanSymbols 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigScanSymbols :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanSymbols :: ScannerConfig -> Word32 -> m ()
setScannerConfigScanSymbols ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
60) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigScanSymbolsFieldInfo
instance AttrInfo ScannerConfigScanSymbolsFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigScanSymbolsFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigScanSymbolsFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigScanSymbolsFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigScanSymbolsFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigScanSymbolsFieldInfo = Word32
    type AttrGetType ScannerConfigScanSymbolsFieldInfo = Word32
    type AttrLabel ScannerConfigScanSymbolsFieldInfo = "scan_symbols"
    type AttrOrigin ScannerConfigScanSymbolsFieldInfo = ScannerConfig
    attrGet = getScannerConfigScanSymbols
    attrSet = setScannerConfigScanSymbols
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_scanSymbols :: AttrLabelProxy "scanSymbols"
scannerConfig_scanSymbols = AttrLabelProxy

#endif


-- | Get the value of the “@scan_binary@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #scanBinary
-- @
getScannerConfigScanBinary :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanBinary :: ScannerConfig -> m Word32
getScannerConfigScanBinary ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
64) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@scan_binary@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #scanBinary 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigScanBinary :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanBinary :: ScannerConfig -> Word32 -> m ()
setScannerConfigScanBinary ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
64) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigScanBinaryFieldInfo
instance AttrInfo ScannerConfigScanBinaryFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigScanBinaryFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigScanBinaryFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigScanBinaryFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigScanBinaryFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigScanBinaryFieldInfo = Word32
    type AttrGetType ScannerConfigScanBinaryFieldInfo = Word32
    type AttrLabel ScannerConfigScanBinaryFieldInfo = "scan_binary"
    type AttrOrigin ScannerConfigScanBinaryFieldInfo = ScannerConfig
    attrGet = getScannerConfigScanBinary
    attrSet = setScannerConfigScanBinary
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_scanBinary :: AttrLabelProxy "scanBinary"
scannerConfig_scanBinary = AttrLabelProxy

#endif


-- | Get the value of the “@scan_octal@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #scanOctal
-- @
getScannerConfigScanOctal :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanOctal :: ScannerConfig -> m Word32
getScannerConfigScanOctal ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
68) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@scan_octal@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #scanOctal 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigScanOctal :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanOctal :: ScannerConfig -> Word32 -> m ()
setScannerConfigScanOctal ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
68) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigScanOctalFieldInfo
instance AttrInfo ScannerConfigScanOctalFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigScanOctalFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigScanOctalFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigScanOctalFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigScanOctalFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigScanOctalFieldInfo = Word32
    type AttrGetType ScannerConfigScanOctalFieldInfo = Word32
    type AttrLabel ScannerConfigScanOctalFieldInfo = "scan_octal"
    type AttrOrigin ScannerConfigScanOctalFieldInfo = ScannerConfig
    attrGet = getScannerConfigScanOctal
    attrSet = setScannerConfigScanOctal
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_scanOctal :: AttrLabelProxy "scanOctal"
scannerConfig_scanOctal = AttrLabelProxy

#endif


-- | Get the value of the “@scan_float@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #scanFloat
-- @
getScannerConfigScanFloat :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanFloat :: ScannerConfig -> m Word32
getScannerConfigScanFloat ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
72) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@scan_float@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #scanFloat 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigScanFloat :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanFloat :: ScannerConfig -> Word32 -> m ()
setScannerConfigScanFloat ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
72) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigScanFloatFieldInfo
instance AttrInfo ScannerConfigScanFloatFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigScanFloatFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigScanFloatFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigScanFloatFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigScanFloatFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigScanFloatFieldInfo = Word32
    type AttrGetType ScannerConfigScanFloatFieldInfo = Word32
    type AttrLabel ScannerConfigScanFloatFieldInfo = "scan_float"
    type AttrOrigin ScannerConfigScanFloatFieldInfo = ScannerConfig
    attrGet = getScannerConfigScanFloat
    attrSet = setScannerConfigScanFloat
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_scanFloat :: AttrLabelProxy "scanFloat"
scannerConfig_scanFloat = AttrLabelProxy

#endif


-- | Get the value of the “@scan_hex@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #scanHex
-- @
getScannerConfigScanHex :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanHex :: ScannerConfig -> m Word32
getScannerConfigScanHex ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
76) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@scan_hex@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #scanHex 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigScanHex :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanHex :: ScannerConfig -> Word32 -> m ()
setScannerConfigScanHex ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
76) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigScanHexFieldInfo
instance AttrInfo ScannerConfigScanHexFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigScanHexFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigScanHexFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigScanHexFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigScanHexFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigScanHexFieldInfo = Word32
    type AttrGetType ScannerConfigScanHexFieldInfo = Word32
    type AttrLabel ScannerConfigScanHexFieldInfo = "scan_hex"
    type AttrOrigin ScannerConfigScanHexFieldInfo = ScannerConfig
    attrGet = getScannerConfigScanHex
    attrSet = setScannerConfigScanHex
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_scanHex :: AttrLabelProxy "scanHex"
scannerConfig_scanHex = AttrLabelProxy

#endif


-- | Get the value of the “@scan_hex_dollar@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #scanHexDollar
-- @
getScannerConfigScanHexDollar :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanHexDollar :: ScannerConfig -> m Word32
getScannerConfigScanHexDollar ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
80) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@scan_hex_dollar@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #scanHexDollar 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigScanHexDollar :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanHexDollar :: ScannerConfig -> Word32 -> m ()
setScannerConfigScanHexDollar ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
80) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigScanHexDollarFieldInfo
instance AttrInfo ScannerConfigScanHexDollarFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigScanHexDollarFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigScanHexDollarFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigScanHexDollarFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigScanHexDollarFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigScanHexDollarFieldInfo = Word32
    type AttrGetType ScannerConfigScanHexDollarFieldInfo = Word32
    type AttrLabel ScannerConfigScanHexDollarFieldInfo = "scan_hex_dollar"
    type AttrOrigin ScannerConfigScanHexDollarFieldInfo = ScannerConfig
    attrGet = getScannerConfigScanHexDollar
    attrSet = setScannerConfigScanHexDollar
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_scanHexDollar :: AttrLabelProxy "scanHexDollar"
scannerConfig_scanHexDollar = AttrLabelProxy

#endif


-- | Get the value of the “@scan_string_sq@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #scanStringSq
-- @
getScannerConfigScanStringSq :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanStringSq :: ScannerConfig -> m Word32
getScannerConfigScanStringSq ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
84) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@scan_string_sq@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #scanStringSq 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigScanStringSq :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanStringSq :: ScannerConfig -> Word32 -> m ()
setScannerConfigScanStringSq ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
84) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigScanStringSqFieldInfo
instance AttrInfo ScannerConfigScanStringSqFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigScanStringSqFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigScanStringSqFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigScanStringSqFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigScanStringSqFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigScanStringSqFieldInfo = Word32
    type AttrGetType ScannerConfigScanStringSqFieldInfo = Word32
    type AttrLabel ScannerConfigScanStringSqFieldInfo = "scan_string_sq"
    type AttrOrigin ScannerConfigScanStringSqFieldInfo = ScannerConfig
    attrGet = getScannerConfigScanStringSq
    attrSet = setScannerConfigScanStringSq
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_scanStringSq :: AttrLabelProxy "scanStringSq"
scannerConfig_scanStringSq = AttrLabelProxy

#endif


-- | Get the value of the “@scan_string_dq@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #scanStringDq
-- @
getScannerConfigScanStringDq :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanStringDq :: ScannerConfig -> m Word32
getScannerConfigScanStringDq ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
88) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@scan_string_dq@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #scanStringDq 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigScanStringDq :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanStringDq :: ScannerConfig -> Word32 -> m ()
setScannerConfigScanStringDq ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
88) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigScanStringDqFieldInfo
instance AttrInfo ScannerConfigScanStringDqFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigScanStringDqFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigScanStringDqFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigScanStringDqFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigScanStringDqFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigScanStringDqFieldInfo = Word32
    type AttrGetType ScannerConfigScanStringDqFieldInfo = Word32
    type AttrLabel ScannerConfigScanStringDqFieldInfo = "scan_string_dq"
    type AttrOrigin ScannerConfigScanStringDqFieldInfo = ScannerConfig
    attrGet = getScannerConfigScanStringDq
    attrSet = setScannerConfigScanStringDq
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_scanStringDq :: AttrLabelProxy "scanStringDq"
scannerConfig_scanStringDq = AttrLabelProxy

#endif


-- | Get the value of the “@numbers_2_int@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #numbers2Int
-- @
getScannerConfigNumbers2Int :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigNumbers2Int :: ScannerConfig -> m Word32
getScannerConfigNumbers2Int ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
92) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@numbers_2_int@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #numbers2Int 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigNumbers2Int :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigNumbers2Int :: ScannerConfig -> Word32 -> m ()
setScannerConfigNumbers2Int ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
92) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigNumbers2IntFieldInfo
instance AttrInfo ScannerConfigNumbers2IntFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigNumbers2IntFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigNumbers2IntFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigNumbers2IntFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigNumbers2IntFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigNumbers2IntFieldInfo = Word32
    type AttrGetType ScannerConfigNumbers2IntFieldInfo = Word32
    type AttrLabel ScannerConfigNumbers2IntFieldInfo = "numbers_2_int"
    type AttrOrigin ScannerConfigNumbers2IntFieldInfo = ScannerConfig
    attrGet = getScannerConfigNumbers2Int
    attrSet = setScannerConfigNumbers2Int
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_numbers2Int :: AttrLabelProxy "numbers2Int"
scannerConfig_numbers2Int = AttrLabelProxy

#endif


-- | Get the value of the “@int_2_float@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #int2Float
-- @
getScannerConfigInt2Float :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigInt2Float :: ScannerConfig -> m Word32
getScannerConfigInt2Float ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
96) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@int_2_float@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #int2Float 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigInt2Float :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigInt2Float :: ScannerConfig -> Word32 -> m ()
setScannerConfigInt2Float ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
96) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigInt2FloatFieldInfo
instance AttrInfo ScannerConfigInt2FloatFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigInt2FloatFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigInt2FloatFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigInt2FloatFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigInt2FloatFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigInt2FloatFieldInfo = Word32
    type AttrGetType ScannerConfigInt2FloatFieldInfo = Word32
    type AttrLabel ScannerConfigInt2FloatFieldInfo = "int_2_float"
    type AttrOrigin ScannerConfigInt2FloatFieldInfo = ScannerConfig
    attrGet = getScannerConfigInt2Float
    attrSet = setScannerConfigInt2Float
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_int2Float :: AttrLabelProxy "int2Float"
scannerConfig_int2Float = AttrLabelProxy

#endif


-- | Get the value of the “@identifier_2_string@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #identifier2String
-- @
getScannerConfigIdentifier2String :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigIdentifier2String :: ScannerConfig -> m Word32
getScannerConfigIdentifier2String ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
100) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@identifier_2_string@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #identifier2String 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigIdentifier2String :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigIdentifier2String :: ScannerConfig -> Word32 -> m ()
setScannerConfigIdentifier2String ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
100) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigIdentifier2StringFieldInfo
instance AttrInfo ScannerConfigIdentifier2StringFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigIdentifier2StringFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigIdentifier2StringFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigIdentifier2StringFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigIdentifier2StringFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigIdentifier2StringFieldInfo = Word32
    type AttrGetType ScannerConfigIdentifier2StringFieldInfo = Word32
    type AttrLabel ScannerConfigIdentifier2StringFieldInfo = "identifier_2_string"
    type AttrOrigin ScannerConfigIdentifier2StringFieldInfo = ScannerConfig
    attrGet = getScannerConfigIdentifier2String
    attrSet = setScannerConfigIdentifier2String
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_identifier2String :: AttrLabelProxy "identifier2String"
scannerConfig_identifier2String = AttrLabelProxy

#endif


-- | Get the value of the “@char_2_token@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #char2Token
-- @
getScannerConfigChar2Token :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigChar2Token :: ScannerConfig -> m Word32
getScannerConfigChar2Token ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
104) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@char_2_token@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #char2Token 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigChar2Token :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigChar2Token :: ScannerConfig -> Word32 -> m ()
setScannerConfigChar2Token ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
104) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigChar2TokenFieldInfo
instance AttrInfo ScannerConfigChar2TokenFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigChar2TokenFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigChar2TokenFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigChar2TokenFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigChar2TokenFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigChar2TokenFieldInfo = Word32
    type AttrGetType ScannerConfigChar2TokenFieldInfo = Word32
    type AttrLabel ScannerConfigChar2TokenFieldInfo = "char_2_token"
    type AttrOrigin ScannerConfigChar2TokenFieldInfo = ScannerConfig
    attrGet = getScannerConfigChar2Token
    attrSet = setScannerConfigChar2Token
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_char2Token :: AttrLabelProxy "char2Token"
scannerConfig_char2Token = AttrLabelProxy

#endif


-- | Get the value of the “@symbol_2_token@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #symbol2Token
-- @
getScannerConfigSymbol2Token :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigSymbol2Token :: ScannerConfig -> m Word32
getScannerConfigSymbol2Token ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
108) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@symbol_2_token@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #symbol2Token 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigSymbol2Token :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigSymbol2Token :: ScannerConfig -> Word32 -> m ()
setScannerConfigSymbol2Token ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
108) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigSymbol2TokenFieldInfo
instance AttrInfo ScannerConfigSymbol2TokenFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigSymbol2TokenFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigSymbol2TokenFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigSymbol2TokenFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigSymbol2TokenFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigSymbol2TokenFieldInfo = Word32
    type AttrGetType ScannerConfigSymbol2TokenFieldInfo = Word32
    type AttrLabel ScannerConfigSymbol2TokenFieldInfo = "symbol_2_token"
    type AttrOrigin ScannerConfigSymbol2TokenFieldInfo = ScannerConfig
    attrGet = getScannerConfigSymbol2Token
    attrSet = setScannerConfigSymbol2Token
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_symbol2Token :: AttrLabelProxy "symbol2Token"
scannerConfig_symbol2Token = AttrLabelProxy

#endif


-- | Get the value of the “@scope_0_fallback@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #scope0Fallback
-- @
getScannerConfigScope0Fallback :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScope0Fallback :: ScannerConfig -> m Word32
getScannerConfigScope0Fallback ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
112) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@scope_0_fallback@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #scope0Fallback 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigScope0Fallback :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScope0Fallback :: ScannerConfig -> Word32 -> m ()
setScannerConfigScope0Fallback ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
112) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigScope0FallbackFieldInfo
instance AttrInfo ScannerConfigScope0FallbackFieldInfo where
    type AttrBaseTypeConstraint ScannerConfigScope0FallbackFieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigScope0FallbackFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigScope0FallbackFieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigScope0FallbackFieldInfo = (~)Word32
    type AttrTransferType ScannerConfigScope0FallbackFieldInfo = Word32
    type AttrGetType ScannerConfigScope0FallbackFieldInfo = Word32
    type AttrLabel ScannerConfigScope0FallbackFieldInfo = "scope_0_fallback"
    type AttrOrigin ScannerConfigScope0FallbackFieldInfo = ScannerConfig
    attrGet = getScannerConfigScope0Fallback
    attrSet = setScannerConfigScope0Fallback
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_scope0Fallback :: AttrLabelProxy "scope0Fallback"
scannerConfig_scope0Fallback = AttrLabelProxy

#endif


-- | Get the value of the “@store_int64@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' scannerConfig #storeInt64
-- @
getScannerConfigStoreInt64 :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigStoreInt64 :: ScannerConfig -> m Word32
getScannerConfigStoreInt64 ScannerConfig
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
$ ScannerConfig -> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO Word32) -> IO Word32)
-> (Ptr ScannerConfig -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
116) :: IO Word32
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@store_int64@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' scannerConfig [ #storeInt64 'Data.GI.Base.Attributes.:=' value ]
-- @
setScannerConfigStoreInt64 :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigStoreInt64 :: ScannerConfig -> Word32 -> m ()
setScannerConfigStoreInt64 ScannerConfig
s 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
$ ScannerConfig -> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ScannerConfig
s ((Ptr ScannerConfig -> IO ()) -> IO ())
-> (Ptr ScannerConfig -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr ScannerConfig
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ScannerConfig
ptr Ptr ScannerConfig -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
116) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data ScannerConfigStoreInt64FieldInfo
instance AttrInfo ScannerConfigStoreInt64FieldInfo where
    type AttrBaseTypeConstraint ScannerConfigStoreInt64FieldInfo = (~) ScannerConfig
    type AttrAllowedOps ScannerConfigStoreInt64FieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint ScannerConfigStoreInt64FieldInfo = (~) Word32
    type AttrTransferTypeConstraint ScannerConfigStoreInt64FieldInfo = (~)Word32
    type AttrTransferType ScannerConfigStoreInt64FieldInfo = Word32
    type AttrGetType ScannerConfigStoreInt64FieldInfo = Word32
    type AttrLabel ScannerConfigStoreInt64FieldInfo = "store_int64"
    type AttrOrigin ScannerConfigStoreInt64FieldInfo = ScannerConfig
    attrGet = getScannerConfigStoreInt64
    attrSet = setScannerConfigStoreInt64
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v

scannerConfig_storeInt64 :: AttrLabelProxy "storeInt64"
scannerConfig_storeInt64 = AttrLabelProxy

#endif



#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ScannerConfig
type instance O.AttributeList ScannerConfig = ScannerConfigAttributeList
type ScannerConfigAttributeList = ('[ '("csetSkipCharacters", ScannerConfigCsetSkipCharactersFieldInfo), '("csetIdentifierFirst", ScannerConfigCsetIdentifierFirstFieldInfo), '("csetIdentifierNth", ScannerConfigCsetIdentifierNthFieldInfo), '("cpairCommentSingle", ScannerConfigCpairCommentSingleFieldInfo), '("caseSensitive", ScannerConfigCaseSensitiveFieldInfo), '("skipCommentMulti", ScannerConfigSkipCommentMultiFieldInfo), '("skipCommentSingle", ScannerConfigSkipCommentSingleFieldInfo), '("scanCommentMulti", ScannerConfigScanCommentMultiFieldInfo), '("scanIdentifier", ScannerConfigScanIdentifierFieldInfo), '("scanIdentifier1char", ScannerConfigScanIdentifier1charFieldInfo), '("scanIdentifierNULL", ScannerConfigScanIdentifierNULLFieldInfo), '("scanSymbols", ScannerConfigScanSymbolsFieldInfo), '("scanBinary", ScannerConfigScanBinaryFieldInfo), '("scanOctal", ScannerConfigScanOctalFieldInfo), '("scanFloat", ScannerConfigScanFloatFieldInfo), '("scanHex", ScannerConfigScanHexFieldInfo), '("scanHexDollar", ScannerConfigScanHexDollarFieldInfo), '("scanStringSq", ScannerConfigScanStringSqFieldInfo), '("scanStringDq", ScannerConfigScanStringDqFieldInfo), '("numbers2Int", ScannerConfigNumbers2IntFieldInfo), '("int2Float", ScannerConfigInt2FloatFieldInfo), '("identifier2String", ScannerConfigIdentifier2StringFieldInfo), '("char2Token", ScannerConfigChar2TokenFieldInfo), '("symbol2Token", ScannerConfigSymbol2TokenFieldInfo), '("scope0Fallback", ScannerConfigScope0FallbackFieldInfo), '("storeInt64", ScannerConfigStoreInt64FieldInfo)] :: [(Symbol, *)])
#endif

#if defined(ENABLE_OVERLOADING)
type family ResolveScannerConfigMethod (t :: Symbol) (o :: *) :: * where
    ResolveScannerConfigMethod l o = O.MethodResolutionFailed l o

instance (info ~ ResolveScannerConfigMethod t ScannerConfig, O.MethodInfo info ScannerConfig p) => OL.IsLabel t (ScannerConfig -> p) where
#if MIN_VERSION_base(4,10,0)
    fromLabel = O.overloadedMethod @info
#else
    fromLabel _ = O.overloadedMethod @info
#endif

#endif