/*
 * util_lib.c
 * Utility functions to emulate MACT
 *
 * by Jonathon Fowler
 *
 * Since we weren't given the source for MACT386.LIB so I've had to do some
 * creative interpolation here.
 *
 */
//-------------------------------------------------------------------------
/*
Duke Nukem Copyright (C) 1996, 2003 3D Realms Entertainment

This file is part of Duke Nukem 3D version 1.5 - Atomic Edition

Duke Nukem 3D 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 "compat.h"
#include "types.h"
#include "util_lib.h"
#include "baselayer.h"

//#define MOTOROLA


static void (*ShutDown)(void) = NULL;	// this is defined by whoever links us


void RegisterShutdownFunction( void (* sh) (void) )
{
	ShutDown = sh;
}

void Error(const char *error, ...)
{
	if (ShutDown) ShutDown();

	if (error) {
		va_list va;
		char *buf = NULL;

		va_start(va,error);
		(void)Bvasprintf(&buf,error,va);
		va_end(va);

		wm_msgbox("Fatal Error", "%s", buf);

		if (buf) free(buf);
	}

	exit((error != NULL));
}

char CheckParm(char *check)
{
	int c;

	for (c=1;c<_buildargc;c++) {
		if (_buildargv[c][0] == '/' || _buildargv[c][0] == '-')
			if (!Bstrcasecmp(&_buildargv[c][1], check)) return c;
	}

	return 0;
}

void *SafeMalloc (int32 size)
{
	void *p;

	p = malloc(size);
	if (!p) Error("SafeMalloc failure for %d bytes",size);

	return p;
}

void SafeFree (void * ptr)
{
	if (!ptr) Error("Tried to deallocate NULL pointer.");
	free(ptr);
}

void SafeRealloc (void ** ptr, int32 newsize)
{
	void *p;

	p = realloc(*ptr, newsize);
	if (!p) Error("SafeRealloc failure for %d bytes",newsize);

	*ptr = p;
}

int32 ParseHex (char *hex)
{
	return (int32)strtol(hex, NULL, 16);
}

int32 ParseNum (char *str)
{
	return (int32)strtol(str, NULL, 10);
}

int16 MotoShort (int16 l)
{
#if B_LITTLE_ENDIAN != 0
	return l;
#else
	return ((l & 0x00ff) << 8) | ((l & 0xff00) >> 8);
#endif
}

int16  IntelShort (int16 l)
{
#if B_BIG_ENDIAN != 0
	return ((l & 0x00ff) << 8) | ((l & 0xff00) >> 8);
#else
	return l;
#endif
}

int32  MotoLong (int32 l)
{
#if B_LITTLE_ENDIAN != 0
	return l;
#else
	int32 t = ((l & 0x00ff00ffl) << 8) | ((l & 0xff00ff00l) >> 8);
	return ((t & 0x0000ffffl) << 16) | ((t & 0xffff0000l) >> 16);
#endif
}

int32  IntelLong (int32 l)
{
#if B_BIG_ENDIAN != 0
	int32 t = ((l & 0x00ff00ffl) << 8) | ((l & 0xff00ff00l) >> 8);
	return ((t & 0x0000ffffl) << 16) | ((t & 0xffff0000l) >> 16);
#else
	return l;
#endif
}

