diff --git a/.hg_archival.txt b/.hg_archival.txt new file mode 100644 --- /dev/null +++ b/.hg_archival.txt @@ -0,0 +1,2 @@ +repo: cb30a6b959c784f83f5ff5dfe823062c0269d479 +node: c39f83fdf061b74ccae3b8966be74f74df908bc0 diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,29 @@ +Copyright (c) <2009>, +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are +met: + + * Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. + + * Redistributions in binary form must reproduce the above copyright + notice, this list of conditions and the following disclaimer in the + documentation and/or other materials provided with the distribution. + + * Neither the name of the author nor the names of contributors + may be used to endorse or promote products derived from this + software without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED +TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR +PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF +LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING +NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS +SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,6 @@ +#!/usr/bin/env runhaskell + +module Main (main) where +import Distribution.Simple + +main = defaultMain diff --git a/bindings-libcddb.cabal b/bindings-libcddb.cabal new file mode 100644 --- /dev/null +++ b/bindings-libcddb.cabal @@ -0,0 +1,33 @@ +cabal-version: >= 1.2.3 +name: bindings-libcddb +homepage: http://bitbucket.org/mauricio/bindings-libcddb +synopsis: + Low level binding to libcddb. +version: 0.1 +license: BSD3 +license-file: LICENSE +maintainer: Maurício C. Antunes +author: Maurício C. Antunes +build-type: Simple +bug-reports: http://bitbucket.org/mauricio/bindings-libcddb/issues +category: FFI +library + hs-source-dirs: src + extensions: + ForeignFunctionInterface + build-depends: + base >=3 && <5, + bindings-common >= 1 && < 2 + exposed-modules: + Bindings.Libcddb + Bindings.Libcddb.Cddb + Bindings.Libcddb.CddbCmd + Bindings.Libcddb.CddbConn + Bindings.Libcddb.CddbDisc + Bindings.Libcddb.CddbError + Bindings.Libcddb.CddbLog + Bindings.Libcddb.CddbSite + Bindings.Libcddb.CddbTrack + pkgconfig-depends: + libcddb >= 1.2.1 + c-sources: src/inlines.c diff --git a/src/Bindings/Libcddb.hs b/src/Bindings/Libcddb.hs new file mode 100644 --- /dev/null +++ b/src/Bindings/Libcddb.hs @@ -0,0 +1,20 @@ +-- | + +module Bindings.Libcddb ( + module Bindings.Libcddb.Cddb, + module Bindings.Libcddb.CddbCmd, + module Bindings.Libcddb.CddbConn, + module Bindings.Libcddb.CddbDisc, + module Bindings.Libcddb.CddbError, + module Bindings.Libcddb.CddbLog, + module Bindings.Libcddb.CddbSite, + module Bindings.Libcddb.CddbTrack + ) where +import Bindings.Libcddb.Cddb +import Bindings.Libcddb.CddbCmd +import Bindings.Libcddb.CddbConn +import Bindings.Libcddb.CddbDisc +import Bindings.Libcddb.CddbError +import Bindings.Libcddb.CddbLog +import Bindings.Libcddb.CddbSite +import Bindings.Libcddb.CddbTrack diff --git a/src/Bindings/Libcddb/Cddb.hsc b/src/Bindings/Libcddb/Cddb.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/Libcddb/Cddb.hsc @@ -0,0 +1,21 @@ +#include +#include + +-- | + +module Bindings.Libcddb.Cddb where +import Foreign +import Foreign.C + +#num CDDB_H + +-- integral_t enum cddb_flag_t + +-- num CDDB_F_EMPTY_STR +-- num CDDB_F_NO_TRACK_ARTIST + +#ccall libcddb_init , IO () +#ccall libcddb_shutdown , IO () +-- ccall libcddb_set_flags , CUInt -> IO () +-- ccall libcddb_reset_flags , CUInt -> IO () + diff --git a/src/Bindings/Libcddb/CddbCmd.hsc b/src/Bindings/Libcddb/CddbCmd.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/Libcddb/CddbCmd.hsc @@ -0,0 +1,22 @@ +#include +#include + +-- | + +module Bindings.Libcddb.CddbCmd where +import Foreign +import Foreign.C +import Bindings.Libcddb.CddbConn +import Bindings.Libcddb.CddbDisc + +#num CDDB_CMD_H + +#ccall cddb_read , Ptr -> Ptr -> IO CInt +#ccall cddb_query , Ptr -> Ptr -> IO CInt +#ccall cddb_query_next , Ptr -> Ptr -> IO CInt +#ccall cddb_search , Ptr -> Ptr -> CString -> IO CInt +#ccall cddb_search_next , Ptr -> Ptr -> IO CInt +-- ccall cddb_album , Ptr -> Ptr -> IO CInt +-- ccall cddb_album_next , Ptr -> Ptr -> IO CInt +#ccall cddb_write , Ptr -> Ptr -> IO CInt +#ccall cddb_sites , Ptr -> IO CInt diff --git a/src/Bindings/Libcddb/CddbConn.hsc b/src/Bindings/Libcddb/CddbConn.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/Libcddb/CddbConn.hsc @@ -0,0 +1,89 @@ +#include +#include + +-- | + +module Bindings.Libcddb.CddbConn where +import Foreign +import Foreign.C +import Bindings.Libcddb.CddbDisc +import Bindings.Libcddb.CddbError +import Bindings.Libcddb.CddbSite + +#num CDDB_CONN_H + +#cinline SEARCHCAT , -> + +#integral_t cddb_iconv_t +#opaque_t cddb_conn_t + +#integral_t cddb_cache_mode_t + +#num CACHE_OFF +#num CACHE_ON +#num CACHE_ONLY + +#integral_t cddb_search_t + +#num SEARCH_NONE +#num SEARCH_ARTIST +#num SEARCH_TITLE +#num SEARCH_TRACK +#num SEARCH_OTHER +#num SEARCH_ALL + +#ccall cddb_new , IO (Ptr ) +#ccall cddb_destroy , Ptr -> IO () +#ccall cddb_set_charset , Ptr -> CString -> IO CInt +#ccall cddb_set_buf_size , Ptr -> CUInt -> IO () +#ccall cddb_set_site , Ptr -> \ + Ptr -> IO +#ccall cddb_get_server_name , Ptr -> IO CString +#ccall cddb_set_server_name , Ptr -> CString -> IO () +#ccall cddb_get_server_port , Ptr -> IO CUInt +#ccall cddb_set_server_port , Ptr -> CInt -> IO () +#ccall cddb_get_timeout , Ptr -> IO CUInt +#ccall cddb_set_timeout , Ptr -> CUInt -> IO () +#ccall cddb_get_http_path_query , Ptr -> IO CString +#ccall cddb_set_http_path_query , Ptr -> \ + CString -> IO () +#ccall cddb_get_http_path_submit , Ptr -> IO CString +#ccall cddb_set_http_path_submit , Ptr -> \ + CString -> IO () +#ccall cddb_is_http_enabled , Ptr -> IO CUInt +#ccall cddb_http_enable , Ptr -> IO () +#ccall cddb_http_disable , Ptr -> IO () +#ccall cddb_is_http_proxy_enabled , Ptr -> IO CUInt +#ccall cddb_http_proxy_enable , Ptr -> IO () +#ccall cddb_http_proxy_disable , Ptr -> IO () +#ccall cddb_get_http_proxy_server_name , Ptr -> \ + IO CString +#ccall cddb_set_http_proxy_server_name , Ptr -> \ + CString -> IO () +#ccall cddb_get_http_proxy_server_port , Ptr -> IO CUInt +#ccall cddb_set_http_proxy_server_port , Ptr -> \ + CInt -> IO () +#ccall cddb_set_http_proxy_username , Ptr -> \ + CString -> IO () +#ccall cddb_get_http_proxy_username , Ptr -> IO CString +#ccall cddb_set_http_proxy_password , Ptr -> \ + CString -> IO () +#ccall cddb_get_http_proxy_password , Ptr -> IO CString +#ccall cddb_set_http_proxy_credentials , Ptr -> \ + CString -> CString -> IO () +#ccall cddb_errno , Ptr -> IO +#ccall cddb_set_client , Ptr -> CString -> \ + CString -> IO () +#ccall cddb_set_email_address , Ptr -> \ + CString -> IO CInt +#ccall cddb_cache_mode , Ptr -> IO +#ccall cddb_cache_enable , Ptr -> IO () +#ccall cddb_cache_only , Ptr -> IO () +#ccall cddb_cache_disable , Ptr -> IO () +#ccall cddb_cache_get_dir , Ptr -> IO CString +#ccall cddb_cache_set_dir , Ptr -> CString -> IO CInt +#ccall cddb_first_site , Ptr -> IO (Ptr ) +#ccall cddb_next_site , Ptr -> IO (Ptr ) +#ccall cddb_search_set_fields , Ptr -> CUInt -> IO () +#ccall cddb_search_set_categories , Ptr -> \ + CUInt -> IO () diff --git a/src/Bindings/Libcddb/CddbDisc.hsc b/src/Bindings/Libcddb/CddbDisc.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/Libcddb/CddbDisc.hsc @@ -0,0 +1,72 @@ +#include +#include + +-- | + +module Bindings.Libcddb.CddbDisc where +import Foreign +import Foreign.C +import Bindings.Libcddb.CddbTrack + +#num CDDB_DISC_H +#num FRAMES_PER_SECOND + +#opaque_t cddb_disc_t + +#integral_t cddb_cat_t + +#num CDDB_CAT_DATA +#num CDDB_CAT_FOLK +#num CDDB_CAT_JAZZ +#num CDDB_CAT_MISC +#num CDDB_CAT_ROCK +#num CDDB_CAT_COUNTRY +#num CDDB_CAT_BLUES +#num CDDB_CAT_NEWAGE +#num CDDB_CAT_REGGAE +#num CDDB_CAT_CLASSICAL +#num CDDB_CAT_SOUNDTRACK +#num CDDB_CAT_INVALID +#num CDDB_CAT_LAST + +#ccall cddb_disc_new , IO (Ptr ) +#ccall cddb_disc_destroy , Ptr -> IO () +#ccall cddb_disc_clone , Ptr -> IO (Ptr ) +#ccall cddb_disc_add_track , Ptr -> \ + Ptr -> IO () +#ccall cddb_disc_get_track , Ptr -> \ + CInt -> IO (Ptr ) +#ccall cddb_disc_get_track_first , Ptr -> \ + IO (Ptr ) +#ccall cddb_disc_get_track_next , Ptr -> \ + IO (Ptr ) +#ccall cddb_disc_get_discid , Ptr -> IO CUInt +#ccall cddb_disc_set_discid , Ptr -> CUInt -> IO () +#ccall cddb_disc_get_category , Ptr -> IO +#ccall cddb_disc_set_category , Ptr -> \ + -> IO () +#ccall cddb_disc_get_category_str , Ptr -> IO CString +#ccall cddb_disc_set_category_str , Ptr -> \ + CString -> IO () +#ccall cddb_disc_get_genre , Ptr -> IO CString +#ccall cddb_disc_set_genre , Ptr -> CString -> IO () +#ccall cddb_disc_get_length , Ptr -> IO CUInt +#ccall cddb_disc_set_length , Ptr -> CUInt -> IO () +#ccall cddb_disc_get_year , Ptr -> IO CUInt +#ccall cddb_disc_set_year , Ptr -> CUInt -> IO () +#ccall cddb_disc_get_track_count , Ptr -> IO CInt +#ccall cddb_disc_get_title , Ptr -> IO CString +#ccall cddb_disc_set_title , Ptr -> CString -> IO () +#ccall cddb_disc_append_title , Ptr -> CString -> IO () +#ccall cddb_disc_get_artist , Ptr -> IO CString +#ccall cddb_disc_set_artist , Ptr -> CString -> IO () +#ccall cddb_disc_append_artist , Ptr -> CString -> IO () +#ccall cddb_disc_get_ext_data , Ptr -> IO CString +#ccall cddb_disc_set_ext_data , Ptr -> CString -> IO () +#ccall cddb_disc_append_ext_data , Ptr -> CString -> IO () +#ccall cddb_disc_copy , Ptr -> Ptr -> IO () +#ccall cddb_disc_calc_discid , Ptr -> IO CInt +#ccall cddb_disc_print , Ptr -> IO () + +-- globalarray CDDB_CATEGORY , CString + diff --git a/src/Bindings/Libcddb/CddbError.hsc b/src/Bindings/Libcddb/CddbError.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/Libcddb/CddbError.hsc @@ -0,0 +1,39 @@ +#include +#include + +-- | + +module Bindings.Libcddb.CddbError where +import Foreign +import Foreign.C + +#num CDDB_ERROR_H + +#integral_t cddb_error_t + +#num CDDB_ERR_OK +#num CDDB_ERR_OUT_OF_MEMORY +#num CDDB_ERR_LINE_SIZE +#num CDDB_ERR_NOT_IMPLEMENTED +#num CDDB_ERR_UNKNOWN +#num CDDB_ERR_SERVER_ERROR +#num CDDB_ERR_UNKNOWN_HOST_NAME +#num CDDB_ERR_CONNECT +#num CDDB_ERR_PERMISSION_DENIED +#num CDDB_ERR_NOT_CONNECTED +#num CDDB_ERR_UNEXPECTED_EOF +#num CDDB_ERR_INVALID_RESPONSE +#num CDDB_ERR_DISC_NOT_FOUND +#num CDDB_ERR_DATA_MISSING +#num CDDB_ERR_TRACK_NOT_FOUND +#num CDDB_ERR_REJECTED +#num CDDB_ERR_EMAIL_INVALID +#num CDDB_ERR_INVALID_CHARSET +#num CDDB_ERR_ICONV_FAIL +#num CDDB_ERR_PROXY_AUTH +#num CDDB_ERR_INVALID +#num CDDB_ERR_LAST + +#ccall cddb_error_str , -> IO CString +#ccall cddb_error_stream_print , Ptr CFile -> -> IO () +#ccall cddb_error_print , -> IO () diff --git a/src/Bindings/Libcddb/CddbLog.hsc b/src/Bindings/Libcddb/CddbLog.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/Libcddb/CddbLog.hsc @@ -0,0 +1,23 @@ +#include +#include + +-- | + +module Bindings.Libcddb.CddbLog where +import Foreign +import Foreign.C + +#callback cddb_log_handler_t , -> CString -> IO () + +#integral_t cddb_log_level_t + +#num CDDB_LOG_DEBUG +#num CDDB_LOG_INFO +#num CDDB_LOG_WARN +#num CDDB_LOG_ERROR +#num CDDB_LOG_CRITICAL +#num CDDB_LOG_NONE + +#ccall cddb_log_set_handler , -> \ + IO +#ccall cddb_log_set_level , -> IO () diff --git a/src/Bindings/Libcddb/CddbSite.hsc b/src/Bindings/Libcddb/CddbSite.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/Libcddb/CddbSite.hsc @@ -0,0 +1,49 @@ +#include +#include + +-- | + +module Bindings.Libcddb.CddbSite where +import Foreign +import Foreign.C +import Bindings.Libcddb.CddbError + +#num CDDB_SITE_H + +#opaque_t cddb_site_t + +#integral_t cddb_protocol_t + +#num PROTO_UNKNOWN +#num PROTO_CDDBP +#num PROTO_HTTP + +#ccall cddb_site_new , IO (Ptr ) +#ccall cddb_site_destroy , Ptr -> IO +#ccall cddb_site_clone , Ptr -> IO (Ptr ) +#ccall cddb_site_get_address , Ptr -> \ + Ptr CString -> Ptr CUInt -> IO +#ccall cddb_site_set_address , Ptr -> CString -> \ + CUInt -> IO +#ccall cddb_site_get_protocol , Ptr -> \ + IO +#ccall cddb_site_set_protocol , Ptr -> \ + -> IO +#ccall cddb_site_get_query_path , Ptr -> \ + Ptr CString -> IO +#ccall cddb_site_set_query_path , Ptr -> \ + CString -> IO +#ccall cddb_site_get_submit_path , Ptr -> \ + Ptr CString -> IO +#ccall cddb_site_set_submit_path , Ptr -> \ + CString -> IO +#ccall cddb_site_get_location , Ptr -> Ptr CFloat -> \ + Ptr CFloat -> IO +#ccall cddb_site_set_location , Ptr -> CFloat -> \ + CFloat -> IO +#ccall cddb_site_get_description , Ptr -> \ + Ptr CString -> IO +#ccall cddb_site_set_description , Ptr -> \ + CString -> IO +#ccall cddb_site_parse , Ptr -> CString -> IO CInt +#ccall cddb_site_print , Ptr -> IO diff --git a/src/Bindings/Libcddb/CddbTrack.hsc b/src/Bindings/Libcddb/CddbTrack.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/Libcddb/CddbTrack.hsc @@ -0,0 +1,33 @@ +#include +#include + +-- | + +module Bindings.Libcddb.CddbTrack where +import Foreign +import Foreign.C + +#num CDDB_TRACK_H + +#opaque_t cddb_track_t + +#ccall cddb_track_new , IO (Ptr ) +#ccall cddb_track_destroy , Ptr -> IO () +#ccall cddb_track_clone , Ptr -> IO (Ptr ) +#ccall cddb_track_get_number , Ptr -> IO CInt +#ccall cddb_track_get_frame_offset , Ptr -> IO CInt +#ccall cddb_track_set_frame_offset , Ptr -> CInt -> IO () +#ccall cddb_track_get_length , Ptr -> IO CInt +#ccall cddb_track_set_length , Ptr -> CInt -> IO () +#ccall cddb_track_get_title , Ptr -> IO CString +#ccall cddb_track_set_title , Ptr -> CString -> IO () +#ccall cddb_track_append_title , Ptr -> CString -> IO () +#ccall cddb_track_get_artist , Ptr -> IO CString +#ccall cddb_track_set_artist , Ptr -> CString -> IO () +#ccall cddb_track_append_artist , Ptr -> CString -> IO () +#ccall cddb_track_get_ext_data , Ptr -> IO CString +#ccall cddb_track_set_ext_data , Ptr -> CString -> IO () +#ccall cddb_track_append_ext_data , Ptr -> CString -> IO () +#ccall cddb_track_copy , Ptr -> Ptr -> IO () +#ccall cddb_track_print , Ptr -> IO () + diff --git a/src/inlines.c b/src/inlines.c new file mode 100644 --- /dev/null +++ b/src/inlines.c @@ -0,0 +1,5 @@ +#include +cddb_cat_t inline_SEARCHCAT (cddb_cat_t c) +{ + return SEARCHCAT (c); +}