[ANN] first release of phashtbl

UnixJunkie · May 8, 2018, 7:46am

Hi all,

Phashtbl is a minimalist persistent hashtbl OCaml library.

It was just accepted into the opam-repository.

Code:

Interface:

UnixJunkie/phashtbl/blob/master/src/phashtbl.mli

(** {2 Persistent hash tables stored on disk using dbm under the carpet.} *)

type filename = string

(** {4 Polymorphic keys and values.} *)

module GenKeyToGenVal : sig

  type ('a, 'b) t

  (** [open_new filename] creates a new persistent hashtbl.
      dbm will create [filename.dir] and [filename.pag] files. *)
  val open_new: filename -> ('a, 'b) t

  (** [open_existing filename] opens an existing persistent hashtbl
      for reading and writing.
      The files [filename.dir] and [filename.pag] must already exist. *)
  val open_existing: filename -> ('a, 'b) t

  (** [close pht] closes the previously opened [pht]. *)

This file has been truncated. show original

Example/tests:

github.com

UnixJunkie/phashtbl/blob/master/src/test.ml

open Printf

module GKGV = Phashtbl.GenKeyToGenVal

let test_0 () =
  let module Ht = GKGV in
  let key, value = 1, 2 in
  let tmp_fn = Filename.temp_file "" "" in
  let ht = Ht.open_new tmp_fn in
  assert(not (Ht.mem ht key));
  Ht.add ht key value;
  assert(Ht.mem ht key);
  assert(Ht.find ht key = value);
  Ht.iter (fun k v -> printf "%d -> %d\n%!" k v) ht;
  let acc = Ht.fold (fun k v acc -> (k, v) :: acc) ht [] in
  assert(acc = [(key,value)]);
  Ht.close ht;
  let ht1 = Ht.open_existing tmp_fn in
  assert(Ht.find ht1 key = value);
  Ht.remove ht1 key;

This file has been truncated. show original

Enjoy!

Topic		Replies	Views
Do we have a pure OCaml, high-performance, persistent key-value store in 2023? Learning ocaml , persistent , key-value-store , high-performance	25	2598	January 13, 2023
[ANN] Digestif 0.2 - Hashes functions Community announce , hash , blake2b	3	1741	July 5, 2017
[ANN] Digestif 0.7.1 Community announce , hash	0	1180	November 22, 2018
[ANN] Digestif 0.4 Community announce , hash , ripemd , blake2s , sha1	3	1334	October 31, 2017
[ANN] secp256k1-ml 0.3.2 Community announce	2	1273	November 27, 2017

[ANN] first release of phashtbl

Related Topics