Method code for $not_lock_frob.lock_name()

[Turn on line numbering]

---

arg lock, @type;

[(type ?= 'literal)] = type;
switch (type) {
    case 'literal:
        return "(!" + lock[1].lock_name(type) + ")";
    default:
        return "not " + lock[1].lock_name(type);
}

---

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