如何存储来自 sqlite3_open 的数据库连接句柄?
How to store the database connection handle from sqlite3_open?
我已经包装了 sqlite3_open、sqlite3_close 和 sqlite3_exec 来自 SQLite(版本 3.16.2)C-API 的例程,以便使用 ISO_C_BINDING 模块从 Fortran 2003 程序中调用它们。我在 Windows 上使用 Intel Fortran 17 编译器 (ifort) 和 MSVC 14,在 Linux 上使用 gcc。
我的目标是打开 SQLite 数据库并存储一个指向数据库连接句柄的指针,以便当 Fortran 程序循环计算时我可以将其用于 store/retrieve 结果。主程序伪代码如下所示:
program main
use, intrinsic :: iso_c_binding
use sqlite_wrapper_module
implicit none
! QUESTION: SHOULD DB_HANDLE BE TYPE(C_PTR) OR A STRUCT OF SOME KIND?
type(C_PTR) :: db_handle
character(len=:), allocatable :: db_name
db_name = "test.db"//C_NULL_CHAR
call sqlite3_open_WRAPPER(db_name, db_handle) ! wraps sqlite3_open
do i=1,n
...compute stuff...
call sqlite3_exec_WRAPPER(db_handle, sql_stmt) ! wraps sqlite3_exec
...compute stuff...
enddo
call sqlite3_close_WRAPPER(db_handle) ! wraps sqlite3_close
end program main
我已经在单独的模块中定义了包装器 C 例程的显式接口。例如:
module sqlite_wrapper_module
use, intrisic :: iso_c_binding
implicit none
interface
subroutine sqlite3_open_WRAPPER(db_name, db_handle) bind(C)
import
character(kind=C_CHAR), dimension(*) :: db_name
type(C_PTR), value :: db_handle
end subroutine sqlite3_open_wrapper
end interface
end module sqlite_wrapper_module
我不确定我是否理解 official docs,但他们似乎说 *db 是一个代表数据库连接句柄的指针,它是一个 "opaque structure" 定义为 typedef struct sqlite3 sqlite3;
.我不知道那到底是什么意思(C 编程不是我的强项)。所以我尝试从 Fortran 中设置 C_PTR 如下:
int sqlite3_open_WRAPPER(char *filename, sqlite3 *pdb) {
sqlite3 *db;
int rc=sqlite3_open(filename, &db);
pdb=db; // <---------------------------------This
...check rc...
return 0;
}
起初,这似乎可行。但是,指向 NULL 的指针 returns 一旦传递回 Fortran 程序,就不能在 sqlite3_exec 或 [=40 中使用=]。我是否应该在 Fortran 程序中定义某种 struct
作为数据库连接结构,并将其传递到 C 例程中?
您正在为 life-time 以函数结尾的局部变量 (pdb
) 赋值 (db
),请使用指向指针的指针以进行这些更改在函数外可见:
int sqlite3_open_WRAPPER(char *filename, sqlite3 *pdb) {
sqlite3 *db;
int rc=sqlite3_open(filename, &db);
pdb=db; // <---------------------------------This
...check rc...
return 0;
}
应该是
int sqlite3_open_WRAPPER(char *filename, sqlite3 **pdb) {
sqlite3 *db;
int rc=sqlite3_open(filename, &db);
*pdb=db; // <---------------------------------This
...check rc...
return 0;
}
或者更好的是,直接使用 pdb
:
int sqlite3_open_WRAPPER(char *filename, sqlite3 **pdb) {
int rc=sqlite3_open(filename, pdb);
...check rc...
return 0;
}
我已经包装了 sqlite3_open、sqlite3_close 和 sqlite3_exec 来自 SQLite(版本 3.16.2)C-API 的例程,以便使用 ISO_C_BINDING 模块从 Fortran 2003 程序中调用它们。我在 Windows 上使用 Intel Fortran 17 编译器 (ifort) 和 MSVC 14,在 Linux 上使用 gcc。
我的目标是打开 SQLite 数据库并存储一个指向数据库连接句柄的指针,以便当 Fortran 程序循环计算时我可以将其用于 store/retrieve 结果。主程序伪代码如下所示:
program main
use, intrinsic :: iso_c_binding
use sqlite_wrapper_module
implicit none
! QUESTION: SHOULD DB_HANDLE BE TYPE(C_PTR) OR A STRUCT OF SOME KIND?
type(C_PTR) :: db_handle
character(len=:), allocatable :: db_name
db_name = "test.db"//C_NULL_CHAR
call sqlite3_open_WRAPPER(db_name, db_handle) ! wraps sqlite3_open
do i=1,n
...compute stuff...
call sqlite3_exec_WRAPPER(db_handle, sql_stmt) ! wraps sqlite3_exec
...compute stuff...
enddo
call sqlite3_close_WRAPPER(db_handle) ! wraps sqlite3_close
end program main
我已经在单独的模块中定义了包装器 C 例程的显式接口。例如:
module sqlite_wrapper_module
use, intrisic :: iso_c_binding
implicit none
interface
subroutine sqlite3_open_WRAPPER(db_name, db_handle) bind(C)
import
character(kind=C_CHAR), dimension(*) :: db_name
type(C_PTR), value :: db_handle
end subroutine sqlite3_open_wrapper
end interface
end module sqlite_wrapper_module
我不确定我是否理解 official docs,但他们似乎说 *db 是一个代表数据库连接句柄的指针,它是一个 "opaque structure" 定义为 typedef struct sqlite3 sqlite3;
.我不知道那到底是什么意思(C 编程不是我的强项)。所以我尝试从 Fortran 中设置 C_PTR 如下:
int sqlite3_open_WRAPPER(char *filename, sqlite3 *pdb) {
sqlite3 *db;
int rc=sqlite3_open(filename, &db);
pdb=db; // <---------------------------------This
...check rc...
return 0;
}
起初,这似乎可行。但是,指向 NULL 的指针 returns 一旦传递回 Fortran 程序,就不能在 sqlite3_exec 或 [=40 中使用=]。我是否应该在 Fortran 程序中定义某种 struct
作为数据库连接结构,并将其传递到 C 例程中?
您正在为 life-time 以函数结尾的局部变量 (pdb
) 赋值 (db
),请使用指向指针的指针以进行这些更改在函数外可见:
int sqlite3_open_WRAPPER(char *filename, sqlite3 *pdb) {
sqlite3 *db;
int rc=sqlite3_open(filename, &db);
pdb=db; // <---------------------------------This
...check rc...
return 0;
}
应该是
int sqlite3_open_WRAPPER(char *filename, sqlite3 **pdb) {
sqlite3 *db;
int rc=sqlite3_open(filename, &db);
*pdb=db; // <---------------------------------This
...check rc...
return 0;
}
或者更好的是,直接使用 pdb
:
int sqlite3_open_WRAPPER(char *filename, sqlite3 **pdb) {
int rc=sqlite3_open(filename, pdb);
...check rc...
return 0;
}