(* Wrapper around Perl HTML::TreeBuilder class.
 * Copyright (C) 2003 Merjis Ltd.
 * $Id: pl_HTML_TreeBuilder.ml,v 1.1 2003-10-12 17:33:15 rich Exp $
 *)

open Perl

open Pl_HTML_Parser
open Pl_HTML_Element

class html_treebuilder sv =

object (self)
  inherit html_parser sv

  method elementify =
    let sv = call_method sv "elementify" [] in
    new html_element sv
end

(* Note that "new" is a reserved word, so I've appended an _ character. *)
let new_ () =
  let sv = call_class_method "HTML::TreeBuilder" "new" [] in
  new html_treebuilder sv

let new_from_file filename =
  let sv = call_class_method "HTML::TreeBuilder" "new_from_file"
	     [sv_of_string filename] in
  new html_treebuilder sv

let new_from_content content =
  let sv = call_class_method "HTML::TreeBuilder" "new_from_content"
	     [sv_of_string content] in
  new html_treebuilder sv