View/Edit #1:descendants_with_property_suspended

Switch to edit mode.

Name(s): descendants_with_property_suspended
1:  "object:descendants_with_property_suspended(property)"
2:  " => list of descendants of object on which property is defined."
3:  "calls suspend(0) as needed"
4:  {prop} = args
5:  if (caller == this || (this.r || $perm_utils:controls(caller_perms(), this)))
6:    $command_utils:suspend_if_needed()
7:    if (``property_info(this, prop) ! E_PERM => {}' ! E_PROPNF => 0')
8:      return {this}
9:    endif
10:   r = {}
11:   set_task_perms(caller_perms())
12:   for c in (children(this))
13:     r = {@r, @c:descendants_with_property_suspended(prop)}
14:   endfor
15:   return r
16: else
17:   raise(E_PERM)
18: endif
19: "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: Slacker (#55)

You are not logged in.

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