#include <acknex.h>

#define PRAGMA_POINTER

void semaphorewait(int* semaphore)
{
	*semaphore= 0;
	
	wait(-2);
	
	*semaphore= 1;
}



void main(void)
{
	int semaphore;
	
	semaphorewait(&semaphore);
	wait(1);
	while (semaphore== 0) {
		wait(1);
	}
	
	sys_exit("");
}

#define PRAGMA_POINTER

void semaphorewait(int* semaphore)
{
	*semaphore= 0;
	
	wait(-2);
	
	*semaphore= 1;
}

	int semaphore;


void main(void)
{
	
	semaphorewait(&semaphore);
	wait(1);
	while (semaphore== 0) {
		wait(1);
	}
	
	sys_exit("");
}

typedef int* sempahore_t;

semaphore_t semaphoreCreate()
{
    semaphore_t semaphore = malloc(sizeof(semaphore_t));
    *semaphore = 0;

    return semaphore;
}

void semaphoreDestroy(semaphore_t semaphore)
{
    // You could try to lock the semaphore here and only destroy it once you obtained the lock
    free(semaphore);
}

char semaphoreLocked(semaphore_t semaphore)
{
     return (*semaphore == 0);
}


void semaphoreLock(semaphore_t semaphore)
{
    *semaphore = 0;
     wait(-2);
    *semaphore = 1;
}



void main()
{
    semaphore_t semaphore = semaphoreCreate();
    semaphoreLock(semaphore);

    while(semaphoreLocked(semaphore))
       wait(1);

    semaphoreDestroy(semaphore);
}

#ifndef SEMAPHORE_C
#define SEMAPHORE_C

#define MAX_SEMAPHORE 42


typedef struct {
	int semaphores[MAX_SEMAPHORE];
} ss_namespace_type;


ss_namespace_type ss_namespace;

void ss_startup(void)
{
	int i;
	
	for (i = 0; i < MAX_SEMAPHORE; i++) {
		ss_namespace.semaphores[i] = -1;
	}
}

int ss_Allocate()
{
	int i;
	
	for (i = 0; i < MAX_SEMAPHORE; i++) {
		if (ss_namespace.semaphores[i] == -1) {
			return(i);
		}
	}
	
	return(-1);
}

void ss_Release(int i)
{
	if (i < MAX_SEMAPHORE && i >= 0) {
		ss_namespace.semaphores[i] = -1;
	}
}

int ss_get(int i)
{
	if (i < MAX_SEMAPHORE && i >= 0) {
		return(ss_namespace.semaphores[i]);
	}
}
	
void ss_set(int i)
{
	if (i < MAX_SEMAPHORE && i >= 0) {
		ss_namespace.semaphores[i] = 1;
	}
}

void ss_clear(int i)
{
	if (i < MAX_SEMAPHORE && i >= 0) {
		ss_namespace.semaphores[i] = 0;
	}
}	

#define wait_semaphore(ws) while(!ss_get(ws)) wait(1)


#endif