Add hxx extension for headers and lib prefix for library dir

1 files changed, 395 insertions, 0 deletions

diff --git a/libbutl/path.cxx b/libbutl/path.cxx
new file mode 100644
index 0000000..61088bf
--- /dev/null
+++ b/libbutl/path.cxx
@@ -0,0 +1,395 @@
+// file      : libbutl/path.cxx -*- C++ -*-
+// copyright : Copyright (c) 2014-2017 Code Synthesis Ltd
+// license   : MIT; see accompanying LICENSE file
+
+#include <libbutl/path.hxx>
+
+#ifdef _WIN32
+#  include <libbutl/win32-utility.hxx>
+
+#  include <io.h>       // _find*()
+#  include <stdlib.h>   // _MAX_PATH, _wgetenv()
+#  include <direct.h>   // _[w]getcwd(), _[w]chdir()
+#  include <shlobj.h>   // SHGetFolderPath*(), CSIDL_PROFILE
+#  include <winerror.h> // SUCCEEDED()
+#else
+#  include <pwd.h>       // struct passwd, getpwuid_r()
+#  include <errno.h>     // EINVAL
+#  include <stdlib.h>    // mbstowcs(), wcstombs(), realpath(), getenv()
+#  include <limits.h>    // PATH_MAX
+#  include <unistd.h>    // getcwd(), chdir()
+#  include <string.h>    // strlen(), strcpy()
+#  include <sys/stat.h>  // stat(), S_IS*
+#  include <sys/types.h> // stat
+
+#  include <vector>
+#endif
+
+#include <atomic>
+#include <cassert>
+#include <cstring> // strcpy()
+
+#include <libbutl/export.hxx>
+
+#include <libbutl/utility.hxx> // throw_*_error()
+#include <libbutl/process.hxx>
+
+#ifndef _WIN32
+#  ifndef PATH_MAX
+#    define PATH_MAX 4096
+#  endif
+#endif
+
+using namespace std;
+
+#ifdef _WIN32
+using namespace butl::win32;
+#endif
+
+namespace butl
+{
+  char const* invalid_path_base::
+  what () const throw ()
+  {
+    return "invalid filesystem path";
+  }
+
+  //
+  // char
+  //
+
+  template <>
+  LIBBUTL_EXPORT path_traits<char>::string_type path_traits<char>::
+  current_directory ()
+  {
+#ifdef _WIN32
+    char cwd[_MAX_PATH];
+    if (_getcwd (cwd, _MAX_PATH) == 0)
+      throw_generic_error (errno);
+    cwd[0] = toupper (cwd[0]); // Canonicalize.
+#else
+    char cwd[PATH_MAX];
+    if (getcwd (cwd, PATH_MAX) == 0)
+      throw_generic_error (errno);
+#endif
+
+    return cwd;
+  }
+
+  template <>
+  LIBBUTL_EXPORT void path_traits<char>::
+  current_directory (string_type const& s)
+  {
+#ifdef _WIN32
+    // A path like 'C:', while being a root path in our terminology, is not as
+    // such for Windows, that maintains current directory for each drive, and
+    // so "change current directory to C:" means "change the process current
+    // directory to current directory on the C drive". Changing it to the root
+    // one of the drive requires the trailing directory separator to be
+    // present.
+    //
+    string_type const& d (!root (s)
+                          ? s
+                          : string_type (s + directory_separator));
+
+    if (_chdir (d.c_str ()) != 0)
+      throw_generic_error (errno);
+#else
+    if (chdir (s.c_str ()) != 0)
+      throw_generic_error (errno);
+#endif
+  }
+
+#ifndef _WIN32
+  static const char*
+  temp_directory ()
+  {
+    const char* dir (nullptr);
+    const char* env[] = {"TMPDIR", "TMP", "TEMP", "TEMPDIR", nullptr};
+
+    for (auto e (env); dir == nullptr && *e != nullptr; ++e)
+      dir = getenv (*e);
+
+    if (dir == nullptr)
+      dir = "/tmp";
+
+    struct stat s;
+    if (stat (dir, &s) != 0)
+      throw_generic_error (errno);
+
+    if (!S_ISDIR (s.st_mode))
+      throw_generic_error (ENOTDIR);
+
+    return dir;
+  }
+
+  static string
+  home ()
+  {
+    if (const char* h = getenv ("HOME"))
+      return h;
+
+    // Struct passwd has 5 members that will use this buffer. Two are the
+    // home directory and shell paths. The other three are the user login
+    // name, password, and real name (comment). We expect them to fit into
+    // PATH_MAX * 2.
+    //
+    char buf[PATH_MAX * 4];
+
+    passwd pw;
+    passwd* rpw;
+
+    int r (getpwuid_r (getuid (), &pw, buf, sizeof (buf), &rpw));
+    if (r == -1)
+      throw_generic_error (errno);
+
+    if (r == 0 && rpw == nullptr)
+      // According to POSIX errno should be left unchanged if an entry is not
+      // found.
+      //
+      throw_generic_error (ENOENT);
+
+    return pw.pw_dir;
+  }
+#endif
+
+  template <>
+  LIBBUTL_EXPORT path_traits<char>::string_type path_traits<char>::
+  temp_directory ()
+  {
+#ifdef _WIN32
+    char d[_MAX_PATH + 1];
+    if (GetTempPathA (_MAX_PATH + 1, d) == 0)
+      throw_system_error (GetLastError ());
+
+    return d;
+#else
+    return butl::temp_directory ();
+#endif
+  }
+
+  static atomic<size_t> temp_name_count;
+
+  template <>
+  LIBBUTL_EXPORT path_traits<char>::string_type path_traits<char>::
+  temp_name (string_type const& prefix)
+  {
+    return prefix
+      + "-" + to_string (process::current_id ())
+      + "-" + to_string (temp_name_count++);
+  }
+
+  template <>
+  LIBBUTL_EXPORT path_traits<char>::string_type path_traits<char>::
+  home_directory ()
+  {
+#ifndef _WIN32
+    return home ();
+#else
+    // Could be set by, e.g., MSYS and Cygwin shells.
+    //
+    if (const char* h = getenv ("HOME"))
+      return h;
+
+    char h[_MAX_PATH];
+    HRESULT r (SHGetFolderPathA (NULL, CSIDL_PROFILE, NULL, 0, h));
+
+    if (!SUCCEEDED (r))
+      throw_system_error (r);
+
+    return h;
+#endif
+  }
+
+#ifndef _WIN32
+  template <>
+  LIBBUTL_EXPORT void path_traits<char>::
+  realize (string_type& s)
+  {
+    char r[PATH_MAX];
+    if (realpath (s.c_str (), r) == nullptr)
+    {
+      // @@ If there were a message in invalid_basic_path, we could have said
+      // what exactly is wrong with the path.
+      //
+      if (errno == EACCES || errno == ENOENT || errno == ENOTDIR)
+        throw invalid_basic_path<char> (s);
+      else
+        throw_generic_error (errno);
+    }
+
+    s = r;
+  }
+#endif
+
+  //
+  // wchar_t
+  //
+
+  template <>
+  LIBBUTL_EXPORT path_traits<wchar_t>::string_type path_traits<wchar_t>::
+  current_directory ()
+  {
+#ifdef _WIN32
+    wchar_t wcwd[_MAX_PATH];
+    if (_wgetcwd (wcwd, _MAX_PATH) == 0)
+      throw_generic_error (errno);
+    wcwd[0] = toupper (wcwd[0]); // Canonicalize.
+#else
+    char cwd[PATH_MAX];
+    if (getcwd (cwd, PATH_MAX) == 0)
+      throw_generic_error (errno);
+
+    wchar_t wcwd[PATH_MAX];
+    if (mbstowcs (wcwd, cwd, PATH_MAX) == size_type (-1))
+      throw_generic_error (EINVAL);
+#endif
+
+    return wcwd;
+  }
+
+  template <>
+  LIBBUTL_EXPORT void path_traits<wchar_t>::
+  current_directory (string_type const& s)
+  {
+#ifdef _WIN32
+    // Append the trailing directory separator for the root directory (read
+    // the comment in path_traits<char>::current_directory() for
+    // justification).
+    //
+    string_type const& d (!root (s)
+                          ? s
+                          : string_type (s + directory_separator));
+
+    if (_wchdir (d.c_str ()) != 0)
+      throw_generic_error (errno);
+#else
+    char ns[PATH_MAX + 1];
+
+    if (wcstombs (ns, s.c_str (), PATH_MAX) == size_type (-1))
+      throw_generic_error (EINVAL);
+
+    ns[PATH_MAX] = '\0';
+
+    if (chdir (ns) != 0)
+      throw_generic_error (errno);
+#endif
+  }
+
+  template <>
+  LIBBUTL_EXPORT path_traits<wchar_t>::string_type path_traits<wchar_t>::
+  temp_directory ()
+  {
+#ifdef _WIN32
+    wchar_t d[_MAX_PATH + 1];
+    if (GetTempPathW (_MAX_PATH + 1, d) == 0)
+      throw_system_error (GetLastError ());
+#else
+    wchar_t d[PATH_MAX];
+
+    // The usage of mbstowcs() supposes the program's C-locale is set to the
+    // proper locale before the call (can be done with setlocale(LC_ALL, "...")
+    // call). Otherwise mbstowcs() fails with EILSEQ errno for non-ASCII
+    // directory paths.
+    //
+    size_t r (mbstowcs (d, butl::temp_directory (), PATH_MAX));
+
+    if (r == size_t (-1))
+      throw_generic_error (EINVAL);
+
+    if (r == PATH_MAX)
+      throw_generic_error (ENOTSUP);
+#endif
+
+    return d;
+  }
+
+  template <>
+  LIBBUTL_EXPORT path_traits<wchar_t>::string_type path_traits<wchar_t>::
+  temp_name (string_type const& prefix)
+  {
+    return prefix +
+      L"-" + to_wstring (process::current_id ()) +
+      L"-" + to_wstring (temp_name_count++);
+  }
+
+  template <>
+  LIBBUTL_EXPORT path_traits<wchar_t>::string_type path_traits<wchar_t>::
+  home_directory ()
+  {
+#ifndef _WIN32
+    wchar_t d[PATH_MAX];
+    size_t r (mbstowcs (d, home ().c_str (), PATH_MAX));
+
+    if (r == size_t (-1))
+      throw_generic_error (EINVAL);
+
+    if (r == PATH_MAX)
+      throw_generic_error (ENOTSUP);
+
+    return d;
+#else
+    // Could be set by, e.g., MSYS and Cygwin shells.
+    //
+    if (const wchar_t* h = _wgetenv (L"HOME"))
+      return h;
+
+    wchar_t h[_MAX_PATH];
+    HRESULT r (SHGetFolderPathW (NULL, CSIDL_PROFILE, NULL, 0, h));
+
+    if (!SUCCEEDED (r))
+      throw_system_error (r);
+
+    return h;
+#endif
+  }
+
+#ifndef _WIN32
+  template <>
+  LIBBUTL_EXPORT void path_traits<wchar_t>::
+  realize (string_type&)
+  {
+    assert (false); // Implement if/when needed.
+  }
+#endif
+
+#ifdef _WIN32
+  template <>
+  LIBBUTL_EXPORT bool
+  basic_path_append_actual_name<char> (string& r,
+                                       const string& d,
+                                       const string& n)
+  {
+    assert (d.size () + n.size () + 1 < _MAX_PATH);
+
+    char p[_MAX_PATH];
+    strcpy (p, d.c_str ());
+    p[d.size ()] = '\\';
+    strcpy (p + d.size () + 1, n.c_str ());
+
+    // It could be that using FindFirstFile() is faster.
+    //
+    _finddata_t fi;
+    intptr_t h (_findfirst (p, &fi));
+
+    if (h == -1 && errno == ENOENT)
+      return false;
+
+    if (h == -1 || _findclose (h) == -1)
+      throw_generic_error (errno);
+
+    r += fi.name;
+    return true;
+  }
+
+  template <>
+  LIBBUTL_EXPORT bool
+  basic_path_append_actual_name<wchar_t> (wstring&,
+                                          const wstring&,
+                                          const wstring&)
+  {
+    assert (false); // Implement if/when needed.
+    return false;
+  }
+#endif
+}