#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GLib.Structs.ScannerConfig
(
ScannerConfig(..) ,
newZeroScannerConfig ,
noScannerConfig ,
getScannerConfigCaseSensitive ,
#if ENABLE_OVERLOADING
scannerConfig_caseSensitive ,
#endif
setScannerConfigCaseSensitive ,
getScannerConfigChar2Token ,
#if ENABLE_OVERLOADING
scannerConfig_char2Token ,
#endif
setScannerConfigChar2Token ,
clearScannerConfigCpairCommentSingle ,
getScannerConfigCpairCommentSingle ,
#if ENABLE_OVERLOADING
scannerConfig_cpairCommentSingle ,
#endif
setScannerConfigCpairCommentSingle ,
clearScannerConfigCsetIdentifierFirst ,
getScannerConfigCsetIdentifierFirst ,
#if ENABLE_OVERLOADING
scannerConfig_csetIdentifierFirst ,
#endif
setScannerConfigCsetIdentifierFirst ,
clearScannerConfigCsetIdentifierNth ,
getScannerConfigCsetIdentifierNth ,
#if ENABLE_OVERLOADING
scannerConfig_csetIdentifierNth ,
#endif
setScannerConfigCsetIdentifierNth ,
clearScannerConfigCsetSkipCharacters ,
getScannerConfigCsetSkipCharacters ,
#if ENABLE_OVERLOADING
scannerConfig_csetSkipCharacters ,
#endif
setScannerConfigCsetSkipCharacters ,
getScannerConfigIdentifier2String ,
#if ENABLE_OVERLOADING
scannerConfig_identifier2String ,
#endif
setScannerConfigIdentifier2String ,
getScannerConfigInt2Float ,
#if ENABLE_OVERLOADING
scannerConfig_int2Float ,
#endif
setScannerConfigInt2Float ,
getScannerConfigNumbers2Int ,
#if ENABLE_OVERLOADING
scannerConfig_numbers2Int ,
#endif
setScannerConfigNumbers2Int ,
getScannerConfigScanBinary ,
#if ENABLE_OVERLOADING
scannerConfig_scanBinary ,
#endif
setScannerConfigScanBinary ,
getScannerConfigScanCommentMulti ,
#if ENABLE_OVERLOADING
scannerConfig_scanCommentMulti ,
#endif
setScannerConfigScanCommentMulti ,
getScannerConfigScanFloat ,
#if ENABLE_OVERLOADING
scannerConfig_scanFloat ,
#endif
setScannerConfigScanFloat ,
getScannerConfigScanHex ,
#if ENABLE_OVERLOADING
scannerConfig_scanHex ,
#endif
setScannerConfigScanHex ,
getScannerConfigScanHexDollar ,
#if ENABLE_OVERLOADING
scannerConfig_scanHexDollar ,
#endif
setScannerConfigScanHexDollar ,
getScannerConfigScanIdentifier ,
#if ENABLE_OVERLOADING
scannerConfig_scanIdentifier ,
#endif
setScannerConfigScanIdentifier ,
getScannerConfigScanIdentifier1char ,
#if ENABLE_OVERLOADING
scannerConfig_scanIdentifier1char ,
#endif
setScannerConfigScanIdentifier1char ,
getScannerConfigScanIdentifierNULL ,
#if ENABLE_OVERLOADING
scannerConfig_scanIdentifierNULL ,
#endif
setScannerConfigScanIdentifierNULL ,
getScannerConfigScanOctal ,
#if ENABLE_OVERLOADING
scannerConfig_scanOctal ,
#endif
setScannerConfigScanOctal ,
getScannerConfigScanStringDq ,
#if ENABLE_OVERLOADING
scannerConfig_scanStringDq ,
#endif
setScannerConfigScanStringDq ,
getScannerConfigScanStringSq ,
#if ENABLE_OVERLOADING
scannerConfig_scanStringSq ,
#endif
setScannerConfigScanStringSq ,
getScannerConfigScanSymbols ,
#if ENABLE_OVERLOADING
scannerConfig_scanSymbols ,
#endif
setScannerConfigScanSymbols ,
getScannerConfigScope0Fallback ,
#if ENABLE_OVERLOADING
scannerConfig_scope0Fallback ,
#endif
setScannerConfigScope0Fallback ,
getScannerConfigSkipCommentMulti ,
#if ENABLE_OVERLOADING
scannerConfig_skipCommentMulti ,
#endif
setScannerConfigSkipCommentMulti ,
getScannerConfigSkipCommentSingle ,
#if ENABLE_OVERLOADING
scannerConfig_skipCommentSingle ,
#endif
setScannerConfigSkipCommentSingle ,
getScannerConfigStoreInt64 ,
#if ENABLE_OVERLOADING
scannerConfig_storeInt64 ,
#endif
setScannerConfigStoreInt64 ,
getScannerConfigSymbol2Token ,
#if 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.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.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
newtype ScannerConfig = ScannerConfig (ManagedPtr ScannerConfig)
instance WrappedPtr ScannerConfig where
wrappedPtrCalloc = callocBytes 128
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 128 >=> wrapPtr ScannerConfig)
wrappedPtrFree = Just ptr_to_g_free
newZeroScannerConfig :: MonadIO m => m ScannerConfig
newZeroScannerConfig = liftIO $ wrappedPtrCalloc >>= wrapPtr ScannerConfig
instance tag ~ 'AttrSet => Constructible ScannerConfig tag where
new _ attrs = do
o <- newZeroScannerConfig
GI.Attributes.set o attrs
return o
noScannerConfig :: Maybe ScannerConfig
noScannerConfig = Nothing
getScannerConfigCsetSkipCharacters :: MonadIO m => ScannerConfig -> m (Maybe T.Text)
getScannerConfigCsetSkipCharacters s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setScannerConfigCsetSkipCharacters :: MonadIO m => ScannerConfig -> CString -> m ()
setScannerConfigCsetSkipCharacters s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (val :: CString)
clearScannerConfigCsetSkipCharacters :: MonadIO m => ScannerConfig -> m ()
clearScannerConfigCsetSkipCharacters s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (FP.nullPtr :: CString)
#if ENABLE_OVERLOADING
data ScannerConfigCsetSkipCharactersFieldInfo
instance AttrInfo ScannerConfigCsetSkipCharactersFieldInfo where
type AttrAllowedOps ScannerConfigCsetSkipCharactersFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ScannerConfigCsetSkipCharactersFieldInfo = (~) CString
type AttrBaseTypeConstraint ScannerConfigCsetSkipCharactersFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigCsetSkipCharactersFieldInfo = Maybe T.Text
type AttrLabel ScannerConfigCsetSkipCharactersFieldInfo = "cset_skip_characters"
type AttrOrigin ScannerConfigCsetSkipCharactersFieldInfo = ScannerConfig
attrGet _ = getScannerConfigCsetSkipCharacters
attrSet _ = setScannerConfigCsetSkipCharacters
attrConstruct = undefined
attrClear _ = clearScannerConfigCsetSkipCharacters
scannerConfig_csetSkipCharacters :: AttrLabelProxy "csetSkipCharacters"
scannerConfig_csetSkipCharacters = AttrLabelProxy
#endif
getScannerConfigCsetIdentifierFirst :: MonadIO m => ScannerConfig -> m (Maybe T.Text)
getScannerConfigCsetIdentifierFirst s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setScannerConfigCsetIdentifierFirst :: MonadIO m => ScannerConfig -> CString -> m ()
setScannerConfigCsetIdentifierFirst s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: CString)
clearScannerConfigCsetIdentifierFirst :: MonadIO m => ScannerConfig -> m ()
clearScannerConfigCsetIdentifierFirst s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (FP.nullPtr :: CString)
#if ENABLE_OVERLOADING
data ScannerConfigCsetIdentifierFirstFieldInfo
instance AttrInfo ScannerConfigCsetIdentifierFirstFieldInfo where
type AttrAllowedOps ScannerConfigCsetIdentifierFirstFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ScannerConfigCsetIdentifierFirstFieldInfo = (~) CString
type AttrBaseTypeConstraint ScannerConfigCsetIdentifierFirstFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigCsetIdentifierFirstFieldInfo = Maybe T.Text
type AttrLabel ScannerConfigCsetIdentifierFirstFieldInfo = "cset_identifier_first"
type AttrOrigin ScannerConfigCsetIdentifierFirstFieldInfo = ScannerConfig
attrGet _ = getScannerConfigCsetIdentifierFirst
attrSet _ = setScannerConfigCsetIdentifierFirst
attrConstruct = undefined
attrClear _ = clearScannerConfigCsetIdentifierFirst
scannerConfig_csetIdentifierFirst :: AttrLabelProxy "csetIdentifierFirst"
scannerConfig_csetIdentifierFirst = AttrLabelProxy
#endif
getScannerConfigCsetIdentifierNth :: MonadIO m => ScannerConfig -> m (Maybe T.Text)
getScannerConfigCsetIdentifierNth s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setScannerConfigCsetIdentifierNth :: MonadIO m => ScannerConfig -> CString -> m ()
setScannerConfigCsetIdentifierNth s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (val :: CString)
clearScannerConfigCsetIdentifierNth :: MonadIO m => ScannerConfig -> m ()
clearScannerConfigCsetIdentifierNth s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (FP.nullPtr :: CString)
#if ENABLE_OVERLOADING
data ScannerConfigCsetIdentifierNthFieldInfo
instance AttrInfo ScannerConfigCsetIdentifierNthFieldInfo where
type AttrAllowedOps ScannerConfigCsetIdentifierNthFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ScannerConfigCsetIdentifierNthFieldInfo = (~) CString
type AttrBaseTypeConstraint ScannerConfigCsetIdentifierNthFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigCsetIdentifierNthFieldInfo = Maybe T.Text
type AttrLabel ScannerConfigCsetIdentifierNthFieldInfo = "cset_identifier_nth"
type AttrOrigin ScannerConfigCsetIdentifierNthFieldInfo = ScannerConfig
attrGet _ = getScannerConfigCsetIdentifierNth
attrSet _ = setScannerConfigCsetIdentifierNth
attrConstruct = undefined
attrClear _ = clearScannerConfigCsetIdentifierNth
scannerConfig_csetIdentifierNth :: AttrLabelProxy "csetIdentifierNth"
scannerConfig_csetIdentifierNth = AttrLabelProxy
#endif
getScannerConfigCpairCommentSingle :: MonadIO m => ScannerConfig -> m (Maybe T.Text)
getScannerConfigCpairCommentSingle s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setScannerConfigCpairCommentSingle :: MonadIO m => ScannerConfig -> CString -> m ()
setScannerConfigCpairCommentSingle s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 24) (val :: CString)
clearScannerConfigCpairCommentSingle :: MonadIO m => ScannerConfig -> m ()
clearScannerConfigCpairCommentSingle s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 24) (FP.nullPtr :: CString)
#if ENABLE_OVERLOADING
data ScannerConfigCpairCommentSingleFieldInfo
instance AttrInfo ScannerConfigCpairCommentSingleFieldInfo where
type AttrAllowedOps ScannerConfigCpairCommentSingleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ScannerConfigCpairCommentSingleFieldInfo = (~) CString
type AttrBaseTypeConstraint ScannerConfigCpairCommentSingleFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigCpairCommentSingleFieldInfo = Maybe T.Text
type AttrLabel ScannerConfigCpairCommentSingleFieldInfo = "cpair_comment_single"
type AttrOrigin ScannerConfigCpairCommentSingleFieldInfo = ScannerConfig
attrGet _ = getScannerConfigCpairCommentSingle
attrSet _ = setScannerConfigCpairCommentSingle
attrConstruct = undefined
attrClear _ = clearScannerConfigCpairCommentSingle
scannerConfig_cpairCommentSingle :: AttrLabelProxy "cpairCommentSingle"
scannerConfig_cpairCommentSingle = AttrLabelProxy
#endif
getScannerConfigCaseSensitive :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigCaseSensitive s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO Word32
return val
setScannerConfigCaseSensitive :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigCaseSensitive s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 32) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigCaseSensitiveFieldInfo
instance AttrInfo ScannerConfigCaseSensitiveFieldInfo where
type AttrAllowedOps ScannerConfigCaseSensitiveFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigCaseSensitiveFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigCaseSensitiveFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigCaseSensitiveFieldInfo = Word32
type AttrLabel ScannerConfigCaseSensitiveFieldInfo = "case_sensitive"
type AttrOrigin ScannerConfigCaseSensitiveFieldInfo = ScannerConfig
attrGet _ = getScannerConfigCaseSensitive
attrSet _ = setScannerConfigCaseSensitive
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_caseSensitive :: AttrLabelProxy "caseSensitive"
scannerConfig_caseSensitive = AttrLabelProxy
#endif
getScannerConfigSkipCommentMulti :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigSkipCommentMulti s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 36) :: IO Word32
return val
setScannerConfigSkipCommentMulti :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigSkipCommentMulti s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 36) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigSkipCommentMultiFieldInfo
instance AttrInfo ScannerConfigSkipCommentMultiFieldInfo where
type AttrAllowedOps ScannerConfigSkipCommentMultiFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigSkipCommentMultiFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigSkipCommentMultiFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigSkipCommentMultiFieldInfo = Word32
type AttrLabel ScannerConfigSkipCommentMultiFieldInfo = "skip_comment_multi"
type AttrOrigin ScannerConfigSkipCommentMultiFieldInfo = ScannerConfig
attrGet _ = getScannerConfigSkipCommentMulti
attrSet _ = setScannerConfigSkipCommentMulti
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_skipCommentMulti :: AttrLabelProxy "skipCommentMulti"
scannerConfig_skipCommentMulti = AttrLabelProxy
#endif
getScannerConfigSkipCommentSingle :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigSkipCommentSingle s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 40) :: IO Word32
return val
setScannerConfigSkipCommentSingle :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigSkipCommentSingle s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 40) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigSkipCommentSingleFieldInfo
instance AttrInfo ScannerConfigSkipCommentSingleFieldInfo where
type AttrAllowedOps ScannerConfigSkipCommentSingleFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigSkipCommentSingleFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigSkipCommentSingleFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigSkipCommentSingleFieldInfo = Word32
type AttrLabel ScannerConfigSkipCommentSingleFieldInfo = "skip_comment_single"
type AttrOrigin ScannerConfigSkipCommentSingleFieldInfo = ScannerConfig
attrGet _ = getScannerConfigSkipCommentSingle
attrSet _ = setScannerConfigSkipCommentSingle
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_skipCommentSingle :: AttrLabelProxy "skipCommentSingle"
scannerConfig_skipCommentSingle = AttrLabelProxy
#endif
getScannerConfigScanCommentMulti :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanCommentMulti s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 44) :: IO Word32
return val
setScannerConfigScanCommentMulti :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanCommentMulti s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 44) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigScanCommentMultiFieldInfo
instance AttrInfo ScannerConfigScanCommentMultiFieldInfo where
type AttrAllowedOps ScannerConfigScanCommentMultiFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigScanCommentMultiFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigScanCommentMultiFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigScanCommentMultiFieldInfo = Word32
type AttrLabel ScannerConfigScanCommentMultiFieldInfo = "scan_comment_multi"
type AttrOrigin ScannerConfigScanCommentMultiFieldInfo = ScannerConfig
attrGet _ = getScannerConfigScanCommentMulti
attrSet _ = setScannerConfigScanCommentMulti
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_scanCommentMulti :: AttrLabelProxy "scanCommentMulti"
scannerConfig_scanCommentMulti = AttrLabelProxy
#endif
getScannerConfigScanIdentifier :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanIdentifier s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 48) :: IO Word32
return val
setScannerConfigScanIdentifier :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanIdentifier s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 48) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigScanIdentifierFieldInfo
instance AttrInfo ScannerConfigScanIdentifierFieldInfo where
type AttrAllowedOps ScannerConfigScanIdentifierFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigScanIdentifierFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigScanIdentifierFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigScanIdentifierFieldInfo = Word32
type AttrLabel ScannerConfigScanIdentifierFieldInfo = "scan_identifier"
type AttrOrigin ScannerConfigScanIdentifierFieldInfo = ScannerConfig
attrGet _ = getScannerConfigScanIdentifier
attrSet _ = setScannerConfigScanIdentifier
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_scanIdentifier :: AttrLabelProxy "scanIdentifier"
scannerConfig_scanIdentifier = AttrLabelProxy
#endif
getScannerConfigScanIdentifier1char :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanIdentifier1char s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 52) :: IO Word32
return val
setScannerConfigScanIdentifier1char :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanIdentifier1char s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 52) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigScanIdentifier1charFieldInfo
instance AttrInfo ScannerConfigScanIdentifier1charFieldInfo where
type AttrAllowedOps ScannerConfigScanIdentifier1charFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigScanIdentifier1charFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigScanIdentifier1charFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigScanIdentifier1charFieldInfo = Word32
type AttrLabel ScannerConfigScanIdentifier1charFieldInfo = "scan_identifier_1char"
type AttrOrigin ScannerConfigScanIdentifier1charFieldInfo = ScannerConfig
attrGet _ = getScannerConfigScanIdentifier1char
attrSet _ = setScannerConfigScanIdentifier1char
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_scanIdentifier1char :: AttrLabelProxy "scanIdentifier1char"
scannerConfig_scanIdentifier1char = AttrLabelProxy
#endif
getScannerConfigScanIdentifierNULL :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanIdentifierNULL s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 56) :: IO Word32
return val
setScannerConfigScanIdentifierNULL :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanIdentifierNULL s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 56) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigScanIdentifierNULLFieldInfo
instance AttrInfo ScannerConfigScanIdentifierNULLFieldInfo where
type AttrAllowedOps ScannerConfigScanIdentifierNULLFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigScanIdentifierNULLFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigScanIdentifierNULLFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigScanIdentifierNULLFieldInfo = Word32
type AttrLabel ScannerConfigScanIdentifierNULLFieldInfo = "scan_identifier_NULL"
type AttrOrigin ScannerConfigScanIdentifierNULLFieldInfo = ScannerConfig
attrGet _ = getScannerConfigScanIdentifierNULL
attrSet _ = setScannerConfigScanIdentifierNULL
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_scanIdentifierNULL :: AttrLabelProxy "scanIdentifierNULL"
scannerConfig_scanIdentifierNULL = AttrLabelProxy
#endif
getScannerConfigScanSymbols :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanSymbols s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 60) :: IO Word32
return val
setScannerConfigScanSymbols :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanSymbols s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 60) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigScanSymbolsFieldInfo
instance AttrInfo ScannerConfigScanSymbolsFieldInfo where
type AttrAllowedOps ScannerConfigScanSymbolsFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigScanSymbolsFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigScanSymbolsFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigScanSymbolsFieldInfo = Word32
type AttrLabel ScannerConfigScanSymbolsFieldInfo = "scan_symbols"
type AttrOrigin ScannerConfigScanSymbolsFieldInfo = ScannerConfig
attrGet _ = getScannerConfigScanSymbols
attrSet _ = setScannerConfigScanSymbols
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_scanSymbols :: AttrLabelProxy "scanSymbols"
scannerConfig_scanSymbols = AttrLabelProxy
#endif
getScannerConfigScanBinary :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanBinary s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 64) :: IO Word32
return val
setScannerConfigScanBinary :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanBinary s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 64) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigScanBinaryFieldInfo
instance AttrInfo ScannerConfigScanBinaryFieldInfo where
type AttrAllowedOps ScannerConfigScanBinaryFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigScanBinaryFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigScanBinaryFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigScanBinaryFieldInfo = Word32
type AttrLabel ScannerConfigScanBinaryFieldInfo = "scan_binary"
type AttrOrigin ScannerConfigScanBinaryFieldInfo = ScannerConfig
attrGet _ = getScannerConfigScanBinary
attrSet _ = setScannerConfigScanBinary
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_scanBinary :: AttrLabelProxy "scanBinary"
scannerConfig_scanBinary = AttrLabelProxy
#endif
getScannerConfigScanOctal :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanOctal s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 68) :: IO Word32
return val
setScannerConfigScanOctal :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanOctal s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 68) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigScanOctalFieldInfo
instance AttrInfo ScannerConfigScanOctalFieldInfo where
type AttrAllowedOps ScannerConfigScanOctalFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigScanOctalFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigScanOctalFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigScanOctalFieldInfo = Word32
type AttrLabel ScannerConfigScanOctalFieldInfo = "scan_octal"
type AttrOrigin ScannerConfigScanOctalFieldInfo = ScannerConfig
attrGet _ = getScannerConfigScanOctal
attrSet _ = setScannerConfigScanOctal
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_scanOctal :: AttrLabelProxy "scanOctal"
scannerConfig_scanOctal = AttrLabelProxy
#endif
getScannerConfigScanFloat :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanFloat s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 72) :: IO Word32
return val
setScannerConfigScanFloat :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanFloat s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 72) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigScanFloatFieldInfo
instance AttrInfo ScannerConfigScanFloatFieldInfo where
type AttrAllowedOps ScannerConfigScanFloatFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigScanFloatFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigScanFloatFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigScanFloatFieldInfo = Word32
type AttrLabel ScannerConfigScanFloatFieldInfo = "scan_float"
type AttrOrigin ScannerConfigScanFloatFieldInfo = ScannerConfig
attrGet _ = getScannerConfigScanFloat
attrSet _ = setScannerConfigScanFloat
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_scanFloat :: AttrLabelProxy "scanFloat"
scannerConfig_scanFloat = AttrLabelProxy
#endif
getScannerConfigScanHex :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanHex s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 76) :: IO Word32
return val
setScannerConfigScanHex :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanHex s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 76) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigScanHexFieldInfo
instance AttrInfo ScannerConfigScanHexFieldInfo where
type AttrAllowedOps ScannerConfigScanHexFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigScanHexFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigScanHexFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigScanHexFieldInfo = Word32
type AttrLabel ScannerConfigScanHexFieldInfo = "scan_hex"
type AttrOrigin ScannerConfigScanHexFieldInfo = ScannerConfig
attrGet _ = getScannerConfigScanHex
attrSet _ = setScannerConfigScanHex
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_scanHex :: AttrLabelProxy "scanHex"
scannerConfig_scanHex = AttrLabelProxy
#endif
getScannerConfigScanHexDollar :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanHexDollar s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 80) :: IO Word32
return val
setScannerConfigScanHexDollar :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanHexDollar s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 80) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigScanHexDollarFieldInfo
instance AttrInfo ScannerConfigScanHexDollarFieldInfo where
type AttrAllowedOps ScannerConfigScanHexDollarFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigScanHexDollarFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigScanHexDollarFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigScanHexDollarFieldInfo = Word32
type AttrLabel ScannerConfigScanHexDollarFieldInfo = "scan_hex_dollar"
type AttrOrigin ScannerConfigScanHexDollarFieldInfo = ScannerConfig
attrGet _ = getScannerConfigScanHexDollar
attrSet _ = setScannerConfigScanHexDollar
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_scanHexDollar :: AttrLabelProxy "scanHexDollar"
scannerConfig_scanHexDollar = AttrLabelProxy
#endif
getScannerConfigScanStringSq :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanStringSq s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 84) :: IO Word32
return val
setScannerConfigScanStringSq :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanStringSq s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 84) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigScanStringSqFieldInfo
instance AttrInfo ScannerConfigScanStringSqFieldInfo where
type AttrAllowedOps ScannerConfigScanStringSqFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigScanStringSqFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigScanStringSqFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigScanStringSqFieldInfo = Word32
type AttrLabel ScannerConfigScanStringSqFieldInfo = "scan_string_sq"
type AttrOrigin ScannerConfigScanStringSqFieldInfo = ScannerConfig
attrGet _ = getScannerConfigScanStringSq
attrSet _ = setScannerConfigScanStringSq
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_scanStringSq :: AttrLabelProxy "scanStringSq"
scannerConfig_scanStringSq = AttrLabelProxy
#endif
getScannerConfigScanStringDq :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanStringDq s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 88) :: IO Word32
return val
setScannerConfigScanStringDq :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanStringDq s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 88) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigScanStringDqFieldInfo
instance AttrInfo ScannerConfigScanStringDqFieldInfo where
type AttrAllowedOps ScannerConfigScanStringDqFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigScanStringDqFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigScanStringDqFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigScanStringDqFieldInfo = Word32
type AttrLabel ScannerConfigScanStringDqFieldInfo = "scan_string_dq"
type AttrOrigin ScannerConfigScanStringDqFieldInfo = ScannerConfig
attrGet _ = getScannerConfigScanStringDq
attrSet _ = setScannerConfigScanStringDq
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_scanStringDq :: AttrLabelProxy "scanStringDq"
scannerConfig_scanStringDq = AttrLabelProxy
#endif
getScannerConfigNumbers2Int :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigNumbers2Int s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 92) :: IO Word32
return val
setScannerConfigNumbers2Int :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigNumbers2Int s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 92) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigNumbers2IntFieldInfo
instance AttrInfo ScannerConfigNumbers2IntFieldInfo where
type AttrAllowedOps ScannerConfigNumbers2IntFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigNumbers2IntFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigNumbers2IntFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigNumbers2IntFieldInfo = Word32
type AttrLabel ScannerConfigNumbers2IntFieldInfo = "numbers_2_int"
type AttrOrigin ScannerConfigNumbers2IntFieldInfo = ScannerConfig
attrGet _ = getScannerConfigNumbers2Int
attrSet _ = setScannerConfigNumbers2Int
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_numbers2Int :: AttrLabelProxy "numbers2Int"
scannerConfig_numbers2Int = AttrLabelProxy
#endif
getScannerConfigInt2Float :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigInt2Float s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 96) :: IO Word32
return val
setScannerConfigInt2Float :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigInt2Float s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 96) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigInt2FloatFieldInfo
instance AttrInfo ScannerConfigInt2FloatFieldInfo where
type AttrAllowedOps ScannerConfigInt2FloatFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigInt2FloatFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigInt2FloatFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigInt2FloatFieldInfo = Word32
type AttrLabel ScannerConfigInt2FloatFieldInfo = "int_2_float"
type AttrOrigin ScannerConfigInt2FloatFieldInfo = ScannerConfig
attrGet _ = getScannerConfigInt2Float
attrSet _ = setScannerConfigInt2Float
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_int2Float :: AttrLabelProxy "int2Float"
scannerConfig_int2Float = AttrLabelProxy
#endif
getScannerConfigIdentifier2String :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigIdentifier2String s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 100) :: IO Word32
return val
setScannerConfigIdentifier2String :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigIdentifier2String s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 100) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigIdentifier2StringFieldInfo
instance AttrInfo ScannerConfigIdentifier2StringFieldInfo where
type AttrAllowedOps ScannerConfigIdentifier2StringFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigIdentifier2StringFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigIdentifier2StringFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigIdentifier2StringFieldInfo = Word32
type AttrLabel ScannerConfigIdentifier2StringFieldInfo = "identifier_2_string"
type AttrOrigin ScannerConfigIdentifier2StringFieldInfo = ScannerConfig
attrGet _ = getScannerConfigIdentifier2String
attrSet _ = setScannerConfigIdentifier2String
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_identifier2String :: AttrLabelProxy "identifier2String"
scannerConfig_identifier2String = AttrLabelProxy
#endif
getScannerConfigChar2Token :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigChar2Token s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 104) :: IO Word32
return val
setScannerConfigChar2Token :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigChar2Token s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 104) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigChar2TokenFieldInfo
instance AttrInfo ScannerConfigChar2TokenFieldInfo where
type AttrAllowedOps ScannerConfigChar2TokenFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigChar2TokenFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigChar2TokenFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigChar2TokenFieldInfo = Word32
type AttrLabel ScannerConfigChar2TokenFieldInfo = "char_2_token"
type AttrOrigin ScannerConfigChar2TokenFieldInfo = ScannerConfig
attrGet _ = getScannerConfigChar2Token
attrSet _ = setScannerConfigChar2Token
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_char2Token :: AttrLabelProxy "char2Token"
scannerConfig_char2Token = AttrLabelProxy
#endif
getScannerConfigSymbol2Token :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigSymbol2Token s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 108) :: IO Word32
return val
setScannerConfigSymbol2Token :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigSymbol2Token s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 108) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigSymbol2TokenFieldInfo
instance AttrInfo ScannerConfigSymbol2TokenFieldInfo where
type AttrAllowedOps ScannerConfigSymbol2TokenFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigSymbol2TokenFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigSymbol2TokenFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigSymbol2TokenFieldInfo = Word32
type AttrLabel ScannerConfigSymbol2TokenFieldInfo = "symbol_2_token"
type AttrOrigin ScannerConfigSymbol2TokenFieldInfo = ScannerConfig
attrGet _ = getScannerConfigSymbol2Token
attrSet _ = setScannerConfigSymbol2Token
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_symbol2Token :: AttrLabelProxy "symbol2Token"
scannerConfig_symbol2Token = AttrLabelProxy
#endif
getScannerConfigScope0Fallback :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScope0Fallback s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 112) :: IO Word32
return val
setScannerConfigScope0Fallback :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScope0Fallback s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 112) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigScope0FallbackFieldInfo
instance AttrInfo ScannerConfigScope0FallbackFieldInfo where
type AttrAllowedOps ScannerConfigScope0FallbackFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigScope0FallbackFieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigScope0FallbackFieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigScope0FallbackFieldInfo = Word32
type AttrLabel ScannerConfigScope0FallbackFieldInfo = "scope_0_fallback"
type AttrOrigin ScannerConfigScope0FallbackFieldInfo = ScannerConfig
attrGet _ = getScannerConfigScope0Fallback
attrSet _ = setScannerConfigScope0Fallback
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_scope0Fallback :: AttrLabelProxy "scope0Fallback"
scannerConfig_scope0Fallback = AttrLabelProxy
#endif
getScannerConfigStoreInt64 :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigStoreInt64 s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 116) :: IO Word32
return val
setScannerConfigStoreInt64 :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigStoreInt64 s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 116) (val :: Word32)
#if ENABLE_OVERLOADING
data ScannerConfigStoreInt64FieldInfo
instance AttrInfo ScannerConfigStoreInt64FieldInfo where
type AttrAllowedOps ScannerConfigStoreInt64FieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ScannerConfigStoreInt64FieldInfo = (~) Word32
type AttrBaseTypeConstraint ScannerConfigStoreInt64FieldInfo = (~) ScannerConfig
type AttrGetType ScannerConfigStoreInt64FieldInfo = Word32
type AttrLabel ScannerConfigStoreInt64FieldInfo = "store_int64"
type AttrOrigin ScannerConfigStoreInt64FieldInfo = ScannerConfig
attrGet _ = getScannerConfigStoreInt64
attrSet _ = setScannerConfigStoreInt64
attrConstruct = undefined
attrClear _ = undefined
scannerConfig_storeInt64 :: AttrLabelProxy "storeInt64"
scannerConfig_storeInt64 = AttrLabelProxy
#endif
#if 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 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 (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif