#include <stdio.h>
  #include <sys/utsname.h>
  #include "common.h"

  #include "../util/util.h"

  #include "../util/debug.h"

  #include "sane_ctype.h"

  const char *const arm_triplets[] = {
  	"arm-eabi-",
  	"arm-linux-androideabi-",
  	"arm-unknown-linux-",
  	"arm-unknown-linux-gnu-",
  	"arm-unknown-linux-gnueabi-",

  	"arm-linux-gnu-",
  	"arm-linux-gnueabihf-",
  	"arm-none-eabi-",

  	NULL
  };

  const char *const arm64_triplets[] = {
  	"aarch64-linux-android-",

  	"aarch64-linux-gnu-",

  	NULL
  };

  const char *const powerpc_triplets[] = {
  	"powerpc-unknown-linux-gnu-",
  	"powerpc64-unknown-linux-gnu-",

  	"powerpc64-linux-gnu-",
  	"powerpc64le-linux-gnu-",

  	NULL
  };
  
  const char *const s390_triplets[] = {
  	"s390-ibm-linux-",

  	"s390x-linux-gnu-",

  	NULL
  };
  
  const char *const sh_triplets[] = {
  	"sh-unknown-linux-gnu-",
  	"sh64-unknown-linux-gnu-",

  	"sh-linux-gnu-",
  	"sh64-linux-gnu-",

  	NULL
  };
  
  const char *const sparc_triplets[] = {
  	"sparc-unknown-linux-gnu-",
  	"sparc64-unknown-linux-gnu-",

  	"sparc64-linux-gnu-",

  	NULL
  };
  
  const char *const x86_triplets[] = {
  	"x86_64-pc-linux-gnu-",
  	"x86_64-unknown-linux-gnu-",
  	"i686-pc-linux-gnu-",
  	"i586-pc-linux-gnu-",
  	"i486-pc-linux-gnu-",
  	"i386-pc-linux-gnu-",
  	"i686-linux-android-",
  	"i686-android-linux-",

  	"x86_64-linux-gnu-",
  	"i586-linux-gnu-",

  	NULL
  };
  
  const char *const mips_triplets[] = {
  	"mips-unknown-linux-gnu-",
  	"mipsel-linux-android-",

  	"mips-linux-gnu-",
  	"mips64-linux-gnu-",
  	"mips64el-linux-gnuabi64-",
  	"mips64-linux-gnuabi64-",
  	"mipsel-linux-gnu-",

  	NULL
  };
  
  static bool lookup_path(char *name)
  {
  	bool found = false;

  	char *path, *tmp = NULL;

  	char buf[PATH_MAX];
  	char *env = getenv("PATH");
  
  	if (!env)
  		return false;
  
  	env = strdup(env);
  	if (!env)
  		return false;
  
  	path = strtok_r(env, ":", &tmp);
  	while (path) {
  		scnprintf(buf, sizeof(buf), "%s/%s", path, name);
  		if (access(buf, F_OK) == 0) {
  			found = true;
  			break;
  		}
  		path = strtok_r(NULL, ":", &tmp);
  	}
  	free(env);
  	return found;
  }
  
  static int lookup_triplets(const char *const *triplets, const char *name)
  {
  	int i;
  	char buf[PATH_MAX];
  
  	for (i = 0; triplets[i] != NULL; i++) {
  		scnprintf(buf, sizeof(buf), "%s%s", triplets[i], name);
  		if (lookup_path(buf))
  			return i;
  	}
  	return -1;
  }

  /*
   * Return architecture name in a normalized form.
   * The conversion logic comes from the Makefile.
   */

  const char *normalize_arch(char *arch)

  {
  	if (!strcmp(arch, "x86_64"))
  		return "x86";
  	if (arch[0] == 'i' && arch[2] == '8' && arch[3] == '6')
  		return "x86";
  	if (!strcmp(arch, "sun4u") || !strncmp(arch, "sparc", 5))
  		return "sparc";

  	if (!strcmp(arch, "aarch64") || !strcmp(arch, "arm64"))
  		return "arm64";

  	if (!strncmp(arch, "arm", 3) || !strcmp(arch, "sa110"))
  		return "arm";
  	if (!strncmp(arch, "s390", 4))
  		return "s390";
  	if (!strncmp(arch, "parisc", 6))
  		return "parisc";
  	if (!strncmp(arch, "powerpc", 7) || !strncmp(arch, "ppc", 3))
  		return "powerpc";
  	if (!strncmp(arch, "mips", 4))
  		return "mips";
  	if (!strncmp(arch, "sh", 2) && isdigit(arch[2]))
  		return "sh";
  
  	return arch;
  }

  static int perf_env__lookup_binutils_path(struct perf_env *env,
  					  const char *name, const char **path)

  {
  	int idx;

  	const char *arch, *cross_env;

  	struct utsname uts;
  	const char *const *path_list;
  	char *buf = NULL;

  	arch = normalize_arch(env->arch);

  	if (uname(&uts) < 0)
  		goto out;
  
  	/*
  	 * We don't need to try to find objdump path for native system.
  	 * Just use default binutils path (e.g.: "objdump").
  	 */

  	if (!strcmp(normalize_arch(uts.machine), arch))

  		goto out;
  
  	cross_env = getenv("CROSS_COMPILE");
  	if (cross_env) {
  		if (asprintf(&buf, "%s%s", cross_env, name) < 0)
  			goto out_error;
  		if (buf[0] == '/') {
  			if (access(buf, F_OK) == 0)
  				goto out;
  			goto out_error;
  		}
  		if (lookup_path(buf))
  			goto out;

  		zfree(&buf);

  	}

  	if (!strcmp(arch, "arm"))
  		path_list = arm_triplets;

  	else if (!strcmp(arch, "arm64"))
  		path_list = arm64_triplets;

  	else if (!strcmp(arch, "powerpc"))
  		path_list = powerpc_triplets;
  	else if (!strcmp(arch, "sh"))
  		path_list = sh_triplets;
  	else if (!strcmp(arch, "s390"))
  		path_list = s390_triplets;
  	else if (!strcmp(arch, "sparc"))
  		path_list = sparc_triplets;

  	else if (!strcmp(arch, "x86"))

  		path_list = x86_triplets;
  	else if (!strcmp(arch, "mips"))
  		path_list = mips_triplets;
  	else {
  		ui__error("binutils for %s not supported.
  ", arch);
  		goto out_error;
  	}
  
  	idx = lookup_triplets(path_list, name);
  	if (idx < 0) {
  		ui__error("Please install %s for %s.
  "
  			  "You can add it to PATH, set CROSS_COMPILE or "
  			  "override the default using --%s.
  ",
  			  name, arch, name);
  		goto out_error;
  	}
  
  	if (asprintf(&buf, "%s%s", path_list[idx], name) < 0)
  		goto out_error;
  
  out:
  	*path = buf;
  	return 0;
  out_error:
  	free(buf);
  	*path = NULL;
  	return -1;
  }

  int perf_env__lookup_objdump(struct perf_env *env)

  {

  	/*
  	 * For live mode, env->arch will be NULL and we can use
  	 * the native objdump tool.
  	 */
  	if (env->arch == NULL)
  		return 0;

  	return perf_env__lookup_binutils_path(env, "objdump", &objdump_path);

  }