Magic-Mirror/radare2
1
0
Fork 0
mirror of https://github.com/radareorg/radare2.git synced 2025-02-02 11:43:23 +00:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Update support for V in libr/lang ##lang

Browse Source
This commit is contained in:
pancake 2020-03-10 12:26:05 +01:00
parent d6fa5a9442
commit 8f799eb9bd
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
libr/lang/p/v.c
View File

@ -1,4 +1,4 @@
/* radare - LGPL - Copyright 2019 pancake */
/* radare - LGPL - Copyright 2019-2020 pancake */
#include "r_lib.h"
#include "r_core.h"
@ -7,31 +7,37 @@
static int lang_v_file(RLang *lang, const char *file);
static const char *r2v = \
"module r2\n"
"module main\n"
"\n"
"#flag `pkg-config --cflags --libs r_core`\n"
"\n"
"#include <r_core.h>\n"
"\n"
"struct R2 {}\n"
"fn C.r_core_cmd_str (core &R2, s string) byteptr\n"
"fn C.r_core_free (core &R2)\n"
"fn C.r_core_new () &R2\n"
"\n"
"pub fn (core &R2)cmd(s string) string {\n"
" o := C.r_core_cmd_str (core, s.str)\n"
" strs := string(byteptr(o))\n"
" free(o)\n"
" return strs\n"
" unsafe {\n"
" o := C.r_core_cmd_str (core, s.str)\n"
" strs := string(byteptr(o))\n"
" free(o)\n"
" return strs\n"
" }\n"
"}\n"
"\n"
"pub fn (core &R2)str() string {\n"
" return i64(core).str()\n"
"}\n"
"\n"
"pub fn main() {}\n"
"pub fn (core &R2)free() {\n"
" C.r_core_free (core)\n"
" unsafe {C.r_core_free (core)}\n"
"}\n"
"\n"
"pub fn new() &R2 {\n"
" return &R2(C.r_core_new ())\n"
" return C.r_core_new ()\n"
"}\n";
static const char *vsk = \
"fn entry(core &R2) {\n";
@ -56,7 +62,6 @@ static int __run(RLang *lang, const char *code, int len) {
return false;
}
static int lang_v_file(RLang *lang, const char *file) {
if (!r_str_endswith (file, ".v")) {
return false;
@ -84,7 +89,7 @@ static int lang_v_file(RLang *lang, const char *file) {
}
r_sys_setenv ("PKG_CONFIG_PATH", R2_LIBDIR"/pkgconfig");
char *shl = r_str_newf ("%s/lib%s."R_LIB_EXT, libpath, libname);
char *buf = r_str_newf ("v -cflags '-shared -fPIC' -o %s %s", shl, file);
char *buf = r_str_newf ("v -cflags '-shared -fPIC' -o %s build %s", shl, file);
free (name);
if (r_sandbox_system (buf, 1) != 0) {
free (shl);
@ -95,7 +100,7 @@ static int lang_v_file(RLang *lang, const char *file) {
free (shl);
if (lib) {
void (*fcn)(RCore *, int argc, const char **argv);
fcn = r_lib_dl_sym (lib, "r2__entry");
fcn = r_lib_dl_sym (lib, "main__entry");
if (fcn) {
fcn (lang->user, ac, av);
ac = 0;