/* Copyright (c) 2007-2009, Stanford University
* 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 Stanford University nor the names of its 
*       contributors may be used to endorse or promote products derived from 
*       this software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY STANFORD UNIVERSITY ``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 STANFORD UNIVERSITY 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 <stdlib.h>
#include <pthread.h>
#include <assert.h>
#include "synch.h"

#define print_error(...)

static mr_lock_t ptmutex_alloc(void)
{
    pthread_mutex_t *m;
    int             err;

    m = malloc(sizeof(pthread_mutex_t));
    assert (m != NULL);

    err = pthread_mutex_init(m, NULL);
    assert (err == 0);

    return m;
}

static void ptmutex_acquire(mr_lock_t l)
{
    int err;
    err = pthread_mutex_lock(l);

    if(err != 0) 
    {
      print_error((pthread_mutex_t*)l, 
		  "%s: tid %x: failed, err %d [%llu]",
		  __FUNCTION__, 
		  (unsigned)pthread_self(),
		  err,
		  clock());
    }
}

static void ptmutex_release(mr_lock_t l)
{
    int err;
    
    err = pthread_mutex_unlock(l);
#if 0
    if(err != 0) 
    {
      print_error((pthread_mutex_t*)l, 
		  "%s: tid %x: failed, err %d", 
		  __FUNCTION__,
		  (unsigned)pthread_self(),
		  err);
    }
#endif
}

static void ptmutex_free(mr_lock_t l)
{
    pthread_mutex_destroy(l);
    free(l);
}

static mr_lock_t ptmutex_alloc_per_thread(mr_lock_t l)
{
  //fprintf(stderr, "%s: @%x\n", __FUNCTION__, (unsigned)l);
  return l;
}

static void ptmutex_free_per_thread(mr_lock_t l)
{
}

mr_lock_ops mr_ptmutex_ops = {
    .alloc = ptmutex_alloc,
    .acquire = ptmutex_acquire,
    .release = ptmutex_release,
    .free = ptmutex_free,
    .alloc_per_thread = ptmutex_alloc_per_thread,
    .free_per_thread = ptmutex_free_per_thread,
};