]> git.lyx.org Git - lyx.git/blobdiff - src/support/os_win32.cpp
Need this for std::endl now, according to Eugene
[lyx.git] / src / support / os_win32.cpp
index b450bf1100553040659989ca325a4cf5b1873292..e4f9ebd0fcbd9a15405f082545bd3b2f108a3e7a 100644 (file)
@@ -6,6 +6,7 @@
  * \author Ruurd A. Reitsma
  * \author Claus Hentschel
  * \author Angus Leeming
+ * \author Enrico Forestieri
  *
  * Full author contact details are available in file CREDITS.
  *
 
 #include <config.h>
 
+#include "LyXRC.h"
+
 #include "support/os.h"
 #include "support/os_win32.h"
 
 #include "support/debug.h"
+#include "support/environment.h"
 #include "support/FileName.h"
 #include "support/gettext.h"
 #include "support/filetools.h"
 #include "support/lstrings.h"
 #include "support/ExceptionMessage.h"
+#include "support/qstring_helpers.h"
 
 #include "support/lassert.h"
 
-#include <csignal>
 #include <cstdlib>
+#include <iostream>
 #include <vector>
 
-/* The GetLongPathName macro may be defined on the compiling machine,
- * but we must use a bit of trickery if the resulting executable is
- * to run on a Win95 machine.
- * Fortunately, Microsoft provide the trickery. All we need is the
- * NewAPIs.h header file, available for download from Microsoft as
- * part of the Platform SDK.
- */
-#if defined (HAVE_NEWAPIS_H)
-// This should be defined already to keep Boost.Filesystem happy.
-# if !defined (WANT_GETFILEATTRIBUTESEX_WRAPPER)
-#   error Expected WANT_GETFILEATTRIBUTESEX_WRAPPER to be defined!
-# endif
-# define WANT_GETLONGPATHNAME_WRAPPER 1
-# define COMPILE_NEWAPIS_STUBS
-# include <NewAPIs.h>
-# undef COMPILE_NEWAPIS_STUBS
-# undef WANT_GETLONGPATHNAME_WRAPPER
-#endif
+#include <QString>
 
 #include <io.h>
 #include <direct.h> // _getdrive
+#include <fileapi.h> // GetFinalPathNameByHandle
 #include <shlobj.h>  // SHGetFolderPath
 #include <windef.h>
 #include <shellapi.h>
 #define ASSOCF_INIT_IGNOREUNKNOWN 0
 #endif
 
+#if defined(__MINGW32__)
+#include <stdio.h>
+#endif
+
+#if defined(_MSC_VER) && (_MSC_VER >= 1900)
+#else
+extern "C" {
+extern void __wgetmainargs(int * argc, wchar_t *** argv, wchar_t *** envp,
+                          int expand_wildcards, int * new_mode);
+}
+#endif
+
 using namespace std;
 
 namespace lyx {
+
+void lyx_exit(int);
+
 namespace support {
 namespace os {
 
 namespace {
 
+int argc_ = 0;
+wchar_t ** argv_ = 0;
+
 bool windows_style_tex_paths_ = true;
 
 string cygdrive = "/cygdrive";
@@ -86,17 +93,15 @@ BOOL terminate_handler(DWORD event)
        if (event == CTRL_CLOSE_EVENT
            || event == CTRL_LOGOFF_EVENT
            || event == CTRL_SHUTDOWN_EVENT) {
-               ::raise(SIGTERM);
-               // Relinquish our time slice.
-               Sleep(0);
+               lyx::lyx_exit(1);
                return TRUE;
        }
        return FALSE;
 }
 
-} // namespace anon
+} // namespace
 
-void init(int /* argc */, char * argv[])
+void init(int argc, char ** argv[])
 {
        /* Note from Angus, 17 Jan 2005:
         *
@@ -154,26 +159,79 @@ void init(int /* argc */, char * argv[])
         * lyx is invoked as a parameter of hidecmd.exe.
         */
 
-       // If cygwin is detected, query the cygdrive prefix
-       HKEY regKey;
+
+       // Remove PYTHONPATH from the environment as it may point to an
+       // external python installation and cause reconfigure failures.
+       unsetEnv("PYTHONPATH");
+
+
+#if defined(_MSC_VER) && (_MSC_VER >= 1900)
+       // Removing an argument from argv leads to an assertion on Windows
+       // when compiling with MSVC 2015 in debug mode (see bug #10440).
+       // To avoid this we make a copy of the array of pointers.
+       char ** newargv = (char **) malloc((argc + 1) * sizeof(char *));
+       if (newargv) {
+               memcpy(newargv, *argv, (argc + 1) * sizeof(char *));
+               *argv = newargv;
+       } else {
+               lyxerr << "LyX warning: Cannot make a copy of "
+                         "command line arguments!"
+                      << endl;
+       }
+#endif
+
+
+       // Get the wide program arguments array
+#if defined(_MSC_VER) && (_MSC_VER >= 1900)
+       argv_ = CommandLineToArgvW(GetCommandLineW(), &argc_);
+#else
+       wchar_t ** envp = 0;
+       int newmode = 0;
+       __wgetmainargs(&argc_, &argv_, &envp, -1, &newmode);
+#endif
+       LATTEST(argc == argc_);
+
+       // If Cygwin is detected, query the cygdrive prefix.
+       // The cygdrive prefix is needed for translating windows style paths
+       // to posix style paths in LaTeX files when the Cygwin teTeX is used.
+       int i;
+       HKEY hkey;
        char buf[MAX_PATH];
-       DWORD bufSize = sizeof(buf);
-       LONG retVal;
-
-       retVal = RegOpenKeyEx(HKEY_LOCAL_MACHINE,
-                       "Software\\Cygnus Solutions\\Cygwin\\mounts v2",
-                       0, KEY_QUERY_VALUE, &regKey);
-       if (retVal != ERROR_SUCCESS) {
-               retVal = RegOpenKeyEx(HKEY_CURRENT_USER,
-                               "Software\\Cygnus Solutions\\Cygwin\\mounts v2",
-                               0, KEY_QUERY_VALUE, &regKey);
+       DWORD bufsize = sizeof(buf);
+       LONG retval = ERROR_FILE_NOT_FOUND;
+       HKEY const mainkey[2] = { HKEY_LOCAL_MACHINE, HKEY_CURRENT_USER };
+       char const * const subkey[2] = {
+               "Software\\Cygwin\\setup",                         // Cygwin 1.7
+               "Software\\Cygnus Solutions\\Cygwin\\mounts v2\\/" // Prev. ver.
+       };
+       char const * const valuename[2] = {
+               "rootdir", // Cygwin 1.7 or later
+               "native"   // Previous versions
+       };
+       // Check for newer Cygwin versions first, then older ones
+       for (i = 0; i < 2 && retval != ERROR_SUCCESS; ++i) {
+               for (int k = 0; k < 2 && retval != ERROR_SUCCESS; ++k)
+                       retval = RegOpenKey(mainkey[k], subkey[i], &hkey);
        }
-       if (retVal == ERROR_SUCCESS) {
-               retVal = RegQueryValueEx(regKey, "cygdrive prefix", NULL, NULL,
-                               (LPBYTE) buf, &bufSize);
-               RegCloseKey(regKey);
-               if ((retVal == ERROR_SUCCESS) && (bufSize <= MAX_PATH))
-                       cygdrive = rtrim(string(buf), "/");
+       if (retval == ERROR_SUCCESS) {
+               // Query the Cygwin root directory
+               retval = RegQueryValueEx(hkey, valuename[i - 1],
+                               NULL, NULL, (LPBYTE) buf, &bufsize);
+               RegCloseKey(hkey);
+               string const mount = string(buf) + "\\bin\\mount.exe";
+               if (retval == ERROR_SUCCESS && FileName(mount).exists()) {
+                       cmd_ret const p =
+                               runCommand(mount + " --show-cygdrive-prefix");
+                       // The output of the mount command is as follows:
+                       // Prefix              Type         Flags
+                       // /cygdrive           system       binmode
+                       // So, we use the inner split to pass the second line
+                       // to the outer split which sets cygdrive with its
+                       // contents until the first blank, discarding the
+                       // unneeded return value.
+                       if (p.first != -1 && prefixIs(p.second, "Prefix"))
+                               split(split(p.second, '\n'), cygdrive, ' ');
+               }
        }
 
        // Catch shutdown events.
@@ -181,6 +239,21 @@ void init(int /* argc */, char * argv[])
 }
 
 
+string utf8_argv(int i)
+{
+       LASSERT(i < argc_, return "");
+       return fromqstr(QString::fromWCharArray(argv_[i]));
+}
+
+
+void remove_internal_args(int i, int num)
+{
+       argc_ -= num;
+       for (int j = i; j < argc_; ++j)
+               argv_[j] = argv_[j + num];
+}
+
+
 string current_root()
 {
        // _getdrive returns the current drive (1=A, 2=B, and so on).
@@ -257,29 +330,60 @@ string external_path(string const & p)
 }
 
 
-static string const get_long_path(string const & short_path)
+static QString const get_long_path(QString const & short_path)
 {
-       // GetLongPathName needs the path in file system encoding.
-       // We can use to_local8bit, since file system encoding and the
-       // local 8 bit encoding are identical on windows.
-       vector<char> long_path(MAX_PATH);
-       DWORD result = GetLongPathName(to_local8bit(from_utf8(short_path)).c_str(),
+       // GetLongPathNameW needs the path in utf16 encoding.
+       vector<wchar_t> long_path(MAX_PATH);
+       DWORD result = GetLongPathNameW((wchar_t *) short_path.utf16(),
                                       &long_path[0], long_path.size());
 
        if (result > long_path.size()) {
                long_path.resize(result);
-               result = GetLongPathName(short_path.c_str(),
+               result = GetLongPathNameW((wchar_t *) short_path.utf16(),
                                         &long_path[0], long_path.size());
-               LASSERT(result <= long_path.size(), /**/);
+               LATTEST(result <= long_path.size());
        }
 
-       return (result == 0) ? short_path : to_utf8(from_filesystem8bit(&long_path[0]));
+       return (result == 0) ? short_path : QString::fromWCharArray(&long_path[0]);
+}
+
+
+static QString const get_short_path(QString const & long_path, file_access how)
+{
+       // CreateFileW and GetShortPathNameW need the path in utf16 encoding.
+       if (how == CREATE) {
+               HANDLE h = CreateFileW((wchar_t *) long_path.utf16(),
+                               GENERIC_WRITE, 0, NULL, CREATE_NEW,
+                               FILE_ATTRIBUTE_NORMAL, NULL);
+               if (h == INVALID_HANDLE_VALUE
+                   && GetLastError() != ERROR_FILE_EXISTS)
+                       return long_path;
+               CloseHandle(h);
+       }
+       vector<wchar_t> short_path(MAX_PATH);
+       DWORD result = GetShortPathNameW((wchar_t *) long_path.utf16(),
+                                      &short_path[0], short_path.size());
+
+       if (result > short_path.size()) {
+               short_path.resize(result);
+               result = GetShortPathNameW((wchar_t *) long_path.utf16(),
+                                        &short_path[0], short_path.size());
+               LATTEST(result <= short_path.size());
+       }
+
+       return (result == 0) ? long_path : QString::fromWCharArray(&short_path[0]);
 }
 
 
 string internal_path(string const & p)
 {
-       return subst(get_long_path(p), "\\", "/");
+       return subst(fromqstr(get_long_path(toqstr(p))), "\\", "/");
+}
+
+
+string safe_internal_path(string const & p, file_access how)
+{
+       return subst(fromqstr(get_short_path(toqstr(p), how)), "\\", "/");
 }
 
 
@@ -313,20 +417,35 @@ string latex_path(string const & p)
 }
 
 
-bool is_valid_strftime(string const & p)
+string latex_path_list(string const & p)
 {
-       string::size_type pos = p.find_first_of('%');
-       while (pos != string::npos) {
-               if (pos + 1 == string::npos)
-                       break;
-               if (!containsOnly(p.substr(pos + 1, 1),
-                       "aAbBcdfHIjmMpSUwWxXyYzZ%"))
-                       return false;
-               if (pos + 2 == string::npos)
-                     break;
-               pos = p.find_first_of('%', pos + 2);
+       if (p.empty())
+               return p;
+
+       // We may need a posix style path or a windows style path (depending
+       // on windows_style_tex_paths_), but we use always forward slashes,
+       // since this is standard for all tex engines.
+
+       if (!windows_style_tex_paths_) {
+               string pathlist;
+               for (size_t i = 0, k = 0; i != string::npos; k = i) {
+                       i = p.find(';', i);
+                       string path = subst(p.substr(k, i - k), '\\', '/');
+                       if (FileName::isAbsolute(path)) {
+                               string const drive = path.substr(0, 2);
+                               string const cygprefix = cygdrive + "/"
+                                                       + drive.substr(0, 1);
+                               path = subst(path, drive, cygprefix);
+                       }
+                       pathlist += path;
+                       if (i != string::npos) {
+                               pathlist += ':';
+                               ++i;
+                       }
+               }
+               return pathlist;
        }
-       return true;
+       return subst(p, '\\', '/');
 }
 
 
@@ -345,34 +464,17 @@ string const & nulldev()
 }
 
 
-bool is_terminal(io_channel channel)
-{
-       switch (channel) {
-       case STDIN:
-               if (GetStdHandle(STD_INPUT_HANDLE) == NULL)
-                       return false;
-               break;
-       case STDOUT:
-               if (GetStdHandle(STD_OUTPUT_HANDLE) == NULL)
-                       return false;
-               break;
-       case STDERR:
-               if (GetStdHandle(STD_ERROR_HANDLE) == NULL)
-                       return false;
-               break;
-       }
-       return true;
-}
-
-
 shell_type shell()
 {
        return CMD_EXE;
 }
 
 
-char path_separator()
+char path_separator(path_type type)
 {
+       if (type == TEXENGINE)
+               return windows_style_tex_paths_ ? ';' : ':';
+
        return ';';
 }
 
@@ -424,7 +526,7 @@ string const GetFolderPath::operator()(folder_id _id) const
                id = CSIDL_APPDATA;
                break;
        default:
-               LASSERT(false, /**/);
+               LASSERT(false, return string());
        }
        HRESULT const result = (folder_path_func_)(0, id, 0,
                                                   SHGFP_TYPE_CURRENT,
@@ -449,60 +551,65 @@ bool canAutoOpenFile(string const & ext, auto_open_mode const mode)
 }
 
 
-bool autoOpenFile(string const & filename, auto_open_mode const mode)
+bool autoOpenFile(string const & filename, auto_open_mode const mode,
+                 string const & path)
 {
+       string const texinputs = os::latex_path_list(
+                       replaceCurdirPath(path, lyxrc.texinputs_prefix));
+       string const otherinputs = os::latex_path_list(path);
+       string const sep = windows_style_tex_paths_ ? ";" : ":";
+       string const oldtexinputs = getEnv("TEXINPUTS");
+       string const newtexinputs = "." + sep + texinputs + sep + oldtexinputs;
+       string const oldbibinputs = getEnv("BIBINPUTS");
+       string const newbibinputs = "." + sep + otherinputs + sep + oldbibinputs;
+       string const oldbstinputs = getEnv("BSTINPUTS");
+       string const newbstinputs = "." + sep + otherinputs + sep + oldbstinputs;
+       string const oldtexfonts = getEnv("TEXFONTS");
+       string const newtexfonts = "." + sep + otherinputs + sep + oldtexfonts;
+       if (!path.empty() && !lyxrc.texinputs_prefix.empty()) {
+               setEnv("TEXINPUTS", newtexinputs);
+               setEnv("BIBINPUTS", newbibinputs);
+               setEnv("BSTINPUTS", newbstinputs);
+               setEnv("TEXFONTS", newtexfonts);
+       }
+
+       QString const wname = toqstr(filename);
+
        // reference: http://msdn.microsoft.com/en-us/library/bb762153.aspx
-       char const * action = (mode == VIEW) ? "open" : "edit";
-       return reinterpret_cast<int>(ShellExecute(NULL, action,
-               to_local8bit(from_utf8(filename)).c_str(), NULL, NULL, 1)) > 32;
+       wchar_t const * action = (mode == VIEW) ? L"open" : L"edit";
+       bool success = reinterpret_cast<intptr_t>(ShellExecuteW(NULL, action,
+                       reinterpret_cast<wchar_t const *>(wname.utf16()),
+                       NULL, NULL, 1)) > 32;
+
+       if (!path.empty() && !lyxrc.texinputs_prefix.empty()) {
+               setEnv("TEXINPUTS", oldtexinputs);
+               setEnv("BIBINPUTS", oldbibinputs);
+               setEnv("BSTINPUTS", oldbstinputs);
+               setEnv("TEXFONTS", oldtexfonts);
+       }
+       return success;
 }
 
 
 string real_path(string const & path)
 {
        // See http://msdn.microsoft.com/en-us/library/aa366789(VS.85).aspx
-       HANDLE hpath = CreateFile(subst(path, '/', '\\').c_str(), GENERIC_READ,
-                               FILE_SHARE_READ, NULL, OPEN_EXISTING, 0, NULL);
+       QString const qpath = get_long_path(toqstr(path));
+       HANDLE hpath = CreateFileW((wchar_t *) qpath.utf16(), GENERIC_READ,
+                               FILE_SHARE_READ, NULL, OPEN_EXISTING,
+                               FILE_FLAG_BACKUP_SEMANTICS, NULL);
 
        if (hpath == INVALID_HANDLE_VALUE) {
                // The file cannot be accessed.
-               return FileName::fromFilesystemEncoding(path).absFilename();
-       }
-
-       // Get the file size.
-       DWORD size_hi = 0;
-       DWORD size_lo = GetFileSize(hpath, &size_hi);
-
-       if (size_lo == 0 && size_hi == 0) {
-               // A zero-length file cannot be mapped.
-               CloseHandle(hpath);
-               return FileName::fromFilesystemEncoding(path).absFilename();
-       }
-
-       // Create a file mapping object.
-       HANDLE hmap = CreateFileMapping(hpath, NULL, PAGE_READONLY, 0, 1, NULL);
-
-       if (!hmap) {
-               CloseHandle(hpath);
-               return FileName::fromFilesystemEncoding(path).absFilename();
-       }
-
-       // Create a file mapping to get the file name.
-       void * pmem = MapViewOfFile(hmap, FILE_MAP_READ, 0, 0, 1);
-
-       if (!pmem) {
-               CloseHandle(hmap);
-               CloseHandle(hpath);
-               return FileName::fromFilesystemEncoding(path).absFilename();
+               return path;
        }
 
        TCHAR realpath[MAX_PATH + 1];
 
-       if (!GetMappedFileName(GetCurrentProcess(), pmem, realpath, MAX_PATH)) {
-               UnmapViewOfFile(pmem);
-               CloseHandle(hmap);
+       DWORD size = GetFinalPathNameByHandle(hpath, realpath, MAX_PATH, VOLUME_NAME_NT);
+       if (size > MAX_PATH) {
                CloseHandle(hpath);
-               return FileName::fromFilesystemEncoding(path).absFilename();
+               return path;
        }
 
        // Translate device name to UNC prefix or drive letters.
@@ -546,11 +653,9 @@ string real_path(string const & path)
                        while (*p++) ;
                } while (!found && *p);
        }
-       UnmapViewOfFile(pmem);
-       CloseHandle(hmap);
        CloseHandle(hpath);
        string const retpath = subst(string(realpath), '\\', '/');
-       return FileName::fromFilesystemEncoding(retpath).absFilename();
+       return FileName::fromFilesystemEncoding(retpath).absFileName();
 }
 
 } // namespace os