moraxyc/lix
0
0
Fork 0
forked from lix-project/lix
Code Pull requests Activity

* Actually go through the search directories when looking for files.

Browse source
This commit is contained in:
Eelco Dolstra 2003-07-10 09:21:40 +00:00
parent 089b436175
commit 5d4b90b689
1 changed files with 23 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
src/fix.cc
View file

@ -10,6 +10,24 @@
typedef ATerm Expr; typedef ATerm Expr;
static Strings searchDirs;
static string searchPath(string relPath)
{
for (Strings::iterator i = searchDirs.begin();
i != searchDirs.end(); i++)
{
string path = *i + "/" + relPath;
if (pathExists(path)) return path;
}
throw Error(
format("path `%1%' not found in any of the search directories")
% relPath);
}
static Expr evalFile(string fileName); static Expr evalFile(string fileName);
@ -108,7 +126,7 @@ static Expr evalExpr(Expr e)
/* Relative files. */ /* Relative files. */
if (ATmatch(e, "Relative(<str>)", &s1)) { if (ATmatch(e, "Relative(<str>)", &s1)) {
string srcPath = s1; string srcPath = searchPath(s1);
string dstPath; string dstPath;
Hash hash; Hash hash;
addToStore(srcPath, dstPath, hash); addToStore(srcPath, dstPath, hash);
@ -198,13 +216,9 @@ static Expr evalExpr(Expr e)
} }
static Strings searchPath; static Expr evalFile(string relPath)
static Expr evalFile(string fileName)
{ {
Expr e = ATreadFromNamedFile(fileName.c_str()); Expr e = ATreadFromNamedFile(searchPath(relPath).c_str());
if (!e) throw Error(format("cannot read aterm `%1%'") % fileName);
return evalExpr(e); return evalExpr(e);
} }
@ -213,7 +227,7 @@ void run(Strings args)
{ {
Strings files; Strings files;
searchPath.push_back("."); searchDirs.push_back(".");
for (Strings::iterator it = args.begin(); for (Strings::iterator it = args.begin();
it != args.end(); ) it != args.end(); )
@ -223,7 +237,7 @@ void run(Strings args)
if (arg == "--includedir" || arg == "-I") { if (arg == "--includedir" || arg == "-I") {
if (it == args.end()) if (it == args.end())
throw UsageError(format("argument required in `%1%'") % arg); throw UsageError(format("argument required in `%1%'") % arg);
searchPath.push_back(*it++); searchDirs.push_back(*it++);
} }
else if (arg[0] == '-') else if (arg[0] == '-')
throw UsageError(format("unknown flag `%1%`") % arg); throw UsageError(format("unknown flag `%1%`") % arg);