#+TITLE: Top-level
#+SETUPFILE: https://fniessen.github.io/org-html-themes/org/theme-readtheorg.setup


#+name: synopsis
#+begin_src ocaml :export output raw
"Installs pretty printers for top-level."
#+end_src

#+RESULTS: synopsis
: Installs pretty printers for top-level.


* Dune files                                                         :noexport:

** Generate dune files

   Use [C-c C-c] on the code below to create the output for the dune files

   #+header: :noweb strip-export
   #+header: :var name=(file-name-directory buffer-file-name) 
   #+header: :var dune="lib/dune"
   #+header: :var dunetest="test/dune"
   #+begin_src python :exports none :results output none
name = name.split('/')[-2]
synopsis = """
<<synopsis>>
"""

with open(dune,'w') as f:
    f.write(f"""
(library
 (name {name})
 (public_name qcaml.{name})
 (synopsis {synopsis}  )
 (modes byte)
 (libraries
  compiler-libs.toplevel 
  qcaml
 )
)
""")
   #+end_src