view release on metacpan or  search on metacpan

libcqcam/rcfile.C  view on Meta::CPAN

char *resolve_home_dir(const char *fn) {
  char *ret;
  // try the $HOME environment variable
  if (getenv("HOME") != NULL) {
    ret = new char[strlen(getenv("HOME")) + strlen(fn)];
    strcpy(ret, getenv("HOME"));
    strcat(ret, fn + 1);
    return ret;
  }
  struct passwd *pw = getpwuid(getuid());
  if (!pw) {
    ret = new char[strlen(fn) + 1];
    strcpy(ret, fn);
    return ret;
  }
  ret = new char[strlen(pw->pw_dir) + strlen(fn)];
  strcpy(ret, pw->pw_dir);
  strcat(ret, fn + 1);
  return ret;
}