Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | added sqlite3-trace |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
04c36a824f4eee53b918e6d7eb2a80cd |
| User & Date: | aldo 2017-11-12 20:41:20 |
Context
|
2017-11-12
| ||
| 20:41 | added json->string check-in: 16dfcae804 user: aldo tags: trunk | |
| 20:41 | added sqlite3-trace check-in: 04c36a824f user: aldo tags: trunk | |
|
2017-09-11
| ||
| 21:22 | small fix in curl.sls check-in: 2d1481d9d8 user: aldo tags: trunk | |
Changes
Changes to sqlite3.sls.
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
...
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
|
map-row with-transaction sql-complete? database-version database-memory-used database-memory-highwater enable-shared-cache! enable-load-extension!) (import (chezscheme) (srfi s0 cond-expand) (srfi s2 and-let) (matchable) (only (srfi s13 strings) string-contains-ci) ................................................................................ [else (cond [((foreign-procedure "sqlite3_enable_load_extension" (sqlite3:database* boolean) int) (database-addr db) enable?) => (abort-sqlite3-error 'enable-load-extension! db)] [else enable?])])) (record-writer (type-descriptor database) (lambda (r p wr) (wr (if (database-ptr r) "#<sqlite3:database>" "#<sqlite3:database zombie>") p))) ) ; library sqlite3 |
|
>
>
>
>
>
>
>
>
>
|
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
...
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
|
map-row with-transaction sql-complete? database-version database-memory-used database-memory-highwater enable-shared-cache! enable-load-extension! sqlite3-trace) (import (chezscheme) (srfi s0 cond-expand) (srfi s2 and-let) (matchable) (only (srfi s13 strings) string-contains-ci) ................................................................................ [else (cond [((foreign-procedure "sqlite3_enable_load_extension" (sqlite3:database* boolean) int) (database-addr db) enable?) => (abort-sqlite3-error 'enable-load-extension! db)] [else enable?])])) (define (sqlite3-trace db func data) (check-database 'sqlite3-trace db) (let ([f (foreign-procedure "sqlite3_trace" (sqlite3:database* void* void*) void)]) (f (database-addr db) func data))) (foreign-procedure "sqlite3_trace" ( void* void*) void) (record-writer (type-descriptor database) (lambda (r p wr) (wr (if (database-ptr r) "#<sqlite3:database>" "#<sqlite3:database zombie>") p))) ) ; library sqlite3 |