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

* "trace" primop: write the trace to standard error.

Browse source
This commit is contained in:
Eelco Dolstra 2007-10-26 18:25:50 +00:00
parent cd08fb3fde
commit 0b4ed64d29
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/libexpr/primops.cc
View file

@ -296,18 +296,19 @@ static Expr prim_getEnv(EvalState & state, const ATermVector & args)
return makeStr(getEnv(name)); return makeStr(getEnv(name));
} }
/* for debugging purposes. print the first arg on stdout (perhaps stderr should be used?)
* and return the second /* Evaluate the first expression, and print its abstract syntax tree
on standard error. Then return the second expression. Useful for
debugging.
*/ */
static Expr prim_trace(EvalState & state, const ATermVector & args) static Expr prim_trace(EvalState & state, const ATermVector & args)
{ {
//string str = evalStringNoCtx(state, args[0]); Expr e = evalExpr(state, args[0]);
printMsg(lvlError, format("trace: %1%") % e);
Expr a = evalExpr(state, args[0]);
printf("traced value: %s\n", atPrint(a).c_str());
return evalExpr(state, args[1]); return evalExpr(state, args[1]);
} }
static Expr prim_relativise(EvalState & state, const ATermVector & args) static Expr prim_relativise(EvalState & state, const ATermVector & args)
{ {
PathSet context; /* !!! what to do? */ PathSet context; /* !!! what to do? */