394
@verb #7407:"is_called_from" this none this rxdo #60
@program #7407:"is_called_from" this none this
"$perm_utils:is_called_from(object[, verbname]) => true or false"
"$perm_utils:is_called_from(verbname) => true or false"
""
"This function checks whether the calling verb is in turn being called by any"
"verb (directly or indirectly) on the specified object with the specified"
"verbname. If either parameter is omitted, the function will ignore that check"
"and only check the supplied parameter."
{obj_index, verb_index} = {1, 2}
if (typeof(args[obj_index]) == $STR)
  "We really have a verbname here"
  {obj_index, verb_index} = {verb_index, obj_index}
endif
for caller in (callers())
  if (`caller[1] == args[obj_index] ! E_RANGE => 1' && `caller[2] == args[verb_index] ! E_RANGE => 1')
    return 1
  endif
endfor
return 0
"Last modified by Dax (#789) on Tue May  3 13:43:11 2005 MDT."
.

0