{-# LINE 1 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} module Database.SednaDB.Internal.SednaResponseCodes where {-# LINE 2 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} -------------------------------------------------------------------------------- import Foreign.C.Types -------------------------------------------------------------------------------- {-# LINE 8 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} -------------------------------------------------------------------------------- data SednaResponseCode = OperationSucceeded | SessionOpen | SessionClosed | AuthenticationFailed | OpenSessionFailed | CloseSessionFailed | QuerySucceeded | QueryFailed | UpdateSucceeded | UpdateFailed | BulkLoadSucceeded | BulkLoadFailed | BeginTransactionSucceeded | BeginTransactionFailed | RollBackTansactionSucceeded | RollBackTransactionFailed | CommitTransactionSucceeded | CommitTransactionFailed | NextItemSucceeded | NextItemFailed | NoItem | ResultEnd | DataChunkLoaded | SednaError | TransactionActive | NoTransaction | ConnectionOK | ConnectionClosed | ConnectionFailed | SetAttributeSucceeded | GetAttributeSucceeded | ResetAttributeSucceeded deriving ( Eq, Show ) -------------------------------------------------------------------------------- fromCConstant :: CInt -> SednaResponseCode fromCConstant x = case x of -1 -> OperationSucceeded {-# LINE 48 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} 1 -> SessionOpen {-# LINE 49 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} 2 -> SessionClosed {-# LINE 50 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} -3 -> AuthenticationFailed {-# LINE 51 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} -4 -> OpenSessionFailed {-# LINE 52 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} -5 -> CloseSessionFailed {-# LINE 53 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} 6 -> QuerySucceeded {-# LINE 54 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} -7 -> QueryFailed {-# LINE 55 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} 8 -> UpdateSucceeded {-# LINE 56 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} -9 -> UpdateFailed {-# LINE 57 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} 10 -> BulkLoadSucceeded {-# LINE 58 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} -11 -> BulkLoadFailed {-# LINE 59 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} 12 -> BeginTransactionSucceeded {-# LINE 60 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} -13 -> BeginTransactionFailed {-# LINE 61 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} 14 -> RollBackTansactionSucceeded {-# LINE 62 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} -15 -> RollBackTransactionFailed {-# LINE 63 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} 16 -> CommitTransactionSucceeded {-# LINE 64 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} -17 -> CommitTransactionFailed {-# LINE 65 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} 18 -> NextItemSucceeded {-# LINE 66 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} -19 -> NextItemFailed {-# LINE 67 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} -20 -> NoItem {-# LINE 68 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} -21 -> ResultEnd {-# LINE 69 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} 23 -> DataChunkLoaded {-# LINE 70 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} -24 -> SednaError {-# LINE 71 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} 25 -> TransactionActive {-# LINE 72 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} 26 -> NoTransaction {-# LINE 73 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} 27 -> ConnectionOK {-# LINE 74 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} 28 -> ConnectionClosed {-# LINE 75 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} -29 -> ConnectionFailed {-# LINE 76 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} 32 -> SetAttributeSucceeded {-# LINE 77 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} 33 -> GetAttributeSucceeded {-# LINE 78 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} 34 -> ResetAttributeSucceeded {-# LINE 79 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} _ -> error "Undefined Constant" -------------------------------------------------------------------------------- toCConstant :: (Integral a) => SednaResponseCode -> a toCConstant x = case x of OperationSucceeded -> -1 {-# LINE 85 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} SessionOpen -> 1 {-# LINE 86 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} SessionClosed -> 2 {-# LINE 87 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} AuthenticationFailed -> -3 {-# LINE 88 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} OpenSessionFailed -> -4 {-# LINE 89 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} CloseSessionFailed -> -5 {-# LINE 90 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} QuerySucceeded -> 6 {-# LINE 91 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} QueryFailed -> -7 {-# LINE 92 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} UpdateSucceeded -> 8 {-# LINE 93 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} UpdateFailed -> -9 {-# LINE 94 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} BulkLoadSucceeded -> 10 {-# LINE 95 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} BulkLoadFailed -> -11 {-# LINE 96 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} BeginTransactionSucceeded -> 12 {-# LINE 97 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} BeginTransactionFailed -> -13 {-# LINE 98 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} RollBackTansactionSucceeded -> 14 {-# LINE 99 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} RollBackTransactionFailed -> -15 {-# LINE 100 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} CommitTransactionSucceeded -> 16 {-# LINE 101 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} CommitTransactionFailed -> -17 {-# LINE 102 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} NextItemSucceeded -> 18 {-# LINE 103 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} NextItemFailed -> -19 {-# LINE 104 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} NoItem -> -20 {-# LINE 105 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} ResultEnd -> -21 {-# LINE 106 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} DataChunkLoaded -> 23 {-# LINE 107 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} SednaError -> -24 {-# LINE 108 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} TransactionActive -> 25 {-# LINE 109 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} NoTransaction -> 26 {-# LINE 110 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} ConnectionOK -> 27 {-# LINE 111 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} ConnectionClosed -> 28 {-# LINE 112 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} ConnectionFailed -> -29 {-# LINE 113 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} SetAttributeSucceeded -> 32 {-# LINE 114 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} GetAttributeSucceeded -> 33 {-# LINE 115 "src/Database/SednaDB/Internal/SednaResponseCodes.hsc" #-} ResetAttributeSucceeded -> 34