2003-11-18 12:06:07 +00:00
|
|
|
#include "nixexpr.hh"
|
2005-01-19 16:39:47 +00:00
|
|
|
#include "derivations.hh"
|
2022-03-05 13:40:24 +00:00
|
|
|
#include "eval.hh"
|
|
|
|
#include "symbol-table.hh"
|
2006-09-04 21:06:23 +00:00
|
|
|
#include "util.hh"
|
2004-10-26 22:54:26 +00:00
|
|
|
|
2008-05-21 11:17:31 +00:00
|
|
|
#include <cstdlib>
|
2004-10-26 22:54:26 +00:00
|
|
|
|
2006-09-04 21:06:23 +00:00
|
|
|
namespace nix {
|
|
|
|
|
2022-12-12 23:48:04 +00:00
|
|
|
struct SourcePathAdapter : AbstractPos
|
|
|
|
{
|
|
|
|
Path path;
|
|
|
|
|
|
|
|
SourcePathAdapter(Path path)
|
|
|
|
: path(std::move(path))
|
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
std::optional<std::string> getSource() const override
|
|
|
|
{
|
|
|
|
try {
|
|
|
|
return readFile(path);
|
|
|
|
} catch (Error &) {
|
|
|
|
return std::nullopt;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void print(std::ostream & out) const override
|
|
|
|
{
|
|
|
|
out << path;
|
|
|
|
}
|
|
|
|
};
|
|
|
|
|
|
|
|
struct StringPosAdapter : AbstractPos
|
|
|
|
{
|
|
|
|
void print(std::ostream & out) const override
|
|
|
|
{
|
|
|
|
out << "«string»";
|
|
|
|
}
|
|
|
|
};
|
|
|
|
|
|
|
|
struct StdinPosAdapter : AbstractPos
|
|
|
|
{
|
|
|
|
void print(std::ostream & out) const override
|
|
|
|
{
|
|
|
|
out << "«stdin»";
|
|
|
|
}
|
|
|
|
};
|
|
|
|
|
|
|
|
Pos::operator std::shared_ptr<AbstractPos>() const
|
|
|
|
{
|
|
|
|
std::shared_ptr<AbstractPos> pos;
|
|
|
|
|
|
|
|
if (auto path = std::get_if<Path>(&origin))
|
|
|
|
pos = std::make_shared<SourcePathAdapter>(*path);
|
|
|
|
else if (std::get_if<stdin_tag>(&origin))
|
|
|
|
pos = std::make_shared<StdinPosAdapter>();
|
|
|
|
else if (std::get_if<string_tag>(&origin))
|
|
|
|
pos = std::make_shared<StringPosAdapter>();
|
|
|
|
|
|
|
|
if (pos) {
|
|
|
|
pos->line = line;
|
|
|
|
pos->column = column;
|
|
|
|
}
|
|
|
|
|
|
|
|
return pos;
|
|
|
|
}
|
|
|
|
|
2010-04-14 14:42:32 +00:00
|
|
|
/* Displaying abstract syntax trees. */
|
|
|
|
|
2022-02-25 15:00:00 +00:00
|
|
|
static void showString(std::ostream & str, std::string_view s)
|
2014-10-20 06:44:32 +00:00
|
|
|
{
|
|
|
|
str << '"';
|
2022-02-25 15:00:00 +00:00
|
|
|
for (auto c : s)
|
2014-10-20 06:44:32 +00:00
|
|
|
if (c == '"' || c == '\\' || c == '$') str << "\\" << c;
|
|
|
|
else if (c == '\n') str << "\\n";
|
|
|
|
else if (c == '\r') str << "\\r";
|
|
|
|
else if (c == '\t') str << "\\t";
|
|
|
|
else str << c;
|
|
|
|
str << '"';
|
|
|
|
}
|
|
|
|
|
2022-04-22 19:45:39 +00:00
|
|
|
std::ostream & operator <<(std::ostream & str, const SymbolStr & symbol)
|
2014-10-20 06:44:32 +00:00
|
|
|
{
|
2022-04-22 19:45:39 +00:00
|
|
|
std::string_view s = symbol;
|
|
|
|
|
2015-12-17 14:15:28 +00:00
|
|
|
if (s.empty())
|
|
|
|
str << "\"\"";
|
|
|
|
else if (s == "if") // FIXME: handle other keywords
|
2014-10-20 06:44:32 +00:00
|
|
|
str << '"' << s << '"';
|
|
|
|
else {
|
|
|
|
char c = s[0];
|
|
|
|
if (!((c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z') || c == '_')) {
|
|
|
|
showString(str, s);
|
2022-04-22 19:45:39 +00:00
|
|
|
return str;
|
2014-10-20 06:44:32 +00:00
|
|
|
}
|
|
|
|
for (auto c : s)
|
|
|
|
if (!((c >= 'a' && c <= 'z') ||
|
|
|
|
(c >= 'A' && c <= 'Z') ||
|
|
|
|
(c >= '0' && c <= '9') ||
|
|
|
|
c == '_' || c == '\'' || c == '-')) {
|
|
|
|
showString(str, s);
|
2022-04-22 19:45:39 +00:00
|
|
|
return str;
|
2014-10-20 06:44:32 +00:00
|
|
|
}
|
|
|
|
str << s;
|
|
|
|
}
|
|
|
|
return str;
|
|
|
|
}
|
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
void Expr::show(const SymbolTable & symbols, std::ostream & str) const
|
2010-04-12 22:03:27 +00:00
|
|
|
{
|
|
|
|
abort();
|
|
|
|
}
|
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
void ExprInt::show(const SymbolTable & symbols, std::ostream & str) const
|
2010-04-12 18:30:11 +00:00
|
|
|
{
|
|
|
|
str << n;
|
|
|
|
}
|
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
void ExprFloat::show(const SymbolTable & symbols, std::ostream & str) const
|
2016-01-04 23:40:40 +00:00
|
|
|
{
|
|
|
|
str << nf;
|
|
|
|
}
|
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
void ExprString::show(const SymbolTable & symbols, std::ostream & str) const
|
2010-04-12 18:30:11 +00:00
|
|
|
{
|
2014-10-20 06:44:32 +00:00
|
|
|
showString(str, s);
|
2010-04-12 18:30:11 +00:00
|
|
|
}
|
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
void ExprPath::show(const SymbolTable & symbols, std::ostream & str) const
|
2010-04-12 18:30:11 +00:00
|
|
|
{
|
|
|
|
str << s;
|
|
|
|
}
|
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
void ExprVar::show(const SymbolTable & symbols, std::ostream & str) const
|
2010-04-12 18:30:11 +00:00
|
|
|
{
|
2022-03-05 13:40:24 +00:00
|
|
|
str << symbols[name];
|
2010-04-12 18:30:11 +00:00
|
|
|
}
|
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
void ExprSelect::show(const SymbolTable & symbols, std::ostream & str) const
|
2010-04-12 18:30:11 +00:00
|
|
|
{
|
2022-03-05 13:40:24 +00:00
|
|
|
str << "(";
|
|
|
|
e->show(symbols, str);
|
|
|
|
str << ")." << showAttrPath(symbols, attrPath);
|
|
|
|
if (def) {
|
|
|
|
str << " or (";
|
|
|
|
def->show(symbols, str);
|
|
|
|
str << ")";
|
|
|
|
}
|
2010-04-12 18:30:11 +00:00
|
|
|
}
|
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
void ExprOpHasAttr::show(const SymbolTable & symbols, std::ostream & str) const
|
2010-04-12 21:21:24 +00:00
|
|
|
{
|
2022-03-05 13:40:24 +00:00
|
|
|
str << "((";
|
|
|
|
e->show(symbols, str);
|
|
|
|
str << ") ? " << showAttrPath(symbols, attrPath) << ")";
|
2010-04-12 21:21:24 +00:00
|
|
|
}
|
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
void ExprAttrs::show(const SymbolTable & symbols, std::ostream & str) const
|
2010-04-12 18:30:11 +00:00
|
|
|
{
|
|
|
|
if (recursive) str << "rec ";
|
|
|
|
str << "{ ";
|
2022-02-25 08:21:04 +00:00
|
|
|
typedef const decltype(attrs)::value_type * Attr;
|
|
|
|
std::vector<Attr> sorted;
|
|
|
|
for (auto & i : attrs) sorted.push_back(&i);
|
2022-03-05 13:40:24 +00:00
|
|
|
std::sort(sorted.begin(), sorted.end(), [&](Attr a, Attr b) {
|
|
|
|
std::string_view sa = symbols[a->first], sb = symbols[b->first];
|
|
|
|
return sa < sb;
|
|
|
|
});
|
2022-02-25 08:21:04 +00:00
|
|
|
for (auto & i : sorted) {
|
|
|
|
if (i->second.inherited)
|
2022-03-05 13:40:24 +00:00
|
|
|
str << "inherit " << symbols[i->first] << " " << "; ";
|
|
|
|
else {
|
|
|
|
str << symbols[i->first] << " = ";
|
|
|
|
i->second.e->show(symbols, str);
|
|
|
|
str << "; ";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
for (auto & i : dynamicAttrs) {
|
|
|
|
str << "\"${";
|
|
|
|
i.nameExpr->show(symbols, str);
|
|
|
|
str << "}\" = ";
|
|
|
|
i.valueExpr->show(symbols, str);
|
|
|
|
str << "; ";
|
2022-02-25 08:21:04 +00:00
|
|
|
}
|
2010-04-12 18:30:11 +00:00
|
|
|
str << "}";
|
|
|
|
}
|
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
void ExprList::show(const SymbolTable & symbols, std::ostream & str) const
|
2010-04-12 18:30:11 +00:00
|
|
|
{
|
|
|
|
str << "[ ";
|
2022-03-05 13:40:24 +00:00
|
|
|
for (auto & i : elems) {
|
|
|
|
str << "(";
|
|
|
|
i->show(symbols, str);
|
|
|
|
str << ") ";
|
|
|
|
}
|
2010-04-12 18:30:11 +00:00
|
|
|
str << "]";
|
|
|
|
}
|
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
void ExprLambda::show(const SymbolTable & symbols, std::ostream & str) const
|
2010-04-12 18:30:11 +00:00
|
|
|
{
|
|
|
|
str << "(";
|
2021-10-06 15:08:08 +00:00
|
|
|
if (hasFormals()) {
|
2010-04-12 18:30:11 +00:00
|
|
|
str << "{ ";
|
|
|
|
bool first = true;
|
2015-07-17 17:24:28 +00:00
|
|
|
for (auto & i : formals->formals) {
|
2010-04-12 18:30:11 +00:00
|
|
|
if (first) first = false; else str << ", ";
|
2022-03-05 13:40:24 +00:00
|
|
|
str << symbols[i.name];
|
|
|
|
if (i.def) {
|
|
|
|
str << " ? ";
|
|
|
|
i.def->show(symbols, str);
|
|
|
|
}
|
2010-04-12 18:30:11 +00:00
|
|
|
}
|
2014-10-20 06:44:32 +00:00
|
|
|
if (formals->ellipsis) {
|
|
|
|
if (!first) str << ", ";
|
|
|
|
str << "...";
|
|
|
|
}
|
2010-04-12 18:30:11 +00:00
|
|
|
str << " }";
|
2022-03-05 13:40:24 +00:00
|
|
|
if (arg) str << " @ ";
|
2010-04-12 18:30:11 +00:00
|
|
|
}
|
2022-03-05 13:40:24 +00:00
|
|
|
if (arg) str << symbols[arg];
|
|
|
|
str << ": ";
|
|
|
|
body->show(symbols, str);
|
|
|
|
str << ")";
|
2010-04-12 18:30:11 +00:00
|
|
|
}
|
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
void ExprCall::show(const SymbolTable & symbols, std::ostream & str) const
|
2020-02-24 00:32:01 +00:00
|
|
|
{
|
2022-03-05 13:40:24 +00:00
|
|
|
str << '(';
|
|
|
|
fun->show(symbols, str);
|
2020-02-24 00:32:01 +00:00
|
|
|
for (auto e : args) {
|
|
|
|
str << ' ';
|
2022-03-05 13:40:24 +00:00
|
|
|
e->show(symbols, str);
|
2020-02-24 00:32:01 +00:00
|
|
|
}
|
|
|
|
str << ')';
|
|
|
|
}
|
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
void ExprLet::show(const SymbolTable & symbols, std::ostream & str) const
|
2010-04-13 13:42:25 +00:00
|
|
|
{
|
2014-10-20 06:44:32 +00:00
|
|
|
str << "(let ";
|
2015-07-17 17:24:28 +00:00
|
|
|
for (auto & i : attrs->attrs)
|
|
|
|
if (i.second.inherited) {
|
2022-03-05 13:40:24 +00:00
|
|
|
str << "inherit " << symbols[i.first] << "; ";
|
2014-10-20 06:44:32 +00:00
|
|
|
}
|
2022-03-05 13:40:24 +00:00
|
|
|
else {
|
|
|
|
str << symbols[i.first] << " = ";
|
|
|
|
i.second.e->show(symbols, str);
|
|
|
|
str << "; ";
|
2014-10-20 06:44:32 +00:00
|
|
|
}
|
2022-03-05 13:40:24 +00:00
|
|
|
str << "in ";
|
|
|
|
body->show(symbols, str);
|
|
|
|
str << ")";
|
2010-04-13 13:42:25 +00:00
|
|
|
}
|
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
void ExprWith::show(const SymbolTable & symbols, std::ostream & str) const
|
2010-04-12 18:30:11 +00:00
|
|
|
{
|
2022-03-05 13:40:24 +00:00
|
|
|
str << "(with ";
|
|
|
|
attrs->show(symbols, str);
|
|
|
|
str << "; ";
|
|
|
|
body->show(symbols, str);
|
|
|
|
str << ")";
|
2010-04-12 18:30:11 +00:00
|
|
|
}
|
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
void ExprIf::show(const SymbolTable & symbols, std::ostream & str) const
|
2010-04-12 18:30:11 +00:00
|
|
|
{
|
2022-03-05 13:40:24 +00:00
|
|
|
str << "(if ";
|
|
|
|
cond->show(symbols, str);
|
|
|
|
str << " then ";
|
|
|
|
then->show(symbols, str);
|
|
|
|
str << " else ";
|
|
|
|
else_->show(symbols, str);
|
|
|
|
str << ")";
|
2010-04-12 18:30:11 +00:00
|
|
|
}
|
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
void ExprAssert::show(const SymbolTable & symbols, std::ostream & str) const
|
2010-04-12 21:21:24 +00:00
|
|
|
{
|
2022-03-05 13:40:24 +00:00
|
|
|
str << "assert ";
|
|
|
|
cond->show(symbols, str);
|
|
|
|
str << "; ";
|
|
|
|
body->show(symbols, str);
|
2010-04-12 21:21:24 +00:00
|
|
|
}
|
2010-04-12 18:30:11 +00:00
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
void ExprOpNot::show(const SymbolTable & symbols, std::ostream & str) const
|
2010-04-12 21:21:24 +00:00
|
|
|
{
|
2022-03-05 13:40:24 +00:00
|
|
|
str << "(! ";
|
|
|
|
e->show(symbols, str);
|
|
|
|
str << ")";
|
2010-04-12 21:21:24 +00:00
|
|
|
}
|
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
void ExprConcatStrings::show(const SymbolTable & symbols, std::ostream & str) const
|
2010-04-12 21:21:24 +00:00
|
|
|
{
|
|
|
|
bool first = true;
|
2014-10-20 06:44:32 +00:00
|
|
|
str << "(";
|
2015-07-17 17:24:28 +00:00
|
|
|
for (auto & i : *es) {
|
2010-04-12 21:21:24 +00:00
|
|
|
if (first) first = false; else str << " + ";
|
2022-03-05 13:40:24 +00:00
|
|
|
i.second->show(symbols, str);
|
2010-04-12 21:21:24 +00:00
|
|
|
}
|
2014-10-20 06:44:32 +00:00
|
|
|
str << ")";
|
2010-04-12 21:21:24 +00:00
|
|
|
}
|
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
void ExprPos::show(const SymbolTable & symbols, std::ostream & str) const
|
2013-11-18 19:14:54 +00:00
|
|
|
{
|
|
|
|
str << "__curPos";
|
|
|
|
}
|
|
|
|
|
2010-04-12 21:21:24 +00:00
|
|
|
|
|
|
|
std::ostream & operator << (std::ostream & str, const Pos & pos)
|
2004-04-05 22:27:41 +00:00
|
|
|
{
|
2022-12-12 23:48:04 +00:00
|
|
|
if (auto pos2 = (std::shared_ptr<AbstractPos>) pos) {
|
|
|
|
str << *pos2;
|
|
|
|
} else
|
2010-04-12 21:21:24 +00:00
|
|
|
str << "undefined position";
|
2020-05-21 20:28:45 +00:00
|
|
|
|
2010-04-12 21:21:24 +00:00
|
|
|
return str;
|
2004-04-05 22:27:41 +00:00
|
|
|
}
|
2003-11-03 20:30:40 +00:00
|
|
|
|
2010-04-14 14:42:32 +00:00
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
std::string showAttrPath(const SymbolTable & symbols, const AttrPath & attrPath)
|
2011-07-06 10:58:17 +00:00
|
|
|
{
|
2013-12-31 23:56:26 +00:00
|
|
|
std::ostringstream out;
|
|
|
|
bool first = true;
|
2015-03-06 13:24:08 +00:00
|
|
|
for (auto & i : attrPath) {
|
|
|
|
if (!first) out << '.'; else first = false;
|
2022-03-05 13:40:24 +00:00
|
|
|
if (i.symbol)
|
|
|
|
out << symbols[i.symbol];
|
|
|
|
else {
|
|
|
|
out << "\"${";
|
|
|
|
i.expr->show(symbols, out);
|
|
|
|
out << "}\"";
|
|
|
|
}
|
2011-07-06 10:58:17 +00:00
|
|
|
}
|
2013-12-31 23:56:26 +00:00
|
|
|
return out.str();
|
2011-07-06 10:58:17 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2010-04-14 14:42:32 +00:00
|
|
|
/* Computing levels/displacements for variables. */
|
|
|
|
|
2022-05-19 16:48:10 +00:00
|
|
|
void Expr::bindVars(EvalState & es, const std::shared_ptr<const StaticEnv> & env)
|
2010-04-14 14:42:32 +00:00
|
|
|
{
|
|
|
|
abort();
|
|
|
|
}
|
|
|
|
|
2022-05-19 16:48:10 +00:00
|
|
|
void ExprInt::bindVars(EvalState & es, const std::shared_ptr<const StaticEnv> & env)
|
2010-04-14 14:42:32 +00:00
|
|
|
{
|
2022-05-23 03:45:24 +00:00
|
|
|
if (es.debugRepl)
|
2022-05-19 16:48:10 +00:00
|
|
|
es.exprEnvs.insert(std::make_pair(this, env));
|
|
|
|
}
|
2010-04-14 14:42:32 +00:00
|
|
|
|
2022-05-19 16:48:10 +00:00
|
|
|
void ExprFloat::bindVars(EvalState & es, const std::shared_ptr<const StaticEnv> & env)
|
2016-01-04 23:40:40 +00:00
|
|
|
{
|
2022-05-23 03:45:24 +00:00
|
|
|
if (es.debugRepl)
|
2022-05-19 16:48:10 +00:00
|
|
|
es.exprEnvs.insert(std::make_pair(this, env));
|
2016-01-04 23:40:40 +00:00
|
|
|
}
|
|
|
|
|
2022-05-19 16:48:10 +00:00
|
|
|
void ExprString::bindVars(EvalState & es, const std::shared_ptr<const StaticEnv> & env)
|
2010-04-14 14:42:32 +00:00
|
|
|
{
|
2022-05-23 03:45:24 +00:00
|
|
|
if (es.debugRepl)
|
2022-05-19 16:48:10 +00:00
|
|
|
es.exprEnvs.insert(std::make_pair(this, env));
|
2010-04-14 14:42:32 +00:00
|
|
|
}
|
|
|
|
|
2022-05-19 16:48:10 +00:00
|
|
|
void ExprPath::bindVars(EvalState & es, const std::shared_ptr<const StaticEnv> & env)
|
2010-04-14 14:42:32 +00:00
|
|
|
{
|
2022-05-23 03:45:24 +00:00
|
|
|
if (es.debugRepl)
|
2022-05-19 16:48:10 +00:00
|
|
|
es.exprEnvs.insert(std::make_pair(this, env));
|
2010-04-14 14:42:32 +00:00
|
|
|
}
|
|
|
|
|
2022-05-19 16:48:10 +00:00
|
|
|
void ExprVar::bindVars(EvalState & es, const std::shared_ptr<const StaticEnv> & env)
|
2010-04-14 14:42:32 +00:00
|
|
|
{
|
2022-05-23 03:45:24 +00:00
|
|
|
if (es.debugRepl)
|
2022-05-19 16:48:10 +00:00
|
|
|
es.exprEnvs.insert(std::make_pair(this, env));
|
2021-10-02 19:47:36 +00:00
|
|
|
|
2010-04-14 14:42:32 +00:00
|
|
|
/* Check whether the variable appears in the environment. If so,
|
|
|
|
set its level and displacement. */
|
2021-10-22 20:49:58 +00:00
|
|
|
const StaticEnv * curEnv;
|
2020-02-24 13:33:01 +00:00
|
|
|
Level level;
|
2021-10-22 20:49:58 +00:00
|
|
|
int withLevel = -1;
|
|
|
|
for (curEnv = env.get(), level = 0; curEnv; curEnv = curEnv->up, level++) {
|
|
|
|
if (curEnv->isWith) {
|
|
|
|
if (withLevel == -1) withLevel = level;
|
|
|
|
} else {
|
2020-02-21 17:31:16 +00:00
|
|
|
auto i = curEnv->find(name);
|
2021-10-22 20:49:58 +00:00
|
|
|
if (i != curEnv->vars.end()) {
|
|
|
|
fromWith = false;
|
|
|
|
this->level = level;
|
|
|
|
displ = i->second;
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
}
|
2021-09-23 19:02:39 +00:00
|
|
|
}
|
|
|
|
|
2021-10-22 20:49:58 +00:00
|
|
|
/* Otherwise, the variable must be obtained from the nearest
|
|
|
|
enclosing `with'. If there is no `with', then we can issue an
|
|
|
|
"undefined variable" error now. */
|
2022-04-29 17:24:54 +00:00
|
|
|
if (withLevel == -1)
|
2021-10-22 20:49:58 +00:00
|
|
|
throw UndefinedVarError({
|
2022-03-05 13:40:24 +00:00
|
|
|
.msg = hintfmt("undefined variable '%1%'", es.symbols[name]),
|
|
|
|
.errPos = es.positions[pos]
|
2021-10-22 20:49:58 +00:00
|
|
|
});
|
|
|
|
fromWith = true;
|
|
|
|
this->level = withLevel;
|
2008-08-14 10:04:22 +00:00
|
|
|
}
|
|
|
|
|
2022-05-19 16:48:10 +00:00
|
|
|
void ExprSelect::bindVars(EvalState & es, const std::shared_ptr<const StaticEnv> & env)
|
2010-04-14 14:42:32 +00:00
|
|
|
{
|
2022-05-23 03:45:24 +00:00
|
|
|
if (es.debugRepl)
|
2022-05-19 16:48:10 +00:00
|
|
|
es.exprEnvs.insert(std::make_pair(this, env));
|
2021-10-02 19:47:36 +00:00
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
e->bindVars(es, env);
|
|
|
|
if (def) def->bindVars(es, env);
|
2015-07-17 17:24:28 +00:00
|
|
|
for (auto & i : attrPath)
|
2022-03-05 13:40:24 +00:00
|
|
|
if (!i.symbol)
|
|
|
|
i.expr->bindVars(es, env);
|
2010-04-14 14:42:32 +00:00
|
|
|
}
|
2008-08-14 10:04:22 +00:00
|
|
|
|
2022-05-19 16:48:10 +00:00
|
|
|
void ExprOpHasAttr::bindVars(EvalState & es, const std::shared_ptr<const StaticEnv> & env)
|
2004-02-03 14:45:34 +00:00
|
|
|
{
|
2022-05-23 03:45:24 +00:00
|
|
|
if (es.debugRepl)
|
2022-05-19 16:48:10 +00:00
|
|
|
es.exprEnvs.insert(std::make_pair(this, env));
|
2021-10-02 19:47:36 +00:00
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
e->bindVars(es, env);
|
2015-07-17 17:24:28 +00:00
|
|
|
for (auto & i : attrPath)
|
2022-03-05 13:40:24 +00:00
|
|
|
if (!i.symbol)
|
|
|
|
i.expr->bindVars(es, env);
|
2010-04-14 14:42:32 +00:00
|
|
|
}
|
|
|
|
|
2022-05-19 16:48:10 +00:00
|
|
|
void ExprAttrs::bindVars(EvalState & es, const std::shared_ptr<const StaticEnv> & env)
|
2010-04-14 14:42:32 +00:00
|
|
|
{
|
2022-05-23 03:45:24 +00:00
|
|
|
if (es.debugRepl)
|
2022-05-19 16:48:10 +00:00
|
|
|
es.exprEnvs.insert(std::make_pair(this, env));
|
2021-10-02 19:47:36 +00:00
|
|
|
|
2010-04-14 14:42:32 +00:00
|
|
|
if (recursive) {
|
2022-05-05 10:29:14 +00:00
|
|
|
auto newEnv = std::make_shared<StaticEnv>(false, env.get(), recursive ? attrs.size() : 0);
|
2013-09-02 14:29:15 +00:00
|
|
|
|
2020-02-24 13:33:01 +00:00
|
|
|
Displacement displ = 0;
|
2015-07-17 17:24:28 +00:00
|
|
|
for (auto & i : attrs)
|
2021-11-30 21:15:02 +00:00
|
|
|
newEnv->vars.emplace_back(i.first, i.second.displ = displ++);
|
2020-02-21 17:31:16 +00:00
|
|
|
|
|
|
|
// No need to sort newEnv since attrs is in sorted order.
|
2013-09-02 14:29:15 +00:00
|
|
|
|
2015-07-17 17:24:28 +00:00
|
|
|
for (auto & i : attrs)
|
2022-03-05 13:40:24 +00:00
|
|
|
i.second.e->bindVars(es, i.second.inherited ? env : newEnv);
|
2021-09-15 22:16:53 +00:00
|
|
|
|
|
|
|
for (auto & i : dynamicAttrs) {
|
2022-04-28 18:32:57 +00:00
|
|
|
i.nameExpr->bindVars(es, newEnv);
|
|
|
|
i.valueExpr->bindVars(es, newEnv);
|
2021-09-15 22:16:53 +00:00
|
|
|
}
|
2004-10-25 16:54:56 +00:00
|
|
|
}
|
2021-09-15 22:16:53 +00:00
|
|
|
else {
|
2015-07-17 17:24:28 +00:00
|
|
|
for (auto & i : attrs)
|
2022-03-05 13:40:24 +00:00
|
|
|
i.second.e->bindVars(es, env);
|
Dynamic attrs
This adds new syntax for attribute names:
* attrs."${name}" => getAttr name attrs
* attrs ? "${name}" => isAttrs attrs && hasAttr attrs name
* attrs."${name}" or def => if attrs ? "${name}" then attrs."${name}" else def
* { "${name}" = value; } => listToAttrs [{ inherit name value; }]
Of course, it's a bit more complicated than that. The attribute chains
can be arbitrarily long and contain combinations of static and dynamic
parts (e.g. attrs."${foo}".bar."${baz}" or qux), which is relatively
straightforward for the getAttrs/hasAttrs cases but is more complex for
the listToAttrs case due to rules about duplicate attribute definitions.
For attribute sets with dynamic attribute names, duplicate static
attributes are detected at parse time while duplicate dynamic attributes
are detected when the attribute set is forced. So, for example, { a =
null; a.b = null; "${"c"}" = true; } will be a parse-time error, while
{ a = {}; "${"a"}".b = null; c = true; } will be an eval-time error
(technically that case could theoretically be detected at parse time,
but the general case would require full evaluation). Moreover, duplicate
dynamic attributes are not allowed even in cases where they would be
with static attributes ({ a.b.d = true; a.b.c = false; } is legal, but {
a."${"b"}".d = true; a."${"b"}".c = false; } is not). This restriction
might be relaxed in the future in cases where the static variant would
not be an error, but it is not obvious that that is desirable.
Finally, recursive attribute sets with dynamic attributes have the
static attributes in scope but not the dynamic ones. So rec { a = true;
"${"b"}" = a; } is equivalent to { a = true; b = true; } but rec {
"${"a"}" = true; b = a; } would be an error or use a from the
surrounding scope if it exists.
Note that the getAttr, getAttr or default, and hasAttr are all
implemented purely in the parser as syntactic sugar, while attribute
sets with dynamic attribute names required changes to the AST to be
implemented cleanly.
This is an alternative solution to and closes #167
Signed-off-by: Shea Levy <shea@shealevy.com>
2013-09-21 03:25:30 +00:00
|
|
|
|
2021-09-15 22:16:53 +00:00
|
|
|
for (auto & i : dynamicAttrs) {
|
2022-04-28 18:32:57 +00:00
|
|
|
i.nameExpr->bindVars(es, env);
|
|
|
|
i.valueExpr->bindVars(es, env);
|
2021-09-15 22:16:53 +00:00
|
|
|
}
|
Dynamic attrs
This adds new syntax for attribute names:
* attrs."${name}" => getAttr name attrs
* attrs ? "${name}" => isAttrs attrs && hasAttr attrs name
* attrs."${name}" or def => if attrs ? "${name}" then attrs."${name}" else def
* { "${name}" = value; } => listToAttrs [{ inherit name value; }]
Of course, it's a bit more complicated than that. The attribute chains
can be arbitrarily long and contain combinations of static and dynamic
parts (e.g. attrs."${foo}".bar."${baz}" or qux), which is relatively
straightforward for the getAttrs/hasAttrs cases but is more complex for
the listToAttrs case due to rules about duplicate attribute definitions.
For attribute sets with dynamic attribute names, duplicate static
attributes are detected at parse time while duplicate dynamic attributes
are detected when the attribute set is forced. So, for example, { a =
null; a.b = null; "${"c"}" = true; } will be a parse-time error, while
{ a = {}; "${"a"}".b = null; c = true; } will be an eval-time error
(technically that case could theoretically be detected at parse time,
but the general case would require full evaluation). Moreover, duplicate
dynamic attributes are not allowed even in cases where they would be
with static attributes ({ a.b.d = true; a.b.c = false; } is legal, but {
a."${"b"}".d = true; a."${"b"}".c = false; } is not). This restriction
might be relaxed in the future in cases where the static variant would
not be an error, but it is not obvious that that is desirable.
Finally, recursive attribute sets with dynamic attributes have the
static attributes in scope but not the dynamic ones. So rec { a = true;
"${"b"}" = a; } is equivalent to { a = true; b = true; } but rec {
"${"a"}" = true; b = a; } would be an error or use a from the
surrounding scope if it exists.
Note that the getAttr, getAttr or default, and hasAttr are all
implemented purely in the parser as syntactic sugar, while attribute
sets with dynamic attribute names required changes to the AST to be
implemented cleanly.
This is an alternative solution to and closes #167
Signed-off-by: Shea Levy <shea@shealevy.com>
2013-09-21 03:25:30 +00:00
|
|
|
}
|
2010-04-14 14:42:32 +00:00
|
|
|
}
|
|
|
|
|
2022-05-19 16:48:10 +00:00
|
|
|
void ExprList::bindVars(EvalState & es, const std::shared_ptr<const StaticEnv> & env)
|
2010-04-14 14:42:32 +00:00
|
|
|
{
|
2022-05-23 03:45:24 +00:00
|
|
|
if (es.debugRepl)
|
2022-05-19 16:48:10 +00:00
|
|
|
es.exprEnvs.insert(std::make_pair(this, env));
|
2021-10-02 19:47:36 +00:00
|
|
|
|
2015-07-17 17:24:28 +00:00
|
|
|
for (auto & i : elems)
|
2022-03-05 13:40:24 +00:00
|
|
|
i->bindVars(es, env);
|
2010-04-14 14:42:32 +00:00
|
|
|
}
|
|
|
|
|
2022-05-19 16:48:10 +00:00
|
|
|
void ExprLambda::bindVars(EvalState & es, const std::shared_ptr<const StaticEnv> & env)
|
2010-04-14 14:42:32 +00:00
|
|
|
{
|
2022-05-23 03:45:24 +00:00
|
|
|
if (es.debugRepl)
|
2022-05-19 16:48:10 +00:00
|
|
|
es.exprEnvs.insert(std::make_pair(this, env));
|
2021-10-02 19:47:36 +00:00
|
|
|
|
2022-05-05 10:29:14 +00:00
|
|
|
auto newEnv = std::make_shared<StaticEnv>(
|
|
|
|
false, env.get(),
|
|
|
|
(hasFormals() ? formals->formals.size() : 0) +
|
|
|
|
(!arg ? 0 : 1));
|
2013-09-02 14:29:15 +00:00
|
|
|
|
2020-02-24 13:33:01 +00:00
|
|
|
Displacement displ = 0;
|
2013-09-02 14:29:15 +00:00
|
|
|
|
2022-04-29 16:02:17 +00:00
|
|
|
if (arg) newEnv->vars.emplace_back(arg, displ++);
|
2010-04-14 14:42:32 +00:00
|
|
|
|
2021-10-06 15:08:08 +00:00
|
|
|
if (hasFormals()) {
|
2015-07-17 17:24:28 +00:00
|
|
|
for (auto & i : formals->formals)
|
2021-11-30 21:15:02 +00:00
|
|
|
newEnv->vars.emplace_back(i.name, displ++);
|
2020-02-21 17:31:16 +00:00
|
|
|
|
2021-11-30 21:15:02 +00:00
|
|
|
newEnv->sort();
|
2010-04-14 14:42:32 +00:00
|
|
|
|
2015-07-17 17:24:28 +00:00
|
|
|
for (auto & i : formals->formals)
|
2022-03-05 13:40:24 +00:00
|
|
|
if (i.def) i.def->bindVars(es, newEnv);
|
2004-02-03 14:45:34 +00:00
|
|
|
}
|
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
body->bindVars(es, newEnv);
|
2010-04-14 14:42:32 +00:00
|
|
|
}
|
|
|
|
|
2022-05-19 16:48:10 +00:00
|
|
|
void ExprCall::bindVars(EvalState & es, const std::shared_ptr<const StaticEnv> & env)
|
2010-04-14 14:42:32 +00:00
|
|
|
{
|
2022-05-23 03:45:24 +00:00
|
|
|
if (es.debugRepl)
|
2022-05-19 16:48:10 +00:00
|
|
|
es.exprEnvs.insert(std::make_pair(this, env));
|
2021-10-02 19:47:36 +00:00
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
fun->bindVars(es, env);
|
2020-02-24 00:32:01 +00:00
|
|
|
for (auto e : args)
|
2022-03-05 13:40:24 +00:00
|
|
|
e->bindVars(es, env);
|
2020-02-24 00:32:01 +00:00
|
|
|
}
|
|
|
|
|
2022-05-19 16:48:10 +00:00
|
|
|
void ExprLet::bindVars(EvalState & es, const std::shared_ptr<const StaticEnv> & env)
|
2010-04-14 14:42:32 +00:00
|
|
|
{
|
2022-05-23 03:45:24 +00:00
|
|
|
if (es.debugRepl)
|
2022-05-19 16:48:10 +00:00
|
|
|
es.exprEnvs.insert(std::make_pair(this, env));
|
2021-11-25 15:53:59 +00:00
|
|
|
|
2022-05-05 10:29:14 +00:00
|
|
|
auto newEnv = std::make_shared<StaticEnv>(false, env.get(), attrs->attrs.size());
|
2013-09-02 14:29:15 +00:00
|
|
|
|
2020-02-24 13:33:01 +00:00
|
|
|
Displacement displ = 0;
|
2015-07-17 17:24:28 +00:00
|
|
|
for (auto & i : attrs->attrs)
|
2021-11-30 21:15:02 +00:00
|
|
|
newEnv->vars.emplace_back(i.first, i.second.displ = displ++);
|
2020-02-21 17:31:16 +00:00
|
|
|
|
|
|
|
// No need to sort newEnv since attrs->attrs is in sorted order.
|
2013-09-02 14:29:15 +00:00
|
|
|
|
2015-07-17 17:24:28 +00:00
|
|
|
for (auto & i : attrs->attrs)
|
2022-03-05 13:40:24 +00:00
|
|
|
i.second.e->bindVars(es, i.second.inherited ? env : newEnv);
|
2013-09-02 14:29:15 +00:00
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
body->bindVars(es, newEnv);
|
2010-04-14 14:42:32 +00:00
|
|
|
}
|
|
|
|
|
2022-05-19 16:48:10 +00:00
|
|
|
void ExprWith::bindVars(EvalState & es, const std::shared_ptr<const StaticEnv> & env)
|
2010-04-14 14:42:32 +00:00
|
|
|
{
|
2022-05-23 03:45:24 +00:00
|
|
|
if (es.debugRepl)
|
2022-05-19 16:48:10 +00:00
|
|
|
es.exprEnvs.insert(std::make_pair(this, env));
|
2021-10-02 19:47:36 +00:00
|
|
|
|
2010-04-14 15:01:04 +00:00
|
|
|
/* Does this `with' have an enclosing `with'? If so, record its
|
2010-04-22 15:08:09 +00:00
|
|
|
level so that `lookupVar' can look up variables in the previous
|
|
|
|
`with' if this one doesn't contain the desired attribute. */
|
2010-04-14 15:01:04 +00:00
|
|
|
const StaticEnv * curEnv;
|
2020-02-24 13:33:01 +00:00
|
|
|
Level level;
|
2010-04-22 15:08:09 +00:00
|
|
|
prevWith = 0;
|
2021-09-14 16:49:22 +00:00
|
|
|
for (curEnv = env.get(), level = 1; curEnv; curEnv = curEnv->up, level++)
|
2010-04-14 15:01:04 +00:00
|
|
|
if (curEnv->isWith) {
|
|
|
|
prevWith = level;
|
|
|
|
break;
|
|
|
|
}
|
2013-09-02 14:29:15 +00:00
|
|
|
|
2022-05-23 03:45:24 +00:00
|
|
|
if (es.debugRepl)
|
2022-05-19 16:48:10 +00:00
|
|
|
es.exprEnvs.insert(std::make_pair(this, env));
|
2022-04-28 18:32:57 +00:00
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
attrs->bindVars(es, env);
|
2022-05-05 10:29:14 +00:00
|
|
|
auto newEnv = std::make_shared<StaticEnv>(true, env.get());
|
2022-03-05 13:40:24 +00:00
|
|
|
body->bindVars(es, newEnv);
|
2005-11-04 15:17:05 +00:00
|
|
|
}
|
|
|
|
|
2022-05-19 16:48:10 +00:00
|
|
|
void ExprIf::bindVars(EvalState & es, const std::shared_ptr<const StaticEnv> & env)
|
2010-04-14 14:42:32 +00:00
|
|
|
{
|
2022-05-23 03:45:24 +00:00
|
|
|
if (es.debugRepl)
|
2022-05-19 16:48:10 +00:00
|
|
|
es.exprEnvs.insert(std::make_pair(this, env));
|
2021-10-02 19:47:36 +00:00
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
cond->bindVars(es, env);
|
|
|
|
then->bindVars(es, env);
|
|
|
|
else_->bindVars(es, env);
|
2010-04-14 14:42:32 +00:00
|
|
|
}
|
|
|
|
|
2022-05-19 16:48:10 +00:00
|
|
|
void ExprAssert::bindVars(EvalState & es, const std::shared_ptr<const StaticEnv> & env)
|
2010-04-14 14:42:32 +00:00
|
|
|
{
|
2022-05-23 03:45:24 +00:00
|
|
|
if (es.debugRepl)
|
2022-05-19 16:48:10 +00:00
|
|
|
es.exprEnvs.insert(std::make_pair(this, env));
|
2021-10-02 19:47:36 +00:00
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
cond->bindVars(es, env);
|
|
|
|
body->bindVars(es, env);
|
2010-04-14 14:42:32 +00:00
|
|
|
}
|
|
|
|
|
2022-05-19 16:48:10 +00:00
|
|
|
void ExprOpNot::bindVars(EvalState & es, const std::shared_ptr<const StaticEnv> & env)
|
2010-04-14 14:42:32 +00:00
|
|
|
{
|
2022-05-23 03:45:24 +00:00
|
|
|
if (es.debugRepl)
|
2022-05-19 16:48:10 +00:00
|
|
|
es.exprEnvs.insert(std::make_pair(this, env));
|
2021-10-02 19:47:36 +00:00
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
e->bindVars(es, env);
|
2010-04-14 14:42:32 +00:00
|
|
|
}
|
2005-11-04 15:17:05 +00:00
|
|
|
|
2022-05-19 16:48:10 +00:00
|
|
|
void ExprConcatStrings::bindVars(EvalState & es, const std::shared_ptr<const StaticEnv> & env)
|
2005-11-04 15:17:05 +00:00
|
|
|
{
|
2022-05-23 03:45:24 +00:00
|
|
|
if (es.debugRepl)
|
2022-05-19 16:48:10 +00:00
|
|
|
es.exprEnvs.insert(std::make_pair(this, env));
|
2021-10-02 19:47:36 +00:00
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
for (auto & i : *this->es)
|
|
|
|
i.second->bindVars(es, env);
|
2004-02-03 14:45:34 +00:00
|
|
|
}
|
2006-10-16 15:55:34 +00:00
|
|
|
|
2022-05-19 16:48:10 +00:00
|
|
|
void ExprPos::bindVars(EvalState & es, const std::shared_ptr<const StaticEnv> & env)
|
2013-11-18 19:14:54 +00:00
|
|
|
{
|
2022-05-23 03:45:24 +00:00
|
|
|
if (es.debugRepl)
|
2022-05-19 16:48:10 +00:00
|
|
|
es.exprEnvs.insert(std::make_pair(this, env));
|
2013-11-18 19:14:54 +00:00
|
|
|
}
|
|
|
|
|
2006-10-16 15:55:34 +00:00
|
|
|
|
2013-05-16 17:08:02 +00:00
|
|
|
/* Storing function names. */
|
|
|
|
|
2022-04-22 19:45:39 +00:00
|
|
|
void Expr::setName(Symbol name)
|
2013-05-16 17:08:02 +00:00
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2022-04-22 19:45:39 +00:00
|
|
|
void ExprLambda::setName(Symbol name)
|
2013-05-16 17:08:02 +00:00
|
|
|
{
|
|
|
|
this->name = name;
|
|
|
|
body->setName(name);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2022-03-05 13:40:24 +00:00
|
|
|
std::string ExprLambda::showNamePos(const EvalState & state) const
|
2013-05-16 17:08:02 +00:00
|
|
|
{
|
2022-03-05 13:40:24 +00:00
|
|
|
std::string id(name
|
|
|
|
? concatStrings("'", state.symbols[name], "'")
|
|
|
|
: "anonymous function");
|
|
|
|
return fmt("%1% at %2%", id, state.positions[pos]);
|
2013-05-16 17:08:02 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2013-10-08 13:34:57 +00:00
|
|
|
|
|
|
|
/* Symbol table. */
|
|
|
|
|
|
|
|
size_t SymbolTable::totalSize() const
|
|
|
|
{
|
|
|
|
size_t n = 0;
|
2022-04-22 19:45:39 +00:00
|
|
|
dump([&] (const std::string & s) { n += s.size(); });
|
2013-10-08 13:34:57 +00:00
|
|
|
return n;
|
|
|
|
}
|
|
|
|
|
2006-09-04 21:06:23 +00:00
|
|
|
}
|