home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Tools / File / filetest.e < prev   
Encoding:
Text File  |  1994-10-06  |  356 b   |  14 lines
  1. -> test des fichiers
  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('Le fichier a \d lignes:\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.