package lua_parser
A Lua 5.2 Parser
Install
Dune Dependency
Authors
Maintainers
Sources
1.0.2.tar.gz
md5=35b1a3c607a0e23f81322f4b99b11d13
sha512=ed3995928aaf87d68114a9d5bee1ca5b41dd359134589ef6eba4ea2cc5b41a78bc4ac35603301dc1bd29260a0908c6142fabf689a7a7d8b76a3abf8ecdbd9194
doc/src/lua_parser.lib/lexer_utils.ml.html
Source file lexer_utils.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
(* The MIT License Copyright (c) 2020 Jason D. Nielsen <drjdnielsen@gmail.com> *) open Lexing let pspos lexbuf = let p = lexbuf.lex_curr_p in Printf.sprintf "File: %s, line: %d, col: %d, token: %s" p.pos_fname p.pos_lnum (p.pos_cnum - p.pos_bol) (lexeme lexbuf) let lexeme lexbuf = Lexing.lexeme lexbuf let new_line lexbuf = Lexing.new_line lexbuf let len_l = ref 0 let lsbuf = Buffer.create 80 let in_lcomm lexbuf = let value = lexeme lexbuf in len_l := String.length value - 2 let out_lcomm lexbuf longcomm eolcomm = let value = lexeme lexbuf in let n = String.length value + 1 in if n = !len_l then eolcomm lexbuf else longcomm lexbuf let in_lstr lexbuf = Buffer.clear lsbuf; let value = lexeme lexbuf in Buffer.add_string lsbuf value; len_l := String.length value let out_lstr lexbuf longstr eolstr = let value = lexeme lexbuf in let n = String.length value + 1 in if n = !len_l then begin Buffer.add_string lsbuf value; eolstr lexbuf end else begin Buffer.add_string lsbuf value; longstr lexbuf end let add_buf chr = Buffer.add_char lsbuf chr let get_buf () = Buffer.contents lsbuf let nl_buf () = Buffer.add_string lsbuf "\n"
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>