Source file `is_binary.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
open! Core
open! Import

(* The choice of 8000 bytes is copied from git:

   https://github.com/git/git/blob/b7bd9486b055c3f967a870311e704e3bb0654e4f/xdiff-interface.c#L201
*)
let prefix_length = 8000
let string s = String.contains s '\000' ~len:(Int.min prefix_length (String.length s))

let array a =
  Array.fold_until
    a
    ~init:0
    ~finish:(fun _ -> false)
    ~f:(fun len line ->
      if string line
      then Stop true
      else (
        let len = len + String.length line in
        if len >= prefix_length then Stop false else Continue len))
;;