// SPDX-License-Identifier: GPL-2.0
#include <elf.h>
#include <inttypes.h>
#include <sys/ttydefaults.h>
#include <stdlib.h>
#include <string.h>
#include <linux/bitops.h>
#include "../../util/debug.h"
#include "../../util/map.h"
#include "../../util/dso.h"
#include "../../util/symbol.h"
#include "../browser.h"
#include "../helpline.h"
#include "../keysyms.h"
#include "map.h"

#include <linux/ctype.h>

struct map_browser {
 struct ui_browser b;
 struct map   *map;
 u8    addrlen;
};

static void map_browser__write(struct ui_browser *browser, void *nd, int row)
{
 struct symbol *sym = rb_entry(nd, struct symbol, rb_node);
 struct map_browser *mb = container_of(browser, struct map_browser, b);
 bool current_entry = ui_browser__is_current_entry(browser, row);
 int width;

 ui_browser__set_percent_color(browser, 0, current_entry);
 ui_browser__printf(browser, "%*" PRIx64 " %*" PRIx64 " %c ",
      mb->addrlen, sym->start, mb->addrlen, sym->end,
      sym->binding == STB_GLOBAL ? 'g' :
    sym->binding == STB_LOCAL  ? 'l' : 'w');
 width = browser->width - ((mb->addrlen * 2) + 4);
 if (width > 0)
  ui_browser__write_nstring(browser, sym->name, width);
}

/* FIXME uber-kludgy, see comment on cmd_report... */
static u32 *symbol__browser_index(struct symbol *browser)
{
 return ((void *)browser) - sizeof(struct rb_node) - sizeof(u32);
}

static int map_browser__search(struct map_browser *browser)
{
 char target[512];
 struct symbol *sym;
 int err = ui_browser__input_window("Search by name/addr",
        "Prefix with 0x to search by address",
        target, "ENTER: OK, ESC: Cancel", 0);
 if (err != K_ENTER)
  return -1;

 if (target[0] == '0' && tolower(target[1]) == 'x') {
  u64 addr = strtoull(target, NULL, 16);
  sym = map__find_symbol(browser->map, addr);
 } else
  sym = map__find_symbol_by_name(browser->map, target);

 if (sym != NULL) {
  u32 *idx = symbol__browser_index(sym);

  browser->b.top = &sym->rb_node;
  browser->b.index = browser->b.top_idx = *idx;
 } else
  ui_helpline__fpush("%s not found!", target);

 return 0;
}

static int map_browser__run(struct map_browser *browser)
{
 int key;

 if (ui_browser__show(&browser->b, dso__long_name(map__dso(browser->map)),
        "Press ESC to exit, %s / to search",
        verbose > 0 ? "" : "restart with -v to use") < 0)
  return -1;

 while (1) {
  key = ui_browser__run(&browser->b, 0);

  switch (key) {
  case '/':
   if (verbose > 0)
    map_browser__search(browser);
   /* fall thru */
  default:
   ui_browser__warn_unhandled_hotkey(&browser->b, key, 0, NULL);
   continue;
                case K_LEFT:
                case K_ESC:
                case 'q':
                case CTRL('c'):
                        goto out;
  }
 }
out:
 ui_browser__hide(&browser->b);
 return key;
}

int map__browse(struct map *map)
{
 struct map_browser mb = {
  .b = {
   .entries = dso__symbols(map__dso(map)),
   .refresh = ui_browser__rb_tree_refresh,
   .seek  = ui_browser__rb_tree_seek,
   .write  = map_browser__write,
  },
  .map = map,
 };
 struct rb_node *nd;
 char tmp[BITS_PER_LONG / 4];
 u64 maxaddr = 0;

 for (nd = rb_first(mb.b.entries); nd; nd = rb_next(nd)) {
  struct symbol *pos = rb_entry(nd, struct symbol, rb_node);

  if (maxaddr < pos->end)
   maxaddr = pos->end;
  if (verbose > 0) {
   u32 *idx = symbol__browser_index(pos);
   *idx = mb.b.nr_entries;
  }
  ++mb.b.nr_entries;
 }

 mb.addrlen = snprintf(tmp, sizeof(tmp), "%" PRIx64, maxaddr);
 return map_browser__run(&mb);
}