@verb #1:"filelist" this none this rxd #55
@program #1:"filelist" this none this
":filelist([<detailed>]) => list of files on this object"
if (!this.r && !$perm_utils:controls(caller_perms(), this))
  raise(E_PERM)
  "-r object"
else
  {?name} = args
  out = {}
  for x in (file_list(this:basedir(), @args))
    if (!(x in {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}))
      out = {@out, $file_utils:trans_from(x)}
    endif
  endfor
  return out
endif
"Last modified by Dax (#789) on Mon Nov  8 15:14:32 1999 MST."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.