2020-12-28 01:08:55 +01:00
|
|
|
#+begin_src elisp tangle: no :results none :exports none
|
|
|
|
|
(setq pwd (file-name-directory buffer-file-name))
|
|
|
|
|
(setq name (file-name-nondirectory (substring buffer-file-name 0 -4)))
|
|
|
|
|
(setq lib (concat pwd "lib/"))
|
|
|
|
|
(setq testdir (concat pwd "test/"))
|
|
|
|
|
(setq mli (concat lib name ".mli"))
|
|
|
|
|
(setq ml (concat lib name ".ml"))
|
|
|
|
|
(setq test-ml (concat testdir name ".ml"))
|
|
|
|
|
(org-babel-tangle)
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
* Zmap
|
|
|
|
|
:PROPERTIES:
|
|
|
|
|
:header-args: :noweb yes :comments both
|
|
|
|
|
:END:
|
|
|
|
|
|
|
|
|
|
A hash table where the keys are ~Zkey~
|
|
|
|
|
|
|
|
|
|
** Type
|
|
|
|
|
|
2021-01-28 00:34:26 +01:00
|
|
|
<<<~Zmap.t~>>>
|
2020-12-28 01:08:55 +01:00
|
|
|
#+begin_src ocaml :tangle (eval mli)
|
|
|
|
|
include module type of Hashtbl.Make(Zkey)
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
#+begin_src ocaml :tangle (eval ml) :exports none
|
|
|
|
|
module Zmap = Hashtbl.Make(Zkey)
|
|
|
|
|
include Zmap
|
|
|
|
|
#+end_src
|
|
|
|
|
|
