package spin

You can search for identifiers within the package.

in-package search v0.2.0

OCaml project generator

Install

Dune Dependency

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

Authors

Thibaut Mattio

Maintainers

Thibaut Mattio

Sources

opam-spin-0.8.3.tbz

sha256=eeef9d3b89cca796d8d47ba425cee131bf14b5b0f1349927c4d8b22297b1f6b6

sha512=1850cad87f180b37e658e716986f6aa0ba76e57d6638d40b8f6e8ae2c6f60deee82218464e02356632022b394f49cc5a341e7255112aef455ffec9ca2db4cc32

doc/src/spin.inquire/utils.ml.html

Source file `utils.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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
let exit_on_user_interrupt = ref true

let exit i = raise (Exn.Exit i)

let user_interrupt () =
  if !exit_on_user_interrupt then (
    prerr_string "\nCancelled by user\n";
    flush stderr;
    exit 130)
  else
    raise Exn.Interrupted_by_user

let print_prompt ?default ?(style = Style.default) message =
  let () =
    match style.Style.qmark_icon, default with
    | "", Some default ->
      Printf.printf
        "%s [%s] "
        (Ansi.sprintf style.Style.message_format "%s" message)
        (Ansi.sprintf style.Style.default_format "%s" default)
    | qmark, Some default ->
      Printf.printf
        "%s %s [%s] "
        (Ansi.sprintf style.Style.qmark_format "%s" qmark)
        (Ansi.sprintf style.Style.message_format "%s" message)
        (Ansi.sprintf style.Style.default_format "%s" default)
    | "", None ->
      Printf.printf "%s " (Ansi.sprintf style.Style.message_format "%s" message)
    | qmark, None ->
      Printf.printf
        "%s %s "
        (Ansi.sprintf style.Style.qmark_format "%s" qmark)
        (Ansi.sprintf style.Style.message_format "%s" message)
  in
  flush stdout

let print_err ?(style = Style.default) err =
  let () =
    match style.Style.error_icon with
    | "" ->
      prerr_string (Ansi.sprintf style.Style.error_format "%s" err)
    | _ ->
      prerr_string
        (Ansi.sprintf
           style.Style.error_format
           "%s %s"
           style.Style.error_icon
           err)
  in
  flush stderr

let with_cbreak ?(when_ = Unix.TCSANOW) fd f =
  if Unix.isatty fd then (
    let term_init = Unix.tcgetattr fd in
    Unix.tcsetattr
      fd
      when_
      { term_init with
        Unix.c_icanon = false
      ; Unix.c_echo = false
      ; Unix.c_vmin = 1
      ; Unix.c_vtime = 0
      };
    try
      let result = f () in
      Unix.tcsetattr fd Unix.TCSADRAIN term_init;
      result
    with
    | Exn.Exit i ->
      Unix.tcsetattr fd Unix.TCSADRAIN term_init;
      Stdlib.exit i
    | e ->
      Unix.tcsetattr fd Unix.TCSADRAIN term_init;
      raise e)
  else
    f ()

let with_raw ?(hide_cursor = false) ?(when_ = Unix.TCSANOW) fd f =
  if Unix.isatty fd then (
    if hide_cursor then (
      Ansi.hide_cursor ();
      flush stdout);
    let term_init = Unix.tcgetattr fd in
    Unix.tcsetattr
      fd
      when_
      { term_init with
        (* Inspired from Python-3.0/Lib/tty.py: *)
        Unix.c_brkint = false
      ; Unix.c_inpck = false
      ; Unix.c_istrip = false
      ; Unix.c_ixon = false
      ; Unix.c_csize = 8
      ; Unix.c_parenb = false
      ; Unix.c_echo = false
      ; Unix.c_icanon = false
      ; Unix.c_vmin = 1
      ; Unix.c_vtime = 0
      ; Unix.c_isig = false
      };
    try
      let result = f () in
      if hide_cursor then (
        Ansi.show_cursor ();
        flush stdout);
      Unix.tcsetattr fd Unix.TCSADRAIN term_init;
      result
    with
    | Exn.Exit i ->
      if hide_cursor then (
        Ansi.show_cursor ();
        flush stdout);
      Unix.tcsetattr fd Unix.TCSADRAIN term_init;
      Stdlib.exit i
    | e ->
      Unix.tcsetattr fd Unix.TCSADRAIN term_init;
      if hide_cursor then
        Ansi.show_cursor ();
      raise e)
  else
    f ()

let erase_n_chars x =
  Ansi.move_cursor (-1 * x) 0;
  let rec aux acc i =
    if i = 0 then
      acc
    else
      aux (acc ^ " ") (i - 1)
  in
  print_string (aux "" x);
  Ansi.move_cursor (-1 * x) 0

let erase_default x = erase_n_chars (2 + String.length x)

let erase_default_opt = function None -> () | Some x -> erase_default x

package spin

Install

Dune Dependency

Authors

Maintainers

Sources

doc/src/spin.inquire/utils.ml.html

Source file utils.ml

Source file `utils.ml`