forks/esqlite
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Busy with creating an edbc lib

Browse Source
This commit is contained in:
Maas-Maarten Zeeman
2011-12-28 21:31:14 +01:00
parent fc2d08f50f
commit 719197313a
6 changed files with 182 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
c_src/esqlite3_nif.c
View File

@@ -90,11 +90,19 @@ make_ok_tuple(ErlNifEnv *env, ERL_NIF_TERM value)
}
static ERL_NIF_TERM
make_error_tuple(ErlNifEnv *env, const char *reason)
make_error_tuple(ErlNifEnv *env, const char *reason)
{
return enif_make_tuple2(env, make_atom(env, "error"), make_atom(env, reason));
}
static ERL_NIF_TERM
make_sqlite3_error_tuple(ErlNifEnv *env, const char *msg)
{
return enif_make_tuple2(env, make_atom(env, "error"),
enif_make_tuple2(env, make_atom(env, "sqlite3_error"),
enif_make_string(env, msg, ERL_NIF_LATIN1)));
}
static void
command_destroy(void *obj)
{
@@ -185,7 +193,7 @@ do_open(ErlNifEnv *env, esqlite_connection *db, const ERL_NIF_TERM arg)
*/
rc = sqlite3_open(filename, &db->db);
if(rc != SQLITE_OK) {
error = make_error_tuple(env, sqlite3_errmsg(db->db));
error = make_sqlite3_error_tuple(env, sqlite3_errmsg(db->db));
sqlite3_close(db->db);
db->db = NULL;
@@ -207,7 +215,7 @@ do_exec(ErlNifEnv *env, esqlite_connection *conn, const ERL_NIF_TERM arg)
rc = sqlite3_exec(conn->db, (char *) bin.data, NULL, NULL, NULL);
if(rc != SQLITE_OK)
return make_error_tuple(env, sqlite3_errmsg(conn->db));
return make_sqlite3_error_tuple(env, sqlite3_errmsg(conn->db));
return make_atom(env, "ok");
}
@@ -231,7 +239,7 @@ do_prepare(ErlNifEnv *env, esqlite_connection *conn, const ERL_NIF_TERM arg)
rc = sqlite3_prepare_v2(conn->db, (char *) bin.data, bin.size, &(stmt->statement), &tail);
if(rc != SQLITE_OK)
return make_error_tuple(env, sqlite3_errmsg(conn->db));
return make_sqlite3_error_tuple(env, sqlite3_errmsg(conn->db));
enif_keep_resource(conn);
stmt->connection = conn;
@@ -299,7 +307,7 @@ do_bind(ErlNifEnv *env, sqlite3 *db, sqlite3_stmt *stmt, const ERL_NIF_TERM arg)
if(r == -1)
return make_error_tuple(env, "wrong_type");
if(r != SQLITE_OK)
return make_error_tuple(env, sqlite3_errmsg(db));
return make_sqlite3_error_tuple(env, sqlite3_errmsg(db));
list = tail;
}
@@ -413,7 +421,7 @@ do_close(ErlNifEnv *env, esqlite_connection *conn, const ERL_NIF_TERM arg)
rc = sqlite3_close(conn->db);
if(rc != SQLITE_OK)
return make_error_tuple(env, sqlite3_errmsg(conn->db));
return make_sqlite3_error_tuple(env, sqlite3_errmsg(conn->db));
conn->db = NULL;
return make_atom(env, "ok");