package devkit
Development kit - general purpose library
Install
Dune Dependency
Authors
Maintainers
Sources
devkit-1.20240429.tbz
sha256=222f8ac131b1d970dab7eeb2714bfd6b9338b88b1082e6e01c136ae19e7eaef4
sha512=c9e6d93e3d21e5530c0f4d5baca51bf1f0a5d19248f8af7678d0665bb5cdf295d7aaaaa3e50eb2e44b8720e55097cc675af4dc8ec45acf9da39feb3eae1405d5
doc/src/devkit.core/control.ml.html
Source file control.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
let bracket resource destroy k = Std.finally (fun () -> destroy resource) k resource let wrapped acc result k = let r = ref None in let () = Std.finally (fun () -> r := Some (result acc)) k acc in match !r with | None -> assert false | Some x -> x let with_open_in_txt name = bracket (open_in name) close_in_noerr let with_open_out_txt name = bracket (open_out name) close_out_noerr let with_open_in_bin name = bracket (open_in_bin name) close_in_noerr let with_open_out_bin name = bracket (open_out_bin name) close_out_noerr let with_open_out_temp_file ?temp_dir ~mode = bracket (Filename.open_temp_file ~mode ?temp_dir "dvkt" "tmp") (fun (_,ch) -> close_out_noerr ch) let with_open_out_temp_bin k = with_open_out_temp_file ~mode:[Open_binary] k let with_open_out_temp_txt k = with_open_out_temp_file ~mode:[Open_text] k let wrapped_output io = wrapped io IO.close_out let wrapped_outs k = wrapped_output (IO.output_string ()) k let with_input io = bracket io IO.close_in let with_input_bin name k = with_open_in_bin name (fun ch -> k (IO.input_channel ch)) let with_input_txt name k = with_open_in_txt name (fun ch -> k (IO.input_channel ch)) let with_output io = bracket io IO.close_out let with_output_bin name k = with_open_out_bin name (fun ch -> bracket (IO.output_channel ch) IO.flush k) let with_output_txt name k = with_open_out_txt name (fun ch -> bracket (IO.output_channel ch) IO.flush k) let with_opendir dir = bracket (Unix.opendir dir) Unix.closedir
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>