mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-08-15 01:08:28 +02:00
44 lines
945 B
Org Mode
44 lines
945 B
Org Mode
|
#+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
|