package lacaml

You can search for identifiers within the package.

in-package search v0.2.0

Lacaml - OCaml-bindings to BLAS and LAPACK

Install

Dune Dependency

mmottl.github.io Readme Changelog LGPL-2.1-or-later WITH OCaml-LGPL-linking-exception License Edit opam file Versions (29)

Authors

Maintainers

Sources

lacaml-11.0.3.tbz

sha256=720e1ad740cb2d08bcee5ce95220ba8974809f506a434f1b84ea2c9829e3821e

md5=ad8c21913b759e3334b4daf8212d3b35

doc/src/lacaml.top/lacaml_install_printers.ml.html

Source file `lacaml_install_printers.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 printers =
  [
    "Lacaml.Io.Toplevel.pp_rfvec";
    "Lacaml.Io.Toplevel.pp_rcvec";
    "Lacaml.Io.Toplevel.pp_rivec";
    "Lacaml.Io.Toplevel.pp_fmat";
    "Lacaml.Io.Toplevel.pp_cmat";
    "Lacaml.Io.Toplevel.pp_imat";
  ]

let eval_string
      ?(print_outcome = false) ?(err_formatter = Format.err_formatter) str =
  let lexbuf = Lexing.from_string str in
  let phrase = !Toploop.parse_toplevel_phrase lexbuf in
  Toploop.execute_phrase print_outcome err_formatter phrase

let rec install_printers = function
  | [] -> true
  | printer :: printers ->
      let cmd = Printf.sprintf "#install_printer %s;;" printer in
      eval_string cmd && install_printers printers

let () =
  if not (install_printers printers) then
    Format.eprintf "Problem installing LACAML-printers@."