diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-06-15 10:05:10 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-06-15 10:24:46 +0300 |
commit | bb9dd8a54a96307aad7bf976f1736d20c70d43e3 (patch) | |
tree | df632e2c76facc932c4c34978eba4b9ae4cb0354 /xml | |
parent | a27881a1c5bd7d8f8f42cd6526adf80815acfe63 (diff) | |
download | ellinika-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 'xml')
-rw-r--r-- | xml/lingua.conf.in | 10 | ||||
-rw-r--r-- | xml/pl/ellinika.xml | 3 | ||||
-rw-r--r-- | xml/pl/rhmata.xml | 6 |
3 files changed, 18 insertions, 1 deletions
diff --git a/xml/lingua.conf.in b/xml/lingua.conf.in index 22570b8..3b86202 100644 --- a/xml/lingua.conf.in +++ b/xml/lingua.conf.in @@ -43,6 +43,16 @@ (lingua:LANG args))))) (xmltrans:set-attr "LINGUA" "NEA" nea))) +(define-macro (install-conj) + `(use-modules (xmltrans lingua) + (xmltools dict)) + (letrec ((conj (lambda (. args) + (string-append + (lingua:get-cgi-bin) + "/conj.=SCRIPT_SUFFIX=?LANG=" + (lingua:LANG args))))) + (xmltrans:set-attr "LINGUA" "CONJ" conj))) + (xmltrans:end-tag "FOOTER" (tag attr text) diff --git a/xml/pl/ellinika.xml b/xml/pl/ellinika.xml index 8dcd1f3..f2d7f15 100644 --- a/xml/pl/ellinika.xml +++ b/xml/pl/ellinika.xml @@ -33,12 +33,13 @@ <COPYRIGHT> <FOOTER VCS-ID="$Id$"> -Copyright <![CDATA[©]]> 2004, 2005, 2006, 2007, 2010 Sergey Poznyakoff +Copyright <![CDATA[©]]> 2004-2011 Sergey Poznyakoff </FOOTER> </COPYRIGHT> <GUILE> (install-nea) + (install-conj) #f </GUILE> diff --git a/xml/pl/rhmata.xml b/xml/pl/rhmata.xml index 10b9978..42d5caa 100644 --- a/xml/pl/rhmata.xml +++ b/xml/pl/rhmata.xml @@ -2492,6 +2492,12 @@ równy drugiej osobie czasu przeszłego dokonanego trybu łączącego: </TABULAR> </PAGE> +<PAGE PREFIX="conj" HEADER="Koniugator" REF="CONJ"> + +@@conj@@ + +</PAGE> + </CHAPTER> <!-- Local Variables: --> |