radare2/libr/reg/reg.c

/* radare - LGPL - Copyright 2009-2010 pancake<nopcode.org> */

#include <r_reg.h>
#include <r_util.h>
#include <list.h>

static const char *types[R_REG_TYPE_LAST+1] = {
	"gpr", "drx", "fpu", "mmx", "xmm", "flg", "seg", NULL
};

R_API const char *r_reg_get_type(int idx) {
	if (idx>=0 && idx<R_REG_TYPE_LAST)
		return types[idx];
	return NULL;
}

static void r_reg_free_internal(struct r_reg_t *reg) {
	struct list_head *pos, *n;
	RRegisterItem *r;
	int i;

	for (i=0; i<R_REG_TYPE_LAST; i++)
	list_for_each_safe (pos, n, &reg->regset[i].regs) {
		r = list_entry (pos, RRegisterItem, list);
		list_del (&r->list);
		free (r);
	}
}

R_API int r_reg_get_name_idx(const char *type) {
	int role = type[0] + (type[1]<<8);
	switch (role) {
	case 'p'+('c'<<8):
		role = R_REG_NAME_PC;
		break;
	case 's'+('r'<<8):
		role = R_REG_NAME_SR;
		break;
	case 's'+('p'<<8):
		role = R_REG_NAME_SP;
		break;
	case 'b'+('p'<<8):
		role = R_REG_NAME_BP;
		break;
	case 'a'+('0'<<8):
		role = R_REG_NAME_A0;
		break;
	case 'a'+('1'<<8):
		role = R_REG_NAME_A1;
		break;
	case 'a'+('2'<<8):
		role = R_REG_NAME_A2;
		break;
	case 'a'+('3'<<8):
		role = R_REG_NAME_A3;
		break;
	default:
		role = -1;
	}
	return role;
}

R_API int r_reg_set_name(struct r_reg_t *reg, int role, const char *name) {
	int ret = R_TRUE;
	// TODO: ensure this range check in a define.. somewhere
	if (role>=0 && role<R_REG_NAME_LAST)
		reg->name[role] = r_str_dup (reg->name[role], name);
	else ret = R_FALSE;
	return ret;
}

R_API const char *r_reg_get_name(struct r_reg_t *reg, int role) {
	if (reg && role>=0 && role<R_REG_NAME_LAST)
		return reg->name[role];
	return NULL;
}

R_API struct r_reg_t *r_reg_free(struct r_reg_t *reg) {
	if (reg) {
		// TODO: free more things here
		free (reg);
	}
	return NULL;
}

// TODO: must be deprecated.. use from _new()
R_API struct r_reg_t *r_reg_init(struct r_reg_t *reg) {
	int i;
	if (!reg)
		return NULL;
	reg->profile = NULL;
	for (i=0; i<R_REG_NAME_LAST; i++)
		reg->name[i] = NULL;
	for (i=0; i<R_REG_TYPE_LAST; i++) {
		INIT_LIST_HEAD (&reg->regset[i].arenas);
		INIT_LIST_HEAD (&reg->regset[i].regs);
		if ((reg->regset[i].arena = r_reg_arena_new (0)) == NULL)
			return NULL;
		list_add_tail (&reg->regset[i].arena->list,
			&reg->regset[i].arenas);
	}
	return reg;
}

static RRegisterItem *r_reg_item_new() {
	RRegisterItem *item = R_NEW (RRegisterItem);
	memset (item, 0, sizeof (RRegisterItem));
	return item;
}

R_API int r_reg_type_by_name(const char *str) {
	int i;
	for (i=0; types[i] && i<R_REG_TYPE_LAST; i++)
		if (!strcmp (types[i], str))
			return i;
	if (!strcmp (str, "all"))
		return R_REG_TYPE_ALL;
	eprintf ("Unknown register type: '%s'\n", str);
	return R_REG_TYPE_LAST;
}

/* TODO: make this parser better and cleaner */
static int r_reg_set_word(RRegisterItem *item, int idx, char *word) {
	int ret = R_TRUE;
	switch(idx) {
	case 0:
		item->type = r_reg_type_by_name (word);
		break;
	case 1:
		item->name = strdup (word);
		break;
	/* spaguetti ftw!!1 */
	case 2:
		if (*word=='.') // XXX; this is kinda ugly
			item->size = atoi (word+1);
		else item->size = atoi (word)*8;
		break;
	case 3:
		if (*word=='.') // XXX; this is kinda ugly
			item->offset = atoi (word+1);
		else item->offset = atoi (word)*8;
		break;
	case 4:
		if (*word=='.') // XXX; this is kinda ugly
			item->packed_size = atoi (word+1);
		else item->packed_size = atoi (word)*8;
		break;
	default:
		eprintf ("register set fail (%s)\n", word);
		ret = R_FALSE;
	}
	return ret;
}

/* TODO: make this parser better and cleaner */
R_API int r_reg_set_profile_string(RRegister *reg, const char *str) {
	RRegisterItem *item;
	int setname = -1;
	int ret = R_FALSE;
	int lastchar = 0;
	int chidx = 0;
	int word = 0;
	char buf[256];

	if (!str||!reg)
		return R_FALSE;
	buf[0] = '\0';
	/* format file is: 'type name size offset packedsize' */
	r_reg_free_internal (reg);
	item = r_reg_item_new ();

	while (*str) {
		if (*str == '#') {
			/* skip until newline */
			while (*str && *str != '\n') str++;
			continue;
		}
		switch (*str) {
		case ' ':
		case '\t':
			// UGLY PASTAFARIAN TO PARSE 
			if (word==0 && *buf=='=') {
				setname = r_reg_get_name_idx (buf+1);
				if (setname == -1)
					eprintf ("Invalid register type: '%s'\n", buf+1);
			} else
			if (lastchar != ' ' && lastchar != '\t')
				r_reg_set_word (item, word, buf);
			chidx = 0;
			word++;
			break;
		case '\n':
			if (setname != -1)
				r_reg_set_name (reg, setname, buf);
			else if (word>3) {
				r_reg_set_word (item, word, buf);
				if (item->name != NULL) {
					list_add_tail(&item->list, &reg->regset[item->type].regs);
					item = r_reg_item_new();
				}
			}
			chidx = word = 0;
			setname = -1;
			break;
		default:
			if (chidx>128) // WTF!!
				return R_FALSE;
			buf[chidx++] = *str;
			buf[chidx] = 0;
			break;
		}
		lastchar = *str;
		str++;
	}
	free (item->name);
	free (item);
	r_reg_fit_arena (reg);
	
	/* do we reach the end ? */
	if (!*str) ret = R_TRUE;
	return ret;
}

R_API int r_reg_set_profile(struct r_reg_t *reg, const char *profile) {
	int ret = R_FALSE;
	const char *base;
	char *str, *file;
	/* TODO: append .regs extension to filename */
	if ((str = r_file_slurp (profile, NULL))==NULL) {
 		// XXX we must define this varname in r_lib.h /compiletime/
		base = r_sys_getenv ("LIBR_PLUGINS");
		if (base) {
			file = r_str_concat (strdup (base), profile);
			str = r_file_slurp (file, NULL);
			free (file);
		}
	}
	if (str) ret = r_reg_set_profile_string (reg, str);
	else eprintf ("r_reg_set_profile: Cannot find '%s'\n", profile);
	return ret;
}

R_API RRegisterItem *r_reg_get(struct r_reg_t *reg, const char *name, int type) {
	struct list_head *pos;
	RRegisterItem *r;
	int i, e;
	if (!reg)
		return NULL;
	if (type == -1) {
		i = 0;
		e = R_REG_TYPE_LAST;
	} else {
		i = type;
		e = type+1;
	}

	// TODO: use RList here
	for (; i<e; i++)
	list_for_each (pos, &reg->regset[i].regs) {
		r = list_entry (pos, RRegisterItem, list);
		if (!strcmp (r->name, name))
			return r;
	}
	return NULL;
}

// TODO: deprecate.. must use RList here
R_API struct list_head *r_reg_get_list(struct r_reg_t *reg, int type) {
	if (type<0 || type>R_REG_TYPE_LAST)
		return NULL;
	return &reg->regset[type].regs;
}