{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GLib.Structs.ScannerConfig
(
ScannerConfig(..) ,
newZeroScannerConfig ,
noScannerConfig ,
#if defined(ENABLE_OVERLOADING)
ResolveScannerConfigMethod ,
#endif
getScannerConfigCaseSensitive ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_caseSensitive ,
#endif
setScannerConfigCaseSensitive ,
getScannerConfigChar2Token ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_char2Token ,
#endif
setScannerConfigChar2Token ,
clearScannerConfigCpairCommentSingle ,
getScannerConfigCpairCommentSingle ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_cpairCommentSingle ,
#endif
setScannerConfigCpairCommentSingle ,
clearScannerConfigCsetIdentifierFirst ,
getScannerConfigCsetIdentifierFirst ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_csetIdentifierFirst ,
#endif
setScannerConfigCsetIdentifierFirst ,
clearScannerConfigCsetIdentifierNth ,
getScannerConfigCsetIdentifierNth ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_csetIdentifierNth ,
#endif
setScannerConfigCsetIdentifierNth ,
clearScannerConfigCsetSkipCharacters ,
getScannerConfigCsetSkipCharacters ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_csetSkipCharacters ,
#endif
setScannerConfigCsetSkipCharacters ,
getScannerConfigIdentifier2String ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_identifier2String ,
#endif
setScannerConfigIdentifier2String ,
getScannerConfigInt2Float ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_int2Float ,
#endif
setScannerConfigInt2Float ,
getScannerConfigNumbers2Int ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_numbers2Int ,
#endif
setScannerConfigNumbers2Int ,
getScannerConfigScanBinary ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_scanBinary ,
#endif
setScannerConfigScanBinary ,
getScannerConfigScanCommentMulti ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_scanCommentMulti ,
#endif
setScannerConfigScanCommentMulti ,
getScannerConfigScanFloat ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_scanFloat ,
#endif
setScannerConfigScanFloat ,
getScannerConfigScanHex ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_scanHex ,
#endif
setScannerConfigScanHex ,
getScannerConfigScanHexDollar ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_scanHexDollar ,
#endif
setScannerConfigScanHexDollar ,
getScannerConfigScanIdentifier ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_scanIdentifier ,
#endif
setScannerConfigScanIdentifier ,
getScannerConfigScanIdentifier1char ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_scanIdentifier1char ,
#endif
setScannerConfigScanIdentifier1char ,
getScannerConfigScanIdentifierNULL ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_scanIdentifierNULL ,
#endif
setScannerConfigScanIdentifierNULL ,
getScannerConfigScanOctal ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_scanOctal ,
#endif
setScannerConfigScanOctal ,
getScannerConfigScanStringDq ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_scanStringDq ,
#endif
setScannerConfigScanStringDq ,
getScannerConfigScanStringSq ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_scanStringSq ,
#endif
setScannerConfigScanStringSq ,
getScannerConfigScanSymbols ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_scanSymbols ,
#endif
setScannerConfigScanSymbols ,
getScannerConfigScope0Fallback ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_scope0Fallback ,
#endif
setScannerConfigScope0Fallback ,
getScannerConfigSkipCommentMulti ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_skipCommentMulti ,
#endif
setScannerConfigSkipCommentMulti ,
getScannerConfigSkipCommentSingle ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_skipCommentSingle ,
#endif
setScannerConfigSkipCommentSingle ,
getScannerConfigStoreInt64 ,
#if defined(ENABLE_OVERLOADING)
scannerConfig_storeInt64 ,
#endif
setScannerConfigStoreInt64 ,
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.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 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)
deriving (Eq)
instance WrappedPtr ScannerConfig where
wrappedPtrCalloc = callocBytes 108
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 108 >=> 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 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
getScannerConfigCsetIdentifierFirst :: MonadIO m => ScannerConfig -> m (Maybe T.Text)
getScannerConfigCsetIdentifierFirst s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: 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` 4) (val :: CString)
clearScannerConfigCsetIdentifierFirst :: MonadIO m => ScannerConfig -> m ()
clearScannerConfigCsetIdentifierFirst s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 4) (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
getScannerConfigCsetIdentifierNth :: MonadIO m => ScannerConfig -> m (Maybe T.Text)
getScannerConfigCsetIdentifierNth 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
setScannerConfigCsetIdentifierNth :: MonadIO m => ScannerConfig -> CString -> m ()
setScannerConfigCsetIdentifierNth s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: CString)
clearScannerConfigCsetIdentifierNth :: MonadIO m => ScannerConfig -> m ()
clearScannerConfigCsetIdentifierNth s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (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
getScannerConfigCpairCommentSingle :: MonadIO m => ScannerConfig -> m (Maybe T.Text)
getScannerConfigCpairCommentSingle s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: 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` 12) (val :: CString)
clearScannerConfigCpairCommentSingle :: MonadIO m => ScannerConfig -> m ()
clearScannerConfigCpairCommentSingle s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 12) (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
getScannerConfigCaseSensitive :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigCaseSensitive s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO Word32
return val
setScannerConfigCaseSensitive :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigCaseSensitive s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (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
getScannerConfigSkipCommentMulti :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigSkipCommentMulti s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO Word32
return val
setScannerConfigSkipCommentMulti :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigSkipCommentMulti s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 20) (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
getScannerConfigSkipCommentSingle :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigSkipCommentSingle s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO Word32
return val
setScannerConfigSkipCommentSingle :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigSkipCommentSingle s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 24) (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
getScannerConfigScanCommentMulti :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanCommentMulti s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 28) :: IO Word32
return val
setScannerConfigScanCommentMulti :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanCommentMulti s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 28) (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
getScannerConfigScanIdentifier :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanIdentifier s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO Word32
return val
setScannerConfigScanIdentifier :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanIdentifier s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 32) (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
getScannerConfigScanIdentifier1char :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanIdentifier1char s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 36) :: IO Word32
return val
setScannerConfigScanIdentifier1char :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanIdentifier1char s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 36) (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
getScannerConfigScanIdentifierNULL :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanIdentifierNULL s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 40) :: IO Word32
return val
setScannerConfigScanIdentifierNULL :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanIdentifierNULL s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 40) (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
getScannerConfigScanSymbols :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanSymbols s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 44) :: IO Word32
return val
setScannerConfigScanSymbols :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanSymbols s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 44) (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
getScannerConfigScanBinary :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanBinary s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 48) :: IO Word32
return val
setScannerConfigScanBinary :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanBinary s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 48) (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
getScannerConfigScanOctal :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanOctal s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 52) :: IO Word32
return val
setScannerConfigScanOctal :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanOctal s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 52) (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
getScannerConfigScanFloat :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanFloat s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 56) :: IO Word32
return val
setScannerConfigScanFloat :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanFloat s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 56) (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
getScannerConfigScanHex :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanHex s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 60) :: IO Word32
return val
setScannerConfigScanHex :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanHex s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 60) (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
getScannerConfigScanHexDollar :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanHexDollar s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 64) :: IO Word32
return val
setScannerConfigScanHexDollar :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanHexDollar s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 64) (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
getScannerConfigScanStringSq :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanStringSq s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 68) :: IO Word32
return val
setScannerConfigScanStringSq :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanStringSq s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 68) (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
getScannerConfigScanStringDq :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScanStringDq s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 72) :: IO Word32
return val
setScannerConfigScanStringDq :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScanStringDq s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 72) (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
getScannerConfigNumbers2Int :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigNumbers2Int s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 76) :: IO Word32
return val
setScannerConfigNumbers2Int :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigNumbers2Int s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 76) (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
getScannerConfigInt2Float :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigInt2Float s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 80) :: IO Word32
return val
setScannerConfigInt2Float :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigInt2Float s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 80) (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
getScannerConfigIdentifier2String :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigIdentifier2String s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 84) :: IO Word32
return val
setScannerConfigIdentifier2String :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigIdentifier2String s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 84) (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
getScannerConfigChar2Token :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigChar2Token s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 88) :: IO Word32
return val
setScannerConfigChar2Token :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigChar2Token s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 88) (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
getScannerConfigSymbol2Token :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigSymbol2Token s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 92) :: IO Word32
return val
setScannerConfigSymbol2Token :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigSymbol2Token s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 92) (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
getScannerConfigScope0Fallback :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigScope0Fallback s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 96) :: IO Word32
return val
setScannerConfigScope0Fallback :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigScope0Fallback s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 96) (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
getScannerConfigStoreInt64 :: MonadIO m => ScannerConfig -> m Word32
getScannerConfigStoreInt64 s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 100) :: IO Word32
return val
setScannerConfigStoreInt64 :: MonadIO m => ScannerConfig -> Word32 -> m ()
setScannerConfigStoreInt64 s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 100) (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