Method code for $builder._build__parse_name()

[Turn on line numbering]

---

arg str, class;
var m, parent, what;

if ((m = regexp(str, "^ *\$([a-z0-9_]+) *: *(.*)$"))) {
    parent = m[1];
    what = m[2];
    if (parent) {
        catch ~namenf, ~symbol
            parent = (> lookup(tosym(parent)) <);
        with
            throw(~stop, "The object '$" + parent + "' is not valid.");
        if (!parent.is(class))
            throw(~stop, "Parent object " + parent + " is not " + class.objname().add_indefinite() + "!");
    }
} else {
    what = str;
}
if (!parent)
    parent = $place_lib.get_default(class.objname());
return [parent, what];

// $#Edited: 20 Apr 04 21:59 $brandon
// $#Edited: 20 Apr 04 22:06 $brandon

---

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