diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-06-14 14:20:39 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-06-14 14:20:39 +0300 |
commit | 8c1de36d1f8b27fb946dac15e725c93ec57c1538 (patch) | |
tree | 17babe745cf794a7485fc2bc0b9c9e0c9120d893 /src/ellinika/test-conjugation.scm | |
parent | ce29f168ed52f08228b99a789785271a4a3c9b0e (diff) | |
download | ellinika-8c1de36d1f8b27fb946dac15e725c93ec57c1538.tar.gz ellinika-8c1de36d1f8b27fb946dac15e725c93ec57c1538.tar.bz2 |
Improve SQL interface.
* src/ellinika/sql.scm (ellinika:sql-verbose)
(ellinika:sql-dry-run,ellinika:sql-conn): New public vars.
(ellinika:format-sql-query): New function.
(ellinika:sql-query): Rewrite.
* scm/verbop.scm: Use (ellinika sql).
* src/ellinika/conjugator.scm: Likewise.
* src/ellinika/test-conjugation.scm: Likewise.
* data/irregular-verbs.xml: Update.
* src/ellinika/tests/conj/apomenv.scm: New file.
Diffstat (limited to 'src/ellinika/test-conjugation.scm')
-rw-r--r-- | src/ellinika/test-conjugation.scm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/ellinika/test-conjugation.scm b/src/ellinika/test-conjugation.scm index 83086bf..055138b 100644 --- a/src/ellinika/test-conjugation.scm +++ b/src/ellinika/test-conjugation.scm @@ -22,12 +22,10 @@ (ellinika cgi) (ellinika tenses) (ellinika conjugator) - (gamma sql)) + (ellinika sql)) (ellinika-cgi-init dict-template-file-name) -(define db-connection (sql-open-connection ellinika-sql-connection)) -(sql-query db-connection "SET NAMES utf8") - +(ellinika:sql-connect ellinika-sql-connection) (define transtab '(("act" . "Ενεργητηκή φωνή") @@ -59,7 +57,7 @@ (display "!")))) (display conj))))) (newline)) - (conjugator db-connection verb voice mood tense)) + (conjugator verb voice mood tense)) (gc)) (define-public (test-conjugation:voice voice verb) |