module Bindings.Libcddb.CddbCmd where
import Prelude (IO,Num,return,(.),($),Eq,Show,take)
import Foreign.Ptr (Ptr,FunPtr,plusPtr)
import Foreign.Ptr (wordPtrToPtr,castPtrToFunPtr)
import Foreign.Storable
import Foreign.C.Types
import Foreign.C.String (CString,CStringLen,CWString,CWStringLen)
import Foreign.Marshal.Array (peekArray,pokeArray)
import Data.Int
import Data.Word
import Bindings.Libcddb.CddbConn
import Bindings.Libcddb.CddbDisc
foreign import ccall "cddb_read" c'cddb_read
:: Ptr C'cddb_conn_t -> Ptr C'cddb_disc_t -> IO CInt
foreign import ccall "&cddb_read" p'cddb_read
:: FunPtr (Ptr C'cddb_conn_t -> Ptr C'cddb_disc_t -> IO CInt)
foreign import ccall "cddb_query" c'cddb_query
:: Ptr C'cddb_conn_t -> Ptr C'cddb_disc_t -> IO CInt
foreign import ccall "&cddb_query" p'cddb_query
:: FunPtr (Ptr C'cddb_conn_t -> Ptr C'cddb_disc_t -> IO CInt)
foreign import ccall "cddb_query_next" c'cddb_query_next
:: Ptr C'cddb_conn_t -> Ptr C'cddb_disc_t -> IO CInt
foreign import ccall "&cddb_query_next" p'cddb_query_next
:: FunPtr (Ptr C'cddb_conn_t -> Ptr C'cddb_disc_t -> IO CInt)
foreign import ccall "cddb_search" c'cddb_search
:: Ptr C'cddb_conn_t -> Ptr C'cddb_disc_t -> CString -> IO CInt
foreign import ccall "&cddb_search" p'cddb_search
:: FunPtr (Ptr C'cddb_conn_t -> Ptr C'cddb_disc_t -> CString -> IO CInt)
foreign import ccall "cddb_search_next" c'cddb_search_next
:: Ptr C'cddb_conn_t -> Ptr C'cddb_disc_t -> IO CInt
foreign import ccall "&cddb_search_next" p'cddb_search_next
:: FunPtr (Ptr C'cddb_conn_t -> Ptr C'cddb_disc_t -> IO CInt)
foreign import ccall "cddb_write" c'cddb_write
:: Ptr C'cddb_conn_t -> Ptr C'cddb_disc_t -> IO CInt
foreign import ccall "&cddb_write" p'cddb_write
:: FunPtr (Ptr C'cddb_conn_t -> Ptr C'cddb_disc_t -> IO CInt)
foreign import ccall "cddb_sites" c'cddb_sites
:: Ptr C'cddb_conn_t -> IO CInt
foreign import ccall "&cddb_sites" p'cddb_sites
:: FunPtr (Ptr C'cddb_conn_t -> IO CInt)