aboutsummaryrefslogtreecommitdiff
path: root/butl/path.cxx
diff options
context:
space:
mode:
authorKaren Arutyunov <karen@codesynthesis.com>2017-05-01 16:08:43 +0300
committerKaren Arutyunov <karen@codesynthesis.com>2017-05-01 16:59:24 +0300
commit61377c582e0f2675baa5f5e6e30a35d1a4164b33 (patch)
tree11cdca992834d7f7f197f72856712fbcb3020e3d /butl/path.cxx
parent442c1a6790e52baa0c081f310d4d9e9b6f1ff638 (diff)
Add hxx extension for headers and lib prefix for library dir
Diffstat (limited to 'butl/path.cxx')
-rw-r--r--butl/path.cxx395
1 files changed, 0 insertions, 395 deletions
diff --git a/butl/path.cxx b/butl/path.cxx
deleted file mode 100644
index dfa812b..0000000
--- a/butl/path.cxx
+++ /dev/null
@@ -1,395 +0,0 @@
-// file : butl/path.cxx -*- C++ -*-
-// copyright : Copyright (c) 2014-2017 Code Synthesis Ltd
-// license : MIT; see accompanying LICENSE file
-
-#include <butl/path>
-
-#ifdef _WIN32
-# include <butl/win32-utility>
-
-# 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 <butl/export>
-
-#include <butl/utility> // throw_*_error()
-#include <butl/process>
-
-#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
-}