tree-sitter-ocaml 0.16.0

OCaml grammar for the tree-sitter parsing library
Documentation 
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

(*
 * Copyright (c) Facebook, Inc. and its affiliates.
 *
 * This source code is licensed under the MIT license found in the
 * LICENSE file in the root directory of this source tree.
 *)

type state

type hash = int64

external init : (int64[@unboxed]) -> state = "caml_xx_init" "caml_xx_init_unboxed"

external update : state -> string -> unit = "caml_xx_update" [@@noalloc]

external update_int : state -> 'a (* int *) -> unit = "caml_xx_update_int" [@@noalloc]

external update_int64 : state -> (int64[@unboxed]) -> unit
  = "caml_xx_update_int64" "caml_xx_update_int64_unboxed"
  [@@noalloc]

external digest : state -> (hash[@unboxed]) = "caml_xx_digest" "caml_xx_digest_unboxed" [@@noalloc]

external hash : string -> (int64[@unboxed]) -> (hash[@unboxed])
  = "caml_xx_hash" "caml_xx_hash_unboxed"
  [@@noalloc]

let equal (a : hash) (b : hash) = Int64.equal a b

(* Unlike Int64.to_string, which returns a decimal string, this returns a hex
 * string which is padded out to the full 16 bytes. *)
let to_string (hash : hash) : string = Printf.sprintf "%016Lx" hash

(* 0 <= result < modulus *)
let modulo hash modulus =
  assert (modulus > 0);
  (Int64.to_int hash |> abs) mod modulus