home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / dev / AmigaE / E_v3.2a / Src / Tools / File / filetest.e < prev   
Text File  |  1992-09-02  |  285b  |  14 lines
  1. -> test files
  2.  
  3. MODULE 'tools/file', 'tools/exceptions'
  4.  
  5. PROC main() HANDLE
  6.   DEF m,l,n,list,x,y=1
  7.   m,l:=readfile(arg)
  8.   WriteF('file has \d lines:\n\n',n:=countstrings(m,l))
  9.   list:=stringsinfile(m,l,n)
  10.   ForAll({x},list,`WriteF('\d\t\s\n',y++,x))
  11. EXCEPT
  12.   report_exception()
  13. ENDPROC
  14.