Fixed Qcaml module

qcaml/README.org

@@ -12,32 +12,36 @@
 
 * 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: :noweb yes
    #+header: :var name=(file-name-directory buffer-file-name) 
    #+header: :var dune="lib/dune"
    #+header: :var dunetest="test/dune"
+   #+header: :var dependencies=dependencies
    #+begin_src python :exports none :results output none
 name = name.split('/')[-2]
 synopsis = """
 <<synopsis>>
 """
 
+dependencies = '\n '.join(map(lambda x: x[0], dependencies))
+
 with open(dune,'w') as f:
     f.write(f"""
 (library
  (name {name})
  (public_name qcaml.{name})
  (synopsis {synopsis}  )
- <<dependencies>>
+ (libraries
+ {dependencies}
+ )
  <<noimplementation>>
  <<c-files>>
 )
 <<lex-yacc>>
-""")
+""".replace("qcaml.qcaml","qcaml"))
 
 with open(dunetest,'w') as f:
     f.write(f"""
@@ -49,43 +53,25 @@ with open(dunetest,'w') as f:
   qcaml.{name}
  )
 )
-""")
+""".replace("qcaml.qcaml","qcaml"))
    #+end_src
 
-** Dependencies
 
    #+name: dependencies
-   #+begin_src elisp 
+   #+begin_src sh :output value
-(libraries
+grep "public_name" ../*/lib/dune | grep -v "qcaml)" | cut -d ' ' -f 3 | tr ')' ' '
- qcaml.ao
- qcaml.common
- qcaml.gaussian
- qcaml.gaussian_integrals
- qcaml.mo
- qcaml.operators
- qcaml.particles
- qcaml.perturbation
- qcaml.simulation
- )
    #+end_src
 
-** Modules without implementation
+   #+RESULTS: dependencies
-    
+   | (libraries               |
-   #+name: noimplementation
+   | qcaml.ao                 |
-   #+begin_src elisp
+   | qcaml.common             |
-   #+end_src
+   | qcaml.gaussian           |
-
+   | qcaml.gaussian_integrals |
-** Extra C files
+   | qcaml.linear_algebra     |
-
+   | qcaml.mo                 |
-   #+begin_src elisp
+   | qcaml.operators          |
-   #+end_src
+   | qcaml.particles          |
-
+   | qcaml.perturbation       |
-** Parser files
+   | qcaml.simulation         |
-
+   | )                        |
-   #+name: lex-yacc
-   #+begin_src elisp
-   #+end_src
-
-
-
-   

qcaml/lib/dune

@@ -1,7 +1,7 @@
 
 (library
  (name qcaml)
- (public_name qcaml.qcaml)
+ (public_name qcaml)
  (synopsis 
 "Main QCaml entry point"
   )
@@ -10,6 +10,7 @@
  qcaml.common
  qcaml.gaussian
  qcaml.gaussian_integrals
+ qcaml.linear_algebra
  qcaml.mo
  qcaml.operators
  qcaml.particles

qcaml/test/dune

@@ -4,6 +4,6 @@
  (synopsis "Test for qcaml library")
  (libraries
   alcotest
-  qcaml.qcaml
+  qcaml
  )
 )