View/Edit #1:filelist

Name(s): filelist

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

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

You are not logged in.