#
# $Id: testhtml.icn,v 1.1.1.1 2002/01/12 23:00:41 rparlett Exp $
#
# This file is in the public domain.
#
# Author: Robert Parlett (parlett@dial.pipex.com)
#

import xml

procedure main(a)
   p := HtmlParser()

   every e := !a do {
      f := open(e) | stop("couldnt open" || e)
      s := ""
      every s ||:= !f
      close(f)
      d := p.parse(s) | stop("couldnt parse " || e)
      d.print_structure()
      write("------------")
   }
end