static int r_core_visual_hud(RCore *core) {
const char *f = R2_LIBDIR"/radare2/"R2_VERSION"/hud/main";
char *homehud = r_str_home (R2_HOMEDIR"/hud");
char *res = NULL;
char *p = 0;
showcursor (core, R_TRUE);
if (homehud)
res = r_cons_hud_file (homehud);
if (!res) {
if (r_file_exists (f))
res = r_cons_hud_file (f);
else r_cons_message ("Cannot find hud file");
}
r_cons_clear ();
if (res) {
p = strchr (res, '\t');
core->printidx = 1;
r_cons_printf ("%s\n", res);
r_cons_flush ();
if (p) r_core_cmd0 (core, p+1);
free (res);
}
showcursor (core, R_FALSE);
r_cons_flush ();
free (homehud);
return (int)(size_t)p;
}
R_API int r_core_visual_hud(RCore *core) {
const char *c = r_config_get (core->config, "hud.path");
const char *f = R2_LIBDIR"/radare2/"R2_VERSION"/hud/main";
char *homehud = r_str_home (R2_HOMEDIR"/hud");
char *res = NULL;
char *p = 0;
showcursor (core, true);
if (c && *c && r_file_exists (c))
res = r_cons_hud_file (c);
if (!res && homehud)
res = r_cons_hud_file (homehud);
if (!res && r_file_exists (f))
res = r_cons_hud_file (f);
if (!res)
r_cons_message ("Cannot find hud file");
r_cons_clear ();
if (res) {
p = strchr (res, '\t');
r_cons_printf ("%s\n", res);
r_cons_flush ();
if (p) r_core_cmd0 (core, p+1);
free (res);
}
showcursor (core, false);
r_cons_flush ();
free (homehud);
return (int)(size_t)p;
}
// TODO: Add fmt support
R_API char *r_cons_message(const char *msg) {
int cols, rows;
int len = strlen (msg);
cols = r_cons_get_size (&rows);
r_cons_clear ();
r_cons_gotoxy ((cols-len)/2, rows/2); // XXX
/// TODO: add square, or talking clip here
r_cons_printf ("%s\n", msg);
r_cons_flush ();
r_cons_gotoxy (0, rows-2); // XXX
r_cons_any_key ();
return NULL;
}
main() {
char *res;
RFList fl = r_flist_new (3);
r_flist_set (fl, 0, "foo is pure cow");
r_flist_set (fl, 1, "bla is kinda crazy");
r_flist_set (fl, 2, "funny to see you here");
r_cons_new ();
res = r_cons_hud (fl, NULL);
r_cons_clear ();
if (res) {
r_cons_printf ("%s\n", res);
free (res);
}
r_cons_flush ();
r_cons_free ();
}
R_API char *r_cons_hud(RList *list, const char *prompt) {
int ch, nch, first, n, j, i = 0;
int choose = 0;
char *p, buf[128];
RListIter *iter;
char *match = NULL;
void *pos;
buf[0] = 0;
r_cons_clear ();
for (;;) {
first = 1;
r_cons_gotoxy (0, 0);
n = 0;
match = NULL;
if (prompt && *prompt)
r_cons_printf (">> %s\n", prompt);
r_cons_printf ("> %s|\n", buf);
r_list_foreach (list, iter, pos) {
if (!buf[0] || strmatch (pos, buf)) {
char *x = strchr (pos, '\t');
// remove \t.*
if (!choose || n>=choose) {
if (x) *x = 0;
p = strdup (pos);
for (j=0; p[j]; j++) {
if (strchr (buf, p[j]))
p[j] = toupper ((unsigned char)p[j]);
}
r_cons_printf (" %c %s\n", first?'-':' ', p);
free (p);
if (x) *x = '\t';
if (first) match = pos;
first = 0;
}
n++;
}
}
r_cons_visual_flush ();
ch = r_cons_readchar ();
nch = r_cons_arrow_to_hjkl (ch);
if (nch == 'j' && ch != 'j') {
if (choose+1 < n)
choose++;
} else if (nch == 'k' && ch != 'k') {
if (choose>=0)
choose--;
} else
switch (ch) {
case 9: // \t
if (choose+1 < n)
choose++;
else choose = 0;
break;
case 10: // \n
case 13: // \r
choose = 0;
// if (!*buf)
// return NULL;
if (n >= 1) {
//eprintf ("%s\n", buf);
//i = buf[0] = 0;
return strdup (match);
} // no match!
break;
case 23: // ^w
choose = 0;
i = buf[0] = 0;
break;
case 0x1b: // ESC
return NULL;
case 8: // bs
case 127: // bs
choose = 0;
if (i<1) return NULL;
buf[--i] = 0;
break;
default:
if (IS_PRINTABLE (ch)) {
choose = 0;
buf[i++] = ch;
buf[i] = 0;
}
break;
}
}
return NULL;
}
R_API void r_cons_clear00() {
r_cons_clear ();
r_cons_gotoxy (0, 0);
}
// Display a list of entries in the hud, filtered and emphasized based
// on the user input.
R_API char *r_cons_hud(RList *list, const char *prompt, const bool usecolor) {
const int buf_size = 128;
int ch, nch, first_line, current_entry_n, j, i = 0;
char *p, *x, user_input[buf_size], mask[buf_size];
int last_color_change, top_entry_n = 0;
char *selected_entry = NULL;
char tmp, last_mask = 0;
void *current_entry;
RListIter *iter;
user_input[0] = 0;
r_cons_clear ();
// Repeat until the user exits the hud
for (;;) {
first_line = 1;
r_cons_gotoxy (0, 0);
current_entry_n = 0;
selected_entry = NULL;
if (prompt && *prompt)
r_cons_printf (">> %s\n", prompt);
r_cons_printf ("> %s|\n", user_input);
// Iterate over each entry in the list
r_list_foreach (list, iter, current_entry) {
memset (mask, 0, buf_size);
if (!user_input[0] || strmatch (current_entry, user_input, mask, buf_size)) {
// if the user scrolled down the list, do not print the first entries
if (!top_entry_n || current_entry_n >= top_entry_n) {
// remove everything after a tab (in ??, it contains the commands)
x = strchr (current_entry, '\t');
if (x) *x = 0;
p = strdup (current_entry);
// if the filter is empty, print the entry and move on
if (!user_input[0]) {
r_cons_printf (" %c %s\n", first_line? '-': ' ', current_entry);
} else {
// otherwise we need to emphasize the matching part
if (usecolor) {
last_color_change = 0;
last_mask = 0;
r_cons_printf (" %c ", first_line? '-': ' ');
// Instead of printing one char at the time
// (which would be slow), we group substrings of the same color
for (j = 0; p[j]; j++) {
if (mask[j] != last_mask) {
tmp = p[j];
p[j] = 0;
if (mask[j]) {
r_cons_printf (Color_RESET"%s", p + last_color_change);
} else {
r_cons_printf (Color_GREEN"%s", p + last_color_change);
}
p[j] = tmp;
last_color_change = j;
last_mask = mask[j];
}
}
if (last_mask) {
r_cons_printf (Color_GREEN"%s\n"Color_RESET, p + last_color_change);
} else {
r_cons_printf (Color_RESET"%s\n", p + last_color_change);
}
} else {
// Otherwise we print the matching characters uppercase
for (j = 0; p[j]; j++) {
if (mask[j])
p[j] = toupper ((unsigned char)p[j]);
}
r_cons_printf (" %c %s\n", first_line? '-': ' ', p);
}
}
// Clean up and restore the tab character (if any)
free (p);
if (x) *x = '\t';
if (first_line)
selected_entry = current_entry;
first_line = 0;
}
current_entry_n++;
}
}
r_cons_visual_flush ();
ch = r_cons_readchar ();
nch = r_cons_arrow_to_hjkl (ch);
if (nch == 'j' && ch != 'j') {
if (top_entry_n + 1 < current_entry_n)
top_entry_n++;
} else if (nch == 'k' && ch != 'k') {
if (top_entry_n >= 0)
top_entry_n--;
} else switch (ch) {
case 9: // \t
if (top_entry_n + 1 < current_entry_n)
top_entry_n++;
else top_entry_n = 0;
break;
case 10: // \n
case 13: // \r
top_entry_n = 0;
// if (!*buf)
// return NULL;
if (current_entry_n >= 1) {
//eprintf ("%s\n", buf);
//i = buf[0] = 0;
return strdup (selected_entry);
} // no match!
break;
case 23: // ^w
top_entry_n = 0;
i = user_input[0] = 0;
break;
case 0x1b: // ESC
return NULL;
case 8: // bs
case 127: // bs
top_entry_n = 0;
if (i < 1) return NULL;
user_input[--i] = 0;
break;
default:
if (IS_PRINTABLE (ch)) {
if (i >= buf_size) {
break;
}
top_entry_n = 0;
if (i + 1 >= buf_size) {
// too many
break;
}
user_input[i++] = ch;
user_input[i] = 0;
}
break;
}
}
