Fixed for Perl 5.8.2.
[perl4caml.git] / 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