home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / e / amigae30a.lha / Amiga_E_v3.0a / Src / Tools / File / filetest.e < prev   
Encoding:
Text File  |  1992-09-02  |  344 b   |  14 lines
  1. -> test files
  2.  
  3. MODULE 'tools/file'
  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.   WriteF('exception: "\s", info: "\s"\n',[exception,0],IF exceptioninfo THEN exceptioninfo ELSE '')
  13. ENDPROC
  14.