wrappers/pl_HTML_TreeBuilder.ml

   1 (** Wrapper around Perl [HTML::TreeBuilder] class.
   2   *
   3   * Copyright (C) 2003 Merjis Ltd.
   4   *
   5   * $Id: pl_HTML_TreeBuilder.ml,v 1.3 2003-10-16 13:41:07 rich Exp $
   6   *)
   7
   8 open Perl
   9
  10 open Pl_HTML_Parser
  11 open Pl_HTML_Element
  12
  13 let _ = eval "use HTML::TreeBuilder"
  14
  15 class html_treebuilder sv =
  16
  17 object (self)
  18   inherit html_parser sv
  19
  20   method elementify =
  21     let sv = call_method sv "elementify" [] in
  22     new html_element sv
  23 end
  24
  25 (* Note that "new" is a reserved word, so I've appended an _ character. *)
  26 let new_ () =
  27   let sv = call_class_method "HTML::TreeBuilder" "new" [] in
  28   new html_treebuilder sv
  29
  30 let new_from_file filename =
  31   let sv = call_class_method "HTML::TreeBuilder" "new_from_file"
  32              [sv_of_string filename] in
  33   new html_treebuilder sv
  34
  35 let new_from_content content =
  36   let sv = call_class_method "HTML::TreeBuilder" "new_from_content"
  37              [sv_of_string content] in
  38   new html_treebuilder sv