{-# OPTIONS_GHC -Wall #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} {-# OPTIONS_GHC -fno-warn-orphans #-} {-# Language ForeignFunctionInterface #-} {-# Language FlexibleInstances #-} {-# Language MultiParamTypeClasses #-} module Casadi.Core.Classes.Sparsity ( Sparsity, SparsityClass(..), sparsity_T, sparsity__0, sparsity__1, sparsity__2, sparsity__3, sparsity__4, sparsity__5, sparsity_add_nz, sparsity_amd, sparsity_append, sparsity_appendColumns, sparsity_band, sparsity_banded, sparsity_btf, sparsity_bw_lower, sparsity_bw_upper, sparsity_colind, sparsity_columns, sparsity_combine, sparsity_compress, sparsity_compressed__0, sparsity_compressed__1, sparsity_dense__0, sparsity_dense__1, sparsity_dense__2, sparsity_density, sparsity_deserialize, sparsity_dfs, sparsity_diag__0, sparsity_diag__1, sparsity_diag__2, sparsity_dim__0, sparsity_dim__1, sparsity_enlargeColumns__0, sparsity_enlargeColumns__1, sparsity_enlargeRows__0, sparsity_enlargeRows__1, sparsity_enlarge__0, sparsity_enlarge__1, sparsity_erase__0, sparsity_erase__1, sparsity_erase__2, sparsity_erase__3, sparsity_etree__0, sparsity_etree__1, sparsity_export_code, sparsity_find__0, sparsity_find__1, sparsity_from_file__0, sparsity_from_file__1, sparsity_from_info, sparsity_get_ccs, sparsity_get_col, sparsity_get_colind, sparsity_get_crs, sparsity_get_diag, sparsity_get_lower, sparsity_get_nz__0, sparsity_get_nz__1, sparsity_get_nz__2, sparsity_get_row, sparsity_get_triplet, sparsity_get_upper, sparsity_has_nz, sparsity_hash, sparsity_info, sparsity_intersect, sparsity_is_column, sparsity_is_dense, sparsity_is_diag, sparsity_is_empty__0, sparsity_is_empty__1, sparsity_is_equal__0, sparsity_is_equal__1, sparsity_is_reshape, sparsity_is_row, sparsity_is_scalar__0, sparsity_is_scalar__1, sparsity_is_singular, sparsity_is_square, sparsity_is_stacked, sparsity_is_symmetric, sparsity_is_transpose, sparsity_is_tril, sparsity_is_triu, sparsity_is_vector, sparsity_kkt__0, sparsity_kkt__1, sparsity_kkt__2, sparsity_largest_first, sparsity_ldl__0, sparsity_ldl__1, sparsity_lower, sparsity_makeDense, sparsity_nnz, sparsity_nnz_diag, sparsity_nnz_lower__0, sparsity_nnz_lower__1, sparsity_nnz_upper__0, sparsity_nnz_upper__1, sparsity_nonzeros__0, sparsity_nonzeros__1, sparsity_numel, sparsity_operator__equals, sparsity_operator__mul, sparsity_operator__nequals, sparsity_operator__plus, sparsity_pattern_inverse, sparsity_pmult__0, sparsity_pmult__1, sparsity_pmult__2, sparsity_pmult__3, sparsity_postfix_dim, sparsity_qr_sparse__0, sparsity_qr_sparse__1, sparsity_removeDuplicates, sparsity_repr_el, sparsity_resize, sparsity_row, sparsity_rowcol, sparsity_rows, sparsity_rowsSequential__0, sparsity_rowsSequential__1, sparsity_scalar__0, sparsity_scalar__1, sparsity_scc, sparsity_serialize, sparsity_size1, sparsity_size2, sparsity_size__0, sparsity_size__1, sparsity_spy, sparsity_spy_matlab, sparsity_star_coloring2__0, sparsity_star_coloring2__1, sparsity_star_coloring2__2, sparsity_star_coloring__0, sparsity_star_coloring__1, sparsity_star_coloring__2, sparsity_sub__0, sparsity_sub__1, sparsity_sub__2, sparsity_sub__3, sparsity_to_file__0, sparsity_to_file__1, sparsity_transpose__0, sparsity_transpose__1, sparsity_triplet__0, sparsity_triplet__1, sparsity_type_name, sparsity_uni_coloring__0, sparsity_uni_coloring__1, sparsity_uni_coloring__2, sparsity_unit, sparsity_unite, sparsity_upper, ) 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__Sparsity__CONSTRUCTOR__0" c_casadi__Sparsity__CONSTRUCTOR__0 :: Ptr (Ptr StdString) -> Ptr (StdPair CLLong CLLong) -> IO (Ptr Sparsity') casadi__Sparsity__CONSTRUCTOR__0 :: (Int, Int) -> IO Sparsity casadi__Sparsity__CONSTRUCTOR__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity__0 :: (Int, Int) -> IO Sparsity sparsity__0 = casadi__Sparsity__CONSTRUCTOR__0 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__CONSTRUCTOR__1" c_casadi__Sparsity__CONSTRUCTOR__1 :: Ptr (Ptr StdString) -> CLLong -> CLLong -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> IO (Ptr Sparsity') casadi__Sparsity__CONSTRUCTOR__1 :: Int -> Int -> Vector Int -> Vector Int -> IO Sparsity casadi__Sparsity__CONSTRUCTOR__1 x0 x1 x2 x3 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__CONSTRUCTOR__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 sparsity__1 :: Int -> Int -> Vector Int -> Vector Int -> IO Sparsity sparsity__1 = casadi__Sparsity__CONSTRUCTOR__1 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__CONSTRUCTOR__2" c_casadi__Sparsity__CONSTRUCTOR__2 :: Ptr (Ptr StdString) -> CLLong -> CLLong -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> CInt -> IO (Ptr Sparsity') casadi__Sparsity__CONSTRUCTOR__2 :: Int -> Int -> Vector Int -> Vector Int -> Bool -> IO Sparsity casadi__Sparsity__CONSTRUCTOR__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__Sparsity__CONSTRUCTOR__2 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 sparsity__2 :: Int -> Int -> Vector Int -> Vector Int -> Bool -> IO Sparsity sparsity__2 = casadi__Sparsity__CONSTRUCTOR__2 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__CONSTRUCTOR__3" c_casadi__Sparsity__CONSTRUCTOR__3 :: Ptr (Ptr StdString) -> CLLong -> CLLong -> IO (Ptr Sparsity') casadi__Sparsity__CONSTRUCTOR__3 :: Int -> Int -> IO Sparsity casadi__Sparsity__CONSTRUCTOR__3 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__CONSTRUCTOR__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 sparsity__3 :: Int -> Int -> IO Sparsity sparsity__3 = casadi__Sparsity__CONSTRUCTOR__3 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__CONSTRUCTOR__4" c_casadi__Sparsity__CONSTRUCTOR__4 :: Ptr (Ptr StdString) -> IO (Ptr Sparsity') casadi__Sparsity__CONSTRUCTOR__4 :: IO Sparsity casadi__Sparsity__CONSTRUCTOR__4 = do errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__CONSTRUCTOR__4 errStrPtrP errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) return ret -- classy wrapper sparsity__4 :: IO Sparsity sparsity__4 = casadi__Sparsity__CONSTRUCTOR__4 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__CONSTRUCTOR__5" c_casadi__Sparsity__CONSTRUCTOR__5 :: Ptr (Ptr StdString) -> CLLong -> IO (Ptr Sparsity') casadi__Sparsity__CONSTRUCTOR__5 :: Int -> IO Sparsity casadi__Sparsity__CONSTRUCTOR__5 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity__5 :: Int -> IO Sparsity sparsity__5 = casadi__Sparsity__CONSTRUCTOR__5 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__T" c_casadi__Sparsity__T :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr Sparsity') casadi__Sparsity__T :: Sparsity -> IO Sparsity casadi__Sparsity__T x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_T :: SparsityClass a => a -> IO Sparsity sparsity_T x = casadi__Sparsity__T (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__add_nz" c_casadi__Sparsity__add_nz :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CLLong -> CLLong -> IO CLLong casadi__Sparsity__add_nz :: Sparsity -> Int -> Int -> IO Int casadi__Sparsity__add_nz x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__add_nz 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 sparsity_add_nz :: SparsityClass a => a -> Int -> Int -> IO Int sparsity_add_nz x = casadi__Sparsity__add_nz (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__amd" c_casadi__Sparsity__amd :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr (StdVec CLLong)) casadi__Sparsity__amd :: Sparsity -> IO (Vector Int) casadi__Sparsity__amd x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__amd 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 sparsity_amd :: SparsityClass a => a -> IO (Vector Int) sparsity_amd x = casadi__Sparsity__amd (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__append" c_casadi__Sparsity__append :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr Sparsity' -> IO () casadi__Sparsity__append :: Sparsity -> Sparsity -> IO () casadi__Sparsity__append x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__append 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 sparsity_append :: SparsityClass a => a -> Sparsity -> IO () sparsity_append x = casadi__Sparsity__append (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__appendColumns" c_casadi__Sparsity__appendColumns :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr Sparsity' -> IO () casadi__Sparsity__appendColumns :: Sparsity -> Sparsity -> IO () casadi__Sparsity__appendColumns x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__appendColumns 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 sparsity_appendColumns :: SparsityClass a => a -> Sparsity -> IO () sparsity_appendColumns x = casadi__Sparsity__appendColumns (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__band" c_casadi__Sparsity__band :: Ptr (Ptr StdString) -> CLLong -> CLLong -> IO (Ptr Sparsity') casadi__Sparsity__band :: Int -> Int -> IO Sparsity casadi__Sparsity__band x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__band 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 sparsity_band :: Int -> Int -> IO Sparsity sparsity_band = casadi__Sparsity__band -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__banded" c_casadi__Sparsity__banded :: Ptr (Ptr StdString) -> CLLong -> CLLong -> IO (Ptr Sparsity') casadi__Sparsity__banded :: Int -> Int -> IO Sparsity casadi__Sparsity__banded x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__banded 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 sparsity_banded :: Int -> Int -> IO Sparsity sparsity_banded = casadi__Sparsity__banded -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__btf" c_casadi__Sparsity__btf :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (Ptr (StdVec CLLong)) -> Ptr (Ptr (StdVec CLLong)) -> Ptr (Ptr (StdVec CLLong)) -> Ptr (Ptr (StdVec CLLong)) -> Ptr (Ptr (StdVec CLLong)) -> Ptr (Ptr (StdVec CLLong)) -> IO CLLong casadi__Sparsity__btf :: Sparsity -> IO (Int, Vector Int, Vector Int, Vector Int, Vector Int, Vector Int, Vector Int) casadi__Sparsity__btf x0 = do x0' <- marshal x0 o1' <- new nullPtr o2' <- new nullPtr o3' <- new nullPtr o4' <- new nullPtr o5' <- new nullPtr o6' <- new nullPtr errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__btf errStrPtrP x0' o1' o2' o3' o4' o5' o6' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- 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__Sparsity__btf/c_casadi__Sparsity__btf" else wrapReturn o1'' o2'' <- peek o2' free o2' o2''' <- if o2'' == nullPtr then error "swig output o2' was not set in casadi__Sparsity__btf/c_casadi__Sparsity__btf" else wrapReturn o2'' o3'' <- peek o3' free o3' o3''' <- if o3'' == nullPtr then error "swig output o3' was not set in casadi__Sparsity__btf/c_casadi__Sparsity__btf" else wrapReturn o3'' o4'' <- peek o4' free o4' o4''' <- if o4'' == nullPtr then error "swig output o4' was not set in casadi__Sparsity__btf/c_casadi__Sparsity__btf" else wrapReturn o4'' o5'' <- peek o5' free o5' o5''' <- if o5'' == nullPtr then error "swig output o5' was not set in casadi__Sparsity__btf/c_casadi__Sparsity__btf" else wrapReturn o5'' o6'' <- peek o6' free o6' o6''' <- if o6'' == nullPtr then error "swig output o6' was not set in casadi__Sparsity__btf/c_casadi__Sparsity__btf" else wrapReturn o6'' return (ret, o1''', o2''', o3''', o4''', o5''', o6''') -- classy wrapper sparsity_btf :: SparsityClass a => a -> IO (Int, Vector Int, Vector Int, Vector Int, Vector Int, Vector Int, Vector Int) sparsity_btf x = casadi__Sparsity__btf (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__bw_lower" c_casadi__Sparsity__bw_lower :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CLLong casadi__Sparsity__bw_lower :: Sparsity -> IO Int casadi__Sparsity__bw_lower x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__bw_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 sparsity_bw_lower :: SparsityClass a => a -> IO Int sparsity_bw_lower x = casadi__Sparsity__bw_lower (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__bw_upper" c_casadi__Sparsity__bw_upper :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CLLong casadi__Sparsity__bw_upper :: Sparsity -> IO Int casadi__Sparsity__bw_upper x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__bw_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 sparsity_bw_upper :: SparsityClass a => a -> IO Int sparsity_bw_upper x = casadi__Sparsity__bw_upper (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__colind" c_casadi__Sparsity__colind :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CLLong -> IO CLLong casadi__Sparsity__colind :: Sparsity -> Int -> IO Int casadi__Sparsity__colind x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_colind :: SparsityClass a => a -> Int -> IO Int sparsity_colind x = casadi__Sparsity__colind (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__columns" c_casadi__Sparsity__columns :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CLLong casadi__Sparsity__columns :: Sparsity -> IO Int casadi__Sparsity__columns x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_columns :: SparsityClass a => a -> IO Int sparsity_columns x = casadi__Sparsity__columns (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__combine" c_casadi__Sparsity__combine :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr Sparsity' -> CInt -> CInt -> IO (Ptr Sparsity') casadi__Sparsity__combine :: Sparsity -> Sparsity -> Bool -> Bool -> IO Sparsity casadi__Sparsity__combine x0 x1 x2 x3 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__combine 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 sparsity_combine :: SparsityClass a => a -> Sparsity -> Bool -> Bool -> IO Sparsity sparsity_combine x = casadi__Sparsity__combine (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__compress" c_casadi__Sparsity__compress :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr (StdVec CLLong)) casadi__Sparsity__compress :: Sparsity -> IO (Vector Int) casadi__Sparsity__compress x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__compress 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 sparsity_compress :: SparsityClass a => a -> IO (Vector Int) sparsity_compress x = casadi__Sparsity__compress (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__compressed__0" c_casadi__Sparsity__compressed__0 :: Ptr (Ptr StdString) -> Ptr (StdVec CLLong) -> IO (Ptr Sparsity') casadi__Sparsity__compressed__0 :: Vector Int -> IO Sparsity casadi__Sparsity__compressed__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__compressed__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 sparsity_compressed__0 :: Vector Int -> IO Sparsity sparsity_compressed__0 = casadi__Sparsity__compressed__0 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__compressed__1" c_casadi__Sparsity__compressed__1 :: Ptr (Ptr StdString) -> Ptr (StdVec CLLong) -> CInt -> IO (Ptr Sparsity') casadi__Sparsity__compressed__1 :: Vector Int -> Bool -> IO Sparsity casadi__Sparsity__compressed__1 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__compressed__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 sparsity_compressed__1 :: Vector Int -> Bool -> IO Sparsity sparsity_compressed__1 = casadi__Sparsity__compressed__1 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__dense__0" c_casadi__Sparsity__dense__0 :: Ptr (Ptr StdString) -> Ptr (StdPair CLLong CLLong) -> IO (Ptr Sparsity') casadi__Sparsity__dense__0 :: (Int, Int) -> IO Sparsity casadi__Sparsity__dense__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__dense__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 sparsity_dense__0 :: (Int, Int) -> IO Sparsity sparsity_dense__0 = casadi__Sparsity__dense__0 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__dense__1" c_casadi__Sparsity__dense__1 :: Ptr (Ptr StdString) -> CLLong -> IO (Ptr Sparsity') casadi__Sparsity__dense__1 :: Int -> IO Sparsity casadi__Sparsity__dense__1 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__dense__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 sparsity_dense__1 :: Int -> IO Sparsity sparsity_dense__1 = casadi__Sparsity__dense__1 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__dense__2" c_casadi__Sparsity__dense__2 :: Ptr (Ptr StdString) -> CLLong -> CLLong -> IO (Ptr Sparsity') casadi__Sparsity__dense__2 :: Int -> Int -> IO Sparsity casadi__Sparsity__dense__2 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__dense__2 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 sparsity_dense__2 :: Int -> Int -> IO Sparsity sparsity_dense__2 = casadi__Sparsity__dense__2 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__density" c_casadi__Sparsity__density :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CDouble casadi__Sparsity__density :: Sparsity -> IO Double casadi__Sparsity__density x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__density 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 sparsity_density :: SparsityClass a => a -> IO Double sparsity_density x = casadi__Sparsity__density (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__deserialize" c_casadi__Sparsity__deserialize :: Ptr (Ptr StdString) -> Ptr StdString -> IO (Ptr Sparsity') casadi__Sparsity__deserialize :: String -> IO Sparsity casadi__Sparsity__deserialize x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__deserialize 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 sparsity_deserialize :: String -> IO Sparsity sparsity_deserialize = casadi__Sparsity__deserialize -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__dfs" c_casadi__Sparsity__dfs :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CLLong -> CLLong -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> Ptr (StdVec CInt) -> IO CLLong casadi__Sparsity__dfs :: Sparsity -> Int -> Int -> Vector Int -> Vector Int -> Vector Int -> Vector Bool -> IO Int casadi__Sparsity__dfs x0 x1 x2 x3 x4 x5 x6 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 x4' <- marshal x4 x5' <- marshal x5 x6' <- marshal x6 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__dfs errStrPtrP x0' x1' x2' x3' x4' x5' x6' 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' return ret -- classy wrapper sparsity_dfs :: SparsityClass a => a -> Int -> Int -> Vector Int -> Vector Int -> Vector Int -> Vector Bool -> IO Int sparsity_dfs x = casadi__Sparsity__dfs (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__diag__0" c_casadi__Sparsity__diag__0 :: Ptr (Ptr StdString) -> Ptr (StdPair CLLong CLLong) -> IO (Ptr Sparsity') casadi__Sparsity__diag__0 :: (Int, Int) -> IO Sparsity casadi__Sparsity__diag__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__diag__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 sparsity_diag__0 :: (Int, Int) -> IO Sparsity sparsity_diag__0 = casadi__Sparsity__diag__0 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__diag__1" c_casadi__Sparsity__diag__1 :: Ptr (Ptr StdString) -> CLLong -> CLLong -> IO (Ptr Sparsity') casadi__Sparsity__diag__1 :: Int -> Int -> IO Sparsity casadi__Sparsity__diag__1 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__diag__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 sparsity_diag__1 :: Int -> Int -> IO Sparsity sparsity_diag__1 = casadi__Sparsity__diag__1 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__diag__2" c_casadi__Sparsity__diag__2 :: Ptr (Ptr StdString) -> CLLong -> IO (Ptr Sparsity') casadi__Sparsity__diag__2 :: Int -> IO Sparsity casadi__Sparsity__diag__2 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__diag__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 sparsity_diag__2 :: Int -> IO Sparsity sparsity_diag__2 = casadi__Sparsity__diag__2 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__dim__0" c_casadi__Sparsity__dim__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr StdString) casadi__Sparsity__dim__0 :: Sparsity -> IO String casadi__Sparsity__dim__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_dim__0 :: SparsityClass a => a -> IO String sparsity_dim__0 x = casadi__Sparsity__dim__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__dim__1" c_casadi__Sparsity__dim__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CInt -> IO (Ptr StdString) casadi__Sparsity__dim__1 :: Sparsity -> Bool -> IO String casadi__Sparsity__dim__1 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_dim__1 :: SparsityClass a => a -> Bool -> IO String sparsity_dim__1 x = casadi__Sparsity__dim__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__enlarge__0" c_casadi__Sparsity__enlarge__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CLLong -> CLLong -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> IO () casadi__Sparsity__enlarge__0 :: Sparsity -> Int -> Int -> Vector Int -> Vector Int -> IO () casadi__Sparsity__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__Sparsity__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 sparsity_enlarge__0 :: SparsityClass a => a -> Int -> Int -> Vector Int -> Vector Int -> IO () sparsity_enlarge__0 x = casadi__Sparsity__enlarge__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__enlarge__1" c_casadi__Sparsity__enlarge__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CLLong -> CLLong -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> CInt -> IO () casadi__Sparsity__enlarge__1 :: Sparsity -> Int -> Int -> Vector Int -> Vector Int -> Bool -> IO () casadi__Sparsity__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__Sparsity__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 sparsity_enlarge__1 :: SparsityClass a => a -> Int -> Int -> Vector Int -> Vector Int -> Bool -> IO () sparsity_enlarge__1 x = casadi__Sparsity__enlarge__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__enlargeColumns__0" c_casadi__Sparsity__enlargeColumns__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CLLong -> Ptr (StdVec CLLong) -> IO () casadi__Sparsity__enlargeColumns__0 :: Sparsity -> Int -> Vector Int -> IO () casadi__Sparsity__enlargeColumns__0 x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__enlargeColumns__0 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 sparsity_enlargeColumns__0 :: SparsityClass a => a -> Int -> Vector Int -> IO () sparsity_enlargeColumns__0 x = casadi__Sparsity__enlargeColumns__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__enlargeColumns__1" c_casadi__Sparsity__enlargeColumns__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CLLong -> Ptr (StdVec CLLong) -> CInt -> IO () casadi__Sparsity__enlargeColumns__1 :: Sparsity -> Int -> Vector Int -> Bool -> IO () casadi__Sparsity__enlargeColumns__1 x0 x1 x2 x3 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__enlargeColumns__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 sparsity_enlargeColumns__1 :: SparsityClass a => a -> Int -> Vector Int -> Bool -> IO () sparsity_enlargeColumns__1 x = casadi__Sparsity__enlargeColumns__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__enlargeRows__0" c_casadi__Sparsity__enlargeRows__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CLLong -> Ptr (StdVec CLLong) -> IO () casadi__Sparsity__enlargeRows__0 :: Sparsity -> Int -> Vector Int -> IO () casadi__Sparsity__enlargeRows__0 x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__enlargeRows__0 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 sparsity_enlargeRows__0 :: SparsityClass a => a -> Int -> Vector Int -> IO () sparsity_enlargeRows__0 x = casadi__Sparsity__enlargeRows__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__enlargeRows__1" c_casadi__Sparsity__enlargeRows__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CLLong -> Ptr (StdVec CLLong) -> CInt -> IO () casadi__Sparsity__enlargeRows__1 :: Sparsity -> Int -> Vector Int -> Bool -> IO () casadi__Sparsity__enlargeRows__1 x0 x1 x2 x3 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__enlargeRows__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 sparsity_enlargeRows__1 :: SparsityClass a => a -> Int -> Vector Int -> Bool -> IO () sparsity_enlargeRows__1 x = casadi__Sparsity__enlargeRows__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__erase__0" c_casadi__Sparsity__erase__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (StdVec CLLong) -> IO (Ptr (StdVec CLLong)) casadi__Sparsity__erase__0 :: Sparsity -> Vector Int -> IO (Vector Int) casadi__Sparsity__erase__0 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__erase__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 sparsity_erase__0 :: SparsityClass a => a -> Vector Int -> IO (Vector Int) sparsity_erase__0 x = casadi__Sparsity__erase__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__erase__1" c_casadi__Sparsity__erase__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (StdVec CLLong) -> CInt -> IO (Ptr (StdVec CLLong)) casadi__Sparsity__erase__1 :: Sparsity -> Vector Int -> Bool -> IO (Vector Int) casadi__Sparsity__erase__1 x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__erase__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 sparsity_erase__1 :: SparsityClass a => a -> Vector Int -> Bool -> IO (Vector Int) sparsity_erase__1 x = casadi__Sparsity__erase__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__erase__2" c_casadi__Sparsity__erase__2 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> IO (Ptr (StdVec CLLong)) casadi__Sparsity__erase__2 :: Sparsity -> Vector Int -> Vector Int -> IO (Vector Int) casadi__Sparsity__erase__2 x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__erase__2 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 sparsity_erase__2 :: SparsityClass a => a -> Vector Int -> Vector Int -> IO (Vector Int) sparsity_erase__2 x = casadi__Sparsity__erase__2 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__erase__3" c_casadi__Sparsity__erase__3 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> CInt -> IO (Ptr (StdVec CLLong)) casadi__Sparsity__erase__3 :: Sparsity -> Vector Int -> Vector Int -> Bool -> IO (Vector Int) casadi__Sparsity__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__Sparsity__erase__3 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 sparsity_erase__3 :: SparsityClass a => a -> Vector Int -> Vector Int -> Bool -> IO (Vector Int) sparsity_erase__3 x = casadi__Sparsity__erase__3 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__etree__0" c_casadi__Sparsity__etree__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr (StdVec CLLong)) casadi__Sparsity__etree__0 :: Sparsity -> IO (Vector Int) casadi__Sparsity__etree__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__etree__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 sparsity_etree__0 :: SparsityClass a => a -> IO (Vector Int) sparsity_etree__0 x = casadi__Sparsity__etree__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__etree__1" c_casadi__Sparsity__etree__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CInt -> IO (Ptr (StdVec CLLong)) casadi__Sparsity__etree__1 :: Sparsity -> Bool -> IO (Vector Int) casadi__Sparsity__etree__1 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__etree__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 sparsity_etree__1 :: SparsityClass a => a -> Bool -> IO (Vector Int) sparsity_etree__1 x = casadi__Sparsity__etree__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__export_code" c_casadi__Sparsity__export_code :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr StdString -> IO () casadi__Sparsity__export_code :: Sparsity -> String -> IO () casadi__Sparsity__export_code x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__export_code 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 sparsity_export_code :: SparsityClass a => a -> String -> IO () sparsity_export_code x = casadi__Sparsity__export_code (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__find__0" c_casadi__Sparsity__find__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr (StdVec CLLong)) casadi__Sparsity__find__0 :: Sparsity -> IO (Vector Int) casadi__Sparsity__find__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__find__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 sparsity_find__0 :: SparsityClass a => a -> IO (Vector Int) sparsity_find__0 x = casadi__Sparsity__find__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__find__1" c_casadi__Sparsity__find__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CInt -> IO (Ptr (StdVec CLLong)) casadi__Sparsity__find__1 :: Sparsity -> Bool -> IO (Vector Int) casadi__Sparsity__find__1 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__find__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 sparsity_find__1 :: SparsityClass a => a -> Bool -> IO (Vector Int) sparsity_find__1 x = casadi__Sparsity__find__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__from_file__0" c_casadi__Sparsity__from_file__0 :: Ptr (Ptr StdString) -> Ptr StdString -> IO (Ptr Sparsity') casadi__Sparsity__from_file__0 :: String -> IO Sparsity casadi__Sparsity__from_file__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__from_file__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 sparsity_from_file__0 :: String -> IO Sparsity sparsity_from_file__0 = casadi__Sparsity__from_file__0 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__from_file__1" c_casadi__Sparsity__from_file__1 :: Ptr (Ptr StdString) -> Ptr StdString -> Ptr StdString -> IO (Ptr Sparsity') casadi__Sparsity__from_file__1 :: String -> String -> IO Sparsity casadi__Sparsity__from_file__1 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__from_file__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 sparsity_from_file__1 :: String -> String -> IO Sparsity sparsity_from_file__1 = casadi__Sparsity__from_file__1 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__from_info" c_casadi__Sparsity__from_info :: Ptr (Ptr StdString) -> Ptr (StdMap StdString (Ptr GenericType')) -> IO (Ptr Sparsity') casadi__Sparsity__from_info :: M.Map String GenericType -> IO Sparsity casadi__Sparsity__from_info x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__from_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 sparsity_from_info :: M.Map String GenericType -> IO Sparsity sparsity_from_info = casadi__Sparsity__from_info -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__get_ccs" c_casadi__Sparsity__get_ccs :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (Ptr (StdVec CLLong)) -> Ptr (Ptr (StdVec CLLong)) -> IO () casadi__Sparsity__get_ccs :: Sparsity -> IO (Vector Int, Vector Int) casadi__Sparsity__get_ccs x0 = do x0' <- marshal x0 o1' <- new nullPtr o2' <- new nullPtr errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__get_ccs errStrPtrP x0' o1' o2' 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__Sparsity__get_ccs/c_casadi__Sparsity__get_ccs" else wrapReturn o1'' o2'' <- peek o2' free o2' o2''' <- if o2'' == nullPtr then error "swig output o2' was not set in casadi__Sparsity__get_ccs/c_casadi__Sparsity__get_ccs" else wrapReturn o2'' return (o1''', o2''') -- classy wrapper sparsity_get_ccs :: SparsityClass a => a -> IO (Vector Int, Vector Int) sparsity_get_ccs x = casadi__Sparsity__get_ccs (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__get_col" c_casadi__Sparsity__get_col :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr (StdVec CLLong)) casadi__Sparsity__get_col :: Sparsity -> IO (Vector Int) casadi__Sparsity__get_col x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__get_col 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 sparsity_get_col :: SparsityClass a => a -> IO (Vector Int) sparsity_get_col x = casadi__Sparsity__get_col (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__get_colind" c_casadi__Sparsity__get_colind :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr (StdVec CLLong)) casadi__Sparsity__get_colind :: Sparsity -> IO (Vector Int) casadi__Sparsity__get_colind x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_get_colind :: SparsityClass a => a -> IO (Vector Int) sparsity_get_colind x = casadi__Sparsity__get_colind (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__get_crs" c_casadi__Sparsity__get_crs :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (Ptr (StdVec CLLong)) -> Ptr (Ptr (StdVec CLLong)) -> IO () casadi__Sparsity__get_crs :: Sparsity -> IO (Vector Int, Vector Int) casadi__Sparsity__get_crs x0 = do x0' <- marshal x0 o1' <- new nullPtr o2' <- new nullPtr errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__get_crs errStrPtrP x0' o1' o2' 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__Sparsity__get_crs/c_casadi__Sparsity__get_crs" else wrapReturn o1'' o2'' <- peek o2' free o2' o2''' <- if o2'' == nullPtr then error "swig output o2' was not set in casadi__Sparsity__get_crs/c_casadi__Sparsity__get_crs" else wrapReturn o2'' return (o1''', o2''') -- classy wrapper sparsity_get_crs :: SparsityClass a => a -> IO (Vector Int, Vector Int) sparsity_get_crs x = casadi__Sparsity__get_crs (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__get_diag" c_casadi__Sparsity__get_diag :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (Ptr (StdVec CLLong)) -> IO (Ptr Sparsity') casadi__Sparsity__get_diag :: Sparsity -> IO (Sparsity, Vector Int) casadi__Sparsity__get_diag x0 = do x0' <- marshal x0 o1' <- new nullPtr errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__get_diag errStrPtrP x0' o1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- 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__Sparsity__get_diag/c_casadi__Sparsity__get_diag" else wrapReturn o1'' return (ret, o1''') -- classy wrapper sparsity_get_diag :: SparsityClass a => a -> IO (Sparsity, Vector Int) sparsity_get_diag x = casadi__Sparsity__get_diag (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__get_lower" c_casadi__Sparsity__get_lower :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr (StdVec CLLong)) casadi__Sparsity__get_lower :: Sparsity -> IO (Vector Int) casadi__Sparsity__get_lower x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__get_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 sparsity_get_lower :: SparsityClass a => a -> IO (Vector Int) sparsity_get_lower x = casadi__Sparsity__get_lower (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__get_nz__0" c_casadi__Sparsity__get_nz__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (StdVec CLLong) -> IO () casadi__Sparsity__get_nz__0 :: Sparsity -> Vector Int -> IO () casadi__Sparsity__get_nz__0 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__get_nz__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 sparsity_get_nz__0 :: SparsityClass a => a -> Vector Int -> IO () sparsity_get_nz__0 x = casadi__Sparsity__get_nz__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__get_nz__1" c_casadi__Sparsity__get_nz__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> IO (Ptr (StdVec CLLong)) casadi__Sparsity__get_nz__1 :: Sparsity -> Vector Int -> Vector Int -> IO (Vector Int) casadi__Sparsity__get_nz__1 x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__get_nz__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 sparsity_get_nz__1 :: SparsityClass a => a -> Vector Int -> Vector Int -> IO (Vector Int) sparsity_get_nz__1 x = casadi__Sparsity__get_nz__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__get_nz__2" c_casadi__Sparsity__get_nz__2 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CLLong -> CLLong -> IO CLLong casadi__Sparsity__get_nz__2 :: Sparsity -> Int -> Int -> IO Int casadi__Sparsity__get_nz__2 x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__get_nz__2 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 sparsity_get_nz__2 :: SparsityClass a => a -> Int -> Int -> IO Int sparsity_get_nz__2 x = casadi__Sparsity__get_nz__2 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__get_row" c_casadi__Sparsity__get_row :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr (StdVec CLLong)) casadi__Sparsity__get_row :: Sparsity -> IO (Vector Int) casadi__Sparsity__get_row x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_get_row :: SparsityClass a => a -> IO (Vector Int) sparsity_get_row x = casadi__Sparsity__get_row (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__get_triplet" c_casadi__Sparsity__get_triplet :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (Ptr (StdVec CLLong)) -> Ptr (Ptr (StdVec CLLong)) -> IO () casadi__Sparsity__get_triplet :: Sparsity -> IO (Vector Int, Vector Int) casadi__Sparsity__get_triplet x0 = do x0' <- marshal x0 o1' <- new nullPtr o2' <- new nullPtr errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__get_triplet errStrPtrP x0' o1' o2' 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__Sparsity__get_triplet/c_casadi__Sparsity__get_triplet" else wrapReturn o1'' o2'' <- peek o2' free o2' o2''' <- if o2'' == nullPtr then error "swig output o2' was not set in casadi__Sparsity__get_triplet/c_casadi__Sparsity__get_triplet" else wrapReturn o2'' return (o1''', o2''') -- classy wrapper sparsity_get_triplet :: SparsityClass a => a -> IO (Vector Int, Vector Int) sparsity_get_triplet x = casadi__Sparsity__get_triplet (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__get_upper" c_casadi__Sparsity__get_upper :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr (StdVec CLLong)) casadi__Sparsity__get_upper :: Sparsity -> IO (Vector Int) casadi__Sparsity__get_upper x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__get_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 sparsity_get_upper :: SparsityClass a => a -> IO (Vector Int) sparsity_get_upper x = casadi__Sparsity__get_upper (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__has_nz" c_casadi__Sparsity__has_nz :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CLLong -> CLLong -> IO CInt casadi__Sparsity__has_nz :: Sparsity -> Int -> Int -> IO Bool casadi__Sparsity__has_nz x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__has_nz 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 sparsity_has_nz :: SparsityClass a => a -> Int -> Int -> IO Bool sparsity_has_nz x = casadi__Sparsity__has_nz (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__hash" c_casadi__Sparsity__hash :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CSize casadi__Sparsity__hash :: Sparsity -> IO CSize casadi__Sparsity__hash x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__hash 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 sparsity_hash :: SparsityClass a => a -> IO CSize sparsity_hash x = casadi__Sparsity__hash (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__info" c_casadi__Sparsity__info :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr (StdMap StdString (Ptr GenericType'))) casadi__Sparsity__info :: Sparsity -> IO (M.Map String GenericType) casadi__Sparsity__info x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_info :: SparsityClass a => a -> IO (M.Map String GenericType) sparsity_info x = casadi__Sparsity__info (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__intersect" c_casadi__Sparsity__intersect :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr Sparsity' -> IO (Ptr Sparsity') casadi__Sparsity__intersect :: Sparsity -> Sparsity -> IO Sparsity casadi__Sparsity__intersect x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__intersect 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 sparsity_intersect :: SparsityClass a => a -> Sparsity -> IO Sparsity sparsity_intersect x = casadi__Sparsity__intersect (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__is_column" c_casadi__Sparsity__is_column :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CInt casadi__Sparsity__is_column :: Sparsity -> IO Bool casadi__Sparsity__is_column x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_is_column :: SparsityClass a => a -> IO Bool sparsity_is_column x = casadi__Sparsity__is_column (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__is_dense" c_casadi__Sparsity__is_dense :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CInt casadi__Sparsity__is_dense :: Sparsity -> IO Bool casadi__Sparsity__is_dense x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_is_dense :: SparsityClass a => a -> IO Bool sparsity_is_dense x = casadi__Sparsity__is_dense (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__is_diag" c_casadi__Sparsity__is_diag :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CInt casadi__Sparsity__is_diag :: Sparsity -> IO Bool casadi__Sparsity__is_diag x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__is_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 sparsity_is_diag :: SparsityClass a => a -> IO Bool sparsity_is_diag x = casadi__Sparsity__is_diag (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__is_empty__0" c_casadi__Sparsity__is_empty__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CInt casadi__Sparsity__is_empty__0 :: Sparsity -> IO Bool casadi__Sparsity__is_empty__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_is_empty__0 :: SparsityClass a => a -> IO Bool sparsity_is_empty__0 x = casadi__Sparsity__is_empty__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__is_empty__1" c_casadi__Sparsity__is_empty__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CInt -> IO CInt casadi__Sparsity__is_empty__1 :: Sparsity -> Bool -> IO Bool casadi__Sparsity__is_empty__1 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_is_empty__1 :: SparsityClass a => a -> Bool -> IO Bool sparsity_is_empty__1 x = casadi__Sparsity__is_empty__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__is_equal__0" c_casadi__Sparsity__is_equal__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CLLong -> CLLong -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> IO CInt casadi__Sparsity__is_equal__0 :: Sparsity -> Int -> Int -> Vector Int -> Vector Int -> IO Bool casadi__Sparsity__is_equal__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__Sparsity__is_equal__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 sparsity_is_equal__0 :: SparsityClass a => a -> Int -> Int -> Vector Int -> Vector Int -> IO Bool sparsity_is_equal__0 x = casadi__Sparsity__is_equal__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__is_equal__1" c_casadi__Sparsity__is_equal__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr Sparsity' -> IO CInt casadi__Sparsity__is_equal__1 :: Sparsity -> Sparsity -> IO Bool casadi__Sparsity__is_equal__1 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__is_equal__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 sparsity_is_equal__1 :: SparsityClass a => a -> Sparsity -> IO Bool sparsity_is_equal__1 x = casadi__Sparsity__is_equal__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__is_reshape" c_casadi__Sparsity__is_reshape :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr Sparsity' -> IO CInt casadi__Sparsity__is_reshape :: Sparsity -> Sparsity -> IO Bool casadi__Sparsity__is_reshape x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__is_reshape 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 sparsity_is_reshape :: SparsityClass a => a -> Sparsity -> IO Bool sparsity_is_reshape x = casadi__Sparsity__is_reshape (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__is_row" c_casadi__Sparsity__is_row :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CInt casadi__Sparsity__is_row :: Sparsity -> IO Bool casadi__Sparsity__is_row x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_is_row :: SparsityClass a => a -> IO Bool sparsity_is_row x = casadi__Sparsity__is_row (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__is_scalar__0" c_casadi__Sparsity__is_scalar__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CInt casadi__Sparsity__is_scalar__0 :: Sparsity -> IO Bool casadi__Sparsity__is_scalar__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_is_scalar__0 :: SparsityClass a => a -> IO Bool sparsity_is_scalar__0 x = casadi__Sparsity__is_scalar__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__is_scalar__1" c_casadi__Sparsity__is_scalar__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CInt -> IO CInt casadi__Sparsity__is_scalar__1 :: Sparsity -> Bool -> IO Bool casadi__Sparsity__is_scalar__1 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_is_scalar__1 :: SparsityClass a => a -> Bool -> IO Bool sparsity_is_scalar__1 x = casadi__Sparsity__is_scalar__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__is_singular" c_casadi__Sparsity__is_singular :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CInt casadi__Sparsity__is_singular :: Sparsity -> IO Bool casadi__Sparsity__is_singular x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__is_singular 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 sparsity_is_singular :: SparsityClass a => a -> IO Bool sparsity_is_singular x = casadi__Sparsity__is_singular (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__is_square" c_casadi__Sparsity__is_square :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CInt casadi__Sparsity__is_square :: Sparsity -> IO Bool casadi__Sparsity__is_square x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_is_square :: SparsityClass a => a -> IO Bool sparsity_is_square x = casadi__Sparsity__is_square (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__is_stacked" c_casadi__Sparsity__is_stacked :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr Sparsity' -> CLLong -> IO CInt casadi__Sparsity__is_stacked :: Sparsity -> Sparsity -> Int -> IO Bool casadi__Sparsity__is_stacked x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__is_stacked 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 sparsity_is_stacked :: SparsityClass a => a -> Sparsity -> Int -> IO Bool sparsity_is_stacked x = casadi__Sparsity__is_stacked (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__is_symmetric" c_casadi__Sparsity__is_symmetric :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CInt casadi__Sparsity__is_symmetric :: Sparsity -> IO Bool casadi__Sparsity__is_symmetric x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__is_symmetric 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 sparsity_is_symmetric :: SparsityClass a => a -> IO Bool sparsity_is_symmetric x = casadi__Sparsity__is_symmetric (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__is_transpose" c_casadi__Sparsity__is_transpose :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr Sparsity' -> IO CInt casadi__Sparsity__is_transpose :: Sparsity -> Sparsity -> IO Bool casadi__Sparsity__is_transpose x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__is_transpose 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 sparsity_is_transpose :: SparsityClass a => a -> Sparsity -> IO Bool sparsity_is_transpose x = casadi__Sparsity__is_transpose (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__is_tril" c_casadi__Sparsity__is_tril :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CInt casadi__Sparsity__is_tril :: Sparsity -> IO Bool casadi__Sparsity__is_tril x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_is_tril :: SparsityClass a => a -> IO Bool sparsity_is_tril x = casadi__Sparsity__is_tril (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__is_triu" c_casadi__Sparsity__is_triu :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CInt casadi__Sparsity__is_triu :: Sparsity -> IO Bool casadi__Sparsity__is_triu x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_is_triu :: SparsityClass a => a -> IO Bool sparsity_is_triu x = casadi__Sparsity__is_triu (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__is_vector" c_casadi__Sparsity__is_vector :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CInt casadi__Sparsity__is_vector :: Sparsity -> IO Bool casadi__Sparsity__is_vector x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_is_vector :: SparsityClass a => a -> IO Bool sparsity_is_vector x = casadi__Sparsity__is_vector (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__kkt__0" c_casadi__Sparsity__kkt__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr Sparsity' -> IO (Ptr Sparsity') casadi__Sparsity__kkt__0 :: Sparsity -> Sparsity -> IO Sparsity casadi__Sparsity__kkt__0 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__kkt__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 sparsity_kkt__0 :: Sparsity -> Sparsity -> IO Sparsity sparsity_kkt__0 = casadi__Sparsity__kkt__0 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__kkt__1" c_casadi__Sparsity__kkt__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr Sparsity' -> CInt -> IO (Ptr Sparsity') casadi__Sparsity__kkt__1 :: Sparsity -> Sparsity -> Bool -> IO Sparsity casadi__Sparsity__kkt__1 x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__kkt__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 sparsity_kkt__1 :: Sparsity -> Sparsity -> Bool -> IO Sparsity sparsity_kkt__1 = casadi__Sparsity__kkt__1 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__kkt__2" c_casadi__Sparsity__kkt__2 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr Sparsity' -> CInt -> CInt -> IO (Ptr Sparsity') casadi__Sparsity__kkt__2 :: Sparsity -> Sparsity -> Bool -> Bool -> IO Sparsity casadi__Sparsity__kkt__2 x0 x1 x2 x3 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__kkt__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 sparsity_kkt__2 :: Sparsity -> Sparsity -> Bool -> Bool -> IO Sparsity sparsity_kkt__2 = casadi__Sparsity__kkt__2 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__largest_first" c_casadi__Sparsity__largest_first :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr (StdVec CLLong)) casadi__Sparsity__largest_first :: Sparsity -> IO (Vector Int) casadi__Sparsity__largest_first x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__largest_first 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 sparsity_largest_first :: SparsityClass a => a -> IO (Vector Int) sparsity_largest_first x = casadi__Sparsity__largest_first (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__ldl__0" c_casadi__Sparsity__ldl__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (Ptr (StdVec CLLong)) -> IO (Ptr Sparsity') casadi__Sparsity__ldl__0 :: Sparsity -> IO (Sparsity, Vector Int) casadi__Sparsity__ldl__0 x0 = do x0' <- marshal x0 o1' <- new nullPtr errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__ldl__0 errStrPtrP x0' o1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- 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__Sparsity__ldl__0/c_casadi__Sparsity__ldl__0" else wrapReturn o1'' return (ret, o1''') -- classy wrapper sparsity_ldl__0 :: SparsityClass a => a -> IO (Sparsity, Vector Int) sparsity_ldl__0 x = casadi__Sparsity__ldl__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__ldl__1" c_casadi__Sparsity__ldl__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (Ptr (StdVec CLLong)) -> CInt -> IO (Ptr Sparsity') casadi__Sparsity__ldl__1 :: Sparsity -> Bool -> IO (Sparsity, Vector Int) casadi__Sparsity__ldl__1 x0 x2 = do x0' <- marshal x0 o1' <- new nullPtr x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__ldl__1 errStrPtrP x0' o1' x2' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- 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__Sparsity__ldl__1/c_casadi__Sparsity__ldl__1" else wrapReturn o1'' marshalFree x2 x2' return (ret, o1''') -- classy wrapper sparsity_ldl__1 :: SparsityClass a => a -> Bool -> IO (Sparsity, Vector Int) sparsity_ldl__1 x = casadi__Sparsity__ldl__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__lower" c_casadi__Sparsity__lower :: Ptr (Ptr StdString) -> CLLong -> IO (Ptr Sparsity') casadi__Sparsity__lower :: Int -> IO Sparsity casadi__Sparsity__lower x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_lower :: Int -> IO Sparsity sparsity_lower = casadi__Sparsity__lower -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__makeDense" c_casadi__Sparsity__makeDense :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (Ptr (StdVec CLLong)) -> IO (Ptr Sparsity') casadi__Sparsity__makeDense :: Sparsity -> IO (Sparsity, Vector Int) casadi__Sparsity__makeDense x0 = do x0' <- marshal x0 o1' <- new nullPtr errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__makeDense errStrPtrP x0' o1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- 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__Sparsity__makeDense/c_casadi__Sparsity__makeDense" else wrapReturn o1'' return (ret, o1''') -- classy wrapper sparsity_makeDense :: SparsityClass a => a -> IO (Sparsity, Vector Int) sparsity_makeDense x = casadi__Sparsity__makeDense (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__nnz" c_casadi__Sparsity__nnz :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CLLong casadi__Sparsity__nnz :: Sparsity -> IO Int casadi__Sparsity__nnz x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_nnz :: SparsityClass a => a -> IO Int sparsity_nnz x = casadi__Sparsity__nnz (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__nnz_diag" c_casadi__Sparsity__nnz_diag :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CLLong casadi__Sparsity__nnz_diag :: Sparsity -> IO Int casadi__Sparsity__nnz_diag x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_nnz_diag :: SparsityClass a => a -> IO Int sparsity_nnz_diag x = casadi__Sparsity__nnz_diag (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__nnz_lower__0" c_casadi__Sparsity__nnz_lower__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CLLong casadi__Sparsity__nnz_lower__0 :: Sparsity -> IO Int casadi__Sparsity__nnz_lower__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__nnz_lower__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 sparsity_nnz_lower__0 :: SparsityClass a => a -> IO Int sparsity_nnz_lower__0 x = casadi__Sparsity__nnz_lower__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__nnz_lower__1" c_casadi__Sparsity__nnz_lower__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CInt -> IO CLLong casadi__Sparsity__nnz_lower__1 :: Sparsity -> Bool -> IO Int casadi__Sparsity__nnz_lower__1 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__nnz_lower__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 sparsity_nnz_lower__1 :: SparsityClass a => a -> Bool -> IO Int sparsity_nnz_lower__1 x = casadi__Sparsity__nnz_lower__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__nnz_upper__0" c_casadi__Sparsity__nnz_upper__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CLLong casadi__Sparsity__nnz_upper__0 :: Sparsity -> IO Int casadi__Sparsity__nnz_upper__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__nnz_upper__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 sparsity_nnz_upper__0 :: SparsityClass a => a -> IO Int sparsity_nnz_upper__0 x = casadi__Sparsity__nnz_upper__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__nnz_upper__1" c_casadi__Sparsity__nnz_upper__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CInt -> IO CLLong casadi__Sparsity__nnz_upper__1 :: Sparsity -> Bool -> IO Int casadi__Sparsity__nnz_upper__1 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__nnz_upper__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 sparsity_nnz_upper__1 :: SparsityClass a => a -> Bool -> IO Int sparsity_nnz_upper__1 x = casadi__Sparsity__nnz_upper__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__nonzeros__0" c_casadi__Sparsity__nonzeros__0 :: Ptr (Ptr StdString) -> CLLong -> CLLong -> Ptr (StdVec CLLong) -> IO (Ptr Sparsity') casadi__Sparsity__nonzeros__0 :: Int -> Int -> Vector Int -> IO Sparsity casadi__Sparsity__nonzeros__0 x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__nonzeros__0 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 sparsity_nonzeros__0 :: Int -> Int -> Vector Int -> IO Sparsity sparsity_nonzeros__0 = casadi__Sparsity__nonzeros__0 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__nonzeros__1" c_casadi__Sparsity__nonzeros__1 :: Ptr (Ptr StdString) -> CLLong -> CLLong -> Ptr (StdVec CLLong) -> CInt -> IO (Ptr Sparsity') casadi__Sparsity__nonzeros__1 :: Int -> Int -> Vector Int -> Bool -> IO Sparsity casadi__Sparsity__nonzeros__1 x0 x1 x2 x3 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__nonzeros__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 sparsity_nonzeros__1 :: Int -> Int -> Vector Int -> Bool -> IO Sparsity sparsity_nonzeros__1 = casadi__Sparsity__nonzeros__1 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__numel" c_casadi__Sparsity__numel :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CLLong casadi__Sparsity__numel :: Sparsity -> IO Int casadi__Sparsity__numel x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_numel :: SparsityClass a => a -> IO Int sparsity_numel x = casadi__Sparsity__numel (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__operator__nequals" c_casadi__Sparsity__operator__nequals :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr Sparsity' -> IO CInt casadi__Sparsity__operator__nequals :: Sparsity -> Sparsity -> IO Bool casadi__Sparsity__operator__nequals x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__operator__nequals 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 sparsity_operator__nequals :: SparsityClass a => a -> Sparsity -> IO Bool sparsity_operator__nequals x = casadi__Sparsity__operator__nequals (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__operator__mul" c_casadi__Sparsity__operator__mul :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr Sparsity' -> IO (Ptr Sparsity') casadi__Sparsity__operator__mul :: Sparsity -> Sparsity -> IO Sparsity casadi__Sparsity__operator__mul x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__operator__mul 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 sparsity_operator__mul :: SparsityClass a => a -> Sparsity -> IO Sparsity sparsity_operator__mul x = casadi__Sparsity__operator__mul (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__operator__plus" c_casadi__Sparsity__operator__plus :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr Sparsity' -> IO (Ptr Sparsity') casadi__Sparsity__operator__plus :: Sparsity -> Sparsity -> IO Sparsity casadi__Sparsity__operator__plus x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__operator__plus 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 sparsity_operator__plus :: SparsityClass a => a -> Sparsity -> IO Sparsity sparsity_operator__plus x = casadi__Sparsity__operator__plus (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__operator__equals" c_casadi__Sparsity__operator__equals :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr Sparsity' -> IO CInt casadi__Sparsity__operator__equals :: Sparsity -> Sparsity -> IO Bool casadi__Sparsity__operator__equals x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__operator__equals 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 sparsity_operator__equals :: SparsityClass a => a -> Sparsity -> IO Bool sparsity_operator__equals x = casadi__Sparsity__operator__equals (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__pattern_inverse" c_casadi__Sparsity__pattern_inverse :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr Sparsity') casadi__Sparsity__pattern_inverse :: Sparsity -> IO Sparsity casadi__Sparsity__pattern_inverse x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__pattern_inverse 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 sparsity_pattern_inverse :: SparsityClass a => a -> IO Sparsity sparsity_pattern_inverse x = casadi__Sparsity__pattern_inverse (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__pmult__0" c_casadi__Sparsity__pmult__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (StdVec CLLong) -> IO (Ptr Sparsity') casadi__Sparsity__pmult__0 :: Sparsity -> Vector Int -> IO Sparsity casadi__Sparsity__pmult__0 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__pmult__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 sparsity_pmult__0 :: SparsityClass a => a -> Vector Int -> IO Sparsity sparsity_pmult__0 x = casadi__Sparsity__pmult__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__pmult__1" c_casadi__Sparsity__pmult__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (StdVec CLLong) -> CInt -> IO (Ptr Sparsity') casadi__Sparsity__pmult__1 :: Sparsity -> Vector Int -> Bool -> IO Sparsity casadi__Sparsity__pmult__1 x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__pmult__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 sparsity_pmult__1 :: SparsityClass a => a -> Vector Int -> Bool -> IO Sparsity sparsity_pmult__1 x = casadi__Sparsity__pmult__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__pmult__2" c_casadi__Sparsity__pmult__2 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (StdVec CLLong) -> CInt -> CInt -> IO (Ptr Sparsity') casadi__Sparsity__pmult__2 :: Sparsity -> Vector Int -> Bool -> Bool -> IO Sparsity casadi__Sparsity__pmult__2 x0 x1 x2 x3 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__pmult__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 sparsity_pmult__2 :: SparsityClass a => a -> Vector Int -> Bool -> Bool -> IO Sparsity sparsity_pmult__2 x = casadi__Sparsity__pmult__2 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__pmult__3" c_casadi__Sparsity__pmult__3 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (StdVec CLLong) -> CInt -> CInt -> CInt -> IO (Ptr Sparsity') casadi__Sparsity__pmult__3 :: Sparsity -> Vector Int -> Bool -> Bool -> Bool -> IO Sparsity casadi__Sparsity__pmult__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__Sparsity__pmult__3 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 sparsity_pmult__3 :: SparsityClass a => a -> Vector Int -> Bool -> Bool -> Bool -> IO Sparsity sparsity_pmult__3 x = casadi__Sparsity__pmult__3 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__postfix_dim" c_casadi__Sparsity__postfix_dim :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr StdString) casadi__Sparsity__postfix_dim :: Sparsity -> IO String casadi__Sparsity__postfix_dim x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__postfix_dim 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 sparsity_postfix_dim :: SparsityClass a => a -> IO String sparsity_postfix_dim x = casadi__Sparsity__postfix_dim (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__qr_sparse__0" c_casadi__Sparsity__qr_sparse__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (Ptr Sparsity') -> Ptr (Ptr Sparsity') -> Ptr (Ptr (StdVec CLLong)) -> Ptr (Ptr (StdVec CLLong)) -> IO () casadi__Sparsity__qr_sparse__0 :: Sparsity -> IO (Sparsity, Sparsity, Vector Int, Vector Int) casadi__Sparsity__qr_sparse__0 x0 = do x0' <- marshal x0 o1' <- new nullPtr o2' <- new nullPtr o3' <- new nullPtr o4' <- new nullPtr errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__qr_sparse__0 errStrPtrP x0' o1' o2' o3' o4' 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__Sparsity__qr_sparse__0/c_casadi__Sparsity__qr_sparse__0" else wrapReturn o1'' o2'' <- peek o2' free o2' o2''' <- if o2'' == nullPtr then error "swig output o2' was not set in casadi__Sparsity__qr_sparse__0/c_casadi__Sparsity__qr_sparse__0" else wrapReturn o2'' o3'' <- peek o3' free o3' o3''' <- if o3'' == nullPtr then error "swig output o3' was not set in casadi__Sparsity__qr_sparse__0/c_casadi__Sparsity__qr_sparse__0" else wrapReturn o3'' o4'' <- peek o4' free o4' o4''' <- if o4'' == nullPtr then error "swig output o4' was not set in casadi__Sparsity__qr_sparse__0/c_casadi__Sparsity__qr_sparse__0" else wrapReturn o4'' return (o1''', o2''', o3''', o4''') -- classy wrapper sparsity_qr_sparse__0 :: SparsityClass a => a -> IO (Sparsity, Sparsity, Vector Int, Vector Int) sparsity_qr_sparse__0 x = casadi__Sparsity__qr_sparse__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__qr_sparse__1" c_casadi__Sparsity__qr_sparse__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (Ptr Sparsity') -> Ptr (Ptr Sparsity') -> Ptr (Ptr (StdVec CLLong)) -> Ptr (Ptr (StdVec CLLong)) -> CInt -> IO () casadi__Sparsity__qr_sparse__1 :: Sparsity -> Bool -> IO (Sparsity, Sparsity, Vector Int, Vector Int) casadi__Sparsity__qr_sparse__1 x0 x5 = do x0' <- marshal x0 o1' <- new nullPtr o2' <- new nullPtr o3' <- new nullPtr o4' <- new nullPtr x5' <- marshal x5 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__qr_sparse__1 errStrPtrP x0' o1' o2' o3' o4' x5' 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__Sparsity__qr_sparse__1/c_casadi__Sparsity__qr_sparse__1" else wrapReturn o1'' o2'' <- peek o2' free o2' o2''' <- if o2'' == nullPtr then error "swig output o2' was not set in casadi__Sparsity__qr_sparse__1/c_casadi__Sparsity__qr_sparse__1" else wrapReturn o2'' o3'' <- peek o3' free o3' o3''' <- if o3'' == nullPtr then error "swig output o3' was not set in casadi__Sparsity__qr_sparse__1/c_casadi__Sparsity__qr_sparse__1" else wrapReturn o3'' o4'' <- peek o4' free o4' o4''' <- if o4'' == nullPtr then error "swig output o4' was not set in casadi__Sparsity__qr_sparse__1/c_casadi__Sparsity__qr_sparse__1" else wrapReturn o4'' marshalFree x5 x5' return (o1''', o2''', o3''', o4''') -- classy wrapper sparsity_qr_sparse__1 :: SparsityClass a => a -> Bool -> IO (Sparsity, Sparsity, Vector Int, Vector Int) sparsity_qr_sparse__1 x = casadi__Sparsity__qr_sparse__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__removeDuplicates" c_casadi__Sparsity__removeDuplicates :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (StdVec CLLong) -> IO () casadi__Sparsity__removeDuplicates :: Sparsity -> Vector Int -> IO () casadi__Sparsity__removeDuplicates x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__removeDuplicates 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 sparsity_removeDuplicates :: SparsityClass a => a -> Vector Int -> IO () sparsity_removeDuplicates x = casadi__Sparsity__removeDuplicates (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__repr_el" c_casadi__Sparsity__repr_el :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CLLong -> IO (Ptr StdString) casadi__Sparsity__repr_el :: Sparsity -> Int -> IO String casadi__Sparsity__repr_el x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__repr_el 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 sparsity_repr_el :: SparsityClass a => a -> Int -> IO String sparsity_repr_el x = casadi__Sparsity__repr_el (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__resize" c_casadi__Sparsity__resize :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CLLong -> CLLong -> IO () casadi__Sparsity__resize :: Sparsity -> Int -> Int -> IO () casadi__Sparsity__resize x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__resize 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 sparsity_resize :: SparsityClass a => a -> Int -> Int -> IO () sparsity_resize x = casadi__Sparsity__resize (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__row" c_casadi__Sparsity__row :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CLLong -> IO CLLong casadi__Sparsity__row :: Sparsity -> Int -> IO Int casadi__Sparsity__row x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_row :: SparsityClass a => a -> Int -> IO Int sparsity_row x = casadi__Sparsity__row (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__rowcol" c_casadi__Sparsity__rowcol :: Ptr (Ptr StdString) -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> CLLong -> CLLong -> IO (Ptr Sparsity') casadi__Sparsity__rowcol :: Vector Int -> Vector Int -> Int -> Int -> IO Sparsity casadi__Sparsity__rowcol x0 x1 x2 x3 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__rowcol 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 sparsity_rowcol :: Vector Int -> Vector Int -> Int -> Int -> IO Sparsity sparsity_rowcol = casadi__Sparsity__rowcol -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__rows" c_casadi__Sparsity__rows :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CLLong casadi__Sparsity__rows :: Sparsity -> IO Int casadi__Sparsity__rows x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_rows :: SparsityClass a => a -> IO Int sparsity_rows x = casadi__Sparsity__rows (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__rowsSequential__0" c_casadi__Sparsity__rowsSequential__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CInt casadi__Sparsity__rowsSequential__0 :: Sparsity -> IO Bool casadi__Sparsity__rowsSequential__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__rowsSequential__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 sparsity_rowsSequential__0 :: SparsityClass a => a -> IO Bool sparsity_rowsSequential__0 x = casadi__Sparsity__rowsSequential__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__rowsSequential__1" c_casadi__Sparsity__rowsSequential__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CInt -> IO CInt casadi__Sparsity__rowsSequential__1 :: Sparsity -> Bool -> IO Bool casadi__Sparsity__rowsSequential__1 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__rowsSequential__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 sparsity_rowsSequential__1 :: SparsityClass a => a -> Bool -> IO Bool sparsity_rowsSequential__1 x = casadi__Sparsity__rowsSequential__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__scalar__0" c_casadi__Sparsity__scalar__0 :: Ptr (Ptr StdString) -> IO (Ptr Sparsity') casadi__Sparsity__scalar__0 :: IO Sparsity casadi__Sparsity__scalar__0 = do errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__scalar__0 errStrPtrP errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) return ret -- classy wrapper sparsity_scalar__0 :: IO Sparsity sparsity_scalar__0 = casadi__Sparsity__scalar__0 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__scalar__1" c_casadi__Sparsity__scalar__1 :: Ptr (Ptr StdString) -> CInt -> IO (Ptr Sparsity') casadi__Sparsity__scalar__1 :: Bool -> IO Sparsity casadi__Sparsity__scalar__1 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__scalar__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 sparsity_scalar__1 :: Bool -> IO Sparsity sparsity_scalar__1 = casadi__Sparsity__scalar__1 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__scc" c_casadi__Sparsity__scc :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (Ptr (StdVec CLLong)) -> Ptr (Ptr (StdVec CLLong)) -> IO CLLong casadi__Sparsity__scc :: Sparsity -> IO (Int, Vector Int, Vector Int) casadi__Sparsity__scc x0 = do x0' <- marshal x0 o1' <- new nullPtr o2' <- new nullPtr errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__scc errStrPtrP x0' o1' o2' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- 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__Sparsity__scc/c_casadi__Sparsity__scc" else wrapReturn o1'' o2'' <- peek o2' free o2' o2''' <- if o2'' == nullPtr then error "swig output o2' was not set in casadi__Sparsity__scc/c_casadi__Sparsity__scc" else wrapReturn o2'' return (ret, o1''', o2''') -- classy wrapper sparsity_scc :: SparsityClass a => a -> IO (Int, Vector Int, Vector Int) sparsity_scc x = casadi__Sparsity__scc (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__serialize" c_casadi__Sparsity__serialize :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr StdString) casadi__Sparsity__serialize :: Sparsity -> IO String casadi__Sparsity__serialize x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__serialize 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 sparsity_serialize :: SparsityClass a => a -> IO String sparsity_serialize x = casadi__Sparsity__serialize (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__size__0" c_casadi__Sparsity__size__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CLLong -> IO CLLong casadi__Sparsity__size__0 :: Sparsity -> Int -> IO Int casadi__Sparsity__size__0 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_size__0 :: SparsityClass a => a -> Int -> IO Int sparsity_size__0 x = casadi__Sparsity__size__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__size__1" c_casadi__Sparsity__size__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr (StdPair CLLong CLLong)) casadi__Sparsity__size__1 :: Sparsity -> IO (Int, Int) casadi__Sparsity__size__1 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_size__1 :: SparsityClass a => a -> IO (Int, Int) sparsity_size__1 x = casadi__Sparsity__size__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__size1" c_casadi__Sparsity__size1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CLLong casadi__Sparsity__size1 :: Sparsity -> IO Int casadi__Sparsity__size1 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_size1 :: SparsityClass a => a -> IO Int sparsity_size1 x = casadi__Sparsity__size1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__size2" c_casadi__Sparsity__size2 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO CLLong casadi__Sparsity__size2 :: Sparsity -> IO Int casadi__Sparsity__size2 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_size2 :: SparsityClass a => a -> IO Int sparsity_size2 x = casadi__Sparsity__size2 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__spy" c_casadi__Sparsity__spy :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO () casadi__Sparsity__spy :: Sparsity -> IO () casadi__Sparsity__spy x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__spy errStrPtrP x0' errStrPtr <- peek errStrPtrP free errStrPtrP () <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) marshalFree x0 x0' return () -- classy wrapper sparsity_spy :: SparsityClass a => a -> IO () sparsity_spy x = casadi__Sparsity__spy (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__spy_matlab" c_casadi__Sparsity__spy_matlab :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr StdString -> IO () casadi__Sparsity__spy_matlab :: Sparsity -> String -> IO () casadi__Sparsity__spy_matlab x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__spy_matlab 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 sparsity_spy_matlab :: SparsityClass a => a -> String -> IO () sparsity_spy_matlab x = casadi__Sparsity__spy_matlab (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__star_coloring__0" c_casadi__Sparsity__star_coloring__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr Sparsity') casadi__Sparsity__star_coloring__0 :: Sparsity -> IO Sparsity casadi__Sparsity__star_coloring__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__star_coloring__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 sparsity_star_coloring__0 :: SparsityClass a => a -> IO Sparsity sparsity_star_coloring__0 x = casadi__Sparsity__star_coloring__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__star_coloring__1" c_casadi__Sparsity__star_coloring__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CLLong -> IO (Ptr Sparsity') casadi__Sparsity__star_coloring__1 :: Sparsity -> Int -> IO Sparsity casadi__Sparsity__star_coloring__1 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__star_coloring__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 sparsity_star_coloring__1 :: SparsityClass a => a -> Int -> IO Sparsity sparsity_star_coloring__1 x = casadi__Sparsity__star_coloring__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__star_coloring__2" c_casadi__Sparsity__star_coloring__2 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CLLong -> CLLong -> IO (Ptr Sparsity') casadi__Sparsity__star_coloring__2 :: Sparsity -> Int -> Int -> IO Sparsity casadi__Sparsity__star_coloring__2 x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__star_coloring__2 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 sparsity_star_coloring__2 :: SparsityClass a => a -> Int -> Int -> IO Sparsity sparsity_star_coloring__2 x = casadi__Sparsity__star_coloring__2 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__star_coloring2__0" c_casadi__Sparsity__star_coloring2__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr Sparsity') casadi__Sparsity__star_coloring2__0 :: Sparsity -> IO Sparsity casadi__Sparsity__star_coloring2__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__star_coloring2__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 sparsity_star_coloring2__0 :: SparsityClass a => a -> IO Sparsity sparsity_star_coloring2__0 x = casadi__Sparsity__star_coloring2__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__star_coloring2__1" c_casadi__Sparsity__star_coloring2__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CLLong -> IO (Ptr Sparsity') casadi__Sparsity__star_coloring2__1 :: Sparsity -> Int -> IO Sparsity casadi__Sparsity__star_coloring2__1 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__star_coloring2__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 sparsity_star_coloring2__1 :: SparsityClass a => a -> Int -> IO Sparsity sparsity_star_coloring2__1 x = casadi__Sparsity__star_coloring2__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__star_coloring2__2" c_casadi__Sparsity__star_coloring2__2 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> CLLong -> CLLong -> IO (Ptr Sparsity') casadi__Sparsity__star_coloring2__2 :: Sparsity -> Int -> Int -> IO Sparsity casadi__Sparsity__star_coloring2__2 x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__star_coloring2__2 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 sparsity_star_coloring2__2 :: SparsityClass a => a -> Int -> Int -> IO Sparsity sparsity_star_coloring2__2 x = casadi__Sparsity__star_coloring2__2 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__sub__0" c_casadi__Sparsity__sub__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (StdVec CLLong) -> Ptr Sparsity' -> Ptr (Ptr (StdVec CLLong)) -> IO (Ptr Sparsity') casadi__Sparsity__sub__0 :: Sparsity -> Vector Int -> Sparsity -> IO (Sparsity, Vector Int) casadi__Sparsity__sub__0 x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 o3' <- new nullPtr errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__sub__0 errStrPtrP x0' x1' x2' o3' 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' o3'' <- peek o3' free o3' o3''' <- if o3'' == nullPtr then error "swig output o3' was not set in casadi__Sparsity__sub__0/c_casadi__Sparsity__sub__0" else wrapReturn o3'' return (ret, o3''') -- classy wrapper sparsity_sub__0 :: SparsityClass a => a -> Vector Int -> Sparsity -> IO (Sparsity, Vector Int) sparsity_sub__0 x = casadi__Sparsity__sub__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__sub__1" c_casadi__Sparsity__sub__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (StdVec CLLong) -> Ptr Sparsity' -> Ptr (Ptr (StdVec CLLong)) -> CInt -> IO (Ptr Sparsity') casadi__Sparsity__sub__1 :: Sparsity -> Vector Int -> Sparsity -> Bool -> IO (Sparsity, Vector Int) casadi__Sparsity__sub__1 x0 x1 x2 x4 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 o3' <- new nullPtr x4' <- marshal x4 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__sub__1 errStrPtrP x0' x1' x2' o3' 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' o3'' <- peek o3' free o3' o3''' <- if o3'' == nullPtr then error "swig output o3' was not set in casadi__Sparsity__sub__1/c_casadi__Sparsity__sub__1" else wrapReturn o3'' marshalFree x4 x4' return (ret, o3''') -- classy wrapper sparsity_sub__1 :: SparsityClass a => a -> Vector Int -> Sparsity -> Bool -> IO (Sparsity, Vector Int) sparsity_sub__1 x = casadi__Sparsity__sub__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__sub__2" c_casadi__Sparsity__sub__2 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> Ptr (Ptr (StdVec CLLong)) -> IO (Ptr Sparsity') casadi__Sparsity__sub__2 :: Sparsity -> Vector Int -> Vector Int -> IO (Sparsity, Vector Int) casadi__Sparsity__sub__2 x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 o3' <- new nullPtr errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__sub__2 errStrPtrP x0' x1' x2' o3' 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' o3'' <- peek o3' free o3' o3''' <- if o3'' == nullPtr then error "swig output o3' was not set in casadi__Sparsity__sub__2/c_casadi__Sparsity__sub__2" else wrapReturn o3'' return (ret, o3''') -- classy wrapper sparsity_sub__2 :: SparsityClass a => a -> Vector Int -> Vector Int -> IO (Sparsity, Vector Int) sparsity_sub__2 x = casadi__Sparsity__sub__2 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__sub__3" c_casadi__Sparsity__sub__3 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> Ptr (Ptr (StdVec CLLong)) -> CInt -> IO (Ptr Sparsity') casadi__Sparsity__sub__3 :: Sparsity -> Vector Int -> Vector Int -> Bool -> IO (Sparsity, Vector Int) casadi__Sparsity__sub__3 x0 x1 x2 x4 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 o3' <- new nullPtr x4' <- marshal x4 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__sub__3 errStrPtrP x0' x1' x2' o3' 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' o3'' <- peek o3' free o3' o3''' <- if o3'' == nullPtr then error "swig output o3' was not set in casadi__Sparsity__sub__3/c_casadi__Sparsity__sub__3" else wrapReturn o3'' marshalFree x4 x4' return (ret, o3''') -- classy wrapper sparsity_sub__3 :: SparsityClass a => a -> Vector Int -> Vector Int -> Bool -> IO (Sparsity, Vector Int) sparsity_sub__3 x = casadi__Sparsity__sub__3 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__to_file__0" c_casadi__Sparsity__to_file__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr StdString -> IO () casadi__Sparsity__to_file__0 :: Sparsity -> String -> IO () casadi__Sparsity__to_file__0 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__to_file__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 sparsity_to_file__0 :: SparsityClass a => a -> String -> IO () sparsity_to_file__0 x = casadi__Sparsity__to_file__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__to_file__1" c_casadi__Sparsity__to_file__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr StdString -> Ptr StdString -> IO () casadi__Sparsity__to_file__1 :: Sparsity -> String -> String -> IO () casadi__Sparsity__to_file__1 x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__to_file__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 sparsity_to_file__1 :: SparsityClass a => a -> String -> String -> IO () sparsity_to_file__1 x = casadi__Sparsity__to_file__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__transpose__0" c_casadi__Sparsity__transpose__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (Ptr (StdVec CLLong)) -> IO (Ptr Sparsity') casadi__Sparsity__transpose__0 :: Sparsity -> IO (Sparsity, Vector Int) casadi__Sparsity__transpose__0 x0 = do x0' <- marshal x0 o1' <- new nullPtr errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__transpose__0 errStrPtrP x0' o1' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- 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__Sparsity__transpose__0/c_casadi__Sparsity__transpose__0" else wrapReturn o1'' return (ret, o1''') -- classy wrapper sparsity_transpose__0 :: SparsityClass a => a -> IO (Sparsity, Vector Int) sparsity_transpose__0 x = casadi__Sparsity__transpose__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__transpose__1" c_casadi__Sparsity__transpose__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr (Ptr (StdVec CLLong)) -> CInt -> IO (Ptr Sparsity') casadi__Sparsity__transpose__1 :: Sparsity -> Bool -> IO (Sparsity, Vector Int) casadi__Sparsity__transpose__1 x0 x2 = do x0' <- marshal x0 o1' <- new nullPtr x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__transpose__1 errStrPtrP x0' o1' x2' errStrPtr <- peek errStrPtrP free errStrPtrP ret <- 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__Sparsity__transpose__1/c_casadi__Sparsity__transpose__1" else wrapReturn o1'' marshalFree x2 x2' return (ret, o1''') -- classy wrapper sparsity_transpose__1 :: SparsityClass a => a -> Bool -> IO (Sparsity, Vector Int) sparsity_transpose__1 x = casadi__Sparsity__transpose__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__triplet__0" c_casadi__Sparsity__triplet__0 :: Ptr (Ptr StdString) -> CLLong -> CLLong -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> IO (Ptr Sparsity') casadi__Sparsity__triplet__0 :: Int -> Int -> Vector Int -> Vector Int -> IO Sparsity casadi__Sparsity__triplet__0 x0 x1 x2 x3 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__triplet__0 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 sparsity_triplet__0 :: Int -> Int -> Vector Int -> Vector Int -> IO Sparsity sparsity_triplet__0 = casadi__Sparsity__triplet__0 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__triplet__1" c_casadi__Sparsity__triplet__1 :: Ptr (Ptr StdString) -> CLLong -> CLLong -> Ptr (StdVec CLLong) -> Ptr (StdVec CLLong) -> Ptr (Ptr (StdVec CLLong)) -> CInt -> IO (Ptr Sparsity') casadi__Sparsity__triplet__1 :: Int -> Int -> Vector Int -> Vector Int -> Bool -> IO (Sparsity, Vector Int) casadi__Sparsity__triplet__1 x0 x1 x2 x3 x5 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 x3' <- marshal x3 o4' <- new nullPtr x5' <- marshal x5 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__triplet__1 errStrPtrP x0' x1' x2' x3' o4' x5' 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' o4'' <- peek o4' free o4' o4''' <- if o4'' == nullPtr then error "swig output o4' was not set in casadi__Sparsity__triplet__1/c_casadi__Sparsity__triplet__1" else wrapReturn o4'' marshalFree x5 x5' return (ret, o4''') -- classy wrapper sparsity_triplet__1 :: Int -> Int -> Vector Int -> Vector Int -> Bool -> IO (Sparsity, Vector Int) sparsity_triplet__1 = casadi__Sparsity__triplet__1 -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__type_name" c_casadi__Sparsity__type_name :: Ptr (Ptr StdString) -> IO (Ptr StdString) casadi__Sparsity__type_name :: IO String casadi__Sparsity__type_name = do errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__type_name errStrPtrP errStrPtr <- peek errStrPtrP free errStrPtrP ret <- if errStrPtr == nullPtr then wrapReturn ret0 else wrapReturn errStrPtr >>= (error . formatException) return ret -- classy wrapper sparsity_type_name :: IO String sparsity_type_name = casadi__Sparsity__type_name -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__uni_coloring__0" c_casadi__Sparsity__uni_coloring__0 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> IO (Ptr Sparsity') casadi__Sparsity__uni_coloring__0 :: Sparsity -> IO Sparsity casadi__Sparsity__uni_coloring__0 x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__uni_coloring__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 sparsity_uni_coloring__0 :: SparsityClass a => a -> IO Sparsity sparsity_uni_coloring__0 x = casadi__Sparsity__uni_coloring__0 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__uni_coloring__1" c_casadi__Sparsity__uni_coloring__1 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr Sparsity' -> IO (Ptr Sparsity') casadi__Sparsity__uni_coloring__1 :: Sparsity -> Sparsity -> IO Sparsity casadi__Sparsity__uni_coloring__1 x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__uni_coloring__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 sparsity_uni_coloring__1 :: SparsityClass a => a -> Sparsity -> IO Sparsity sparsity_uni_coloring__1 x = casadi__Sparsity__uni_coloring__1 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__uni_coloring__2" c_casadi__Sparsity__uni_coloring__2 :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr Sparsity' -> CLLong -> IO (Ptr Sparsity') casadi__Sparsity__uni_coloring__2 :: Sparsity -> Sparsity -> Int -> IO Sparsity casadi__Sparsity__uni_coloring__2 x0 x1 x2 = do x0' <- marshal x0 x1' <- marshal x1 x2' <- marshal x2 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__uni_coloring__2 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 sparsity_uni_coloring__2 :: SparsityClass a => a -> Sparsity -> Int -> IO Sparsity sparsity_uni_coloring__2 x = casadi__Sparsity__uni_coloring__2 (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__unit" c_casadi__Sparsity__unit :: Ptr (Ptr StdString) -> CLLong -> CLLong -> IO (Ptr Sparsity') casadi__Sparsity__unit :: Int -> Int -> IO Sparsity casadi__Sparsity__unit x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__unit 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 sparsity_unit :: Int -> Int -> IO Sparsity sparsity_unit = casadi__Sparsity__unit -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__unite" c_casadi__Sparsity__unite :: Ptr (Ptr StdString) -> Ptr Sparsity' -> Ptr Sparsity' -> IO (Ptr Sparsity') casadi__Sparsity__unite :: Sparsity -> Sparsity -> IO Sparsity casadi__Sparsity__unite x0 x1 = do x0' <- marshal x0 x1' <- marshal x1 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__unite 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 sparsity_unite :: SparsityClass a => a -> Sparsity -> IO Sparsity sparsity_unite x = casadi__Sparsity__unite (castSparsity x) -- direct wrapper foreign import ccall unsafe "casadi__Sparsity__upper" c_casadi__Sparsity__upper :: Ptr (Ptr StdString) -> CLLong -> IO (Ptr Sparsity') casadi__Sparsity__upper :: Int -> IO Sparsity casadi__Sparsity__upper x0 = do x0' <- marshal x0 errStrPtrP <- new nullPtr ret0 <- c_casadi__Sparsity__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 sparsity_upper :: Int -> IO Sparsity sparsity_upper = casadi__Sparsity__upper