]> git.lyx.org Git - lyx.git/blobdiff - src/support/os_win32.cpp
Rename the minted 'lang' external template option as 'language'
[lyx.git] / src / support / os_win32.cpp
index f17f06de5f29b75cedd016e4e267ab10d63c496f..9078f594d747c6c8b17e8326382acf14548ef985 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,93 @@ 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;
+
+#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.
+       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];
 }
 
 
@@ -198,6 +281,38 @@ docstring::size_type common_path(docstring const & p1, docstring const & p2)
 }
 
 
+bool path_prefix_is(string const & path, string const & pre)
+{
+       return path_prefix_is(const_cast<string &>(path), pre, CASE_UNCHANGED);
+}
+
+
+bool path_prefix_is(string & path, string const & pre, path_case how)
+{
+       docstring const p1 = from_utf8(path);
+       docstring const p2 = from_utf8(pre);
+       docstring::size_type const p1_len = p1.length();
+       docstring::size_type const p2_len = p2.length();
+       docstring::size_type common_len = common_path(p1, p2);
+
+       if (p2[p2_len - 1] == '/' && p1_len != p2_len)
+               ++common_len;
+
+       if (common_len != p2_len)
+               return false;
+
+       if (how == CASE_ADJUSTED && !prefixIs(path, pre)) {
+               if (p1_len < common_len)
+                       path = to_utf8(p2.substr(0, p1_len));
+               else
+                       path = to_utf8(p2 + p1.substr(common_len,
+                                                       p1_len - common_len));
+       }
+
+       return true;
+}
+
+
 string external_path(string const & p)
 {
        string const dos_path = subst(p, "/", "\\");
@@ -208,29 +323,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)), "\\", "/");
 }
 
 
@@ -264,6 +410,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('%');
@@ -296,39 +474,17 @@ string const & nulldev()
 }
 
 
-string const & stdoutdev()
-{
-       static string const stdoutdev_ = "conout$";
-       return stdoutdev_;
-}
-
-
-string const & stderrdev()
-{
-       static string const stderrdev_ = "conout$";
-       return stderrdev_;
-}
-
-
-bool terminal_output()
-{
-       // FIXME: Passing conout$ to Qt fails, most probably for the
-       // reason explained here:
-       // http://support.microsoft.com/?scid=kb%3Ben-us%3B90088&x=15&y=15
-       // How to convince Qt to open conout$ in FILE_SHARE_WRITE mode?
-       // For the time being, we assume we are not running in a terminal.
-       return false;
-}
-
-
 shell_type shell()
 {
        return CMD_EXE;
 }
 
 
-char path_separator()
+char path_separator(path_type type)
 {
+       if (type == TEXENGINE)
+               return windows_style_tex_paths_ ? ';' : ':';
+
        return ';';
 }
 
@@ -380,7 +536,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,
@@ -405,24 +561,56 @@ 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,
+       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.
@@ -432,7 +620,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.
@@ -440,7 +628,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.
@@ -449,7 +637,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];
@@ -458,7 +646,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.
@@ -506,7 +694,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