]> git.lyx.org Git - lyx.git/blobdiff - src/support/os_win32.cpp
Fixup commit 50060053
[lyx.git] / src / support / os_win32.cpp
index 018b5edd6e31f905bb7800471e07a7037e99396b..a6e5da7c5ad060b40f5b0c6b32ba4d99f4367d67 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 <cstdlib>
 #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
 #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";
 
+BOOL terminate_handler(DWORD event)
+{
+       if (event == CTRL_CLOSE_EVENT
+           || event == CTRL_LOGOFF_EVENT
+           || event == CTRL_SHUTDOWN_EVENT) {
+               lyx::lyx_exit(1);
+               return TRUE;
+       }
+       return FALSE;
+}
+
 } // namespace anon
 
-void init(int /* argc */, char * argv[])
+void init(int argc, char * argv[])
 {
        /* Note from Angus, 17 Jan 2005:
         *
@@ -140,27 +157,77 @@ 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;
+
+       // 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.
+       SetConsoleCtrlHandler((PHANDLER_ROUTINE)terminate_handler, TRUE);
+}
+
+
+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];
 }
 
 
@@ -240,29 +307,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)), "\\", "/");
 }
 
 
@@ -296,6 +394,38 @@ string latex_path(string const & p)
 }
 
 
+string latex_path_list(string const & p)
+{
+       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 subst(p, '\\', '/');
+}
+
+
 bool is_valid_strftime(string const & p)
 {
        string::size_type pos = p.find_first_of('%');
@@ -328,34 +458,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 ';';
 }
 
@@ -407,7 +520,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,
@@ -432,24 +545,53 @@ 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);
+       }
+
        // reference: http://msdn.microsoft.com/en-us/library/bb762153.aspx
        char const * action = (mode == VIEW) ? "open" : "edit";
-       return reinterpret_cast<int>(ShellExecute(NULL, action,
+       bool success = reinterpret_cast<intptr_t>(ShellExecute(NULL, action,
                to_local8bit(from_utf8(filename)).c_str(), 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,
+       QString const qpath = get_long_path(toqstr(path));
+       HANDLE hpath = CreateFileW((wchar_t *) qpath.utf16(), GENERIC_READ,
                                FILE_SHARE_READ, NULL, OPEN_EXISTING, 0, NULL);
 
        if (hpath == INVALID_HANDLE_VALUE) {
                // The file cannot be accessed.
-               return FileName::fromFilesystemEncoding(path).absFilename();
+               return path;
        }
 
        // Get the file size.
@@ -459,7 +601,7 @@ string real_path(string const & path)
        if (size_lo == 0 && size_hi == 0) {
                // A zero-length file cannot be mapped.
                CloseHandle(hpath);
-               return FileName::fromFilesystemEncoding(path).absFilename();
+               return path;
        }
 
        // Create a file mapping object.
@@ -467,7 +609,7 @@ string real_path(string const & path)
 
        if (!hmap) {
                CloseHandle(hpath);
-               return FileName::fromFilesystemEncoding(path).absFilename();
+               return path;
        }
 
        // Create a file mapping to get the file name.
@@ -476,7 +618,7 @@ string real_path(string const & path)
        if (!pmem) {
                CloseHandle(hmap);
                CloseHandle(hpath);
-               return FileName::fromFilesystemEncoding(path).absFilename();
+               return path;
        }
 
        TCHAR realpath[MAX_PATH + 1];
@@ -485,7 +627,7 @@ string real_path(string const & path)
                UnmapViewOfFile(pmem);
                CloseHandle(hmap);
                CloseHandle(hpath);
-               return FileName::fromFilesystemEncoding(path).absFilename();
+               return path;
        }
 
        // Translate device name to UNC prefix or drive letters.
@@ -533,7 +675,7 @@ string real_path(string const & path)
        CloseHandle(hmap);
        CloseHandle(hpath);
        string const retpath = subst(string(realpath), '\\', '/');
-       return FileName::fromFilesystemEncoding(retpath).absFilename();
+       return FileName::fromFilesystemEncoding(retpath).absFileName();
 }
 
 } // namespace os