View/Edit #1:fileread

Switch to edit mode.

Name(s): fileread
1:  "Copied from Root Class! (#1):fileread by manta (#7165)Apr 24 22:13:09 2000"
2:  {file, ?from = 1, ?to = $maxint} = args
3:  if (this:fileaccess(file) == "" && !caller_perms():controls(this))
4:    raise(E_PERM)
5:  else
6:    fh = file_open($file_utils:filespec(this, file), "r-tf")
7:    try
8:      t = file_readlines(fh, from, to)
9:    finally
10:     file_close(fh)
11:   endtry
12:   return t
13: endif
14: "Last modified by Dax (#789) on Sun Dec 16 19:49:20 2001 MST."
15: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
16: "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]