Sun, 23 Nov 2008 04:12:04 +0000
Cleanup and commenting
1 | 1 | #include "dbd_sqlite3.h" |
2 | ||
3 | int dbd_sqlite3_statement_create(lua_State *L, connection_t *conn, const char *sql_query); | |
4 | ||
2 | 5 | /* |
6 | * connection = DBD.SQLite3.New(dbfile) | |
7 | */ | |
1 | 8 | static int connection_new(lua_State *L) { |
9 | int n = lua_gettop(L); | |
10 | ||
11 | const char *db = NULL; | |
12 | connection_t *conn = NULL; | |
13 | ||
14 | /* db */ | |
15 | switch (n) { | |
16 | default: | |
17 | if (lua_isnil(L, 1) == 0) | |
18 | db = luaL_checkstring(L, 1); | |
19 | } | |
20 | ||
21 | conn = (connection_t *)lua_newuserdata(L, sizeof(connection_t)); | |
22 | ||
23 | if (sqlite3_open(db, &conn->sqlite) == SQLITE_OK) { | |
24 | luaL_getmetatable(L, DBD_SQLITE_CONNECTION); | |
25 | lua_setmetatable(L, -2); | |
26 | } else { | |
27 | luaL_error(L, "Failed to connect to database: %s", sqlite3_errmsg(conn->sqlite)); | |
28 | lua_pushnil(L); | |
29 | } | |
30 | ||
31 | return 1; | |
32 | } | |
33 | ||
2 | 34 | /* |
35 | * success = connection:close() | |
36 | */ | |
1 | 37 | static int connection_close(lua_State *L) { |
38 | connection_t *conn = (connection_t *)luaL_checkudata(L, 1, DBD_SQLITE_CONNECTION); | |
39 | int disconnect = 0; | |
40 | ||
41 | if (conn->sqlite) { | |
42 | if (sqlite3_close(conn->sqlite) == SQLITE_OK) { | |
43 | disconnect = 1; | |
44 | } | |
45 | } | |
46 | ||
47 | lua_pushboolean(L, disconnect); | |
48 | return 1; | |
49 | } | |
50 | ||
2 | 51 | /* |
52 | * ok = connection:ping() | |
53 | */ | |
1 | 54 | static int connection_ping(lua_State *L) { |
55 | connection_t *conn = (connection_t *)luaL_checkudata(L, 1, DBD_SQLITE_CONNECTION); | |
56 | int ok = 0; | |
57 | ||
58 | if (conn->sqlite) { | |
59 | ok = 1; | |
60 | } | |
61 | ||
62 | lua_pushboolean(L, ok); | |
63 | return 1; | |
64 | } | |
65 | ||
2 | 66 | /* |
67 | * statement = connection:prepare(sql_str) | |
68 | */ | |
1 | 69 | static int connection_prepare(lua_State *L) { |
70 | connection_t *conn = (connection_t *)luaL_checkudata(L, 1, DBD_SQLITE_CONNECTION); | |
71 | ||
72 | if (conn->sqlite) { | |
73 | return dbd_sqlite3_statement_create(L, conn, luaL_checkstring(L, 2)); | |
74 | } | |
75 | ||
76 | lua_pushnil(L); | |
77 | return 1; | |
78 | } | |
79 | ||
2 | 80 | /* |
81 | * __gc | |
82 | */ | |
1 | 83 | static int connection_gc(lua_State *L) { |
84 | /* always close the connection */ | |
85 | connection_close(L); | |
86 | ||
87 | return 0; | |
88 | } | |
89 | ||
2 | 90 | int dbd_sqlite3_connection(lua_State *L) { |
91 | /* | |
92 | * instance methods | |
93 | */ | |
94 | static const luaL_Reg connection_methods[] = { | |
95 | {"close", connection_close}, | |
96 | {"ping", connection_ping}, | |
97 | {"prepare", connection_prepare}, | |
98 | {NULL, NULL} | |
99 | }; | |
1 | 100 | |
2 | 101 | /* |
102 | * class methods | |
103 | */ | |
104 | static const luaL_Reg connection_class_methods[] = { | |
105 | {"New", connection_new}, | |
106 | {NULL, NULL} | |
107 | }; | |
1 | 108 | |
109 | luaL_newmetatable(L, DBD_SQLITE_CONNECTION); | |
110 | luaL_register(L, 0, connection_methods); | |
111 | lua_pushvalue(L,-1); | |
112 | lua_setfield(L, -2, "__index"); | |
113 | ||
114 | lua_pushcfunction(L, connection_gc); | |
115 | lua_setfield(L, -2, "__gc"); | |
116 | ||
117 | luaL_register(L, DBD_SQLITE_CONNECTION, connection_class_methods); | |
118 | ||
119 | return 1; | |
120 | } |