package melange

  1. Overview
  2. Docs
Toolchain to produce JS from Reason/OCaml

Install 

dune-project
 Dependency

github.com Readme Edit opam file Versions (42)

Authors

  1. A
    Antonio Nuno Monteiro <anmonteiro@gmail.com>

Maintainers

  1. A
    Antonio Nuno Monteiro <anmonteiro@gmail.com>

Sources

melange-7.0.0-52.tbz
sha256=4a38934c6244e456366a57dfbfb1a09a2e1e93c3b1cac105242cd6e4311e237f
sha512=2526cfe8c0078d28592e23add72f55dd285c74146d6fb3efacb4f26b086362f36ae4737eb13c3f65cddc426897021f89e5d40c9c30c37a4dd784727a7f5457d6

doc/src/melange.js_parser/js_id.ml.html

Source file js_id.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
(*
 * Copyright (c) Meta Platforms, Inc. and affiliates.
 *
 * This source code is licensed under the MIT license found in the
 * LICENSE file in the root directory of this source tree.
 *)

external ( .!() ) : (int * int) array -> int -> int * int = "%array_unsafe_get"

let rec search (arr : _ array) (start : int) (finish : int) target =
  if start > finish then
    false
  else
    let mid = start + ((finish - start) / 2) in
    let (a, b) = arr.!(mid) in
    if target < a then
      search arr start (mid - 1) target
    else if target >= b then
      search arr (mid + 1) finish target
    else
      true

let is_valid_unicode_id (i : int) =
  search Js_id_unicode.id_continue 0 (Array.length Js_id_unicode.id_continue - 1) i