50 lines
1.2 KiB
Racket
50 lines
1.2 KiB
Racket
;; This file was created by make-log-based-eval
|
|
((require racket/class db db/util/postgresql db/util/datetime)
|
|
((3) 0 () 0 () () (c values c (void)))
|
|
#""
|
|
#"")
|
|
((begin
|
|
(define pgc (dsn-connect 'db-scribble-env))
|
|
(query-exec
|
|
pgc
|
|
"create temporary table the_numbers (n integer, d varchar(20))")
|
|
(query-exec pgc "insert into the_numbers values (0, 'nothing')")
|
|
(query-exec
|
|
pgc
|
|
"insert into the_numbers values (1, 'the loneliest number')")
|
|
(query-exec pgc "insert into the_numbers values (2, 'company')")
|
|
(query-exec pgc "insert into the_numbers values (3, 'a crowd')"))
|
|
((3) 0 () 0 () () (c values c (void)))
|
|
#""
|
|
#"")
|
|
((sql-datetime->srfi-date (query-value pgc "select time '7:30'"))
|
|
((3)
|
|
1
|
|
(((lib "srfi/19/time.rkt") . deserialize-info:tm:date-v0))
|
|
0
|
|
()
|
|
()
|
|
(c values c (0 0 0 30 7 0 0 0 0)))
|
|
#""
|
|
#"")
|
|
((sql-datetime->srfi-date (query-value pgc "select date '25-dec-1980'"))
|
|
((3)
|
|
1
|
|
(((lib "srfi/19/time.rkt") . deserialize-info:tm:date-v0))
|
|
0
|
|
()
|
|
()
|
|
(c values c (0 0 0 0 0 25 12 1980 0)))
|
|
#""
|
|
#"")
|
|
((sql-datetime->srfi-date (query-value pgc "select timestamp 'epoch'"))
|
|
((3)
|
|
1
|
|
(((lib "srfi/19/time.rkt") . deserialize-info:tm:date-v0))
|
|
0
|
|
()
|
|
()
|
|
(c values c (0 0 0 0 0 1 1 1970 0)))
|
|
#""
|
|
#"")
|