clear bindings

sqlite/capi.kk

@@ -94,3 +94,6 @@ pub extern bind-text(^stmt: any, col: int32, ^value: string): int32
 
 pub extern bind-zeroblob(^stmt: any, col: int32, length: int64): int32
   c "kk_sqlite3_bind_zeroblob"
+
+pub extern clear-bindings(^stmt: any): int32
+  c "kk_sqlite3_clear_bindings"

sqlite/sqlite-inline.c

@@ -142,3 +142,8 @@ int32_t kk_sqlite3_bind_zeroblob(kk_box_t cref, int32_t col, int64_t length, kk_
     sqlite3_stmt *stmt = borrow_stmt(cref, _ctx);
     return sqlite3_bind_zeroblob64(stmt, col, (sqlite3_uint64)length);
 }
+
+int32_t kk_sqlite3_clear_bindings(kk_box_t cref, kk_context_t *_ctx) {
+    sqlite3_stmt *stmt = borrow_stmt(cref, _ctx);
+    return sqlite3_clear_bindings(stmt);
+}

sqlite/sqlite3.kk

@@ -183,3 +183,7 @@ pub fun statement/bind-text(stmt: statement, col: int, value: string): sqlite-re
 
 pub fun statement/bind-zeroblob(stmt: statement, col: int, length: int64): sqlite-result
   capi/bind-zeroblob(stmt.cref, col.int32, length).trusted-result
+
+// Set all bound parameters to NULL.
+pub fun statement/clear-bindings(stmt: statement): sqlite-result
+  capi/clear-bindings(stmt.cref).trusted-result