Initial commit

2026-04-03 00:22:39 -05:00
commit eca1e8c458
945 changed files with 218160 additions and 0 deletions
--- a/libsst-concurrency/SST_Thread_Solaris.c
+++ b/libsst-concurrency/SST_Thread_Solaris.c
@@ -0,0 +1,127 @@
+/*
+	SST_Thread_Solaris.c
+	Author: Patrick Baggett <ptbaggett@762studios.com>
+	Created: 4/11/2012
+	
+	Purpose: 
+
+	libsst-concurrency thread functions using Solaris native threads
+
+	License:
+
+	This program is free software. It comes without any warranty, to
+	the extent permitted by applicable law. You can redistribute it
+	and/or modify it under the terms of the Do What The Fuck You Want
+	To Public License, Version 2, as published by Sam Hocevar. See
+	http://sam.zoy.org/wtfpl/COPYING for more details.
+
+*/
+#include <thread.h> /* Solaris native threads */
+#include <unistd.h> /* usleep() */
+#include <errno.h> /* system error codes */
+#include <time.h> /* nanosleep() */
+#include <sys/syscall.h>
+
+#include <pstdint.h>
+#include <SST/SST_Thread.h>
+
+/******************************************************************************/
+
+SST_Thread SST_Concurrency_CreateThread(int(*_func)(void*), void *_arg)
+{
+	thread_t thr;
+	
+	#ifdef _DEBUG
+	if(_func == (int(*)(void*))NULL)
+		return NULL;
+	#endif
+		
+	/* Create the thread */
+	if(thr_create(NULL, 0, (void*(*)(void*))_func, _arg, THR_BOUND, &thr) != 0)
+		return NULL;
+	
+	return (SST_Thread)thr;
+}
+
+/******************************************************************************/
+
+void SST_Concurrency_DestroyThread(SST_Thread _thr)
+{
+	/* Detach the thread. This uses the direct system call
+	since there is no thr_detach() function. This has
+	been tested to work on Solaris 10. */ 
+	syscall(SYS_lwp_detach, (thread_t)_thr);
+}
+
+/******************************************************************************/
+
+void SST_Concurrency_SleepThread(uint32_t _ms)
+{
+	struct timespec req, rem;
+	long msecs  = _ms % 1000; /* milliseconds that are less than 1 sec (0-999) */
+	rem.tv_sec = _ms / 1000; /* msec -> sec by mult 1e-3 */
+	rem.tv_nsec = msecs * (1000 * 1000); /* msec -> nsec by mult 1e6 */
+
+	/* Sleep, continuing if woken up by EINTR (POSIX signal) */
+	do
+	{
+		/* On EINTR, 'rem' contains the remaining time that has not yet
+		been slept. */
+		req = rem;
+		if(nanosleep(&req, &rem) == 0) /* 0 == success */
+			break;
+	} while(errno == EINTR);
+
+}
+
+/******************************************************************************/
+
+uint32_t SST_Concurrency_GetThreadId()
+{
+	return (uint32_t)thr_self();
+}
+
+/******************************************************************************/
+
+uint64_t SST_Concurrency_GetTicks(void)
+{
+	struct timespec tv;
+
+	clock_gettime(CLOCK_MONOTONIC, &tv);
+
+	return ((uint64_t)tv.tv_sec * 1000) + ((uint64_t)tv.tv_nsec / 1000000);	
+}
+
+/******************************************************************************/
+
+int SST_Concurrency_WaitThread(SST_Thread _thr, int* _retval)
+{
+	thread_t thr = (thread_t)_thr;
+	thread_t departed = 0;
+	void* thrRetval;
+	int join_retval;
+	
+	/* Join, capturing the return value */
+	if(_retval)
+	{
+		uintptr_t masked;
+		join_retval = thr_join(thr, &departed, &thrRetval);
+		
+		
+		masked = (uintptr_t)thrRetval;
+		*_retval = (int)masked;
+	}
+	else
+		join_retval = thr_join(thr, &departed, NULL);
+
+
+	return (join_retval == 0 && thr == departed);
+}
+
+/******************************************************************************/
+
+void SST_Concurrency_YieldThread(void)
+{
+	thr_yield();
+}
+