mirror of
https://github.com/radareorg/radare2.git
synced 2024-10-10 20:34:24 +00:00
8579a5b41f
- Propagate @VERSION@ from ACR
- All *2 apps are now supporting a -V flag to show the version
* Fix .dr* command in r_core debugger
- dr now supports [regtype] [bitsize] arguments
- Check dr? for help
* Added some 8, 16 bit registers to the dbg.ptrace backend
- Just for testing :)
* Check build of the whole source tree
- test programs are now in ${prefix}/bin/libr-test
* Fix lot of warnings and bugs
* Simplify some code
* Some rapification
* Fix segfault in r_reg related to unallocated arenas
- New function r_reg_type_by_name() resolves string->id
* Fix help of rax2
98 lines
1.8 KiB
C
98 lines
1.8 KiB
C
/* radare - LGPL - Copyright 2009 */
|
|
/* pancake<nopcode.org> */
|
|
/* nibble.ds<gmail.com> */
|
|
/* perl extension for libr (radare2) */
|
|
|
|
#include "r_lib.h"
|
|
#include "r_lang.h"
|
|
|
|
#include <EXTERN.h>
|
|
#include <XSUB.h>
|
|
#undef PL_madskills
|
|
#undef PL_xmlfp
|
|
#include <perl.h>
|
|
|
|
#undef U32_MAX
|
|
#undef U32_MIN
|
|
|
|
#include "r_core.h"
|
|
static struct r_core_t *core = NULL;
|
|
|
|
static PerlInterpreter *my_perl = NULL;
|
|
|
|
static void perl_radare_cmd(pTHX_ CV* cv)
|
|
{
|
|
char *cmd;
|
|
char *str;
|
|
dXSARGS;
|
|
cmd = sv_pv(ST(0));
|
|
str = r_core_cmd_str(core, cmd);
|
|
ST(0) = newSVpvn(str, strlen(str));
|
|
free(str);
|
|
XSRETURN(1);
|
|
str = (char *)items; /* dummy unreachable code */
|
|
}
|
|
|
|
static void xs_init(pTHX)
|
|
{
|
|
newXS("r", perl_radare_cmd, __FILE__);
|
|
}
|
|
|
|
static int init(struct r_lang_t *lang)
|
|
{
|
|
char *perl_embed[] = { "", "-e", "0" };
|
|
core = lang->user;
|
|
my_perl = perl_alloc();
|
|
if (my_perl == NULL) {
|
|
printf("Cannot init perl module\n");
|
|
return R_FALSE;
|
|
}
|
|
perl_construct(my_perl);
|
|
perl_parse(my_perl, xs_init, 3, perl_embed, (char **)NULL);
|
|
|
|
return R_TRUE;
|
|
}
|
|
|
|
static int fini(void *user)
|
|
{
|
|
perl_destruct(my_perl);
|
|
perl_free(my_perl);
|
|
my_perl = NULL;
|
|
|
|
return R_TRUE;
|
|
}
|
|
|
|
static int run(void *user, const char *code, int len)
|
|
{
|
|
/* TODO: catcth errors */
|
|
eval_pv(code, TRUE);
|
|
return R_TRUE;
|
|
}
|
|
|
|
static int setargv(void *user, int argc, char **argv)
|
|
{
|
|
perl_parse(my_perl, xs_init, argc, argv, (char **)NULL);
|
|
return R_TRUE;
|
|
}
|
|
|
|
static const char *help =
|
|
"Perl plugin usage:\n"
|
|
" print \"r(\"pd 10\")\\n\";\n";
|
|
|
|
static struct r_lang_handle_t r_lang_plugin_perl = {
|
|
.name = "perl",
|
|
.desc = "Perl language extension",
|
|
.init = &init,
|
|
.fini = (void *)&fini,
|
|
.help = (void *)&help,
|
|
.prompt = NULL,
|
|
.run = (void *)&run,
|
|
.run_file = NULL,
|
|
.set_argv = (void *)setargv,
|
|
};
|
|
|
|
struct r_lib_struct_t radare_plugin = {
|
|
.type = R_LIB_TYPE_LANG,
|
|
.data = &r_lang_plugin_perl,
|
|
};
|