ref: 4ee8e5c2e49d8636d5626f10dbccab67ad4a7bb2
dir: /src/deh_io.c/
//
// Copyright(C) 2005-2014 Simon Howard
//
// 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.
//
//
// Dehacked I/O code (does all reads from dehacked files)
//
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include "m_misc.h"
#include "w_wad.h"
#include "z_zone.h"
#include "deh_defs.h"
#include "deh_io.h"
typedef enum
{
DEH_INPUT_FILE,
DEH_INPUT_LUMP
} deh_input_type_t;
struct deh_context_s
{
deh_input_type_t type;
char *filename;
// If the input comes from a memory buffer, pointer to the memory
// buffer.
unsigned char *input_buffer;
size_t input_buffer_len;
unsigned int input_buffer_pos;
int lumpnum;
// If the input comes from a file, the file stream for reading
// data.
FILE *stream;
// Current line number that we have reached:
int linenum;
// Used by DEH_ReadLine:
boolean last_was_newline;
char *readbuffer;
int readbuffer_size;
// Error handling.
boolean had_error;
};
static deh_context_t *DEH_NewContext(void)
{
deh_context_t *context;
context = Z_Malloc(sizeof(*context), PU_STATIC, NULL);
// Initial read buffer size of 128 bytes
context->readbuffer_size = 128;
context->readbuffer = Z_Malloc(context->readbuffer_size, PU_STATIC, NULL);
context->linenum = 0;
context->last_was_newline = true;
context->had_error = false;
return context;
}
// Open a dehacked file for reading
// Returns NULL if open failed
deh_context_t *DEH_OpenFile(const char *filename)
{
FILE *fstream;
deh_context_t *context;
fstream = M_fopen(filename, "r");
if (fstream == NULL)
return NULL;
context = DEH_NewContext();
context->type = DEH_INPUT_FILE;
context->stream = fstream;
context->filename = M_StringDuplicate(filename);
return context;
}
// Open a WAD lump for reading.
deh_context_t *DEH_OpenLump(int lumpnum)
{
deh_context_t *context;
void *lump;
lump = W_CacheLumpNum(lumpnum, PU_STATIC);
context = DEH_NewContext();
context->type = DEH_INPUT_LUMP;
context->lumpnum = lumpnum;
context->input_buffer = lump;
context->input_buffer_len = W_LumpLength(lumpnum);
context->input_buffer_pos = 0;
context->filename = malloc(9);
M_StringCopy(context->filename, lumpinfo[lumpnum]->name, 9);
return context;
}
// Close dehacked file
void DEH_CloseFile(deh_context_t *context)
{
if (context->type == DEH_INPUT_FILE)
{
fclose(context->stream);
}
else if (context->type == DEH_INPUT_LUMP)
{
W_ReleaseLumpNum(context->lumpnum);
}
free(context->filename);
Z_Free(context->readbuffer);
Z_Free(context);
}
int DEH_GetCharFile(deh_context_t *context)
{
if (feof(context->stream))
{
// end of file
return -1;
}
return fgetc(context->stream);
}
int DEH_GetCharLump(deh_context_t *context)
{
int result;
if (context->input_buffer_pos >= context->input_buffer_len)
{
return -1;
}
result = context->input_buffer[context->input_buffer_pos];
++context->input_buffer_pos;
return result;
}
// Reads a single character from a dehacked file
int DEH_GetChar(deh_context_t *context)
{
int result = 0;
boolean last_was_cr = false;
// Track the current line number
if (context->last_was_newline)
{
++context->linenum;
}
// Read characters, converting CRLF to LF
do
{
switch (context->type)
{
case DEH_INPUT_FILE:
result = DEH_GetCharFile(context);
break;
case DEH_INPUT_LUMP:
result = DEH_GetCharLump(context);
break;
}
// Handle \r characters not paired with \n
if (last_was_cr && result != '\n')
{
switch (context->type)
{
case DEH_INPUT_FILE:
ungetc(result, context->stream);
break;
case DEH_INPUT_LUMP:
--context->input_buffer_pos;
break;
}
return '\r';
}
last_was_cr = result == '\r';
} while (last_was_cr);
context->last_was_newline = result == '\n';
return result;
}
// Increase the read buffer size
static void IncreaseReadBuffer(deh_context_t *context)
{
char *newbuffer;
int newbuffer_size;
newbuffer_size = context->readbuffer_size * 2;
newbuffer = Z_Malloc(newbuffer_size, PU_STATIC, NULL);
memcpy(newbuffer, context->readbuffer, context->readbuffer_size);
Z_Free(context->readbuffer);
context->readbuffer = newbuffer;
context->readbuffer_size = newbuffer_size;
}
// Read a whole line
char *DEH_ReadLine(deh_context_t *context, boolean extended)
{
int c;
int pos;
boolean escaped = false;
for (pos = 0;;)
{
c = DEH_GetChar(context);
if (c < 0 && pos == 0)
{
// end of file
return NULL;
}
// cope with lines of any length: increase the buffer size
if (pos >= context->readbuffer_size)
{
IncreaseReadBuffer(context);
}
// extended string support
if (extended && c == '\\')
{
c = DEH_GetChar(context);
// "\n" in the middle of a string indicates an internal linefeed
if (c == 'n')
{
context->readbuffer[pos] = '\n';
++pos;
continue;
}
// values to be assigned may be split onto multiple lines by ending
// each line that is to be continued with a backslash
if (c == '\n')
{
escaped = true;
continue;
}
}
// blanks before the backslash are included in the string
// but indentation after the linefeed is not
if (escaped && c >= 0 && isspace(c) && c != '\n')
{
continue;
}
else
{
escaped = false;
}
if (c == '\n' || c < 0)
{
// end of line: a full line has been read
context->readbuffer[pos] = '\0';
break;
}
else if (c != '\0')
{
// normal character; don't allow NUL characters to be
// added.
context->readbuffer[pos] = (char) c;
++pos;
}
}
return context->readbuffer;
}
void DEH_Warning(deh_context_t *context, const char *msg, ...)
{
va_list args;
va_start(args, msg);
fprintf(stderr, "%s:%i: warning: ", context->filename, context->linenum);
vfprintf(stderr, msg, args);
fprintf(stderr, "\n");
va_end(args);
}
void DEH_Error(deh_context_t *context, const char *msg, ...)
{
va_list args;
va_start(args, msg);
fprintf(stderr, "%s:%i: ", context->filename, context->linenum);
vfprintf(stderr, msg, args);
fprintf(stderr, "\n");
va_end(args);
context->had_error = true;
}
boolean DEH_HadError(deh_context_t *context)
{
return context->had_error;
}