home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / programmieren / e / e_v3.3a / src.lha / Src / Tools / File / filetest.e < prev   
Encoding:
Text File  |  1992-09-02  |  285 b   |  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.