#|-------------------- 0.3 |# "./awful-sql-de-lite.meta" 377
;;; awful-sql-de-lite.meta -*- scheme -*-

((egg "awful-sql-de-lite.egg")
 (synopsis "sql-de-lite 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") sql-de-lite)
 (files "awful-sql-de-lite.meta" "awful-sql-de-lite.scm" "awful-sql-de-lite.setup"))

#|-------------------- 0.3 |# "./awful-sql-de-lite.scm" 933
(module awful-sql-de-lite (enable-db)

(import chicken scheme regex)
(use awful sql-de-lite)

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

  (db-enabled? #t)

  (db-connect open-database)

  (db-disconnect close-database)

  (db-inquirer (lambda (q #!key default values)
                 (if values
                     (apply query (append (list
                                         (map-rows (lambda (data) data))
                                         (sql (db-connection) q))
                                        values))
                     (query (map-rows (lambda (data) data))
                            (sql (db-connection) q)))))

  (sql-quoter (lambda (data)
                (++ "'" (string-substitute* (concat data) '(("'" . "''"))) "'")))

  (db-make-row-obj (lambda (q)
                     (error '$db-row-obj "Not implemented for sql-de-lite.")))
  )
) ; end module

#|-------------------- 0.3 |# "./awful-sql-de-lite.setup" 309
;;; awful-sql-de-lite.setup -*- scheme -*-

(compile -s -O2 -d1 -j awful-sql-de-lite awful-sql-de-lite.scm)
(compile -s -O2 -d1 awful-sql-de-lite.import.scm)

(install-extension 'awful-sql-de-lite
                   '("awful-sql-de-lite.so" "awful-sql-de-lite.import.so")
                   '((version 0.3)))