File: pl_HTML_TreeBuilder.ml

package info (click to toggle)
perl4caml 0.9.3-7
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 380 kB
  • ctags: 571
  • sloc: ml: 1,525; ansic: 934; makefile: 226; sh: 52; perl: 45
file content (38 lines) | stat: -rw-r--r-- 915 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
(** Wrapper around Perl [HTML::TreeBuilder] class.
  *
  * Copyright (C) 2003 Merjis Ltd.
  *
  * $Id: pl_HTML_TreeBuilder.ml,v 1.3 2003/10/16 13:41:07 rich Exp $
  *)

open Perl

open Pl_HTML_Parser
open Pl_HTML_Element

let _ = eval "use HTML::TreeBuilder"

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