/*******************************************************************************
 * Copyright 2016 IBM Corp.
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 * http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 *******************************************************************************/
#if defined(_ZOS)
#ifndef _UNIX03_THREADS
#define _UNIX03_THREADS
#endif
#endif

#include "ibmras/common/port/Lock.h"
#include "ibmras/common/logging.h"

#if defined(WINDOWS)
#include <process.h>
#include <windows.h>
#else
#include "pthread.h"
#endif

namespace ibmras{
namespace common{
namespace port {

namespace locking {
IBMRAS_DEFINE_LOGGER("locking")
}
using namespace locking;

Lock::Lock() {
#if defined(WINDOWS)
	lock = new CRITICAL_SECTION;		/* create a new lock fpr this class */
	CRITICAL_SECTION* c = reinterpret_cast<CRITICAL_SECTION*>(reinterpret_cast<uintptr_t>(lock));
	InitializeCriticalSection(c);
#else
	lock = new pthread_mutex_t;		/* create a new lock fpr this class */
	pthread_mutex_t* mutex = reinterpret_cast<pthread_mutex_t*>(lock);
	pthread_mutex_init(mutex, NULL);
#endif
}

/* acquire a pthread mutex */
int Lock::acquire() {
	if(lock) {
#if defined(WINDOWS)
		CRITICAL_SECTION* c = reinterpret_cast<CRITICAL_SECTION*>(reinterpret_cast<uintptr_t>(lock));
		EnterCriticalSection(c);
		return 0;
#else
		return pthread_mutex_lock(reinterpret_cast<pthread_mutex_t*>(lock));
#endif

	} else {
		IBMRAS_DEBUG(warning, "Attempted to acquire a previously failed lock");
		return LOCK_FAIL;
	}
}

/* release the mutex */
int Lock::release() {
	if(lock) {
#if defined(WINDOWS)
		CRITICAL_SECTION* c = reinterpret_cast<CRITICAL_SECTION*>(reinterpret_cast<uintptr_t>(lock));
		LeaveCriticalSection(c);
		return 0;
#else
		return pthread_mutex_unlock(reinterpret_cast<pthread_mutex_t*>(lock));
#endif
	} else {
		IBMRAS_DEBUG(warning, "Attempted to release a previously failed lock");
		return LOCK_FAIL;
	}
}

void Lock::destroy() {
	if(lock) {
#if defined(WINDOWS)
		CRITICAL_SECTION* c = reinterpret_cast<CRITICAL_SECTION*>(reinterpret_cast<uintptr_t>(lock));
		DeleteCriticalSection(c);
#else
		pthread_mutex_destroy(reinterpret_cast<pthread_mutex_t*>(lock));
#endif
		lock = NULL;
	}
}

bool Lock::isDestroyed() {
	return lock == NULL;
}

Lock::~Lock() {
	destroy();
}

}
}
}