path.c

Go to the documentation of this file.

 
#include "config.h"
#include <errno.h>
#include <libgen.h>
#include <limits.h>
#include <pwd.h>
#include <stdbool.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include "path.h"
#include "buffer.h"
#include "logging.h"
#include "memory.h"
#include "message.h"
#include "string2.h"
 
bool mutt_path_tidy_slash(char *buf, bool is_dir)
{
  if (!buf)
    return false;
 
  char *r = buf;
  char *w = buf;
 
  while (*r != '\0')
  {
    *w++ = *r++;
 
    if (r[-1] == '/') /* After a '/' ... */
    {
      for (; (r[0] == '/') || (r[0] == '.'); r++)
      {
        if (r[0] == '/') /* skip multiple /s */
          continue;
        if (r[0] == '.')
        {
          if (r[1] == '/') /* skip /./ */
          {
            r++;
            continue;
          }
          else if (r[1] == '\0') /* skip /.$ */
          {
            r[0] = '\0';
          }
          break; /* dot-anything-else isn't special */
        }
      }
    }
  }
 
  /* Strip a trailing / as long as it's not the only character */
  if (is_dir && (w > (buf + 1)) && (w[-1] == '/'))
    w--;
 
  *w = '\0';
 
  return true;
}
 
bool mutt_path_tidy_dotdot(char *buf)
{
  if (!buf || (buf[0] != '/'))
    return false;
 
  char *dd = buf;
 
  mutt_debug(LL_DEBUG3, "Collapse path: %s\n", buf);
  while ((dd = strstr(dd, "/..")))
  {
    if (dd[3] == '/') /* paths follow dots */
    {
      char *dest = NULL;
      if (dd != buf) /* not at start of string */
      {
        dd[0] = '\0';
        dest = strrchr(buf, '/');
      }
      if (!dest)
        dest = buf;
 
      memmove(dest, dd + 3, strlen(dd + 3) + 1);
    }
    else if (dd[3] == '\0') /* dots at end of string */
    {
      if (dd == buf) /* at start of string */
      {
        dd[1] = '\0';
      }
      else
      {
        dd[0] = '\0';
        char *s = strrchr(buf, '/');
        if (s == buf)
          s[1] = '\0';
        else if (s)
          s[0] = '\0';
      }
    }
    else
    {
      dd += 3; /* skip over '/..dir/' */
      continue;
    }
 
    dd = buf; /* restart at the beginning */
  }
 
  mutt_debug(LL_DEBUG3, "Collapsed to:  %s\n", buf);
  return true;
}
 
bool mutt_path_tidy(char *buf, bool is_dir)
{
  if (!buf || (buf[0] != '/'))
    return false;
 
  if (!mutt_path_tidy_slash(buf, is_dir))
    return false;
 
  return mutt_path_tidy_dotdot(buf);
}
 
bool mutt_path_pretty(char *buf, size_t buflen, const char *homedir, bool is_dir)
{
  if (!buf)
    return false;
 
  mutt_path_tidy(buf, is_dir);
 
  size_t len = mutt_str_startswith(buf, homedir);
  if (len == 0)
    return false;
 
  if ((buf[len] != '/') && (buf[len] != '\0'))
    return false;
 
  buf[0] = '~';
  if (buf[len] == '\0')
  {
    buf[1] = '\0';
    return true;
  }
 
  mutt_str_copy(buf + 1, buf + len, buflen - len);
  return true;
}
 
bool mutt_path_tilde(char *buf, size_t buflen, const char *homedir)
{
  if (!buf || (buf[0] != '~'))
    return false;
 
  char result[PATH_MAX] = { 0 };
  char *dir = NULL;
  size_t len = 0;
 
  if ((buf[1] == '/') || (buf[1] == '\0'))
  {
    if (!homedir)
    {
      mutt_debug(LL_DEBUG3, "no homedir\n");
      return false;
    }
 
    len = mutt_str_copy(result, homedir, sizeof(result));
    dir = buf + 1;
  }
  else
  {
    char user[128] = { 0 };
    dir = strchr(buf + 1, '/');
    if (dir)
      mutt_str_copy(user, buf + 1, MIN(dir - buf, (unsigned) sizeof(user)));
    else
      mutt_str_copy(user, buf + 1, sizeof(user));
 
    struct passwd *pw = getpwnam(user);
    if (!pw || !pw->pw_dir)
    {
      mutt_debug(LL_DEBUG1, "no such user: %s\n", user);
      return false;
    }
 
    len = mutt_str_copy(result, pw->pw_dir, sizeof(result));
  }
 
  size_t dirlen = mutt_str_len(dir);
  if ((len + dirlen) >= buflen)
  {
    mutt_debug(LL_DEBUG3, "result too big for the buffer %ld >= %ld\n", len + dirlen, buflen);
    return false;
  }
 
  mutt_str_copy(result + len, dir, sizeof(result) - len);
  mutt_str_copy(buf, result, buflen);
 
  return true;
}
 
bool mutt_path_canon(char *buf, size_t buflen, const char *homedir, bool is_dir)
{
  if (!buf)
    return false;
 
  char result[PATH_MAX] = { 0 };
 
  if (buf[0] == '~')
  {
    mutt_path_tilde(buf, buflen, homedir);
  }
  else if (buf[0] != '/')
  {
    if (!getcwd(result, sizeof(result)))
    {
      mutt_debug(LL_DEBUG1, "getcwd failed: %s (%d)\n", strerror(errno), errno);
      return false;
    }
 
    size_t cwdlen = mutt_str_len(result);
    size_t dirlen = mutt_str_len(buf);
    if ((cwdlen + dirlen + 1) >= buflen)
    {
      mutt_debug(LL_DEBUG3, "result too big for the buffer %ld >= %ld\n",
                 cwdlen + dirlen + 1, buflen);
      return false;
    }
 
    result[cwdlen] = '/';
    mutt_str_copy(result + cwdlen + 1, buf, sizeof(result) - cwdlen - 1);
    mutt_str_copy(buf, result, buflen);
  }
 
  if (!mutt_path_tidy(buf, is_dir))
    return false;
 
  return true;
}
 
const char *mutt_path_basename(const char *f)
{
  if (!f)
    return NULL;
 
  const char *p = strrchr(f, '/');
  if (p)
    return p + 1;
  return f;
}
 
char *mutt_path_concat(char *d, const char *dir, const char *fname, size_t l)
{
  if (!d || !dir || !fname)
    return NULL;
 
  const char *fmt = "%s/%s";
 
  if ((fname[0] == '\0') || ((dir[0] != '\0') && (dir[strlen(dir) - 1] == '/')))
    fmt = "%s%s";
 
  snprintf(d, l, fmt, dir, fname);
  return d;
}
 
char *mutt_path_dirname(const char *path)
{
  if (!path)
    return NULL;
 
  char buf[PATH_MAX] = { 0 };
  mutt_str_copy(buf, path, sizeof(buf));
  return mutt_str_dup(dirname(buf));
}
 
bool mutt_path_to_absolute(char *path, const char *reference)
{
  if (!path || !reference)
    return false;
 
  char abs_path[PATH_MAX] = { 0 };
  int path_len;
 
  /* if path is already absolute, don't do anything */
  if ((strlen(path) > 1) && (path[0] == '/'))
  {
    return true;
  }
 
  char *dirpath = mutt_path_dirname(reference);
  mutt_str_copy(abs_path, dirpath, sizeof(abs_path));
  FREE(&dirpath);
  mutt_strn_cat(abs_path, sizeof(abs_path), "/", 1); /* append a / at the end of the path */
 
  path_len = sizeof(abs_path) - strlen(path);
 
  mutt_strn_cat(abs_path, sizeof(abs_path), path, (path_len > 0) ? path_len : 0);
 
  path = realpath(abs_path, path);
  if (!path && (errno != ENOENT))
  {
    mutt_perror(_("Error: converting path to absolute"));
    return false;
  }
 
  return true;
}
 
size_t mutt_path_realpath(char *buf)
{
  if (!buf)
    return 0;
 
  char s[PATH_MAX] = { 0 };
 
  if (!realpath(buf, s))
    return 0;
 
  return mutt_str_copy(buf, s, sizeof(s));
}
 
bool mutt_path_parent(char *buf)
{
  if (!buf)
    return false;
 
  int n = mutt_str_len(buf);
  if (n < 2)
    return false;
 
  if (buf[n - 1] == '/')
    n--;
 
  // Find the previous '/'
  for (n--; ((n >= 0) && (buf[n] != '/')); n--)
    ; // do nothing
 
  if (n == 0) // Always keep at least one '/'
    n++;
 
  buf[n] = '\0';
  return true;
}
 
bool mutt_path_abbr_folder(char *buf, const char *folder)
{
  if (!buf || !folder)
    return false;
 
  size_t flen = mutt_str_len(folder);
  if (flen < 2)
    return false;
 
  if (folder[flen - 1] == '/')
    flen--;
 
  if (!mutt_strn_equal(buf, folder, flen))
    return false;
 
  if (buf[flen + 1] == '\0') // Don't abbreviate to '=/'
    return false;
 
  size_t rlen = mutt_str_len(buf + flen + 1);
 
  buf[0] = '=';
  memmove(buf + 1, buf + flen + 1, rlen + 1);
  return true;
}
 
char *mutt_path_escape(const char *src)
{
  if (!src)
    return NULL;
 
  static char dest[STR_COMMAND];
  char *destp = dest;
  int destsize = 0;
 
  while (*src && (destsize < sizeof(dest) - 1))
  {
    if (*src != '\'')
    {
      *destp++ = *src++;
      destsize++;
    }
    else
    {
      /* convert ' into '\'' */
      if (destsize + 4 < sizeof(dest))
      {
        *destp++ = *src++;
        *destp++ = '\\';
        *destp++ = '\'';
        *destp++ = '\'';
        destsize += 4;
      }
      else
        break;
    }
  }
  *destp = '\0';
 
  return dest;
}
 
const char *mutt_path_getcwd(struct Buffer *cwd)
{
  if (!cwd)
    return NULL;
 
  mutt_buffer_alloc(cwd, PATH_MAX);
  char *retval = getcwd(cwd->data, cwd->dsize);
  while (!retval && (errno == ERANGE))
  {
    mutt_buffer_alloc(cwd, cwd->dsize + 256);
    retval = getcwd(cwd->data, cwd->dsize);
  }
  if (retval)
    mutt_buffer_fix_dptr(cwd);
  else
    mutt_buffer_reset(cwd);
 
  return retval;
}