s c h e m a t i c s : c o o k b o o k

(require (planet "sqli.scm" ("oesterholt" "sqlid.plt" 1 5)))
(require (planet "sqld-psql.scm" ("oesterholt" "sqld-psql.plt" 1 0)))

(define (octify byte-in)
 (list->string (list #\                     #\                     (integer->char (+ 48 (quotient byte-in 64)))
                     (integer->char (+ 48 (modulo (quotient byte-in 8) 8)))
                     (integer->char (+ 48 (modulo byte-in 8))))))

(define (bytes->sql-bytea bytes-in)
 (apply string-append
        (map octify
             (bytes->list bytes-in))))


(sqli-query sqli "INSERT INTO blobdemo (file) VALUES ($1)"
             (bytes->sql-bytea bytestring))

(define (fix-quotes-for-sql-octal-input string-in)
 (regexp-replace* (list->string (list #\"))
                  string-in
                  (list->string (list #\\ #\\ #\"))
                  ))

(define (hans-get-everything-test)
 (define results (sqli-query sqli "SELECT ALL * FROM blobdemo where id = 32"))
 (sqli-fetchall sqli))


(letrec ([result (hans-get-everything-test)]
        [data (read (open-input-string (string-append "#\""

(fix-quotes-for-sql-octal-input
                                                       (second (first result)))  ;;;you should do somethign prettier then this to access your data.  this is just for a example.
                                                      "\"")))]
 data)