util.cpp

// wkbre - WK (Battles) recreated game engine
// Copyright (C) 2015-2016 Adrien Geets
//
// 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 3 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, see <http://www.gnu.org/licenses/>.

// Misc. useful functions

#include "global.h"

int gline = 0;

#ifdef WKBRE_RELEASE
void fc_ferr(char *s, ...)
{
	char t[512]; va_list v;
	va_start(v, s);
	_vsnprintf(t, 511, s, v); t[511] = 0;
	MessageBox(hWindow, t, "Fatal Error", 16);
	fflush(stdout); exit(-2);
}
#else
void fc_ferr(char *f, int l, char *s, ...)
{
	//printf("Error: %s\n", s);
	//printf("gline = %i\n", gline);
	char t[512]; va_list v;
	va_start(v, s);
	_vsnprintf(t, 511, s, v); t[511] = 0;
	printf("Error: %s\nLook at: %s, Line %i\n", t, f, l);
	fflush(stdout); brkpnt(); exit(-2);
}
#endif

int stfind_cs(char **t, int len, char *f)
{
	for(int i = 0; i < len; i++)
		if(!strcmp(t[i], f))
			return i;
	return -1;
}

char *GetLine(char *f, char *str)
{
	char *o, *frp;
	o = str; frp = f;
	while(1)
	{
		if((*frp == 0) || (*frp == 255)) break;
		if (*frp == '\r') {
			frp++;
			if (*frp == '\n') frp++;
			break;
		}
		if(*frp == '\n') {frp++; break;}
		if(*frp == '/')
		{
			if(*(frp+1) == '*')
			{
				frp += 2;
				while(!((*frp == '*') && (*(frp+1) == '/'))) {
					if((*(frp+1) == 0) || (*(frp+1) == 255)) {frp++; goto glend;}
					frp++;
				}
				frp += 2;
				continue;
			}
			if(*(frp+1) == '/')
			{
				frp += 2;
				while((*frp != '\n') && (*frp != '\r'))
					{if(*frp == 0) goto glend; frp++;}
				//frp++; goto glend;
				continue; // This will check the newline.
			}
		}
		*o = *frp; o++; frp++;
	}
glend:	*o = 0; gline++;
	return frp;
}

int GetWords(char *str, char **list)
{
	char *p; int n = 0;
	p = str;
	while(*p)
	{
		while(isspace((uchar)*p)) p++;
		if(!(*p)) goto wend;

		if(*p != '\"')
		{
			list[n] = p;
			n++; if(n >= MAX_WORDS_IN_LINE) goto wend;
			while(!isspace((uchar)*p)) {if(!(*p)) goto wend; p++;}
			if(!(*p)) goto wend; // Can be removed because isspace(0) = 0
			*p = 0; p++; if(!(*p)) goto wend;
		} else {
			p++; if(!(*p)) goto wend;
			list[n] = p;
			n++; if(n >= MAX_WORDS_IN_LINE) goto wend;
			while(*p != '\"') {if(!(*p)) goto wend; p++;}
			*p = 0; p++; if(!(*p)) goto wend;
		}
	}
wend:	list[n] = 0;
	return n;
}

uint readInt(FILE *f)
{
	uint r = 0;
	fread(&r, 4, 1, f);
	return r;
}

char *TranslateEscapeSequences(char *str)
{
	char *r = (char*)malloc(strlen(str)+1);
	if(!r) ferr("TranslateEscapeSequences mem alloc fail.");
	char *o = r; char *p = str;
	while(*p)
	{
		if(*p == '\\')
		{
			switch(*(++p))
			{
				case 'c':
					*(o++) = 1; break;
				case 't':
					*(o++) = '\t'; break;
				case 'n':
					*(o++) = '\n'; break;
				case 'r':
					*(o++) = '\r'; break;
				case '\\':
					*(o++) = '\\'; break;
				case 0:
					*o = 0; return r;
				default:
					*(o++) = '\\';
					*(o++) = *p; break;
			}
		} else
			*(o++) = *p;
		p++;
	}
	*o = 0;
	return r;
}