/*

 * Copyright (c) 2014-2017, Intel Corporation

 *

 * 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 Intel Corporation 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 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.

 *

 *

 * It looks like there is still no support for C11's threads.h.

 *

 * We implement the few features we actually need hoping that this file will

 * soon go away.

 */

#ifndef THREADS_H

#define THREADS_H

#include <pthread.h>

#ifndef PTHREAD_MUTEX_NORMAL

#  define PTHREAD_MUTEX_NORMAL PTHREAD_MUTEX_TIMED_NP

#endif

#include <stdint.h>

#include <stdlib.h>

enum {

	thrd_success	= 1,

	thrd_error

};

struct pt_thread {

	pthread_t thread;

};

typedef struct pt_thread thrd_t;

typedef int (*thrd_start_t)(void *);

struct thrd_args {

	thrd_start_t fun;

	void *arg;

};

static void *thrd_routine(void *arg)

{

	struct thrd_args *args;

	int result;

	args = arg;

	if (!args)

		return (void *) (intptr_t) -1;

	result = -1;

	if (args->fun)

		result = args->fun(args->arg);

	free(args);

	return (void *) (intptr_t) result;

}

static inline int thrd_create(thrd_t *thrd, thrd_start_t fun, void *arg)

{

	struct thrd_args *args;

	int errcode;

	if (!thrd || !fun)

		return thrd_error;

	args = malloc(sizeof(*args));

	if (!args)

		return thrd_error;

	args->fun = fun;

	args->arg = arg;

	errcode = pthread_create(&thrd->thread, NULL, thrd_routine, args);

	if (errcode) {

		free(args);

		return thrd_error;

	}

	return thrd_success;

}

static inline int thrd_join(thrd_t *thrd, int *res)

{

	void *result;

	int errcode;

	if (!thrd)

		return thrd_error;

	errcode = pthread_join(thrd->thread, &result);

	if (errcode)

		return thrd_error;

	if (res)

		*res = (int) (intptr_t) result;

	return thrd_success;

}

struct pt_mutex {

	pthread_mutex_t mutex;

};

typedef struct pt_mutex mtx_t;

enum {

	mtx_plain = PTHREAD_MUTEX_NORMAL

};

static inline int mtx_init(mtx_t *mtx, int type)

{

	int errcode;

	if (!mtx || type != mtx_plain)

		return thrd_error;

	errcode = pthread_mutex_init(&mtx->mutex, NULL);

	if (errcode)

		return thrd_error;

	return thrd_success;

}

static inline void mtx_destroy(mtx_t *mtx)

{

	if (mtx)

		(void) pthread_mutex_destroy(&mtx->mutex);

}

static inline int mtx_lock(mtx_t *mtx)

{

	int errcode;

	if (!mtx)

		return thrd_error;

	errcode = pthread_mutex_lock(&mtx->mutex);

	if (errcode)

		return thrd_error;

	return thrd_success;

}

static inline int mtx_unlock(mtx_t *mtx)

{

	int errcode;

	if (!mtx)

		return thrd_error;

	errcode = pthread_mutex_unlock(&mtx->mutex);

	if (errcode)

		return thrd_error;

	return thrd_success;

}

struct pt_cond {

	pthread_cond_t cond;

};

typedef struct pt_cond cnd_t;

static inline int cnd_init(cnd_t *cnd)

{

	int errcode;

	if (!cnd)

		return thrd_error;

	errcode = pthread_cond_init(&cnd->cond, NULL);

	if (errcode)

		return thrd_error;

	return thrd_success;

}

static inline int cnd_destroy(cnd_t *cnd)

{

	int errcode;

	if (!cnd)

		return thrd_error;

	errcode = pthread_cond_destroy(&cnd->cond);

	if (errcode)

		return thrd_error;

	return thrd_success;

}

static inline int cnd_signal(cnd_t *cnd)

{

	int errcode;

	if (!cnd)

		return thrd_error;

	errcode = pthread_cond_signal(&cnd->cond);

	if (errcode)

		return thrd_error;

	return thrd_success;

}

static inline int cnd_broadcast(cnd_t *cnd)

{

	int errcode;

	if (!cnd)

		return thrd_error;

	errcode = pthread_cond_broadcast(&cnd->cond);

	if (errcode)

		return thrd_error;

	return thrd_success;

}

static inline int cnd_wait(cnd_t *cnd, mtx_t *mtx)

{

	int errcode;

	if (!cnd || !mtx)

		return thrd_error;

	errcode = pthread_cond_wait(&cnd->cond, &mtx->mutex);

	if (errcode)

		return thrd_error;

	return thrd_success;

}

#endif /* THREADS_H */