Kart-Public/tools/libwad/src/wad_static.c
2014-03-15 13:11:35 -04:00

116 lines
2.6 KiB
C

// Emacs style mode select -*- C++ -*-
//-----------------------------------------------------------------------------
//
// libwad: Doom WAD format interface library.
// Copyright (C) 2011 by Callum Dickinson.
//
// 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.
//-----------------------------------------------------------------------------
/// \file wad_static.c
/// \brief Static functions for internal libwad operations.
#include "wad_static.h"
#define WAD_MAXERROR 1024
static char wad_error[WAD_MAXERROR];
void WAD_ErrorSet(const char *text)
{
strncpy(wad_error, text, WAD_MAXERROR);
wad_error[WAD_MAXERROR] = '\0';
}
inline void WAD_FreeMemory(FILE *file, wadheader_t *header, void *lumpdir, lump_t *lumps, wad_t *wad)
{
lump_t *l, *ln = NULL;
if (file)
fclose(file);
if (header)
free(header);
if (lumpdir)
free(lumpdir);
if (lumps)
{
for (l = lumps; l; l = ln)
{
ln = l->next;
free(l->data);
free(l);
}
}
if (wad)
{
if (wad->filename)
free(wad->filename);
free(wad);
}
}
char *WAD_Error(void)
{
return wad_error;
}
char *WAD_BaseName(char *path)
{
wad_int32_t i;
//
// Check if there is no text to check.
//
if (!path || path[0] == '\0')
return NULL;
//
// Find the buffer entry where the actual filename begins.
//
for (i = strlen(path) - 1; i >= 0 && path[i] != '/'; i--);
return (i >= 0) ? &path[i+1] : path;
}
char *WAD_VA(const char *format, ...)
{
va_list argptr;
static char string[1024];
va_start(argptr, format);
vsprintf(string, format, argptr);
va_end(argptr);
return string;
}
inline wad_int16_t WAD_INT16_Endianness(wad_int16_t x)
{
#ifdef _BIG_ENDIAN
return ((wad_int16_t)((((wad_uint16_t)(x) & (wad_uint16_t)0x00ffU) << 8) | (((wad_uint16_t)(x) & (wad_uint16_t)0xff00U) >> 8)));
#else
return (wad_int16_t)x;
#endif
}
inline wad_int32_t WAD_INT32_Endianness(wad_int32_t x)
{
#ifdef _BIG_ENDIAN
return ((wad_int32_t)(\
(((wad_uint32_t)(x) & (wad_uint32_t)0x000000ffUL) << 24) |\
(((wad_uint32_t)(x) & (wad_uint32_t)0x0000ff00UL) << 8) |\
(((wad_uint32_t)(x) & (wad_uint32_t)0x00ff0000UL) >> 8) |\
(((wad_uint32_t)(x) & (wad_uint32_t)0xff000000UL) >> 24)));
#else
return (wad_int32_t)x;
#endif
}