Source file storage.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
module Occurences = Map.Make (Int)

type db =
  { db_names : String_automata.t
  ; db_pos_types : String_automata.t Occurences.t
  ; db_neg_types : String_automata.t Occurences.t
  }

module type S = sig
  type writer

  val open_out : string -> writer
  val save : db:writer -> db -> unit
  val close_out : writer -> unit
  val load : string -> db list
end