Coll.chs

-- -*-haskell-*-
--  XMMS2 client library.
--
--  Author:  Oleg Belozeorov
--  Created: 17 Sep. 2009
--
--  Copyright (C) 2009-2010 Oleg Belozeorov
--
--  This library is free software; you can redistribute it and/or
--  modify it under the terms of the GNU Lesser General Public
--  License as published by the Free Software Foundation; either
--  version 3 of the License, or (at your option) any later version.
--
--  This library is distributed in the hope that it will be useful,
--  but WITHOUT ANY WARRANTY; without even the implied warranty of
--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
--  Lesser General Public License for more details.
--

module XMMS2.Client.Bindings.Coll
  ( CollectionChangedActions (..)
  , collGet
  , collList
  , collSave
  , collRemove
  , collRename
  , collIdlistFromPlaylistFile
  , collSync
  , collQueryIds
  , broadcastCollectionChanged
  ) where

#include <xmmsclient/xmmsclient.h>

{# context prefix = "xmmsc" #}

import XMMS2.Utils

{# import XMMS2.Client.Bindings.Connection #}
{# import XMMS2.Client.Bindings.Result #}
{# import XMMS2.Client.Bindings.Types.Value #}
{# import XMMS2.Client.Bindings.Types.Coll #}


{# enum xmms_collection_changed_actions_t as CollectionChangedActions
 { underscoreToCase
 } with prefix = "XMMS_"
 deriving (Eq, Show) #}


{# fun coll_get as ^
 { withConnection* `Connection'
 , withCString*    `String'
 , withCString*    `String'
 } -> `Result' takeResult* #}

{# fun coll_list as ^
 { withConnection* `Connection'
 , withCString*    `String'
 } -> `Result' takeResult* #}

{# fun coll_save as ^
 { withConnection* `Connection'
 , withColl*       `Coll'
 , withCString*    `String'
 , withCString*    `String'
 } -> `Result' takeResult* #}

{# fun coll_remove as ^
 { withConnection* `Connection'
 , withCString*    `String'
 , withCString*    `String'
 } -> `Result' takeResult* #}

{# fun coll_rename as ^
 { withConnection* `Connection'
 , withCString*    `String'
 , withCString*    `String'
 , withCString*    `String'
 } -> `Result' takeResult* #}

{# fun coll_idlist_from_playlist_file as ^
 { withConnection* `Connection'
 , withCString*    `String'
 } -> `Result' takeResult* #}

{# fun coll_sync as ^
 { withConnection* `Connection'
 } -> `Result' takeResult* #}

{# fun coll_query_ids as ^
 { withConnection* `Connection'
 , withColl*       `Coll'
 , withValue*      `Value'
 , cIntConv        `Int'
 , cIntConv        `Int'
 } -> `Result' takeResult* #}


{# fun broadcast_collection_changed as ^
 { withConnection* `Connection'
 } -> `Result' takeResult* #}