octave: liboctave/file-ops.cc comparison

comparison liboctave/file-ops.cc @ 10197:4d433bd2d4dc

attempt to avoid trouble with gnulib #defines in a consistent way

author	John W. Eaton <jwe@octave.org>
date	Tue, 26 Jan 2010 00:45:04 -0500
parents	8fa6ce1b21f2
children	025564630c8d

comparison

equal deleted inserted replaced

-:69bb6e1e10d2
+:4d433bd2d4dc
 #include <cstring>
 #include <iostream>
 #include <vector>
+#include <sys/stat.h>
 #include <sys/types.h>
+#include <unistd.h>
 #include <pathmax.h>
 #include "dir-ops.h"
 #include "file-ops.h"
 #include "pathlen.h"
 #include "quit.h"
 #include "str-vec.h"
 #include "oct-locbuf.h"
-file_ops::static_members *file_ops::static_members::instance = 0;
+file_ops *file_ops::instance = 0;
-file_ops::static_members::static_members (void)
+bool
-:
+file_ops::instance_ok (void)
+{
+bool retval = true;
+if (! instance)
+{
 #if (defined (OCTAVE_HAVE_WINDOWS_FILESYSTEM) && ! defined (OCTAVE_HAVE_POSIX_FILESYSTEM))
-xdir_sep_char ('\\'),
+char system_dir_sep_char = '\\';
-xdir_sep_str ("\\"),
+std::string system_dir_sep_str = "\\";
 #else
-xdir_sep_char ('/'),
+char system_dir_sep_char = '/';
-xdir_sep_str ("/"),
+std::string system_dir_sep_str = "/";
 #endif
 #if defined (OCTAVE_HAVE_WINDOWS_FILESYSTEM)
-xdir_sep_chars ("/\\")
+std::string system_dir_sep_chars = "/\\";
 #else
-xdir_sep_chars (xdir_sep_str)
+std::string system_dir_sep_chars = system_dir_sep_str;
 #endif
-{ }
+instance = new file_ops (system_dir_sep_char, system_dir_sep_str,
-bool
+system_dir_sep_chars);
-file_ops::static_members::instance_ok (void)
-{
+if (! instance)
-bool retval = true;
+{
+(*current_liboctave_error_handler)
-if (! instance)
+("unable to create file_ops object!");
-instance = new static_members ();
+retval = false;
-if (! instance)
+}
-{
-(*current_liboctave_error_handler)
-("unable to create file_ops::static_members object!");
-retval = false;
 }
 return retval;
 }
-// We provide a replacement for mkdir().
+// The following tilde-expansion code was stolen and adapted from
+// readline.
-int
-file_ops::mkdir (const std::string& nm, mode_t md)
+// The default value of tilde_additional_prefixes.  This is set to
-{
+// whitespace preceding a tilde so that simple programs which do not
-std::string msg;
+// perform any word separation get desired behaviour.
-return mkdir (nm, md, msg);
+static const char *default_prefixes[] = { " ~", "\t~", ":~", 0 };
-}
+// The default value of tilde_additional_suffixes.  This is set to
-int
+// whitespace or newline so that simple programs which do not perform
-file_ops::mkdir (const std::string& name, mode_t mode, std::string& msg)
+// any word separation get desired behaviour.
+static const char *default_suffixes[] = { " ", "\n", ":", 0 };
+// If non-null, this contains the address of a function that the
+// application wants called before trying the standard tilde
+// expansions.  The function is called with the text sans tilde, and
+// returns a malloc()'ed string which is the expansion, or a NULL
+// pointer if the expansion fails.
+file_ops::tilde_expansion_hook file_ops::tilde_expansion_preexpansion_hook = 0;
+// If non-null, this contains the address of a function to call if the
+// standard meaning for expanding a tilde fails.  The function is
+// called with the text (sans tilde, as in "foo"), and returns a
+// malloc()'ed string which is the expansion, or a NULL pointer if
+// there is no expansion.
+file_ops::tilde_expansion_hook file_ops::tilde_expansion_failure_hook = 0;
+// When non-null, this is a NULL terminated array of strings which are
+// duplicates for a tilde prefix.  Bash uses this to expand `=~' and
+// `:~'.
+string_vector file_ops::tilde_additional_prefixes = default_prefixes;
+// When non-null, this is a NULL terminated array of strings which
+// match the end of a username, instead of just "/".  Bash sets this
+// to `:' and `=~'.
+string_vector file_ops::tilde_additional_suffixes = default_suffixes;
+// Find the start of a tilde expansion in S, and return the index
+// of the tilde which starts the expansion.  Place the length of the
+// text which identified this tilde starter in LEN, excluding the
+// tilde itself.
+static size_t
+tilde_find_prefix (const std::string& s, size_t& len)
+{
+len = 0;
+size_t s_len = s.length ();
+if (s_len == 0 || s[0] == '~')
+return 0;
+string_vector prefixes = file_ops::tilde_additional_prefixes;
+if (! prefixes.empty ())
+{
+for (size_t i = 0; i < s_len; i++)
+{
+for (int j = 0; j < prefixes.length (); j++)
+{
+size_t pfx_len = prefixes[j].length ();
+if (prefixes[j].compare (s.substr (i, pfx_len)) == 0)
+{
+len = pfx_len - 1;
+return i + len;
+}
+}
+}
+}
+return s_len;
+}
+// Find the end of a tilde expansion in S, and return the index
+// of the character which ends the tilde definition.
+static size_t
+tilde_find_suffix (const std::string& s)
+{
+size_t s_len = s.length ();
+string_vector suffixes = file_ops::tilde_additional_suffixes;
+size_t i = 0;
+for ( ; i < s_len; i++)
+{
+if (file_ops::is_dir_sep (s[i]))
+break;
+if (! suffixes.empty ())
+{
+for (int j = 0; j < suffixes.length (); j++)
+{
+size_t sfx_len = suffixes[j].length ();
+if (suffixes[j].compare (s.substr (i, sfx_len)) == 0)
+return i;
+}
+}
+}
+return i;
+}
+// Take FNAME and return the tilde prefix we want expanded.
+static std::string
+isolate_tilde_prefix (const std::string& fname)
+{
+size_t f_len = fname.length ();
+size_t len = 1;
+while (len < f_len && ! file_ops::is_dir_sep (fname[len]))
+len++;
+return fname.substr (1, len);
+}
+// Do the work of tilde expansion on FILENAME.  FILENAME starts with a
+// tilde.
+static std::string
+tilde_expand_word (const std::string& filename)
+{
+size_t f_len = filename.length ();
+if (f_len == 0 || filename[0] != '~')
+return filename;
+// A leading `~/' or a bare `~' is *always* translated to the value
+// of $HOME or the home directory of the current user, regardless of
+// any preexpansion hook.
+if (f_len == 1 || file_ops::is_dir_sep (filename[1]))
+return octave_env::get_home_directory () + filename.substr (1);
+std::string username = isolate_tilde_prefix (filename);
+size_t user_len = username.length ();
+std::string dirname;
+if (file_ops::tilde_expansion_preexpansion_hook)
+{
+std::string expansion
+= file_ops::tilde_expansion_preexpansion_hook (username);
+if (! expansion.empty ())
+return expansion + filename.substr (user_len+1);
+}
+// No preexpansion hook, or the preexpansion hook failed.  Look in the
+// password database.
+octave_passwd pw = octave_passwd::getpwnam (username);
+if (! pw)
+{
+// If the calling program has a special syntax for expanding tildes,
+// and we couldn't find a standard expansion, then let them try.
+if (file_ops::tilde_expansion_failure_hook)
+{
+std::string expansion
+= file_ops::tilde_expansion_failure_hook (username);
+if (! expansion.empty ())
+dirname = expansion + filename.substr (user_len+1);
+}
+// If we don't have a failure hook, or if the failure hook did not
+// expand the tilde, return a copy of what we were passed.
+if (dirname.length () == 0)
+dirname = filename;
+}
+else
+dirname = pw.dir () + filename.substr (user_len+1);
+return dirname;
+}
+// If NAME has a leading ~ or ~user, Unix-style, expand it to the
+// user's home directory.  If no ~, or no <pwd.h>, just return NAME.
+std::string
+file_ops::tilde_expand (const std::string& name)
+{
+if (name.find ('~') == std::string::npos)
+return name;
+else
+{
+std::string result;
+size_t name_len = name.length ();
+// Scan through S expanding tildes as we come to them.
+size_t pos = 0;
+while (1)
+{
+if (pos > name_len)
+break;
+size_t len;
+// Make START point to the tilde which starts the expansion.
+size_t start = tilde_find_prefix (name.substr (pos), len);
+result.append (name.substr (pos, start));
+// Advance STRING to the starting tilde.
+pos += start;
+// Make FINI be the index of one after the last character of the
+// username.
+size_t fini = tilde_find_suffix (name.substr (pos));
+// If both START and FINI are zero, we are all done.
+if (! (start || fini))
+break;
+// Expand the entire tilde word, and copy it into RESULT.
+std::string tilde_word = name.substr (pos, fini);
+pos += fini;
+std::string expansion = tilde_expand_word (tilde_word);
+result.append (expansion);
+}
+return result;
+}
+}
+// A vector version of the above.
+string_vector
+file_ops::tilde_expand (const string_vector& names)
+{
+string_vector retval;
+int n = names.length ();
+retval.resize (n);
+for (int i = 0; i < n; i++)
+retval[i] = tilde_expand (names[i]);
+return retval;
+}
+std::string
+file_ops::concat (const std::string& dir, const std::string& file)
+{
+return dir.empty ()
+? file
+: (is_dir_sep (dir[dir.length()-1])
+? dir + file
+: dir + dir_sep_char () + file);
+}
+std::string
+file_ops::canonicalize_file_name (const std::string& name)
+{
+std::string msg;
+return canonicalize_file_name (name, msg);
+}
+std::string
+file_ops::canonicalize_file_name (const std::string& name, std::string& msg)
+{
+msg = std::string ();
+std::string retval;
+#if defined (HAVE_CANONICALIZE_FILE_NAME)
+char *tmp = ::canonicalize_file_name (name.c_str ());
+if (tmp)
+{
+retval = tmp;
+free (tmp);
+}
+#elif defined (HAVE_RESOLVEPATH)
+#if !defined (errno)
+extern int errno;
+#endif
+#if !defined (__set_errno)
+# define __set_errno(Val) errno = (Val)
+#endif
+if (name.empty ())
+{
+__set_errno (ENOENT);
+return retval;
+}
+// All known hosts with resolvepath (e.g. Solaris 7) don't turn
+// relative names into absolute ones, so prepend the working
+// directory if the path is not absolute.
+std::string absolute_name
+= octave_env::make_absolute (name, octave_env::getcwd ());
+size_t resolved_size = absolute_name.length ();
+while (true)
+{
+resolved_size = 2 * resolved_size + 1;
+OCTAVE_LOCAL_BUFFER (char, resolved, resolved_size);
+int resolved_len
+= resolvepath (absolute_name.c_str (), resolved, resolved_size);
+if (resolved_len < 0)
+break;
+if (resolved_len < resolved_size)
+{
+retval = resolved;
+break;
+}
+}
+#elif defined (__WIN32__)
+int n = 1024;
+std::string win_path (n, '\0');
+while (true)
+{
+int status = GetFullPathName (name.c_str (), n, &win_path[0], 0);
+if (status == 0)
+break;
+else if (status < n)
+{
+win_path.resize (status);
+retval = win_path;
+break;
+}
+else
+{
+n *= 2;
+win_path.resize (n);
+}
+}
+#elif defined (HAVE_REALPATH)
+#if !defined (__set_errno)
+# define __set_errno(Val) errno = (Val)
+#endif
+if (name.empty ())
+{
+__set_errno (ENOENT);
+return retval;
+}
+OCTAVE_LOCAL_BUFFER (char, buf, PATH_MAX);
+if (::realpath (name.c_str (), buf))
+retval = buf;
+#else
+// FIXME -- provide replacement here...
+retval = name;
+#endif
+if (retval.empty ())
+{
+using namespace std;
+msg = strerror (errno);
+}
+return retval;
+}
+OCTAVE_API int
+octave_mkdir (const std::string& nm, mode_t md)
+{
+std::string msg;
+return octave_mkdir (nm, md, msg);
+}
+OCTAVE_API int
+octave_mkdir (const std::string& name, mode_t mode, std::string& msg)
 {
 msg = std::string ();
 int status = -1;
-status = octave_mkdir (name.c_str (), mode);
+status = mkdir (name.c_str (), mode);
 if (status < 0)
 {
 using namespace std;
-msg = ::strerror (errno);
+msg = strerror (errno);
 }
 return status;
 }
-// I don't know how to emulate this on systems that don't provide it.
+OCTAVE_API int
+octave_mkfifo (const std::string& nm, mode_t md)
-int
+{
-file_ops::mkfifo (const std::string& nm, mode_t md)
+std::string msg;
-{
+return octave_mkfifo (nm, md, msg);
-std::string msg;
+}
-return mkfifo (nm, md, msg);
-}
+OCTAVE_API int
+octave_mkfifo (const std::string& name, mode_t mode, std::string& msg)
-int
-file_ops::mkfifo (const std::string& name, mode_t mode, std::string& msg)
 {
 msg = std::string ();
 int status = -1;
 // With gnulib we will always have mkfifo, but some systems like MinGW
 // don't have working mkfifo functions.  On those systems, mkfifo will
 // always return -1 and set errno.
-status = octave_mkfifo (name.c_str (), mode);
+status = mkfifo (name.c_str (), mode);
 if (status < 0)
 {
 using namespace std;
-msg = ::strerror (errno);
+msg = strerror (errno);
 }
 return status;
 }
-// I don't know how to emulate this on systems that don't provide it.
+OCTAVE_API int
+octave_link (const std::string& old_name, const std::string& new_name)
-int
+{
-file_ops::link (const std::string& old_name, const std::string& new_name)
+std::string msg;
-{
+return octave_link (old_name, new_name, msg);
-std::string msg;
+}
-return link (old_name, new_name, msg);
-}
+OCTAVE_API int
+octave_link (const std::string& old_name,
-int
-file_ops::link (const std::string& old_name,
 const std::string& new_name, std::string& msg)
 {
 msg = std::string ();
 int status = -1;
-status = octave_link (old_name.c_str (), new_name.c_str ());
+status = link (old_name.c_str (), new_name.c_str ());
 if (status < 0)
 {
 using namespace std;
-msg = ::strerror (errno);
+msg = strerror (errno);
 }
 return status;
 }
-// I don't know how to emulate this on systems that don't provide it.
+OCTAVE_API int
+octave_symlink (const std::string& old_name, const std::string& new_name)
-int
+{
-file_ops::symlink (const std::string& old_name, const std::string& new_name)
+std::string msg;
-{
+return octave_symlink (old_name, new_name, msg);
-std::string msg;
+}
-return symlink (old_name, new_name, msg);
-}
+OCTAVE_API int
+octave_symlink (const std::string& old_name,
-int
-file_ops::symlink (const std::string& old_name,
 const std::string& new_name, std::string& msg)
 {
 msg = std::string ();
 int status = -1;
-status = octave_symlink (old_name.c_str (), new_name.c_str ());
+status = symlink (old_name.c_str (), new_name.c_str ());
 if (status < 0)
 {
 using namespace std;
-msg = ::strerror (errno);
+msg = strerror (errno);
 }
 return status;
 }
-// We provide a replacement for readlink().
+OCTAVE_API int
+octave_readlink (const std::string& path, std::string& result)
-int
+{
-file_ops::readlink (const std::string& path, std::string& result)
+std::string msg;
-{
+return octave_readlink (path, result, msg);
-std::string msg;
+}
-return readlink (path, result, msg);
-}
+OCTAVE_API int
+octave_readlink (const std::string& path, std::string& result,
-int
-file_ops::readlink (const std::string& path, std::string& result,
 std::string& msg)
 {
 int status = -1;
 msg = std::string ();
 char buf[MAXPATHLEN+1];
-status = octave_readlink (path.c_str (), buf, MAXPATHLEN);
+status = readlink (path.c_str (), buf, MAXPATHLEN);
 if (status < 0)
 {
 using namespace std;
-msg = ::strerror (errno);
+msg = strerror (errno);
 }
 else
 {
 buf[status] = '\0';
 result = std::string (buf);
 }
 return status;
 }
-// We provide a replacement for rename().
+OCTAVE_API int
+octave_rename (const std::string& from, const std::string& to)
-int
+{
-file_ops::rename (const std::string& from, const std::string& to)
+std::string msg;
-{
+return octave_rename (from, to, msg);
-std::string msg;
+}
-return rename (from, to, msg);
-}
+OCTAVE_API int
+octave_rename (const std::string& from, const std::string& to,
-int
-file_ops::rename (const std::string& from, const std::string& to,
 std::string& msg)
 {
 int status = -1;
 msg = std::string ();
-status = octave_rename (from.c_str (), to.c_str ());
+status = rename (from.c_str (), to.c_str ());
 if (status < 0)
 {
 using namespace std;
-msg = ::strerror (errno);
+msg = strerror (errno);
 }
 return status;
 }
-// We provide a replacement for rmdir().
+OCTAVE_API int
+octave_rmdir (const std::string& name)
-int
+{
-file_ops::rmdir (const std::string& name)
+std::string msg;
-{
+return octave_rmdir (name, msg);
-std::string msg;
+}
-return rmdir (name, msg);
-}
+OCTAVE_API int
+octave_rmdir (const std::string& name, std::string& msg)
-int
-file_ops::rmdir (const std::string& name, std::string& msg)
 {
 msg = std::string ();
 int status = -1;
-status = octave_rmdir (name.c_str ());
+status = rmdir (name.c_str ());
 if (status < 0)
 {
 using namespace std;
-msg = ::strerror (errno);
+msg = strerror (errno);
 }
 return status;
 }
 // And a version that works recursively.
-int
+OCTAVE_API int
-file_ops::recursive_rmdir (const std::string& name)
+octave_recursive_rmdir (const std::string& name)
 {
 std::string msg;
-return recursive_rmdir (name, msg);
+return octave_recursive_rmdir (name, msg);
 }
-int
+OCTAVE_API int
-file_ops::recursive_rmdir (const std::string& name, std::string& msg)
+octave_recursive_rmdir (const std::string& name, std::string& msg)
 {
 msg = std::string ();
 int status = 0;
 if (fs)
 {
 if (fs.is_dir ())
 {
-status = recursive_rmdir (fullnm, msg);
+status = octave_recursive_rmdir (fullnm, msg);
 if (status < 0)
 break;
 }
 else
 {
-status = unlink (fullnm, msg);
+status = octave_unlink (fullnm, msg);
 if (status < 0)
 break;
 }
 }
 }
 if (status >= 0)
 {
 dir.close ();
-status = file_ops::rmdir (name, msg);
+status = octave_rmdir (name, msg);
 }
 }
 else
 {
 status = -1;
 }
 return status;
 }
-std::string
+OCTAVE_API int
-file_ops::canonicalize_file_name (const std::string& name)
+octave_umask (mode_t mode)
 {
-std::string msg;
+#if defined (HAVE_UMASK)
-return canonicalize_file_name (name, msg);
+return umask (mode);
-}
+#else
+return 0;
-std::string
-file_ops::canonicalize_file_name (const std::string& name, std::string& msg)
-{
-msg = std::string ();
-std::string retval;
-#if defined (HAVE_CANONICALIZE_FILE_NAME)
-char *tmp = ::canonicalize_file_name (name.c_str ());
-if (tmp)
-{
-retval = tmp;
-::free (tmp);
-}
-#elif defined (HAVE_RESOLVEPATH)
-#if !defined (errno)
-extern int errno;
 #endif
+}
-#if !defined (__set_errno)
-# define __set_errno(Val) errno = (Val)
+OCTAVE_API int
-#endif
+octave_unlink (const std::string& name)
+{
-if (name.empty ())
+std::string msg;
-{
+return octave_unlink (name, msg);
-__set_errno (ENOENT);
+}
-return retval;
-}
+OCTAVE_API int
+octave_unlink (const std::string& name, std::string& msg)
-// All known hosts with resolvepath (e.g. Solaris 7) don't turn
+{
-// relative names into absolute ones, so prepend the working
+msg = std::string ();
-// directory if the path is not absolute.
+int status = -1;
-std::string absolute_name
-= octave_env::make_absolute (name, octave_env::getcwd ());
+status = unlink (name.c_str ());
-size_t resolved_size = absolute_name.length ();
+if (status < 0)
+{
-while (true)
+using namespace std;
-{
+msg = strerror (errno);
-resolved_size = 2 * resolved_size + 1;
+}
-OCTAVE_LOCAL_BUFFER (char, resolved, resolved_size);
+return status;
+}
-int resolved_len
-= ::resolvepath (absolute_name.c_str (), resolved, resolved_size);
+OCTAVE_API std::string
+octave_tempnam (const std::string& dir, const std::string& pfx)
-if (resolved_len < 0)
+{
-break;
+std::string msg;
+return octave_tempnam (dir, pfx, msg);
-if (resolved_len < resolved_size)
+}
-{
-retval = resolved;
+OCTAVE_API std::string
-break;
+octave_tempnam (const std::string& dir, const std::string& pfx,
-}
+std::string& msg)
-}
-#elif defined (__WIN32__)
-int n = 1024;
-std::string win_path (n, '\0');
-while (true)
-{
-int status = GetFullPathName (name.c_str (), n, &win_path[0], 0);
-if (status == 0)
-break;
-else if (status < n)
-{
-win_path.resize (status);
-retval = win_path;
-break;
-}
-else
-{
-n *= 2;
-win_path.resize (n);
-}
-}
-#elif defined (HAVE_REALPATH)
-#if !defined (__set_errno)
-# define __set_errno(Val) errno = (Val)
-#endif
-if (name.empty ())
-{
-__set_errno (ENOENT);
-return retval;
-}
-OCTAVE_LOCAL_BUFFER (char, buf, PATH_MAX);
-if (::realpath (name.c_str (), buf))
-retval = buf;
-#else
-// FIXME -- provide replacement here...
-retval = name;
-#endif
-if (retval.empty ())
-{
-using namespace std;
-msg = ::strerror (errno);
-}
-return retval;
-}
-// We provide a replacement for tempnam().
-std::string
-file_ops::tempnam (const std::string& dir, const std::string& pfx)
-{
-std::string msg;
-return tempnam (dir, pfx, msg);
-}
-std::string
-file_ops::tempnam (const std::string& dir, const std::string& pfx,
-std::string& msg)
 {
 msg = std::string ();
 std::string retval;
 const char *pdir = dir.empty () ? 0 : dir.c_str ();
 const char *ppfx = pfx.empty () ? 0 : pfx.c_str ();
-char *tmp = octave_tempnam (pdir, ppfx);
+char *tmp = tempnam (pdir, ppfx);
 if (tmp)
 {
 retval = tmp;
-::free (tmp);
+free (tmp);
 }
 else
 {
 using namespace std;
-msg = ::strerror (errno);
+msg = strerror (errno);
 }
 return retval;
 }
-// The following tilde-expansion code was stolen and adapted from
-// readline.
-// The default value of tilde_additional_prefixes.  This is set to
-// whitespace preceding a tilde so that simple programs which do not
-// perform any word separation get desired behaviour.
-static const char *default_prefixes[] = { " ~", "\t~", ":~", 0 };
-// The default value of tilde_additional_suffixes.  This is set to
-// whitespace or newline so that simple programs which do not perform
-// any word separation get desired behaviour.
-static const char *default_suffixes[] = { " ", "\n", ":", 0 };
-// If non-null, this contains the address of a function that the
-// application wants called before trying the standard tilde
-// expansions.  The function is called with the text sans tilde, and
-// returns a malloc()'ed string which is the expansion, or a NULL
-// pointer if the expansion fails.
-file_ops::tilde_expansion_hook file_ops::tilde_expansion_preexpansion_hook = 0;
-// If non-null, this contains the address of a function to call if the
-// standard meaning for expanding a tilde fails.  The function is
-// called with the text (sans tilde, as in "foo"), and returns a
-// malloc()'ed string which is the expansion, or a NULL pointer if
-// there is no expansion.
-file_ops::tilde_expansion_hook file_ops::tilde_expansion_failure_hook = 0;
-// When non-null, this is a NULL terminated array of strings which are
-// duplicates for a tilde prefix.  Bash uses this to expand `=~' and
-// `:~'.
-string_vector file_ops::tilde_additional_prefixes = default_prefixes;
-// When non-null, this is a NULL terminated array of strings which
-// match the end of a username, instead of just "/".  Bash sets this
-// to `:' and `=~'.
-string_vector file_ops::tilde_additional_suffixes = default_suffixes;
-// Find the start of a tilde expansion in S, and return the index
-// of the tilde which starts the expansion.  Place the length of the
-// text which identified this tilde starter in LEN, excluding the
-// tilde itself.
-static size_t
-tilde_find_prefix (const std::string& s, size_t& len)
-{
-len = 0;
-size_t s_len = s.length ();
-if (s_len == 0 || s[0] == '~')
-return 0;
-string_vector prefixes = file_ops::tilde_additional_prefixes;
-if (! prefixes.empty ())
-{
-for (size_t i = 0; i < s_len; i++)
-{
-for (int j = 0; j < prefixes.length (); j++)
-{
-size_t pfx_len = prefixes[j].length ();
-if (prefixes[j].compare (s.substr (i, pfx_len)) == 0)
-{
-len = pfx_len - 1;
-return i + len;
-}
-}
-}
-}
-return s_len;
-}
-// Find the end of a tilde expansion in S, and return the index
-// of the character which ends the tilde definition.
-static size_t
-tilde_find_suffix (const std::string& s)
-{
-size_t s_len = s.length ();
-string_vector suffixes = file_ops::tilde_additional_suffixes;
-size_t i = 0;
-for ( ; i < s_len; i++)
-{
-if (file_ops::is_dir_sep (s[i]))
-break;
-if (! suffixes.empty ())
-{
-for (int j = 0; j < suffixes.length (); j++)
-{
-size_t sfx_len = suffixes[j].length ();
-if (suffixes[j].compare (s.substr (i, sfx_len)) == 0)
-return i;
-}
-}
-}
-return i;
-}
-// Take FNAME and return the tilde prefix we want expanded.
-static std::string
-isolate_tilde_prefix (const std::string& fname)
-{
-size_t f_len = fname.length ();
-size_t len = 1;
-while (len < f_len && ! file_ops::is_dir_sep (fname[len]))
-len++;
-return fname.substr (1, len);
-}
-// Do the work of tilde expansion on FILENAME.  FILENAME starts with a
-// tilde.
-static std::string
-tilde_expand_word (const std::string& filename)
-{
-size_t f_len = filename.length ();
-if (f_len == 0 || filename[0] != '~')
-return filename;
-// A leading `~/' or a bare `~' is *always* translated to the value
-// of $HOME or the home directory of the current user, regardless of
-// any preexpansion hook.
-if (f_len == 1 || file_ops::is_dir_sep (filename[1]))
-return octave_env::get_home_directory () + filename.substr (1);
-std::string username = isolate_tilde_prefix (filename);
-size_t user_len = username.length ();
-std::string dirname;
-if (file_ops::tilde_expansion_preexpansion_hook)
-{
-std::string expansion
-= file_ops::tilde_expansion_preexpansion_hook (username);
-if (! expansion.empty ())
-return expansion + filename.substr (user_len+1);
-}
-// No preexpansion hook, or the preexpansion hook failed.  Look in the
-// password database.
-octave_passwd pw = octave_passwd::getpwnam (username);
-if (! pw)
-{
-// If the calling program has a special syntax for expanding tildes,
-// and we couldn't find a standard expansion, then let them try.
-if (file_ops::tilde_expansion_failure_hook)
-{
-std::string expansion
-= file_ops::tilde_expansion_failure_hook (username);
-if (! expansion.empty ())
-dirname = expansion + filename.substr (user_len+1);
-}
-// If we don't have a failure hook, or if the failure hook did not
-// expand the tilde, return a copy of what we were passed.
-if (dirname.length () == 0)
-dirname = filename;
-}
-else
-dirname = pw.dir () + filename.substr (user_len+1);
-return dirname;
-}
-// If NAME has a leading ~ or ~user, Unix-style, expand it to the
-// user's home directory.  If no ~, or no <pwd.h>, just return NAME.
-std::string
-file_ops::tilde_expand (const std::string& name)
-{
-if (name.find ('~') == std::string::npos)
-return name;
-else
-{
-std::string result;
-size_t name_len = name.length ();
-// Scan through S expanding tildes as we come to them.
-size_t pos = 0;
-while (1)
-{
-if (pos > name_len)
-break;
-size_t len;
-// Make START point to the tilde which starts the expansion.
-size_t start = tilde_find_prefix (name.substr (pos), len);
-result.append (name.substr (pos, start));
-// Advance STRING to the starting tilde.
-pos += start;
-// Make FINI be the index of one after the last character of the
-// username.
-size_t fini = tilde_find_suffix (name.substr (pos));
-// If both START and FINI are zero, we are all done.
-if (! (start || fini))
-break;
-// Expand the entire tilde word, and copy it into RESULT.
-std::string tilde_word = name.substr (pos, fini);
-pos += fini;
-std::string expansion = tilde_expand_word (tilde_word);
-result.append (expansion);
-}
-return result;
-}
-}
-// A vector version of the above.
-string_vector
-file_ops::tilde_expand (const string_vector& names)
-{
-string_vector retval;
-int n = names.length ();
-retval.resize (n);
-for (int i = 0; i < n; i++)
-retval[i] = file_ops::tilde_expand (names[i]);
-return retval;
-}
-int
-file_ops::umask (mode_t mode)
-{
-return octave_umask (mode);
-}
-int
-file_ops::unlink (const std::string& name)
-{
-std::string msg;
-return unlink (name, msg);
-}
-int
-file_ops::unlink (const std::string& name, std::string& msg)
-{
-msg = std::string ();
-int status = -1;
-status = octave_unlink (name.c_str ());
-if (status < 0)
-{
-using namespace std;
-msg = ::strerror (errno);
-}
-return status;
-}
-std::string
-file_ops::concat (const std::string& dir, const std::string& file)
-{
-return dir.empty ()
-? file
-: (is_dir_sep (dir[dir.length()-1])
-? dir + file
-: dir + file_ops::dir_sep_char () + file);
-}

Mercurial > octave

comparison liboctave/file-ops.cc @ 10197:4d433bd2d4dc