ENH: Fix script for C API.

MilanSkocic · Jul 3, 2024 · 21d1767 · 21d1767
1 parent 4e75b04
commit 21d1767
Show file tree

Hide file tree

Showing 7 changed files with 2,763 additions and 2,763 deletions.
diff --git a/scripts/gen_capi.py b/scripts/gen_capi.py
@@ -50,8 +50,8 @@ def write_constant(f, var, name, value, uncertainty, unit, year, count):
         cnames.append(", ".join(cname[indexes[i]: indexes[i+1]]))
     cnames.append(", ".join(cname[indexes[-1]:]))
 
-    f.write(f"type(codata_capi_constant_type), protected, public, bind(C, name=\"{var:s}{suffix}\") ::&" + ctag + newline)
-    f.write(f"codata_capi_{count:d}{suffix} = codata_capi_constant_type([ &" + ctag + newline)
+    f.write(f"type(capi_constant_type), protected, public, bind(C, name=\"{var:s}{suffix}\") ::&" + ctag + newline)
+    f.write(f"capi_{count:d}{suffix} = capi_constant_type([ &" + ctag + newline)
 
     # last not comma at the end
     for _cname in cnames[:-1]:

diff --git a/src/capi_constants_2010.f90 b/src/capi_constants_2010.f90
diff --git a/src/capi_constants_2014.f90 b/src/capi_constants_2014.f90
diff --git a/src/capi_constants_2018.f90 b/src/capi_constants_2018.f90
diff --git a/src/capi_constants_2022.f90 b/src/capi_constants_2022.f90
diff --git a/src/capi_constants_type.f90 b/src/capi_constants_type.f90
@@ -3,7 +3,7 @@ module codata__capi_constants_type
     use iso_c_binding, only: c_char, c_double
     private
 
-    type, bind(C), public :: codata_capi_constant_type
+    type, bind(C), public :: capi_constant_type
         !! Derived type for representing a Codata constant in C.
         character(kind=c_char) :: name(65)
         real(c_double) :: value

diff --git a/src/capi_version.f90 b/src/capi_version.f90
@@ -7,12 +7,12 @@ module codata__capi_version
 
 character(len=:), allocatable, target :: version_c
 
-public :: codata_capi_get_version
+public :: capi_get_version
 
 contains
 
 
-function codata_capi_get_version()bind(C, name="codata_get_version")result(cptr)
+function capi_get_version()bind(C, name="codata_get_version")result(cptr)
     !! Get the version
     implicit none
     type(c_ptr) :: cptr