package ocamlformat-mlx-lib
OCaml .mlx Code Formatter
Install
Dune Dependency
Authors
Maintainers
Sources
ocamlformat-mlx-0.27.0.1.tbz
sha256=4557bcca3d2bd2b6d37b046a84a82a1bed83e46e45e363c0b209d30d70c0ec77
sha512=2802651c733bf3535ce9d2e4e533729da75b17e9507d911f4d79d1a68f35ddfb82db1daf8815a46d57a9937dea5b5466d523739c217ace0e446738208037ec2d
doc/src/ocamlformat-mlx-lib.parser_shims/ocamlformat_parser_shims.ml.html
Source file ocamlformat_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 63 64 65 66 67 68
(* Stdlib shims are separated because they are also used by the compiler libs shims. *) include Ocamlformat_stdlib_shims module Misc = Misc_ module Clflags : sig val include_dirs : string list ref val debug : bool ref val unsafe : bool ref val open_modules : string list ref val absname : bool ref val use_threads : bool ref val principal : bool ref val recursive_types : bool ref val applicative_functors : bool ref val for_package : string option ref val transparent_modules : bool ref val locations : bool ref val color : Misc.Color.setting option ref val error_style : Misc.Error_style.setting option ref val unboxed_types : bool ref val no_std_include : bool ref end = struct let include_dirs = ref ([] : string list)(* -I *) let = ref ([] : string list) 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 type paths = {visible: string list; hidden: string list} let get_paths () = {visible= []; hidden= []} let init ~auto_include:_ ~visible:_ ~hidden:_ = () let auto_include_otherlibs _ _ s = s end module Builtin_attributes = struct type current_phase = Parser | Invariant_check let register_attr _ _ = () let mark_payload_attrs_used _ = () end module Format_doc = Format_doc
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>