/*
 * CINELERRA
 * Copyright (C) 2008 Adam Williams <broadcast at earthling dot net>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 */

#include "bcipc.h"
#include "bcresources.h"
#include "bcsignals.h"
#include "sema.h"
#include <signal.h>
#include <stdlib.h>
#include <sys/sem.h>
#include <sys/msg.h>
#include <sys/shm.h>





static ArrayList<int> global_shmem_db;
static ArrayList<int> global_sema_db;
static ArrayList<int> global_msg_db;
static Mutex global_ipc_lock;
static int crashed = 0;

// These must be atomic routines

int bc_enter_id(ArrayList<int>* list, int id);
int bc_remove_id(ArrayList<int>* list, int id);

void bc_ipc_termination(int signum)
{
	global_ipc_lock.lock();


	if(!crashed)
	{

#if 0
	  	union semun arg;
		int i;

		if(global_shmem_db.total || global_sema_db.total || global_msg_db.total)
			printf("Crash\n");
		for(i = 0; i < global_shmem_db.total; i++)
		{
			if(!shmctl(global_shmem_db.values[i], IPC_RMID, NULL))
			{
				printf("Deleted shared memory %d\n", global_shmem_db.values[i]);
			}
		}

		for(i = 0; i < global_sema_db.total; i++)
		{
			if(!semctl(global_sema_db.values[i], 0, IPC_RMID, arg))
			{
				printf("Deleted semaphore %d\n", global_sema_db.values[i]);
			}
		}

		for(i = 0; i < global_msg_db.total; i++)
		{
			if(!msgctl(global_msg_db.values[i], IPC_RMID, NULL))
			{
				printf("Deleted message %d\n", global_msg_db.values[i]);
			}
		}

		global_shmem_db.remove_all();
		global_sema_db.remove_all();
		global_msg_db.remove_all();



#endif


// dispatch user specified signal handler
		if(BC_Resources::signal_handler)
			BC_Resources::signal_handler->signal_handler(signum);
		crashed = 1;
	}
	global_ipc_lock.unlock();
	exit(0);
}

int bc_init_ipc()
{
	if(signal(SIGSEGV, bc_ipc_termination) == SIG_IGN)
		signal(SIGSEGV, SIG_IGN);
	if(signal(SIGBUS, bc_ipc_termination) == SIG_IGN)
		signal(SIGBUS, SIG_IGN);
	//      SIGKILL can't be ignored
	//	if(signal(SIGKILL, bc_ipc_termination) == SIG_IGN)
	//		signal(SIGKILL, SIG_IGN);
	if(signal(SIGINT, bc_ipc_termination) == SIG_IGN)
		signal(SIGINT, SIG_IGN);
	if(signal(SIGHUP, bc_ipc_termination) == SIG_IGN)
		signal(SIGHUP, SIG_IGN);
	if(signal(SIGTERM, bc_ipc_termination) == SIG_IGN)
		signal(SIGTERM, SIG_IGN);
	return 0;
}


int bc_enter_shmem_id(int id)
{
	return bc_enter_id(&global_shmem_db, id);
}

int bc_remove_shmem_id(int id)
{
	return bc_remove_id(&global_shmem_db, id);
}

int bc_enter_sema_id(int id)
{
	return bc_enter_id(&global_sema_db, id);
}

int bc_remove_sema_id(int id)
{
	return bc_remove_id(&global_sema_db, id);
}

int bc_enter_msg_id(int id)
{
	return bc_enter_id(&global_msg_db, id);
}

int bc_remove_msg_id(int id)
{
	return bc_remove_id(&global_msg_db, id);
}

int bc_enter_id(ArrayList<int>* list, int id)
{
	int i, result = 0;
	global_ipc_lock.lock();
	for(i = 0; i < list->total; i++)
	{
		if(list->values[i] == id) result = 1;
	}
	if(!result) list->append(id);
	global_ipc_lock.unlock();
	return 0;
}

int bc_remove_id(ArrayList<int>* list, int id)
{
	int i;
	global_ipc_lock.lock();
	for(i = 0; i < list->total; i++)
	{
		if(list->values[i] == id) list->remove_number(i);
	}
	global_ipc_lock.unlock();
	return 0;
}