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