View/Edit #1:filedelete file_remove

Switch to edit mode.

Name(s): filedelete file_remove
1:  {filename} = args
2:  if (!$perm_utils:controls(caller_perms(), this))
3:    raise(E_PERM)
4:  endif
5:  try
6:    this.obj_disk_size = this.obj_disk_size - this:file_size(filename)
7:  except ("E_FILE")
8:    redo_size = 1
9:  endtry
10: file_remove($file_utils:filespec(this, filename))
11: `redo_size ! ANY' ? this:_obj_disk_size(1) | 0
12: "Last modified by Slacker (#55) on Mon Jun 21 05:46:05 1999 MDT."
13: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
14: "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.

[home | help | who | search | setup | code]