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-51.tbz
sha256=b1b1c61bb3dff9e8f0a9f450039967aef6b085d88a1088d521cec883ca010310
sha512=119693451a8023dac297e5e8dde81736781fb9b47b73e1adc2dbfeaedc0b48423444a87ad941c4196e4f569591faf7054d7f854aa850d248b566eb718d166eb9

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