From 216fcebf707a386274188bf88c65b74d456ac89a Mon Sep 17 00:00:00 2001
From: Francois Coppens <francois.coppens@irsamc.ups-tlse.fr>
Date: Thu, 23 Feb 2023 16:17:39 +0100
Subject: [PATCH] Added fucntion that generates private c headers.

---
 tools/lib.org | 48 ++++++++++++++++++++++++++++++------------------
 1 file changed, 30 insertions(+), 18 deletions(-)

diff --git a/tools/lib.org b/tools/lib.org
index 2d55f34..46fe807 100644
--- a/tools/lib.org
+++ b/tools/lib.org
@@ -32,7 +32,6 @@
      | ~C~       | ~double[n][ldc]~ | out    | Array containing the $m \times n$ matrix $C$  |
      | ~ldc~     | ~int64_t~        | in     | Leading dimension of array ~C~                |
 
-
 *** Fortran-C type conversions
 
     #+NAME:f_of_c
@@ -132,22 +131,36 @@ return template
 
     #+END_SRC
 
-    #+RESULTS: generate_c_header
-    #+begin_src c :tangle (eval h_func) :comments org
-    qmckl_exit_code [] (
-          const qmckl_context context,
-          const char transa,
-          const char transb,
-          const int64_t m,
-          const int64_t n,
-          const double* A,
-          const int64_t lda,
-          const double* B,
-          const int64_t ldb,
-          double* const C,
-          const int64_t ldc );
-    #+end_src
+    #+NAME: generate_private_c_header
+    #+BEGIN_SRC python :var table=test :var rettyp="qmckl_exit_code" :var fname=[] :results drawer :noweb yes :wrap "src c :tangle (eval h_private_func) :comments org"
+<<parse_table>>
 
+results = []
+for d in parse_table(table):
+    name = d["name"]
+    c_type = d["c_type"]
+
+    # Add star for arrays
+    if d["rank"] > 0 or d["inout"] in ["out", "inout"]:
+        c_type += "*"
+
+    if d["inout"] == "out":
+        c_type += " const"
+
+    # Only inputs are const
+    if d["inout"] == "in":
+        const = "const "
+    else:
+        const = ""
+
+    results += [ f"      {const}{c_type} {name}" ]
+
+results=',\n'.join(results)
+template = f"""{rettyp} {fname} (\n{results} ); """
+return template
+
+    #+END_SRC
+    
 *** Generates a C interface to the Fortran function
 
     #+NAME: generate_c_interface
@@ -255,8 +268,6 @@ results='\n'.join(results)
 return results
     #+END_SRC
 
-
-
 ** Creating provide functions
 
     #+NAME: write_provider_header
@@ -421,3 +432,4 @@ return msg
       return QMCKL_SUCCESS;
     }
     #+end_src
+