Method code for $foundation.eval_message()

[Turn on line numbering]

---

arg name, definer, vars;
var eval, msg, varkeys;

eval = (| definer.get_msg_attr(name, 'evaluator) |) || $bs_eval;
msg = $message_frob.new_with(.get_msg(name, definer));
vars = dict_add(vars, 'evaluator, eval);
if ((varkeys = (| definer.get_msg_attr(name, 'varkeys) |)))
    vars = dict_add(vars, 'varkeys, varkeys);
else
    vars = dict_add(vars, 'varkeys, 0);
msg = msg.set_vars(vars);
vars = dict_add(vars, 'time, 'pre);
return msg.eval_ctext(vars);

---

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit