package melange

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

Install 

dune-project
 Dependency

github.com Readme Edit opam file Versions (30)

Authors

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

Maintainers

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

Sources

melange-6.0.1-52.tbz
sha256=20123039b9009362857915da348376b637023eebe2e1152f8c619f352564e558
sha512=90d59d247691adcb6a9de74584db923cfb758b835466aa2230c907416d535acec39e34b76fb1ac00b4ee78ab8b56c8017cb4c5154e191db8ce15b54dcc84c545

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