/*
 * Copyright 2008, Ingo Weinhold, ingo_weinhold@gmx.de.
 * Copyright 2008, Axel Dörfler, axeld@pinc-software.de.
 * Copyright 2006, Jérôme Duval. All rights reserved.
 * Distributed under the terms of the MIT License.
 */


#include <pthread.h>
#include "pthread_private.h"

#include <limits.h>
#include <stdlib.h>

#include <Debug.h>

#include <syscalls.h>
#include <thread_defs.h>


int __pthread_attr_get_np(pthread_t thread, pthread_attr_t *_attr);
int __pthread_getattr_np(pthread_t thread, pthread_attr_t *_attr);


int
pthread_attr_init(pthread_attr_t *_attr)
{
	pthread_attr *attr;

	if (_attr == NULL)
		return B_BAD_VALUE;

	attr = (pthread_attr *)malloc(sizeof(pthread_attr));
	if (attr == NULL)
		return B_NO_MEMORY;

	attr->detach_state = PTHREAD_CREATE_JOINABLE;
	attr->sched_priority = B_NORMAL_PRIORITY;
	attr->stack_size = USER_STACK_SIZE;
	attr->guard_size = USER_STACK_GUARD_SIZE;
	attr->stack_address = NULL;

	*_attr = attr;
	return B_OK;
}


int
pthread_attr_destroy(pthread_attr_t *_attr)
{
	pthread_attr *attr;

	if (_attr == NULL || (attr = *_attr) == NULL)
		return B_BAD_VALUE;

	*_attr = NULL;
	free(attr);

	return B_OK;
}


int
pthread_attr_getdetachstate(const pthread_attr_t *_attr, int *state)
{
	pthread_attr *attr;

	if (_attr == NULL || (attr = *_attr) == NULL || state == NULL)
		return B_BAD_VALUE;

	*state = attr->detach_state;

	return B_OK;
}


int
pthread_attr_setdetachstate(pthread_attr_t *_attr, int state)
{
	pthread_attr *attr;

	if (_attr == NULL || (attr = *_attr) == NULL)
		return B_BAD_VALUE;

	if (state != PTHREAD_CREATE_JOINABLE && state != PTHREAD_CREATE_DETACHED)
		return B_BAD_VALUE;

	attr->detach_state = state;

	return B_OK;
}


int
pthread_attr_getstacksize(const pthread_attr_t *_attr, size_t *stacksize)
{
	pthread_attr *attr;

	if (_attr == NULL || (attr = *_attr) == NULL || stacksize == NULL)
		return B_BAD_VALUE;

	*stacksize = attr->stack_size;

	return 0;
}


int
pthread_attr_setstacksize(pthread_attr_t *_attr, size_t stacksize)
{
	pthread_attr *attr;

	if (_attr == NULL || (attr = *_attr) == NULL)
		return B_BAD_VALUE;

	STATIC_ASSERT(PTHREAD_STACK_MIN >= MIN_USER_STACK_SIZE
		&& PTHREAD_STACK_MIN <= MAX_USER_STACK_SIZE);
	if (stacksize < PTHREAD_STACK_MIN || stacksize > MAX_USER_STACK_SIZE)
		return B_BAD_VALUE;

	attr->stack_size = stacksize;

	return 0;
}


int
pthread_attr_getscope(const pthread_attr_t *attr, int *contentionScope)
{
	if (attr == NULL || contentionScope == NULL)
		return EINVAL;

	*contentionScope = PTHREAD_SCOPE_SYSTEM;
	return 0;
}


int
pthread_attr_setscope(pthread_attr_t *attr, int contentionScope)
{
	if (attr == NULL)
		return EINVAL;

	if (contentionScope != PTHREAD_SCOPE_SYSTEM)
		return ENOTSUP;

	return 0;
}


int
pthread_attr_setschedparam(pthread_attr_t *attr,
	const struct sched_param *param)
{
	if (attr == NULL || param == NULL)
		return EINVAL;

	(*attr)->sched_priority = param->sched_priority;

	return 0;
}


int
pthread_attr_getschedparam(const pthread_attr_t *attr,
	struct sched_param *param)
{
	if (attr == NULL || param == NULL)
		return EINVAL;

	param->sched_priority = (*attr)->sched_priority;

	return 0;
}


int
pthread_attr_getguardsize(const pthread_attr_t *_attr, size_t *guardsize)
{
	pthread_attr *attr;

	if (_attr == NULL || (attr = *_attr) == NULL || guardsize == NULL)
		return B_BAD_VALUE;

	*guardsize = attr->guard_size;

	return 0;
}


int
pthread_attr_setguardsize(pthread_attr_t *_attr, size_t guardsize)
{
	pthread_attr *attr;

	if (_attr == NULL || (attr = *_attr) == NULL)
		return B_BAD_VALUE;

	attr->guard_size = guardsize;

	return 0;
}


int
pthread_attr_getstack(const pthread_attr_t *_attr, void **stackaddr,
	size_t *stacksize)
{
	pthread_attr *attr;

	if (_attr == NULL || (attr = *_attr) == NULL || stackaddr == NULL
		|| stacksize == NULL) {
		return B_BAD_VALUE;
	}

	*stacksize = attr->stack_size;
	*stackaddr = attr->stack_address;

	return 0;
}


int
pthread_attr_setstack(pthread_attr_t *_attr, void *stackaddr,
	size_t stacksize)
{
	pthread_attr *attr;

	if (_attr == NULL || (attr = *_attr) == NULL)
		return B_BAD_VALUE;

	STATIC_ASSERT(PTHREAD_STACK_MIN >= MIN_USER_STACK_SIZE
		&& PTHREAD_STACK_MIN <= MAX_USER_STACK_SIZE);
	if (stacksize < PTHREAD_STACK_MIN || stacksize > MAX_USER_STACK_SIZE)
		return B_BAD_VALUE;

	attr->stack_size = stacksize;
	attr->stack_address = stackaddr;

	return 0;
}


int
__pthread_attr_get_np(pthread_t thread, pthread_attr_t *_attr)
{
	pthread_attr *attr;
	status_t status;
	thread_info info;

	if (_attr == NULL || (attr = *_attr) == NULL)
		return B_BAD_VALUE;

	status = _kern_get_thread_info(thread->id, &info);
	if (status == B_BAD_THREAD_ID)
		return ESRCH;

	if ((thread->flags & THREAD_DETACHED) != 0)
		attr->detach_state = PTHREAD_CREATE_DETACHED;
	else
		attr->detach_state = PTHREAD_CREATE_JOINABLE;
	attr->sched_priority = info.priority;
	attr->stack_address = info.stack_base;
	attr->stack_size = (size_t)info.stack_end - (size_t)info.stack_base;
	// not in thread_info
	attr->guard_size = 0;

	return 0;
}


int
__pthread_getattr_np(pthread_t thread, pthread_attr_t *_attr)
{
	int err = pthread_attr_init(_attr);
	if (err == 0)
		err = __pthread_attr_get_np(thread, _attr);
	return err;
}


B_DEFINE_WEAK_ALIAS(__pthread_getattr_np, pthread_getattr_np);
B_DEFINE_WEAK_ALIAS(__pthread_attr_get_np, pthread_attr_get_np);