@verb #1:"filewrite" this none this rxd #55
@program #1:"filewrite" this none this
{file, data} = args
if (!$perm_utils:controls(caller_perms(), this))
  raise(E_PERM)
elseif ($recycler:valid(this.owner) && this.owner:free_dbytes() <= 0 && !caller_perms().wizard)
  raise(E_QUOTA, "Disk quota exhasted.")
elseif (file in this.files_unwritable_by_owner && !caller_perms().wizard)
  raise(E_PERM, "File is not writable by the owner.")
endif
if (this:file_exists(file))
  perms = this:file_access(file)
else
  perms = "r"
endif
fh = file_open($file_utils:filespec(this, file), "w-tf")
try
  for x in (data)
    file_writeline(fh, tostr(x))
    $command_utils:suspend_if_needed()
  endfor
finally
  file_close(fh)
endtry
this.obj_disk_size = this.obj_disk_size + this:file_size(file)
this:file_set_access(file, perms)
"Last modified by whiz (#3135) on Tue Aug 13 22:50:02 2002 MDT."
.