{-# 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