add atd wrapper for hash tables

Author: yasunariw

lib/common.atd

@@ -1,3 +1,7 @@
 type 'v map_as_object =
   (string * 'v) list <json repr="object">
     wrap <ocaml module="Common.StringMap" t="'v Common.StringMap.t">
+
+type 'v table_as_object =
+  (string * 'v) list <json repr="object">
+    wrap <ocaml module="Common.Stringtbl" t="'v Common.Stringtbl.t">

lib/common.ml

@@ -1,5 +1,4 @@
 open Base
-open Devkit
 
 module StringMap = struct
   type 'a t = 'a Map.M(String).t
@@ -15,6 +14,22 @@ module StringMap = struct
   let unwrap = to_list
 end
 
+module Stringtbl = struct
+  include Hashtbl
+
+  type 'a t = 'a Hashtbl.M(String).t
+
+  let empty () = Hashtbl.create (module String)
+
+  let to_list (l : 'a t) : (string * 'a) list = Hashtbl.to_alist l
+
+  let of_list (m : (string * 'a) list) : 'a t = Hashtbl.of_alist_exn (module String) m
+
+  let wrap = of_list
+
+  let unwrap = to_list
+end
+
 module Re2 = struct
   include Re2
 
@@ -23,6 +38,8 @@ module Re2 = struct
   let unwrap = Re2.to_string
 end
 
+open Devkit
+
 let fmt_error fmt = Printf.ksprintf (fun s -> Error s) fmt
 
 let first_line s =

lib/dune

@@ -1,7 +1,7 @@
 (library
  (name lib)
  (libraries atdgen atdgen-runtime base base64 base.caml biniou cstruct curl curl.lwt
-   devkit devkit.core extlib hex lwt lwt.unix nocrypto omd re2 stdio uri
+   devkit devkit.core extlib hex lwt lwt.unix nocrypto omd re2 sexplib0 stdio uri
    yojson)
  (preprocess
   (pps lwt_ppx)))