{-# OPTIONS_GHC -Wall #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} {-# OPTIONS_GHC -fno-warn-orphans #-} {-# Language ForeignFunctionInterface #-} {-# Language FlexibleInstances #-} {-# Language MultiParamTypeClasses #-} module Casadi.Core.Classes.MX ( MX, MXClass(..), mx_T, mx__0, mx__1, mx__2, mx__3, mx__4, mx__5, mx__6, mx__7, mx___nonzero__, mx_attachAssert__0, mx_attachAssert__1, mx_binary, mx_colind, mx_columns, mx_dep__0, mx_dep__1, mx_dim__0, mx_dim__1, mx_einstein__0, mx_einstein__1, mx_enlarge__0, mx_enlarge__1, mx_erase__0, mx_erase__1, mx_erase__2, mx_erase__3, mx_eye, mx_get__0, mx_get__1, mx_get__2, mx_get__3, mx_get__4, mx_get__5, mx_get__6, mx_get_colind, mx_get_free, mx_get_input, mx_get_max_depth, mx_get_nz__0, mx_get_nz__1, mx_get_output, mx_get_row, mx_get_sparsity, mx_get_temp, mx_has_duplicates, mx_inf__0, mx_inf__1, mx_inf__2, mx_inf__3, mx_inf__4, mx_info, mx_is_binary, mx_is_call, mx_is_column, mx_is_commutative, mx_is_constant, mx_is_dense, mx_is_empty__0, mx_is_empty__1, mx_is_eye, mx_is_minus_one, mx_is_multiplication, mx_is_norm, mx_is_one, mx_is_op, mx_is_output, mx_is_regular, mx_is_row, mx_is_scalar__0, mx_is_scalar__1, mx_is_square, mx_is_symbolic, mx_is_transpose, mx_is_tril, mx_is_triu, mx_is_unary, mx_is_valid_input, mx_is_vector, mx_is_zero, mx_join_primitives, mx_mapping, mx_monitor, mx_n_dep, mx_n_out, mx_n_primitives, mx_name, mx_nan__0, mx_nan__1, mx_nan__2, mx_nan__3, mx_nan__4, mx_nnz, mx_nnz_diag, mx_nnz_lower, mx_nnz_upper, mx_numel, mx_ones__0, mx_ones__1, mx_ones__2, mx_ones__3, mx_ones__4, mx_op, mx_operator__minus, mx_operator_casadi__Matrix_double_, mx_operator_double, mx_primitives, mx_printme, mx_reset_input, mx_row, mx_rows, mx_set__0, mx_set__1, mx_set__2, mx_set__3, mx_set__4, mx_set__5, mx_set__6, mx_set_max_depth__0, mx_set_max_depth__1, mx_set_nz__0, mx_set_nz__1, mx_set_temp, mx_size1, mx_size2, mx_size__0, mx_size__1, mx_sparsity, mx_split_primitives, mx_sym__0, mx_sym__1, mx_sym__2, mx_sym__3, mx_sym__4, mx_sym__5, mx_sym__6, mx_sym__7, mx_sym__8, mx_type_name, mx_unary, mx_which_function, mx_which_output, mx_zeros__0, mx_zeros__1, mx_zeros__2, mx_zeros__3, mx_zeros__4, ) where import Prelude hiding ( Functor ) import Data.Vector ( Vector ) import qualified Data.Map as M import Foreign.C.Types import Foreign.Marshal ( new, free ) import Foreign.Storable ( peek ) import Foreign.Ptr ( Ptr, nullPtr ) import Foreign.ForeignPtr ( newForeignPtr ) import System.IO.Unsafe ( unsafePerformIO ) -- for show instances import Casadi.Internal.FormatException ( formatException ) import Casadi.Internal.MarshalTypes ( StdVec, StdString, StdMap, StdPair ) -- StdPair StdOstream' import Casadi.Internal.Marshal ( Marshal(..), marshal, marshalFree ) import Casadi.Internal.WrapReturn ( WrapReturn(..) ) import Casadi.Core.Data import Casadi.Core.Enums -- direct wrapper foreign import ccall unsafe "casadi__MX__CONSTRUCTOR__0" c_casadi__MX__CONSTRUCTOR__0 :: Ptr (Ptr StdString) -> Ptr DM' -> IO (Ptr MX') casadi__MX__CONSTRUCTOR__0 :: DM -> IO MX casadi__MX__CONSTRUCTOR__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__CONSTRUCTOR__0 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx__0 :: DM -> IO MX mx__0 = casadi__MX__CONSTRUCTOR__0 -- direct wrapper foreign import ccall unsafe "casadi__MX__CONSTRUCTOR__1" c_casadi__MX__CONSTRUCTOR__1 :: Ptr (Ptr StdString) -> Ptr (StdVec CDouble) -> IO (Ptr MX') casadi__MX__CONSTRUCTOR__1 :: Vector Double -> IO MX casadi__MX__CONSTRUCTOR__1 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__CONSTRUCTOR__1 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx__1 :: Vector Double -> IO MX mx__1 = casadi__MX__CONSTRUCTOR__1 -- direct wrapper foreign import ccall unsafe "casadi__MX__CONSTRUCTOR__2" c_casadi__MX__CONSTRUCTOR__2 :: Ptr (Ptr StdString) -> Ptr MX' -> IO (Ptr MX') casadi__MX__CONSTRUCTOR__2 :: MX -> IO MX casadi__MX__CONSTRUCTOR__2 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__CONSTRUCTOR__2 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx__2 :: MX -> IO MX mx__2 = casadi__MX__CONSTRUCTOR__2 -- direct wrapper foreign import ccall unsafe "casadi__MX__CONSTRUCTOR__3" c_casadi__MX__CONSTRUCTOR__3 :: Ptr (Ptr StdString) -> CDouble -> IO (Ptr MX') casadi__MX__CONSTRUCTOR__3 :: Double -> IO MX casadi__MX__CONSTRUCTOR__3 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__CONSTRUCTOR__3 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx__3 :: Double -> IO MX mx__3 = casadi__MX__CONSTRUCTOR__3 -- direct wrapper foreign import ccall unsafe "casadi__MX__CONSTRUCTOR__4" c_casadi__MX__CONSTRUCTOR__4 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr MX' -> IO (Ptr MX') casadi__MX__CONSTRUCTOR__4 :: Sparsity -> MX -> IO MX casadi__MX__CONSTRUCTOR__4 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__CONSTRUCTOR__4 errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx__4 :: Sparsity -> MX -> IO MX mx__4 = casadi__MX__CONSTRUCTOR__4 -- direct wrapper foreign import ccall unsafe "casadi__MX__CONSTRUCTOR__5" c_casadi__MX__CONSTRUCTOR__5 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr MX') casadi__MX__CONSTRUCTOR__5 :: Sparsity -> IO MX casadi__MX__CONSTRUCTOR__5 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__CONSTRUCTOR__5 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx__5 :: Sparsity -> IO MX mx__5 = casadi__MX__CONSTRUCTOR__5 -- direct wrapper foreign import ccall unsafe "casadi__MX__CONSTRUCTOR__6" c_casadi__MX__CONSTRUCTOR__6 :: Ptr (Ptr StdString) -> CLLong -> CLLong -> IO (Ptr MX') casadi__MX__CONSTRUCTOR__6 :: Int -> Int -> IO MX casadi__MX__CONSTRUCTOR__6 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__CONSTRUCTOR__6 errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx__6 :: Int -> Int -> IO MX mx__6 = casadi__MX__CONSTRUCTOR__6 -- direct wrapper foreign import ccall unsafe "casadi__MX__CONSTRUCTOR__7" c_casadi__MX__CONSTRUCTOR__7 :: Ptr (Ptr StdString) -> IO (Ptr MX') casadi__MX__CONSTRUCTOR__7 :: IO MX casadi__MX__CONSTRUCTOR__7 = do errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__CONSTRUCTOR__7 errStrPtrP errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) return ret -- classy wrapper mx__7 :: IO MX mx__7 = casadi__MX__CONSTRUCTOR__7 -- direct wrapper foreign import ccall unsafe "casadi__MX__T" c_casadi__MX__T :: Ptr (Ptr StdString) -> Ptr MX' -> IO (Ptr MX') casadi__MX__T :: MX -> IO MX casadi__MX__T x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__T errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_T :: MXClass a => a -> IO MX mx_T x = casadi__MX__T (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX____nonzero__" c_casadi__MX____nonzero__ :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX____nonzero__ :: MX -> IO Bool casadi__MX____nonzero__ x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX____nonzero__ errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx___nonzero__ :: MXClass a => a -> IO Bool mx___nonzero__ x = casadi__MX____nonzero__ (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__attachAssert__0" c_casadi__MX__attachAssert__0 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr MX' -> IO (Ptr MX') casadi__MX__attachAssert__0 :: MX -> MX -> IO MX casadi__MX__attachAssert__0 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__attachAssert__0 errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_attachAssert__0 :: MXClass a => a -> MX -> IO MX mx_attachAssert__0 x = casadi__MX__attachAssert__0 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__attachAssert__1" c_casadi__MX__attachAssert__1 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr MX' -> Ptr StdString -> IO (Ptr MX') casadi__MX__attachAssert__1 :: MX -> MX -> String -> IO MX casadi__MX__attachAssert__1 x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__attachAssert__1 errStrPtrP x0' x1' x2' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' return ret -- classy wrapper mx_attachAssert__1 :: MXClass a => a -> MX -> String -> IO MX mx_attachAssert__1 x = casadi__MX__attachAssert__1 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__binary" c_casadi__MX__binary :: Ptr (Ptr StdString) -> CLLong -> Ptr MX' -> Ptr MX' -> IO (Ptr MX') casadi__MX__binary :: Int -> MX -> MX -> IO MX casadi__MX__binary x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__binary errStrPtrP x0' x1' x2' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' return ret -- classy wrapper mx_binary :: Int -> MX -> MX -> IO MX mx_binary = casadi__MX__binary -- direct wrapper foreign import ccall unsafe "casadi__MX__colind" c_casadi__MX__colind :: Ptr (Ptr StdString) -> Ptr MX' -> CLLong -> IO CLLong casadi__MX__colind :: MX -> Int -> IO Int casadi__MX__colind x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__colind errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_colind :: MXClass a => a -> Int -> IO Int mx_colind x = casadi__MX__colind (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__columns" c_casadi__MX__columns :: Ptr (Ptr StdString) -> Ptr MX' -> IO CLLong casadi__MX__columns :: MX -> IO Int casadi__MX__columns x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__columns errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_columns :: MXClass a => a -> IO Int mx_columns x = casadi__MX__columns (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__dep__0" c_casadi__MX__dep__0 :: Ptr (Ptr StdString) -> Ptr MX' -> IO (Ptr MX') casadi__MX__dep__0 :: MX -> IO MX casadi__MX__dep__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__dep__0 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_dep__0 :: MXClass a => a -> IO MX mx_dep__0 x = casadi__MX__dep__0 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__dep__1" c_casadi__MX__dep__1 :: Ptr (Ptr StdString) -> Ptr MX' -> CLLong -> IO (Ptr MX') casadi__MX__dep__1 :: MX -> Int -> IO MX casadi__MX__dep__1 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__dep__1 errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_dep__1 :: MXClass a => a -> Int -> IO MX mx_dep__1 x = casadi__MX__dep__1 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__dim__0" c_casadi__MX__dim__0 :: Ptr (Ptr StdString) -> Ptr MX' -> IO (Ptr StdString) casadi__MX__dim__0 :: MX -> IO String casadi__MX__dim__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__dim__0 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_dim__0 :: MXClass a => a -> IO String mx_dim__0 x = casadi__MX__dim__0 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__dim__1" c_casadi__MX__dim__1 :: Ptr (Ptr StdString) -> Ptr MX' -> CInt -> IO (Ptr StdString) casadi__MX__dim__1 :: MX -> Bool -> IO String casadi__MX__dim__1 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__dim__1 errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_dim__1 :: MXClass a => a -> Bool -> IO String mx_dim__1 x = casadi__MX__dim__1 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__einstein__0" c_casadi__MX__einstein__0 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr MX' -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> IO (Ptr MX') casadi__MX__einstein__0 :: MX -> MX -> Vector Int -> Vector Int -> Vector Int -> Vector Int -> Vector Int -> Vector Int -> IO MX casadi__MX__einstein__0 x0 x1 x2 x3 x4 x5 x6 x7 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 x4' <- marshal x4 x5' <- marshal x5 x6' <- marshal x6 x7' <- marshal x7 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__einstein__0 errStrPtrP x0' x1' x2' x3' x4' x5' x6' x7' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' marshalFree x3 x3' marshalFree x4 x4' marshalFree x5 x5' marshalFree x6 x6' marshalFree x7 x7' return ret -- classy wrapper mx_einstein__0 :: MX -> MX -> Vector Int -> Vector Int -> Vector Int -> Vector Int -> Vector Int -> Vector Int -> IO MX mx_einstein__0 = casadi__MX__einstein__0 -- direct wrapper foreign import ccall unsafe "casadi__MX__einstein__1" c_casadi__MX__einstein__1 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr MX' -> Ptr MX' -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> IO (Ptr MX') casadi__MX__einstein__1 :: MX -> MX -> MX -> Vector Int -> Vector Int -> Vector Int -> Vector Int -> Vector Int -> Vector Int -> IO MX casadi__MX__einstein__1 x0 x1 x2 x3 x4 x5 x6 x7 x8 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 x4' <- marshal x4 x5' <- marshal x5 x6' <- marshal x6 x7' <- marshal x7 x8' <- marshal x8 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__einstein__1 errStrPtrP x0' x1' x2' x3' x4' x5' x6' x7' x8' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' marshalFree x3 x3' marshalFree x4 x4' marshalFree x5 x5' marshalFree x6 x6' marshalFree x7 x7' marshalFree x8 x8' return ret -- classy wrapper mx_einstein__1 :: MX -> MX -> MX -> Vector Int -> Vector Int -> Vector Int -> Vector Int -> Vector Int -> Vector Int -> IO MX mx_einstein__1 = casadi__MX__einstein__1 -- direct wrapper foreign import ccall unsafe "casadi__MX__enlarge__0" c_casadi__MX__enlarge__0 :: Ptr (Ptr StdString) -> Ptr MX' -> CLLong -> CLLong -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> IO () casadi__MX__enlarge__0 :: MX -> Int -> Int -> Vector Int -> Vector Int -> IO () casadi__MX__enlarge__0 x0 x1 x2 x3 x4 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 x4' <- marshal x4 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__enlarge__0 errStrPtrP x0' x1' x2' x3' x4' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' marshalFree x3 x3' marshalFree x4 x4' return () -- classy wrapper mx_enlarge__0 :: MXClass a => a -> Int -> Int -> Vector Int -> Vector Int -> IO () mx_enlarge__0 x = casadi__MX__enlarge__0 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__enlarge__1" c_casadi__MX__enlarge__1 :: Ptr (Ptr StdString) -> Ptr MX' -> CLLong -> CLLong -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> CInt -> IO () casadi__MX__enlarge__1 :: MX -> Int -> Int -> Vector Int -> Vector Int -> Bool -> IO () casadi__MX__enlarge__1 x0 x1 x2 x3 x4 x5 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 x4' <- marshal x4 x5' <- marshal x5 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__enlarge__1 errStrPtrP x0' x1' x2' x3' x4' x5' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' marshalFree x3 x3' marshalFree x4 x4' marshalFree x5 x5' return () -- classy wrapper mx_enlarge__1 :: MXClass a => a -> Int -> Int -> Vector Int -> Vector Int -> Bool -> IO () mx_enlarge__1 x = casadi__MX__enlarge__1 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__erase__0" c_casadi__MX__erase__0 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr (StdVec CLLong) -> IO () casadi__MX__erase__0 :: MX -> Vector Int -> IO () casadi__MX__erase__0 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__erase__0 errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return () -- classy wrapper mx_erase__0 :: MXClass a => a -> Vector Int -> IO () mx_erase__0 x = casadi__MX__erase__0 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__erase__1" c_casadi__MX__erase__1 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr (StdVec CLLong) -> CInt -> IO () casadi__MX__erase__1 :: MX -> Vector Int -> Bool -> IO () casadi__MX__erase__1 x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__erase__1 errStrPtrP x0' x1' x2' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' return () -- classy wrapper mx_erase__1 :: MXClass a => a -> Vector Int -> Bool -> IO () mx_erase__1 x = casadi__MX__erase__1 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__erase__2" c_casadi__MX__erase__2 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> IO () casadi__MX__erase__2 :: MX -> Vector Int -> Vector Int -> IO () casadi__MX__erase__2 x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__erase__2 errStrPtrP x0' x1' x2' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' return () -- classy wrapper mx_erase__2 :: MXClass a => a -> Vector Int -> Vector Int -> IO () mx_erase__2 x = casadi__MX__erase__2 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__erase__3" c_casadi__MX__erase__3 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> CInt -> IO () casadi__MX__erase__3 :: MX -> Vector Int -> Vector Int -> Bool -> IO () casadi__MX__erase__3 x0 x1 x2 x3 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__erase__3 errStrPtrP x0' x1' x2' x3' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' marshalFree x3 x3' return () -- classy wrapper mx_erase__3 :: MXClass a => a -> Vector Int -> Vector Int -> Bool -> IO () mx_erase__3 x = casadi__MX__erase__3 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__eye" c_casadi__MX__eye :: Ptr (Ptr StdString) -> CLLong -> IO (Ptr MX') casadi__MX__eye :: Int -> IO MX casadi__MX__eye x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__eye errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_eye :: Int -> IO MX mx_eye = casadi__MX__eye -- direct wrapper foreign import ccall unsafe "casadi__MX__get__0" c_casadi__MX__get__0 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr (Ptr MX') -> CInt -> Ptr IM' -> Ptr IM' -> IO () casadi__MX__get__0 :: MX -> Bool -> IM -> IM -> IO (MX) casadi__MX__get__0 x0 x2 x3 x4 = do x0' <- marshal x0 o1' <- new nullPtr x2' <- marshal x2 x3' <- marshal x3 x4' <- marshal x4 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__get__0 errStrPtrP x0' o1' x2' x3' x4' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' o1'' <- peek o1' free o1' o1''' <- if o1'' == nullPtr then error "swig output o1' was not set in casadi__MX__get__0/c_casadi__MX__get__0" else wrapReturn o1'' marshalFree x2 x2' marshalFree x3 x3' marshalFree x4 x4' return (o1''') -- classy wrapper mx_get__0 :: MXClass a => a -> Bool -> IM -> IM -> IO (MX) mx_get__0 x = casadi__MX__get__0 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__get__1" c_casadi__MX__get__1 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr (Ptr MX') -> CInt -> Ptr IM' -> Ptr Slice' -> IO () casadi__MX__get__1 :: MX -> Bool -> IM -> Slice -> IO (MX) casadi__MX__get__1 x0 x2 x3 x4 = do x0' <- marshal x0 o1' <- new nullPtr x2' <- marshal x2 x3' <- marshal x3 x4' <- marshal x4 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__get__1 errStrPtrP x0' o1' x2' x3' x4' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' o1'' <- peek o1' free o1' o1''' <- if o1'' == nullPtr then error "swig output o1' was not set in casadi__MX__get__1/c_casadi__MX__get__1" else wrapReturn o1'' marshalFree x2 x2' marshalFree x3 x3' marshalFree x4 x4' return (o1''') -- classy wrapper mx_get__1 :: MXClass a => a -> Bool -> IM -> Slice -> IO (MX) mx_get__1 x = casadi__MX__get__1 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__get__2" c_casadi__MX__get__2 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr (Ptr MX') -> CInt -> Ptr Slice' -> Ptr IM' -> IO () casadi__MX__get__2 :: MX -> Bool -> Slice -> IM -> IO (MX) casadi__MX__get__2 x0 x2 x3 x4 = do x0' <- marshal x0 o1' <- new nullPtr x2' <- marshal x2 x3' <- marshal x3 x4' <- marshal x4 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__get__2 errStrPtrP x0' o1' x2' x3' x4' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' o1'' <- peek o1' free o1' o1''' <- if o1'' == nullPtr then error "swig output o1' was not set in casadi__MX__get__2/c_casadi__MX__get__2" else wrapReturn o1'' marshalFree x2 x2' marshalFree x3 x3' marshalFree x4 x4' return (o1''') -- classy wrapper mx_get__2 :: MXClass a => a -> Bool -> Slice -> IM -> IO (MX) mx_get__2 x = casadi__MX__get__2 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__get__3" c_casadi__MX__get__3 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr (Ptr MX') -> CInt -> Ptr Slice' -> Ptr Slice' -> IO () casadi__MX__get__3 :: MX -> Bool -> Slice -> Slice -> IO (MX) casadi__MX__get__3 x0 x2 x3 x4 = do x0' <- marshal x0 o1' <- new nullPtr x2' <- marshal x2 x3' <- marshal x3 x4' <- marshal x4 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__get__3 errStrPtrP x0' o1' x2' x3' x4' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' o1'' <- peek o1' free o1' o1''' <- if o1'' == nullPtr then error "swig output o1' was not set in casadi__MX__get__3/c_casadi__MX__get__3" else wrapReturn o1'' marshalFree x2 x2' marshalFree x3 x3' marshalFree x4 x4' return (o1''') -- classy wrapper mx_get__3 :: MXClass a => a -> Bool -> Slice -> Slice -> IO (MX) mx_get__3 x = casadi__MX__get__3 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__get__4" c_casadi__MX__get__4 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr (Ptr MX') -> CInt -> Ptr Sparsity' -> IO () casadi__MX__get__4 :: MX -> Bool -> Sparsity -> IO (MX) casadi__MX__get__4 x0 x2 x3 = do x0' <- marshal x0 o1' <- new nullPtr x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__get__4 errStrPtrP x0' o1' x2' x3' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' o1'' <- peek o1' free o1' o1''' <- if o1'' == nullPtr then error "swig output o1' was not set in casadi__MX__get__4/c_casadi__MX__get__4" else wrapReturn o1'' marshalFree x2 x2' marshalFree x3 x3' return (o1''') -- classy wrapper mx_get__4 :: MXClass a => a -> Bool -> Sparsity -> IO (MX) mx_get__4 x = casadi__MX__get__4 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__get__5" c_casadi__MX__get__5 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr (Ptr MX') -> CInt -> Ptr IM' -> IO () casadi__MX__get__5 :: MX -> Bool -> IM -> IO (MX) casadi__MX__get__5 x0 x2 x3 = do x0' <- marshal x0 o1' <- new nullPtr x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__get__5 errStrPtrP x0' o1' x2' x3' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' o1'' <- peek o1' free o1' o1''' <- if o1'' == nullPtr then error "swig output o1' was not set in casadi__MX__get__5/c_casadi__MX__get__5" else wrapReturn o1'' marshalFree x2 x2' marshalFree x3 x3' return (o1''') -- classy wrapper mx_get__5 :: MXClass a => a -> Bool -> IM -> IO (MX) mx_get__5 x = casadi__MX__get__5 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__get__6" c_casadi__MX__get__6 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr (Ptr MX') -> CInt -> Ptr Slice' -> IO () casadi__MX__get__6 :: MX -> Bool -> Slice -> IO (MX) casadi__MX__get__6 x0 x2 x3 = do x0' <- marshal x0 o1' <- new nullPtr x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__get__6 errStrPtrP x0' o1' x2' x3' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' o1'' <- peek o1' free o1' o1''' <- if o1'' == nullPtr then error "swig output o1' was not set in casadi__MX__get__6/c_casadi__MX__get__6" else wrapReturn o1'' marshalFree x2 x2' marshalFree x3 x3' return (o1''') -- classy wrapper mx_get__6 :: MXClass a => a -> Bool -> Slice -> IO (MX) mx_get__6 x = casadi__MX__get__6 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__get_colind" c_casadi__MX__get_colind :: Ptr (Ptr StdString) -> Ptr MX' -> IO (Ptr (StdVec CLLong)) casadi__MX__get_colind :: MX -> IO (Vector Int) casadi__MX__get_colind x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__get_colind errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_get_colind :: MXClass a => a -> IO (Vector Int) mx_get_colind x = casadi__MX__get_colind (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__get_free" c_casadi__MX__get_free :: Ptr (Ptr StdString) -> Ptr Function' -> IO (Ptr (StdVec (Ptr MX'))) casadi__MX__get_free :: Function -> IO (Vector MX) casadi__MX__get_free x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__get_free errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_get_free :: Function -> IO (Vector MX) mx_get_free = casadi__MX__get_free -- direct wrapper foreign import ccall unsafe "casadi__MX__get_input" c_casadi__MX__get_input :: Ptr (Ptr StdString) -> Ptr Function' -> IO (Ptr (StdVec (Ptr MX'))) casadi__MX__get_input :: Function -> IO (Vector MX) casadi__MX__get_input x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__get_input errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_get_input :: Function -> IO (Vector MX) mx_get_input = casadi__MX__get_input -- direct wrapper foreign import ccall unsafe "casadi__MX__get_max_depth" c_casadi__MX__get_max_depth :: Ptr (Ptr StdString) -> IO CLLong casadi__MX__get_max_depth :: IO Int casadi__MX__get_max_depth = do errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__get_max_depth errStrPtrP errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) return ret -- classy wrapper mx_get_max_depth :: IO Int mx_get_max_depth = casadi__MX__get_max_depth -- direct wrapper foreign import ccall unsafe "casadi__MX__get_nz__0" c_casadi__MX__get_nz__0 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr (Ptr MX') -> CInt -> Ptr IM' -> IO () casadi__MX__get_nz__0 :: MX -> Bool -> IM -> IO (MX) casadi__MX__get_nz__0 x0 x2 x3 = do x0' <- marshal x0 o1' <- new nullPtr x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__get_nz__0 errStrPtrP x0' o1' x2' x3' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' o1'' <- peek o1' free o1' o1''' <- if o1'' == nullPtr then error "swig output o1' was not set in casadi__MX__get_nz__0/c_casadi__MX__get_nz__0" else wrapReturn o1'' marshalFree x2 x2' marshalFree x3 x3' return (o1''') -- classy wrapper mx_get_nz__0 :: MXClass a => a -> Bool -> IM -> IO (MX) mx_get_nz__0 x = casadi__MX__get_nz__0 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__get_nz__1" c_casadi__MX__get_nz__1 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr (Ptr MX') -> CInt -> Ptr Slice' -> IO () casadi__MX__get_nz__1 :: MX -> Bool -> Slice -> IO (MX) casadi__MX__get_nz__1 x0 x2 x3 = do x0' <- marshal x0 o1' <- new nullPtr x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__get_nz__1 errStrPtrP x0' o1' x2' x3' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' o1'' <- peek o1' free o1' o1''' <- if o1'' == nullPtr then error "swig output o1' was not set in casadi__MX__get_nz__1/c_casadi__MX__get_nz__1" else wrapReturn o1'' marshalFree x2 x2' marshalFree x3 x3' return (o1''') -- classy wrapper mx_get_nz__1 :: MXClass a => a -> Bool -> Slice -> IO (MX) mx_get_nz__1 x = casadi__MX__get_nz__1 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__get_output" c_casadi__MX__get_output :: Ptr (Ptr StdString) -> Ptr MX' -> CLLong -> IO (Ptr MX') casadi__MX__get_output :: MX -> Int -> IO MX casadi__MX__get_output x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__get_output errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_get_output :: MXClass a => a -> Int -> IO MX mx_get_output x = casadi__MX__get_output (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__get_row" c_casadi__MX__get_row :: Ptr (Ptr StdString) -> Ptr MX' -> IO (Ptr (StdVec CLLong)) casadi__MX__get_row :: MX -> IO (Vector Int) casadi__MX__get_row x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__get_row errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_get_row :: MXClass a => a -> IO (Vector Int) mx_get_row x = casadi__MX__get_row (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__get_sparsity" c_casadi__MX__get_sparsity :: Ptr (Ptr StdString) -> Ptr MX' -> IO (Ptr Sparsity') casadi__MX__get_sparsity :: MX -> IO Sparsity casadi__MX__get_sparsity x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__get_sparsity errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_get_sparsity :: MXClass a => a -> IO Sparsity mx_get_sparsity x = casadi__MX__get_sparsity (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__get_temp" c_casadi__MX__get_temp :: Ptr (Ptr StdString) -> Ptr MX' -> IO CLLong casadi__MX__get_temp :: MX -> IO Int casadi__MX__get_temp x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__get_temp errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_get_temp :: MXClass a => a -> IO Int mx_get_temp x = casadi__MX__get_temp (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__has_duplicates" c_casadi__MX__has_duplicates :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__has_duplicates :: MX -> IO Bool casadi__MX__has_duplicates x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__has_duplicates errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_has_duplicates :: MXClass a => a -> IO Bool mx_has_duplicates x = casadi__MX__has_duplicates (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__inf__0" c_casadi__MX__inf__0 :: Ptr (Ptr StdString) -> Ptr (StdPair CLLong CLLong) -> IO (Ptr MX') casadi__MX__inf__0 :: (Int, Int) -> IO MX casadi__MX__inf__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__inf__0 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_inf__0 :: (Int, Int) -> IO MX mx_inf__0 = casadi__MX__inf__0 -- direct wrapper foreign import ccall unsafe "casadi__MX__inf__1" c_casadi__MX__inf__1 :: Ptr (Ptr StdString) -> IO (Ptr MX') casadi__MX__inf__1 :: IO MX casadi__MX__inf__1 = do errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__inf__1 errStrPtrP errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) return ret -- classy wrapper mx_inf__1 :: IO MX mx_inf__1 = casadi__MX__inf__1 -- direct wrapper foreign import ccall unsafe "casadi__MX__inf__2" c_casadi__MX__inf__2 :: Ptr (Ptr StdString) -> CLLong -> IO (Ptr MX') casadi__MX__inf__2 :: Int -> IO MX casadi__MX__inf__2 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__inf__2 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_inf__2 :: Int -> IO MX mx_inf__2 = casadi__MX__inf__2 -- direct wrapper foreign import ccall unsafe "casadi__MX__inf__3" c_casadi__MX__inf__3 :: Ptr (Ptr StdString) -> CLLong -> CLLong -> IO (Ptr MX') casadi__MX__inf__3 :: Int -> Int -> IO MX casadi__MX__inf__3 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__inf__3 errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_inf__3 :: Int -> Int -> IO MX mx_inf__3 = casadi__MX__inf__3 -- direct wrapper foreign import ccall unsafe "casadi__MX__inf__4" c_casadi__MX__inf__4 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr MX') casadi__MX__inf__4 :: Sparsity -> IO MX casadi__MX__inf__4 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__inf__4 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_inf__4 :: Sparsity -> IO MX mx_inf__4 = casadi__MX__inf__4 -- direct wrapper foreign import ccall unsafe "casadi__MX__info" c_casadi__MX__info :: Ptr (Ptr StdString) -> Ptr MX' -> IO (Ptr (StdMap StdString (Ptr GenericType'))) casadi__MX__info :: MX -> IO (M.Map String GenericType) casadi__MX__info x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__info errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_info :: MXClass a => a -> IO (M.Map String GenericType) mx_info x = casadi__MX__info (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_binary" c_casadi__MX__is_binary :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_binary :: MX -> IO Bool casadi__MX__is_binary x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_binary errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_binary :: MXClass a => a -> IO Bool mx_is_binary x = casadi__MX__is_binary (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_call" c_casadi__MX__is_call :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_call :: MX -> IO Bool casadi__MX__is_call x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_call errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_call :: MXClass a => a -> IO Bool mx_is_call x = casadi__MX__is_call (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_column" c_casadi__MX__is_column :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_column :: MX -> IO Bool casadi__MX__is_column x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_column errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_column :: MXClass a => a -> IO Bool mx_is_column x = casadi__MX__is_column (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_commutative" c_casadi__MX__is_commutative :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_commutative :: MX -> IO Bool casadi__MX__is_commutative x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_commutative errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_commutative :: MXClass a => a -> IO Bool mx_is_commutative x = casadi__MX__is_commutative (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_constant" c_casadi__MX__is_constant :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_constant :: MX -> IO Bool casadi__MX__is_constant x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_constant errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_constant :: MXClass a => a -> IO Bool mx_is_constant x = casadi__MX__is_constant (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_dense" c_casadi__MX__is_dense :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_dense :: MX -> IO Bool casadi__MX__is_dense x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_dense errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_dense :: MXClass a => a -> IO Bool mx_is_dense x = casadi__MX__is_dense (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_empty__0" c_casadi__MX__is_empty__0 :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_empty__0 :: MX -> IO Bool casadi__MX__is_empty__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_empty__0 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_empty__0 :: MXClass a => a -> IO Bool mx_is_empty__0 x = casadi__MX__is_empty__0 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_empty__1" c_casadi__MX__is_empty__1 :: Ptr (Ptr StdString) -> Ptr MX' -> CInt -> IO CInt casadi__MX__is_empty__1 :: MX -> Bool -> IO Bool casadi__MX__is_empty__1 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_empty__1 errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_is_empty__1 :: MXClass a => a -> Bool -> IO Bool mx_is_empty__1 x = casadi__MX__is_empty__1 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_eye" c_casadi__MX__is_eye :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_eye :: MX -> IO Bool casadi__MX__is_eye x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_eye errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_eye :: MXClass a => a -> IO Bool mx_is_eye x = casadi__MX__is_eye (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_minus_one" c_casadi__MX__is_minus_one :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_minus_one :: MX -> IO Bool casadi__MX__is_minus_one x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_minus_one errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_minus_one :: MXClass a => a -> IO Bool mx_is_minus_one x = casadi__MX__is_minus_one (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_multiplication" c_casadi__MX__is_multiplication :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_multiplication :: MX -> IO Bool casadi__MX__is_multiplication x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_multiplication errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_multiplication :: MXClass a => a -> IO Bool mx_is_multiplication x = casadi__MX__is_multiplication (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_norm" c_casadi__MX__is_norm :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_norm :: MX -> IO Bool casadi__MX__is_norm x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_norm errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_norm :: MXClass a => a -> IO Bool mx_is_norm x = casadi__MX__is_norm (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_one" c_casadi__MX__is_one :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_one :: MX -> IO Bool casadi__MX__is_one x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_one errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_one :: MXClass a => a -> IO Bool mx_is_one x = casadi__MX__is_one (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_op" c_casadi__MX__is_op :: Ptr (Ptr StdString) -> Ptr MX' -> CLLong -> IO CInt casadi__MX__is_op :: MX -> Int -> IO Bool casadi__MX__is_op x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_op errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_is_op :: MXClass a => a -> Int -> IO Bool mx_is_op x = casadi__MX__is_op (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_output" c_casadi__MX__is_output :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_output :: MX -> IO Bool casadi__MX__is_output x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_output errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_output :: MXClass a => a -> IO Bool mx_is_output x = casadi__MX__is_output (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_regular" c_casadi__MX__is_regular :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_regular :: MX -> IO Bool casadi__MX__is_regular x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_regular errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_regular :: MXClass a => a -> IO Bool mx_is_regular x = casadi__MX__is_regular (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_row" c_casadi__MX__is_row :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_row :: MX -> IO Bool casadi__MX__is_row x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_row errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_row :: MXClass a => a -> IO Bool mx_is_row x = casadi__MX__is_row (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_scalar__0" c_casadi__MX__is_scalar__0 :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_scalar__0 :: MX -> IO Bool casadi__MX__is_scalar__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_scalar__0 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_scalar__0 :: MXClass a => a -> IO Bool mx_is_scalar__0 x = casadi__MX__is_scalar__0 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_scalar__1" c_casadi__MX__is_scalar__1 :: Ptr (Ptr StdString) -> Ptr MX' -> CInt -> IO CInt casadi__MX__is_scalar__1 :: MX -> Bool -> IO Bool casadi__MX__is_scalar__1 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_scalar__1 errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_is_scalar__1 :: MXClass a => a -> Bool -> IO Bool mx_is_scalar__1 x = casadi__MX__is_scalar__1 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_square" c_casadi__MX__is_square :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_square :: MX -> IO Bool casadi__MX__is_square x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_square errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_square :: MXClass a => a -> IO Bool mx_is_square x = casadi__MX__is_square (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_symbolic" c_casadi__MX__is_symbolic :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_symbolic :: MX -> IO Bool casadi__MX__is_symbolic x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_symbolic errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_symbolic :: MXClass a => a -> IO Bool mx_is_symbolic x = casadi__MX__is_symbolic (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_transpose" c_casadi__MX__is_transpose :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_transpose :: MX -> IO Bool casadi__MX__is_transpose x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_transpose errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_transpose :: MXClass a => a -> IO Bool mx_is_transpose x = casadi__MX__is_transpose (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_tril" c_casadi__MX__is_tril :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_tril :: MX -> IO Bool casadi__MX__is_tril x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_tril errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_tril :: MXClass a => a -> IO Bool mx_is_tril x = casadi__MX__is_tril (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_triu" c_casadi__MX__is_triu :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_triu :: MX -> IO Bool casadi__MX__is_triu x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_triu errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_triu :: MXClass a => a -> IO Bool mx_is_triu x = casadi__MX__is_triu (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_unary" c_casadi__MX__is_unary :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_unary :: MX -> IO Bool casadi__MX__is_unary x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_unary errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_unary :: MXClass a => a -> IO Bool mx_is_unary x = casadi__MX__is_unary (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_valid_input" c_casadi__MX__is_valid_input :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_valid_input :: MX -> IO Bool casadi__MX__is_valid_input x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_valid_input errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_valid_input :: MXClass a => a -> IO Bool mx_is_valid_input x = casadi__MX__is_valid_input (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_vector" c_casadi__MX__is_vector :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_vector :: MX -> IO Bool casadi__MX__is_vector x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_vector errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_vector :: MXClass a => a -> IO Bool mx_is_vector x = casadi__MX__is_vector (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__is_zero" c_casadi__MX__is_zero :: Ptr (Ptr StdString) -> Ptr MX' -> IO CInt casadi__MX__is_zero :: MX -> IO Bool casadi__MX__is_zero x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__is_zero errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_is_zero :: MXClass a => a -> IO Bool mx_is_zero x = casadi__MX__is_zero (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__join_primitives" c_casadi__MX__join_primitives :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr (StdVec (Ptr MX')) -> IO (Ptr MX') casadi__MX__join_primitives :: MX -> Vector MX -> IO MX casadi__MX__join_primitives x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__join_primitives errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_join_primitives :: MXClass a => a -> Vector MX -> IO MX mx_join_primitives x = casadi__MX__join_primitives (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__mapping" c_casadi__MX__mapping :: Ptr (Ptr StdString) -> Ptr MX' -> IO (Ptr IM') casadi__MX__mapping :: MX -> IO IM casadi__MX__mapping x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__mapping errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_mapping :: MXClass a => a -> IO IM mx_mapping x = casadi__MX__mapping (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__monitor" c_casadi__MX__monitor :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr StdString -> IO (Ptr MX') casadi__MX__monitor :: MX -> String -> IO MX casadi__MX__monitor x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__monitor errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_monitor :: MXClass a => a -> String -> IO MX mx_monitor x = casadi__MX__monitor (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__n_dep" c_casadi__MX__n_dep :: Ptr (Ptr StdString) -> Ptr MX' -> IO CLLong casadi__MX__n_dep :: MX -> IO Int casadi__MX__n_dep x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__n_dep errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_n_dep :: MXClass a => a -> IO Int mx_n_dep x = casadi__MX__n_dep (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__n_out" c_casadi__MX__n_out :: Ptr (Ptr StdString) -> Ptr MX' -> IO CLLong casadi__MX__n_out :: MX -> IO Int casadi__MX__n_out x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__n_out errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_n_out :: MXClass a => a -> IO Int mx_n_out x = casadi__MX__n_out (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__n_primitives" c_casadi__MX__n_primitives :: Ptr (Ptr StdString) -> Ptr MX' -> IO CLLong casadi__MX__n_primitives :: MX -> IO Int casadi__MX__n_primitives x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__n_primitives errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_n_primitives :: MXClass a => a -> IO Int mx_n_primitives x = casadi__MX__n_primitives (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__name" c_casadi__MX__name :: Ptr (Ptr StdString) -> Ptr MX' -> IO (Ptr StdString) casadi__MX__name :: MX -> IO String casadi__MX__name x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__name errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_name :: MXClass a => a -> IO String mx_name x = casadi__MX__name (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__nan__0" c_casadi__MX__nan__0 :: Ptr (Ptr StdString) -> Ptr (StdPair CLLong CLLong) -> IO (Ptr MX') casadi__MX__nan__0 :: (Int, Int) -> IO MX casadi__MX__nan__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__nan__0 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_nan__0 :: (Int, Int) -> IO MX mx_nan__0 = casadi__MX__nan__0 -- direct wrapper foreign import ccall unsafe "casadi__MX__nan__1" c_casadi__MX__nan__1 :: Ptr (Ptr StdString) -> IO (Ptr MX') casadi__MX__nan__1 :: IO MX casadi__MX__nan__1 = do errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__nan__1 errStrPtrP errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) return ret -- classy wrapper mx_nan__1 :: IO MX mx_nan__1 = casadi__MX__nan__1 -- direct wrapper foreign import ccall unsafe "casadi__MX__nan__2" c_casadi__MX__nan__2 :: Ptr (Ptr StdString) -> CLLong -> IO (Ptr MX') casadi__MX__nan__2 :: Int -> IO MX casadi__MX__nan__2 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__nan__2 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_nan__2 :: Int -> IO MX mx_nan__2 = casadi__MX__nan__2 -- direct wrapper foreign import ccall unsafe "casadi__MX__nan__3" c_casadi__MX__nan__3 :: Ptr (Ptr StdString) -> CLLong -> CLLong -> IO (Ptr MX') casadi__MX__nan__3 :: Int -> Int -> IO MX casadi__MX__nan__3 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__nan__3 errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_nan__3 :: Int -> Int -> IO MX mx_nan__3 = casadi__MX__nan__3 -- direct wrapper foreign import ccall unsafe "casadi__MX__nan__4" c_casadi__MX__nan__4 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr MX') casadi__MX__nan__4 :: Sparsity -> IO MX casadi__MX__nan__4 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__nan__4 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_nan__4 :: Sparsity -> IO MX mx_nan__4 = casadi__MX__nan__4 -- direct wrapper foreign import ccall unsafe "casadi__MX__nnz" c_casadi__MX__nnz :: Ptr (Ptr StdString) -> Ptr MX' -> IO CLLong casadi__MX__nnz :: MX -> IO Int casadi__MX__nnz x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__nnz errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_nnz :: MXClass a => a -> IO Int mx_nnz x = casadi__MX__nnz (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__nnz_diag" c_casadi__MX__nnz_diag :: Ptr (Ptr StdString) -> Ptr MX' -> IO CLLong casadi__MX__nnz_diag :: MX -> IO Int casadi__MX__nnz_diag x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__nnz_diag errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_nnz_diag :: MXClass a => a -> IO Int mx_nnz_diag x = casadi__MX__nnz_diag (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__nnz_lower" c_casadi__MX__nnz_lower :: Ptr (Ptr StdString) -> Ptr MX' -> IO CLLong casadi__MX__nnz_lower :: MX -> IO Int casadi__MX__nnz_lower x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__nnz_lower errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_nnz_lower :: MXClass a => a -> IO Int mx_nnz_lower x = casadi__MX__nnz_lower (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__nnz_upper" c_casadi__MX__nnz_upper :: Ptr (Ptr StdString) -> Ptr MX' -> IO CLLong casadi__MX__nnz_upper :: MX -> IO Int casadi__MX__nnz_upper x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__nnz_upper errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_nnz_upper :: MXClass a => a -> IO Int mx_nnz_upper x = casadi__MX__nnz_upper (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__numel" c_casadi__MX__numel :: Ptr (Ptr StdString) -> Ptr MX' -> IO CLLong casadi__MX__numel :: MX -> IO Int casadi__MX__numel x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__numel errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_numel :: MXClass a => a -> IO Int mx_numel x = casadi__MX__numel (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__ones__0" c_casadi__MX__ones__0 :: Ptr (Ptr StdString) -> Ptr (StdPair CLLong CLLong) -> IO (Ptr MX') casadi__MX__ones__0 :: (Int, Int) -> IO MX casadi__MX__ones__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__ones__0 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_ones__0 :: (Int, Int) -> IO MX mx_ones__0 = casadi__MX__ones__0 -- direct wrapper foreign import ccall unsafe "casadi__MX__ones__1" c_casadi__MX__ones__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr MX') casadi__MX__ones__1 :: Sparsity -> IO MX casadi__MX__ones__1 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__ones__1 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_ones__1 :: Sparsity -> IO MX mx_ones__1 = casadi__MX__ones__1 -- direct wrapper foreign import ccall unsafe "casadi__MX__ones__2" c_casadi__MX__ones__2 :: Ptr (Ptr StdString) -> IO (Ptr MX') casadi__MX__ones__2 :: IO MX casadi__MX__ones__2 = do errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__ones__2 errStrPtrP errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) return ret -- classy wrapper mx_ones__2 :: IO MX mx_ones__2 = casadi__MX__ones__2 -- direct wrapper foreign import ccall unsafe "casadi__MX__ones__3" c_casadi__MX__ones__3 :: Ptr (Ptr StdString) -> CLLong -> IO (Ptr MX') casadi__MX__ones__3 :: Int -> IO MX casadi__MX__ones__3 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__ones__3 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_ones__3 :: Int -> IO MX mx_ones__3 = casadi__MX__ones__3 -- direct wrapper foreign import ccall unsafe "casadi__MX__ones__4" c_casadi__MX__ones__4 :: Ptr (Ptr StdString) -> CLLong -> CLLong -> IO (Ptr MX') casadi__MX__ones__4 :: Int -> Int -> IO MX casadi__MX__ones__4 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__ones__4 errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_ones__4 :: Int -> Int -> IO MX mx_ones__4 = casadi__MX__ones__4 -- direct wrapper foreign import ccall unsafe "casadi__MX__op" c_casadi__MX__op :: Ptr (Ptr StdString) -> Ptr MX' -> IO CLLong casadi__MX__op :: MX -> IO Int casadi__MX__op x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__op errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_op :: MXClass a => a -> IO Int mx_op x = casadi__MX__op (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__operator__minus" c_casadi__MX__operator__minus :: Ptr (Ptr StdString) -> Ptr MX' -> IO (Ptr MX') casadi__MX__operator__minus :: MX -> IO MX casadi__MX__operator__minus x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__operator__minus errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_operator__minus :: MXClass a => a -> IO MX mx_operator__minus x = casadi__MX__operator__minus (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__operator_casadi__Matrix_double_" c_casadi__MX__operator_casadi__Matrix_double_ :: Ptr (Ptr StdString) -> Ptr MX' -> IO (Ptr DM') casadi__MX__operator_casadi__Matrix_double_ :: MX -> IO DM casadi__MX__operator_casadi__Matrix_double_ x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__operator_casadi__Matrix_double_ errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_operator_casadi__Matrix_double_ :: MXClass a => a -> IO DM mx_operator_casadi__Matrix_double_ x = casadi__MX__operator_casadi__Matrix_double_ (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__operator_double" c_casadi__MX__operator_double :: Ptr (Ptr StdString) -> Ptr MX' -> IO CDouble casadi__MX__operator_double :: MX -> IO Double casadi__MX__operator_double x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__operator_double errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_operator_double :: MXClass a => a -> IO Double mx_operator_double x = casadi__MX__operator_double (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__primitives" c_casadi__MX__primitives :: Ptr (Ptr StdString) -> Ptr MX' -> IO (Ptr (StdVec (Ptr MX'))) casadi__MX__primitives :: MX -> IO (Vector MX) casadi__MX__primitives x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__primitives errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_primitives :: MXClass a => a -> IO (Vector MX) mx_primitives x = casadi__MX__primitives (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__printme" c_casadi__MX__printme :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr MX' -> IO (Ptr MX') casadi__MX__printme :: MX -> MX -> IO MX casadi__MX__printme x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__printme errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_printme :: MXClass a => a -> MX -> IO MX mx_printme x = casadi__MX__printme (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__reset_input" c_casadi__MX__reset_input :: Ptr (Ptr StdString) -> Ptr MX' -> IO () casadi__MX__reset_input :: MX -> IO () casadi__MX__reset_input x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__reset_input errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return () -- classy wrapper mx_reset_input :: MXClass a => a -> IO () mx_reset_input x = casadi__MX__reset_input (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__row" c_casadi__MX__row :: Ptr (Ptr StdString) -> Ptr MX' -> CLLong -> IO CLLong casadi__MX__row :: MX -> Int -> IO Int casadi__MX__row x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__row errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_row :: MXClass a => a -> Int -> IO Int mx_row x = casadi__MX__row (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__rows" c_casadi__MX__rows :: Ptr (Ptr StdString) -> Ptr MX' -> IO CLLong casadi__MX__rows :: MX -> IO Int casadi__MX__rows x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__rows errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_rows :: MXClass a => a -> IO Int mx_rows x = casadi__MX__rows (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__set__0" c_casadi__MX__set__0 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr MX' -> CInt -> Ptr IM' -> Ptr IM' -> IO () casadi__MX__set__0 :: MX -> MX -> Bool -> IM -> IM -> IO () casadi__MX__set__0 x0 x1 x2 x3 x4 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 x4' <- marshal x4 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__set__0 errStrPtrP x0' x1' x2' x3' x4' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' marshalFree x3 x3' marshalFree x4 x4' return () -- classy wrapper mx_set__0 :: MXClass a => a -> MX -> Bool -> IM -> IM -> IO () mx_set__0 x = casadi__MX__set__0 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__set__1" c_casadi__MX__set__1 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr MX' -> CInt -> Ptr IM' -> Ptr Slice' -> IO () casadi__MX__set__1 :: MX -> MX -> Bool -> IM -> Slice -> IO () casadi__MX__set__1 x0 x1 x2 x3 x4 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 x4' <- marshal x4 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__set__1 errStrPtrP x0' x1' x2' x3' x4' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' marshalFree x3 x3' marshalFree x4 x4' return () -- classy wrapper mx_set__1 :: MXClass a => a -> MX -> Bool -> IM -> Slice -> IO () mx_set__1 x = casadi__MX__set__1 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__set__2" c_casadi__MX__set__2 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr MX' -> CInt -> Ptr Slice' -> Ptr IM' -> IO () casadi__MX__set__2 :: MX -> MX -> Bool -> Slice -> IM -> IO () casadi__MX__set__2 x0 x1 x2 x3 x4 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 x4' <- marshal x4 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__set__2 errStrPtrP x0' x1' x2' x3' x4' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' marshalFree x3 x3' marshalFree x4 x4' return () -- classy wrapper mx_set__2 :: MXClass a => a -> MX -> Bool -> Slice -> IM -> IO () mx_set__2 x = casadi__MX__set__2 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__set__3" c_casadi__MX__set__3 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr MX' -> CInt -> Ptr Slice' -> Ptr Slice' -> IO () casadi__MX__set__3 :: MX -> MX -> Bool -> Slice -> Slice -> IO () casadi__MX__set__3 x0 x1 x2 x3 x4 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 x4' <- marshal x4 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__set__3 errStrPtrP x0' x1' x2' x3' x4' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' marshalFree x3 x3' marshalFree x4 x4' return () -- classy wrapper mx_set__3 :: MXClass a => a -> MX -> Bool -> Slice -> Slice -> IO () mx_set__3 x = casadi__MX__set__3 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__set__4" c_casadi__MX__set__4 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr MX' -> CInt -> Ptr Sparsity' -> IO () casadi__MX__set__4 :: MX -> MX -> Bool -> Sparsity -> IO () casadi__MX__set__4 x0 x1 x2 x3 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__set__4 errStrPtrP x0' x1' x2' x3' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' marshalFree x3 x3' return () -- classy wrapper mx_set__4 :: MXClass a => a -> MX -> Bool -> Sparsity -> IO () mx_set__4 x = casadi__MX__set__4 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__set__5" c_casadi__MX__set__5 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr MX' -> CInt -> Ptr IM' -> IO () casadi__MX__set__5 :: MX -> MX -> Bool -> IM -> IO () casadi__MX__set__5 x0 x1 x2 x3 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__set__5 errStrPtrP x0' x1' x2' x3' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' marshalFree x3 x3' return () -- classy wrapper mx_set__5 :: MXClass a => a -> MX -> Bool -> IM -> IO () mx_set__5 x = casadi__MX__set__5 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__set__6" c_casadi__MX__set__6 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr MX' -> CInt -> Ptr Slice' -> IO () casadi__MX__set__6 :: MX -> MX -> Bool -> Slice -> IO () casadi__MX__set__6 x0 x1 x2 x3 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__set__6 errStrPtrP x0' x1' x2' x3' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' marshalFree x3 x3' return () -- classy wrapper mx_set__6 :: MXClass a => a -> MX -> Bool -> Slice -> IO () mx_set__6 x = casadi__MX__set__6 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__set_max_depth__0" c_casadi__MX__set_max_depth__0 :: Ptr (Ptr StdString) -> IO () casadi__MX__set_max_depth__0 :: IO () casadi__MX__set_max_depth__0 = do errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__set_max_depth__0 errStrPtrP errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) return () -- classy wrapper mx_set_max_depth__0 :: IO () mx_set_max_depth__0 = casadi__MX__set_max_depth__0 -- direct wrapper foreign import ccall unsafe "casadi__MX__set_max_depth__1" c_casadi__MX__set_max_depth__1 :: Ptr (Ptr StdString) -> CLLong -> IO () casadi__MX__set_max_depth__1 :: Int -> IO () casadi__MX__set_max_depth__1 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__set_max_depth__1 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return () -- classy wrapper mx_set_max_depth__1 :: Int -> IO () mx_set_max_depth__1 = casadi__MX__set_max_depth__1 -- direct wrapper foreign import ccall unsafe "casadi__MX__set_nz__0" c_casadi__MX__set_nz__0 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr MX' -> CInt -> Ptr IM' -> IO () casadi__MX__set_nz__0 :: MX -> MX -> Bool -> IM -> IO () casadi__MX__set_nz__0 x0 x1 x2 x3 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__set_nz__0 errStrPtrP x0' x1' x2' x3' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' marshalFree x3 x3' return () -- classy wrapper mx_set_nz__0 :: MXClass a => a -> MX -> Bool -> IM -> IO () mx_set_nz__0 x = casadi__MX__set_nz__0 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__set_nz__1" c_casadi__MX__set_nz__1 :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr MX' -> CInt -> Ptr Slice' -> IO () casadi__MX__set_nz__1 :: MX -> MX -> Bool -> Slice -> IO () casadi__MX__set_nz__1 x0 x1 x2 x3 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__set_nz__1 errStrPtrP x0' x1' x2' x3' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' marshalFree x3 x3' return () -- classy wrapper mx_set_nz__1 :: MXClass a => a -> MX -> Bool -> Slice -> IO () mx_set_nz__1 x = casadi__MX__set_nz__1 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__set_temp" c_casadi__MX__set_temp :: Ptr (Ptr StdString) -> Ptr MX' -> CLLong -> IO () casadi__MX__set_temp :: MX -> Int -> IO () casadi__MX__set_temp x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__set_temp errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return () -- classy wrapper mx_set_temp :: MXClass a => a -> Int -> IO () mx_set_temp x = casadi__MX__set_temp (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__size__0" c_casadi__MX__size__0 :: Ptr (Ptr StdString) -> Ptr MX' -> CLLong -> IO CLLong casadi__MX__size__0 :: MX -> Int -> IO Int casadi__MX__size__0 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__size__0 errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_size__0 :: MXClass a => a -> Int -> IO Int mx_size__0 x = casadi__MX__size__0 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__size__1" c_casadi__MX__size__1 :: Ptr (Ptr StdString) -> Ptr MX' -> IO (Ptr (StdPair CLLong CLLong)) casadi__MX__size__1 :: MX -> IO (Int, Int) casadi__MX__size__1 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__size__1 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_size__1 :: MXClass a => a -> IO (Int, Int) mx_size__1 x = casadi__MX__size__1 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__size1" c_casadi__MX__size1 :: Ptr (Ptr StdString) -> Ptr MX' -> IO CLLong casadi__MX__size1 :: MX -> IO Int casadi__MX__size1 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__size1 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_size1 :: MXClass a => a -> IO Int mx_size1 x = casadi__MX__size1 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__size2" c_casadi__MX__size2 :: Ptr (Ptr StdString) -> Ptr MX' -> IO CLLong casadi__MX__size2 :: MX -> IO Int casadi__MX__size2 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__size2 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_size2 :: MXClass a => a -> IO Int mx_size2 x = casadi__MX__size2 (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__sparsity" c_casadi__MX__sparsity :: Ptr (Ptr StdString) -> Ptr MX' -> IO (Ptr Sparsity') casadi__MX__sparsity :: MX -> IO Sparsity casadi__MX__sparsity x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__sparsity errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_sparsity :: MXClass a => a -> IO Sparsity mx_sparsity x = casadi__MX__sparsity (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__split_primitives" c_casadi__MX__split_primitives :: Ptr (Ptr StdString) -> Ptr MX' -> Ptr MX' -> IO (Ptr (StdVec (Ptr MX'))) casadi__MX__split_primitives :: MX -> MX -> IO (Vector MX) casadi__MX__split_primitives x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__split_primitives errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_split_primitives :: MXClass a => a -> MX -> IO (Vector MX) mx_split_primitives x = casadi__MX__split_primitives (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__sym__0" c_casadi__MX__sym__0 :: Ptr (Ptr StdString) -> Ptr StdString -> CLLong -> CLLong -> CLLong -> CLLong -> IO (Ptr (StdVec (Ptr (StdVec (Ptr MX'))))) casadi__MX__sym__0 :: String -> Int -> Int -> Int -> Int -> IO (Vector (Vector MX)) casadi__MX__sym__0 x0 x1 x2 x3 x4 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 x4' <- marshal x4 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__sym__0 errStrPtrP x0' x1' x2' x3' x4' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' marshalFree x3 x3' marshalFree x4 x4' return ret -- classy wrapper mx_sym__0 :: String -> Int -> Int -> Int -> Int -> IO (Vector (Vector MX)) mx_sym__0 = casadi__MX__sym__0 -- direct wrapper foreign import ccall unsafe "casadi__MX__sym__1" c_casadi__MX__sym__1 :: Ptr (Ptr StdString) -> Ptr StdString -> Ptr Sparsity' -> CLLong -> CLLong -> IO (Ptr (StdVec (Ptr (StdVec (Ptr MX'))))) casadi__MX__sym__1 :: String -> Sparsity -> Int -> Int -> IO (Vector (Vector MX)) casadi__MX__sym__1 x0 x1 x2 x3 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__sym__1 errStrPtrP x0' x1' x2' x3' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' marshalFree x3 x3' return ret -- classy wrapper mx_sym__1 :: String -> Sparsity -> Int -> Int -> IO (Vector (Vector MX)) mx_sym__1 = casadi__MX__sym__1 -- direct wrapper foreign import ccall unsafe "casadi__MX__sym__2" c_casadi__MX__sym__2 :: Ptr (Ptr StdString) -> Ptr StdString -> CLLong -> CLLong -> CLLong -> IO (Ptr (StdVec (Ptr MX'))) casadi__MX__sym__2 :: String -> Int -> Int -> Int -> IO (Vector MX) casadi__MX__sym__2 x0 x1 x2 x3 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__sym__2 errStrPtrP x0' x1' x2' x3' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' marshalFree x3 x3' return ret -- classy wrapper mx_sym__2 :: String -> Int -> Int -> Int -> IO (Vector MX) mx_sym__2 = casadi__MX__sym__2 -- direct wrapper foreign import ccall unsafe "casadi__MX__sym__3" c_casadi__MX__sym__3 :: Ptr (Ptr StdString) -> Ptr StdString -> Ptr Sparsity' -> CLLong -> IO (Ptr (StdVec (Ptr MX'))) casadi__MX__sym__3 :: String -> Sparsity -> Int -> IO (Vector MX) casadi__MX__sym__3 x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__sym__3 errStrPtrP x0' x1' x2' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' return ret -- classy wrapper mx_sym__3 :: String -> Sparsity -> Int -> IO (Vector MX) mx_sym__3 = casadi__MX__sym__3 -- direct wrapper foreign import ccall unsafe "casadi__MX__sym__4" c_casadi__MX__sym__4 :: Ptr (Ptr StdString) -> Ptr StdString -> Ptr Sparsity' -> IO (Ptr MX') casadi__MX__sym__4 :: String -> Sparsity -> IO MX casadi__MX__sym__4 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__sym__4 errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_sym__4 :: String -> Sparsity -> IO MX mx_sym__4 = casadi__MX__sym__4 -- direct wrapper foreign import ccall unsafe "casadi__MX__sym__5" c_casadi__MX__sym__5 :: Ptr (Ptr StdString) -> Ptr StdString -> Ptr (StdPair CLLong CLLong) -> IO (Ptr MX') casadi__MX__sym__5 :: String -> (Int, Int) -> IO MX casadi__MX__sym__5 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__sym__5 errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_sym__5 :: String -> (Int, Int) -> IO MX mx_sym__5 = casadi__MX__sym__5 -- direct wrapper foreign import ccall unsafe "casadi__MX__sym__6" c_casadi__MX__sym__6 :: Ptr (Ptr StdString) -> Ptr StdString -> IO (Ptr MX') casadi__MX__sym__6 :: String -> IO MX casadi__MX__sym__6 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__sym__6 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_sym__6 :: String -> IO MX mx_sym__6 = casadi__MX__sym__6 -- direct wrapper foreign import ccall unsafe "casadi__MX__sym__7" c_casadi__MX__sym__7 :: Ptr (Ptr StdString) -> Ptr StdString -> CLLong -> IO (Ptr MX') casadi__MX__sym__7 :: String -> Int -> IO MX casadi__MX__sym__7 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__sym__7 errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_sym__7 :: String -> Int -> IO MX mx_sym__7 = casadi__MX__sym__7 -- direct wrapper foreign import ccall unsafe "casadi__MX__sym__8" c_casadi__MX__sym__8 :: Ptr (Ptr StdString) -> Ptr StdString -> CLLong -> CLLong -> IO (Ptr MX') casadi__MX__sym__8 :: String -> Int -> Int -> IO MX casadi__MX__sym__8 x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__sym__8 errStrPtrP x0' x1' x2' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' marshalFree x2 x2' return ret -- classy wrapper mx_sym__8 :: String -> Int -> Int -> IO MX mx_sym__8 = casadi__MX__sym__8 -- direct wrapper foreign import ccall unsafe "casadi__MX__type_name" c_casadi__MX__type_name :: Ptr (Ptr StdString) -> IO (Ptr StdString) casadi__MX__type_name :: IO String casadi__MX__type_name = do errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__type_name errStrPtrP errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) return ret -- classy wrapper mx_type_name :: IO String mx_type_name = casadi__MX__type_name -- direct wrapper foreign import ccall unsafe "casadi__MX__unary" c_casadi__MX__unary :: Ptr (Ptr StdString) -> CLLong -> Ptr MX' -> IO (Ptr MX') casadi__MX__unary :: Int -> MX -> IO MX casadi__MX__unary x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__unary errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_unary :: Int -> MX -> IO MX mx_unary = casadi__MX__unary -- direct wrapper foreign import ccall unsafe "casadi__MX__which_function" c_casadi__MX__which_function :: Ptr (Ptr StdString) -> Ptr MX' -> IO (Ptr Function') casadi__MX__which_function :: MX -> IO Function casadi__MX__which_function x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__which_function errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_which_function :: MXClass a => a -> IO Function mx_which_function x = casadi__MX__which_function (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__which_output" c_casadi__MX__which_output :: Ptr (Ptr StdString) -> Ptr MX' -> IO CLLong casadi__MX__which_output :: MX -> IO Int casadi__MX__which_output x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__which_output errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_which_output :: MXClass a => a -> IO Int mx_which_output x = casadi__MX__which_output (castMX x) -- direct wrapper foreign import ccall unsafe "casadi__MX__zeros__0" c_casadi__MX__zeros__0 :: Ptr (Ptr StdString) -> Ptr (StdPair CLLong CLLong) -> IO (Ptr MX') casadi__MX__zeros__0 :: (Int, Int) -> IO MX casadi__MX__zeros__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__zeros__0 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_zeros__0 :: (Int, Int) -> IO MX mx_zeros__0 = casadi__MX__zeros__0 -- direct wrapper foreign import ccall unsafe "casadi__MX__zeros__1" c_casadi__MX__zeros__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr MX') casadi__MX__zeros__1 :: Sparsity -> IO MX casadi__MX__zeros__1 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__zeros__1 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_zeros__1 :: Sparsity -> IO MX mx_zeros__1 = casadi__MX__zeros__1 -- direct wrapper foreign import ccall unsafe "casadi__MX__zeros__2" c_casadi__MX__zeros__2 :: Ptr (Ptr StdString) -> IO (Ptr MX') casadi__MX__zeros__2 :: IO MX casadi__MX__zeros__2 = do errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__zeros__2 errStrPtrP errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) return ret -- classy wrapper mx_zeros__2 :: IO MX mx_zeros__2 = casadi__MX__zeros__2 -- direct wrapper foreign import ccall unsafe "casadi__MX__zeros__3" c_casadi__MX__zeros__3 :: Ptr (Ptr StdString) -> CLLong -> IO (Ptr MX') casadi__MX__zeros__3 :: Int -> IO MX casadi__MX__zeros__3 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__zeros__3 errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return ret -- classy wrapper mx_zeros__3 :: Int -> IO MX mx_zeros__3 = casadi__MX__zeros__3 -- direct wrapper foreign import ccall unsafe "casadi__MX__zeros__4" c_casadi__MX__zeros__4 :: Ptr (Ptr StdString) -> CLLong -> CLLong -> IO (Ptr MX') casadi__MX__zeros__4 :: Int -> Int -> IO MX casadi__MX__zeros__4 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__MX__zeros__4 errStrPtrP x0' x1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' marshalFree x1 x1' return ret -- classy wrapper mx_zeros__4 :: Int -> Int -> IO MX mx_zeros__4 = casadi__MX__zeros__4