forked from lix-project/lix
* `nix --delete' command.
This commit is contained in:
parent
c0cbaef4be
commit
692b562342
14
src/nix.cc
14
src/nix.cc
|
@ -112,8 +112,20 @@ static void opEvaluate(Strings opFlags, Strings opArgs)
|
|||
static void opDelete(Strings opFlags, Strings opArgs)
|
||||
{
|
||||
getArgType(opFlags);
|
||||
if (!opFlags.empty()) throw UsageError("unknown flag");
|
||||
|
||||
cerr << "delete!\n";
|
||||
for (Strings::iterator it = opArgs.begin();
|
||||
it != opArgs.end(); it++)
|
||||
{
|
||||
Hash hash;
|
||||
if (argType == atpHash)
|
||||
hash = parseHash(*it);
|
||||
else if (argType == atpName)
|
||||
throw Error("not implemented");
|
||||
else
|
||||
throw Error("invalid argument type");
|
||||
deleteValue(hash);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
|
|
@ -68,7 +68,7 @@ void runTests()
|
|||
#endif
|
||||
|
||||
/* Restoring. */
|
||||
#if 1
|
||||
#if 0
|
||||
MySource source;
|
||||
restorePath("outdir", source);
|
||||
cout << (string) hashPath("outdir") << endl;
|
||||
|
@ -116,6 +116,8 @@ void runTests()
|
|||
Expr e3 = ATmake("Deref(Hash(<str>))", ((string) h3).c_str());
|
||||
|
||||
evalTest(e3);
|
||||
|
||||
deleteValue(h3);
|
||||
}
|
||||
|
||||
|
||||
|
|
29
src/util.cc
29
src/util.cc
|
@ -1,5 +1,10 @@
|
|||
#include <iostream>
|
||||
|
||||
#include <sys/types.h>
|
||||
#include <sys/stat.h>
|
||||
#include <unistd.h>
|
||||
#include <dirent.h>
|
||||
|
||||
#include "util.hh"
|
||||
|
||||
|
||||
|
@ -49,6 +54,30 @@ string baseNameOf(string path)
|
|||
}
|
||||
|
||||
|
||||
void deletePath(string path)
|
||||
{
|
||||
struct stat st;
|
||||
if (lstat(path.c_str(), &st))
|
||||
throw SysError("getting attributes of path " + path);
|
||||
|
||||
if (S_ISDIR(st.st_mode)) {
|
||||
DIR * dir = opendir(path.c_str());
|
||||
|
||||
struct dirent * dirent;
|
||||
while (errno = 0, dirent = readdir(dir)) {
|
||||
string name = dirent->d_name;
|
||||
if (name == "." || name == "..") continue;
|
||||
deletePath(path + "/" + name);
|
||||
}
|
||||
|
||||
closedir(dir); /* !!! close on exception */
|
||||
}
|
||||
|
||||
if (remove(path.c_str()) == -1)
|
||||
throw SysError("cannot unlink " + path);
|
||||
}
|
||||
|
||||
|
||||
void debug(string s)
|
||||
{
|
||||
cerr << "debug: " << s << endl;
|
||||
|
|
|
@ -54,6 +54,11 @@ string dirOf(string path);
|
|||
string baseNameOf(string path);
|
||||
|
||||
|
||||
/* Delete a path; i.e., in the case of a directory, it is deleted
|
||||
recursively. Don't use this at home, kids. */
|
||||
void deletePath(string path);
|
||||
|
||||
|
||||
void debug(string s);
|
||||
|
||||
|
||||
|
|
|
@ -135,6 +135,18 @@ string fetchURL(string url)
|
|||
#endif
|
||||
|
||||
|
||||
void deleteValue(Hash hash)
|
||||
{
|
||||
string name;
|
||||
if (queryDB(nixDB, dbRefs, hash, name)) {
|
||||
string fn = absValuePath(name);
|
||||
deletePath(fn);
|
||||
delDB(nixDB, dbRefs, hash);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
/* !!! bad name, "query" implies no side effect => getValuePath() */
|
||||
string queryValuePath(Hash hash)
|
||||
{
|
||||
bool checkedNet = false;
|
||||
|
|
|
@ -13,6 +13,10 @@ using namespace std;
|
|||
Hash addValue(string pathName);
|
||||
|
||||
|
||||
/* Delete a value from the nixValues directory. */
|
||||
void deleteValue(Hash hash);
|
||||
|
||||
|
||||
/* Obtain the path of a value with the given hash. If a file with
|
||||
that hash is known to exist in the local file system (as indicated
|
||||
by the dbRefs database), we use that. Otherwise, we attempt to
|
||||
|
|
Loading…
Reference in a new issue