9d34f0f147
Other major changes: - pg code now uses only binary format - pg timestamptz now always UTC (tz = 0), added doc section - added contracts to most pg "can't-convert" errors
68 lines
1.9 KiB
Racket
68 lines
1.9 KiB
Racket
#lang racket/base
|
|
(require racket/class
|
|
"../generic/interfaces.rkt"
|
|
"../generic/common.rkt")
|
|
(provide dbsystem
|
|
classify-sl-sql)
|
|
|
|
(define sqlite3-dbsystem%
|
|
(class* dbsystem-base% (dbsystem<%>)
|
|
(define/public (get-short-name) 'sqlite3)
|
|
(define/override (get-type-list) '((any 0)))
|
|
(define/public (has-support? x) #f)
|
|
|
|
(define/public (get-parameter-handlers param-typeids)
|
|
(map (lambda (param-typeid) check-param)
|
|
param-typeids))
|
|
|
|
(define/public (field-dvecs->typeids dvecs)
|
|
(map (lambda (dvec) (vector-ref dvec 0))
|
|
dvecs))
|
|
|
|
(define/public (describe-params typeids)
|
|
(map (lambda _ '(#t any #f)) typeids))
|
|
|
|
(define/public (describe-fields dvecs)
|
|
(map (lambda _ '(#t any #f)) dvecs))
|
|
|
|
(super-new)))
|
|
|
|
(define dbsystem
|
|
(new sqlite3-dbsystem%))
|
|
|
|
;; ========================================
|
|
|
|
(define (check-param fsym param)
|
|
(unless (or (real? param)
|
|
(string? param)
|
|
(bytes? param))
|
|
(error/no-convert fsym "SQLite" "parameter" param))
|
|
param)
|
|
|
|
;; ========================================
|
|
|
|
;; SQL "parsing"
|
|
;; We just care about detecting commands that affect transaction status.
|
|
|
|
;; classify-sl-sql : string [nat] -> symbol/#f
|
|
(define classify-sl-sql
|
|
(make-sql-classifier
|
|
'(;; Statements that do not invalidate the statement cache
|
|
("SELECT" select)
|
|
("INSERT" insert)
|
|
("UPDATE" update)
|
|
("DELETE" delete)
|
|
|
|
;; Explicit transaction commands
|
|
("ROLLBACK TRANSACTION TO" rollback-savepoint)
|
|
("ROLLBACK TO" rollback-savepoint)
|
|
("RELEASE" release-savepoint)
|
|
("SAVEPOINT" savepoint)
|
|
;; Note: SAVEPOINT allowed outside of transaction! (but that's okay)
|
|
|
|
("BEGIN" start)
|
|
("COMMIT" commit)
|
|
("END" commit)
|
|
("ROLLBACK" rollback) ;; Note: after ROLLBACK TO, etc
|
|
)))
|