package hxd

  1. Overview
  2. Docs
Hexdump in OCaml

Install 

dune-project
 Dependency

github.com Readme Changelog MIT License Edit opam file Versions (8)

Authors

  1. R
    Romain Calascibetta <romain.calascibetta@gmail.com>

Maintainers

  1. R
    Romain Calascibetta <romain.calascibetta@gmail.com>

Sources

hxd-0.3.5.tbz
sha256=135235f7c12b4fdfc2a6f764fd08e9ab7eb438856e02c6e668d73ba89ce77443
sha512=8b55c2f619d9df5db78990f9c52462416a6da71f36d570ea2ad1b640605132cbb4dd3df078f041d5fde721d61baa6d6efb9a0163f738efaf4a429660a3a665a6

doc/src/hxd.core/fmt_meta.ml.html

Source file fmt_meta.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
type Format.stag += Hxd_style_renderer

let style_renderer_tag = Hxd_style_renderer
let meta_store ppf = Format.pp_get_formatter_stag_functions ppf ()
let set_meta_store ppf store = Format.pp_set_formatter_stag_functions ppf store
let meta_raw store tag = store.Format.mark_open_stag tag

let set_meta ppf store ~style_renderer =
  let meta ~extra = function
    | Hxd_style_renderer -> style_renderer
    | stag -> extra stag in
  let extra = (meta_store ppf).mark_open_stag in
  let store = {store with Format.mark_open_stag= meta ~extra} in
  set_meta_store ppf store