Source file `tyxml_top.ml`

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
let file = {|
let _xml_pp = Tyxml.Xml.pp () ;;
#install_printer _xml_pp ;;

let _svg_pp = Tyxml.Svg.pp () ;;
#install_printer _svg_pp ;;
let _svg_pp_elt fmt x = Tyxml.Svg.pp_elt () fmt x ;;
#install_printer _svg_pp_elt ;;

let _html_pp = Tyxml.Html.pp () ;;
#install_printer _html_pp ;;
let _html_pp_elt fmt x = Tyxml.Html.pp_elt () fmt x ;;
#install_printer _html_pp_elt ;;
|}

let eval_string
      ?(print_outcome = false) ?(err_formatter = Format.err_formatter) str =
  let lexbuf = Lexing.from_string str in
  let phrases = !Toploop.parse_use_file lexbuf in
  let f phrase =
    ignore (Toploop.execute_phrase print_outcome err_formatter phrase)
  in
  List.iter f phrases

let () = ignore (eval_string file)