#|-------------------- 0.3 |# "./awful-postgresql.meta" 371
;;; awful-postgresql.meta -*- scheme -*-

((egg "awful-postgresql.egg")
 (synopsis "Postgresql support for awful")
 (author "<a href=\"http://chicken.wiki.br/users/mario-domenech-goulart\">Mario Domenech Goulart</a>")
 (license "BSD")
 (category web)
 (depends (awful "0.10") postgresql)
 (files "awful-postgresql.scm" "awful-postgresql.meta" "awful-postgresql.setup"))


#|-------------------- 0.3 |# "./awful-postgresql.scm" 1018
(module awful-postgresql (enable-db)

(import chicken scheme data-structures)
(use awful postgresql)

(define (enable-db . ignore) ;; backward compatibility: `enable-db' was a parameter

  (db-enabled? #t)

  (db-connect connect)

  (db-disconnect disconnect)

  (db-inquirer (lambda (q #!key default values)
                 (let ((result
                        (if values
                            (query* (db-connection) q values)
                            (query* (db-connection) q))))
                   (if (zero? (row-count result))
                       default
                       (row-map identity result)))))

  (sql-quoter (lambda (data)
                (++ "'" (escape-string (db-connection) (concat data)) "'")))

  (db-make-row-obj (lambda (q)
                     (let ((result (row-alist (query* (db-connection) q))))
                       (lambda (field #!optional default)
                         (or (alist-ref field result)
                             default)))))
  )

) ; end module

#|-------------------- 0.3 |# "./awful-postgresql.setup" 302
;;; awful-postgresql.setup -*- scheme -*-

(compile -s -O2 -d1 -j awful-postgresql awful-postgresql.scm)
(compile -s -O2 -d1 awful-postgresql.import.scm)

(install-extension 'awful-postgresql
                   '("awful-postgresql.so" "awful-postgresql.import.so")
                   '((version 0.3)))