suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Uses the new sqlite ffi

Browse Source 
svn: r13816
This commit is contained in:
Jay McCarthy 2009-02-24 17:05:56 +00:00
parent 4c02e3736d
commit 07dee9995b
2 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/web-server/scribblings/tutorial/continue.scrbl
View File

@ -948,7 +948,6 @@ So, in the next section, we'll talk about how to use an SQL database to store ou
web-server/scribblings/tutorial/examples/dummy-3
web-server/scribblings/tutorial/dummy-sqlite)]
@(require (for-label web-server/scribblings/tutorial/dummy-sqlite))
@;@(require (prefix-in sqlite: (for-label (planet jaymccarthy/sqlite:3/sqlite))))
Our next task is to employ an SQL database for the blog model. We'll be using SQLite with the @schememodname[(planet jaymccarthy/sqlite:3/sqlite)] PLaneT package. We add the following to the top of our model:
@ -961,7 +960,7 @@ We now have the following bindings:
@defthing[sqlite:db? (any/c . -> . boolean?)]
@defthing[sqlite:open (path? . -> . sqlite:db?)]
@defthing[sqlite:exec/ignore (sqlite:db? string? . -> . void)]
@defthing[sqlite:select (sqlite:db? string? . -> . (listof vector?))]
@defthing[sqlite:select (sqlite:db? string? . -> . (listof (vectorof (or/c integer? number? string? bytes? false/c))))]
@defthing[sqlite:insert (sqlite:db? string? . -> . integer?)]
@ -1068,8 +1067,7 @@ The only function that creates posts is @scheme[blog-posts]:
(local [(define (row->post a-row)
(make-post
a-blog
(string->number
(vector-ref a-row 0))))
(vector-ref a-row 0)))
(define rows (sqlite:select
(blog-db a-blog)
"SELECT id FROM posts"))]

5
collects/web-server/scribblings/tutorial/examples/model-3.ss
View File

@ -1,5 +1,5 @@
#lang scheme
(require (prefix-in sqlite: (planet jaymccarthy/sqlite:3/sqlite)))
(require (prefix-in sqlite: (planet jaymccarthy/sqlite:4)))
;; A blog is a (make-blog db)
;; where db is an sqlite database handle
@ -37,8 +37,7 @@
(local [(define (row->post a-row)
(make-post
a-blog
(string->number
(vector-ref a-row 0))))
(vector-ref a-row 0)))
(define rows (sqlite:select
(blog-db a-blog)
"SELECT id FROM posts"))]