aboutsummaryrefslogtreecommitdiff
path: root/src/ellinika/test-conjugation.scm
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2011-06-15 10:05:10 +0300
committerSergey Poznyakoff <gray@gnu.org.ua>2011-06-15 10:24:46 +0300
commitbb9dd8a54a96307aad7bf976f1736d20c70d43e3 (patch)
treedf632e2c76facc932c4c34978eba4b9ae4cb0354 /src/ellinika/test-conjugation.scm
parenta27881a1c5bd7d8f8f42cd6526adf80815acfe63 (diff)
downloadellinika-bb9dd8a54a96307aad7bf976f1736d20c70d43e3.tar.gz
ellinika-bb9dd8a54a96307aad7bf976f1736d20c70d43e3.tar.bz2
Implement web conjugator.
* src/cgi-bin/.gitignore: Update. * src/cgi-bin/Makefile.am: Build conj,cgi * src/cgi-bin/conj.scm4: New file. * src/cgi-bin/dict.scm4 (protect): Move to cgi.scm, function cgi-protect-quotes. All uses updated. * src/ellinika/cgi.scm4 (cgi-protect-quotes): New function. * src/ellinika/Makefile.am (guile_DATA): Add conjugator.scm * src/ellinika/conjugator.scm: Minor fixes. * src/ellinika/sql.scm (->string): Fix typo. * src/ellinika/tenses.scm (ellinika-conjugation-term-transtab): New var. (ellinika-conjugation-term): New function. * src/ellinika/test-conjugation.scm: Use ellinika-conjugation-term instead of (term). * xml/lingua.conf.in (install-conj): New macro. * xml/pl/ellinika.xml (GUILE): Call install-conj. * xml/pl/rhmata.xml: Define conjugator template page.
Diffstat (limited to 'src/ellinika/test-conjugation.scm')
-rw-r--r--src/ellinika/test-conjugation.scm14
1 files changed, 3 insertions, 11 deletions
diff --git a/src/ellinika/test-conjugation.scm b/src/ellinika/test-conjugation.scm
index 055138b..1504553 100644
--- a/src/ellinika/test-conjugation.scm
+++ b/src/ellinika/test-conjugation.scm
@@ -27,20 +27,12 @@
(ellinika-cgi-init dict-template-file-name)
(ellinika:sql-connect ellinika-sql-connection)
-(define transtab
- '(("act" . "Ενεργητηκή φωνή")
- ("pas" . "Μεσοπαθητική φωνή")
- ("ind" . "Οριστική")
- ("sub" . "Υποτακτική")
- ("imp" . "Προστακτική")))
-
-(define (term x)
- (or (assoc-ref transtab x) x))
-
(define-public (test-conjugation:tense verb voice mood tense)
(for-each
(lambda (result)
- (format #t "~A ~A/~A/~A: " verb (term voice) (term mood) tense)
+ (format #t "~A ~A/~A/~A: " verb
+ (ellinika-conjugation-term voice)
+ (ellinika-conjugation-term mood) tense)
(let ((conj (conjugation:table result)))
(cond
((empty-conjugation? conj)

Return to:

Send suggestions and report system problems to the System administrator.