-- -*-haskell-*-
--  XMMS2 client library.
--
--  Author:  Oleg Belozeorov
--  Created: 14 Feb. 2010
--
--  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.
--

{-# OPTIONS_GHC -fno-warn-overlapping-patterns #-}

module XMMS2.Client.Bindings.Types.Coll
  ( CollPtr
  , Coll
  , withColl
  , takeColl
  , getColl
  , newColl
  , CollType
    ( TypeReference
    , TypeUnion
    , TypeIntersection
    , TypeComplement
    , TypeHas
    , TypeEquals
    , TypeMatch
    , TypeSmaller
    , TypeGreater
    , TypeIdlist
    , TypeQueue
    , TypePartyshuffle )
  , collNew
  , collSetIdlist
  , collAddOperand
  , collIdlistAppend
  , collUniverse
  , collParse
  , collNewIdlist
  ) where

#include <xmmsclient/xmmsclient.h>

{# context prefix = "xmmsv" #}

import XMMS2.Utils
import XMMS2.Client.Exception

{# import XMMS2.Client.Bindings.Types.Value #}


data T = T
{# pointer *coll_t as CollPtr -> T #}
data Coll = Coll (ForeignPtr T)

withColl (Coll p) = withForeignPtr p

takeColl ref p = do
  p' <- if ref then coll_ref p else return p
  takePtr Coll coll_unref p'

{# fun coll_ref as coll_ref
 { id `CollPtr'
 } -> `CollPtr' id #}

foreign import ccall unsafe "&xmmsv_coll_unref"
  coll_unref :: FinalizerPtr T


getColl v = get TypeColl get_coll (takeColl True) v
{# fun get_coll as get_coll
 { withValue* `Value'
 , alloca-    `CollPtr' peek*
 } -> `Bool' #}

newColl v = new_coll v >>= takeValue False
{# fun new_coll as new_coll
 { withColl* `Coll'
 } -> `ValuePtr' id #}


{# enum coll_type_t as CollType
 { underscoreToCase }
 with prefix = "XMMS_COLLECTION"
 deriving (Show) #}


collNew :: CollType -> IO Coll
collNew t = coll_new t >>= takeColl False
{# fun coll_new as coll_new
 { cFromEnum `CollType'
 } -> `CollPtr' id #}

collSetIdlist :: Coll -> [Int32] -> IO ()
collSetIdlist c i = coll_set_idlist c $ map fromIntegral i
{# fun coll_set_idlist as coll_set_idlist
 { withColl*    `Coll'
 , withZTArray* `[CUInt]'
 } -> `()' #}

{# fun coll_add_operand as ^
 { withColl* `Coll'
 , withColl* `Coll'
 } -> `()' #}

collIdlistAppend :: Coll -> Int32 -> IO ()
collIdlistAppend coll id = coll_idlist_append coll $ fromIntegral id
{# fun coll_idlist_append as coll_idlist_append
 { withColl* `Coll'
 , cIntConv  `CUInt'
 } -> `()' #}

collUniverse :: IO Coll
collUniverse = coll_universe >>= takeColl True
{# fun coll_universe as coll_universe
 {} -> `CollPtr' id #}


collParse :: String -> IO Coll
collParse s = do
  (ok, coll) <- coll_parse s
  if ok
    then takeColl False coll
    else throwIO ParseError
{# fun coll_parse as coll_parse
 { withCString* `String'
 , alloca-      `CollPtr' peek*
 } -> `Bool' #}



collNewIdlist list = do
  c <- collNew TypeIdlist
  collSetIdlist c list
  return c