diff --git a/NEWS b/NEWS index b130b4c500..c4d84740bd 100644 --- a/NEWS +++ b/NEWS @@ -49,8 +49,13 @@ Major changes include the following: * Nix expression language changes: + * New language construct: `with E1; E2' brings all attributes + defined in the attribute set E1 in scope in E2. + * Added a `map' function. + * Various new operators (e.g., string concatenation). + * An Emacs mode for editing Nix expressions (with syntax highlighting and indentation) has been added. diff --git a/src/libexpr/eval.cc b/src/libexpr/eval.cc index 215692aeb3..4454aaec45 100644 --- a/src/libexpr/eval.cc +++ b/src/libexpr/eval.cc @@ -338,6 +338,20 @@ Expr evalExpr2(EvalState & state, Expr e) return makeBool(attrs.get(name) != 0); } + /* String or path concatenation. */ + if (atMatch(m, e) >> "OpPlus" >> e1 >> e2) { + e1 = evalExpr(state, e1); + e2 = evalExpr(state, e2); + string s1, s2; + if (atMatch(m, e1) >> "Str" >> s1 && + atMatch(m, e2) >> "Str" >> s2) + return makeString(s1 + s2); + else if (atMatch(m, e1) >> "Path" >> s1 && + atMatch(m, e2) >> "Path" >> s2) + return makeString(canonPath(s1 + "/" + s2)); + else throw Error("wrong argument types in `+' operator"); + } + /* Barf. */ throw badTerm("invalid expression", e); } diff --git a/src/libexpr/nixexpr.cc b/src/libexpr/nixexpr.cc index 78f89db5e5..37288804d0 100644 --- a/src/libexpr/nixexpr.cc +++ b/src/libexpr/nixexpr.cc @@ -364,3 +364,15 @@ Expr makeBool(bool b) { return b ? ATmake("Bool(True)") : ATmake("Bool(False)"); } + + +Expr makeString(const string & s) +{ + return ATmake("Str()", s.c_str()); +} + + +Expr makePath(const Path & path) +{ + return ATmake("Path()", path.c_str()); +} diff --git a/src/libexpr/nixexpr.hh b/src/libexpr/nixexpr.hh index 30145c87b3..657e6055c4 100644 --- a/src/libexpr/nixexpr.hh +++ b/src/libexpr/nixexpr.hh @@ -92,5 +92,11 @@ void checkVarDefs(const ATermMap & def, Expr e); /* Create an expression representing a boolean. */ Expr makeBool(bool b); +/* Create an expression representing a string. */ +Expr makeString(const string & s); + +/* Create an expression representing a path. */ +Expr makePath(const Path & path); + #endif /* !__NIXEXPR_H */ diff --git a/src/libexpr/parser.y b/src/libexpr/parser.y index 88ee8326b8..c56d89809f 100644 --- a/src/libexpr/parser.y +++ b/src/libexpr/parser.y @@ -53,6 +53,7 @@ ATerm makePos(YYLTYPE * loc, void * data) %nonassoc EQ NEQ %right UPDATE %left NEG +%left '+' %nonassoc '?' %nonassoc '~' @@ -90,6 +91,7 @@ expr_op | expr_op UPDATE expr_op { $$ = ATmake("OpUpdate(, )", $1, $3); } | expr_op '~' expr_op { $$ = ATmake("SubPath(, )", $1, $3); } | expr_op '?' ID { $$ = ATmake("OpHasAttr(, )", $1, $3); } + | expr_op '+' expr_op { $$ = ATmake("OpPlus(, )", $1, $3); } | expr_app ; diff --git a/src/libexpr/primops.cc b/src/libexpr/primops.cc index 938d9bb8c1..ade483dc70 100644 --- a/src/libexpr/primops.cc +++ b/src/libexpr/primops.cc @@ -273,8 +273,8 @@ static Expr primDerivation(EvalState & state, const ATermVector & _args) attrs.set("outPath", ATmake("(Path(), NoPos)", outPath.c_str())); attrs.set("drvPath", ATmake("(Path(), NoPos)", drvPath.c_str())); - attrs.set("drvHash", ATmake("(Str(), NoPos)", ((string) drvHash).c_str())); - attrs.set("type", ATmake("(Str(\"derivation\"), NoPos)")); + attrs.set("drvHash", ATmake("(, NoPos)", makeString(drvHash))); + attrs.set("type", ATmake("(, NoPos)", makeString("derivation"))); return makeAttrs(attrs); } @@ -284,8 +284,7 @@ static Expr primDerivation(EvalState & state, const ATermVector & _args) following the last slash. */ static Expr primBaseNameOf(EvalState & state, const ATermVector & args) { - string s = evalString(state, args[0]); - return ATmake("Str()", baseNameOf(s).c_str()); + return makeString(baseNameOf(evalString(state, args[0]))); } @@ -298,7 +297,7 @@ static Expr primToString(EvalState & state, const ATermVector & args) if (atMatch(m, arg) >> "Str" >> s || atMatch(m, arg) >> "Path" >> s || atMatch(m, arg) >> "Uri" >> s) - return ATmake("Str()", s.c_str()); + return makeString(s); else throw Error("cannot coerce value to string"); }