diff options
Diffstat (limited to 'butl/path.cxx')
| -rw-r--r-- | butl/path.cxx | 395 |
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 -} |