Method code for $foundation.clear_msg()

[Turn on line numbering]

---

arg name, @branches;
var messages, branch, msg;

caller() != definer() && (> .perms(sender()) <);
messages = msgs || #[];
if (!dict_contains(messages, name))
    return;
if (!branches) {
    messages = dict_del(messages, name);
} else {
    msg = messages[name];
    for branch in (branches) {
        if (dict_contains(msg, branch))
            msg = dict_del(msg, branch);
    }
    if (!msg)
        messages = dict_del(messages, name);
    else
        messages = dict_add(messages, name, msg);
}
if (!messages)
    clear_var('msgs);
else
    msgs = messages;

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

---

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