mirror of
https://github.com/radareorg/radare2.git
synced 2024-12-13 16:18:33 +00:00
892 lines
22 KiB
C
892 lines
22 KiB
C
/* radare - LGPL - Copyright 2007-2014 - pancake */
|
|
|
|
#include "r_cons.h"
|
|
#include "r_util.h"
|
|
#include "r_print.h"
|
|
|
|
#define NOPTR 0
|
|
#define PTRSEEK 1
|
|
#define PTRBACK 2
|
|
#define NULLPTR 3
|
|
#define STRUCTPTR 100
|
|
#define NESTEDSTRUCT 1
|
|
#define STRUCTFLAG 10000
|
|
#define NESTDEPTH 14
|
|
|
|
static int (*realprintf)(const char *str, ...);
|
|
static int nullprintf(const char *fmt, ...) { return 0; }
|
|
|
|
static void print_format_help(RPrint *p) {
|
|
p->printf (
|
|
"Usage: pf[.key[.field[=value]]|[ val]]|[times][ [size] format] [arg0 arg1 ...]\n"
|
|
"Examples:\n"
|
|
" pf 10xiz pointer length string\n"
|
|
" pf {array_size}b @ array_base\n"
|
|
" pf [4]w[7]i # like pf w..i..."
|
|
" pf. # list all formats\n"
|
|
" pf.obj xxdz prev next size name\n"
|
|
" pf.obj # run stored format\n"
|
|
" pf.obj.name # show string inside object\n"
|
|
" pf.obj.size=33 # set new size\n"
|
|
"Format chars:\n"
|
|
" e - temporally swap endian\n"
|
|
//" D - double (8 bytes)\n"
|
|
" f - float value (4 bytes)\n"
|
|
" b - byte (unsigned)\n"
|
|
" B - resolve enum bitfield (see t?)\n" // B must be for binary ??
|
|
" c - char (signed byte)\n"
|
|
" E - resolve enum name `pf E (Foo)type`\n" // B must be for binary ??
|
|
" X - show n hexpairs (default n=1)"
|
|
" i - %%i integer value (4 bytes)\n"
|
|
" w - word (2 bytes unsigned short in hex)\n"
|
|
" q - quadword (8 bytes)\n"
|
|
" p - pointer reference (2, 4 or 8 bytes)\n"
|
|
" T - show Ten first bytes of buffer\n" // B must be for binary ??
|
|
" d - 0x%%08x hexadecimal value (4 bytes)\n"
|
|
" D - disassemble one opcode\n"
|
|
" o - 0x%%08o octal value (4 byte)\n"
|
|
" x - 0x%%08x hexadecimal value and flag (fd @ addr)\n"
|
|
" X - show formatted hexpairs\n" // B must be for binary ??
|
|
" z - \\0 terminated string\n"
|
|
" Z - \\0 terminated wide string\n"
|
|
" s - 32bit pointer to string (4 bytes)\n"
|
|
" S - 64bit pointer to string (8 bytes)\n"
|
|
//" t - unix timestamp string\n"
|
|
" * - next char is pointer (honors asm.bits)\n"
|
|
" + - toggle show flags for each offset\n"
|
|
" : - skip 4 bytes\n"
|
|
" . - skip 1 byte\n");
|
|
}
|
|
|
|
static void updateAddr(const ut8 *buf, int i, int endian, ut64 *addr, ut64 *addr64) {
|
|
if (addr) {
|
|
if (endian)
|
|
*addr = (*(buf+i))<<24
|
|
| (*(buf+i+1))<<16
|
|
| (*(buf+i+2))<<8
|
|
| (*(buf+i+3));
|
|
else
|
|
*addr = (*(buf+i+3))<<24
|
|
| (*(buf+i+2))<<16
|
|
| (*(buf+i+1))<<8
|
|
| (*(buf+i));
|
|
}
|
|
if (addr64) {
|
|
if (endian)
|
|
*addr64 = (((ut64)(*(buf+i))<<56))
|
|
| ((ut64)(*(buf+i+1))<<48)
|
|
| ((ut64)(*(buf+i+2))<<40)
|
|
| ((ut64)(*(buf+i+3))<<32)
|
|
| ((ut64)(*(buf+i+4))<<24)
|
|
| ((ut64)(*(buf+i+5))<<16)
|
|
| ((ut64)(*(buf+i+6))<<8)
|
|
| ((ut64)(*(buf+i+7)));
|
|
else
|
|
*addr64 =(((ut64)(*(buf+i+7))<<56))
|
|
| ((ut64)(*(buf+i+6))<<48)
|
|
| ((ut64)(*(buf+i+5))<<40)
|
|
| ((ut64)(*(buf+i+4))<<32)
|
|
| ((ut64)(*(buf+i+3))<<24)
|
|
| ((ut64)(*(buf+i+2))<<16)
|
|
| ((ut64)(*(buf+i+1))<<8)
|
|
| ((ut64)(*(buf+i)));
|
|
}
|
|
}
|
|
|
|
static void r_print_format_quadword(const RPrint* p, int endian, int mustset,
|
|
const char* setval, ut64 seeki, ut8* buf, int i, int size) {
|
|
ut64 addr64;
|
|
updateAddr (buf, i, endian, NULL, &addr64);
|
|
if (mustset) {
|
|
realprintf ("wv8 %s @ 0x%08"PFMT64x"\n", setval, seeki);
|
|
} else {
|
|
p->printf ("0x%08"PFMT64x" = ", seeki);
|
|
p->printf ("(qword) ");
|
|
if (size==-1)
|
|
p->printf ("0x%016"PFMT64x, addr64);
|
|
else {
|
|
p->printf ("[ 0x%016"PFMT64x, addr64);
|
|
size--;
|
|
i+=8;
|
|
while (size--) {
|
|
updateAddr (buf, i, endian, NULL, &addr64);
|
|
p->printf (", 0x%016"PFMT64x, addr64);
|
|
i+=8;
|
|
}
|
|
p->printf (" ]");
|
|
}
|
|
}
|
|
}
|
|
|
|
static void r_print_format_byte(const RPrint* p, int endian, int mustset,
|
|
const char* setval, ut64 seeki, ut8* buf, int i, int size) {
|
|
if (mustset) {
|
|
realprintf ("\"w %s\" @ 0x%08"PFMT64x"\n", setval, seeki);
|
|
} else {
|
|
p->printf ("0x%08"PFMT64x" = ", seeki);
|
|
if (size==-1)
|
|
p->printf ("%d ; 0x%02x ; '%c'", buf[i], buf[i],
|
|
IS_PRINTABLE (buf[i])?buf[i]:0);
|
|
else {
|
|
p->printf ("[ %d ; 0x%02x ; '%c'", buf[i], buf[i],
|
|
IS_PRINTABLE (buf[i])?buf[i]:0);
|
|
size--;
|
|
i++;
|
|
while (size--) {
|
|
p->printf (", %d ; 0x%02x ; '%c'", buf[i], buf[i],
|
|
IS_PRINTABLE (buf[i])?buf[i]:0);
|
|
i++;
|
|
}
|
|
p->printf (" ]");
|
|
}
|
|
}
|
|
}
|
|
|
|
static void r_print_format_char(const RPrint* p, int endian, int mustset,
|
|
const char* setval, ut64 seeki, ut8* buf, int i, int size) {
|
|
if (mustset) {
|
|
realprintf ("\"w %s\" @ 0x%08"PFMT64x"\n", setval, seeki);
|
|
} else {
|
|
p->printf ("0x%08"PFMT64x" = ", seeki);
|
|
if (size==-1)
|
|
p->printf ("%d ; %d ; '%c'", buf[i], buf[i],
|
|
IS_PRINTABLE (buf[i])?buf[i]:0);
|
|
else {
|
|
p->printf ("[ %d ; %d ; '%c'", buf[i], buf[i],
|
|
IS_PRINTABLE (buf[i])?buf[i]:0);
|
|
size--;
|
|
i++;
|
|
while (size--) {
|
|
p->printf (", %d ; %d ; '%c'", buf[i], buf[i],
|
|
IS_PRINTABLE (buf[i])?buf[i]:0);
|
|
i++;
|
|
}
|
|
p->printf (" ]");
|
|
}
|
|
}
|
|
}
|
|
|
|
static int r_print_format_ptrstring(const RPrint* p, ut64 seeki, ut64 addr64, ut64 addr, int is64) {
|
|
ut8 buffer[255];
|
|
p->printf ("0x%08"PFMT64x" = ", seeki);
|
|
if (p->iob.read_at) {
|
|
if (is64 == 1)
|
|
p->iob.read_at (p->iob.io, addr64, buffer, sizeof (buffer)-8);
|
|
else
|
|
p->iob.read_at (p->iob.io, (ut64)addr, buffer, sizeof (buffer)-8);
|
|
} else {
|
|
printf ("(cannot read memory)\n");
|
|
return -1;
|
|
}
|
|
p->printf ("0x%08"PFMT64x" -> 0x%08"PFMT64x" ", seeki, addr);
|
|
p->printf ("%s", buffer);
|
|
return 0;
|
|
}
|
|
|
|
// TODO: support unsigned int?
|
|
static void r_print_format_hex(const RPrint* p, int endian, int mustset,
|
|
const char* setval, ut64 seeki, ut8* buf, int i, int size) {
|
|
ut64 addr;
|
|
updateAddr (buf, i, endian, &addr, NULL);
|
|
if (mustset) {
|
|
realprintf ("wv4 %s @ 0x%08"PFMT64x"\n", setval, seeki);
|
|
} else {
|
|
p->printf ("0x%08"PFMT64x" = ", seeki);
|
|
if (size==-1)
|
|
p->printf ("%"PFMT64d, addr);
|
|
else {
|
|
p->printf ("[ %"PFMT64d, addr);
|
|
size--;
|
|
i+=4;
|
|
while (size--) {
|
|
updateAddr (buf, i, endian, &addr, NULL);
|
|
p->printf (", %"PFMT64d, addr);
|
|
i+=4;
|
|
}
|
|
p->printf (" ]");
|
|
}
|
|
}
|
|
}
|
|
|
|
static void r_print_format_octal (const RPrint* p, int endian, int mustset,
|
|
const char* setval, ut64 seeki, ut8* buf, int i, int size) {
|
|
ut64 addr;
|
|
updateAddr (buf, i, endian, &addr, NULL);
|
|
if (mustset) {
|
|
realprintf ("wv4 %s @ 0x%08"PFMT64x"\n", setval, seeki);
|
|
} else {
|
|
ut32 addr32 = (ut32)addr;
|
|
p->printf ("0x%08"PFMT64x" = ", seeki);
|
|
p->printf ("(octal) ");
|
|
if (size==-1)
|
|
p->printf ("0%08"PFMT64o, addr32);
|
|
else {
|
|
p->printf ("[ 0%08"PFMT64o, addr32);
|
|
size--;
|
|
i+=4;
|
|
while (size--) {
|
|
updateAddr (buf, i, endian, &addr, NULL);
|
|
addr32 = (ut32)addr;
|
|
p->printf (", 0%08"PFMT64o, addr32);
|
|
i+=4;
|
|
}
|
|
p->printf (" ]");
|
|
}
|
|
}
|
|
}
|
|
|
|
static void r_print_format_hexflag(const RPrint* p, int endian, int mustset,
|
|
const char* setval, ut64 seeki, ut8* buf, int i, int size) {
|
|
ut64 addr;
|
|
updateAddr (buf, i, endian, &addr, NULL);
|
|
if (mustset) {
|
|
realprintf ("wv4 %s @ 0x%08"PFMT64x"\n", setval, seeki);
|
|
} else {
|
|
ut32 addr32 = (ut32)addr;
|
|
p->printf ("0x%08"PFMT64x" = ", seeki);
|
|
if (size==-1)
|
|
p->printf ("0x%08"PFMT64x, addr32);
|
|
else {
|
|
p->printf ("[ 0x%08"PFMT64x, addr32);
|
|
size--;
|
|
i+=4;
|
|
while (size--) {
|
|
updateAddr (buf, i, endian, &addr, NULL);
|
|
addr32 = (ut32)addr;
|
|
p->printf (", 0x%08"PFMT64x, addr32);
|
|
i+=4;
|
|
}
|
|
p->printf (" ]");
|
|
}
|
|
}
|
|
}
|
|
|
|
static int r_print_format_10bytes(const RPrint* p, int mustset, const char* setval, ut64 seeki, ut64 addr, ut8* buf) {
|
|
ut8 buffer[255];
|
|
int j;
|
|
|
|
if (mustset) {
|
|
realprintf ("?e pf B not yet implemented\n");
|
|
} else {
|
|
if (!p->iob.read_at) {
|
|
printf ("(cannot read memory)\n");
|
|
return -1;
|
|
} else
|
|
p->iob.read_at (p->iob.io, (ut64)addr, buffer, 248);
|
|
|
|
p->printf ("0x%08"PFMT64x" = ", seeki);
|
|
|
|
for (j=0; j<10; j++)
|
|
p->printf ("%02x ", buf[j]);
|
|
|
|
p->printf (" ... (");
|
|
for (j=0; j<10; j++)
|
|
if (IS_PRINTABLE (buf[j]))
|
|
p->printf ("%c", buf[j]);
|
|
else
|
|
p->printf (".");
|
|
p->printf (")");
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static int r_print_format_hexpairs(const RPrint* p, int endian, int mustset,
|
|
const char* setval, ut64 seeki, ut8* buf, int size) {
|
|
int j;
|
|
|
|
if (mustset) {
|
|
realprintf ("?e pf X not yet implemented\n");
|
|
} else {
|
|
p->printf ("0x%08"PFMT64x" = ", seeki);
|
|
size = (size < 1) ? 1 : size;
|
|
|
|
for (j=0; j<size; j++)
|
|
p->printf ("%02x ", (ut8)buf[j]);
|
|
|
|
p->printf (" ... (");
|
|
for (j=0; j<size; j++)
|
|
if (IS_PRINTABLE (buf[j]))
|
|
p->printf ("%c", buf[j]);
|
|
else
|
|
p->printf (".");
|
|
p->printf (")");
|
|
}
|
|
return size;
|
|
}
|
|
|
|
static void r_print_format_float(const RPrint* p, int endian, int mustset,
|
|
const char* setval, ut64 seeki, ut8* buf, int i, int size) {
|
|
ut64 addr;
|
|
updateAddr (buf, i, endian, &addr, NULL);
|
|
if (mustset) {
|
|
realprintf ("wv4 %s @ 0x%08"PFMT64x"\n", setval, seeki);
|
|
} else {
|
|
p->printf ("0x%08"PFMT64x" = ", seeki);
|
|
if (size==-1)
|
|
p->printf ("%f", (float)addr);
|
|
else {
|
|
p->printf ("[ %f", (float)addr);
|
|
size--;
|
|
i+=4;
|
|
while (size--) {
|
|
updateAddr (buf, i, endian, &addr, NULL);
|
|
p->printf (", %f", (float)addr);
|
|
i+=4;
|
|
}
|
|
p->printf (" ]");
|
|
}
|
|
}
|
|
}
|
|
|
|
static void r_print_format_word(const RPrint* p, int endian, int mustset,
|
|
const char* setval, ut64 seeki, ut8* buf, int i, int size) {
|
|
ut64 addr;
|
|
if (endian)
|
|
addr = (*(buf+i))<<8 | (*(buf+i+1));
|
|
else addr = (*(buf+i+1))<<8 | (*(buf+i));
|
|
if (mustset) {
|
|
realprintf ("wv2 %s @ 0x%08"PFMT64x"\n", setval, seeki);
|
|
} else {
|
|
p->printf ("0x%08"PFMT64x" = ", seeki);
|
|
if (size==-1)
|
|
p->printf ("0x%04x", addr);
|
|
else {
|
|
p->printf ("[ 0x%04x", addr);
|
|
size--;
|
|
i+=2;
|
|
while (size--) {
|
|
if (endian)
|
|
addr = (*(buf+i))<<8 | (*(buf+i+1));
|
|
else addr = (*(buf+i+1))<<8 | (*(buf+i));
|
|
p->printf (", 0x%04x", addr);
|
|
i+=2;
|
|
}
|
|
p->printf (" ]");
|
|
}
|
|
}
|
|
}
|
|
|
|
// XXX: this is very incomplete. must be updated to handle all format chars
|
|
static int computeStructSize(char *fmt) {
|
|
char *end = strchr(fmt, ' ');
|
|
int size = 0, i;
|
|
if (!end)
|
|
return -1;
|
|
*end = 0;
|
|
for (i=0; i<strlen(fmt); i++) {
|
|
switch (fmt[i]) {
|
|
case 'f':
|
|
size += 4;
|
|
break;
|
|
case 'c':
|
|
size++;
|
|
break;
|
|
case 'i':
|
|
size += 4;
|
|
break;
|
|
case 'w':
|
|
size += 2;
|
|
break;
|
|
case 'q':
|
|
size += 8;
|
|
break;
|
|
case 'd':
|
|
size += 4;
|
|
break;
|
|
case 's':
|
|
size += 4;
|
|
break;
|
|
case 'S':
|
|
size += 8;
|
|
break;
|
|
case ':':
|
|
size += 4;
|
|
break;
|
|
case '.':
|
|
size += 1;
|
|
break;
|
|
case '*':
|
|
size += 4;
|
|
i++;
|
|
break;
|
|
// TODO continue list
|
|
default:
|
|
break;
|
|
}
|
|
}
|
|
free(fmt);
|
|
return size;
|
|
}
|
|
|
|
static int r_print_format_struct(RPrint* p, ut64 seek, const ut8* b, int len, char *name, int slide) {
|
|
const char *fmt;
|
|
int flag = (slide>=STRUCTFLAG)?SEEFLAG:-1;
|
|
if ((slide%STRUCTPTR) > NESTDEPTH) {
|
|
eprintf ("Too much nested struct, recursion too deep...\n");
|
|
return 0;
|
|
}
|
|
if (flag) p->printf = realprintf;
|
|
fmt = r_strht_get (p->formats, name);
|
|
if (!fmt || !*fmt) {
|
|
eprintf ("Undefined struct.\n");
|
|
return 0;
|
|
}
|
|
r_print_format (p, seek, b, len, fmt, flag, NULL);
|
|
return computeStructSize(strdup(fmt));
|
|
}
|
|
|
|
R_API int r_print_format(RPrint *p, ut64 seek, const ut8* b, const int len,
|
|
const char *fmt, int elem, const char *setval) {
|
|
int nargs, i, j, invalid, nexti, idx, times, otimes, endian, isptr = 0;
|
|
int (*oldprintf)(const char *str, ...);
|
|
const char *argend = fmt+strlen (fmt);
|
|
ut64 addr = 0, addr64 = 0, seeki = 0;;
|
|
char *args = NULL, *bracket, tmp, last = 0;
|
|
const char *arg = fmt;
|
|
int viewflags = 0, flag = (elem==SEEFLAG)?1:0;
|
|
char namefmt[8];
|
|
static int slide=0;
|
|
ut8 *buf;
|
|
|
|
nexti = nargs = i = j = 0;
|
|
|
|
if (len < 1)
|
|
return 0;
|
|
buf = malloc (len);
|
|
if (!buf)
|
|
return 0;
|
|
memcpy (buf, b, len);
|
|
endian = p->big_endian;
|
|
|
|
oldprintf = NULL;
|
|
realprintf = p->printf;
|
|
|
|
while (*arg && iswhitechar (*arg)) arg++;
|
|
|
|
/* get times */
|
|
otimes = times = atoi (arg);
|
|
if (times > 0)
|
|
while ((*arg>='0'&&*arg<='9')) arg++;
|
|
|
|
bracket = strchr (arg,'{');
|
|
if (bracket) {
|
|
char *end = strchr (arg, '}');
|
|
if (end == NULL) {
|
|
eprintf ("No end bracket. Try pm {ecx}b @ esi\n");
|
|
goto beach;
|
|
}
|
|
*end='\0';
|
|
times = r_num_math (NULL, bracket+1);
|
|
arg = end + 1;
|
|
}
|
|
|
|
if (*arg=='\0' || *arg=='?') {
|
|
print_format_help (p);
|
|
goto beach;
|
|
}
|
|
|
|
/* get args */
|
|
args = strchr (arg, ' ');
|
|
if (args) {
|
|
int l=0, maxl = 0;
|
|
argend = args;
|
|
args = strdup (args+1);
|
|
nargs = r_str_word_set0 (args);
|
|
if (nargs == 0)
|
|
R_FREE (args);
|
|
for (i=0; i<nargs; i++) {
|
|
const int len = strlen (r_str_word_get0 (args, i));
|
|
if (len > maxl)
|
|
maxl = len;
|
|
}
|
|
l++;
|
|
snprintf (namefmt, sizeof (namefmt), "%%%ds : ", maxl+6*slide%STRUCTPTR);
|
|
}
|
|
|
|
/* go format */
|
|
i = 0;
|
|
if (!times)
|
|
otimes = times = 1;
|
|
for (; times; times--) { // repeat N times
|
|
const char * orig = arg;
|
|
if (otimes>1)
|
|
p->printf ("0x%08"PFMT64x" [%d] {\n", seek+i, otimes-times);
|
|
arg = orig;
|
|
for (idx=0; i<len && arg<argend && *arg; arg++) {
|
|
int size;
|
|
char *name = NULL;
|
|
seeki = seek+i;
|
|
addr = 0LL;
|
|
invalid = 0;
|
|
if (arg[0] == '[') {
|
|
char *end = strchr (arg,']');
|
|
if (end == NULL) {
|
|
eprintf ("No end bracket.\n");
|
|
goto beach;
|
|
}
|
|
*end = '\0';
|
|
size = r_num_math (NULL, arg+1);
|
|
arg = end + 1;
|
|
*end = ']';
|
|
} else {
|
|
size = -1;
|
|
}
|
|
updateAddr (buf, i, endian, &addr, &addr64);
|
|
|
|
tmp = *arg;
|
|
|
|
if (otimes>1)
|
|
p->printf (" ");
|
|
#define MUSTSET (setval && elem == idx)
|
|
#define MUSTSEE (elem == -1 || elem == idx)
|
|
if (MUSTSEE && !flag) {
|
|
if (!(MUSTSET)) {
|
|
if (oldprintf)
|
|
p->printf = oldprintf;
|
|
if (idx<nargs && tmp != 'e' && isptr == 0) {
|
|
p->printf (namefmt, r_str_word_get0 (args, idx));
|
|
idx++;
|
|
}
|
|
}
|
|
} else {
|
|
if (!oldprintf)
|
|
oldprintf = p->printf;
|
|
p->printf = nullprintf;
|
|
}
|
|
|
|
feed_me_again:
|
|
switch (isptr) {
|
|
case 1:
|
|
{
|
|
nexti = i + (p->bits/8);
|
|
i = 0;
|
|
if(tmp == '?' )seeki = addr;
|
|
memset (buf, '\0', len);
|
|
p->printf ("(*0x%"PFMT64x") ", addr);
|
|
if (addr == 0) isptr = NULLPTR;
|
|
else isptr = PTRBACK;
|
|
if (/*addr<(b+len) && addr>=b && */p->iob.read_at) { /* The test was here to avoid segfault in the next line,
|
|
but len make it doesnt work... */
|
|
p->iob.read_at (p->iob.io, (ut64)addr, buf, len-4);
|
|
updateAddr (buf, i, endian, &addr, &addr64);
|
|
} else {
|
|
eprintf ("(SEGFAULT: cannot read memory at 0x%08"PFMT64x", Block: %s, blocksize: 0x%x)\n",
|
|
addr, b, len);
|
|
p->printf("\n");
|
|
goto beach;
|
|
}
|
|
}
|
|
break;
|
|
case 2:
|
|
// restore state after pointer seek
|
|
i = nexti;
|
|
seeki = seek+i;
|
|
memcpy (buf, b, len);
|
|
isptr = NOPTR;
|
|
arg--;
|
|
continue;
|
|
}
|
|
if (tmp == 0 && last != '*')
|
|
break;
|
|
|
|
/* skip chars */
|
|
switch (tmp) {
|
|
case '*': // next char is a pointer
|
|
isptr = PTRSEEK;
|
|
arg++;
|
|
tmp = *arg; //last;
|
|
goto feed_me_again;
|
|
case '+': // toggle view flags
|
|
viewflags = !viewflags;
|
|
continue;
|
|
case 'e': // tmp swap endian
|
|
endian ^= 1;
|
|
continue;
|
|
case ':': // skip 4 bytes
|
|
if (size == -1) i+=4;
|
|
else
|
|
while (size--) i+=4;
|
|
continue;
|
|
case '.': // skip 1 byte
|
|
if (size == -1) i++;
|
|
else
|
|
while (size--) i++;
|
|
continue;
|
|
case 'p': // pointer reference
|
|
tmp = (p->bits == 64)? 'q': 'x';
|
|
//tmp = (sizeof (void*)==8)? 'q': 'x';
|
|
break;
|
|
}
|
|
if (flag && isptr != NULLPTR) {
|
|
if (tmp == '?') {
|
|
char *n = strdup (r_str_word_get0 (args, idx)+1);
|
|
char *par = strchr (n, ')');
|
|
if (par == NULL) {
|
|
eprintf ("No end parenthesis for struct name");
|
|
free (n);
|
|
goto beach;
|
|
} else {
|
|
*par = '.';
|
|
}
|
|
realprintf ("f %s_", n);
|
|
free(n);
|
|
} else if (slide>0 && idx==0) {
|
|
realprintf ("%s=0x%08"PFMT64x"\n",
|
|
r_str_word_get0 (args, idx), seeki);
|
|
} else realprintf ("f %s=0x%08"PFMT64x"\n",
|
|
r_str_word_get0 (args, idx) , seeki);
|
|
idx++;
|
|
}
|
|
|
|
if (isptr == NULLPTR) {
|
|
p->printf ("NULL");
|
|
isptr = PTRBACK;
|
|
} else
|
|
/* cmt chars */
|
|
switch (tmp) {
|
|
#if 0
|
|
case 't':
|
|
/* unix timestamp */
|
|
D cons_printf("0x%08x = ", config.seek+i);
|
|
{
|
|
/* dirty hack */
|
|
int oldfmt = last_print_format;
|
|
ut64 old = config.seek;
|
|
radare_seek(config.seek+i, SEEK_SET);
|
|
radare_read(0);
|
|
print_data(config.seek+i, "8", buf+i, 4, FMT_TIME_UNIX);
|
|
last_print_format=oldfmt;
|
|
radare_seek(old, SEEK_SET);
|
|
}
|
|
break;
|
|
#endif
|
|
case 'e': //WTF is this? 'e' is supposed to swap endians?!
|
|
if (size > 0)
|
|
p->printf ("Size not yet implemented\n");
|
|
if (MUSTSET) {
|
|
realprintf ("?e pf e not yet supported\n");
|
|
} else {
|
|
double doub;
|
|
memcpy (&doub, buf+i, sizeof (double));
|
|
p->printf ("0x%08"PFMT64x" = (double) ", seeki);
|
|
p->printf ("%e", doub);
|
|
i += 8;
|
|
}
|
|
break;
|
|
case 'q':
|
|
r_print_format_quadword(p, endian, MUSTSET, setval, seeki, buf, i, size);
|
|
i += (size==-1) ? 8 : 8*size;
|
|
break;
|
|
case 'b':
|
|
r_print_format_byte(p, endian, MUSTSET, setval, seeki, buf, i, size);
|
|
i+= (size==-1) ? 1 : size;
|
|
break;
|
|
case 'c':
|
|
r_print_format_char (p, endian, MUSTSET,
|
|
setval, seeki, buf, i, size);
|
|
i+= (size==-1) ? 1 : size;
|
|
break;
|
|
case 'X':
|
|
size = r_print_format_hexpairs (p, endian, MUSTSET,
|
|
setval, seeki, buf, size);
|
|
i += size;
|
|
break;
|
|
case 'T':
|
|
if(r_print_format_10bytes(p, MUSTSET,
|
|
setval, seeki, addr, buf) == 0)
|
|
i += (size==-1) ? 4 : 4*size;
|
|
break;
|
|
case 'f':
|
|
r_print_format_float(p, endian, MUSTSET, setval, seeki, buf, i, size);
|
|
i += (size==-1) ? 4 : 4*size;
|
|
break;
|
|
case 'i':
|
|
case 'd':
|
|
r_print_format_hex(p, endian, MUSTSET, setval, seeki, buf, i, size);
|
|
i+= (size==-1) ? 4 : 4*size;
|
|
break;
|
|
case 'D':
|
|
if (size>0) p->printf ("Size not yet implemented\n");
|
|
if (p->disasm && p->user)
|
|
i += p->disasm (p->user, seeki);
|
|
break;
|
|
case 'o':
|
|
r_print_format_octal (p, endian, MUSTSET, setval, seeki, buf, i, size);
|
|
i+= (size==-1) ? 4 : 4*size;
|
|
break;
|
|
case 'x':
|
|
r_print_format_hexflag(p, endian, MUSTSET, setval, seeki, buf, i, size);
|
|
i+= (size==-1) ? 4 : 4*size;
|
|
break;
|
|
case 'w':
|
|
case '1': // word (16 bits)
|
|
r_print_format_word(p, endian, MUSTSET, setval, seeki, buf, i, size);
|
|
i+= (size==-1) ? 2 : 2*size;
|
|
break;
|
|
case 'z': // zero terminated string
|
|
if (MUSTSET) {
|
|
int buflen = strlen ((const char *)buf);
|
|
if (buflen>seeki) {
|
|
buflen = strlen ((const char *)buf+seeki);
|
|
}
|
|
if (strlen (setval) > buflen) {
|
|
eprintf ("Warning: new string is longer than previous one \n");
|
|
}
|
|
realprintf ("w %s @ 0x%08"PFMT64x"\n", setval, seeki);
|
|
} else {
|
|
p->printf ("0x%08"PFMT64x" = ", seeki);
|
|
for (; ((size || size==-1) && buf[i]) && i<len; i++) {
|
|
if (IS_PRINTABLE (buf[i]))
|
|
p->printf ("%c", buf[i]);
|
|
else p->printf (".");
|
|
size -= (size==-1) ? 0 : 1;
|
|
}
|
|
}
|
|
if (size == -1)
|
|
i++;
|
|
else
|
|
while (size--) i++;
|
|
break;
|
|
case 'Z': // zero terminated wide string
|
|
if (MUSTSET) {
|
|
if ((size = strlen(setval)) > r_wstr_clen((char*)(buf+seeki)))
|
|
eprintf ("Warning: new string is longer than previous one\n");
|
|
realprintf ("ww %s @ 0x%08"PFMT64x"\n", setval, seeki);
|
|
} else {
|
|
p->printf ("0x%08"PFMT64x" = ", seeki);
|
|
for (; ((size || size==-1) && buf[i]) && i<len; i+=2) {
|
|
if (IS_PRINTABLE (buf[i]))
|
|
p->printf ("%c", buf[i]);
|
|
else p->printf (".");
|
|
size -= (size==-1) ? 0 : 1;
|
|
}
|
|
}
|
|
if (size == -1)
|
|
i+=2;
|
|
else
|
|
while (size--) i+=2;
|
|
break;
|
|
case 's':
|
|
if (r_print_format_ptrstring (p, seeki, addr64, addr, 0) == 0)
|
|
i += (size==-1) ? 4 : 4*size;
|
|
break;
|
|
case 'S':
|
|
if (r_print_format_ptrstring (p, seeki, addr64, addr, 1) == 0)
|
|
i += (size==-1) ? 8 : 8*size;
|
|
break;
|
|
case 'B': // resolve bitfield
|
|
{
|
|
char *structname, *osn;
|
|
char *bitfield = NULL;
|
|
structname = osn = strdup (r_str_word_get0 (args, idx-1));
|
|
if (*structname == '(') {
|
|
name = strchr (structname, ')');
|
|
} else {
|
|
eprintf ("Struct name missing (%s)\n", structname);
|
|
free (structname);
|
|
goto beach;
|
|
}
|
|
structname++;
|
|
if (name) *(name++) = '\0';
|
|
else eprintf ("No ')'\n");
|
|
|
|
if (p->get_bitfield)
|
|
bitfield = p->get_bitfield (p->user, structname, addr);
|
|
if (bitfield && *bitfield) {
|
|
p->printf (" %s (enum) = %s\n", name, bitfield);
|
|
} else {
|
|
p->printf (" %s (enum) = `tb %s %x`\n",
|
|
name, structname, addr);
|
|
}
|
|
i+= 4; //(isptr) ? 4 : s;
|
|
free (osn);
|
|
free (bitfield);
|
|
}
|
|
break;
|
|
case 'E': // resolve enum
|
|
{
|
|
char *enumname, *osn;
|
|
char *enumvalue = NULL;
|
|
enumname = osn = strdup (r_str_word_get0 (args, idx-1));
|
|
if (*enumname == '(') {
|
|
name = strchr (enumname, ')');
|
|
} else {
|
|
eprintf ("Struct name missing (%s)\n", enumname);
|
|
free (enumname);
|
|
goto beach;
|
|
}
|
|
enumname++;
|
|
if (name) *(name++) = '\0';
|
|
else eprintf ("No ')'\n");
|
|
// TODO: add a callback in RPrint to resolve an enum
|
|
if (p->get_enumname)
|
|
enumvalue = p->get_enumname (p->user, enumname, addr);
|
|
if (enumvalue && *enumvalue) {
|
|
p->printf (" %s (enum) = %s %s\n", name, enumname, enumvalue);
|
|
} else {
|
|
p->printf (" %s (bitfield) = `te %s %x`\n",
|
|
name, enumname, addr);
|
|
}
|
|
i+= 4; //(isptr) ? 4 : s;
|
|
free (osn);
|
|
free (enumvalue);
|
|
}
|
|
break;
|
|
case '?':
|
|
{
|
|
int s;
|
|
char *structname, *osn;
|
|
structname = osn = strdup (r_str_word_get0 (args, idx-1));
|
|
if (*structname == '(') {
|
|
name = strchr (structname, ')');
|
|
} else {
|
|
eprintf ("Struct name missing (%s)\n", structname);
|
|
free (structname);
|
|
goto beach;
|
|
}
|
|
structname++;
|
|
if (name) *(name++) = '\0';
|
|
else eprintf ("No ')'\n");
|
|
p->printf ("<struct>\n");
|
|
if (flag) slide+=STRUCTFLAG;
|
|
slide += (isptr) ? STRUCTPTR : NESTEDSTRUCT;
|
|
s = r_print_format_struct (p, seeki,
|
|
buf+i, len, structname--, slide);
|
|
i+= (isptr) ? 4 : s;
|
|
slide -= (isptr) ? STRUCTPTR : NESTEDSTRUCT;
|
|
if (flag) slide-=STRUCTFLAG;
|
|
free (osn);
|
|
break;
|
|
}
|
|
default:
|
|
/* ignore unknown chars */
|
|
invalid = 1;
|
|
break;
|
|
}
|
|
if (!flag && (!MUSTSEE || MUSTSET))
|
|
idx++;
|
|
if (viewflags && p->offname) {
|
|
const char *s = p->offname (p->user, seeki);
|
|
if (s)
|
|
p->printf ("@(%s)", s);
|
|
s = p->offname (p->user, addr);
|
|
if (s)
|
|
p->printf ("*(%s)", s);
|
|
}
|
|
if (tmp != 'D' && !invalid && name==NULL)
|
|
p->printf ("\n");
|
|
last = tmp;
|
|
}
|
|
if (otimes>1)
|
|
p->printf ("}\n");
|
|
arg = orig;
|
|
}
|
|
if (oldprintf)
|
|
p->printf = oldprintf;
|
|
beach:
|
|
free (buf);
|
|
if (args)
|
|
free (args);
|
|
return i;
|
|
}
|