{-# OPTIONS_GHC -Wall #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} {-# LANGUAGE MultiParamTypeClasses #-} module Casadi.Core.Enums ( ControlSimulatorInput(..), ControlledDAEInput(..), DAEInput(..), DAEOutput(..), GradFInput(..), GradFOutput(..), HNLPInput(..), HessLagInput(..), HessLagOutput(..), InputOutputScheme(..), IntegratorInput(..), IntegratorOutput(..), JacGInput(..), JacGOutput(..), LPSolverInput(..), LPSolverOutput(..), LPStruct(..), LinsolInput(..), LinsolOutput(..), MayerInput(..), NLPInput(..), NLPOutput(..), NLPSolverInput(..), NLPSolverOutput(..), OCPInput(..), OCPOutput(..), Operation(..), Opt_type(..), QCQPSolverInput(..), QCQPSolverOutput(..), QCQPStruct(..), QPSolverInput(..), QPSolverOutput(..), QPStruct(..), RDAEInput(..), RDAEOutput(..), SDPInput(..), SDPOutput(..), SDPStruct(..), SDQPInput(..), SDQPOutput(..), SDQPStruct(..), SOCPInput(..), SOCPOutput(..), SOCPStruct(..), SparsityType(..), StabilizedQPSolverInput(..), Type(..), ) where import Foreign.C.Types ( CInt(..) ) import Casadi.Internal.Marshal ( Marshal(..) ) import Casadi.Internal.WrapReturn ( WrapReturn(..) ) -- EnumDecl: ControlSimulatorInput data ControlSimulatorInput = CONTROLSIMULATOR_NUM_IN | CONTROLSIMULATOR_P | CONTROLSIMULATOR_U | CONTROLSIMULATOR_X0 deriving (Show, Eq) instance Enum ControlSimulatorInput where fromEnum (CONTROLSIMULATOR_NUM_IN) = 3 fromEnum (CONTROLSIMULATOR_P) = 1 fromEnum (CONTROLSIMULATOR_U) = 2 fromEnum (CONTROLSIMULATOR_X0) = 0 toEnum (3) = CONTROLSIMULATOR_NUM_IN toEnum (1) = CONTROLSIMULATOR_P toEnum (2) = CONTROLSIMULATOR_U toEnum (0) = CONTROLSIMULATOR_X0 toEnum k = error $ "ControlSimulatorInput: toEnum: got unhandled number: " ++ show k instance Marshal ControlSimulatorInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt ControlSimulatorInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: ControlledDAEInput data ControlledDAEInput = CONTROL_DAE_NUM_IN | CONTROL_DAE_P | CONTROL_DAE_T | CONTROL_DAE_T0 | CONTROL_DAE_TF | CONTROL_DAE_U | CONTROL_DAE_U_INTERP | CONTROL_DAE_X | CONTROL_DAE_X_MAJOR | CONTROL_DAE_Z deriving (Show, Eq) instance Enum ControlledDAEInput where fromEnum (CONTROL_DAE_NUM_IN) = 9 fromEnum (CONTROL_DAE_P) = 3 fromEnum (CONTROL_DAE_T) = 0 fromEnum (CONTROL_DAE_T0) = 7 fromEnum (CONTROL_DAE_TF) = 8 fromEnum (CONTROL_DAE_U) = 4 fromEnum (CONTROL_DAE_U_INTERP) = 5 fromEnum (CONTROL_DAE_X) = 1 fromEnum (CONTROL_DAE_X_MAJOR) = 6 fromEnum (CONTROL_DAE_Z) = 2 toEnum (9) = CONTROL_DAE_NUM_IN toEnum (3) = CONTROL_DAE_P toEnum (0) = CONTROL_DAE_T toEnum (7) = CONTROL_DAE_T0 toEnum (8) = CONTROL_DAE_TF toEnum (4) = CONTROL_DAE_U toEnum (5) = CONTROL_DAE_U_INTERP toEnum (1) = CONTROL_DAE_X toEnum (6) = CONTROL_DAE_X_MAJOR toEnum (2) = CONTROL_DAE_Z toEnum k = error $ "ControlledDAEInput: toEnum: got unhandled number: " ++ show k instance Marshal ControlledDAEInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt ControlledDAEInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: DAEInput data DAEInput = DAE_NUM_IN | DAE_P | DAE_T | DAE_X | DAE_Z deriving (Show, Eq) instance Enum DAEInput where fromEnum (DAE_NUM_IN) = 4 fromEnum (DAE_P) = 2 fromEnum (DAE_T) = 3 fromEnum (DAE_X) = 0 fromEnum (DAE_Z) = 1 toEnum (4) = DAE_NUM_IN toEnum (2) = DAE_P toEnum (3) = DAE_T toEnum (0) = DAE_X toEnum (1) = DAE_Z toEnum k = error $ "DAEInput: toEnum: got unhandled number: " ++ show k instance Marshal DAEInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt DAEInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: DAEOutput data DAEOutput = DAE_ALG | DAE_NUM_OUT | DAE_ODE | DAE_QUAD deriving (Show, Eq) instance Enum DAEOutput where fromEnum (DAE_ALG) = 1 fromEnum (DAE_NUM_OUT) = 3 fromEnum (DAE_ODE) = 0 fromEnum (DAE_QUAD) = 2 toEnum (1) = DAE_ALG toEnum (3) = DAE_NUM_OUT toEnum (0) = DAE_ODE toEnum (2) = DAE_QUAD toEnum k = error $ "DAEOutput: toEnum: got unhandled number: " ++ show k instance Marshal DAEOutput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt DAEOutput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: GradFInput data GradFInput = GRADF_NUM_IN | GRADF_P | GRADF_X deriving (Show, Eq) instance Enum GradFInput where fromEnum (GRADF_NUM_IN) = 2 fromEnum (GRADF_P) = 1 fromEnum (GRADF_X) = 0 toEnum (2) = GRADF_NUM_IN toEnum (1) = GRADF_P toEnum (0) = GRADF_X toEnum k = error $ "GradFInput: toEnum: got unhandled number: " ++ show k instance Marshal GradFInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt GradFInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: GradFOutput data GradFOutput = GRADF_F | GRADF_G | GRADF_GRAD | GRADF_NUM_OUT deriving (Show, Eq) instance Enum GradFOutput where fromEnum (GRADF_F) = 1 fromEnum (GRADF_G) = 2 fromEnum (GRADF_GRAD) = 0 fromEnum (GRADF_NUM_OUT) = 3 toEnum (1) = GRADF_F toEnum (2) = GRADF_G toEnum (0) = GRADF_GRAD toEnum (3) = GRADF_NUM_OUT toEnum k = error $ "GradFOutput: toEnum: got unhandled number: " ++ show k instance Marshal GradFOutput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt GradFOutput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: HNLPInput data HNLPInput = HNL_NUM_IN | HNL_P | HNL_TAU | HNL_X deriving (Show, Eq) instance Enum HNLPInput where fromEnum (HNL_NUM_IN) = 3 fromEnum (HNL_P) = 1 fromEnum (HNL_TAU) = 2 fromEnum (HNL_X) = 0 toEnum (3) = HNL_NUM_IN toEnum (1) = HNL_P toEnum (2) = HNL_TAU toEnum (0) = HNL_X toEnum k = error $ "HNLPInput: toEnum: got unhandled number: " ++ show k instance Marshal HNLPInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt HNLPInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: HessLagInput data HessLagInput = HESSLAG_LAM_F | HESSLAG_LAM_G | HESSLAG_NUM_IN | HESSLAG_P | HESSLAG_X deriving (Show, Eq) instance Enum HessLagInput where fromEnum (HESSLAG_LAM_F) = 2 fromEnum (HESSLAG_LAM_G) = 3 fromEnum (HESSLAG_NUM_IN) = 4 fromEnum (HESSLAG_P) = 1 fromEnum (HESSLAG_X) = 0 toEnum (2) = HESSLAG_LAM_F toEnum (3) = HESSLAG_LAM_G toEnum (4) = HESSLAG_NUM_IN toEnum (1) = HESSLAG_P toEnum (0) = HESSLAG_X toEnum k = error $ "HessLagInput: toEnum: got unhandled number: " ++ show k instance Marshal HessLagInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt HessLagInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: HessLagOutput data HessLagOutput = HESSLAG_F | HESSLAG_G | HESSLAG_GRAD_P | HESSLAG_GRAD_X | HESSLAG_HESS | HESSLAG_NUM_OUT deriving (Show, Eq) instance Enum HessLagOutput where fromEnum (HESSLAG_F) = 1 fromEnum (HESSLAG_G) = 2 fromEnum (HESSLAG_GRAD_P) = 4 fromEnum (HESSLAG_GRAD_X) = 3 fromEnum (HESSLAG_HESS) = 0 fromEnum (HESSLAG_NUM_OUT) = 5 toEnum (1) = HESSLAG_F toEnum (2) = HESSLAG_G toEnum (4) = HESSLAG_GRAD_P toEnum (3) = HESSLAG_GRAD_X toEnum (0) = HESSLAG_HESS toEnum (5) = HESSLAG_NUM_OUT toEnum k = error $ "HessLagOutput: toEnum: got unhandled number: " ++ show k instance Marshal HessLagOutput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt HessLagOutput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: InputOutputScheme data InputOutputScheme = SCHEME_ControlSimulatorInput | SCHEME_ControlledDAEInput | SCHEME_DAEInput | SCHEME_DAEOutput | SCHEME_DPLEInput | SCHEME_DPLEOutput | SCHEME_GradFInput | SCHEME_GradFOutput | SCHEME_HNLPInput | SCHEME_HessLagInput | SCHEME_HessLagOutput | SCHEME_IntegratorInput | SCHEME_IntegratorOutput | SCHEME_JacGInput | SCHEME_JacGOutput | SCHEME_LPSolverInput | SCHEME_LPSolverOutput | SCHEME_LPStruct | SCHEME_LinsolInput | SCHEME_LinsolOutput | SCHEME_MayerInput | SCHEME_NLPInput | SCHEME_NLPOutput | SCHEME_NLPSolverInput | SCHEME_NLPSolverOutput | SCHEME_OCPInput | SCHEME_OCPOutput | SCHEME_QCQPSolverInput | SCHEME_QCQPSolverOutput | SCHEME_QCQPStruct | SCHEME_QPSolverInput | SCHEME_QPSolverOutput | SCHEME_QPStruct | SCHEME_RDAEInput | SCHEME_RDAEOutput | SCHEME_SDPInput | SCHEME_SDPOutput | SCHEME_SDPStruct | SCHEME_SDQPInput | SCHEME_SDQPOutput | SCHEME_SDQPStruct | SCHEME_SOCPInput | SCHEME_SOCPOutput | SCHEME_SOCPStruct | SCHEME_StabilizedQPSolverInput deriving (Show, Eq) instance Enum InputOutputScheme where fromEnum (SCHEME_ControlSimulatorInput) = 3 fromEnum (SCHEME_ControlledDAEInput) = 2 fromEnum (SCHEME_DAEInput) = 5 fromEnum (SCHEME_DAEOutput) = 6 fromEnum (SCHEME_DPLEInput) = 0 fromEnum (SCHEME_DPLEOutput) = 1 fromEnum (SCHEME_GradFInput) = 18 fromEnum (SCHEME_GradFOutput) = 19 fromEnum (SCHEME_HNLPInput) = 4 fromEnum (SCHEME_HessLagInput) = 22 fromEnum (SCHEME_HessLagOutput) = 23 fromEnum (SCHEME_IntegratorInput) = 9 fromEnum (SCHEME_IntegratorOutput) = 10 fromEnum (SCHEME_JacGInput) = 20 fromEnum (SCHEME_JacGOutput) = 21 fromEnum (SCHEME_LPSolverInput) = 13 fromEnum (SCHEME_LPSolverOutput) = 14 fromEnum (SCHEME_LPStruct) = 15 fromEnum (SCHEME_LinsolInput) = 11 fromEnum (SCHEME_LinsolOutput) = 12 fromEnum (SCHEME_MayerInput) = 26 fromEnum (SCHEME_NLPInput) = 16 fromEnum (SCHEME_NLPOutput) = 17 fromEnum (SCHEME_NLPSolverInput) = 24 fromEnum (SCHEME_NLPSolverOutput) = 25 fromEnum (SCHEME_OCPInput) = 27 fromEnum (SCHEME_OCPOutput) = 28 fromEnum (SCHEME_QCQPSolverInput) = 29 fromEnum (SCHEME_QCQPSolverOutput) = 30 fromEnum (SCHEME_QCQPStruct) = 31 fromEnum (SCHEME_QPSolverInput) = 32 fromEnum (SCHEME_QPSolverOutput) = 33 fromEnum (SCHEME_QPStruct) = 34 fromEnum (SCHEME_RDAEInput) = 7 fromEnum (SCHEME_RDAEOutput) = 8 fromEnum (SCHEME_SDPInput) = 35 fromEnum (SCHEME_SDPOutput) = 36 fromEnum (SCHEME_SDPStruct) = 37 fromEnum (SCHEME_SDQPInput) = 38 fromEnum (SCHEME_SDQPOutput) = 39 fromEnum (SCHEME_SDQPStruct) = 40 fromEnum (SCHEME_SOCPInput) = 41 fromEnum (SCHEME_SOCPOutput) = 42 fromEnum (SCHEME_SOCPStruct) = 43 fromEnum (SCHEME_StabilizedQPSolverInput) = 44 toEnum (3) = SCHEME_ControlSimulatorInput toEnum (2) = SCHEME_ControlledDAEInput toEnum (5) = SCHEME_DAEInput toEnum (6) = SCHEME_DAEOutput toEnum (0) = SCHEME_DPLEInput toEnum (1) = SCHEME_DPLEOutput toEnum (18) = SCHEME_GradFInput toEnum (19) = SCHEME_GradFOutput toEnum (4) = SCHEME_HNLPInput toEnum (22) = SCHEME_HessLagInput toEnum (23) = SCHEME_HessLagOutput toEnum (9) = SCHEME_IntegratorInput toEnum (10) = SCHEME_IntegratorOutput toEnum (20) = SCHEME_JacGInput toEnum (21) = SCHEME_JacGOutput toEnum (13) = SCHEME_LPSolverInput toEnum (14) = SCHEME_LPSolverOutput toEnum (15) = SCHEME_LPStruct toEnum (11) = SCHEME_LinsolInput toEnum (12) = SCHEME_LinsolOutput toEnum (26) = SCHEME_MayerInput toEnum (16) = SCHEME_NLPInput toEnum (17) = SCHEME_NLPOutput toEnum (24) = SCHEME_NLPSolverInput toEnum (25) = SCHEME_NLPSolverOutput toEnum (27) = SCHEME_OCPInput toEnum (28) = SCHEME_OCPOutput toEnum (29) = SCHEME_QCQPSolverInput toEnum (30) = SCHEME_QCQPSolverOutput toEnum (31) = SCHEME_QCQPStruct toEnum (32) = SCHEME_QPSolverInput toEnum (33) = SCHEME_QPSolverOutput toEnum (34) = SCHEME_QPStruct toEnum (7) = SCHEME_RDAEInput toEnum (8) = SCHEME_RDAEOutput toEnum (35) = SCHEME_SDPInput toEnum (36) = SCHEME_SDPOutput toEnum (37) = SCHEME_SDPStruct toEnum (38) = SCHEME_SDQPInput toEnum (39) = SCHEME_SDQPOutput toEnum (40) = SCHEME_SDQPStruct toEnum (41) = SCHEME_SOCPInput toEnum (42) = SCHEME_SOCPOutput toEnum (43) = SCHEME_SOCPStruct toEnum (44) = SCHEME_StabilizedQPSolverInput toEnum k = error $ "InputOutputScheme: toEnum: got unhandled number: " ++ show k instance Marshal InputOutputScheme CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt InputOutputScheme where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: IntegratorInput data IntegratorInput = INTEGRATOR_NUM_IN | INTEGRATOR_P | INTEGRATOR_RP | INTEGRATOR_RX0 | INTEGRATOR_RZ0 | INTEGRATOR_X0 | INTEGRATOR_Z0 deriving (Show, Eq) instance Enum IntegratorInput where fromEnum (INTEGRATOR_NUM_IN) = 6 fromEnum (INTEGRATOR_P) = 1 fromEnum (INTEGRATOR_RP) = 4 fromEnum (INTEGRATOR_RX0) = 3 fromEnum (INTEGRATOR_RZ0) = 5 fromEnum (INTEGRATOR_X0) = 0 fromEnum (INTEGRATOR_Z0) = 2 toEnum (6) = INTEGRATOR_NUM_IN toEnum (1) = INTEGRATOR_P toEnum (4) = INTEGRATOR_RP toEnum (3) = INTEGRATOR_RX0 toEnum (5) = INTEGRATOR_RZ0 toEnum (0) = INTEGRATOR_X0 toEnum (2) = INTEGRATOR_Z0 toEnum k = error $ "IntegratorInput: toEnum: got unhandled number: " ++ show k instance Marshal IntegratorInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt IntegratorInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: IntegratorOutput data IntegratorOutput = INTEGRATOR_NUM_OUT | INTEGRATOR_QF | INTEGRATOR_RQF | INTEGRATOR_RXF | INTEGRATOR_RZF | INTEGRATOR_XF | INTEGRATOR_ZF deriving (Show, Eq) instance Enum IntegratorOutput where fromEnum (INTEGRATOR_NUM_OUT) = 6 fromEnum (INTEGRATOR_QF) = 1 fromEnum (INTEGRATOR_RQF) = 4 fromEnum (INTEGRATOR_RXF) = 3 fromEnum (INTEGRATOR_RZF) = 5 fromEnum (INTEGRATOR_XF) = 0 fromEnum (INTEGRATOR_ZF) = 2 toEnum (6) = INTEGRATOR_NUM_OUT toEnum (1) = INTEGRATOR_QF toEnum (4) = INTEGRATOR_RQF toEnum (3) = INTEGRATOR_RXF toEnum (5) = INTEGRATOR_RZF toEnum (0) = INTEGRATOR_XF toEnum (2) = INTEGRATOR_ZF toEnum k = error $ "IntegratorOutput: toEnum: got unhandled number: " ++ show k instance Marshal IntegratorOutput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt IntegratorOutput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: JacGInput data JacGInput = JACG_NUM_IN | JACG_P | JACG_X deriving (Show, Eq) instance Enum JacGInput where fromEnum (JACG_NUM_IN) = 2 fromEnum (JACG_P) = 1 fromEnum (JACG_X) = 0 toEnum (2) = JACG_NUM_IN toEnum (1) = JACG_P toEnum (0) = JACG_X toEnum k = error $ "JacGInput: toEnum: got unhandled number: " ++ show k instance Marshal JacGInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt JacGInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: JacGOutput data JacGOutput = JACG_F | JACG_G | JACG_JAC | JACG_NUM_OUT deriving (Show, Eq) instance Enum JacGOutput where fromEnum (JACG_F) = 1 fromEnum (JACG_G) = 2 fromEnum (JACG_JAC) = 0 fromEnum (JACG_NUM_OUT) = 3 toEnum (1) = JACG_F toEnum (2) = JACG_G toEnum (0) = JACG_JAC toEnum (3) = JACG_NUM_OUT toEnum k = error $ "JacGOutput: toEnum: got unhandled number: " ++ show k instance Marshal JacGOutput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt JacGOutput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: LPSolverInput data LPSolverInput = LP_SOLVER_A | LP_SOLVER_C | LP_SOLVER_LBA | LP_SOLVER_LBX | LP_SOLVER_NUM_IN | LP_SOLVER_UBA | LP_SOLVER_UBX deriving (Show, Eq) instance Enum LPSolverInput where fromEnum (LP_SOLVER_A) = 1 fromEnum (LP_SOLVER_C) = 0 fromEnum (LP_SOLVER_LBA) = 2 fromEnum (LP_SOLVER_LBX) = 4 fromEnum (LP_SOLVER_NUM_IN) = 6 fromEnum (LP_SOLVER_UBA) = 3 fromEnum (LP_SOLVER_UBX) = 5 toEnum (1) = LP_SOLVER_A toEnum (0) = LP_SOLVER_C toEnum (2) = LP_SOLVER_LBA toEnum (4) = LP_SOLVER_LBX toEnum (6) = LP_SOLVER_NUM_IN toEnum (3) = LP_SOLVER_UBA toEnum (5) = LP_SOLVER_UBX toEnum k = error $ "LPSolverInput: toEnum: got unhandled number: " ++ show k instance Marshal LPSolverInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt LPSolverInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: LPSolverOutput data LPSolverOutput = LP_SOLVER_COST | LP_SOLVER_LAM_A | LP_SOLVER_LAM_X | LP_SOLVER_NUM_OUT | LP_SOLVER_X deriving (Show, Eq) instance Enum LPSolverOutput where fromEnum (LP_SOLVER_COST) = 1 fromEnum (LP_SOLVER_LAM_A) = 2 fromEnum (LP_SOLVER_LAM_X) = 3 fromEnum (LP_SOLVER_NUM_OUT) = 4 fromEnum (LP_SOLVER_X) = 0 toEnum (1) = LP_SOLVER_COST toEnum (2) = LP_SOLVER_LAM_A toEnum (3) = LP_SOLVER_LAM_X toEnum (4) = LP_SOLVER_NUM_OUT toEnum (0) = LP_SOLVER_X toEnum k = error $ "LPSolverOutput: toEnum: got unhandled number: " ++ show k instance Marshal LPSolverOutput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt LPSolverOutput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: LPStruct data LPStruct = LP_STRUCT_A | LP_STRUCT_NUM deriving (Show, Eq) instance Enum LPStruct where fromEnum (LP_STRUCT_A) = 0 fromEnum (LP_STRUCT_NUM) = 1 toEnum (0) = LP_STRUCT_A toEnum (1) = LP_STRUCT_NUM toEnum k = error $ "LPStruct: toEnum: got unhandled number: " ++ show k instance Marshal LPStruct CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt LPStruct where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: LinsolInput data LinsolInput = LINSOL_A | LINSOL_B | LINSOL_NUM_IN deriving (Show, Eq) instance Enum LinsolInput where fromEnum (LINSOL_A) = 0 fromEnum (LINSOL_B) = 1 fromEnum (LINSOL_NUM_IN) = 2 toEnum (0) = LINSOL_A toEnum (1) = LINSOL_B toEnum (2) = LINSOL_NUM_IN toEnum k = error $ "LinsolInput: toEnum: got unhandled number: " ++ show k instance Marshal LinsolInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt LinsolInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: LinsolOutput data LinsolOutput = LINSOL_NUM_OUT | LINSOL_X deriving (Show, Eq) instance Enum LinsolOutput where fromEnum (LINSOL_NUM_OUT) = 1 fromEnum (LINSOL_X) = 0 toEnum (1) = LINSOL_NUM_OUT toEnum (0) = LINSOL_X toEnum k = error $ "LinsolOutput: toEnum: got unhandled number: " ++ show k instance Marshal LinsolOutput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt LinsolOutput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: MayerInput data MayerInput = MAYER_NUM_IN | MAYER_P | MAYER_X deriving (Show, Eq) instance Enum MayerInput where fromEnum (MAYER_NUM_IN) = 2 fromEnum (MAYER_P) = 1 fromEnum (MAYER_X) = 0 toEnum (2) = MAYER_NUM_IN toEnum (1) = MAYER_P toEnum (0) = MAYER_X toEnum k = error $ "MayerInput: toEnum: got unhandled number: " ++ show k instance Marshal MayerInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt MayerInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: NLPInput data NLPInput = NL_NUM_IN | NL_P | NL_X deriving (Show, Eq) instance Enum NLPInput where fromEnum (NL_NUM_IN) = 2 fromEnum (NL_P) = 1 fromEnum (NL_X) = 0 toEnum (2) = NL_NUM_IN toEnum (1) = NL_P toEnum (0) = NL_X toEnum k = error $ "NLPInput: toEnum: got unhandled number: " ++ show k instance Marshal NLPInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt NLPInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: NLPOutput data NLPOutput = NL_F | NL_G | NL_NUM_OUT deriving (Show, Eq) instance Enum NLPOutput where fromEnum (NL_F) = 0 fromEnum (NL_G) = 1 fromEnum (NL_NUM_OUT) = 2 toEnum (0) = NL_F toEnum (1) = NL_G toEnum (2) = NL_NUM_OUT toEnum k = error $ "NLPOutput: toEnum: got unhandled number: " ++ show k instance Marshal NLPOutput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt NLPOutput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: NLPSolverInput data NLPSolverInput = NLP_SOLVER_LAM_G0 | NLP_SOLVER_LAM_X0 | NLP_SOLVER_LBG | NLP_SOLVER_LBX | NLP_SOLVER_NUM_IN | NLP_SOLVER_P | NLP_SOLVER_UBG | NLP_SOLVER_UBX | NLP_SOLVER_X0 deriving (Show, Eq) instance Enum NLPSolverInput where fromEnum (NLP_SOLVER_LAM_G0) = 7 fromEnum (NLP_SOLVER_LAM_X0) = 6 fromEnum (NLP_SOLVER_LBG) = 4 fromEnum (NLP_SOLVER_LBX) = 2 fromEnum (NLP_SOLVER_NUM_IN) = 8 fromEnum (NLP_SOLVER_P) = 1 fromEnum (NLP_SOLVER_UBG) = 5 fromEnum (NLP_SOLVER_UBX) = 3 fromEnum (NLP_SOLVER_X0) = 0 toEnum (7) = NLP_SOLVER_LAM_G0 toEnum (6) = NLP_SOLVER_LAM_X0 toEnum (4) = NLP_SOLVER_LBG toEnum (2) = NLP_SOLVER_LBX toEnum (8) = NLP_SOLVER_NUM_IN toEnum (1) = NLP_SOLVER_P toEnum (5) = NLP_SOLVER_UBG toEnum (3) = NLP_SOLVER_UBX toEnum (0) = NLP_SOLVER_X0 toEnum k = error $ "NLPSolverInput: toEnum: got unhandled number: " ++ show k instance Marshal NLPSolverInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt NLPSolverInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: NLPSolverOutput data NLPSolverOutput = NLP_SOLVER_F | NLP_SOLVER_G | NLP_SOLVER_LAM_G | NLP_SOLVER_LAM_P | NLP_SOLVER_LAM_X | NLP_SOLVER_NUM_OUT | NLP_SOLVER_X deriving (Show, Eq) instance Enum NLPSolverOutput where fromEnum (NLP_SOLVER_F) = 1 fromEnum (NLP_SOLVER_G) = 2 fromEnum (NLP_SOLVER_LAM_G) = 4 fromEnum (NLP_SOLVER_LAM_P) = 5 fromEnum (NLP_SOLVER_LAM_X) = 3 fromEnum (NLP_SOLVER_NUM_OUT) = 6 fromEnum (NLP_SOLVER_X) = 0 toEnum (1) = NLP_SOLVER_F toEnum (2) = NLP_SOLVER_G toEnum (4) = NLP_SOLVER_LAM_G toEnum (5) = NLP_SOLVER_LAM_P toEnum (3) = NLP_SOLVER_LAM_X toEnum (6) = NLP_SOLVER_NUM_OUT toEnum (0) = NLP_SOLVER_X toEnum k = error $ "NLPSolverOutput: toEnum: got unhandled number: " ++ show k instance Marshal NLPSolverOutput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt NLPSolverOutput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: OCPInput data OCPInput = OCP_LBG | OCP_LBH | OCP_LBP | OCP_LBU | OCP_LBX | OCP_NUM_IN | OCP_P_INIT | OCP_UBG | OCP_UBH | OCP_UBP | OCP_UBU | OCP_UBX | OCP_U_INIT | OCP_X_INIT deriving (Show, Eq) instance Enum OCPInput where fromEnum (OCP_LBG) = 11 fromEnum (OCP_LBH) = 9 fromEnum (OCP_LBP) = 6 fromEnum (OCP_LBU) = 3 fromEnum (OCP_LBX) = 0 fromEnum (OCP_NUM_IN) = 13 fromEnum (OCP_P_INIT) = 8 fromEnum (OCP_UBG) = 12 fromEnum (OCP_UBH) = 10 fromEnum (OCP_UBP) = 7 fromEnum (OCP_UBU) = 4 fromEnum (OCP_UBX) = 1 fromEnum (OCP_U_INIT) = 5 fromEnum (OCP_X_INIT) = 2 toEnum (11) = OCP_LBG toEnum (9) = OCP_LBH toEnum (6) = OCP_LBP toEnum (3) = OCP_LBU toEnum (0) = OCP_LBX toEnum (13) = OCP_NUM_IN toEnum (8) = OCP_P_INIT toEnum (12) = OCP_UBG toEnum (10) = OCP_UBH toEnum (7) = OCP_UBP toEnum (4) = OCP_UBU toEnum (1) = OCP_UBX toEnum (5) = OCP_U_INIT toEnum (2) = OCP_X_INIT toEnum k = error $ "OCPInput: toEnum: got unhandled number: " ++ show k instance Marshal OCPInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt OCPInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: OCPOutput data OCPOutput = OCP_COST | OCP_NUM_OUT | OCP_P_OPT | OCP_U_OPT | OCP_X_OPT deriving (Show, Eq) instance Enum OCPOutput where fromEnum (OCP_COST) = 3 fromEnum (OCP_NUM_OUT) = 4 fromEnum (OCP_P_OPT) = 2 fromEnum (OCP_U_OPT) = 1 fromEnum (OCP_X_OPT) = 0 toEnum (3) = OCP_COST toEnum (4) = OCP_NUM_OUT toEnum (2) = OCP_P_OPT toEnum (1) = OCP_U_OPT toEnum (0) = OCP_X_OPT toEnum k = error $ "OCPOutput: toEnum: got unhandled number: " ++ show k instance Marshal OCPOutput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt OCPOutput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: Operation data Operation = NUM_BUILT_IN_OPS | OP_ACOS | OP_ACOSH | OP_ADD | OP_ADDNONZEROS | OP_AND | OP_ASIN | OP_ASINH | OP_ASSERTION | OP_ASSIGN | OP_ATAN | OP_ATAN2 | OP_ATANH | OP_CALL | OP_CEIL | OP_CONST | OP_CONSTPOW | OP_COPYSIGN | OP_COS | OP_COSH | OP_DETERMINANT | OP_DIV | OP_EQ | OP_ERF | OP_ERFINV | OP_EXP | OP_FABS | OP_FLOOR | OP_FMAX | OP_FMIN | OP_GETNONZEROS | OP_HORZCAT | OP_HORZSPLIT | OP_IF_ELSE_ZERO | OP_INNER_PROD | OP_INPUT | OP_INV | OP_INVERSE | OP_LE | OP_LIFT | OP_LOG | OP_LT | OP_MATMUL | OP_MUL | OP_NE | OP_NEG | OP_NORM1 | OP_NORM2 | OP_NORMF | OP_NORMINF | OP_NOT | OP_OR | OP_OUTPUT | OP_PARAMETER | OP_POW | OP_PRINTME | OP_RESHAPE | OP_SETNONZEROS | OP_SET_SPARSE | OP_SIGN | OP_SIN | OP_SINH | OP_SOLVE | OP_SQ | OP_SQRT | OP_SUB | OP_SUBASSIGN | OP_SUBREF | OP_TAN | OP_TANH | OP_TRANSPOSE | OP_TWICE | OP_VERTCAT | OP_VERTSPLIT deriving (Show, Eq) instance Enum Operation where fromEnum (NUM_BUILT_IN_OPS) = 73 fromEnum (OP_ACOS) = 17 fromEnum (OP_ACOSH) = 40 fromEnum (OP_ADD) = 1 fromEnum (OP_ADDNONZEROS) = 62 fromEnum (OP_AND) = 24 fromEnum (OP_ASIN) = 16 fromEnum (OP_ASINH) = 39 fromEnum (OP_ASSERTION) = 65 fromEnum (OP_ASSIGN) = 0 fromEnum (OP_ATAN) = 18 fromEnum (OP_ATAN2) = 42 fromEnum (OP_ATANH) = 41 fromEnum (OP_CALL) = 47 fromEnum (OP_CEIL) = 27 fromEnum (OP_CONST) = 43 fromEnum (OP_CONSTPOW) = 9 fromEnum (OP_COPYSIGN) = 30 fromEnum (OP_COS) = 14 fromEnum (OP_COSH) = 37 fromEnum (OP_DETERMINANT) = 51 fromEnum (OP_DIV) = 4 fromEnum (OP_EQ) = 21 fromEnum (OP_ERF) = 32 fromEnum (OP_ERFINV) = 70 fromEnum (OP_EXP) = 6 fromEnum (OP_FABS) = 28 fromEnum (OP_FLOOR) = 26 fromEnum (OP_FMAX) = 34 fromEnum (OP_FMIN) = 33 fromEnum (OP_GETNONZEROS) = 61 fromEnum (OP_HORZCAT) = 54 fromEnum (OP_HORZSPLIT) = 56 fromEnum (OP_IF_ELSE_ZERO) = 31 fromEnum (OP_INNER_PROD) = 53 fromEnum (OP_INPUT) = 44 fromEnum (OP_INV) = 35 fromEnum (OP_INVERSE) = 52 fromEnum (OP_LE) = 20 fromEnum (OP_LIFT) = 72 fromEnum (OP_LOG) = 7 fromEnum (OP_LT) = 19 fromEnum (OP_MATMUL) = 48 fromEnum (OP_MUL) = 3 fromEnum (OP_NE) = 22 fromEnum (OP_NEG) = 5 fromEnum (OP_NORM1) = 67 fromEnum (OP_NORM2) = 66 fromEnum (OP_NORMF) = 69 fromEnum (OP_NORMINF) = 68 fromEnum (OP_NOT) = 23 fromEnum (OP_OR) = 25 fromEnum (OP_OUTPUT) = 45 fromEnum (OP_PARAMETER) = 46 fromEnum (OP_POW) = 8 fromEnum (OP_PRINTME) = 71 fromEnum (OP_RESHAPE) = 58 fromEnum (OP_SETNONZEROS) = 63 fromEnum (OP_SET_SPARSE) = 64 fromEnum (OP_SIGN) = 29 fromEnum (OP_SIN) = 13 fromEnum (OP_SINH) = 36 fromEnum (OP_SOLVE) = 49 fromEnum (OP_SQ) = 11 fromEnum (OP_SQRT) = 10 fromEnum (OP_SUB) = 2 fromEnum (OP_SUBASSIGN) = 60 fromEnum (OP_SUBREF) = 59 fromEnum (OP_TAN) = 15 fromEnum (OP_TANH) = 38 fromEnum (OP_TRANSPOSE) = 50 fromEnum (OP_TWICE) = 12 fromEnum (OP_VERTCAT) = 55 fromEnum (OP_VERTSPLIT) = 57 toEnum (73) = NUM_BUILT_IN_OPS toEnum (17) = OP_ACOS toEnum (40) = OP_ACOSH toEnum (1) = OP_ADD toEnum (62) = OP_ADDNONZEROS toEnum (24) = OP_AND toEnum (16) = OP_ASIN toEnum (39) = OP_ASINH toEnum (65) = OP_ASSERTION toEnum (0) = OP_ASSIGN toEnum (18) = OP_ATAN toEnum (42) = OP_ATAN2 toEnum (41) = OP_ATANH toEnum (47) = OP_CALL toEnum (27) = OP_CEIL toEnum (43) = OP_CONST toEnum (9) = OP_CONSTPOW toEnum (30) = OP_COPYSIGN toEnum (14) = OP_COS toEnum (37) = OP_COSH toEnum (51) = OP_DETERMINANT toEnum (4) = OP_DIV toEnum (21) = OP_EQ toEnum (32) = OP_ERF toEnum (70) = OP_ERFINV toEnum (6) = OP_EXP toEnum (28) = OP_FABS toEnum (26) = OP_FLOOR toEnum (34) = OP_FMAX toEnum (33) = OP_FMIN toEnum (61) = OP_GETNONZEROS toEnum (54) = OP_HORZCAT toEnum (56) = OP_HORZSPLIT toEnum (31) = OP_IF_ELSE_ZERO toEnum (53) = OP_INNER_PROD toEnum (44) = OP_INPUT toEnum (35) = OP_INV toEnum (52) = OP_INVERSE toEnum (20) = OP_LE toEnum (72) = OP_LIFT toEnum (7) = OP_LOG toEnum (19) = OP_LT toEnum (48) = OP_MATMUL toEnum (3) = OP_MUL toEnum (22) = OP_NE toEnum (5) = OP_NEG toEnum (67) = OP_NORM1 toEnum (66) = OP_NORM2 toEnum (69) = OP_NORMF toEnum (68) = OP_NORMINF toEnum (23) = OP_NOT toEnum (25) = OP_OR toEnum (45) = OP_OUTPUT toEnum (46) = OP_PARAMETER toEnum (8) = OP_POW toEnum (71) = OP_PRINTME toEnum (58) = OP_RESHAPE toEnum (63) = OP_SETNONZEROS toEnum (64) = OP_SET_SPARSE toEnum (29) = OP_SIGN toEnum (13) = OP_SIN toEnum (36) = OP_SINH toEnum (49) = OP_SOLVE toEnum (11) = OP_SQ toEnum (10) = OP_SQRT toEnum (2) = OP_SUB toEnum (60) = OP_SUBASSIGN toEnum (59) = OP_SUBREF toEnum (15) = OP_TAN toEnum (38) = OP_TANH toEnum (50) = OP_TRANSPOSE toEnum (12) = OP_TWICE toEnum (55) = OP_VERTCAT toEnum (57) = OP_VERTSPLIT toEnum k = error $ "Operation: toEnum: got unhandled number: " ++ show k instance Marshal Operation CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt Operation where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: QCQPSolverInput data QCQPSolverInput = QCQP_SOLVER_A | QCQP_SOLVER_G | QCQP_SOLVER_H | QCQP_SOLVER_LAM_X0 | QCQP_SOLVER_LBA | QCQP_SOLVER_LBX | QCQP_SOLVER_NUM_IN | QCQP_SOLVER_P | QCQP_SOLVER_Q | QCQP_SOLVER_R | QCQP_SOLVER_UBA | QCQP_SOLVER_UBX | QCQP_SOLVER_X0 deriving (Show, Eq) instance Enum QCQPSolverInput where fromEnum (QCQP_SOLVER_A) = 5 fromEnum (QCQP_SOLVER_G) = 1 fromEnum (QCQP_SOLVER_H) = 0 fromEnum (QCQP_SOLVER_LAM_X0) = 11 fromEnum (QCQP_SOLVER_LBA) = 6 fromEnum (QCQP_SOLVER_LBX) = 8 fromEnum (QCQP_SOLVER_NUM_IN) = 12 fromEnum (QCQP_SOLVER_P) = 2 fromEnum (QCQP_SOLVER_Q) = 3 fromEnum (QCQP_SOLVER_R) = 4 fromEnum (QCQP_SOLVER_UBA) = 7 fromEnum (QCQP_SOLVER_UBX) = 9 fromEnum (QCQP_SOLVER_X0) = 10 toEnum (5) = QCQP_SOLVER_A toEnum (1) = QCQP_SOLVER_G toEnum (0) = QCQP_SOLVER_H toEnum (11) = QCQP_SOLVER_LAM_X0 toEnum (6) = QCQP_SOLVER_LBA toEnum (8) = QCQP_SOLVER_LBX toEnum (12) = QCQP_SOLVER_NUM_IN toEnum (2) = QCQP_SOLVER_P toEnum (3) = QCQP_SOLVER_Q toEnum (4) = QCQP_SOLVER_R toEnum (7) = QCQP_SOLVER_UBA toEnum (9) = QCQP_SOLVER_UBX toEnum (10) = QCQP_SOLVER_X0 toEnum k = error $ "QCQPSolverInput: toEnum: got unhandled number: " ++ show k instance Marshal QCQPSolverInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt QCQPSolverInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: QCQPSolverOutput data QCQPSolverOutput = QCQP_SOLVER_COST | QCQP_SOLVER_LAM_A | QCQP_SOLVER_LAM_X | QCQP_SOLVER_NUM_OUT | QCQP_SOLVER_X deriving (Show, Eq) instance Enum QCQPSolverOutput where fromEnum (QCQP_SOLVER_COST) = 1 fromEnum (QCQP_SOLVER_LAM_A) = 2 fromEnum (QCQP_SOLVER_LAM_X) = 3 fromEnum (QCQP_SOLVER_NUM_OUT) = 4 fromEnum (QCQP_SOLVER_X) = 0 toEnum (1) = QCQP_SOLVER_COST toEnum (2) = QCQP_SOLVER_LAM_A toEnum (3) = QCQP_SOLVER_LAM_X toEnum (4) = QCQP_SOLVER_NUM_OUT toEnum (0) = QCQP_SOLVER_X toEnum k = error $ "QCQPSolverOutput: toEnum: got unhandled number: " ++ show k instance Marshal QCQPSolverOutput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt QCQPSolverOutput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: QCQPStruct data QCQPStruct = QCQP_STRUCT_A | QCQP_STRUCT_H | QCQP_STRUCT_NUM | QCQP_STRUCT_P deriving (Show, Eq) instance Enum QCQPStruct where fromEnum (QCQP_STRUCT_A) = 2 fromEnum (QCQP_STRUCT_H) = 0 fromEnum (QCQP_STRUCT_NUM) = 3 fromEnum (QCQP_STRUCT_P) = 1 toEnum (2) = QCQP_STRUCT_A toEnum (0) = QCQP_STRUCT_H toEnum (3) = QCQP_STRUCT_NUM toEnum (1) = QCQP_STRUCT_P toEnum k = error $ "QCQPStruct: toEnum: got unhandled number: " ++ show k instance Marshal QCQPStruct CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt QCQPStruct where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: QPSolverInput data QPSolverInput = QP_SOLVER_A | QP_SOLVER_G | QP_SOLVER_H | QP_SOLVER_LAM_X0 | QP_SOLVER_LBA | QP_SOLVER_LBX | QP_SOLVER_NUM_IN | QP_SOLVER_UBA | QP_SOLVER_UBX | QP_SOLVER_X0 deriving (Show, Eq) instance Enum QPSolverInput where fromEnum (QP_SOLVER_A) = 2 fromEnum (QP_SOLVER_G) = 1 fromEnum (QP_SOLVER_H) = 0 fromEnum (QP_SOLVER_LAM_X0) = 8 fromEnum (QP_SOLVER_LBA) = 3 fromEnum (QP_SOLVER_LBX) = 5 fromEnum (QP_SOLVER_NUM_IN) = 9 fromEnum (QP_SOLVER_UBA) = 4 fromEnum (QP_SOLVER_UBX) = 6 fromEnum (QP_SOLVER_X0) = 7 toEnum (2) = QP_SOLVER_A toEnum (1) = QP_SOLVER_G toEnum (0) = QP_SOLVER_H toEnum (8) = QP_SOLVER_LAM_X0 toEnum (3) = QP_SOLVER_LBA toEnum (5) = QP_SOLVER_LBX toEnum (9) = QP_SOLVER_NUM_IN toEnum (4) = QP_SOLVER_UBA toEnum (6) = QP_SOLVER_UBX toEnum (7) = QP_SOLVER_X0 toEnum k = error $ "QPSolverInput: toEnum: got unhandled number: " ++ show k instance Marshal QPSolverInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt QPSolverInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: QPSolverOutput data QPSolverOutput = QP_SOLVER_COST | QP_SOLVER_LAM_A | QP_SOLVER_LAM_X | QP_SOLVER_NUM_OUT | QP_SOLVER_X deriving (Show, Eq) instance Enum QPSolverOutput where fromEnum (QP_SOLVER_COST) = 1 fromEnum (QP_SOLVER_LAM_A) = 2 fromEnum (QP_SOLVER_LAM_X) = 3 fromEnum (QP_SOLVER_NUM_OUT) = 4 fromEnum (QP_SOLVER_X) = 0 toEnum (1) = QP_SOLVER_COST toEnum (2) = QP_SOLVER_LAM_A toEnum (3) = QP_SOLVER_LAM_X toEnum (4) = QP_SOLVER_NUM_OUT toEnum (0) = QP_SOLVER_X toEnum k = error $ "QPSolverOutput: toEnum: got unhandled number: " ++ show k instance Marshal QPSolverOutput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt QPSolverOutput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: QPStruct data QPStruct = QP_STRUCT_A | QP_STRUCT_H | QP_STRUCT_NUM deriving (Show, Eq) instance Enum QPStruct where fromEnum (QP_STRUCT_A) = 1 fromEnum (QP_STRUCT_H) = 0 fromEnum (QP_STRUCT_NUM) = 2 toEnum (1) = QP_STRUCT_A toEnum (0) = QP_STRUCT_H toEnum (2) = QP_STRUCT_NUM toEnum k = error $ "QPStruct: toEnum: got unhandled number: " ++ show k instance Marshal QPStruct CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt QPStruct where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: RDAEInput data RDAEInput = RDAE_NUM_IN | RDAE_P | RDAE_RP | RDAE_RX | RDAE_RZ | RDAE_T | RDAE_X | RDAE_Z deriving (Show, Eq) instance Enum RDAEInput where fromEnum (RDAE_NUM_IN) = 7 fromEnum (RDAE_P) = 5 fromEnum (RDAE_RP) = 2 fromEnum (RDAE_RX) = 0 fromEnum (RDAE_RZ) = 1 fromEnum (RDAE_T) = 6 fromEnum (RDAE_X) = 3 fromEnum (RDAE_Z) = 4 toEnum (7) = RDAE_NUM_IN toEnum (5) = RDAE_P toEnum (2) = RDAE_RP toEnum (0) = RDAE_RX toEnum (1) = RDAE_RZ toEnum (6) = RDAE_T toEnum (3) = RDAE_X toEnum (4) = RDAE_Z toEnum k = error $ "RDAEInput: toEnum: got unhandled number: " ++ show k instance Marshal RDAEInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt RDAEInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: RDAEOutput data RDAEOutput = RDAE_ALG | RDAE_NUM_OUT | RDAE_ODE | RDAE_QUAD deriving (Show, Eq) instance Enum RDAEOutput where fromEnum (RDAE_ALG) = 1 fromEnum (RDAE_NUM_OUT) = 3 fromEnum (RDAE_ODE) = 0 fromEnum (RDAE_QUAD) = 2 toEnum (1) = RDAE_ALG toEnum (3) = RDAE_NUM_OUT toEnum (0) = RDAE_ODE toEnum (2) = RDAE_QUAD toEnum k = error $ "RDAEOutput: toEnum: got unhandled number: " ++ show k instance Marshal RDAEOutput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt RDAEOutput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: SDPInput data SDPInput = SDP_SOLVER_A | SDP_SOLVER_C | SDP_SOLVER_F | SDP_SOLVER_G | SDP_SOLVER_LBA | SDP_SOLVER_LBX | SDP_SOLVER_NUM_IN | SDP_SOLVER_UBA | SDP_SOLVER_UBX deriving (Show, Eq) instance Enum SDPInput where fromEnum (SDP_SOLVER_A) = 3 fromEnum (SDP_SOLVER_C) = 1 fromEnum (SDP_SOLVER_F) = 0 fromEnum (SDP_SOLVER_G) = 2 fromEnum (SDP_SOLVER_LBA) = 4 fromEnum (SDP_SOLVER_LBX) = 6 fromEnum (SDP_SOLVER_NUM_IN) = 8 fromEnum (SDP_SOLVER_UBA) = 5 fromEnum (SDP_SOLVER_UBX) = 7 toEnum (3) = SDP_SOLVER_A toEnum (1) = SDP_SOLVER_C toEnum (0) = SDP_SOLVER_F toEnum (2) = SDP_SOLVER_G toEnum (4) = SDP_SOLVER_LBA toEnum (6) = SDP_SOLVER_LBX toEnum (8) = SDP_SOLVER_NUM_IN toEnum (5) = SDP_SOLVER_UBA toEnum (7) = SDP_SOLVER_UBX toEnum k = error $ "SDPInput: toEnum: got unhandled number: " ++ show k instance Marshal SDPInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt SDPInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: SDPOutput data SDPOutput = SDP_SOLVER_COST | SDP_SOLVER_DUAL | SDP_SOLVER_DUAL_COST | SDP_SOLVER_LAM_A | SDP_SOLVER_LAM_X | SDP_SOLVER_NUM_OUT | SDP_SOLVER_P | SDP_SOLVER_X deriving (Show, Eq) instance Enum SDPOutput where fromEnum (SDP_SOLVER_COST) = 3 fromEnum (SDP_SOLVER_DUAL) = 2 fromEnum (SDP_SOLVER_DUAL_COST) = 4 fromEnum (SDP_SOLVER_LAM_A) = 5 fromEnum (SDP_SOLVER_LAM_X) = 6 fromEnum (SDP_SOLVER_NUM_OUT) = 7 fromEnum (SDP_SOLVER_P) = 1 fromEnum (SDP_SOLVER_X) = 0 toEnum (3) = SDP_SOLVER_COST toEnum (2) = SDP_SOLVER_DUAL toEnum (4) = SDP_SOLVER_DUAL_COST toEnum (5) = SDP_SOLVER_LAM_A toEnum (6) = SDP_SOLVER_LAM_X toEnum (7) = SDP_SOLVER_NUM_OUT toEnum (1) = SDP_SOLVER_P toEnum (0) = SDP_SOLVER_X toEnum k = error $ "SDPOutput: toEnum: got unhandled number: " ++ show k instance Marshal SDPOutput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt SDPOutput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: SDPStruct data SDPStruct = SDP_STRUCT_A | SDP_STRUCT_F | SDP_STRUCT_G | SDP_STRUCT_NUM deriving (Show, Eq) instance Enum SDPStruct where fromEnum (SDP_STRUCT_A) = 2 fromEnum (SDP_STRUCT_F) = 0 fromEnum (SDP_STRUCT_G) = 1 fromEnum (SDP_STRUCT_NUM) = 3 toEnum (2) = SDP_STRUCT_A toEnum (0) = SDP_STRUCT_F toEnum (1) = SDP_STRUCT_G toEnum (3) = SDP_STRUCT_NUM toEnum k = error $ "SDPStruct: toEnum: got unhandled number: " ++ show k instance Marshal SDPStruct CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt SDPStruct where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: SDQPInput data SDQPInput = SDQP_SOLVER_A | SDQP_SOLVER_C | SDQP_SOLVER_F | SDQP_SOLVER_G | SDQP_SOLVER_H | SDQP_SOLVER_LBA | SDQP_SOLVER_LBX | SDQP_SOLVER_NUM_IN | SDQP_SOLVER_UBA | SDQP_SOLVER_UBX deriving (Show, Eq) instance Enum SDQPInput where fromEnum (SDQP_SOLVER_A) = 4 fromEnum (SDQP_SOLVER_C) = 1 fromEnum (SDQP_SOLVER_F) = 2 fromEnum (SDQP_SOLVER_G) = 3 fromEnum (SDQP_SOLVER_H) = 0 fromEnum (SDQP_SOLVER_LBA) = 5 fromEnum (SDQP_SOLVER_LBX) = 7 fromEnum (SDQP_SOLVER_NUM_IN) = 9 fromEnum (SDQP_SOLVER_UBA) = 6 fromEnum (SDQP_SOLVER_UBX) = 8 toEnum (4) = SDQP_SOLVER_A toEnum (1) = SDQP_SOLVER_C toEnum (2) = SDQP_SOLVER_F toEnum (3) = SDQP_SOLVER_G toEnum (0) = SDQP_SOLVER_H toEnum (5) = SDQP_SOLVER_LBA toEnum (7) = SDQP_SOLVER_LBX toEnum (9) = SDQP_SOLVER_NUM_IN toEnum (6) = SDQP_SOLVER_UBA toEnum (8) = SDQP_SOLVER_UBX toEnum k = error $ "SDQPInput: toEnum: got unhandled number: " ++ show k instance Marshal SDQPInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt SDQPInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: SDQPOutput data SDQPOutput = SDQP_SOLVER_COST | SDQP_SOLVER_DUAL | SDQP_SOLVER_DUAL_COST | SDQP_SOLVER_LAM_A | SDQP_SOLVER_LAM_X | SDQP_SOLVER_NUM_OUT | SDQP_SOLVER_P | SDQP_SOLVER_X deriving (Show, Eq) instance Enum SDQPOutput where fromEnum (SDQP_SOLVER_COST) = 3 fromEnum (SDQP_SOLVER_DUAL) = 2 fromEnum (SDQP_SOLVER_DUAL_COST) = 4 fromEnum (SDQP_SOLVER_LAM_A) = 5 fromEnum (SDQP_SOLVER_LAM_X) = 6 fromEnum (SDQP_SOLVER_NUM_OUT) = 7 fromEnum (SDQP_SOLVER_P) = 1 fromEnum (SDQP_SOLVER_X) = 0 toEnum (3) = SDQP_SOLVER_COST toEnum (2) = SDQP_SOLVER_DUAL toEnum (4) = SDQP_SOLVER_DUAL_COST toEnum (5) = SDQP_SOLVER_LAM_A toEnum (6) = SDQP_SOLVER_LAM_X toEnum (7) = SDQP_SOLVER_NUM_OUT toEnum (1) = SDQP_SOLVER_P toEnum (0) = SDQP_SOLVER_X toEnum k = error $ "SDQPOutput: toEnum: got unhandled number: " ++ show k instance Marshal SDQPOutput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt SDQPOutput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: SDQPStruct data SDQPStruct = SDQP_STRUCT_A | SDQP_STRUCT_F | SDQP_STRUCT_G | SDQP_STRUCT_H | SDQP_STRUCT_NUM deriving (Show, Eq) instance Enum SDQPStruct where fromEnum (SDQP_STRUCT_A) = 3 fromEnum (SDQP_STRUCT_F) = 1 fromEnum (SDQP_STRUCT_G) = 2 fromEnum (SDQP_STRUCT_H) = 0 fromEnum (SDQP_STRUCT_NUM) = 4 toEnum (3) = SDQP_STRUCT_A toEnum (1) = SDQP_STRUCT_F toEnum (2) = SDQP_STRUCT_G toEnum (0) = SDQP_STRUCT_H toEnum (4) = SDQP_STRUCT_NUM toEnum k = error $ "SDQPStruct: toEnum: got unhandled number: " ++ show k instance Marshal SDQPStruct CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt SDQPStruct where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: SOCPInput data SOCPInput = SOCP_SOLVER_A | SOCP_SOLVER_C | SOCP_SOLVER_E | SOCP_SOLVER_F | SOCP_SOLVER_G | SOCP_SOLVER_H | SOCP_SOLVER_LBA | SOCP_SOLVER_LBX | SOCP_SOLVER_NUM_IN | SOCP_SOLVER_UBA | SOCP_SOLVER_UBX deriving (Show, Eq) instance Enum SOCPInput where fromEnum (SOCP_SOLVER_A) = 5 fromEnum (SOCP_SOLVER_C) = 4 fromEnum (SOCP_SOLVER_E) = 2 fromEnum (SOCP_SOLVER_F) = 3 fromEnum (SOCP_SOLVER_G) = 0 fromEnum (SOCP_SOLVER_H) = 1 fromEnum (SOCP_SOLVER_LBA) = 6 fromEnum (SOCP_SOLVER_LBX) = 8 fromEnum (SOCP_SOLVER_NUM_IN) = 10 fromEnum (SOCP_SOLVER_UBA) = 7 fromEnum (SOCP_SOLVER_UBX) = 9 toEnum (5) = SOCP_SOLVER_A toEnum (4) = SOCP_SOLVER_C toEnum (2) = SOCP_SOLVER_E toEnum (3) = SOCP_SOLVER_F toEnum (0) = SOCP_SOLVER_G toEnum (1) = SOCP_SOLVER_H toEnum (6) = SOCP_SOLVER_LBA toEnum (8) = SOCP_SOLVER_LBX toEnum (10) = SOCP_SOLVER_NUM_IN toEnum (7) = SOCP_SOLVER_UBA toEnum (9) = SOCP_SOLVER_UBX toEnum k = error $ "SOCPInput: toEnum: got unhandled number: " ++ show k instance Marshal SOCPInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt SOCPInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: SOCPOutput data SOCPOutput = SOCP_SOLVER_COST | SOCP_SOLVER_LAM_A | SOCP_SOLVER_LAM_X | SOCP_SOLVER_NUM_OUT | SOCP_SOLVER_X deriving (Show, Eq) instance Enum SOCPOutput where fromEnum (SOCP_SOLVER_COST) = 1 fromEnum (SOCP_SOLVER_LAM_A) = 2 fromEnum (SOCP_SOLVER_LAM_X) = 3 fromEnum (SOCP_SOLVER_NUM_OUT) = 4 fromEnum (SOCP_SOLVER_X) = 0 toEnum (1) = SOCP_SOLVER_COST toEnum (2) = SOCP_SOLVER_LAM_A toEnum (3) = SOCP_SOLVER_LAM_X toEnum (4) = SOCP_SOLVER_NUM_OUT toEnum (0) = SOCP_SOLVER_X toEnum k = error $ "SOCPOutput: toEnum: got unhandled number: " ++ show k instance Marshal SOCPOutput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt SOCPOutput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: SOCPStruct data SOCPStruct = SOCP_STRUCT_A | SOCP_STRUCT_G | SOCP_STRUCT_NUM deriving (Show, Eq) instance Enum SOCPStruct where fromEnum (SOCP_STRUCT_A) = 1 fromEnum (SOCP_STRUCT_G) = 0 fromEnum (SOCP_STRUCT_NUM) = 2 toEnum (1) = SOCP_STRUCT_A toEnum (0) = SOCP_STRUCT_G toEnum (2) = SOCP_STRUCT_NUM toEnum k = error $ "SOCPStruct: toEnum: got unhandled number: " ++ show k instance Marshal SOCPStruct CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt SOCPStruct where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: SparsityType data SparsityType = DENSE | DENSESYM | DENSETRANS | SPARSE | SPARSESYM deriving (Show, Eq) instance Enum SparsityType where fromEnum (DENSE) = 2 fromEnum (DENSESYM) = 3 fromEnum (DENSETRANS) = 4 fromEnum (SPARSE) = 0 fromEnum (SPARSESYM) = 1 toEnum (2) = DENSE toEnum (3) = DENSESYM toEnum (4) = DENSETRANS toEnum (0) = SPARSE toEnum (1) = SPARSESYM toEnum k = error $ "SparsityType: toEnum: got unhandled number: " ++ show k instance Marshal SparsityType CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt SparsityType where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: StabilizedQPSolverInput data StabilizedQPSolverInput = STABILIZED_QP_SOLVER_A | STABILIZED_QP_SOLVER_G | STABILIZED_QP_SOLVER_H | STABILIZED_QP_SOLVER_LAM_X0 | STABILIZED_QP_SOLVER_LBA | STABILIZED_QP_SOLVER_LBX | STABILIZED_QP_SOLVER_MU | STABILIZED_QP_SOLVER_MUE | STABILIZED_QP_SOLVER_MUR | STABILIZED_QP_SOLVER_NUM_IN | STABILIZED_QP_SOLVER_UBA | STABILIZED_QP_SOLVER_UBX | STABILIZED_QP_SOLVER_X0 deriving (Show, Eq) instance Enum StabilizedQPSolverInput where fromEnum (STABILIZED_QP_SOLVER_A) = 2 fromEnum (STABILIZED_QP_SOLVER_G) = 1 fromEnum (STABILIZED_QP_SOLVER_H) = 0 fromEnum (STABILIZED_QP_SOLVER_LAM_X0) = 8 fromEnum (STABILIZED_QP_SOLVER_LBA) = 3 fromEnum (STABILIZED_QP_SOLVER_LBX) = 5 fromEnum (STABILIZED_QP_SOLVER_MU) = 11 fromEnum (STABILIZED_QP_SOLVER_MUE) = 10 fromEnum (STABILIZED_QP_SOLVER_MUR) = 9 fromEnum (STABILIZED_QP_SOLVER_NUM_IN) = 12 fromEnum (STABILIZED_QP_SOLVER_UBA) = 4 fromEnum (STABILIZED_QP_SOLVER_UBX) = 6 fromEnum (STABILIZED_QP_SOLVER_X0) = 7 toEnum (2) = STABILIZED_QP_SOLVER_A toEnum (1) = STABILIZED_QP_SOLVER_G toEnum (0) = STABILIZED_QP_SOLVER_H toEnum (8) = STABILIZED_QP_SOLVER_LAM_X0 toEnum (3) = STABILIZED_QP_SOLVER_LBA toEnum (5) = STABILIZED_QP_SOLVER_LBX toEnum (11) = STABILIZED_QP_SOLVER_MU toEnum (10) = STABILIZED_QP_SOLVER_MUE toEnum (9) = STABILIZED_QP_SOLVER_MUR toEnum (12) = STABILIZED_QP_SOLVER_NUM_IN toEnum (4) = STABILIZED_QP_SOLVER_UBA toEnum (6) = STABILIZED_QP_SOLVER_UBX toEnum (7) = STABILIZED_QP_SOLVER_X0 toEnum k = error $ "StabilizedQPSolverInput: toEnum: got unhandled number: " ++ show k instance Marshal StabilizedQPSolverInput CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt StabilizedQPSolverInput where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: Type data Type = INT | IVECTOR | NILL | SLICE deriving (Show, Eq) instance Enum Type where fromEnum (INT) = 1 fromEnum (IVECTOR) = 3 fromEnum (NILL) = 0 fromEnum (SLICE) = 2 toEnum (1) = INT toEnum (3) = IVECTOR toEnum (0) = NILL toEnum (2) = SLICE toEnum k = error $ "Type: toEnum: got unhandled number: " ++ show k instance Marshal Type CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt Type where wrapReturn = return . toEnum . fromIntegral -- EnumDecl: opt_type data Opt_type = OT_BOOLEAN | OT_BOOLVECTOR | OT_CALLBACK | OT_DERIVATIVEGENERATOR | OT_DICTIONARY | OT_FUNCTION | OT_IMPLICITFUNCTION | OT_INTEGER | OT_INTEGERVECTOR | OT_INTEGRATOR | OT_LINEARSOLVER | OT_LPSOLVER | OT_NLPSOLVER | OT_QCQPSOLVER | OT_QPSOLVER | OT_REAL | OT_REALVECTOR | OT_SDPSOLVER | OT_SDQPSOLVER | OT_SOCPSOLVER | OT_STABILIZEDQPSOLVER | OT_STRING | OT_STRINGVECTOR | OT_UNKNOWN | OT_VOIDPTR deriving (Show, Eq) instance Enum Opt_type where fromEnum (OT_BOOLEAN) = 0 fromEnum (OT_BOOLVECTOR) = 5 fromEnum (OT_CALLBACK) = 22 fromEnum (OT_DERIVATIVEGENERATOR) = 20 fromEnum (OT_DICTIONARY) = 8 fromEnum (OT_FUNCTION) = 21 fromEnum (OT_IMPLICITFUNCTION) = 19 fromEnum (OT_INTEGER) = 1 fromEnum (OT_INTEGERVECTOR) = 4 fromEnum (OT_INTEGRATOR) = 12 fromEnum (OT_LINEARSOLVER) = 11 fromEnum (OT_LPSOLVER) = 10 fromEnum (OT_NLPSOLVER) = 9 fromEnum (OT_QCQPSOLVER) = 16 fromEnum (OT_QPSOLVER) = 13 fromEnum (OT_REAL) = 2 fromEnum (OT_REALVECTOR) = 6 fromEnum (OT_SDPSOLVER) = 17 fromEnum (OT_SDQPSOLVER) = 18 fromEnum (OT_SOCPSOLVER) = 15 fromEnum (OT_STABILIZEDQPSOLVER) = 14 fromEnum (OT_STRING) = 3 fromEnum (OT_STRINGVECTOR) = 7 fromEnum (OT_UNKNOWN) = 24 fromEnum (OT_VOIDPTR) = 23 toEnum (0) = OT_BOOLEAN toEnum (5) = OT_BOOLVECTOR toEnum (22) = OT_CALLBACK toEnum (20) = OT_DERIVATIVEGENERATOR toEnum (8) = OT_DICTIONARY toEnum (21) = OT_FUNCTION toEnum (19) = OT_IMPLICITFUNCTION toEnum (1) = OT_INTEGER toEnum (4) = OT_INTEGERVECTOR toEnum (12) = OT_INTEGRATOR toEnum (11) = OT_LINEARSOLVER toEnum (10) = OT_LPSOLVER toEnum (9) = OT_NLPSOLVER toEnum (16) = OT_QCQPSOLVER toEnum (13) = OT_QPSOLVER toEnum (2) = OT_REAL toEnum (6) = OT_REALVECTOR toEnum (17) = OT_SDPSOLVER toEnum (18) = OT_SDQPSOLVER toEnum (15) = OT_SOCPSOLVER toEnum (14) = OT_STABILIZEDQPSOLVER toEnum (3) = OT_STRING toEnum (7) = OT_STRINGVECTOR toEnum (24) = OT_UNKNOWN toEnum (23) = OT_VOIDPTR toEnum k = error $ "Opt_type: toEnum: got unhandled number: " ++ show k instance Marshal Opt_type CInt where marshal = return . fromIntegral . fromEnum instance WrapReturn CInt Opt_type where wrapReturn = return . toEnum . fromIntegral