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:     else
 19:         messages = dict_add(messages, name, msg);
 20: }
 21: if (!messages)
 22:     clear_var('msgs);
 23: else
 24:     msgs = messages;
 25: 
 26: // $#Edited: 20 Aug 04 10:13 $lynx

---

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