mirror of
https://github.com/radareorg/radare2.git
synced 2024-12-05 12:08:24 +00:00
1072 lines
31 KiB
C
1072 lines
31 KiB
C
/* radare - LGPL - Copyright 2009-2019 - pancake */
|
|
|
|
#include <stddef.h>
|
|
#include <math.h> // required for signbit
|
|
#include "r_cons.h"
|
|
#include "r_core.h"
|
|
#include "r_util.h"
|
|
|
|
static ut32 vernum(const char *s) {
|
|
// XXX this is known to be buggy, only works for strings like "x.x.x"
|
|
// XXX anything like "x.xx.x" will break the parsing
|
|
// XXX -git is ignored, maybe we should shift for it
|
|
char *a = strdup (s);
|
|
a = r_str_replace (a, ".", "0", 1);
|
|
char *dash = strchr (a, '-');
|
|
if (dash) {
|
|
*dash = 0;
|
|
}
|
|
ut32 res = atoi (a);
|
|
free (a);
|
|
return res;
|
|
}
|
|
|
|
static const char *help_msg_percent[] = {
|
|
"Usage:", "%[name[=value]]", "Set each NAME to VALUE in the environment",
|
|
"%", "", "list all environment variables",
|
|
"%", "SHELL", "prints SHELL value",
|
|
"%", "TMPDIR=/tmp", "sets TMPDIR value to \"/tmp\"",
|
|
NULL
|
|
};
|
|
|
|
// NOTE: probably not all environment vars takes sesnse
|
|
// because they can be replaced by commands in the given
|
|
// command.. we should only expose the most essential and
|
|
// unidirectional ones.
|
|
static const char *help_msg_env[] = {
|
|
"\nEnvironment:", "", "",
|
|
"R2_FILE", "", "file name",
|
|
"R2_OFFSET", "", "10base offset 64bit value",
|
|
"R2_BYTES", "", "TODO: variable with bytes in curblock",
|
|
"R2_XOFFSET", "", "same as above, but in 16 base",
|
|
"R2_BSIZE", "", "block size",
|
|
"R2_ENDIAN", "", "'big' or 'little'",
|
|
"R2_IOVA", "", "is io.va true? virtual addressing (1,0)",
|
|
"R2_DEBUG", "", "debug mode enabled? (1,0)",
|
|
"R2_BLOCK", "", "TODO: dump current block to tmp file",
|
|
"R2_SIZE", "","file size",
|
|
"R2_ARCH", "", "value of asm.arch",
|
|
"R2_BITS", "", "arch reg size (8, 16, 32, 64)",
|
|
"RABIN2_LANG", "", "assume this lang to demangle",
|
|
"RABIN2_DEMANGLE", "", "demangle or not",
|
|
"RABIN2_PDBSERVER", "", "e pdb.server",
|
|
NULL
|
|
};
|
|
|
|
static const char *help_msg_exclamation[] = {
|
|
"Usage:", "!<cmd>", " Run given command as in system(3)",
|
|
"!", "", "list all historic commands",
|
|
"!", "ls", "execute 'ls' in shell",
|
|
"!!", "", "save command history to hist file",
|
|
"!!", "ls~txt", "print output of 'ls' and grep for 'txt'",
|
|
"!!!", "cmd [args|$type]", "adds the autocomplete value",
|
|
"!!!-", "cmd [args]", "removes the autocomplete value",
|
|
".!", "rabin2 -rpsei ${FILE}", "run each output line as a r2 cmd",
|
|
"!", "echo $SIZE", "display file size",
|
|
"!-", "", "clear history in current session",
|
|
"!-*", "", "clear and save empty history log",
|
|
"!=!", "", "enable remotecmd mode",
|
|
"=!=", "", "disable remotecmd mode",
|
|
NULL
|
|
};
|
|
|
|
static const char *help_msg_root[] = {
|
|
"%var", "=value", "alias for 'env' command",
|
|
"*", "[?] off[=[0x]value]", "pointer read/write data/values (see ?v, wx, wv)",
|
|
"(macro arg0 arg1)", "", "manage scripting macros",
|
|
".", "[?] [-|(m)|f|!sh|cmd]", "Define macro or load r2, cparse or rlang file",
|
|
"_", "[?]", "Print last output",
|
|
"=","[?] [cmd]", "send/listen for remote commands (rap://, raps://, udp://, http://, <fd>)",
|
|
"<","[...]", "push escaped string into the RCons.readChar buffer",
|
|
"/","[?]", "search for bytes, regexps, patterns, ..",
|
|
"!","[?] [cmd]", "run given command as in system(3)",
|
|
"#","[?] !lang [..]", "Hashbang to run an rlang script",
|
|
"a","[?]", "analysis commands",
|
|
"b","[?]", "display or change the block size",
|
|
"c","[?] [arg]", "compare block with given data",
|
|
"C","[?]", "code metadata (comments, format, hints, ..)",
|
|
"d","[?]", "debugger commands",
|
|
"e","[?] [a[=b]]", "list/get/set config evaluable vars",
|
|
"f","[?] [name][sz][at]", "add flag at current address",
|
|
"g","[?] [arg]", "generate shellcodes with r_egg",
|
|
"i","[?] [file]", "get info about opened file from r_bin",
|
|
"k","[?] [sdb-query]", "run sdb-query. see k? for help, 'k *', 'k **' ...",
|
|
"l"," [filepattern]", "list files and directories",
|
|
"L","[?] [-] [plugin]", "list, unload load r2 plugins",
|
|
"m","[?]", "mountpoints commands",
|
|
"o","[?] [file] ([offset])", "open file at optional address",
|
|
"p","[?] [len]", "print current block with format and length",
|
|
"P","[?]", "project management utilities",
|
|
"q","[?] [ret]", "quit program with a return value",
|
|
"r","[?] [len]", "resize file",
|
|
"s","[?] [addr]", "seek to address (also for '0x', '0x1' == 's 0x1')",
|
|
"t","[?]", "types, noreturn, signatures, C parser and more",
|
|
"T","[?] [-] [num|msg]", "Text log utility (used to chat, sync, log, ...)",
|
|
"u","[?]", "uname/undo seek/write",
|
|
"v","", "visual mode (v! = panels, vv = fcnview, vV = fcngraph, vVV = callgraph)",
|
|
"w","[?] [str]", "multiple write operations",
|
|
"x","[?] [len]", "alias for 'px' (print hexadecimal)",
|
|
"y","[?] [len] [[[@]addr", "Yank/paste bytes from/to memory",
|
|
"z", "[?]", "zignatures management",
|
|
"?[??]","[expr]", "Help or evaluate math expression",
|
|
"?$?", "", "show available '$' variables and aliases",
|
|
"?@?", "", "misc help for '@' (seek), '~' (grep) (see ~?""?)",
|
|
"?>?", "", "output redirection",
|
|
NULL
|
|
};
|
|
|
|
static const char *help_msg_question[] = {
|
|
"Usage: ?[?[?]] expression", "", "",
|
|
"?", " eip-0x804800", "show hex and dec result for this math expr",
|
|
"?:", "", "list core cmd plugins",
|
|
"[cmd]?*", "", "recursive help for the given cmd",
|
|
"?!", " [cmd]", "run cmd if $? == 0",
|
|
"?$", "", "show value all the variables ($)",
|
|
"?+", " [cmd]", "run cmd if $? > 0",
|
|
"?-", " [cmd]", "run cmd if $? < 0",
|
|
"?=", " eip-0x804800", "hex and dec result for this math expr",
|
|
"??", " [cmd]", "run cmd if $? != 0",
|
|
"??", "", "show value of operation",
|
|
"?_", " hudfile", "load hud menu with given file",
|
|
"?a", "", "show ascii table",
|
|
"?b", " [num]", "show binary value of number",
|
|
"?b64[-]", " [str]", "encode/decode in base64",
|
|
"?btw", " num|expr num|expr num|expr", "returns boolean value of a <= b <= c",
|
|
"?B", " [elem]", "show range boundaries like 'e?search.in",
|
|
"?e[nbgc]", " string", "echo string (nonl, gotoxy, column, bars)",
|
|
"?f", " [num] [str]", "map each bit of the number as flag string index",
|
|
"?F", "", "flush cons output",
|
|
"?h", " [str]", "calculate hash for given string",
|
|
"?i", "[ynmkp] arg", "prompt for number or Yes,No,Msg,Key,Path and store in $$?",
|
|
"?ik", "", "press any key input dialog",
|
|
"?im", " message", "show message centered in screen",
|
|
"?in", " prompt", "noyes input prompt",
|
|
"?iy", " prompt", "yesno input prompt",
|
|
"?j", " arg", "same as '? num' but in JSON",
|
|
"?l", "[q] str", "returns the length of string ('q' for quiet, just set $?)",
|
|
"?o", " num", "get octal value",
|
|
"?p", " vaddr", "get physical address for given virtual address",
|
|
"?P", " paddr", "get virtual address for given physical one",
|
|
"?q", " eip-0x804800", "compute expression like ? or ?v but in quiet mode",
|
|
"?r", " [from] [to]", "generate random number between from-to",
|
|
"?s", " from to step", "sequence of numbers from to by steps",
|
|
"?t", " cmd", "returns the time to run a command",
|
|
"?T", "", "show loading times",
|
|
"?u", " num", "get value in human units (KB, MB, GB, TB)",
|
|
"?v", " eip-0x804800", "show hex value of math expr",
|
|
"?vi", " rsp-rbp", "show decimal value of math expr",
|
|
"?V", "", "show library version of r_core",
|
|
"?w", " addr", "show what's in this address (like pxr/pxq does)",
|
|
"?x", " str", "returns the hexpair of number or string",
|
|
"?x", "+num", "like ?v, but in hexpairs honoring cfg.bigendian",
|
|
"?x", "-hexst", "convert hexpair into raw string with newline",
|
|
"?X", " num|expr", "returns the hexadecimal value numeric expr",
|
|
NULL
|
|
};
|
|
|
|
static const char *help_msg_question_v[] = {
|
|
"Usage: ?v [$.]","","",
|
|
"flag", "", "offset of flag",
|
|
"$$", "", "here (current virtual seek)",
|
|
"$$$", "", "current non-temporary virtual seek",
|
|
"$?", "", "last comparison value",
|
|
"$alias", "=value", "alias commands (simple macros)",
|
|
"$b", "", "block size",
|
|
"$B", "", "base address (aligned lowest map address)",
|
|
"$f", "", "jump fail address (e.g. jz 0x10 => next instruction)",
|
|
"$fl", "", "flag length (size) at current address (fla; pD $l @ entry0)",
|
|
"$F", "", "Same as $FB",
|
|
"$Fb", "", "begin of basic block",
|
|
"$FB", "", "begin of function",
|
|
"$Fe", "", "end of basic block",
|
|
"$FE", "", "end of function",
|
|
"$Ff", "", "function false destination",
|
|
"$Fj", "", "function jump destination",
|
|
"$Fs", "", "size of the current basic block",
|
|
"$FS", "", "function size (linear length)",
|
|
"$FSS", "", "function size (sum bb sizes)",
|
|
"$Fi", "", "basic block instructions",
|
|
"$FI", "", "function instructions",
|
|
"$c,$r", "", "get width and height of terminal",
|
|
"$Cn", "", "get nth call of function",
|
|
"$Dn", "", "get nth data reference in function",
|
|
"$D", "", "current debug map base address ?v $D @ rsp",
|
|
"$DD", "", "current debug map size",
|
|
"$e", "", "1 if end of block, else 0",
|
|
"$j", "", "jump address (e.g. jmp 0x10, jz 0x10 => 0x10)",
|
|
"$Ja", "", "get nth jump of function",
|
|
"$Xn", "", "get nth xref of function",
|
|
"$l", "", "opcode length",
|
|
"$m", "", "opcode memory reference (e.g. mov eax,[0x10] => 0x10)",
|
|
"$M", "", "map address (lowest map address)",
|
|
"$MM", "", "map size (lowest map address)",
|
|
"$o", "", "here (current disk io offset)",
|
|
"$p", "", "getpid()",
|
|
"$P", "", "pid of children (only in debug)",
|
|
"$s", "", "file size",
|
|
"$S", "", "section offset",
|
|
"$SS", "", "section size",
|
|
"$v", "", "opcode immediate value (e.g. lui a0,0x8010 => 0x8010)",
|
|
"$w", "", "get word size, 4 if asm.bits=32, 8 if 64, ...",
|
|
"${ev}", "", "get value of eval config variable",
|
|
"$r", "", "get console height",
|
|
"$r{reg}", "", "get value of named register",
|
|
"$k{kv}", "", "get value of an sdb query value",
|
|
"$s{flag}", "", "get size of flag",
|
|
"$e{flag}", "", "end of flag (flag->offset + flag->size)",
|
|
"RNum", "", "$variables usable in math expressions",
|
|
NULL
|
|
};
|
|
|
|
static const char *help_msg_question_V[] = {
|
|
"Usage: ?V[jq]","","",
|
|
"?V", "", "show version information",
|
|
"?Vc", "", "show numeric version",
|
|
"?Vj", "", "same as above but in JSON",
|
|
"?Vq", "", "quiet mode, just show the version number",
|
|
NULL
|
|
};
|
|
|
|
static const char *help_msg_greater_sign[] = {
|
|
"Usage:", "[cmd]>[file]", "redirects console from 'cmd' output to 'file'",
|
|
"[cmd] > [file]", "", "redirect STDOUT of 'cmd' to 'file'",
|
|
"[cmd] H> [file]", "", "redirect html output of 'cmd' to 'file'",
|
|
"[cmd] 2> [file]", "", "redirect STDERR of 'cmd' to 'file'",
|
|
"[cmd] 2> /dev/null", "", "omit the STDERR output of 'cmd'",
|
|
NULL
|
|
};
|
|
|
|
static const char *help_msg_intro[] = {
|
|
"Usage: [.][times][cmd][~grep][@[@iter]addr!size][|>pipe] ; ...", "", "",
|
|
"Append '?' to any char command to get detailed help", "", "",
|
|
"Prefix with number to repeat command N times (f.ex: 3x)", "", "",
|
|
NULL
|
|
};
|
|
|
|
static void cmd_help_exclamation(RCore *core) {
|
|
r_core_cmd_help (core, help_msg_exclamation);
|
|
r_core_cmd_help (core, help_msg_env);
|
|
}
|
|
|
|
static void cmd_help_percent(RCore *core) {
|
|
r_core_cmd_help (core, help_msg_percent);
|
|
r_core_cmd_help (core, help_msg_env);
|
|
}
|
|
|
|
static void cmd_help_init(RCore *core) {
|
|
DEFINE_CMD_DESCRIPTOR_SPECIAL (core, ?, question);
|
|
DEFINE_CMD_DESCRIPTOR_SPECIAL (core, ?v, question_v);
|
|
DEFINE_CMD_DESCRIPTOR_SPECIAL (core, ?V, question_V);
|
|
}
|
|
|
|
static const char* findBreakChar(const char *s) {
|
|
while (*s) {
|
|
if (!r_name_validate_char (*s)) {
|
|
break;
|
|
}
|
|
s++;
|
|
}
|
|
return s;
|
|
}
|
|
|
|
static char *filterFlags(RCore *core, const char *msg) {
|
|
const char *dollar, *end;
|
|
char *word, *buf = NULL;
|
|
for (;;) {
|
|
dollar = strchr (msg, '$');
|
|
if (!dollar) {
|
|
break;
|
|
}
|
|
buf = r_str_appendlen (buf, msg, dollar-msg);
|
|
if (dollar[1]=='{') {
|
|
// find }
|
|
end = strchr (dollar+2, '}');
|
|
if (end) {
|
|
word = r_str_newlen (dollar+2, end-dollar-2);
|
|
end++;
|
|
} else {
|
|
msg = dollar+1;
|
|
buf = r_str_append (buf, "$");
|
|
continue;
|
|
}
|
|
} else {
|
|
end = findBreakChar (dollar+1);
|
|
if (!end) {
|
|
end = dollar + strlen (dollar);
|
|
}
|
|
word = r_str_newlen (dollar+1, end-dollar-1);
|
|
}
|
|
if (end && word) {
|
|
ut64 val = r_num_math (core->num, word);
|
|
char num[32];
|
|
snprintf (num, sizeof (num), "0x%"PFMT64x, val);
|
|
buf = r_str_append (buf, num);
|
|
msg = end;
|
|
} else {
|
|
break;
|
|
}
|
|
free (word);
|
|
}
|
|
buf = r_str_append (buf, msg);
|
|
return buf;
|
|
}
|
|
|
|
enum {
|
|
R_AVATAR_ORANGG,
|
|
R_AVATAR_CLIPPY,
|
|
};
|
|
|
|
static const char *getClippy(int type) {
|
|
if (type == R_AVATAR_ORANGG) {
|
|
return
|
|
" _______\n"
|
|
" / \\ .-%s-.\n"
|
|
" _| ( o) (o)\\_ | %s |\n"
|
|
" / _ .\\. | \\ <| %s |\n"
|
|
" \\| \\ ____ / 7` | %s |\n"
|
|
" '|\\| `---'/ `-%s-'\n"
|
|
" | /----. \\\n"
|
|
" | \\___/ |___\n"
|
|
" `-----'`-----'\n"
|
|
;
|
|
}
|
|
const int choose = r_num_rand (3);
|
|
switch (choose) {
|
|
case 0: return
|
|
" .--. .-%s-.\n"
|
|
" | _| | %s |\n"
|
|
" | O O < %s |\n"
|
|
" | | | | %s |\n"
|
|
" || | / `-%s-'\n"
|
|
" |`-'|\n"
|
|
" `---'\n";
|
|
case 1: return
|
|
" .--. .-%s-.\n"
|
|
" | \\ | %s |\n"
|
|
" | O o < %s |\n"
|
|
" | | / | %s |\n"
|
|
" | ( / `-%s-'\n"
|
|
" | / \n"
|
|
" `--'\n";
|
|
case 2: return
|
|
" .--. .-%s-.\n"
|
|
" | _|_ | %s |\n"
|
|
" | O O < %s |\n"
|
|
" | || | %s |\n"
|
|
" | _:| `-%s-'\n"
|
|
" | |\n"
|
|
" `---'\n";
|
|
}
|
|
return "";
|
|
}
|
|
|
|
R_API void r_core_clippy(const char *msg) {
|
|
int type = R_AVATAR_CLIPPY;
|
|
if (*msg == '+') {
|
|
char *space = strchr (msg, ' ');
|
|
if (!space) {
|
|
return;
|
|
}
|
|
type = R_AVATAR_ORANGG;
|
|
msg = space + 1;
|
|
}
|
|
int msglen = strlen (msg);
|
|
char *l = strdup (r_str_pad ('-', msglen));
|
|
char *s = strdup (r_str_pad (' ', msglen));
|
|
r_cons_printf (getClippy (type), l, s, msg, s, l);
|
|
free (l);
|
|
free (s);
|
|
}
|
|
|
|
static int cmd_help(void *data, const char *input) {
|
|
RCore *core = (RCore *)data;
|
|
RIOMap *map;
|
|
const char *k;
|
|
RListIter *iter;
|
|
char *p, out[128] = R_EMPTY;
|
|
ut64 n;
|
|
int i;
|
|
RList *tmp;
|
|
|
|
switch (input[0]) {
|
|
case '0': // "?0"
|
|
core->curtab = 0;
|
|
break;
|
|
case '1': // "?1"
|
|
if (core->curtab < 0) {
|
|
core->curtab = 0;
|
|
}
|
|
core->curtab ++;
|
|
break;
|
|
case 'r': // "?r"
|
|
{ // TODO : Add support for 64bit random numbers
|
|
ut64 b = 0;
|
|
ut32 r = UT32_MAX;
|
|
if (input[1]) {
|
|
strncpy (out, input+(input[1]==' '? 2: 1), sizeof (out)-1);
|
|
p = strchr (out + 1, ' ');
|
|
if (p) {
|
|
*p = 0;
|
|
b = (ut32)r_num_math (core->num, out);
|
|
r = (ut32)r_num_math (core->num, p+1)-b;
|
|
} else {
|
|
r = (ut32)r_num_math (core->num, out);
|
|
}
|
|
} else {
|
|
r = 0LL;
|
|
}
|
|
if (!r) {
|
|
r = UT32_MAX >> 1;
|
|
}
|
|
core->num->value = (ut64) (b + r_num_rand (r));
|
|
r_cons_printf ("0x%"PFMT64x"\n", core->num->value);
|
|
}
|
|
break;
|
|
case 'a': // "?a"
|
|
r_cons_printf ("%s", ret_ascii_table());
|
|
break;
|
|
case 'b': // "?b"
|
|
if (input[1] == '6' && input[2] == '4') {
|
|
//b64 decoding takes at most strlen(str) * 4
|
|
const int buflen = (strlen (input+3) * 4) + 1;
|
|
char* buf = calloc (buflen, sizeof(char));
|
|
if (!buf) {
|
|
return false;
|
|
}
|
|
if (input[3] == '-') {
|
|
r_base64_decode ((ut8*)buf, input + 5, strlen (input + 5));
|
|
} else {
|
|
r_base64_encode (buf, (const ut8*)input + 4, strlen (input + 4));
|
|
}
|
|
r_cons_println (buf);
|
|
free (buf);
|
|
} else if (input[1] == 't' && input[2] == 'w') { // "?btw"
|
|
if (r_num_between (core->num, input + 3) == -1) {
|
|
eprintf ("Usage: ?btw num|(expr) num|(expr) num|(expr)\n");
|
|
}
|
|
} else {
|
|
n = r_num_get (core->num, input+1);
|
|
r_num_to_bits (out, n);
|
|
r_cons_printf ("%sb\n", out);
|
|
}
|
|
break;
|
|
case 'B': // "?B"
|
|
k = r_str_trim_ro (input + 1);
|
|
tmp = r_core_get_boundaries_prot (core, -1, k, "search");
|
|
if (!tmp) {
|
|
return false;
|
|
}
|
|
r_list_foreach (tmp, iter, map) {
|
|
r_cons_printf ("0x%"PFMT64x" 0x%"PFMT64x"\n", map->itv.addr, r_itv_end (map->itv));
|
|
}
|
|
r_list_free (tmp);
|
|
break;
|
|
case 'h': // "?h"
|
|
if (input[1] == ' ') {
|
|
r_cons_printf ("0x%08x\n", (ut32)r_str_hash (input + 2));
|
|
} else {
|
|
eprintf ("Usage: ?h [string-to-hash]\n");
|
|
}
|
|
break;
|
|
case 'F': // "?F"
|
|
r_cons_flush ();
|
|
break;
|
|
case 'f': // "?f"
|
|
if (input[1] == ' ') {
|
|
char *q, *p = strdup (input + 2);
|
|
if (!p) {
|
|
eprintf ("Cannot strdup\n");
|
|
return 0;
|
|
}
|
|
q = strchr (p, ' ');
|
|
if (q) {
|
|
*q = 0;
|
|
n = r_num_get (core->num, p);
|
|
r_str_bits (out, (const ut8*)&n, sizeof (n) * 8, q + 1);
|
|
r_cons_println (out);
|
|
} else {
|
|
eprintf ("Usage: \"?b value bitstring\"\n");
|
|
}
|
|
free (p);
|
|
} else {
|
|
eprintf ("Whitespace expected after '?f'\n");
|
|
}
|
|
break;
|
|
case 'o': // "?o"
|
|
n = r_num_math (core->num, input+1);
|
|
r_cons_printf ("0%"PFMT64o"\n", n);
|
|
break;
|
|
case 'T': // "?T"
|
|
r_cons_printf("plug.init = %"PFMT64d"\n"
|
|
"plug.load = %"PFMT64d"\n"
|
|
"file.load = %"PFMT64d"\n",
|
|
core->times->loadlibs_init_time,
|
|
core->times->loadlibs_time,
|
|
core->times->file_open_time);
|
|
break;
|
|
case 'u': // "?u"
|
|
{
|
|
char unit[8];
|
|
n = r_num_math (core->num, input+1);
|
|
r_num_units (unit, sizeof (unit), n);
|
|
r_cons_println (unit);
|
|
}
|
|
break;
|
|
case 'j': // "?j"
|
|
case ' ': // "? "
|
|
{
|
|
char *asnum, unit[8];
|
|
ut32 s, a;
|
|
double d;
|
|
float f;
|
|
char * const inputs = strdup (input + 1);
|
|
RList *list = r_num_str_split_list (inputs);
|
|
const int list_len = r_list_length (list);
|
|
PJ *pj = NULL;
|
|
if (*input == 'j') {
|
|
pj = pj_new ();
|
|
pj_o (pj);
|
|
}
|
|
for (i = 0; i < list_len; i++) {
|
|
const char *str = r_list_pop_head (list);
|
|
if (!*str) {
|
|
continue;
|
|
}
|
|
n = r_num_math (core->num, str);
|
|
if (core->num->dbz) {
|
|
eprintf ("RNum ERROR: Division by Zero\n");
|
|
}
|
|
asnum = r_num_as_string (NULL, n, false);
|
|
/* decimal, hexa, octal */
|
|
s = n >> 16 << 12;
|
|
a = n & 0x0fff;
|
|
r_num_units (unit, sizeof (unit), n);
|
|
if (*input == 'j') {
|
|
pj_ks (pj, "hex", sdb_fmt ("0x%08"PFMT64x, n));
|
|
pj_ks (pj, "octal", sdb_fmt ("0%"PFMT64o, n));
|
|
pj_ks (pj, "unit", unit);
|
|
pj_ks (pj, "segment", sdb_fmt ("%04x:%04x", s, a));
|
|
pj_ks (pj, "int32", sdb_fmt ("%d", (st32)(n & UT32_MAX)));
|
|
pj_ks (pj, "int64", sdb_fmt ("%"PFMT64d, (st64)n));
|
|
} else {
|
|
r_cons_printf ("hex 0x%"PFMT64x"\n", n);
|
|
r_cons_printf ("octal 0%"PFMT64o"\n", n);
|
|
r_cons_printf ("unit %s\n", unit);
|
|
r_cons_printf ("segment %04x:%04x\n", s, a);
|
|
if (n >> 32) {
|
|
r_cons_printf ("int64 %"PFMT64d"\n", (st64)n);
|
|
} else {
|
|
r_cons_printf ("int32 %d\n", (st32)n);
|
|
}
|
|
if (asnum) {
|
|
r_cons_printf ("string \"%s\"\n", asnum);
|
|
free (asnum);
|
|
}
|
|
}
|
|
/* binary and floating point */
|
|
r_str_bits64 (out, n);
|
|
f = d = core->num->fvalue;
|
|
memcpy (&f, &n, sizeof (f));
|
|
memcpy (&d, &n, sizeof (d));
|
|
/* adjust sign for nan floats, different libcs are confused */
|
|
if (isnan (f) && signbit (f)) {
|
|
f = -f;
|
|
}
|
|
if (isnan (d) && signbit (d)) {
|
|
d = -d;
|
|
}
|
|
if (*input == 'j') {
|
|
pj_ks (pj, "binary", sdb_fmt ("0b%s", out));
|
|
pj_ks (pj, "fvalue", sdb_fmt ("%.1lf", core->num->fvalue));
|
|
pj_ks (pj, "float", sdb_fmt ("%ff", f));
|
|
pj_ks (pj, "double", sdb_fmt ("%lf", d));
|
|
r_num_to_trits (out, n);
|
|
pj_ks (pj, "trits", sdb_fmt ("0t%s", out));
|
|
} else {
|
|
r_cons_printf ("binary 0b%s\n", out);
|
|
r_cons_printf ("fvalue: %.1lf\n", core->num->fvalue);
|
|
r_cons_printf ("float: %ff\n", f);
|
|
r_cons_printf ("double: %lf\n", d);
|
|
|
|
/* ternary */
|
|
r_num_to_trits (out, n);
|
|
r_cons_printf ("trits 0t%s\n", out);
|
|
}
|
|
}
|
|
if (*input == 'j') {
|
|
pj_end (pj);
|
|
}
|
|
free (inputs);
|
|
r_list_free (list);
|
|
if (pj) {
|
|
r_cons_printf ("%s\n", pj_string (pj));
|
|
pj_free (pj);
|
|
}
|
|
}
|
|
break;
|
|
case 'q': // "?q"
|
|
if (core->num->dbz) {
|
|
eprintf ("RNum ERROR: Division by Zero\n");
|
|
}
|
|
if (input[1] == '?') {
|
|
r_cons_printf ("|Usage: ?q [num] # Update $? without printing anything\n"
|
|
"|?q 123; ?? x # hexdump if 123 != 0");
|
|
} else {
|
|
const char *space = strchr (input, ' ');
|
|
if (space) {
|
|
n = r_num_math (core->num, space + 1);
|
|
} else {
|
|
n = r_num_math (core->num, "$?");
|
|
}
|
|
core->num->value = n; // redundant
|
|
}
|
|
break;
|
|
case 'v': // "?v"
|
|
{
|
|
const char *space = strchr (input, ' ');
|
|
if (space) {
|
|
n = r_num_math (core->num, space + 1);
|
|
} else {
|
|
n = r_num_math (core->num, "$?");
|
|
}
|
|
}
|
|
if (core->num->dbz) {
|
|
eprintf ("RNum ERROR: Division by Zero\n");
|
|
}
|
|
switch (input[1]) {
|
|
case '?':
|
|
r_cons_printf ("|Usage: ?v[id][ num] # Show value\n"
|
|
"|?vx number -> show 8 digit padding in hex\n"
|
|
"|?vi1 200 -> 1 byte size value (char)\n"
|
|
"|?vi2 0xffff -> 2 byte size value (short)\n"
|
|
"|?vi4 0xffff -> 4 byte size value (int)\n"
|
|
"|?vi8 0xffff -> 8 byte size value (st64)\n"
|
|
"| No argument shows $? value\n"
|
|
"|?vi will show in decimal instead of hex\n");
|
|
break;
|
|
case '\0':
|
|
r_cons_printf ("%d\n", (st32)n);
|
|
break;
|
|
case 'x': // "?vx"
|
|
r_cons_printf ("0x%08"PFMT64x"\n", n);
|
|
break;
|
|
case 'i': // "?vi"
|
|
switch (input[2]) {
|
|
case '1': // byte
|
|
r_cons_printf ("%d\n", (st8)(n & UT8_MAX));
|
|
break;
|
|
case '2': // word
|
|
r_cons_printf ("%d\n", (st16)(n & UT16_MAX));
|
|
break;
|
|
case '4': // dword
|
|
r_cons_printf ("%d\n", (st32)(n & UT32_MAX));
|
|
break;
|
|
case '8': // qword
|
|
r_cons_printf ("%"PFMT64d"\n", (st64)(n & UT64_MAX));
|
|
break;
|
|
default:
|
|
r_cons_printf ("%"PFMT64d"\n", n);
|
|
break;
|
|
}
|
|
break;
|
|
case 'd':
|
|
r_cons_printf ("%"PFMT64d"\n", n);
|
|
break;
|
|
default:
|
|
r_cons_printf ("0x%"PFMT64x"\n", n);
|
|
}
|
|
core->num->value = n; // redundant
|
|
break;
|
|
case '=': // "?=" set num->value
|
|
if (input[1]) {
|
|
r_num_math (core->num, input+1);
|
|
} else {
|
|
r_cons_printf ("0x%"PFMT64x"\n", core->num->value);
|
|
}
|
|
break;
|
|
case '+': // "?+"
|
|
if (input[1]) {
|
|
st64 n = (st64)core->num->value;
|
|
if (n > 0) {
|
|
r_core_cmd (core, input + 1, 0);
|
|
}
|
|
} else {
|
|
r_cons_printf ("0x%"PFMT64x"\n", core->num->value);
|
|
}
|
|
break;
|
|
case '-': // "?-"
|
|
if (input[1]) {
|
|
st64 n = (st64)core->num->value;
|
|
if (n < 0) {
|
|
r_core_cmd (core, input + 1, 0);
|
|
}
|
|
} else {
|
|
r_cons_printf ("0x%"PFMT64x"\n", core->num->value);
|
|
}
|
|
break;
|
|
case '!': // "?!"
|
|
if (input[1]) {
|
|
if (!core->num->value) {
|
|
if (input[1] == '?') {
|
|
cmd_help_exclamation (core);
|
|
return 0;
|
|
} else {
|
|
return core->num->value = r_core_cmd (core, input+1, 0);
|
|
}
|
|
}
|
|
} else {
|
|
r_cons_printf ("0x%"PFMT64x"\n", core->num->value);
|
|
}
|
|
break;
|
|
case '@': // "?@"
|
|
if (input[1] == '@') {
|
|
if (input[2] == '@') {
|
|
r_core_cmd_help (core, help_msg_at_at_at);
|
|
} else {
|
|
r_core_cmd_help (core, help_msg_at_at);
|
|
}
|
|
} else {
|
|
r_core_cmd_help (core, help_msg_at);
|
|
}
|
|
break;
|
|
case '&': // "?&"
|
|
helpCmdTasks (core);
|
|
break;
|
|
case '%': // "?%"
|
|
if (input[1] == '?') {
|
|
cmd_help_percent (core);
|
|
}
|
|
break;
|
|
case '$': // "?$"
|
|
if (input[1] == '?') {
|
|
r_core_cmd_help (core, help_msg_question_v);
|
|
} else {
|
|
int i = 0;
|
|
const char *vars[] = {
|
|
"$$", "$$$", "$?", "$b", "$B", "$F", "$Fj", "$Ff", "$FB", "$Fb", "$Fs", "$FE", "$FS",
|
|
"$FI", "$c", "$r", "$D", "$DD", "$e", "$f", "$j", "$Ja", "$l", "$m", "$M", "$MM", "$o",
|
|
"$p", "$P", "$s", "$S", "$SS", "$v", "$w", NULL
|
|
};
|
|
while (vars[i]) {
|
|
const char *pad = r_str_pad (' ', 6 - strlen (vars[i]));
|
|
eprintf ("%s %s 0x%08"PFMT64x"\n", vars[i], pad, r_num_math (core->num, vars[i]));
|
|
i++;
|
|
}
|
|
}
|
|
return true;
|
|
case 'V': // "?V"
|
|
switch (input[1]) {
|
|
case '?': // "?V?"
|
|
r_core_cmd_help (core, help_msg_question_V);
|
|
break;
|
|
case 0: // "?V"
|
|
#if R2_VERSION_COMMIT == 0
|
|
r_cons_printf ("%s release\n", R2_VERSION);
|
|
#else
|
|
if (!strcmp (R2_VERSION, R2_GITTAP)) {
|
|
r_cons_printf ("%s %d\n", R2_VERSION, R2_VERSION_COMMIT);
|
|
} else {
|
|
r_cons_printf ("%s aka %s commit %d\n", R2_VERSION, R2_GITTAP, R2_VERSION_COMMIT);
|
|
}
|
|
#endif
|
|
break;
|
|
case 'c': // "?Vc"
|
|
r_cons_printf ("%d\n", vernum (R2_VERSION));
|
|
break;
|
|
case 'j': // "?Vj"
|
|
r_cons_printf ("{\"archos\":\"%s-%s\"", R_SYS_OS, R_SYS_ARCH);
|
|
r_cons_printf (",\"arch\":\"%s\"", R_SYS_ARCH);
|
|
r_cons_printf (",\"os\":\"%s\"", R_SYS_OS);
|
|
r_cons_printf (",\"commit\":%d", R2_VERSION_COMMIT);
|
|
r_cons_printf (",\"tap\":\"%s\"", R2_GITTAP);
|
|
r_cons_printf (",\"nversion\":%d", vernum (R2_VERSION));
|
|
r_cons_printf (",\"version\":\"%s\"}\n", R2_VERSION);
|
|
break;
|
|
case 'q': // "?Vq"
|
|
r_cons_println (R2_VERSION);
|
|
break;
|
|
}
|
|
break;
|
|
case 'l': // "?l"
|
|
if (input[1] == 'q') {
|
|
for (input+=2; input[0] == ' '; input++);
|
|
core->num->value = strlen (input);
|
|
} else {
|
|
for (input++; input[0] == ' '; input++);
|
|
core->num->value = strlen (input);
|
|
r_cons_printf ("%d\n", core->num->value);
|
|
}
|
|
break;
|
|
case 'X': // "?X"
|
|
for (input++; input[0] == ' '; input++);
|
|
n = r_num_math (core->num, input);
|
|
r_cons_printf ("%"PFMT64x"\n", n);
|
|
break;
|
|
case 'x': // "?x"
|
|
for (input++; input[0] == ' '; input++);
|
|
if (*input == '-') {
|
|
ut8 *out = malloc (strlen (input) + 1);
|
|
if (out) {
|
|
int len = r_hex_str2bin (input + 1, out);
|
|
if (len >= 0) {
|
|
out[len] = 0;
|
|
r_cons_println ((const char*)out);
|
|
} else {
|
|
eprintf ("Error parsing the hexpair string\n");
|
|
}
|
|
free (out);
|
|
}
|
|
} else if (*input == '+') {
|
|
ut64 n = r_num_math (core->num, input);
|
|
int bits = r_num_to_bits (NULL, n) / 8;
|
|
for (i = 0; i < bits; i++) {
|
|
r_cons_printf ("%02x", (ut8)((n >> (i * 8)) &0xff));
|
|
}
|
|
r_cons_newline ();
|
|
} else {
|
|
if (*input == ' ') {
|
|
input++;
|
|
}
|
|
for (i = 0; input[i]; i++) {
|
|
r_cons_printf ("%02x", input[i]);
|
|
}
|
|
r_cons_newline ();
|
|
}
|
|
break;
|
|
case 'E': // "?E" clippy echo
|
|
r_core_clippy (r_str_trim_ro (input + 1));
|
|
break;
|
|
case 'e': // "?e" echo
|
|
switch (input[1]) {
|
|
case 'b': { // "?eb"
|
|
char *arg = strdup (r_str_trim_ro (input + 2));
|
|
int n = r_str_split (arg, ' ');
|
|
ut64 *portions = calloc (n, sizeof (ut64));
|
|
for (i = 0; i < n; i++) {
|
|
portions[i] = r_num_math (core->num, r_str_word_get0 (arg, i));
|
|
}
|
|
r_print_portionbar (core->print, portions, n);
|
|
free (arg);
|
|
break;
|
|
}
|
|
case 's': { // "?es"
|
|
char *msg = strdup (input + 2);
|
|
msg = r_str_trim (msg);
|
|
char *p = strchr (msg, '&');
|
|
if (p) *p = 0;
|
|
r_sys_tts (msg, p != NULL);
|
|
free (msg);
|
|
break;
|
|
}
|
|
case 'c': // "?ec" column
|
|
r_cons_column (r_num_math (core->num, input + 2));
|
|
break;
|
|
case 'g': { // "?eg" gotoxy
|
|
int x = atoi (input + 2);
|
|
char *arg = strchr (input + 2, ' ');
|
|
int y = arg? atoi (arg + 1): 0;
|
|
r_cons_gotoxy (x, y);
|
|
}
|
|
break;
|
|
case 'n': { // "?en" echo -n
|
|
const char *msg = r_str_trim_ro (input + 2);
|
|
// TODO: replace all ${flagname} by its value in hexa
|
|
char *newmsg = filterFlags (core, msg);
|
|
r_str_unescape (newmsg);
|
|
r_cons_print (newmsg);
|
|
free (newmsg);
|
|
break;
|
|
}
|
|
case 'p':
|
|
{
|
|
char *word, *str = strdup (input + 2);
|
|
RList *list = r_str_split_list (str, " ");
|
|
ut64 *nums = calloc (sizeof (ut64), r_list_length (list));
|
|
int i = 0;
|
|
r_list_foreach (list, iter, word) {
|
|
nums[i] = r_num_math (core->num, word);;
|
|
i++;
|
|
}
|
|
int size = r_config_get_i (core->config, "hex.cols");
|
|
r_print_pie (core->print, nums, r_list_length (list), size);
|
|
r_list_free (list);
|
|
}
|
|
break;
|
|
case ' ': {
|
|
const char *msg = r_str_trim_ro (input+1);
|
|
// TODO: replace all ${flagname} by its value in hexa
|
|
char *newmsg = filterFlags (core, msg);
|
|
r_str_unescape (newmsg);
|
|
r_cons_println (newmsg);
|
|
free (newmsg);
|
|
}
|
|
break;
|
|
case 0:
|
|
r_cons_newline ();
|
|
break;
|
|
default:
|
|
eprintf ("Usage: ?e[...]\n");
|
|
eprintf (" e msg echo message\n");
|
|
eprintf (" ep N... echo pie chart\n");
|
|
eprintf (" eb N... echo portions bar\n");
|
|
eprintf (" en msg echo without newline\n");
|
|
eprintf (" eg x y gotoxy\n");
|
|
eprintf (" es msg use text-to-speech technology\n");
|
|
break;
|
|
}
|
|
break;
|
|
case 's': { // "?s" sequence from to step
|
|
ut64 from, to, step;
|
|
char *p, *p2;
|
|
for (input++; *input==' '; input++);
|
|
p = strchr (input, ' ');
|
|
if (p) {
|
|
*p = '\0';
|
|
from = r_num_math (core->num, input);
|
|
p2 = strchr (p+1, ' ');
|
|
if (p2) {
|
|
*p2 = '\0';
|
|
step = r_num_math (core->num, p2 + 1);
|
|
} else {
|
|
step = 1;
|
|
}
|
|
to = r_num_math (core->num, p + 1);
|
|
for (;from <= to; from += step)
|
|
r_cons_printf ("%"PFMT64d" ", from);
|
|
r_cons_newline ();
|
|
}
|
|
break;
|
|
}
|
|
case 'P': // "?P"
|
|
if (core->io->va) {
|
|
ut64 o, n = (input[0] && input[1])?
|
|
r_num_math (core->num, input+2): core->offset;
|
|
RIOMap *map = r_io_map_get_paddr (core->io, n);
|
|
if (map) {
|
|
o = n + map->itv.addr - map->delta;
|
|
r_cons_printf ("0x%08"PFMT64x"\n", o);
|
|
} else {
|
|
r_cons_printf ("no map at 0x%08"PFMT64x"\n", n);
|
|
}
|
|
} else {
|
|
r_cons_printf ("0x%08"PFMT64x"\n", core->offset);
|
|
}
|
|
break;
|
|
case 'p': // "?p"
|
|
if (core->io->va) {
|
|
// physical address
|
|
ut64 o, n = (input[0] && input[1])?
|
|
r_num_math (core->num, input + 2): core->offset;
|
|
RIOMap *map = r_io_map_get (core->io, n);
|
|
if (map) {
|
|
o = n - map->itv.addr + map->delta;
|
|
r_cons_printf ("0x%08"PFMT64x"\n", o);
|
|
} else {
|
|
r_cons_printf ("no map at 0x%08"PFMT64x"\n", n);
|
|
}
|
|
} else {
|
|
r_cons_printf ("0x%08"PFMT64x"\n", core->offset);
|
|
}
|
|
break;
|
|
case '_': // "?_" hud input
|
|
r_core_yank_hud_file (core, input+1);
|
|
break;
|
|
case 'i': // "?i" input num
|
|
r_cons_set_raw(0);
|
|
if (!r_cons_is_interactive ()) {
|
|
eprintf ("Not running in interactive mode\n");
|
|
} else {
|
|
switch (input[1]) {
|
|
case 'f': // "?if"
|
|
core->num->value = !r_num_conditional (core->num, input + 2);
|
|
eprintf ("%s\n", r_str_bool (!core->num->value));
|
|
break;
|
|
case 'm': // "?im"
|
|
r_cons_message (input+2);
|
|
break;
|
|
case 'p': // "?ip"
|
|
core->num->value = r_core_yank_hud_path (core, input + 2, 0) == true;
|
|
break;
|
|
case 'k': // "?ik"
|
|
r_cons_any_key (NULL);
|
|
break;
|
|
case 'y': // "?iy"
|
|
for (input += 2; *input==' '; input++);
|
|
core->num->value = r_cons_yesno (1, "%s? (Y/n)", input);
|
|
break;
|
|
case 'n': // "?in"
|
|
for (input += 2; *input==' '; input++);
|
|
core->num->value = r_cons_yesno (0, "%s? (y/N)", input);
|
|
break;
|
|
default: {
|
|
char foo[1024];
|
|
r_cons_flush ();
|
|
for (input++; *input == ' '; input++);
|
|
// TODO: r_cons_input()
|
|
snprintf (foo, sizeof (foo) - 1, "%s: ", input);
|
|
r_line_set_prompt (foo);
|
|
r_cons_fgets (foo, sizeof (foo)-1, 0, NULL);
|
|
foo[sizeof (foo) - 1] = 0;
|
|
r_core_yank_set_str (core, R_CORE_FOREIGN_ADDR, foo, strlen (foo) + 1);
|
|
core->num->value = r_num_math (core->num, foo);
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
r_cons_set_raw (0);
|
|
break;
|
|
case 'w': { // "?w"
|
|
ut64 addr = r_num_math (core->num, input + 1);
|
|
char *rstr = core->print->hasrefs (core->print->user, addr, true);
|
|
if (!rstr) {
|
|
eprintf ("Cannot get refs\n");
|
|
break;
|
|
}
|
|
r_cons_println (rstr);
|
|
free (rstr);
|
|
break;
|
|
}
|
|
case 't': { // "?t"
|
|
struct r_prof_t prof;
|
|
r_prof_start (&prof);
|
|
r_core_cmd (core, input + 1, 0);
|
|
r_prof_end (&prof);
|
|
core->num->value = (ut64)(int)prof.result;
|
|
eprintf ("%lf\n", prof.result);
|
|
break;
|
|
}
|
|
case '?': // "??"
|
|
if (input[1] == '?') {
|
|
if (input[2] == '?') { // "???"
|
|
r_core_clippy ("What are you doing?");
|
|
return 0;
|
|
}
|
|
if (input[2]) {
|
|
if (core->num->value) {
|
|
r_core_cmd (core, input + 1, 0);
|
|
}
|
|
break;
|
|
}
|
|
r_core_cmd_help (core, help_msg_question);
|
|
return 0;
|
|
} else if (input[1]) {
|
|
if (core->num->value) {
|
|
core->num->value = r_core_cmd (core, input+1, 0);
|
|
}
|
|
} else {
|
|
if (core->num->dbz) {
|
|
eprintf ("RNum ERROR: Division by Zero\n");
|
|
}
|
|
r_cons_printf ("%"PFMT64d"\n", core->num->value);
|
|
}
|
|
break;
|
|
case '\0': // "?"
|
|
default:
|
|
// TODO #7967 help refactor
|
|
r_core_cmd_help (core, help_msg_intro);
|
|
r_core_cmd_help (core, help_msg_root);
|
|
break;
|
|
}
|
|
return 0;
|
|
}
|