module Database.SednaDB.Internal.SednaConnectionAttributes where
import Foreign.C.Types
newtype SednaConnectionAttr = SednaConnectionAttr { sednaConnectionAttr :: CInt } deriving(Eq, Ord, Show)
newtype SednaConnAttrValue = SednaConnAttrValue { sednaConnAttrValue :: CInt } deriving(Eq, Ord, Show)
attrAutoCommit :: SednaConnectionAttr
attrAutoCommit = SednaConnectionAttr 0
attrSessionDirectory :: SednaConnectionAttr
attrSessionDirectory = SednaConnectionAttr 1
attrDebug :: SednaConnectionAttr
attrDebug = SednaConnectionAttr 2
attrBoundarySpacePreserveWhileLoad :: SednaConnectionAttr
attrBoundarySpacePreserveWhileLoad = SednaConnectionAttr 3
attrConcurrencyType :: SednaConnectionAttr
attrConcurrencyType = SednaConnectionAttr 4
attrQueryExecTimeOut :: SednaConnectionAttr
attrQueryExecTimeOut = SednaConnectionAttr 5
attrLogAmount :: SednaConnectionAttr
attrLogAmount = SednaConnectionAttr 6
attrMaxResultSize :: SednaConnectionAttr
attrMaxResultSize = SednaConnectionAttr 7
autoCommitOff :: SednaConnAttrValue
autoCommitOff = SednaConnAttrValue 30
autoCommitOn :: SednaConnAttrValue
autoCommitOn = SednaConnAttrValue 31
readOnlyTransaction :: SednaConnAttrValue
readOnlyTransaction = SednaConnAttrValue 2
updateTransaction :: SednaConnAttrValue
updateTransaction = SednaConnAttrValue 3
debugOn :: SednaConnAttrValue
debugOn = SednaConnAttrValue 1
debugOff :: SednaConnAttrValue
debugOff = SednaConnAttrValue 0
logLess :: SednaConnAttrValue
logLess = SednaConnAttrValue 7
logFull :: SednaConnAttrValue
logFull = SednaConnAttrValue 8
boundarySpacePreserveOn :: SednaConnAttrValue
boundarySpacePreserveOn = SednaConnAttrValue 36
boundarySpacePreserveOff :: SednaConnAttrValue
boundarySpacePreserveOff = SednaConnAttrValue 35