carpentry/sqlite3
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: carpentry:0.0.1
Branches Tags
carpentry:master
carpentry:0.0.5 carpentry:0.0.4 carpentry:0.0.3 carpentry:0.0.2 carpentry:0.0.1
...
compare: carpentry:0.0.2
Branches Tags
carpentry:master
carpentry:0.0.5 carpentry:0.0.4 carpentry:0.0.3 carpentry:0.0.2 carpentry:0.0.1

2 Commits
0.0.1 ... 0.0.2

Author SHA1 Message Date
hellerve
9743ac15d9 memory bugfix, vbump 2020-01-26 22:14:25 +01:00
hellerve
e239ac2b7f docs: better example 2020-01-26 16:06:06 +01:00
5 changed files with 12 additions and 8 deletions
Expand all files Collapse all files

2
README.md
View File

@@ -6,7 +6,7 @@ everything, but it tries to be useful.
## Installation ## Installation
```clojure ```clojure
(load "https://veitheller.de/git/carpentry/sqlite3@0.0.1") (load "https://veitheller.de/git/carpentry/sqlite3@0.0.2")
``` ```
## Usage ## Usage

5
docs/SQLite3.html
View File

@@ -43,8 +43,9 @@ databases.</p>
; ignore that ; ignore that
(let-do [db (Result.unsafe-from-success (SQLite3.open &quot;db&quot;))] (let-do [db (Result.unsafe-from-success (SQLite3.open &quot;db&quot;))]
; we can prepare statements ; we can prepare statements
(println* &amp;(SQLite3.query &amp;db &quot;INSERT INTO mytable VALUES (?1, ?2);&quot; (ignore
&amp;[(to-sqlite3 @&quot;hello&quot;) (to-sqlite3 100)])) (SQLite3.query &amp;db &quot;INSERT INTO mytable VALUES (?1, ?2);&quot;
&amp;[(to-sqlite3 @&quot;hello&quot;) (to-sqlite3 100)]))
; and query things ; and query things
(println* &amp;(SQLite3.query &amp;db &quot;SELECT * from mytable;&quot; &amp;[])) (println* &amp;(SQLite3.query &amp;db &quot;SELECT * from mytable;&quot; &amp;[]))
(SQLite3.close db) (SQLite3.close db)

2
examples/simple.carp
View File

@@ -1,6 +1,8 @@
(load "sqlite3.carp") (load "sqlite3.carp")
(use SQLite3) (use SQLite3)
(add-cflag "-fsanitize=address")
(defn main [] (defn main []
(let-do [db (Result.unsafe-from-success (SQLite3.open "test.db"))] (let-do [db (Result.unsafe-from-success (SQLite3.open "test.db"))]
; we can create a table ; we can create a table

7
sqlite3.carp
View File

@@ -7,7 +7,7 @@ to wrap everything, but it tries to be useful.
## Installation ## Installation
```clojure ```clojure
(load \"https://veitheller.de/git/carpentry/sqlite3@0.0.1\") (load \"https://veitheller.de/git/carpentry/sqlite3@0.0.2\")
``` ```
## Usage ## Usage
@@ -22,8 +22,9 @@ databases.
; ignore that ; ignore that
(let-do [db (Result.unsafe-from-success (SQLite3.open \"db\"))] (let-do [db (Result.unsafe-from-success (SQLite3.open \"db\"))]
; we can prepare statements ; we can prepare statements
(println* &(SQLite3.query &db \"INSERT INTO mytable VALUES (?1, ?2);\" (ignore
&[(to-sqlite3 @\"hello\") (to-sqlite3 100)])) (SQLite3.query &db \"INSERT INTO mytable VALUES (?1, ?2);\"
&[(to-sqlite3 @\"hello\") (to-sqlite3 100)]))
; and query things ; and query things
(println* &(SQLite3.query &db \"SELECT * from mytable;\" &[])) (println* &(SQLite3.query &db \"SELECT * from mytable;\" &[]))
(SQLite3.close db) (SQLite3.close db)

4
sqlite3_helper.h
View File

@@ -176,14 +176,14 @@ const char* SQLite3_exec_internal(sqlite3_stmt* s, SQLiteRows* rows) {
break; break;
case SQLITE_TEXT: { case SQLITE_TEXT: {
len = sqlite3_column_bytes(s, i); len = sqlite3_column_bytes(s, i);
c->s = CARP_MALLOC(len); c->s = CARP_MALLOC(len+1);
memcpy(c->s, sqlite3_column_text(s, i), len); memcpy(c->s, sqlite3_column_text(s, i), len);
c->s[len] = '\0'; c->s[len] = '\0';
break; break;
} }
case SQLITE_BLOB: { case SQLITE_BLOB: {
len = sqlite3_column_bytes(s, i); len = sqlite3_column_bytes(s, i);
c->s = CARP_MALLOC(len); c->s = CARP_MALLOC(len+1);
memcpy(c->s, sqlite3_column_blob(s, i), len); memcpy(c->s, sqlite3_column_blob(s, i), len);
c->s[len] = '\0'; c->s[len] = '\0';
break; break;