package js_of_ocaml-compiler
Compiler from OCaml bytecode to JavaScript
Install
Dune Dependency
Authors
Maintainers
Sources
js_of_ocaml-5.7.1.tbz
sha256=0ea48e2aa8904ec562f225fa093ff674b54e0e7514dae8627b8fd8f77210383d
sha512=c6df6875631d0f7e647e31dff26da696869e83391a1040461445d2ed895985f83f60acdd045b773f05c955e3d61cee10491d947df6071637e1bb65cd373d6285
doc/src/js_of_ocaml-compiler/findlib.ml.html
Source file findlib.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
(* Js_of_ocaml compiler * http://www.ocsigen.org/js_of_ocaml/ * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License as published by * the Free Software Foundation, with linking exception; * either version 2.1 of the License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *) open! Stdlib let find_pkg_dir_ref = ref (fun _ -> None) let set_find_pkg_dir f = find_pkg_dir_ref := f let find_pkg_dir pkg = !find_pkg_dir_ref pkg let path_require_findlib path = match String.drop_prefix path ~prefix:"+" with | None -> None | Some suffix -> ( match String.lsplit2 ~on:'/' suffix with | None -> Some ("stdlib", suffix) | Some (pkg, suffix) -> Some (pkg, suffix)) let find paths name = match path_require_findlib name with | Some (pkg, suffix) -> ( match find_pkg_dir pkg with | None -> None | Some dir -> Fs.find_in_path [] (Filename.concat dir suffix)) | None -> Fs.find_in_path paths name
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>