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

dbuenzli

(* Simple Buffer.add_json function. *)

type json =
[ `Null | `Bool of bool | `Float of float | `String of string
| `Array of json list | `Object of (string * json) list ]

let rec buffer_add_json b = function
| `Null -> Buffer.add_string b "null"
| `Bool bool -> Buffer.add_string b (if bool then "true" else "false")
| `Float f -> Buffer.add_string b (Printf.sprintf "%.16g" f)