33a
@verb #3152:"file_stat" this none this rxdo #3152
@program #3152:"file_stat" this none this
"How much of the MOO is full of files?"
!caller_perms():isa($guardian) || raise(E_PERM)
read_size = total_size = 0
for x in [#1..max_object()]
  ticks_left() > 2000 || suspend(0)
  for y in (`x:filelist() ! ANY => {}')
    if (!x:fileaccess(y))
      total_size = total_size + x:file_size(y)
    else
      read_size = read_size + x:file_size(y)
    endif
    ticks_left() > 2000 || suspend(0)
  endfor
endfor
percentage = $math_utils:round(tofloat(read_size) / tofloat(total_size) * 100.0)
return tostr("Only ", $math_utils:round(tofloat(read_size) / 1048576.0), "Mb / ", $math_utils:round(tofloat(total_size) / 1048576.0), "Mb (", percentage, "%) of MOO files are avaliable for file grepping by $programmers!")
.

0