View/Edit #1:fileread(old)

Switch to edit mode.

Name(s): fileread(old)
1:  "Copied from Root Class! (#1):fileread by manta (#7165)Apr 24 22:29:00 2000"
2:  {file, ?from = 1, ?to = $maxint} = args
3:  if (this:fileaccess(file) == "" && !caller_perms():controls(this))
4:    raise(E_PERM)
5:  else
6:    t = {}
7:    fh = file_open($file_utils:filespec(this, file), "r-tf")
8:    try
9:      while (to - from >= length(t))
10:       try
11:         t = {@t, file_readline(fh)}
12:       except ("E_FILE")
13:         break
14:       endtry
15:       $command_utils:suspend_if_needed()
16:     endwhile
17:     return t
18:   finally
19:     file_close(fh)
20:   endtry
21:   return t
22: endif
23: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
24: "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]