Method code for $parse_lib.possessive_reference()

[Turn on line numbering]

---

arg str;
var rx;

if ((rx = regexp(str, "^my$|^my +(.+)?"))) {
    return ["me", (| rx[1] |) || ""];
} else if ((rx = regexp(str, "^([^ ]+'s|[^ ]+s') *(.+)?"))) {
    if (listlen(rx) == 1)
        return 0;
    return [substr(rx[1], 1, strlen(rx[1]) - 2), rx[2]];
}
return 0;

---

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