dbuenzli

;; OCaml stuff

; locate opam's site-lisp
(setq opam-share
      (replace-regexp-in-string "\n$" ""
         (shell-command-to-string "opam var share 2> /dev/null")))
(add-to-list 'load-path (expand-file-name "emacs/site-lisp" opam-share))

; merlin
(require 'merlin)

dbuenzli

(*---------------------------------------------------------------------------
   Copyright (c) 2025 The opam programmers. All rights reserved.
   SPDX-License-Identifier: LGPL-2.1-only WITH OCaml-LGPL-linking-exception
  ---------------------------------------------------------------------------*)

(* Usage: opam2json < opam
          opam switch export - | opam2json
   Compile with:
   ocamlfind ocamlopt -linkpkg -package opam-core,opam-format \
   opam2json.ml -o opam2json *)

dbuenzli

#!/usr/bin/env ocaml
(*---------------------------------------------------------------------------
   Copyright (c) 2025 Daniel C. Bünzli. All rights reserved.
   SPDX-License-Identifier: ISC
  ---------------------------------------------------------------------------*)

#use "topfind"
#require "b0.std"
#require "b0.kit"

dbuenzli

_b0
_build

dbuenzli

(*---------------------------------------------------------------------------
   Copyright (c) 2025 The bigbytes programmers. All rights reserved.
   SPDX-License-Identifier: ISC
  ---------------------------------------------------------------------------*)

(** Bigarrays of bytes.

    {b Note.} Getter and setters raise [Invalid_argument] on out of
    bounds errors. Functions that encode 8-bit or 16-bit integers
    represented by [int] values truncate their input their least

dbuenzli

(*---------------------------------------------------------------------------
   Copyright (c) 2018 Daniel C. Bünzli. All rights reserved.
   SPDX-License-Identifier: ISC
  ---------------------------------------------------------------------------*)

(** Integer types.

    [Ints] provides types for specifying sized integer types not
    supported by the {!Stdlib}. It also provides bitwise conversion
    functions and safe, magnitude preserving, conversions.

dbuenzli

_b0

dbuenzli

_b0

dbuenzli

(* SPDX-License-Identifier: CC0-1.0 *)

let bigbytes_of_file ?(trunc = false) ?length access file =
  let module Bigarray = Stdlib.Bigarray (* OCaml < 5 install woes *) in
  let flags, shared = match access with
  | `R -> Unix.[O_RDONLY], false
  | `RW -> Unix.(O_CREAT :: O_RDWR :: if trunc then [O_TRUNC] else []), true
  in
  let fd = Unix.openfile file flags 0o644 in
  let finally () = try Unix.close fd with Unix.Unix_error _ -> () in

dbuenzli

(*---------------------------------------------------------------------------
   Copyright (c) 2022 The brr programmers. All rights reserved.
   Distributed under the ISC license, see terms at the end of the file.
  ---------------------------------------------------------------------------*)

open Brr
open Brr_webworkers
open Brr_io

module type WORK = sig