Method code for $foundation.clear_msg()

[Turn off line numbering]

---

  1: arg name, @branches;
  2: var messages, branch, msg;
  3: 
  4: caller() != definer() && (> .perms(sender()) <);
  5: messages = msgs || #[];
  6: if (!dict_contains(messages, name))
  7:     return;
  8: if (!branches) {
  9:     messages = dict_del(messages, name);
 10: } else {
 11:     msg = messages[name];
 12:     for branch in (branches) {
 13:         if (dict_contains(msg, branch))
 14:             msg = dict_del(msg, branch);
 15:     }
 16:     if (!msg)
 17:         messages = dict_del(messages, name);
 18: }
 19: if (!messages)
 20:     clear_var('msgs);
 21: else
 22:     msgs = messages;

---

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