Method code for $sys.parse_valid_genders()

[Turn on line numbering]

---

arg value, action, @args;
var obj, kids, i;

if (!(| (obj = $object_lib.to_dbref("gender_" + value)) |))
    (> (obj = $object_lib.to_dbref(value)) <);
if (action == 'del) {
    if (!(obj in .get_valid_genders()))
        throw(~set, "The object '" + value + "' is not set, and thus cannot be removed");
    return obj;
}
if (!(obj in $gender.children()))
    throw(~set, "The object '" + value + "' is not a child of $gender");
return obj;

---

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