]> git.lyx.org Git - lyx.git/blobdiff - src/support/filetools.C
make "make distcheck" work
[lyx.git] / src / support / filetools.C
index c33023369d13504535e12a0bd2488f588b9f5d27..4671f2896097acd415b1450184b60fc06ce92238 100644 (file)
  * \author Jean-Marc Lasgouttes
  * \author Angus Leeming
  * \author John Levon
- * \author Herbert Voss
+ * \author Herbert Voß
  *
- * This file is part of LyX, the document processor.
- * Licence details can be found in the file COPYING.
+ * Full author contact details are available in file CREDITS.
  *
  * General path-mangling functions
  */
 
 #include <config.h>
 
-#include "debug.h"
-#include "support/tostr.h"
+#include "support/convert.h"
+#include "support/environment.h"
+#include "support/filetools.h"
+#include "support/forkedcontr.h"
+#include "support/fs_extras.h"
+#include "support/lstrings.h"
+#include "support/lyxlib.h"
+#include "support/os.h"
+#include "support/package.h"
+#include "support/path.h"
 #include "support/systemcall.h"
-#include "support/LAssert.h"
 
-#include "filetools.h"
-#include "lstrings.h"
-#include "FileInfo.h"
-#include "support/path.h"        // I know it's OS/2 specific (SMiyata)
+// FIXME Interface violation
 #include "gettext.h"
-#include "lyxlib.h"
-#include "os.h"
+#include "debug.h"
+
+#include <boost/assert.hpp>
+#include <boost/filesystem/operations.hpp>
+#include <boost/regex.hpp>
 
-#include "Lsstream.h"
+#include <fcntl.h>
 
-#include <boost/cregex.hpp>
 #include <cctype>
 #include <cstdlib>
 #include <cstdio>
-#include <fcntl.h>
 #include <cerrno>
 
 #include <utility>
 #include <fstream>
-
-
-// Which part of this is still necessary? (JMarc).
-#if HAVE_DIRENT_H
-# include <dirent.h>
-# define NAMLEN(dirent) strlen((dirent)->d_name)
-#else
-# define dirent direct
-# define NAMLEN(dirent) (dirent)->d_namlen
-# if HAVE_SYS_NDIR_H
-#  include <sys/ndir.h>
-# endif
-# if HAVE_SYS_DIR_H
-#  include <sys/dir.h>
-# endif
-# if HAVE_NDIR_H
-#  include <ndir.h>
-# endif
-#endif
+#include <sstream>
 
 #ifndef CXX_GLOBAL_CSTD
 using std::fgetc;
-using std::isalpha;
 using std::isalnum;
+using std::isalpha;
 #endif
 
-using std::make_pair;
-using std::pair;
 using std::endl;
+using std::getline;
+using std::make_pair;
+using std::string;
 using std::ifstream;
+using std::ostringstream;
 using std::vector;
-using std::getline;
 
-extern string system_lyxdir;
-extern string build_lyxdir;
-extern string user_lyxdir;
+namespace fs = boost::filesystem;
 
+namespace lyx {
+namespace support {
 
 bool IsLyXFilename(string const & filename)
 {
@@ -119,7 +106,6 @@ string const MakeLatexName(string const & file)
 }
 
 
-// Substitutes spaces with underscores in filename (and path)
 string const QuoteName(string const & name)
 {
        return (os::shell() == os::UNIX) ?
@@ -131,24 +117,7 @@ string const QuoteName(string const & name)
 // Is a file readable ?
 bool IsFileReadable(string const & path)
 {
-       FileInfo file(path);
-       return file.isOK() && file.isRegular() && file.readable();
-}
-
-
-// Is a file read_only?
-// return 1 read-write
-//       0 read_only
-//      -1 error (doesn't exist, no access, anything else)
-int IsFileWriteable(string const & path)
-{
-       FileInfo fi(path);
-
-       if (fi.access(FileInfo::wperm|FileInfo::rperm)) // read-write
-               return 1;
-       if (fi.readable()) // read-only
-               return 0;
-       return -1; // everything else.
+       return fs::exists(path) && !fs::is_directory(path) && fs::is_readable(path);
 }
 
 
@@ -158,12 +127,12 @@ bool IsDirWriteable(string const & path)
 {
        lyxerr[Debug::FILES] << "IsDirWriteable: " << path << endl;
 
-       string const tmpfl(lyx::tempName(path, "lyxwritetest"));
+       string const tmpfl(tempName(path, "lyxwritetest"));
 
        if (tmpfl.empty())
                return false;
 
-       lyx::unlink(tmpfl);
+       unlink(tmpfl);
        return true;
 }
 
@@ -182,11 +151,13 @@ string const FileOpenSearch(string const & path, string const & name,
        string tmppath = split(path, path_element, ';');
 
        while (notfound && !path_element.empty()) {
-               path_element = os::slashify_path(path_element);
+               path_element = os::internal_path(path_element);
                if (!suffixIs(path_element, '/'))
                        path_element+= '/';
-               path_element = subst(path_element, "$$LyX", system_lyxdir);
-               path_element = subst(path_element, "$$User", user_lyxdir);
+               path_element = subst(path_element, "$$LyX",
+                                    package().system_support());
+               path_element = subst(path_element, "$$User",
+                                    package().user_support());
 
                real_file = FileSearch(path_element, name, ext);
 
@@ -211,51 +182,30 @@ string const FileOpenSearch(string const & path, string const & name,
 /// Returns a vector of all files in directory dir having extension ext.
 vector<string> const DirList(string const & dir, string const & ext)
 {
-       // This is a non-error checking C/system implementation
-       string extension;
-       if (!ext.empty() && ext[0] != '.')
-               extension += '.';
-       extension += ext;
-
+       // EXCEPTIONS FIXME. Rewrite needed when we turn on exceptions. (Lgb)
        vector<string> dirlist;
-       DIR * dirp = ::opendir(dir.c_str());
-       if (!dirp) {
+
+       if (!(fs::exists(dir) && fs::is_directory(dir))) {
                lyxerr[Debug::FILES]
                        << "Directory \"" << dir
                        << "\" does not exist to DirList." << endl;
                return dirlist;
        }
 
-       dirent * dire;
-       while ((dire = ::readdir(dirp))) {
-               string const fil = dire->d_name;
+       string extension;
+       if (!ext.empty() && ext[0] != '.')
+               extension += '.';
+       extension += ext;
+
+       fs::directory_iterator dit(dir);
+       fs::directory_iterator end;
+       for (; dit != end; ++dit) {
+               string const & fil = dit->leaf();
                if (suffixIs(fil, extension)) {
                        dirlist.push_back(fil);
                }
        }
-       ::closedir(dirp);
        return dirlist;
-       /* I would have prefered to take a vector<string>& as parameter so
-          that we could avoid the copy of the vector when returning.
-          Then we would use:
-          dirlist.swap(argvec);
-          to avoid the copy. (Lgb)
-       */
-       /* A C++ implementaion will look like this:
-          string extension(ext);
-          if (extension[0] != '.') extension.insert(0, 1, '.');
-          vector<string> dirlist;
-          directory_iterator dit("dir");
-          while (dit != directory_iterator()) {
-                  string fil = dit->filename;
-                  if (prefixIs(fil, extension)) {
-                          dirlist.push_back(fil);
-                  }
-                  ++dit;
-          }
-          dirlist.swap(argvec);
-          return;
-       */
 }
 
 
@@ -291,16 +241,18 @@ string const FileSearch(string const & path, string const & name,
 string const LibFileSearch(string const & dir, string const & name,
                           string const & ext)
 {
-       string fullname = FileSearch(AddPath(user_lyxdir, dir), name, ext);
+       string fullname = FileSearch(AddPath(package().user_support(), dir),
+                                    name, ext);
        if (!fullname.empty())
                return fullname;
 
-       if (!build_lyxdir.empty())
-               fullname = FileSearch(AddPath(build_lyxdir, dir), name, ext);
+       if (!package().build_support().empty())
+               fullname = FileSearch(AddPath(package().build_support(), dir),
+                                     name, ext);
        if (!fullname.empty())
                return fullname;
 
-       return FileSearch(AddPath(system_lyxdir, dir), name, ext);
+       return FileSearch(AddPath(package().system_support(), dir), name, ext);
 }
 
 
@@ -308,33 +260,40 @@ string const
 i18nLibFileSearch(string const & dir, string const & name,
                  string const & ext)
 {
-       // this comment is from intl/dcigettext.c. We try to mimick this
-       // behaviour here.
+       // the following comments are from intl/dcigettext.c. We try
+       // to mimick this behaviour here.
        /* The highest priority value is the `LANGUAGE' environment
           variable. But we don't use the value if the currently
           selected locale is the C locale. This is a GNU extension. */
+       /* [Otherwise] We have to proceed with the POSIX methods of
+          looking to `LC_ALL', `LC_xxx', and `LANG'. */
 
-       string const lc_all = GetEnv("LC_ALL");
-       string lang = GetEnv("LANGUAGE");
-       if (lang.empty() || lc_all == "C") {
-               lang = lc_all;
+       string lang = getEnv("LC_ALL");
+       if (lang.empty()) {
+               lang = getEnv("LC_MESSAGES");
                if (lang.empty()) {
-                       lang = GetEnv("LANG");
+                       lang = getEnv("LANG");
+                       if (lang.empty())
+                               lang = "C";
                }
        }
 
-       lang = token(lang, '_', 0);
+       string const language = getEnv("LANGUAGE");
+       if (lang != "C" && lang != "POSIX" && !language.empty())
+               lang = language;
 
-       if (lang.empty() || lang == "C")
-               return LibFileSearch(dir, name, ext);
-       else {
-               string const tmp = LibFileSearch(dir, lang + '_' + name,
+       string l;
+       lang = split(lang, l, ':');
+       while (!l.empty() && l != "C" && l != "POSIX") {
+               string const tmp = LibFileSearch(dir,
+                                                token(l, '_', 0) + '_' + name,
                                                 ext);
                if (!tmp.empty())
                        return tmp;
-               else
-                       return LibFileSearch(dir, name, ext);
+               lang = split(lang, l, ':');
        }
+
+       return LibFileSearch(dir, name, ext);
 }
 
 
@@ -347,7 +306,8 @@ string const LibScriptSearch(string const & command_in)
        string::size_type const pos1 = command.find(token_scriptpath);
        if (pos1 == string::npos)
                return command;
-       // Find the end of the "$$s/some_script" word within command
+       // Find the end of the "$$s/some_subdir/some_script" word within
+       // command. Assumes that the script name does not contain spaces.
        string::size_type const start_script = pos1 + 4;
        string::size_type const pos2 = command.find(' ', start_script);
        string::size_type const size_script = pos2 == string::npos?
@@ -355,105 +315,41 @@ string const LibScriptSearch(string const & command_in)
 
        // Does this script file exist?
        string const script =
-               LibFileSearch("scripts", command.substr(start_script, size_script));
+               LibFileSearch(".", command.substr(start_script, size_script));
 
        if (script.empty()) {
                // Replace "$$s/" with ""
                command.erase(pos1, 4);
        } else {
-               // Replace "$$s/some_script" with "$LYX_SCRIPT_PATH/some_script"
+               // Replace "$$s/foo/some_script" with "<path to>/some_script".
                string::size_type const size_replace = size_script + 4;
-               command.replace(pos1, size_replace, script);
+               command.replace(pos1, size_replace, QuoteName(script));
        }
 
        return command;
 }
 
 
-string const GetEnv(string const & envname)
-{
-       // f.ex. what about error checking?
-       char const * const ch = getenv(envname.c_str());
-       string const envstr = !ch ? "" : ch;
-       return envstr;
-}
-
-
-string const GetEnvPath(string const & name)
-{
-#ifndef __EMX__
-       string const pathlist = subst(GetEnv(name), ':', ';');
-#else
-       string const pathlist = os::slashify_path(GetEnv(name));
-#endif
-       return rtrim(pathlist, ";");
-}
-
-
 namespace {
 
-int DeleteAllFilesInDir(string const & path)
-{
-       // I have decided that we will be using parts from the boost
-       // library. Check out http://www.boost.org/
-       // For directory access we will then use the directory_iterator.
-       // Then the code will be something like:
-       // directory_iterator dit(path);
-       // directory_iterator dend;
-       // if (dit == dend) {
-       //         return -1;
-       // }
-       // for (; dit != dend; ++dit) {
-       //         string filename(*dit);
-       //         if (filename == "." || filename == "..")
-       //                 continue;
-       //         string unlinkpath(AddName(path, filename));
-       //         lyx::unlink(unlinkpath);
-       // }
-       // return 0;
-       DIR * dir = ::opendir(path.c_str());
-       if (!dir)
-               return -1;
-
-       struct dirent * de;
-       int return_value = 0;
-       while ((de = readdir(dir))) {
-               string const temp = de->d_name;
-               if (temp == "." || temp == "..")
-                       continue;
-               string const unlinkpath = AddName (path, temp);
-
-               lyxerr[Debug::FILES] << "Deleting file: " << unlinkpath
-                                    << endl;
-
-               bool deleted = true;
-               FileInfo fi(unlinkpath);
-               if (fi.isOK() && fi.isDir())
-                       deleted = (DeleteAllFilesInDir(unlinkpath) == 0);
-               deleted &= (lyx::unlink(unlinkpath) == 0);
-               if (!deleted)
-                       return_value = -1;
-       }
-       closedir(dir);
-       return return_value;
-}
-
-
-string const CreateTmpDir(string const & tempdir, string const & mask)
+string const createTmpDir(string const & tempdir, string const & mask)
 {
        lyxerr[Debug::FILES]
-               << "CreateTmpDir: tempdir=`" << tempdir << "'\n"
-               << "CreateTmpDir:    mask=`" << mask << '\'' << endl;
+               << "createTmpDir: tempdir=`" << tempdir << "'\n"
+               << "createTmpDir:    mask=`" << mask << '\'' << endl;
 
-       string const tmpfl(lyx::tempName(tempdir, mask));
+       string const tmpfl(tempName(tempdir, mask));
        // lyx::tempName actually creates a file to make sure that it
        // stays unique. So we have to delete it before we can create
        // a dir with the same name. Note also that we are not thread
        // safe because of the gap between unlink and mkdir. (Lgb)
-       lyx::unlink(tmpfl.c_str());
+       unlink(tmpfl);
 
-       if (tmpfl.empty() || lyx::mkdir(tmpfl, 0700))
+       if (tmpfl.empty() || mkdir(tmpfl, 0700)) {
+               lyxerr << "LyX could not create the temporary directory '"
+                      << tmpfl << "'" << endl;
                return string();
+       }
 
        return MakeAbsPath(tmpfl);
 }
@@ -461,62 +357,69 @@ string const CreateTmpDir(string const & tempdir, string const & mask)
 } // namespace anon
 
 
-int destroyDir(string const & tmpdir)
+bool destroyDir(string const & tmpdir)
 {
+
 #ifdef __EMX__
-       Path p(user_lyxdir);
+       Path p(user_lyxdir());
 #endif
-       if (DeleteAllFilesInDir(tmpdir))
-               return -1;
-
-       if (lyx::rmdir(tmpdir))
-               return -1;
-
-       return 0;
+       return fs::remove_all(tmpdir) > 0;
 }
 
 
-string const CreateBufferTmpDir(string const & pathfor)
+string const createBufferTmpDir()
 {
        static int count;
-       static string const tmpdir(pathfor.empty() ? os::getTmpDir() : pathfor);
        // We are in our own directory.  Why bother to mangle name?
-       // In fact I wrote this code to circumvent a problematic behaviour (bug?)
-       // of EMX mkstemp().
-       string const tmpfl = tmpdir + "/lyx_tmpbuf" + tostr(count++);
-       if (lyx::mkdir(tmpfl, 0777)) {
+       // In fact I wrote this code to circumvent a problematic behaviour
+       // (bug?) of EMX mkstemp().
+       string const tmpfl =
+               package().temp_dir() + "/lyx_tmpbuf" +
+               convert<string>(count++);
+
+       if (mkdir(tmpfl, 0777)) {
+               lyxerr << "LyX could not create the temporary directory '"
+                      << tmpfl << "'" << endl;
                return string();
        }
        return tmpfl;
 }
 
 
-string const CreateLyXTmpDir(string const & deflt)
+string const createLyXTmpDir(string const & deflt)
 {
-       if ((!deflt.empty()) && (deflt  != "/tmp")) {
-               if (lyx::mkdir(deflt, 0777)) {
+       if (!deflt.empty() && deflt != "/tmp") {
+               if (mkdir(deflt, 0777)) {
 #ifdef __EMX__
-               Path p(user_lyxdir);
+                       Path p(package().user_support());
 #endif
-                       return CreateTmpDir(deflt, "lyx_tmpdir");
+                       if (IsDirWriteable(deflt)) {
+                               // deflt could not be created because it
+                               // did exist already, so let's create our own
+                               // dir inside deflt.
+                               return createTmpDir(deflt, "lyx_tmpdir");
+                       } else {
+                               // some other error occured.
+                               return createTmpDir("/tmp", "lyx_tmpdir");
+                       }
                } else
                        return deflt;
        } else {
 #ifdef __EMX__
-               Path p(user_lyxdir);
+               Path p(package().user_support());
 #endif
-               return CreateTmpDir("/tmp", "lyx_tmpdir");
+               return createTmpDir("/tmp", "lyx_tmpdir");
        }
 }
 
 
 bool createDirectory(string const & path, int permission)
 {
-       string temp(rtrim(os::slashify_path(path), "/"));
+       string temp(rtrim(os::internal_path(path), "/"));
 
-       lyx::Assert(!temp.empty());
+       BOOST_ASSERT(!temp.empty());
 
-       if (lyx::mkdir(temp, permission))
+       if (mkdir(temp, permission))
                return false;
 
        return true;
@@ -547,7 +450,7 @@ string const MakeAbsPath(string const & RelPath, string const & BasePath)
                return RelPath;
 
        // Copies given paths
-       string TempRel(os::slashify_path(RelPath));
+       string TempRel(os::internal_path(RelPath));
        // Since TempRel is NOT absolute, we can safely replace "//" with "/"
        TempRel = subst(TempRel, "//", "/");
 
@@ -556,7 +459,7 @@ string const MakeAbsPath(string const & RelPath, string const & BasePath)
        if (os::is_absolute_path(BasePath))
                TempBase = BasePath;
        else
-               TempBase = AddPath(lyx::getcwd(), BasePath);
+               TempBase = AddPath(getcwd(), BasePath);
 
        // Handle /./ at the end of the path
        while (suffixIs(TempBase, "/./"))
@@ -598,7 +501,7 @@ string const MakeAbsPath(string const & RelPath, string const & BasePath)
        }
 
        // returns absolute path
-       return os::slashify_path(TempBase);
+       return os::internal_path(TempBase);
 }
 
 
@@ -613,7 +516,7 @@ string const AddName(string const & path, string const & fname)
        string buf;
 
        if (path != "." && path != "./" && !path.empty()) {
-               buf = os::slashify_path(path);
+               buf = os::internal_path(path);
                if (!suffixIs(path, '/'))
                        buf += '/';
        }
@@ -661,10 +564,10 @@ string const ExpandPath(string const & path)
        RTemp = split(RTemp, Temp, '/');
 
        if (Temp == ".") {
-               return lyx::getcwd() /*GetCWD()*/ + '/' + RTemp;
+               return getcwd() + '/' + RTemp;
        }
        if (Temp == "~") {
-               return GetEnvPath("HOME") + '/' + RTemp;
+               return package().home_dir() + '/' + RTemp;
        }
        if (Temp == "..") {
                return MakeAbsPath(copy);
@@ -721,14 +624,13 @@ string const NormalizePath(string const & path)
 
 string const GetFileContents(string const & fname)
 {
-       FileInfo finfo(fname);
-       if (finfo.exist()) {
+       if (fs::exists(fname)) {
                ifstream ifs(fname.c_str());
                ostringstream ofs;
                if (ifs && ofs) {
                        ofs << ifs.rdbuf();
                        ifs.close();
-                       return STRCONV(ofs.str());
+                       return ofs.str();
                }
        }
        lyxerr << "LyX was not able to read file '" << fname << '\'' << endl;
@@ -736,96 +638,32 @@ string const GetFileContents(string const & fname)
 }
 
 
-//
-// Search ${...} as Variable-Name inside the string and replace it with
-// the denoted environmentvariable
-// Allow Variables according to
-//  variable :=  '$' '{' [A-Za-z_]{[A-Za-z_0-9]*} '}'
-//
-
+// Search the string for ${VAR} and $VAR and replace VAR using getenv.
 string const ReplaceEnvironmentPath(string const & path)
 {
-       //
-       // CompareChar: Environment variables starts with this character
-       // PathChar:    Next path component start with this character
-       // while CompareChar found do:
-       //       Split String with PathChar
-       //       Search Environmentvariable
-       //       if found: Replace Strings
-       //
-       char const CompareChar = '$';
-       char const FirstChar = '{';
-       char const EndChar = '}';
-       char const UnderscoreChar = '_';
-       string EndString; EndString += EndChar;
-       string FirstString; FirstString += FirstChar;
-       string CompareString; CompareString += CompareChar;
-       string const RegExp("*}*"); // Exist EndChar inside a String?
-
-// first: Search for a '$' - Sign.
-       //string copy(path);
-       string result1; //(copy);    // for split-calls
-       string result0 = split(path, result1, CompareChar);
-       while (!result0.empty()) {
-               string copy1(result0); // contains String after $
-
-               // Check, if there is an EndChar inside original String.
-
-               if (!regexMatch(copy1, RegExp)) {
-                       // No EndChar inside. So we are finished
-                       result1 += CompareString + result0;
-                       result0.erase();
-                       continue;
-               }
-
-               string res1;
-               string res0 = split(copy1, res1, EndChar);
-               // Now res1 holds the environmentvariable
-               // First, check, if Contents is ok.
-               if (res1.empty()) { // No environmentvariable. Continue Loop.
-                       result1 += CompareString + FirstString;
-                       result0  = res0;
-                       continue;
-               }
-               // check contents of res1
-               char const * res1_contents = res1.c_str();
-               if (*res1_contents != FirstChar) {
-                       // Again No Environmentvariable
-                       result1 += CompareString;
-                       result0 = res0;
-               }
-
-               // Check for variable names
-               // Situation ${} is detected as "No Environmentvariable"
-               char const * cp1 = res1_contents + 1;
-               bool result = isalpha(*cp1) || (*cp1 == UnderscoreChar);
-               ++cp1;
-               while (*cp1 && result) {
-                       result = isalnum(*cp1) ||
-                               (*cp1 == UnderscoreChar);
-                       ++cp1;
-               }
-
-               if (!result) {
-                       // no correct variable name
-                       result1 += CompareString + res1 + EndString;
-                       result0  = split(res0, res1, CompareChar);
-                       result1 += res1;
-                       continue;
-               }
-
-               string env(GetEnv(res1_contents + 1));
-               if (!env.empty()) {
-                       // Congratulations. Environmentvariable found
-                       result1 += env;
-               } else {
-                       result1 += CompareString + res1 + EndString;
+       // ${VAR} is defined as
+       // $\{[A-Za-z_][A-Za-z_0-9]*\}
+       static string const envvar_br = "[$]\\{([A-Za-z_][A-Za-z_0-9]*)\\}";
+
+       // $VAR is defined as:
+       // $\{[A-Za-z_][A-Za-z_0-9]*\}
+       static string const envvar = "[$]([A-Za-z_][A-Za-z_0-9]*)";
+
+       static boost::regex envvar_br_re("(.*)" + envvar_br + "(.*)");
+       static boost::regex envvar_re("(.*)" + envvar + "(.*)");
+       boost::smatch what;
+
+       string result = path;
+       while (1) {
+               regex_match(result, what, envvar_br_re);
+               if (!what[0].matched) {
+                       regex_match(result, what, envvar_re);
+                       if (!what[0].matched)
+                               break;
                }
-               // Next $-Sign?
-               result0  = split(res0, res1, CompareChar);
-               result1 += res1;
+               result = what.str(1) + getEnv(what.str(2)) + what.str(3);
        }
-       return result1;
+       return result;
 }
 
 
@@ -878,10 +716,10 @@ string const MakeRelPath(string const & abspath, string const & basepath)
 string const AddPath(string const & path, string const & path_2)
 {
        string buf;
-       string const path2 = os::slashify_path(path_2);
+       string const path2 = os::internal_path(path_2);
 
        if (!path.empty() && path != "." && path != "./") {
-               buf = os::slashify_path(path);
+               buf = os::internal_path(path);
                if (path[path.length() - 1] != '/')
                        buf += '/';
        }
@@ -915,7 +753,7 @@ string const ChangeExtension(string const & oldname, string const & extension)
        else
                ext = extension;
 
-       return os::slashify_path(oldname.substr(0, last_dot) + ext);
+       return os::internal_path(oldname.substr(0, last_dot) + ext);
 }
 
 
@@ -932,6 +770,7 @@ string const GetExtension(string const & name)
                return string();
 }
 
+
 // the different filetypes and what they contain in one of the first lines
 // (dots are any characters).          (Herbert 20020131)
 // AGR Grace...
@@ -955,44 +794,41 @@ string const GetExtension(string const & name)
 //      ...static char *...
 // XWD \000\000\000\151        (0x00006900) decimal 105
 //
-// GZIP        \037\213\010\010...     http://www.ietf.org/rfc/rfc1952.txt
+// GZIP        \037\213        http://www.ietf.org/rfc/rfc1952.txt
 // ZIP PK...                   http://www.halyava.ru/document/ind_arch.htm
-// Z   \037\177                UNIX compress
+// Z   \037\235                UNIX compress
 
-/// return the "extension" which belongs to the contents.
-/// for no knowing contents return the extension. Without
-/// an extension and unknown contents we return "user"
-string const getExtFromContents(string const & filename)
+string const getFormatFromContents(string const & filename)
 {
        // paranoia check
        if (filename.empty() || !IsFileReadable(filename))
                return string();
 
-
        ifstream ifs(filename.c_str());
        if (!ifs)
                // Couldn't open file...
                return string();
 
        // gnuzip
-       string const gzipStamp = "\037\213\010\010";
+       string const gzipStamp = "\037\213";
 
        // PKZIP
        string const zipStamp = "PK";
 
        // compress
-       string const compressStamp = "\037\177";
+       string const compressStamp = "\037\235";
 
        // Maximum strings to read
        int const max_count = 50;
        int count = 0;
 
-       string str, format;
+       string str;
+       string format;
        bool firstLine = true;
        while ((count++ < max_count) && format.empty()) {
                if (ifs.eof()) {
                        lyxerr[Debug::GRAPHICS]
-                               << "filetools(getExtFromContents)\n"
+                               << "filetools(getFormatFromContents)\n"
                                << "\tFile type not recognised before EOF!"
                                << endl;
                        break;
@@ -1107,37 +943,36 @@ string const getExtFromContents(string const & filename)
                return format;
        }
 
-       string const ext(GetExtension(filename));
        lyxerr[Debug::GRAPHICS]
-               << "filetools(getExtFromContents)\n"
-               << "\tCouldn't find a known Type!\n";
-       if (!ext.empty()) {
-           lyxerr[Debug::GRAPHICS]
-               << "\twill take the file extension -> "
-               << ext << endl;
-               return ext;
-       } else {
-           lyxerr[Debug::GRAPHICS]
-               << "\twill use ext or a \"user\" defined format" << endl;
-           return "user";
-       }
+               << "filetools(getFormatFromContents)\n"
+               << "\tCouldn't find a known format!\n";
+       return string();
 }
 
 
 /// check for zipped file
 bool zippedFile(string const & name)
 {
-       string const type = getExtFromContents(name);
+       string const type = getFormatFromContents(name);
        if (contains("gzip zip compress", type) && !type.empty())
                return true;
        return false;
 }
 
 
-string const unzipFile(string const & zipped_file)
+string const unzippedFileName(string const & zipped_file)
+{
+       string const ext = GetExtension(zipped_file);
+       if (ext == "gz" || ext == "z" || ext == "Z")
+               return ChangeExtension(zipped_file, string());
+       return "unzipped_" + zipped_file;
+}
+
+
+string const unzipFile(string const & zipped_file, string const & unzipped_file)
 {
-       string const file = ChangeExtension(zipped_file, string());
-       string  const tempfile = lyx::tempName(string(), file);
+       string const tempfile = unzipped_file.empty() ?
+               unzippedFileName(zipped_file) : unzipped_file;
        // Run gunzip
        string const command = "gunzip -c " + zipped_file + " > " + tempfile;
        Systemcall one;
@@ -1152,7 +987,7 @@ string const MakeDisplayPath(string const & path, unsigned int threshold)
 {
        string str = path;
 
-       string const home(GetEnvPath("HOME"));
+       string const home(package().home_dir());
 
        // replace /home/blah with ~/
        if (prefixIs(str, home))
@@ -1186,6 +1021,7 @@ string const MakeDisplayPath(string const & path, unsigned int threshold)
 
 bool LyXReadLink(string const & file, string & link, bool resolve)
 {
+#ifdef HAVE_READLINK
        char linkbuffer[512];
        // Should be PATH_MAX but that needs autconf support
        int const nRead = ::readlink(file.c_str(),
@@ -1198,22 +1034,39 @@ bool LyXReadLink(string const & file, string & link, bool resolve)
        else
                link = linkbuffer;
        return true;
+#else
+       return false;
+#endif
 }
 
 
 cmd_ret const RunCommand(string const & cmd)
 {
+       // FIXME: replace all calls to RunCommand with ForkedCall
+       // (if the output is not needed) or the code in ispell.C
+       // (if the output is needed).
+
        // One question is if we should use popen or
        // create our own popen based on fork, exec, pipe
        // of course the best would be to have a
        // pstream (process stream), with the
        // variants ipstream, opstream
 
+       sigset_t newMask, oldMask;
+       sigemptyset(&oldMask);
+       sigemptyset(&newMask);
+       sigaddset(&newMask, SIGCHLD);
+
+       // Block the SIGCHLD signal.
+       sigprocmask(SIG_BLOCK, &newMask, &oldMask);
+
        FILE * inf = ::popen(cmd.c_str(), os::popen_read_mode());
 
        // (Claus Hentschel) Check if popen was succesful ;-)
-       if (!inf)
+       if (!inf) {
                return make_pair(-1, string());
+               lyxerr << "RunCommand:: could not start child process" << endl;
+               }
 
        string ret;
        int c = fgetc(inf);
@@ -1222,6 +1075,12 @@ cmd_ret const RunCommand(string const & cmd)
                c = fgetc(inf);
        }
        int const pret = pclose(inf);
+       if (pret == -1)
+               perror("RunCommand:: could not terminate child process");
+
+       // Unblock the SIGCHLD signal and restore the old mask.
+       sigprocmask(SIG_SETMASK, &oldMask, 0);
+
        return make_pair(pret, ret);
 }
 
@@ -1239,7 +1098,7 @@ string const findtexfile(string const & fil, string const & /*format*/)
 
        // If the file can be found directly, we just return a
        // absolute path version of it.
-       if (FileInfo(fil).exist())
+       if (fs::exists(fil))
                return MakeAbsPath(fil);
 
        // No we try to find it using kpsewhich.
@@ -1282,9 +1141,8 @@ void removeAutosaveFile(string const & filename)
        a += '#';
        a += OnlyFilename(filename);
        a += '#';
-       FileInfo const fileinfo(a);
-       if (fileinfo.exist())
-               lyx::unlink(a);
+       if (fs::exists(a))
+               unlink(a);
 }
 
 
@@ -1293,8 +1151,11 @@ void readBB_lyxerrMessage(string const & file, bool & zipped,
 {
        lyxerr[Debug::GRAPHICS] << "[readBB_from_PSFile] "
                << message << std::endl;
+#ifdef WITH_WARNINGS
+#warning Why is this func deleting a file? (Lgb)
+#endif
        if (zipped)
-               lyx::unlink(file);
+               unlink(file);
 }
 
 
@@ -1310,7 +1171,7 @@ string const readBB_from_PSFile(string const & file)
        bool zipped = zippedFile(file);
        string const file_ = zipped ?
                string(unzipFile(file)) : string(file);
-       string const format = getExtFromContents(file_);
+       string const format = getFormatFromContents(file_);
 
        if (format != "eps" && format != "ps") {
                readBB_lyxerrMessage(file_, zipped,"no(e)ps-format");
@@ -1332,41 +1193,28 @@ string const readBB_from_PSFile(string const & file)
 }
 
 
-string copyFileToDir(string const & path, string const & file_in)
+int compare_timestamps(string const & file1, string const & file2)
 {
-       lyx::Assert(AbsolutePath(path));
-
-       // First, make the file path relative to path.
-       string file_out = MakeRelPath(path, NormalizePath(file_in));
-       file_out = os::slashify_path(file_out);
-
-       // Now generate a unique filename.
-       // Remove the extension.
-       file_out = ChangeExtension(file_out, string());
-       // Replace '/' in the file name with '_'
-       file_out = subst(file_out, "/", "_");
-       // Replace '.' in the file name with '_'
-       file_out = subst(file_out, ".", "_");
-       // Append a unique ID
-       static int id;
-       file_out += '_' + tostr(id++);
-       // Add the extension back on
-       file_out = ChangeExtension(file_out, GetExtension(file_in));
-       // Put this file in the buffer's temp dir
-       file_out = MakeAbsPath(file_out, path);
+       BOOST_ASSERT(AbsolutePath(file1) && AbsolutePath(file2));
 
        // If the original is newer than the copy, then copy the original
        // to the new directory.
-       FileInfo fi(file_in);
-       FileInfo fi2(file_out);
-
-       bool success = true;
-       if (fi.exist()) {
-               if (!fi2.exist() ||
-                   difftime(fi.getModificationTime(),
-                            fi2.getModificationTime()) >= 0)
-                       success = lyx::copy(file_in, file_out);
+
+       int cmp = 0;
+       if (fs::exists(file1) && fs::exists(file2)) {
+               double const tmp = difftime(fs::last_write_time(file1),
+                                           fs::last_write_time(file2));
+               if (tmp != 0)
+                       cmp = tmp > 0 ? 1 : -1;
+
+       } else if (fs::exists(file1)) {
+               cmp = 1;
+       } else if (fs::exists(file2)) {
+               cmp = -1;
        }
 
-       return success ? file_out : string();
+       return cmp;
 }
+
+} //namespace support
+} // namespace lyx