@verb #1:"file_length filelength" this none this rxdo #55
@program #1:"file_length filelength" this none this
":file_length(<filename>)        => number of lines in file"
{file} = args
if (typeof(file) != STR)
  raise(E_TYPE, "Filename must be a string.")
endif
fh = file_open($file_utils:filespec(this, file), "r-tf")
count = 0
try
  while (!file_eof(fh))
    `file_readline(fh) ! ANY => count = count - 1'
    count = count + 1
  endwhile
finally
  file_close(fh)
endtry
return count
"Last modified by whiz (#3135) on Mon Oct  8 21:11:04 2001 MDT."
"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."
.