View/Edit #1:property_loc*ation

Switch to edit mode.

Name(s): property_loc*ation
1:  "Returns the ancestor upon which some inherited property is defined."
2:  "$thing:property_location('description')  =>  {#1}"
3:  "$thing:property_location('owned_objects')  => 0"
4:  "Copied from Lao-Tzu (#8084)"
5:  prop = args[1]
6:  if (prop in $code_utils.builtin_props)
7:    return {$new_root}
8:  endif
9:  parent = this
10: while (valid(parent))
11:   if (prop in `properties(parent) ! E_PERM => {}')
12:     return {parent}
13:   endif
14:   parent = parent(parent)
15: endwhile
16: return 0
17: "Last modified by Slacker (#55) on Mon Jun 21 05:46:05 1999 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Dax (#789)

You are not logged in.

[home | help | who | search | setup | code]