aboutsummaryrefslogtreecommitdiff
path: root/xml
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 /xml
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 'xml')
-rw-r--r--xml/lingua.conf.in10
-rw-r--r--xml/pl/ellinika.xml3
-rw-r--r--xml/pl/rhmata.xml6
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[&copy;]]> 2004, 2005, 2006, 2007, 2010 Sergey Poznyakoff
+Copyright <![CDATA[&copy;]]> 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: -->

Return to:

Send suggestions and report system problems to the System administrator.