Commit 040227a7 authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Add namespaceGetActive to public API.

parent f37b2a7a
...@@ -272,6 +272,7 @@ void cdiDefGlobal(const char *string, int val); ...@@ -272,6 +272,7 @@ void cdiDefGlobal(const char *string, int val);
int namespaceNew(void); int namespaceNew(void);
void namespaceSetActive(int namespaceID); void namespaceSetActive(int namespaceID);
int namespaceGetActive(void);
void namespaceDelete(int namespaceID); void namespaceDelete(int namespaceID);
......
...@@ -440,6 +440,9 @@ ...@@ -440,6 +440,9 @@
! (INTEGER namespaceID) ! (INTEGER namespaceID)
EXTERNAL namespaceSetActive EXTERNAL namespaceSetActive
INTEGER namespaceGetActive
EXTERNAL namespaceGetActive
! namespaceDelete ! namespaceDelete
! (INTEGER namespaceID) ! (INTEGER namespaceID)
EXTERNAL namespaceDelete EXTERNAL namespaceDelete
......
...@@ -88,6 +88,7 @@ FCALLSCFUN0 (DOUBLE, cdiInqMissval, CDIINQMISSVAL, cdiinqmissval) ...@@ -88,6 +88,7 @@ FCALLSCFUN0 (DOUBLE, cdiInqMissval, CDIINQMISSVAL, cdiinqmissval)
FCALLSCSUB2 (cdiDefGlobal, CDIDEFGLOBAL, cdidefglobal, STRING, INT) FCALLSCSUB2 (cdiDefGlobal, CDIDEFGLOBAL, cdidefglobal, STRING, INT)
FCALLSCFUN0 (INT, namespaceNew, NAMESPACENEW, namespacenew) FCALLSCFUN0 (INT, namespaceNew, NAMESPACENEW, namespacenew)
FCALLSCSUB1 (namespaceSetActive, NAMESPACESETACTIVE, namespacesetactive, INT) FCALLSCSUB1 (namespaceSetActive, NAMESPACESETACTIVE, namespacesetactive, INT)
FCALLSCFUN0 (INT, namespaceGetActive, NAMESPACEGETACTIVE, namespacegetactive)
FCALLSCSUB1 (namespaceDelete, NAMESPACEDELETE, namespacedelete, INT) FCALLSCSUB1 (namespaceDelete, NAMESPACEDELETE, namespacedelete, INT)
/* CDI converter routines */ /* CDI converter routines */
......
...@@ -215,6 +215,7 @@ module mo_cdi ...@@ -215,6 +215,7 @@ module mo_cdi
public :: cdiDefGlobal public :: cdiDefGlobal
public :: namespaceNew public :: namespaceNew
public :: namespaceSetActive public :: namespaceSetActive
public :: namespaceGetActive
public :: namespaceDelete public :: namespaceDelete
public :: cdiParamToString public :: cdiParamToString
public :: cdiDecodeParam public :: cdiDecodeParam
...@@ -668,6 +669,12 @@ module mo_cdi ...@@ -668,6 +669,12 @@ module mo_cdi
integer(c_int), value :: namespaceID_dummy integer(c_int), value :: namespaceID_dummy
end subroutine namespaceSetActive end subroutine namespaceSetActive
function namespaceGetActive() bind(c, name = 'namespaceGetActive')&
& result(f_result)
import c_int
integer(c_int) :: f_result
end function namespaceGetActive
subroutine namespaceDelete(namespaceID_dummy) bind(c, name =& subroutine namespaceDelete(namespaceID_dummy) bind(c, name =&
& 'namespaceDelete') & 'namespaceDelete')
import c_int import c_int
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment