22 lines
831 B
OCaml
22 lines
831 B
OCaml
let read_all () =
|
|
In_channel.set_binary_mode stdin true;
|
|
let open Types in
|
|
let t = Emitter.create
|
|
and culr =
|
|
Processing.Culriser.create ~s:[| 0; 2; 1; 3; 4 |]
|
|
~f:[ (function RGB (r, g, _) -> (g > 0 || r = 255) | _ -> true) ]
|
|
[| Simple 0; Simple 1; Simple 2; RGB (255, 0, 127); RGB (0, 200, 0) |]
|
|
in
|
|
Emitter.serialise t (Ansi [ Fg (Processing.Culriser.next culr) ]);
|
|
Angstrom_unix.parse_many ~buf_size:4096 Parse.culr_parse
|
|
(fun c ->
|
|
c |> Processing.ansi_filter
|
|
|> Processing.Culriser.add_colour culr t
|
|
|> Emitter.serialise t)
|
|
stdin
|
|
|> function
|
|
| _, Ok _ ->
|
|
Emitter.flush t
|
|
(* print_endline ("didn't parse this much: " ^ string_of_int unparsed.len ^ "\nunparsed:\n" ^ (Bigstringaf.substring unparsed.buf ~off:unparsed.off ~len:unparsed.len) ); *)
|
|
| _ -> ()
|