git » fp-git.git » master » tree

[master] / PR / src / lib / layers / stringformat.c

/*  Princed V3 - Prince of Persia Level Editor for PC Version
    Copyright (C) 2003 Princed Development Team

    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

    The authors of this program may be contacted at http://forum.princed.com.ar
*/

/*
stringformat.c: Princed Resources : Format string parsing feature routines
��������������
 Copyright 2005 Princed Development Team
  Created: 4 Jul 2005

  Author: Enrique Calot <ecalot.cod@princed.com.ar>
  Version: 1.00 (2005-Jul-04)

 Note:
  DO NOT remove this copyright notice
*/

#include <stdlib.h> /* NULL */
#include "translate.h" /* index translation */
#include "stringformat.h"
#include <string.h> /* strlen */

int sf_emit(char c, int* i, char* buffer) {
	if (*i==200) return 0; /* false */
	buffer[(*i)++]=c;
	return 1; /* true */
}

void sf_emitString(const char* txt, int size, int zeroflag, int* i, char* buffer) {
	int complete;
	int length;

	length=strlen(txt);
	complete=(length>size)?0:size-length;

	while (complete--) sf_emit(zeroflag?'0':' ',i,buffer);

	for (complete=0;complete<length;complete++) sf_emit(txt[complete],i,buffer);
}

void sf_recursiveEmit(int k, int* i, char* buffer) {
	if (k) {
		sf_recursiveEmit(k/10,i,buffer);
		sf_emit('0'+(k%10),i,buffer);
	}
}

void sf_emitNumber(int n, int size, int zeroflag, int* i, char* buffer) {
	int complete;
	int digits=0;
	int k=n;

	while (k) {
		digits++;
		k/=10;
	}

	complete=(digits>size)?0:size-digits;

	while (complete--) sf_emit(zeroflag?'0':' ',i,buffer);

	sf_recursiveEmit(n,i,buffer);
}


#define emit(a) sf_emit(a,&i,buffer)
#define emitString(a,b,c) sf_emitString(a,b,c,&i,buffer)
#define emitNumber(a,b,c) sf_emitNumber(a,b,c,&i,buffer)
#define read_k(k) (k=*(format++))

const char* parseformat(const char* format,long value,const char* index, const char* type, const char* extension, long numberOfThisType, int order, const char* desc,const char* name) {
	int i;
	static char buffer[200];

	/* This function parses format in this way:
	 * %% - a % sign
	 * %I - the human-like index name
	 * %d - the description
	 * %e - the extension (bmp, wav, etc)
	 * %i - the 4-chars index name
	 * %m - the name of the item
	 * %n - the number of the item typed in %t
	 * %o - the order number (in case the index and values are the same)
	 * %t - the item type (image, wave, etc)
	 * %v - the value
	 *
	 * Modifiers: (TODO: truncate flag)
	 * %5i  - the index truncated to 5 bytes or the index size, whatever comes first
	 * %05i - the same, but in case the index is sized less than 5 it's filled with spaces
	 * %5v  - the value tabulated to 5 digits (filled with spaces), in case the number is bigger, more digits will be used
	 * %05v - the same, but in case the value is sized less than 5 it's filled with zeros
	 *
	 * Examples:
	 * "%i%05v.%e" for shap25001.bmp
	 * "%t%02n.%e" for image01.bmp
	 *
	 * Limitations:
	 * The generated string size has a limit, in case it is reached, a NULL pointer will be returned
	 */

	char k;
	int zeroflag;
	int size;

	i=0; /* initialize buffer */

	while (read_k(k)) { /* for each byte in format as k */
		if (k=='%') {
			zeroflag=0;
			size=0;

			read_k(k); /* read next char */
			if (!k) return NULL; /* just in case the string is finished in the wrong place */

			if (k=='0') { /* it's %0... */
				zeroflag=1;
				read_k(k); /* read next char */
				if (!k) return NULL; /* just in case the string is finished in the wrong place */
			}
			while (isNumber(k)) { /* it's %0[0-9]... */
				size=size*10+k-'0';
				read_k(k); /* read next char */
				if (!k) return NULL; /* just in case the string is finished in the wrong place */
			}
			switch (k) {
			case 'v': /* value */
				emitNumber(value,size,zeroflag);
				break;
			case 'i': /* index name */
				emitString(index,size,zeroflag);
				break;
			case 'I': /* index human name */
				emitString(translateInt2Ext(index),size,zeroflag);
				break;
			case 't': /* item type (image, wave, etc) */
				emitString(type,size,zeroflag);
				break;
			case 'e': /* extension (bmp, wav, etc) */
				emitString(extension,size,zeroflag);
				break;
			case 'n': /* number of the item typed in %t */
				emitNumber(numberOfThisType,size,zeroflag);
				break;
			case 'o': /* order number (in case the index and values are the same) */
				emitNumber(order,size,zeroflag);
				break;
			case 'd': /* description */
				emitString(desc,size,zeroflag);
				break;
			case 'm': /* name */
				emitString(name,size,zeroflag);
				break;
			case '%': /* the % symbol */
				emit(k); /* sf_emit it */
				break;
			default:
				return NULL;
			}
		} else { /* normal characters are sf_emitted */
			emit(k);
		}
	}

	return emit(0)?buffer:NULL; /* close the string and return it (return NULL in case of error)*/
}

#ifdef DEBUG_STRINGS
int main(int a,char** b) {
	printf("%s\n", parseformat(
		b[1],
		233,
		"shap",
		"image",
		"bmp",
		5,0,"hey man!"
	));
	return 0;
}
#endif