Switch to edit mode.
Name(s): filelist1: ":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."