package ocamlformat-lib
OCaml Code Formatter
Install
Dune Dependency
Authors
Maintainers
Sources
ocamlformat-0.26.1.tbz
sha256=da006e427f15b9ec612fb808d446599bd9b7c3ee25abeb3d555747a70d74c6d7
sha512=b7413f8dc47ba3a2372e89d59cae54f9a602ab81e31cd14ed986a831111080b79a5a3cc45dac04d8ffae5054c35bf29fe9559f145c76c87a30e191ed5400942a
doc/src/ocamlformat-lib.parser_shims/parser_shims.ml.html
Source file parser_shims.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
module List = struct include List let rec find_map f = function | [] -> None | x :: l -> begin match f x with | Some _ as result -> result | None -> find_map f l end end module Int = struct include Int let min x y = if x <= y then x else y let max x y = if x >= y then x else y end module Misc = struct include Misc module Color = struct include Color let default_setting = Auto end module Error_style = struct include Error_style let default_setting = Contextual end end module Clflags = struct let include_dirs = ref ([] : string list)(* -I *) let debug = ref false (* -g *) let unsafe = ref false (* -unsafe *) let absname = ref false (* -absname *) let use_threads = ref false (* -thread *) let open_modules = ref [] (* -open *) let principal = ref false (* -principal *) let recursive_types = ref false (* -rectypes *) let applicative_functors = ref true (* -no-app-funct *) let for_package = ref (None: string option) (* -for-pack *) let transparent_modules = ref false (* -trans-mod *) let locations = ref true (* -d(no-)locations *) let color = ref None (* -color *) let error_style = ref None (* -error-style *) let unboxed_types = ref false let no_std_include = ref false end module Load_path = struct type dir type auto_include_callback = (dir -> string -> string option) -> string -> string let init ~auto_include:_ _ = () let get_paths () = [] let auto_include_otherlibs _ _ s = s end
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>