rexx/progs/lines.r

   1 /** count lines **/
   2 call load "files.r"
   3 lines = 0
   4 size = 0
   5 file = "$$$fff$$$"
   6 "ls" arg(1) "(stack"
   7 /*"*dir /b" arg(1) ">" file*/
   8 do queued()
   9         parse pull f
  10         l = lines(f)
  11         s = filesize(f)
  12         say format(l,5) format(s,6) f
  13         lines = lines + l
  14         size = size + s
  15 end
  16 say "total lines =" lines
  17 say "total size  =" size
  18 exit 0