package textutils
Text output utilities
Install
Dune Dependency
Authors
Maintainers
Sources
v0.17.0.tar.gz
sha256=b2681af1f4029245a5c187c4f0834ac470ada6ffc69db7c7e219b3244f88b3d5
doc/src/textutils.ascii_table_kernel/table_char.ml.html
Source file table_char.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 26 27 28 29 30 31 32 33 34 35 36 37 38 39open! Core open! Import type t = { ascii : char ; utf8 : string } [@@deriving sexp_of] let connect ?top ?bottom ?left ?right () = let top, bottom, left, right = is_some top, is_some bottom, is_some left, is_some right in let ascii, utf8 = match top, bottom, left, right with | false, false, true, true -> '-', "\226\148\128" | true, true, false, false -> '|', "\226\148\130" | false, true, false, true -> '|', "\226\148\140" | false, true, true, false -> '|', "\226\148\144" | true, false, false, true -> '|', "\226\148\148" | true, false, true, false -> '|', "\226\148\152" | true, true, false, true -> '|', "\226\148\156" | true, true, true, false -> '|', "\226\148\164" | false, true, true, true -> '-', "\226\148\172" | true, false, true, true -> '-', "\226\148\180" | true, true, true, true -> '+', "\226\148\188" | false, false, true, false -> '-', "\226\149\180" | true, false, false, false -> '|', "\226\149\181" | false, false, false, true -> '-', "\226\149\182" | false, true, false, false -> '|', "\226\149\183" | false, false, false, false -> ' ', " " in { ascii; utf8 } ;; let to_buffer { ascii; utf8 } buf = function | `Ascii -> Buffer.add_char buf ascii | `Unicode -> Buffer.add_string buf utf8 ;;