Method code for $foundation.get_msg()

[Turn on line numbering]

---

arg name, definer;
var get, msg, b, dmsg;

// override default 'getter process?
dmsg = (| (definer.defined_msgs())[name] |);
if (!dmsg)
    throw(~nomsg, "No message '" + name + "' defined on " + definer);
if ((get = (| dmsg['getter] |)))
    return .(get)(name, definer);

// inherit each branch individually
msg = #[];
for b in (dmsg['branches])
    msg = dict_add(msg, b, ._get_msg_branch(name, b, definer));
return msg;

// $#Edited: 20 Aug 04 10:07 $lynx

---

["// Created 26-Mar-1995 as a part of ColdCore, see: @help Credit"]