View/Edit #54:_kick

Name(s): _kick

1:  "Begin generic security check (_kick)"
2:  if (verb == "_kick" && !args[1]:isa(this))
3:    raise(E_INVARG, "Illegal object", args[1])
4:    return E_INVARG
5:  endif
6:  "End generic security check (_kick)"
7:  {victim} = args
8:  if (parent(victim) == $trash || victim == $trash)
9:    "Good"
10: elseif (victim:isa($trash))
11:   "Bad"
12:   chparent(victim, $trash)
13: else
14:   "Ugly"
15:   raise(E_INVARG)
16: endif
17: if (!$recycler:contains(victim))
18:   "Must have escaped"
19:   move(victim, $recycler)
20: endif
21: "Last modified by Lao-Tzu (#8084) on Tue Dec 18 08:29:54 2001 MST."

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

You are not logged in.