@verb #1:"fileread(old)" this none this rxdo #55
@program #1:"fileread(old)" this none this
"Copied from Root Class! (#1):fileread by manta (#7165)Apr 24 22:29:00 2000"
{file, ?from = 1, ?to = $maxint} = args
if (this:fileaccess(file) == "" && !caller_perms():controls(this))
  raise(E_PERM)
else
  t = {}
  fh = file_open($file_utils:filespec(this, file), "r-tf")
  try
    while (to - from >= length(t))
      try
        t = {@t, file_readline(fh)}
      except ("E_FILE")
        break
      endtry
      $command_utils:suspend_if_needed()
    endwhile
    return t
  finally
    file_close(fh)
  endtry
  return t
endif
"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."
.