sdl-ios-xcode: src/thread/os2/SDL

annotate src/thread/os2/SDL_syssem.c @ 2429:2c55b72ba46e gsoc2008_iphone

testdyngles is exactly what it sounds like -- a version of testdyngl that uses OpenGL ES calls instead of OpenGL. Was necessary to create because glOrtho is called glOrthof in OpenGL ES, and OpenGL ES doesn't have glBegin() type semantics for specifying geometry.

author	Holmes Futrell <hfutrell@umail.ucsb.edu>
date	Fri, 15 Aug 2008 00:52:52 +0000
parents	c121d94672cb
children	99210400e8b9

rev	line source
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	1 /*
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	2 SDL - Simple DirectMedia Layer
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	3 Copyright (C) 1997-2006 Sam Lantinga
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	4
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	5 This library is free software; you can redistribute it and/or
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	6 modify it under the terms of the GNU Lesser General Public
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	7 License as published by the Free Software Foundation; either
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	8 version 2.1 of the License, or (at your option) any later version.
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	9
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	10 This library is distributed in the hope that it will be useful,
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	11 but WITHOUT ANY WARRANTY; without even the implied warranty of
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	13 Lesser General Public License for more details.
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	14
1312 c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	15 You should have received a copy of the GNU Lesser General Public
c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	16 License along with this library; if not, write to the Free Software
c9b51268668f Updated copyright information and removed rcs id lines (problematic in branch merges) Sam Lantinga <slouken@libsdl.org> parents: 1190 diff changeset	17 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	18
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	19 Sam Lantinga
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	20 slouken@libsdl.org
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	21 */
1402 d910939febfa Use consistent identifiers for the various platforms we support. Sam Lantinga <slouken@libsdl.org> parents: 1358 diff changeset	22 #include "SDL_config.h"
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	23
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	24 /* Semaphore functions using the OS/2 API */
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	25
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	26 #define INCL_DOS
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	27 #define INCL_DOSERRORS
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	28 #define INCL_DOSSEMAPHORES
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	29 #include <os2.h>
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	30
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	31 #include "SDL_thread.h"
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	32 #include "SDL_timer.h"
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	33
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	34
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	35 struct SDL_semaphore
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	36 {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	37 HMTX id;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	38 HEV changed;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	39 Uint32 value;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	40 };
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	41
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	42
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	43 /* Create a semaphore */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	44 DECLSPEC SDL_sem *SDLCALL
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	45 SDL_CreateSemaphore(Uint32 initial_value)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	46 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	47 SDL_sem *sem;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	48 ULONG ulrc;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	49
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	50 /* Allocate sem memory */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	51 sem = (SDL_sem ) SDL_malloc(sizeof(sem));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	52 if (sem) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	53 /* Create the mutex semaphore */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	54 ulrc = DosCreateMutexSem(NULL, &(sem->id), 0, TRUE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	55 if (ulrc) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	56 SDL_SetError("Couldn't create semaphore");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	57 SDL_free(sem);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	58 sem = NULL;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	59 } else {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	60 DosCreateEventSem(NULL, &(sem->changed), 0, FALSE);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	61 sem->value = initial_value;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	62 DosReleaseMutexSem(sem->id);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	63 }
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	64 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	65 SDL_OutOfMemory();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	66 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	67 return (sem);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	68 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	69
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	70 /* Free the semaphore */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	71 DECLSPEC void SDLCALL
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	72 SDL_DestroySemaphore(SDL_sem * sem)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	73 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	74 if (sem) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	75 if (sem->id) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	76 DosCloseEventSem(sem->changed);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	77 DosCloseMutexSem(sem->id);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	78 sem->id = 0;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	79 }
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	80 SDL_free(sem);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	81 }
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	82 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	83
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	84 DECLSPEC int SDLCALL
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	85 SDL_SemWaitTimeout(SDL_sem * sem, Uint32 timeout)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	86 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	87 ULONG ulrc;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	88
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	89 if (!sem) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	90 SDL_SetError("Passed a NULL sem");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	91 return -1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	92 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	93
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	94 if (timeout == SDL_MUTEX_MAXWAIT) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	95 while (1) {
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	96 ulrc = DosRequestMutexSem(sem->id, SEM_INDEFINITE_WAIT);
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	97 if (ulrc) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	98 /* if error waiting mutex */
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	99 SDL_SetError("DosRequestMutexSem() failed");
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	100 return -1;
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	101 } else if (sem->value) {
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	102 sem->value--;
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	103 DosReleaseMutexSem(sem->id);
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	104 return 0;
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	105 } else {
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	106 ULONG ulPostCount;
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	107 DosResetEventSem(sem->changed, &ulPostCount);
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	108 DosReleaseMutexSem(sem->id);
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	109 /* continue waiting until somebody posts the semaphore */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	110 DosWaitEventSem(sem->changed, SEM_INDEFINITE_WAIT);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	111 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	112 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	113 } else if (timeout == 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	114 ulrc = DosRequestMutexSem(sem->id, SEM_INDEFINITE_WAIT);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	115 if (ulrc == NO_ERROR) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	116 if (sem->value) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	117 sem->value--;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	118 DosReleaseMutexSem(sem->id);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	119 return 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	120 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	121 DosReleaseMutexSem(sem->id);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	122 return SDL_MUTEX_TIMEDOUT;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	123 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	124 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	125 SDL_SetError("DosRequestMutexSem() failed");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	126 return -1;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	127 }
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	128 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	129 ulrc = DosRequestMutexSem(sem->id, SEM_INDEFINITE_WAIT);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	130 if (ulrc) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	131 /* if error waiting mutex */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	132 SDL_SetError("DosRequestMutexSem() failed");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	133 return -1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	134 } else if (sem->value) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	135 sem->value--;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	136 DosReleaseMutexSem(sem->id);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	137 return 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	138 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	139 ULONG ulPostCount;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	140 DosResetEventSem(sem->changed, &ulPostCount);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	141 DosReleaseMutexSem(sem->id);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	142 /* continue waiting until somebody posts the semaphore */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	143 ulrc = DosWaitEventSem(sem->changed, timeout);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	144 if (ulrc == NO_ERROR)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	145 return 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	146 else
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	147 return SDL_MUTEX_TIMEDOUT;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	148 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	149 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	150 /* never reached */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	151 return -1;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	152 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	153
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	154 DECLSPEC int SDLCALL
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	155 SDL_SemTryWait(SDL_sem * sem)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	156 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	157 return SDL_SemWaitTimeout(sem, 0);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	158 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	159
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	160 DECLSPEC int SDLCALL
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	161 SDL_SemWait(SDL_sem * sem)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	162 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	163 return SDL_SemWaitTimeout(sem, SDL_MUTEX_MAXWAIT);
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	164 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	165
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	166 /* Returns the current count of the semaphore */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	167 DECLSPEC Uint32 SDLCALL
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	168 SDL_SemValue(SDL_sem * sem)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	169 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	170 if (!sem) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	171 SDL_SetError("Passed a NULL sem");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	172 return 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	173 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	174 return sem->value;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	175 }
173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	176
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	177 DECLSPEC int SDLCALL
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	178 SDL_SemPost(SDL_sem * sem)
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	179 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	180 if (!sem) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	181 SDL_SetError("Passed a NULL sem");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	182 return -1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	183 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	184 if (DosRequestMutexSem(sem->id, SEM_INDEFINITE_WAIT)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	185 SDL_SetError("DosRequestMutexSem() failed");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	186 return -1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	187 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	188 sem->value++;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	189 DosPostEventSem(sem->changed);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	190 DosReleaseMutexSem(sem->id);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	191 return 0;
1190 173c063d4f55 OS/2 port! Ryan C. Gordon <icculus@icculus.org> parents: diff changeset	192 }
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	193
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1402 diff changeset	194 /* vi: set ts=4 sw=4 expandtab: */

Mercurial > sdl-ios-xcode

annotate src/thread/os2/SDL_syssem.c @ 2429:2c55b72ba46e gsoc2008_iphone