/*
 * Copyright (c) 2018-2020, NVIDIA CORPORATION.  All rights reserved.
 *
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the "Software"),
 * to deal in the Software without restriction, including without limitation
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
 * and/or sell copies of the Software, and to permit persons to whom the
 * Software is furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
 * DEALINGS IN THE SOFTWARE.
 */

#include <nvgpu/cond.h>
#include <nvgpu/log.h>
#include <nvgpu/static_analysis.h>
#ifdef NVGPU_UNITTEST_FAULT_INJECTION_ENABLEMENT
#include <nvgpu/posix/posix-fault-injection.h>
#endif

#ifdef NVGPU_UNITTEST_FAULT_INJECTION_ENABLEMENT
struct nvgpu_posix_fault_inj *nvgpu_cond_get_fault_injection(void)
{
	struct nvgpu_posix_fault_inj_container *c =
			nvgpu_posix_fault_injection_get_container();

	return &c->cond_fi;
}

struct nvgpu_posix_fault_inj *nvgpu_cond_broadcast_get_fault_injection(void)
{
	struct nvgpu_posix_fault_inj_container *c =
			nvgpu_posix_fault_injection_get_container();

	return &c->cond_broadcast_fi;
}
#endif

int nvgpu_cond_init(struct nvgpu_cond *cond)
{
	int ret;

#ifdef NVGPU_UNITTEST_FAULT_INJECTION_ENABLEMENT
	if (nvgpu_posix_fault_injection_handle_call(
					nvgpu_cond_get_fault_injection())) {
		return -EINVAL;
	}
#endif

	ret = pthread_condattr_init(&cond->attr);
	if (ret != 0) {
		return ret;
	}
	ret = pthread_condattr_setclock(&cond->attr, CLOCK_MONOTONIC);
	if (ret != 0) {
		if ((pthread_condattr_destroy(&cond->attr)) != 0) {
			nvgpu_info(NULL, "Cond attr destroy error");
		}
		return ret;
	}

	nvgpu_mutex_init(&cond->mutex);

	ret = pthread_cond_init(&cond->cond, &cond->attr);
	if (ret != 0) {
		if ((pthread_condattr_destroy(&cond->attr)) != 0) {
			nvgpu_info(NULL, "Cond attr destroy error");
		}
		(void) nvgpu_mutex_destroy(&cond->mutex);
		return ret;
	}

	cond->initialized = true;
	return ret;
}

void nvgpu_cond_signal(struct nvgpu_cond *cond)
{
	int err;

	if ((cond == NULL) || !(cond->initialized)) {
		BUG();
	}
	nvgpu_mutex_acquire(&cond->mutex);
	err = pthread_cond_signal(&cond->cond);
	nvgpu_mutex_release(&cond->mutex);
	if (err != 0) {
		nvgpu_err(NULL, "OS API pthread_cond_signal error = %d", err);
	}
#ifndef CONFIG_NVGPU_NON_FUSA
	nvgpu_assert(err == 0);
#endif
}

void nvgpu_cond_signal_interruptible(struct nvgpu_cond *cond)
{
	int err;

	if ((cond == NULL) || !(cond->initialized)) {
		BUG();
	}
	nvgpu_mutex_acquire(&cond->mutex);
	err = pthread_cond_signal(&cond->cond);
	nvgpu_mutex_release(&cond->mutex);
	if (err != 0) {
		nvgpu_err(NULL, "OS API pthread_cond_signal error = %d", err);
	}
#ifndef CONFIG_NVGPU_NON_FUSA
	nvgpu_assert(err == 0);
#endif
}

int nvgpu_cond_broadcast(struct nvgpu_cond *cond)
{
	int ret;

#ifdef NVGPU_UNITTEST_FAULT_INJECTION_ENABLEMENT
	if (nvgpu_posix_fault_injection_handle_call(
				nvgpu_cond_broadcast_get_fault_injection())) {
		return -EINVAL;
	}
#endif

	if ((cond == NULL) || !(cond->initialized)) {
		return -EINVAL;
	}
	nvgpu_mutex_acquire(&cond->mutex);
	ret = pthread_cond_broadcast(&cond->cond);
	nvgpu_mutex_release(&cond->mutex);
	return ret;
}

int nvgpu_cond_broadcast_interruptible(struct nvgpu_cond *cond)
{
	int ret;

	if ((cond == NULL) || !(cond->initialized)) {
		return -EINVAL;
	}
	nvgpu_mutex_acquire(&cond->mutex);
	ret = pthread_cond_broadcast(&cond->cond);
	nvgpu_mutex_release(&cond->mutex);
	return ret;
}

void nvgpu_cond_destroy(struct nvgpu_cond *cond)
{
	int err;

	if (cond == NULL) {
		BUG();
	}
#ifndef CONFIG_NVGPU_NON_FUSA
	err = pthread_cond_destroy(&cond->cond);
	if (err != 0) {
		nvgpu_err(NULL, "OS API pthread_cond_destroy error = %d", err);
	}
	nvgpu_assert(err == 0);
#else
	(void) pthread_cond_destroy(&cond->cond);
#endif
	nvgpu_mutex_destroy(&cond->mutex);
	err = pthread_condattr_destroy(&cond->attr);
	if (err != 0) {
		nvgpu_info(NULL, "Cond attr destroy error");
	}
	cond->initialized = false;
}

void nvgpu_cond_signal_locked(struct nvgpu_cond *cond)
{
	int err;

	if ((cond == NULL) || !(cond->initialized)) {
		BUG();
	}
	err = pthread_cond_signal(&cond->cond);
	if (err != 0) {
		nvgpu_err(NULL, "OS API pthread_cond_signal error = %d", err);
	}
#ifndef CONFIG_NVGPU_NON_FUSA
	nvgpu_assert(err == 0);
#endif
}

int nvgpu_cond_broadcast_locked(struct nvgpu_cond *cond)
{
	if (!cond->initialized) {
		return -EINVAL;
	}

	return pthread_cond_broadcast(&cond->cond);
}

void nvgpu_cond_lock(struct nvgpu_cond *cond)
{
	nvgpu_mutex_acquire(&cond->mutex);
}

void nvgpu_cond_unlock(struct nvgpu_cond *cond)
{
	nvgpu_mutex_release(&cond->mutex);
}

int nvgpu_cond_timedwait(struct nvgpu_cond *c, unsigned int *ms)
{
	int ret;
	const int err_ret = -1;
	const unsigned int tmp0 = 0;
	s64 t_start_ns, t_ns;
	const s64 const_ns = 1000000000L;
	const s64 const_ms = 1000000L;
	struct timespec ts;

#ifdef NVGPU_UNITTEST_FAULT_INJECTION_ENABLEMENT
	if (nvgpu_posix_fault_injection_handle_call(
					nvgpu_cond_get_fault_injection())) {
		return -ETIMEDOUT;
	}
#endif

	if (*ms == NVGPU_COND_WAIT_TIMEOUT_MAX_MS) {
		return pthread_cond_wait(&c->cond, &c->mutex.lock.mutex);
	}

	if (clock_gettime(CLOCK_MONOTONIC, &ts) == err_ret) {
		return -EFAULT;
	}

	t_start_ns = nvgpu_safe_mult_s64(ts.tv_sec, const_ns);
	t_start_ns = nvgpu_safe_add_s64(t_start_ns, ts.tv_nsec);
	t_ns = (s64)(*ms);
	t_ns = nvgpu_safe_mult_s64(t_ns, const_ms);
	t_ns =  nvgpu_safe_add_s64(t_ns, t_start_ns);
	ts.tv_sec = t_ns / const_ns;
	ts.tv_nsec = t_ns % const_ns;

	ret = pthread_cond_timedwait(&c->cond, &c->mutex.lock.mutex, &ts);
	if (ret == 0) {
		if (clock_gettime(CLOCK_MONOTONIC, &ts) != err_ret) {
			t_ns = nvgpu_safe_mult_s64(ts.tv_sec, const_ns);
			t_ns = nvgpu_safe_add_s64(t_ns, ts.tv_nsec);
			t_ns = nvgpu_safe_sub_s64(t_ns, t_start_ns);
			t_ns /= const_ms;
			if ((s64)*ms <= t_ns) {
				*ms = tmp0;
			} else {
				*ms -= (unsigned int)t_ns;
			}
		}
	}
	return ret;
}