rizin/libr/parse/parse.c
pancake 25df4aef1c Fixed io ports flagspace usage and multiple asm filters
Handle negated flagspace in RParse
Support pseudo+decode+disasm
2012-11-13 02:00:00 +01:00

118 lines
2.4 KiB
C

/* radare - LGPL - Copyright 2009-2012 - nibble, pancake */
#include <stdio.h>
#include <r_types.h>
#include <r_parse.h>
#include <list.h>
#include "../config.h"
static RParsePlugin *parse_static_plugins[] =
{ R_PARSE_STATIC_PLUGINS };
R_API RParse *r_parse_new() {
int i;
RParsePlugin *static_plugin;
RParse *p = R_NEW (RParse);
if (!p) return NULL;
p->user = NULL;
p->parsers = r_list_new ();
p->parsers->free = NULL; // memleak
p->notin_flagspace = -1;
p->flagspace = -1;
for (i=0; parse_static_plugins[i]; i++) {
static_plugin = R_NEW (RParsePlugin);
memcpy (static_plugin, parse_static_plugins[i],
sizeof (RParsePlugin));
r_parse_add (p, static_plugin);
}
return p;
}
R_API void r_parse_free(RParse *p) {
r_list_free (p->parsers);
free (p);
}
R_API int r_parse_add(RParse *p, RParsePlugin *foo) {
if (foo->init)
foo->init (p->user);
r_list_append (p->parsers, foo);
return R_TRUE;
}
R_API int r_parse_use(RParse *p, const char *name) {
RListIter *iter;
RParsePlugin *h;
r_list_foreach (p->parsers, iter, h) {
if (!strcmp (h->name, name)) {
p->cur = h;
return R_TRUE;
}
}
return R_FALSE;
}
R_API int r_parse_assemble(RParse *p, char *data, char *str) {
char *in = strdup (str);
int ret = R_FALSE;
char *s, *o;
data[0]='\0';
if (p->cur && p->cur->assemble) {
o = data+strlen (data);
do {
s = strchr (str, ';');
if (s) *s='\0';
ret = p->cur->assemble (p, o, str);
if (!ret) break;
if (s) {
str = s + 1;
o = o+strlen (data);
o[0]='\n';
o[1]='\0';
o++;
}
} while (s);
}
free (in);
return ret;
}
R_API int r_parse_parse(RParse *p, const char *data, char *str) {
if (p->cur && p->cur->parse)
return p->cur->parse (p, data, str);
return R_FALSE;
}
R_API int r_parse_filter(RParse *p, RFlag *f, char *data, char *str, int len) {
if (p->cur && p->cur->filter)
return p->cur->filter (p, f, data, str, len);
return R_FALSE;
}
R_API int r_parse_varsub(RParse *p, RAnalFunction *f, char *data, char *str, int len) {
if (p->cur && p->cur->varsub)
return p->cur->varsub (p, f, data, str, len);
return R_FALSE;
}
/* setters */
R_API void r_parse_set_user_ptr(RParse *p, void *user) {
p->user = user;
}
R_API void r_parse_set_flagspace(RParse *p, int fs) {
p->flagspace = fs;
}
/* TODO: DEPRECATE */
R_API int r_parse_list(RParse *p) {
RListIter *iter;
RParsePlugin *h;
r_list_foreach (p->parsers, iter, h) {
printf ("parse %10s %s\n", h->name, h->desc);
}
return R_FALSE;
}