/* radare - LGPL - Copyright 2023-2026 - pancake */

#include <r_io.h>
#include <r_lib.h>
#include <r_socket.h>
#include <r_util.h>

#if 0
on macOS:
$ sudo ln -fs /Library/Developer/CommandLineTools/Library/PrivateFrameworks/LLDB.framework/Versions/A/Resources/debugserver /usr/local/bin/debugserver
$ while : ; do debugserver 0.0.0.0:9999 /bin/ls ; done
#endif

typedef struct {
	RSocket *gs;
	bool use_lldb;
	bool usefirst;
	bool lastbroken;
	bool use_pwndbg;
	bool use_connect;
} RIOSysGdb;

// TODO: make it vargarg...
static char *runcmd(RIOSysGdb *state, const char *cmd) {
	char buf[4096] = { 0 };
	if (cmd) {
		if (state->usefirst) {
			state->usefirst = false;
			free (runcmd (state, "starti"));
		}
		r_socket_printf (state->gs, "%s\n", cmd);
	} else {
		if (state->use_lldb) {
			if (state->use_connect) {
				cmd = "gdb-remote %s\n"; // localhost:9999\n";
			} else {
				cmd = "process launch --stop-at-entry\n";
			}
			r_socket_write (state->gs, cmd, strlen (cmd));
		} else {
			state->usefirst = true;
		}
	}
	if (state->lastbroken) {
		r_socket_read (state->gs, (ut8 *)buf, sizeof (buf) - 1);
		state->lastbroken = false;
	}
	int timeout = 10000;
	char *str = NULL;
	r_socket_block_time (state->gs, 1, timeout, 0);
	while (1) {
		R_LOG_DEBUG ("LOOP");
		memset (buf, 0, sizeof (buf));
		if (state->use_lldb && !r_socket_ready (state->gs, 0, 2500)) {
			// cmd = "process launch --stop-at-entry\n";
			//	cmd = "gdb-remote localhost:9999\n";
			//	r_socket_write (gs, cmd, strlen (cmd));
			cmd = NULL;
			str = r_str_append (str, buf);
			return str;
			// break;
		}
		int rc = r_socket_read (state->gs, (ut8 *)buf, sizeof (buf) - 1); // always NULL-terminate the string
		if (rc < 0) {
			R_LOG_DEBUG ("socket-read-break");
			r_socket_read (state->gs, (ut8 *)buf, sizeof (buf) - 1);
			state->lastbroken = true;
			free (str);
			return NULL;
		}
		if (rc == 0) {
			break;
		}
		buf[sizeof (buf) - 1] = 0;
		r_str_ansi_strip (buf);
		R_LOG_DEBUG ("READ: (%s)", buf);
		if (state->use_lldb) {
			if (!cmd) {
				state->usefirst = true;
				return r_str_append (str, buf);
			}
			if (0 && state->usefirst) {
				str = r_str_append (str, buf);
				int rc = r_socket_read (state->gs, (ut8 *)buf, sizeof (buf) - 1); // always NULL-terminate the string
				state->usefirst = false;
				if (rc < 1) {
					return str;
				}
			}
			// (lldb ) goes first, so we skip it
			str = r_str_append (str, buf);
#if 0
			if (strstr (buf, "(lldb")) {
				// return str;
			}
#endif
		} else {
			char *promptFound;
			if (!state->use_pwndbg && state->usefirst) {
				state->use_pwndbg = strstr (buf, "pwndbg>")? true: false;
			}
			if (state->use_pwndbg) {
				promptFound = strstr (buf, "pwndbg>");
				if (promptFound) {
					return r_str_append (str, buf);
				}
			} else {
				promptFound = strstr (buf, "(gdb) ");
				if (promptFound) {
					if (promptFound[6]) {
						promptFound = NULL;
					}
				}
			}
			if (promptFound) {
				*promptFound = 0;
				return r_str_append (str, buf);
			}
		}
		str = r_str_append (str, buf);
	}
	free (str);
	return NULL;
}

static int __write(RIO *io, RIODesc *fd, const ut8 *buf, int count) {
	if (!fd || !fd->data) {
		return -1;
	}
	RIOSysGdb *state = (RIOSysGdb *)fd->data;
	int i;
	for (i = 0; i < count; i++) {
		ut64 addr = io->off + i;
		char *cmd = r_str_newf ("set *((unsigned char *)0x%" PFMT64x ") = 0x%x", addr, buf[i]);
		free (runcmd (state, cmd));
		free (cmd);
	}
	return count;
}

static int __read(RIO *io, RIODesc *fd, ut8 *buf, int count) {
	if (!fd || !fd->data) {
		return -1;
	}
	RIOSysGdb *state = (RIOSysGdb *)fd->data;
	const ut64 addr = io->off;
	if (count > (1024 * 128)) {
		// cannot read that much
		return -1;
	}
	if (addr == 0 || addr == UT64_MAX) {
		return -1;
	}
	int bufi = 0;
	int left = 0;
repeat:
	if (count > 1024) {
		left = count - 1024;
		count = 1024;
	}
	memset (buf, io->Oxff, count);
	if (count > 0) {
		char *cmd = r_str_newf ("x/%db 0x%" PFMT64x, count, addr);
		char *ores = runcmd (state, cmd);
		char *nextline = NULL;
		char *res = ores;
		if (state->use_lldb) {
			do {
				nextline = r_str_after (res, '\n');
				char *colon = r_str_after (res, ':');
				if (colon) {
					colon++;
				}
				if (nextline) {
					*nextline = 0;
				}
				while (colon && bufi < count) {
					char *sp = strchr (colon, ' ');
					if (sp) {
						*sp = 0;
					}
					int n;
					sscanf (colon, "0x%02x", &n);
					buf[bufi++] = n;
					if (sp) {
						colon = sp + 1;
					} else {
						break;
					}
				}
				res = nextline + 1;
			} while (nextline && bufi < count);
		} else {
			do {
				nextline = r_str_after (res, '\n');
				char *colon = r_str_after (res, ':');
				while (colon && bufi < count) {
					colon = (char *)r_str_trim_head_ro (colon);
					if (!*colon) {
						break;
					}
					ut64 b = atoi (colon);
					buf[bufi++] = b;
					while (colon && (isdigit (*colon) || *colon == '-')) {
						colon++;
					}
				}
				res = nextline + 1;
			} while (nextline);
		}
		free (ores);
		free (cmd);
	}
	if (left > 0) {
		count = left;
		goto repeat;
	}
	return count;
}

static bool __close(RIODesc *fd) {
	if (!fd || !fd->data) {
		return false;
	}
	RIOSysGdb *state = (RIOSysGdb *)fd->data;
	if (state->gs) {
		r_socket_free (state->gs);
		state->gs = NULL;
	}
	free (state);
#if R2__UNIX__
	r_sys_cmdf ("pkill rarun2 2>/dev/null");
#endif
	return true;
}

static ut64 __lseek(RIO *io, RIODesc *fd, ut64 offset, int whence) {
	switch (whence) {
	case R_IO_SEEK_SET:
		io->off = offset;
		break;
	case R_IO_SEEK_CUR:
		io->off += offset;
		break;
	case R_IO_SEEK_END:
		io->off = UT64_MAX - 1; // UT64_MAX reserved for error case
	}
	return io->off;
}

static bool __plugin_open(RIO *io, const char *pathname, bool many) {
	return r_str_startswith (pathname, "sysgdb://");
}

static RIODesc *__open(RIO *io, const char *pathname, int rw, int mode) {
	if (__plugin_open (io, pathname, 0)) {
		RIOSysGdb *state = R_NEW0 (RIOSysGdb);
		if (!state) {
			return NULL;
		}
#if __APPLE__
		state->use_lldb = true;
		state->usefirst = true;
#else
		state->use_lldb = false;
		state->usefirst = false;
#endif
		state->lastbroken = false;
		state->use_pwndbg = false;
		state->use_connect = false;

		// runcmd (state, "gdb-remote localhost:9999");
		state->gs = r_socket_new (0);
		char *cmd = state->use_lldb
			//? r_str_newf ("lldb --no-use-colors -- %s", pathname + 9)
			? r_str_newf ("lldb --no-use-colors")
			: r_str_newf ("gdb --args %s", pathname + 9);
		int res = r_socket_spawn (state->gs, cmd, 1000);
		free (cmd);
		if (!res) {
			r_socket_free (state->gs);
			free (state);
			return NULL;
		}
		char *reply = runcmd (state, NULL);
		state->use_connect = strchr (pathname + 9, ':')? true: false;
		R_LOG_DEBUG ("REPLY (%s)", reply);
		if (reply) {
			int rw = 7;
			free (reply);
			if (state->use_lldb) {
				if (state->use_connect) {
					// nothing here
					char *cmd = r_str_newf ("gdb-remote %s\n", pathname + 9);
					runcmd (state, cmd);
					free (cmd);
				} else {
					char *cmd = r_str_newf ("target create %s\n", pathname + 9);
					runcmd (state, cmd);
					free (cmd);
					runcmd (state, "process launch --stop-at-entry\n");
				}
			}
			return r_io_desc_new (io, &r_io_plugin_sysgdb, pathname, rw, mode, state);
		}
		R_LOG_ERROR ("Can't find the gdb/lldb prompt");
		free (state);
	}
	return NULL;
}

static const char arm_64[] = "\n"
			"=PC     pc\n"
			"=SN     x16\n"
			"=SP     sp\n"
			"=BP     x30\n"
			"=A0     x0\n"
			"=A1     x1\n"
			"=A2     x2\n"
			"=A3     x3\n"
			"=ZF     zf\n"
			"=SF     nf\n"
			"=OF     vf\n"
			"=CF     cf\n"
			"gpr     x0      .64     0       0\n"
			"gpr     x1      .64     8       0\n"
			"gpr     x2      .64     16      0\n"
			"gpr     x3      .64     24      0\n"
			"gpr     x4      .64     32      0\n"
			"gpr     x5      .64     40      0\n"
			"gpr     x6      .64     48      0\n"
			"gpr     x7      .64     56      0\n"
			"gpr     x8      .64     64      0\n"
			"gpr     x9      .64     72      0\n"
			"gpr     x10     .64     80      0\n"
			"gpr     x11     .64     88      0\n"
			"gpr     x12     .64     96      0\n"
			"gpr     x13     .64     104     0\n"
			"gpr     x14     .64     112     0\n"
			"gpr     x15     .64     120     0\n"
			"gpr     x16     .64     128     0\n"
			"gpr     x17     .64     136     0\n"
			"gpr     x18     .64     144     0\n"
			"gpr     x19     .64     152     0\n"
			"gpr     x20     .64     160     0\n"
			"gpr     x21     .64     168     0\n"
			"gpr     x22     .64     176     0\n"
			"gpr     x23     .64     184     0\n"
			"gpr     x24     .64     192     0\n"
			"gpr     x25     .64     200     0\n"
			"gpr     x26     .64     208     0\n"
			"gpr     x27     .64     216     0\n"
			"gpr     x28     .64     224     0\n"
			"gpr     x29     .64     232     0\n"
			"gpr     w0      .32     0       0\n"
			"gpr     w1      .32     8       0\n"
			"gpr     w2      .32     16      0\n"
			"gpr     w3      .32     24      0\n"
			"gpr     w4      .32     32      0\n"
			"gpr     w5      .32     40      0\n"
			"gpr     w6      .32     48      0\n"
			"gpr     w7      .32     56      0\n"
			"gpr     w8      .32     64      0\n"
			"gpr     w9      .32     72      0\n"
			"gpr     w10     .32     80      0\n"
			"gpr     w11     .32     88      0\n"
			"gpr     w12     .32     96      0\n"
			"gpr     w13     .32     104     0\n"
			"gpr     w14     .32     112     0\n"
			"gpr     w15     .32     120     0\n"
			"gpr     w16     .32     128     0\n"
			"gpr     w17     .32     136     0\n"
			"gpr     w18     .32     144     0\n"
			"gpr     w19     .32     152     0\n"
			"gpr     w20     .32     160     0\n"
			"gpr     w21     .32     168     0\n"
			"gpr     w22     .32     176     0\n"
			"gpr     w23     .32     184     0\n"
			"gpr     w24     .32     192     0\n"
			"gpr     w25     .32     200     0\n"
			"gpr     w26     .32     208     0\n"
			"gpr     w27     .32     216     0\n"
			"gpr     w28     .32     224     0\n"
			"gpr     w29     .32     232     0\n"
			"gpr     wzr     .32     ?       0\n"
			"gpr     zr      .64     ?       0\n"
			"gpr     fp      .64     232     0\n"
			"gpr     lr      .64     240     0\n"
			"gpr     sp      .64     248     0\n"
			"gpr     pc      .64     256     0\n"
			"gpr     pstate  .64     264     0   _____tfiae_____________j__qvczn\n"
			"gpr     vf      .1      264.28  0       overflow\n"
			"gpr     cf      .1      264.29  0       carry\n"
			"gpr     zf      .1      264.30  0       zero\n"
			"gpr     nf      .1      264.31  0       sign\n";

static const char x86r_32[] = "\n"
			"=PC	eip\n"
			"=SP	esp\n"
			"=BP	ebp\n"
			"=R0	eax\n"
			"=A0	eax\n"
			"=A1	ebx\n"
			"=A2	ecx\n"
			"=A3	edx\n"
			"=A4	esi\n"
			"=A5	edi\n"
			"=SN	eax\n"
			"gpr	eiz	.32	?	0\n"
			"gpr	oeax	.32	44	0\n"
			"gpr	eax	.32	24	0\n"
			"gpr	ax	.16	24	0\n"
			"gpr	ah	.8	25	0\n"
			"gpr	al	.8	24	0\n"
			"gpr	ebx	.32	0	0\n"
			"gpr	bx	.16	0	0\n"
			"gpr	bh	.8	1	0\n"
			"gpr	bl	.8	0	0\n"
			"gpr	ecx	.32	4	0\n"
			"gpr	cx	.16	4	0\n"
			"gpr	ch	.8	5	0\n"
			"gpr	cl	.8	4	0\n"
			"gpr	edx	.32	8	0\n"
			"gpr	dx	.16	8	0\n"
			"gpr	dh	.8	9	0\n"
			"gpr	dl	.8	8	0\n"
			"gpr	esi	.32	12	0\n"
			"gpr	si	.16	12	0\n"
			"gpr	edi	.32	16	0\n"
			"gpr	di	.16	16	0\n"
			"gpr	esp	.32	60	0\n"
			"gpr	sp	.16	60	0\n"
			"gpr	ebp	.32	20	0\n"
			"gpr	bp	.16	20	0\n"
			"gpr	eip	.32	48	0\n"
			"gpr	ip	.16	48	0\n"
			"seg	xfs	.32	36	0\n"
			"seg	xgs	.32	40	0\n"
			"seg	xcs	.32	52	0\n"
			"seg	cs	.16	52	0\n"
			"seg	xss	.32	52	0\n"
			"flg	eflags	.32	.448	0	c1p.a.zstido.n.rv\n"
			"flg	flags	.16	.448	0\n"
			"flg	cf	.1	.448	0\n"
			"flg	pf	.1	.450	0\n"
			"flg	af	.1	.452	0\n"
			"flg	zf	.1	.454	0\n"
			"flg	sf	.1	.455	0\n"
			"flg	tf	.1	.456	0\n"
			"flg	if	.1	.457	0\n"
			"flg	df	.1	.458	0\n"
			"flg	of	.1	.459	0\n"
			"flg	nt	.1	.462	0\n"
			"flg	rf	.1	.464	0\n"
			"flg	vm	.1	.465	0\n"
			"drx	dr0	.32	0	0\n"
			"drx	dr1	.32	4	0\n"
			"drx	dr2	.32	8	0\n"
			"drx	dr3	.32	12	0\n"
			"drx	dr6	.32	24	0\n"
			"drx	dr7	.32	28	0\n";

static bool is_arch_arm(RIO *io) {
	char *arch = io->coreb.cmdStrF (io->coreb.core, "-a");
	bool is_arm = !strcmp (arch, "arm");
	free (arch);
	return is_arm;
}

static char *printprofile(RIO *io, RIODesc *fd) {
	bool is_arm = is_arch_arm (io);
	if (is_arm && io->bits == 64) {
		return strdup (arm_64);
	}
	if (io->bits == 32) {
		return strdup (x86r_32);
	}
	const char *x86r = "\n"
			"=PC	rip\n"
			"=SP	rsp\n"
			"=BP	rbp\n"
			"=R0	rax\n"
			"=A0	rdi\n"
			"=A1	rsi\n"
			"=A2	rdx\n"
			"=A3	rcx\n"
			"=A4	r8\n"
			"=A5	r9\n"
			"=A6	r10\n"
			"=A7	r11\n"
			"=SN	rax\n"
			"gpr	rax	.64	80	0\n"
			"gpr	eax	.32	80	0\n"
			"gpr	ax	.16	80	0\n"
			"gpr	al	.8	80	0\n"
			"gpr	ah	.8	81	0\n"
			"gpr	rbx	.64	40	0\n"
			"gpr	ebx	.32	40	0\n"
			"gpr	bx	.16	40	0\n"
			"gpr	bl	.8	40	0\n"
			"gpr	bh	.8	41	0\n"
			"gpr	rcx	.64	88	0\n"
			"gpr	ecx	.32	88	0\n"
			"gpr	cx	.16	88	0\n"
			"gpr	cl	.8	88	0\n"
			"gpr	ch	.8	89	0\n"
			"gpr	rdx	.64	96	0\n"
			"gpr	edx	.32	96	0\n"
			"gpr	dx	.16	96	0\n"
			"gpr	dl	.8	96	0\n"
			"gpr	dh	.8	97	0\n"
			"gpr	rsi	.64	104	0\n"
			"gpr	esi	.32	104	0\n"
			"gpr	si	.16	104	0\n"
			"gpr	sil	.8	104	0\n"
			"gpr	rdi	.64	112	0\n"
			"gpr	edi	.32	112	0\n"
			"gpr	di	.16	112	0\n"
			"gpr	dil	.8	112	0\n"
			"gpr	r8	.64	72	0\n"
			"gpr	r8d	.32	72	0\n"
			"gpr	r8w	.16	72	0\n"
			"gpr	r8b	.8	72	0\n"
			"gpr	r9	.64	64	0\n"
			"gpr	r9d	.32	64	0\n"
			"gpr	r9w	.16	64	0\n"
			"gpr	r9b	.8	64	0\n"
			"gpr	r10	.64	56	0\n"
			"gpr	r10d	.32	56	0\n"
			"gpr	r10w	.16	56	0\n"
			"gpr	r10b	.8	56	0\n"
			"gpr	r11	.64	48	0\n"
			"gpr	r11d	.32	48	0\n"
			"gpr	r11w	.16	48	0\n"
			"gpr	r11b	.8	48	0\n"
			"gpr	r12	.64	24	0\n"
			"gpr	r12d	.32	24	0\n"
			"gpr	r12w	.16	24	0\n"
			"gpr	r12b	.8	24	0\n"
			"gpr	r13	.64	16	0\n"
			"gpr	r13d	.32	16	0\n"
			"gpr	r13w	.16	16	0\n"
			"gpr	r13b	.8	16	0\n"
			"gpr	r14	.64	8	0\n"
			"gpr	r14d	.32	8	0\n"
			"gpr	r14w	.16	8	0\n"
			"gpr	r14b	.8	8	0\n"
			"gpr	r15	.64	0	0\n"
			"gpr	r15d	.32	0	0\n"
			"gpr	r15w	.16	0	0\n"
			"gpr	r15b	.8	0	0\n"
			"gpr	rip	.64	128	0\n"
			"gpr	rbp	.64	32	0\n"
			"gpr	ebp	.32	32	0\n"
			"gpr	bp	.16	32	0\n"
			"gpr	bpl	.8	32	0\n"
			"seg	cs	.64	136	0\n"
			"flg	rflags	.64	144	0	c1p.a.zstido.n.rv\n"
			"flg	eflags	.32	144	0	c1p.a.zstido.n.rv\n"
			"flg	cf	.1	144.0	0	carry\n"
			"flg	pf	.1	144.2	0	parity\n"
			"flg	af	.1	144.4	0	adjust\n"
			"flg	zf	.1	144.6	0	zero\n"
			"flg	sf	.1	144.7	0	sign\n"
			"flg	tf	.1	.1160	0	trap\n"
			"flg	if	.1	.1161	0	interrupt\n"
			"flg	df	.1	.1162	0	direction\n"
			"flg	of	.1	.1163	0	overflow\n"
			"gpr	riz	.64	?	0\n"
			"gpr	rsp	.64	152	0\n"
			"gpr	esp	.32	152	0\n"
			"gpr	sp	.16	152	0\n"
			"gpr	spl	.8	152	0\n"
			"seg	ss	.64	160	0\n"
			"seg	fs_base	.64	168	0\n"
			"seg	gs_base	.64	176	0\n"
			"seg	ds	.64	184	0\n"
			"seg	es	.64	192	0\n"
			"seg	fs	.64	200	0\n"
			"seg	gs	.64	208	0\n"
			"drx	dr0	.64	0	0\n"
			"drx	dr1	.64	8	0\n"
			"drx	dr2	.64	16	0\n"
			"drx	dr3	.64	24	0\n"
			"drx	dr6	.64	48	0\n"
			"drx	dr7	.64	56	0\n";
	return strdup (x86r);
}

static int sysgdb_getpid(RIOSysGdb *state) {
	char *res = runcmd (state, state->use_lldb? "process status": "info proc");
	char *sp = strchr (res, ' ');
	int pid = sp? atoi (sp + 1): 0;
	free (res);
	return pid;
}

static char *__system(RIO *io, RIODesc *fd, const char *cmd) {
	if (!fd || !fd->data) {
		return NULL;
	}
	RIOSysGdb *state = (RIOSysGdb *)fd->data;
	if (R_STR_ISEMPTY (cmd)) {
		return NULL;
	}
	if (*cmd == '?') {
		eprintf ("dr  : show registers\n");
		eprintf ("dr* : show registers as flags\n");
		eprintf ("drp : show reg profile\n");
		eprintf ("dr8 : show hexpairs with regstate\n");
		eprintf ("ds  : step into\n");
		eprintf ("dp  : show process info\n");
		eprintf ("dc  : continue\n");
		eprintf ("dm  : show maps\n");
		eprintf ("pid : show current process id\n");
	} else if (!strcmp (cmd, "drp")) {
		return printprofile (io, fd);
	} else if (!strcmp (cmd, "dbt")) {
		return runcmd (state, "backtrace");
	} else if (!strcmp (cmd, "dc")) {
		return runcmd (state, "cont");
	} else if (!strcmp (cmd, "dr8")) {
		if (state->use_lldb) {
			char *regs = runcmd (state, "re read");
			int arenacount = 64;
			int arenasize = 64 * arenacount;
			ut64 *arena = (ut64 *)calloc (arenacount, sizeof (ut64));
			RList *list = r_str_split_list (regs, "\n", 0);
			RListIter *iter;
			char *line;
#define IFREG(rn, pos) if (r_str_startswith (line, rn)) { arena[pos / 8] = r_num_get (NULL, line + strlen (rn) + 3); } else
			r_list_foreach (list, iter, line) {
				// x86-64
				IFREG ("rax", 80)
				IFREG ("rbx", 40)
				IFREG ("rcx", 88)
				IFREG ("rdx", 96)
				IFREG ("r8", 72)
				IFREG ("r10", 56)
				IFREG ("rsi", 104)
				IFREG ("rdi", 112)
				IFREG ("rbp", 32)
				IFREG ("rsp", 152)
				IFREG ("rip", 128)
				// arm64
				IFREG ("x0", 0)
				IFREG ("x1", 8)
				IFREG ("x2", 16)
				IFREG ("x3", 24)
				IFREG ("x4", 30)
				IFREG ("x5", 36)
				IFREG ("x6", 44)
				IFREG ("x7", 52)
				IFREG ("x8", 60)
				IFREG ("x9", 68)
				IFREG ("x10", 76)
				IFREG ("x11", 84)
				IFREG ("x12", 92)
				IFREG ("x13", 100)
				IFREG ("x14", 108)
				IFREG ("x15", 116)
				IFREG ("x16", 116)
				IFREG ("x17", 116)
				IFREG ("x18", 144)
				IFREG ("x19", 152)
				IFREG ("x20", 160)
				IFREG ("x21", 168)
				IFREG ("x22", 176)
				IFREG ("x23", 184)
				IFREG ("x24", 192)
				IFREG ("x25", 200)
				IFREG ("x26", 208)
				IFREG ("x27", 216)
				IFREG ("x28", 224)
				IFREG ("cpsr", 264) // pstate
				IFREG ("fp", 232)
				IFREG ("sp", 248)
				IFREG ("pc", 256) {}
			}
#undef IFREG
			r_list_free (list);
			free (regs);
			return r_hex_bin2strdup ((const ut8 *)arena, arenasize);
		}
		char *regs = runcmd (state, "i r");
		int arenacount = 64;
		int arenasize = 64 * arenacount;
		ut64 *arena = (ut64 *)calloc (arenacount, sizeof (ut64));
		RList *list = r_str_split_list (regs, "\n", 0);
		RListIter *iter;
		char *line;
#define IFREG(rn, pos) if (r_str_startswith (line, rn)) { arena[pos / 8] = r_num_get (NULL, line + strlen (rn)); } else
		r_list_foreach (list, iter, line) {
			// arm64
			IFREG ("x0", 0)
			IFREG ("x1", 8)
			IFREG ("sp", 248)
			IFREG ("pc", 256)
			// x86-64
			IFREG ("rax", 80)
			IFREG ("rbx", 40)
			IFREG ("rcx", 88)
			IFREG ("rdx", 96)
			IFREG ("r8", 72)
			IFREG ("r10", 56)
			IFREG ("rsi", 104)
			IFREG ("rdi", 112)
			IFREG ("rbp", 32)
			IFREG ("rsp", 152)
			IFREG ("rip", 128) {}
		}
#undef IFREG
		r_list_free (list);
		free (regs);
		return r_hex_bin2strdup ((const ut8 *)arena, arenasize);
	} else if (!strcmp (cmd, "di")) {
		return runcmd (state, "info proc all");
	} else if (r_str_startswith (cmd, "dk")) {
		// do nothing. but we should send a signal here
	} else if (!strcmp (cmd, "ds")) {
		runcmd (state, "stepi");
	} else if (!strcmp (cmd, "dr")) {
		if (state->use_lldb) {
			return runcmd (state, "re read");
		}
		return runcmd (state, "i r");
	} else if (!strcmp (cmd, "dm")) {
		RStrBuf *sb = r_strbuf_new ("");
		// TODO: construct new string with standard pat
		char *res = runcmd (state, "info proc mappings");
		RList *list = r_str_split_list (res, "\n", 0);
		RListIter *iter;
		char *line;
		r_list_foreach (list, iter, line) {
			line = (char *)r_str_trim_head_ro (line);
			if (!r_str_startswith (line, "0x")) {
				continue;
			}
			// 0x555555558000     0x55555556c000    0x14000     0x4000  r-xp   /usr/bin/ls
			line = r_str_replace_all (line, "  ", " ");
			// ut64 min, max; size offset perms name
			RList *args = r_str_split_list (line, " ", 0);
			ut64 min = r_num_get (NULL, r_list_get_n (args, 0));
			ut64 max = r_num_get (NULL, r_list_get_n (args, 1));
			char *perm = r_list_get_n (args, 4);
			char *name = r_list_get_n (args, 5);
			// 0x00007ffdc1e90000 - 0x00007ffdc1e94000 - usr    16K s r-- [vvar] [vvar] ; map._vvar_.r__
			r_strbuf_appendf (sb, "0x%08" PFMT64x " - 0x%08" PFMT64x " %s %s\n", min, max, perm, name);
		}
		r_list_free (list);
		return r_strbuf_drain (sb);
	} else if (r_str_startswith (cmd, "pid")) { // should be using `dp` imho
		int pid = sysgdb_getpid (state);
		return r_str_newf ("%d\n", pid);
	}
	return runcmd (state, cmd);
}

static int __getpid(RIODesc *fd) {
	if (!fd || !fd->data) {
		return -1;
	}
	RIOSysGdb *state = (RIOSysGdb *)fd->data;
	return sysgdb_getpid (state);
}

RIOPlugin r_io_plugin_sysgdb = {
	.meta = {
		.name = "sysgdb",
		.desc = "spawn gdb/lldb and use the program instead of the protocol",
		.author = "pancake",
		.license = "MIT",
	},
	.uris = "sysgdb://",
	.open = __open,
	.close = __close,
	.read = __read,
	.check = __plugin_open,
	.seek = __lseek,
	.write = __write,
	.system = __system,
	.getpid = __getpid,
	.isdbg = true
};

#ifndef R2_PLUGIN_INCORE
R_API RLibStruct radare_plugin = {
	.type = R_LIB_TYPE_IO,
	.data = &r_io_plugin_sysgdb,
	.version = R2_VERSION
};
#endif