Added SQLite 3.39.0 feature.

Author: interkosmos

src/sqlite.f90

@@ -169,6 +169,8 @@ module sqlite
     public :: sqlite3_config_int_
     public :: sqlite3_config_null_
     public :: sqlite3_data_count
+    public :: sqlite3_db_name
+    public :: sqlite3_db_name_
     public :: sqlite3_db_status
     public :: sqlite3_errcode
     public :: sqlite3_errmsg
@@ -409,6 +411,15 @@ function sqlite3_data_count(stmt) bind(c, name='sqlite3_data_count')
             integer(kind=c_int)            :: sqlite3_data_count
         end function sqlite3_data_count
 
+        ! const char *sqlite3_db_name(sqlite3 *db, int n)
+        function sqlite3_db_name_(db, n) bind(c, name='sqlite3_db_name')
+            import :: c_int, c_ptr
+            implicit none
+            type(c_ptr),         intent(in), value :: db
+            integer(kind=c_int), intent(in), value :: n
+            type(c_ptr)                            :: sqlite3_db_name_
+        end function sqlite3_db_name_
+
         ! int sqlite3_db_status(sqlite3 *db, int op, int *pCurrent, int *pHighwater, int resetFlag)
         function sqlite3_db_status(db, op, current, highwater, reset_flag) bind(c, name='sqlite3_db_status')
             import :: c_int, c_ptr
@@ -769,6 +780,16 @@ function sqlite3_config_null(option)
         sqlite3_config_null = sqlite3_config_null_(option)
     end function sqlite3_config_null
 
+    function sqlite3_db_name(db, n)
+        type(c_ptr), intent(in)       :: db
+        integer,     intent(in)       :: n
+        character(len=:), allocatable :: sqlite3_db_name
+        type(c_ptr)                   :: ptr
+
+        ptr = sqlite3_db_name_(db, n)
+        if (c_associated(ptr)) call c_f_str_ptr(ptr, sqlite3_db_name)
+    end function sqlite3_db_name
+
     function sqlite3_errmsg(db)
         type(c_ptr), intent(in)       :: db
         character(len=:), allocatable :: sqlite3_errmsg

test/test_sqlite.f90

@@ -92,11 +92,12 @@ program test_sqlite
     character(len=*), parameter :: DB_FILE  = 'test.db'
     character(len=*), parameter :: DB_TABLE = 'test_table'
 
-    character(len=:), allocatable :: errmsg ! Error message.
-    integer                       :: rc     ! Return code.
-    type(c_ptr)                   :: db     ! SQLite database.
-    type(c_ptr)                   :: stmt   ! SQLite statement.
-    type(c_ptr)                   :: udp    ! User-data pointer.
+    character(len=:), allocatable :: db_name ! Database name.
+    character(len=:), allocatable :: errmsg  ! Error message.
+    integer                       :: rc      ! Return code.
+    type(c_ptr)                   :: db      ! SQLite database.
+    type(c_ptr)                   :: stmt    ! SQLite statement.
+    type(c_ptr)                   :: udp     ! User-data pointer.
 
     ! Set configuration to single thread.
     rc = sqlite3_config(SQLITE_CONFIG_SINGLETHREAD)
@@ -112,6 +113,10 @@ program test_sqlite
     rc = sqlite3_open(DB_FILE, db)
     if (rc /= SQLITE_OK) stop 'sqlite3_open(): failed'
 
+    db_name = sqlite3_db_name(db, 0)
+    if (.not. allocated(db_name)) stop 'sqlite3_db_name(): failed'
+    print '("DB name: ", a)', db_name
+
     ! Testing logging.
     call sqlite3_log(1, 'TEST LOG' // c_null_char)