2003-10-30 18:48:26 +02:00
|
|
|
#ifndef __EVAL_H
|
|
|
|
#define __EVAL_H
|
|
|
|
|
|
|
|
#include <map>
|
|
|
|
|
2003-11-18 13:22:29 +02:00
|
|
|
#include "aterm.hh"
|
|
|
|
#include "hash.hh"
|
2003-11-18 14:06:07 +02:00
|
|
|
#include "nixexpr.hh"
|
2003-10-30 18:48:26 +02:00
|
|
|
|
|
|
|
|
2004-10-25 17:38:23 +03:00
|
|
|
typedef map<Path, PathSet> DrvRoots;
|
2003-10-31 19:09:31 +02:00
|
|
|
typedef map<Path, Hash> DrvHashes;
|
2003-10-30 18:48:26 +02:00
|
|
|
|
2004-02-04 18:03:29 +02:00
|
|
|
struct EvalState;
|
2004-08-04 13:59:20 +03:00
|
|
|
|
|
|
|
/* Note: using a ATermVector is safe here, since when we call a primop
|
|
|
|
we also have an ATermList on the stack. */
|
|
|
|
typedef Expr (* PrimOp) (EvalState &, const ATermVector & args);
|
2004-02-04 18:03:29 +02:00
|
|
|
|
|
|
|
|
2003-10-30 18:48:26 +02:00
|
|
|
struct EvalState
|
|
|
|
{
|
2003-11-03 22:30:40 +02:00
|
|
|
ATermMap normalForms;
|
2004-08-04 13:59:20 +03:00
|
|
|
ATermMap primOps;
|
2004-10-25 17:38:23 +03:00
|
|
|
DrvRoots drvRoots;
|
2003-10-31 19:09:31 +02:00
|
|
|
DrvHashes drvHashes; /* normalised derivation hashes */
|
2003-10-30 18:48:26 +02:00
|
|
|
Expr blackHole;
|
|
|
|
|
2003-10-31 19:09:31 +02:00
|
|
|
unsigned int nrEvaluated;
|
|
|
|
unsigned int nrCached;
|
|
|
|
|
2003-10-30 18:48:26 +02:00
|
|
|
EvalState();
|
2004-02-04 18:03:29 +02:00
|
|
|
|
2004-08-04 13:59:20 +03:00
|
|
|
void addPrimOps();
|
|
|
|
void addPrimOp(const string & name,
|
|
|
|
unsigned int arity, PrimOp primOp);
|
2003-10-30 18:48:26 +02:00
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
/* Evaluate an expression to normal form. */
|
|
|
|
Expr evalExpr(EvalState & state, Expr e);
|
|
|
|
|
|
|
|
/* Evaluate an expression read from the given file to normal form. */
|
|
|
|
Expr evalFile(EvalState & state, const Path & path);
|
|
|
|
|
2003-10-31 19:09:31 +02:00
|
|
|
/* Specific results. */
|
|
|
|
string evalString(EvalState & state, Expr e);
|
|
|
|
Path evalPath(EvalState & state, Expr e);
|
|
|
|
|
|
|
|
/* Print statistics. */
|
|
|
|
void printEvalStats(EvalState & state);
|
|
|
|
|
2003-10-30 18:48:26 +02:00
|
|
|
|
|
|
|
#endif /* !__EVAL_H */
|