wow. that was easy: git mv core nucleus
[feisty_meow.git] / nucleus / library / basis / mutex.cpp
1 /*****************************************************************************\
2 *                                                                             *
3 *  Name   : mutex                                                             *
4 *  Author : Chris Koeritz                                                     *
5 *                                                                             *
6 *******************************************************************************
7 * Copyright (c) 1996-$now By Author.  This program is free software; you can  *
8 * redistribute it and/or modify it under the terms of the GNU General Public  *
9 * License as published by the Free Software Foundation; either version 2 of   *
10 * the License or (at your option) any later version.  This is online at:      *
11 *     http://www.fsf.org/copyleft/gpl.html                                    *
12 * Please send any updates to: fred@gruntose.com                               *
13 \*****************************************************************************/
14
15 // NOTE: we are explicitly avoiding use of new and delete here because this
16 //       class is needed by our memory allocation object, which would be
17 //       providing the new and delete methods.
18
19 #include "mutex.h"
20
21 #include <stdlib.h>
22
23 #ifdef __UNIX__
24   #include <pthread.h>
25 #endif
26 #ifdef __WIN32__
27   #define _WINSOCKAPI_  // make windows.h happy about winsock.
28   #include <windows.h>
29 #endif
30
31 namespace basis {
32
33 mutex::mutex() { construct(); }
34
35 mutex::~mutex() { destruct(); }
36
37 void mutex::establish_lock() { lock(); }
38
39 void mutex::repeal_lock() { unlock(); }
40
41 void mutex::construct()
42 {
43 #ifdef __WIN32__
44   c_os_mutex = (CRITICAL_SECTION *)malloc(sizeof(CRITICAL_SECTION));
45   InitializeCriticalSection((LPCRITICAL_SECTION)c_os_mutex);
46 #elif defined(__UNIX__)
47   pthread_mutexattr_t attr;
48   pthread_mutexattr_init(&attr);
49   int ret = -1;
50 #ifdef __APPLE__
51   ret = pthread_mutexattr_settype(&attr, PTHREAD_MUTEX_RECURSIVE);
52 #else
53   ret = pthread_mutexattr_settype(&attr, PTHREAD_MUTEX_RECURSIVE_NP);
54 #endif
55   if (ret != 0) {
56 //printf("failed to initialize mutex attributes!\n"); fflush(NIL);
57   }
58   c_os_mutex = (pthread_mutex_t *)malloc(sizeof(pthread_mutex_t));
59   pthread_mutex_init((pthread_mutex_t *)c_os_mutex, &attr);
60   pthread_mutexattr_destroy(&attr);
61 #else
62   #pragma error("no implementation of mutexes for this OS yet!")
63 #endif
64 }
65
66 void mutex::destruct()
67 {
68   defang();
69 }
70
71 void mutex::defang()
72 {
73   if (!c_os_mutex) return;  // already defunct.
74 #ifdef __WIN32__
75   DeleteCriticalSection((LPCRITICAL_SECTION)c_os_mutex);
76   free(c_os_mutex);
77 #elif defined(__UNIX__)
78   pthread_mutex_destroy((pthread_mutex_t *)c_os_mutex);
79   free(c_os_mutex);
80 #else
81   #pragma error("no implementation of mutexes for this OS yet!")
82 #endif
83   c_os_mutex = 0;
84 }
85
86 void mutex::lock()
87 {
88   if (!c_os_mutex) return;
89 #ifdef __WIN32__
90   EnterCriticalSection((LPCRITICAL_SECTION)c_os_mutex);
91 #elif defined(__UNIX__)
92   pthread_mutex_lock((pthread_mutex_t *)c_os_mutex);
93 #else
94   #pragma error("no implementation of mutexes for this OS yet!")
95 #endif
96 }
97
98 void mutex::unlock()
99 {
100   if (!c_os_mutex) return;
101 #ifdef __WIN32__
102   LeaveCriticalSection((LPCRITICAL_SECTION)c_os_mutex);
103 #elif defined(__UNIX__)
104   pthread_mutex_unlock((pthread_mutex_t *)c_os_mutex);
105 #else
106   #pragma error("no implementation of mutexes for this OS yet!")
107 #endif
108 }
109
110 } //namespace.
111