/* $Id$
-This file is part of libmsppath
-Copyright © 2006-2007 Mikko Rasa, Mikkosoft Productions
+This file is part of libmspfs
+Copyright © 2006-2008 Mikko Rasa, Mikkosoft Productions
Distributed under the LGPL
*/
-#include <dirent.h>
-#include <errno.h>
+#include <cerrno>
+#include <cstdio>
#include <msp/core/except.h>
#ifndef WIN32
#include <fnmatch.h>
#include <msp/strings/glob.h>
#endif
#include <msp/strings/utils.h>
+#include "dir.h"
#include "path.h"
+#include "stat.h"
#include "utils.h"
using namespace std;
namespace Msp {
+namespace FS {
+
+string basename(const Path &p)
+{
+ return p[-1];
+}
+
+Path dirname(const Path &p)
+{
+ if(p.size()==1)
+ {
+ if(p.is_absolute())
+ return p;
+ return ".";
+ }
+ return p.subpath(0, p.size()-1);
+}
+
+string basepart(const string &fn)
+{
+ unsigned dot=fn.rfind('.');
+ return fn.substr(0, dot);
+}
+
+string extpart(const string &fn)
+{
+ string::size_type dot=fn.rfind('.');
+ if(dot==string::npos)
+ return string();
+ return fn.substr(dot);
+}
-/**
-Fixes the case of the given path to match files / directories on the
-filesystem. Intended to be used in programs that need to interact with
-emulated Windows programs.
-*/
Path fix_case(const Path &path)
{
bool found=true;
return result;
}
-void mkdir(const Path &path, int mode)
+Path readlink(const Path &link)
{
- int err;
#ifdef WIN32
- // The win32 version of this function doesn't take the mode argument. Go figure.
- (void)mode;
- err=::mkdir(path.str().c_str());
+ (void)link;
+ throw Exception("No symbolic links on win32");
#else
- err=::mkdir(path.str().c_str(), mode);
+ char buf[4096];
+ int len=::readlink(link.str().c_str(), buf, sizeof(buf));
+ if(len==-1)
+ throw SystemError("readlink failed", errno);
+ return string(buf, len);
#endif
-
- if(err==-1)
- throw SystemError("mkdir failed", errno);
}
-/**
-Creates a directory and any parent directories if needed.
-
-@param path The path to create
-@param mode Access mode for new directories
-
-@return 0 on success, -1 on error
-*/
-void mkpath(const Path &path, int mode)
+Path realpath(const Path &path)
{
- Path p;
- for(Path::Iterator i=path.begin(); i!=path.end(); ++i)
- {
- p/=*i;
#ifdef WIN32
- if(p.size()==1 && is_windows_drive(*i))
- continue;
-#endif
- struct stat st;
- int err=stat(p, st);
- if(err==0)
- {
- if(!S_ISDIR(st.st_mode))
- throw Exception("A component exists and is not a directory");
- continue;
- }
- else if(errno!=ENOENT)
- throw SystemError("stat failed", errno);
- else
- mkdir(p, mode);
- }
-}
-
-void rmdir(const Path &path)
-{
- if(::rmdir(path.str().c_str())==-1)
- throw SystemError("rmdir failed", errno);
-}
-
-void rmdirs(const Path &path)
-{
- list<string> files=list_files(path);
- for(list<string>::iterator i=files.begin(); i!=files.end(); ++i)
+ if(path.is_absolute())
+ return path;
+ else
+ return getcwd()/path;
+#else
+ list<string> queue(path.begin(), path.end());
+ if(!path.is_absolute())
{
- Path p=path / *i;
- struct stat st=stat(p.str().c_str());
- if(S_ISDIR(st.st_mode))
- rmdirs(p);
- else
- unlink(p);
+ Path cwd=getcwd();
+ queue.insert(queue.begin(), cwd.begin(), cwd.end());
}
- rmdir(path);
-}
-
-void unlink(const Path &path)
-{
- if(::unlink(path.str().c_str())==-1)
- throw SystemError("unlink failed", errno);
-}
-
-list<string> list_files(const Path &path)
-{
- list<string> result;
- DIR *dir=opendir(path.str().c_str());
- if(dir)
+ Path real;
+ unsigned n_links=0;
+ while(!queue.empty())
{
- while(dirent *de=readdir(dir))
+ Path next=real/queue.front();
+ queue.pop_front();
+
+ struct stat st=lstat(next);
+ if(S_ISLNK(st.st_mode))
{
- const char *fn=de->d_name;
- if(fn[0]=='.' && (fn[1]==0 || (fn[1]=='.' && fn[2]==0)))
- continue;
- result.push_back(fn);
+ if(++n_links>64)
+ throw Exception("Ludicrous amount of symlinks detected in realpath, giving up");
+ Path link=readlink(next);
+ queue.insert(queue.begin(), link.begin(), link.end());
}
- closedir(dir);
+ else
+ real=next;
}
- return result;
-}
-
-bool exists(const Path &path)
-{
- return access(path.str().c_str(), F_OK)==0;
+ return real;
+#endif
}
-Filename splitext(const string &fn)
+void rename(const Path &from, const Path &to)
{
- Filename result;
- unsigned dot=fn.rfind('.');
- result.base=fn.substr(0, dot);
- if(dot!=string::npos)
- result.ext=fn.substr(dot);
- return result;
+ if(::rename(from.str().c_str(), to.str().c_str())==-1)
+ throw SystemError("rename failed", errno);
}
-int fnmatch(const string &pat, const Path &fn)
+void unlink(const Path &path)
{
-#ifdef WIN32
- return globcasematch(pat, fn.str());
-#else
- return ::fnmatch(pat.c_str(), fn.str().c_str(), FNM_PATHNAME);
-#endif
+ if(::unlink(path.str().c_str())==-1)
+ throw SystemError("unlink failed", errno);
}
Path relative(const Path &path, const Path &base)
{
Path::Iterator i=path.begin();
Path::Iterator j=base.begin();
- for(; (i!=path.end() && j!=base.end() && *i==*j); ++i,++j);
+ for(; (i!=path.end() && j!=base.end() && *i==*j); ++i, ++j) ;
Path result;
for(; j!=base.end(); ++j)
return result;
}
-/**
-Extracts the basename from the given path. Same thing as Path::Path(p)[-1],
-but faster.
-*/
-string basename(const std::string &p)
-{
- unsigned slash=p.rfind(DIRCHAR);
- if(slash==string::npos)
- return p;
- else
- return p.substr(slash+1);
-}
-
-int stat(const Path &fn, struct stat &st)
+int descendant_depth(const Path &path, const Path &parent)
{
- return ::stat(fn.str().c_str(), &st);
-}
+ Path::Iterator i=path.begin();
+ Path::Iterator j=parent.begin();
+ for(; (i!=path.end() && j!=parent.end() && *i==*j); ++i, ++j) ;
-struct stat stat(const Path &fn)
-{
- struct stat st;
- if(stat(fn, st)==-1)
- throw SystemError("stat failed", errno);
- return st;
-}
+ if(j!=parent.end())
+ return -1;
+
+ int result = 0;
+ for(; i!=path.end(); ++i)
+ ++result;
-Path getcwd()
-{
- char buf[1024];
- return ::getcwd(buf, sizeof(buf));
+ return result;
}
+} // namespace FS
} // namespace Msp