Source

mysql-client.egg / README

; A small (experimental) MySQL client procedure for chicken-scheme.
;
; Example program below, to compile and run:
;
;   make
;   ./scm-mysql-example

  (include "mysql.scm")

  (define sql (make-mysql-connection "localhost" "root" #f "information_schema"))

  (define fetch (sql "select * from schemata"))

  (define (fetch-loop)
    (let ((row (fetch)))
      (if row 
         (begin
            (printf "~A~%" row)
            (fetch-loop)))))

  (fetch-loop)