package textutils
Text output utilities
Install
Dune Dependency
Authors
Maintainers
Sources
textutils-v0.15.0.tar.gz
sha256=c0368fb6ad18727cd69fbfb20dd734fb7f7189707107d1f88d8de15837dc22df
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 fields, 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 ;;