Method code for $not_lock_frob.lock_name()

[Turn off line numbering]

---

  1: arg lock, @type;
  2: 
  3: [(type ?= 'literal)] = type;
  4: switch (type) {
  5:     case 'literal:
  6:         return "(!" + lock[1].lock_name(type) + ")";
  7:     default:
  8:         return "not " + lock[1].lock_name(type);
  9: }

---

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