package js_of_ocaml-compiler
Compiler from OCaml bytecode to JavaScript
Install
Dune Dependency
Authors
Maintainers
Sources
js_of_ocaml-5.1.1.tbz
sha256=0feb4418d2e491d50f3cffd0f7bc94c8ac02531149a467d8966f89581f7e5ede
sha512=8e031336678dd0ebb53bc5460c123538e4a968153f8b724dab1520f98fce1e105f9dc287a6576644d527bfafc181d4d071f25cc73240ff1b512c3cccdc864fe2
doc/src/js_of_ocaml-compiler/parse_info.ml.html
Source file parse_info.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
(* Js_of_ocaml compiler * http://www.ocsigen.org/js_of_ocaml/ * Copyright (C) 2013 Hugo Heuzard * * 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 type t = { src : string option ; name : string option ; col : int ; line : int ; idx : int } let zero = { src = None; name = None; col = 0; line = 0; idx = 0 } let t_of_pos start_p = let idx = start_p.Lexing.pos_cnum in let line, col = start_p.pos_lnum, start_p.pos_cnum - start_p.pos_bol in let name = Some start_p.pos_fname in let src = Some start_p.pos_fname in { idx; line; col; name; src } let t_of_lexbuf lexbuf : t = t_of_pos lexbuf.Lexing.lex_start_p let start_position (t : t) = { Lexing.pos_fname = Option.value ~default:"" t.name ; pos_lnum = t.line ; pos_bol = t.idx - t.col ; pos_cnum = t.idx } let t_of_position ~src pos = { name = Some pos.Lexing.pos_fname ; src ; line = pos.Lexing.pos_lnum ; col = pos.Lexing.pos_cnum - pos.Lexing.pos_bol ; idx = 0 }
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>