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

updated docs for new simple-result info

Browse Source 
Most changes are due to unrelated serialization improvements,
but there's one example with a different result.
This commit is contained in:
Ryan Culpepper 2012-12-30 21:52:20 -05:00
parent 681558328e
commit c0543e8f65
4 changed files with 53 additions and 84 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/db/scribblings/log-for-connect.rktd
View File

@ -44,20 +44,20 @@
((3) 0 () 0 () () (c values c (void)))
#""
#"")
((connected? c) ((3) 0 () 0 () () (c values c #f)) #"" #"")
((connected? c) ((3) 0 () 0 () () (q values #f)) #"" #"")
((query-value c "select 1")
((3) 0 () 0 () () (c values c 1))
((3) 0 () 0 () () (q values 1))
#"connecting!\n"
#"")
((connected? c) ((3) 0 () 0 () () (c values c #t)) #"" #"")
((connected? c) ((3) 0 () 0 () () (q values #t)) #"" #"")
((void (thread (lambda () (displayln (query-value c "select 2")))))
((3) 0 () 0 () () (c values c (void)))
#"connecting!\n2\n"
#"")
((disconnect c) ((3) 0 () 0 () () (c values c (void))) #"" #"")
((connected? c) ((3) 0 () 0 () () (c values c #f)) #"" #"")
((connected? c) ((3) 0 () 0 () () (q values #f)) #"" #"")
((query-value c "select 3")
((3) 0 () 0 () () (c values c 3))
((3) 0 () 0 () () (q values 3))
#"connecting!\n"
#"")
((prepare c "select 2 + $1")
@ -67,15 +67,15 @@
0
()
()
(c exn c "prepare: cannot prepare statement with virtual connection"))
(q exn "prepare: cannot prepare statement with virtual connection"))
#""
#"")
((query-value c "select 2 + $1" 2) ((3) 0 () 0 () () (c values c 4)) #"" #"")
((query-value c "select 2 + $1" 2) ((3) 0 () 0 () () (q values 4)) #"" #"")
((define pst (virtual-statement "select 2 + $1"))
((3) 0 () 0 () () (c values c (void)))
#""
#"")
((query-value c pst 3) ((3) 0 () 0 () () (c values c 5)) #"" #"")
((query-value c pst 3) ((3) 0 () 0 () () (q values 5)) #"" #"")
((begin (set! c #f) (set! pst #f))
((3) 0 () 0 () () (c values c (void)))
#""

47
collects/db/scribblings/log-for-query.rktd
View File

@ -35,7 +35,7 @@
#""
#"")
((query-list c "select n from the_numbers where n < 2")
((3) 0 () 0 () () (c values c (c 0 c 1)))
((3) 0 () 0 () () (q values (0 1)))
#""
#"")
((query-list c "select 'hello'")
@ -51,7 +51,7 @@
#""
#"")
((query-maybe-row pgc "select * from the_numbers where n = $1" 100)
((3) 0 () 0 () () (c values c #f))
((3) 0 () 0 () () (q values #f))
#""
#"")
((query-maybe-row c "select 17")
@ -75,15 +75,15 @@
#""
#"")
((query-maybe-value pgc "select d from the_numbers where n = $1" 100)
((3) 0 () 0 () () (c values c #f))
((3) 0 () 0 () () (q values #f))
#""
#"")
((query-maybe-value c "select count(*) from the_numbers")
((3) 0 () 0 () () (c values c 4))
((3) 0 () 0 () () (q values 4))
#""
#"")
((for/list ((n (in-query pgc "select n from the_numbers where n < 2"))) n)
((3) 0 () 0 () () (c values c (c 0 c 1)))
((3) 0 () 0 () () (q values (0 1)))
#""
#"")
((call-with-transaction
@ -103,9 +103,8 @@
0
()
()
(c
(q
exn
c
"in-query: query returned wrong number of columns\n statement: \"select * from the_numbers\"\n expected: 1\n got: 2"))
#""
#"")
@ -134,13 +133,9 @@
values
c
(0
(c
(c (c name . "type"))
c
(c
(c name . "grouped")
c
(c grouped c (c (c name . "maker")) c (c (c name . "model")))))
(q
((name . "type"))
((name . "grouped") (grouped ((name . "maker")) ((name . "model")))))
(c
(v!
"car"
@ -161,14 +156,14 @@
.
deserialize-info:rows-result-v0))
1
((c name . "grouped"))
((q name . "grouped"))
()
(c
values
c
(0
(c
(c (c name . "type"))
(q (name . "type"))
c
(c
(? . 0)
@ -176,15 +171,13 @@
(c
grouped
c
(c (c name . "maker"))
(q (name . "maker"))
c
(c (? . 0) c (c grouped c (c (c name . "model")))))))
(c (? . 0) q (grouped ((name . "model")))))))
(c
(v!
"car"
(c (v! "honda" (c "civic")) c (v! "ford" (c "focus" c "pinto"))))
(v! "car" (c (v! "honda" (q "civic")) c (v! "ford" (q "focus" "pinto"))))
c
(v! "bike" (c (v! "giant" (c "boulder")) c (v! "schwinn" ())))))))
(v! "bike" (c (v! "giant" (q "boulder")) c (v! "schwinn" ())))))))
#""
#"")
((rows->dict vehicles-result #:key "model" #:value '#("type" "maker"))
@ -227,9 +220,9 @@
(h
-
(equal)
("ford" c "focus" c "pinto")
("honda" c "civic")
("giant" c "boulder")
("ford" q "focus" "pinto")
("honda" q "civic")
("giant" q "boulder")
("schwinn"))))
#""
#"")
@ -250,8 +243,8 @@
((3) 0 () 0 () () (c values c (void)))
#""
#"")
((query-list pgc pst 3) ((3) 0 () 0 () () (c values c (c 0 c 1 c 2))) #"" #"")
((query-list pgc pst 3) ((3) 0 () 0 () () (c values c (c 0 c 1 c 2))) #"" #"")
((query-list pgc pst 3) ((3) 0 () 0 () () (q values (0 1 2))) #"" #"")
((query-list pgc pst 3) ((3) 0 () 0 () () (q values (0 1 2))) #"" #"")
((with-handlers
((exn:fail:sql? exn:fail:sql-info))
(query pgc "select * from nosuchtable"))

39
collects/db/scribblings/log-for-sql-types.rktd
View File

@ -18,11 +18,11 @@
#""
#"")
((query-value pgc "select count(*) from the_numbers")
((3) 0 () 0 () () (c values c 4))
((3) 0 () 0 () () (q values 4))
#""
#"")
((query-value pgc "select false") ((3) 0 () 0 () () (c values c #f)) #"" #"")
((query-value pgc "select 1 + $1" 2) ((3) 0 () 0 () () (c values c 3)) #"" #"")
((query-value pgc "select false") ((3) 0 () 0 () () (q values #f)) #"" #"")
((query-value pgc "select 1 + $1" 2) ((3) 0 () 0 () () (q values 3)) #"" #"")
((query-value pgc "select inet '127.0.0.1'")
((3)
0
@ -30,7 +30,7 @@
0
()
()
(c exn c "query-value: unsupported type\n type: inet\n typeid: 869"))
(q exn "query-value: unsupported type\n type: inet\n typeid: 869"))
#""
#"")
((query-value pgc "select cast(inet '127.0.0.1' as varchar)")
@ -38,30 +38,30 @@
#""
#"")
((query-value pgc "select real '+Infinity'")
((3) 0 () 0 () () (c values c +inf.0))
((3) 0 () 0 () () (q values +inf.0))
#""
#"")
((query-value pgc "select numeric '12345678901234567890'")
((3) 0 () 0 () () (c values c 12345678901234567890))
((3) 0 () 0 () () (q values 12345678901234567890))
#""
#"")
((query-value pgc "select 1 in (1, 2, 3)")
((3) 0 () 0 () () (c values c #t))
((3) 0 () 0 () () (q values #t))
#""
#"")
((query-value
pgc
"select 1 = any ($1::integer[])"
(list->pg-array (list 1 2 3)))
((3) 0 () 0 () () (c values c #t))
((3) 0 () 0 () () (q values #t))
#""
#"")
((query-value pgc "select 1 = any ($1)" (list 1 2 3))
((3) 0 () 0 () () (c values c #t))
((3) 0 () 0 () () (q values #t))
#""
#"")
((query-value pgc "select $1::integer = any ($2)" 1 (list 1 2 3))
((3) 0 () 0 () () (c values c #t))
((3) 0 () 0 () () (q values #t))
#""
#"")
((query-value pgc "select $1 = any ($2)" 1 (list 1 2 3))
@ -71,9 +71,8 @@
0
()
()
(c
(q
exn
c
"query-value: cannot convert given value to SQL type\n given: 1\n type: string\n expected: string?\n dialect: PostgreSQL"))
#""
#"")
@ -87,10 +86,10 @@
(c values c (0)))
#""
#"")
((sql-null->false "apple") ((3) 0 () 0 () () (c values c "apple")) #"" #"")
((sql-null->false sql-null) ((3) 0 () 0 () () (c values c #f)) #"" #"")
((sql-null->false #f) ((3) 0 () 0 () () (c values c #f)) #"" #"")
((false->sql-null "apple") ((3) 0 () 0 () () (c values c "apple")) #"" #"")
((sql-null->false "apple") ((3) 0 () 0 () () (q values "apple")) #"" #"")
((sql-null->false sql-null) ((3) 0 () 0 () () (q values #f)) #"" #"")
((sql-null->false #f) ((3) 0 () 0 () () (q values #f)) #"" #"")
((false->sql-null "apple") ((3) 0 () 0 () () (q values "apple")) #"" #"")
((false->sql-null #f)
((3)
1
@ -145,11 +144,3 @@
(c values c (0 1970 1 1 0 0 0 0 0)))
#""
#"")
((sql-bits->list (string->sql-bits "1011"))
((3) 0 () 0 () () (c values c (c #t c #f c #t c #t)))
#""
#"")
((sql-bits->string (query-value pgc "select B'010110111'"))
((3) 0 () 0 () () (c values c (u . "010110111")))
#""
#"")

35
collects/db/scribblings/log-for-using-db.rktd
View File

@ -35,7 +35,7 @@
0
()
()
(c values c (0 (c (c command u . "INSERT 0 1")))))
(c values c (0 (q (insert-id . #f) (affected-rows . 1)))))
#""
#"")
((query pgc "select n, d from the_numbers where n % 2 = 0")
@ -52,23 +52,9 @@
c
(0
(c
(c
(c name u . "n")
c
(c typeid . 23)
c
(c type-size . 4)
c
(c type-mod . -1))
(c (c name u . "n") q (typeid . 23) (type-size . 4) (type-mod . -1))
c
(c
(c name u . "d")
c
(c typeid . 1043)
c
(c type-size . -1)
c
(c type-mod . 24)))
(c (c name u . "d") q (typeid . 1043) (type-size . -1) (type-mod . 24)))
(c (v! 0 (u . "nothing")) c (v! 2 (u . "company"))))))
#""
#"")
@ -107,7 +93,7 @@
#""
#"")
((query-value pgc "select count(*) from the_numbers")
((3) 0 () 0 () () (c values c 4))
((3) 0 () 0 () () (q values 4))
#""
#"")
((query-value pgc "select d from the_numbers where n = 5")
@ -117,14 +103,13 @@
0
()
()
(c
(q
exn
c
"query-value: query returned wrong number of rows\n statement: \"select d from the_numbers where n = 5\"\n expected: 1\n got: 0"))
#""
#"")
((query-maybe-value pgc "select d from the_numbers where n = 5")
((3) 0 () 0 () () (c values c #f))
((3) 0 () 0 () () (q values #f))
#""
#"")
((for
@ -137,7 +122,7 @@
((sum 0))
((n (in-query pgc "select n from the_numbers")))
(+ sum n))
((3) 0 () 0 () () (c values c 6))
((3) 0 () 0 () () (q values 6))
#""
#"")
((begin
@ -153,7 +138,7 @@
#""
#"")
((query-list pgc "select n from the_numbers where n > $1 and n < $2" 0 3)
((3) 0 () 0 () () (c values c (c 1 c 2)))
((3) 0 () 0 () () (q values (1 2)))
#""
#"")
((define get-less-than-pst
@ -162,11 +147,11 @@
#""
#"")
((query-list pgc get-less-than-pst 1)
((3) 0 () 0 () () (c values c (c 0)))
((3) 0 () 0 () () (q values (0)))
#""
#"")
((query-list pgc (bind-prepared-statement get-less-than-pst '(2)))
((3) 0 () 0 () () (c values c (c 0 c 1)))
((3) 0 () 0 () () (q values (0 1)))
#""
#"")
((void) ((3) 0 () 0 () () (c values c (void))) #"" #"")