~ubuntu-branches/ubuntu/trusty/sexplib310/trusty

« back to all changes in this revision

Viewing changes to top/sexplib_install_printers.ml

• browse files at revision 12
• compare with another revision
• download diff
• download tarball
• view history from revision 12

Show diffs side-by-side

added

removed

top/sexplib_install_printers.ml

 

1

let printers = [ "Sexplib.Sexp.pp_hum" ]

 

2

 

 

3

let eval_string

 

4

      ?(print_outcome = false) ?(err_formatter = Format.err_formatter) str =

 

5

  let lexbuf = Lexing.from_string str in

 

6

  let phrase = !Toploop.parse_toplevel_phrase lexbuf in

 

7

  Toploop.execute_phrase print_outcome err_formatter phrase

 

8

 

 

9

let rec install_printers = function

 

10

  | [] -> true

 

11

  | printer :: printers ->

 

12

      let cmd = Printf.sprintf "#install_printer %s;;" printer in

 

13

      eval_string cmd && install_printers printers

 

14

 

 

15

let () =

 

16

  if not (install_printers printers) then

 

17

    Format.eprintf "Problem installing Sexplib-printers@."

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1