/** @addtogroup MCD_MCDIMPL_DAEMON_SRV
 * @{
 * @file
 *
 * Semaphore implementation (pthread wrapper).
 *
 * <!-- Copyright Giesecke & Devrient GmbH 2009 - 2012 -->
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. 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.
 * 3. The name of the author may not be used to endorse or promote
 *    products derived from this software without specific prior
 *    written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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.
 */
#include <time.h>
#include <limits.h>
#include "CSemaphore.h"
#include <stdio.h>

//------------------------------------------------------------------------------
CSemaphore::CSemaphore(int size) : m_waiters_count(0), m_count(size)
{
    pthread_mutex_init(&m_mutex, NULL);
    pthread_cond_init(&m_cond, NULL);
}


//------------------------------------------------------------------------------
CSemaphore::~CSemaphore()
{
    pthread_mutex_destroy(&m_mutex);
    pthread_cond_destroy(&m_cond);
}


//------------------------------------------------------------------------------
void CSemaphore::wait()
{
    pthread_mutex_lock(&m_mutex);
    m_waiters_count ++;
    while ( m_count == 0 )
        pthread_cond_wait(&m_cond, &m_mutex);
    m_waiters_count --;
    m_count --;
    pthread_mutex_unlock(&m_mutex);
}

//------------------------------------------------------------------------------
bool CSemaphore::wait(int sec)
{
    int rc = 0;
    struct timespec tm;
    if (sec < 0)
        sec = LONG_MAX;
    clock_gettime(CLOCK_REALTIME, &tm);
    tm.tv_sec += sec;

    pthread_mutex_lock(&m_mutex);
    m_waiters_count ++;
    if ( m_count == 0 ) {
        rc = pthread_cond_timedwait(&m_cond, &m_mutex, &tm);
    }
    m_waiters_count --;
    // Decrement only if waiting actually succeeded, otherwise we
    // just timed out
    if (!rc)
        m_count --;
    pthread_mutex_unlock(&m_mutex);
    return (rc == 0);
}


//------------------------------------------------------------------------------
bool CSemaphore::wouldWait()
{
    bool ret = false;
    pthread_mutex_lock(&m_mutex);
    if ( m_count == 0 )
        ret = true;
    pthread_mutex_unlock(&m_mutex);
    return ret;
}


//------------------------------------------------------------------------------
void CSemaphore::signal()
{
    pthread_mutex_lock(&m_mutex);
    if ( m_waiters_count > 0 )
        pthread_cond_signal(&m_cond);
    m_count ++;
    pthread_mutex_unlock(&m_mutex);
}

/** @} */