diff options
| author | Jaromil <[email protected]> | 2008-12-15 00:16:35 (GMT) |
|---|---|---|
| committer | Jaromil <[email protected]> | 2008-12-15 00:16:35 (GMT) |
| commit | ae141b857083ea1cdb869948bd3a5b43971ec253 (patch) | |
| tree | 1da0561c3dea38b549227b962c2b04953df12410 /stylesheets/dsssl-1.79 | |
| parent | 6ee104b3ee31995386aa2fa6c39121a4c3d1d8d5 (diff) | |
new FreeJ manual
with some re-organisation of the docbook setup to host multiple manuals
Diffstat (limited to 'stylesheets/dsssl-1.79')
316 files changed, 92101 insertions, 0 deletions
diff --git a/stylesheets/dsssl-1.79/BUGS b/stylesheets/dsssl-1.79/BUGS new file mode 100644 index 0000000..2400c96 --- a/dev/null +++ b/stylesheets/dsssl-1.79/BUGS @@ -0,0 +1,35 @@ +Using Equations w/o titles results in incorrectly numbered + equations with titles. Use InformalEquation instead. + +InlineEquations don't work in the RTF backend. It's not my fault. + +Callout support is somewhat fragile. + +Line numbering of linespecific displays is somewhat fragile. + +In two-sided mode, with the RTF backend, the appropriate + alternation of inner/outer headers and footers does not work + correctly unless %page-number-restart% is true. This is + caused by a limitation in RTF. + +CHAR alignment in tables is not supported + +The stylesheets can't automatically put callout marks on a +PROGRAMLISTING or SCREEN if the text comes from an external file +using the LINESPECIFIC INLINEGRAPHIC trick. + +"Extra" </P> elements appear in the HTML output if you put block +elements inside of <para> elements in your source. The problem +is that + + <para>Some text <table>...</table></p> + +Is translated into + + <P>Some text <table>...</table></P> + +but HTML doesn't allow "table" inside a P, so the begin table +implies an "</P>" which makes the </P> after the table erroneous. +I don't have a good answer for this, but I'm tempted to make all +<P> tags empty in the HTML so that the browser has to imply all +the </P>s. diff --git a/stylesheets/dsssl-1.79/ChangeLog b/stylesheets/dsssl-1.79/ChangeLog new file mode 100644 index 0000000..778484b --- a/dev/null +++ b/stylesheets/dsssl-1.79/ChangeLog @@ -0,0 +1,140 @@ +2004-11-05 Michael Smith <[email protected]> + + * Makefile: plain-text release notes, added target to make + +2004-11-04 Michael Smith <[email protected]> + + * .cvsignore: ignore RELEASE-NOTES.html + + * .cvsignore: ignore RELEASE-NOTES.txt + + * FRESHMEAT: New file. + + * Makefile: RELEASE-NOTES.html and freshmeat targets added + + * RELEASE-NOTES.xml: New file. + + * VERSION: Version 1.79 released. + +2004-10-23 <[email protected]> + + * Makefile: The debian directory no longer corresponds to the actual Debian package, so + it would only be confusing to keep it around. + + * TODO: TODO items are nowadays listed at SourceForge; this file doesn't serve a + purpose anymore. + +2004-09-14 <[email protected]> + + * README.CVS: Add note that xmlcharent also needs to be checked out when working from CVS. + +2003-03-21 Adam Di Carlo <[email protected]> + + * Makefile: clean target cleans backup files and CVS junk + + * VERSION: Keep CVS and real releases distinct + +2003-02-20 Adam Di Carlo <[email protected]> + + * Makefile: don't distrib empty debian dir and *.orig + +2003-02-19 Norman Walsh <[email protected]> + + * VERSION: Version 1.78 released. + +2002-12-16 Adam Di Carlo <[email protected]> + + * .cvsignore: ignorables, esp stuff built by debian/rules + +2002-08-08 Adam Di Carlo <[email protected]> + + * Makefile: 'doc' target uses bin subdir, clean target additional goes into print, + html, and bin + + * catalog: appropriate DTDDECL for dtds/html/dbhtml.dcl (merging in Debian changes) + +2002-08-07 Adam Di Carlo <[email protected]> + + * README.CVS: some more information in the 'Installation' section + +2002-07-07 Norman Walsh <[email protected]> + + * Makefile: Keep the debian directory out of the distribution + + * VERSION: Keep CVS and real releases distinct + + * VERSION: Version 1.77 released. + +2002-03-24 Adam Di Carlo <[email protected]> + + * Makefile: clean does more subdirs now + +2002-02-22 Norman Walsh <[email protected]> + + * Makefile: Improve archive construction + + * VERSION: Version 1.76 released. + +2002-02-21 Norman Walsh <[email protected]> + + * VERSION: Version 1.75 released. + +2001-12-01 Norman Walsh <[email protected]> + + * Makefile: Bug #449776: include EPS/PDF graphics + +2001-11-30 Norman Walsh <[email protected]> + + * VERSION: Keep CVS versions distinct from real releases + + * VERSION: Merged V174bugfixes + + * VERSION: New file. + +2001-11-28 Norman Walsh <[email protected]> + + * VERSION: branches: 1.11.2; + Version 1.74 released. + +2001-09-29 Norman Walsh <[email protected]> + + * VERSION: Version 1.73 released. + + * VERSION: Keep CVS versions distinct from real releases + +2001-08-06 Norman Walsh <[email protected]> + + * VERSION: Keep CVS versions distinct from real releases + + * VERSION: Version 1.72 released. + +2001-07-08 Norman Walsh <[email protected]> + + * VERSION: Version 1.71 released. + +2001-05-22 Norman Walsh <[email protected]> + + * VERSION: Version 1.70 released. + +2001-04-20 Norman Walsh <[email protected]> + + * VERSION: Version 1.68 released. + + * VERSION: Version 1.69 released. + +2001-04-15 Norman Walsh <[email protected]> + + * Makefile: Various distribution hacks + +2001-04-04 Norman Walsh <[email protected]> + + * .cvsignore, Makefile, README: Adjust Makefiles and documentation for building a new distrib + + * VERSION: Version 1.67 released. + +2001-04-02 Norman Walsh <[email protected]> + + * BUGS, README.CVS, TODO, VERSION, catalog: Initial checkins + + * Makefile: New file. + diff --git a/stylesheets/dsssl-1.79/README b/stylesheets/dsssl-1.79/README new file mode 100644 index 0000000..4665743 --- a/dev/null +++ b/stylesheets/dsssl-1.79/README @@ -0,0 +1,91 @@ +README for the DocBook Stylesheets + +These are DSSSL stylesheets for the DocBook DTD. + +For more information, see http://docbook.sourceforge.net/ + +Manifest +-------- + +bin/ contains scripts for some (optional) post-processing +common/ contains code common to both stylesheets +contrib/ contains contributions +doc/ contains installation and reference documentation (this is + now distributed in a separate ZIP archive) +docsrc/ contains the SGML source for the documentation +dtds/ contains auxiliary DTDs +frames/ contains support for frames +html/ contains the HTML stylesheet (for use with -t sgml) +images/ contains images used by the HTML stylesheets +lib/ contains DSSSL functions that are believed to be useful but + are totally independent of any particular stylesheet +olink/ contains olink support +print/ contains the print stylesheet + +Changes +------- + +See the ChangeLog in each directory for additional information +about the specific changes. + +See WhatsNew for changes since the last release. + +Installation +------------ + +See doc/install.html and/or http://nwalsh.com/docbook/dsssl/ + +Copyright +--------- + +Copyright (C) 1997-2001 Norman Walsh + +The original inspiration for these stylesheets came from the +work of Jon Bosak, Anders Berglund, Tony Graham, Terry Allen, +James Clark, and many others. I am indebted to them and to the +community of users on [email protected] for making +substantial contributions to this work and for answering my many +questions. + +This software may be distributed under the same terms as Jade: + +Permission is hereby granted, free of charge, to any person +obtaining a copy of this software and associated documentation +files (the ``Software''), to deal in the Software without +restriction, including without limitation the rights to use, +copy, modify, merge, publish, distribute, sublicense, and/or +sell copies of the Software, and to permit persons to whom the +Software is furnished to do so, subject to the following +conditions: + +The above copyright notice and this permission notice shall be +included in all copies or substantial portions of the Software. + +Except as contained in this notice, the names of individuals +credited with contribution to this software shall not be used in +advertising or otherwise to promote the sale, use or other +dealings in this Software without prior written authorization +from the individuals in question. + +Any stylesheet derived from this Software that is publically +distributed will be identified with a different name and the +version strings in any derived Software will be changed so that +no possibility of confusion between the derived package and this +Software will exist. + +Warranty +-------- + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES +OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +NONINFRINGEMENT. IN NO EVENT SHALL NORMAN WALSH OR ANY OTHER +CONTRIBUTOR BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, +WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING +FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR +OTHER DEALINGS IN THE SOFTWARE. + +Contacting the Author +--------------------- + +These stylesheets are maintained by Norman Walsh, <[email protected]>. diff --git a/stylesheets/dsssl-1.79/RELEASE-NOTES.html b/stylesheets/dsssl-1.79/RELEASE-NOTES.html new file mode 100644 index 0000000..a7b97e3 --- a/dev/null +++ b/stylesheets/dsssl-1.79/RELEASE-NOTES.html @@ -0,0 +1,34 @@ +<html><head> + <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"> + <title>DocBook DSSSL Stylesheet Release Notes</title><meta name="generator" content="DocBook XSL Stylesheets V2004-10-18_18:25_snapshot"></head><body bgcolor="white" text="black" link="#0000FF" vlink="#840084" alink="#0000FF"><div class="article" lang="en"><div class="titlepage"><div><div><h1 class="title"><a name="d0e1"></a>DocBook DSSSL Stylesheet Release Notes</h1></div><div><h3 class="corpauthor">DocBook Open Repository Team</h3></div><div><p class="releaseinfo">$Id: RELEASE-NOTES.xml,v 1.1 2004/11/04 11:34:01 xmldoc Exp $</p></div><div><p class="pubdate">03 November 2004</p></div></div><hr></div><div class="toc"><p><b>Table of Contents</b></p><dl><dt><span class="section"><a href="#d0e18">Release 1.79</a></span></dt></dl></div><p>These are the release notes for the DocBook DSSSL Stylesheets. + At a minimum, this file attempts to document changes to the public + APIs and provide a high-level overview of the features added in each + release.</p><div class="section" lang="en"><div class="titlepage"><div><div><h2 class="title" style="clear: both"><a name="d0e18"></a>Release 1.79</h2></div></div></div><p>This release contains fixes for a number of long-standing + bugs. See the <a href="WhatsNew" target="_top">WhatsNew</a> file for more + details. Among the user-visible changes are:</p><div class="itemizedlist"><ul type="disc"><li><p><b>HTML stylesheets. </b> + </p><div class="itemizedlist"><ul type="circle"><li><p>The doctype definition in the HTML output now + contains a system identifier, required for better + parsing in contemporary browsers.</p></li><li><p>CSS decoration has been added to procedure + steps.</p></li><li><p>Uses of <VAR> in HTML output (often rendered + in italic) have been changed to something more + appropriate</p></li><li><p>The last character of the version was cut off in + previous releases.</p></li><li><p>Processing instruction parsing has been made + more robust against arbitrarily formed PIs.</p></li><li><p>Callout graphics and admonition graphics share a + single variable, %stock-graphics-extension%.</p></li><li><p>The value of the VALIGN attribute has been + corrected to MIDDLE instead of CENTER.</p></li></ul></div><p> + </p></li><li><p><b>Print stylesheets. </b> + </p><div class="itemizedlist"><ul type="circle"><li><p>Admonition titles and contents are kept + together.</p></li><li><p>Programlistings with callouts now honor the + width attribute.</p></li><li><p>The rendering of othercredit has been made more + useful.</p></li><li><p>Excessive after spacing when a listitem contains + multiple paras or verbatim environments has been + fixed.</p></li><li><p>Empty ulinks don't generate footnotes, so they + are now omitted from the footnote counting.</p></li><li><p>Some cases where components were restarting the + page numbering were fixed.</p></li><li><p>article-titlepage-recto-elements has been made + to match the HTML version.</p></li><li><p>Support for revdescription inside revison on + titlepages has been added.</p></li></ul></div><p> + </p></li><li><p><b>General. </b> + </p><div class="itemizedlist"><ul type="circle"><li><p>"pc" is now allowed as abbreviation for + "pica".</p></li><li><p>The return value of my-debug has been + fixed.</p></li><li><p>A Bosnian translation has been added.</p></li><li><p>A Bulgarian translation has been added.</p></li></ul></div><p> + </p></li></ul></div></div></div></body></html>
\ No newline at end of file diff --git a/stylesheets/dsssl-1.79/RELEASE-NOTES.txt b/stylesheets/dsssl-1.79/RELEASE-NOTES.txt new file mode 100644 index 0000000..43fb394 --- a/dev/null +++ b/stylesheets/dsssl-1.79/RELEASE-NOTES.txt @@ -0,0 +1,76 @@ +DocBook DSSSL Stylesheet Release Notes + +DocBook Open Repository Team + +$Id: RELEASE-NOTES.xml,v 1.1 2004/11/04 11:34:01 xmldoc Exp $ + +03 November 2004 + +------------------------------------------------------------------------------- + +Table of Contents + +Release 1.79 + +These are the release notes for the DocBook DSSSL Stylesheets. At a minimum, +this file attempts to document changes to the public APIs and provide a +high-level overview of the features added in each release. + +Release 1.79 + +This release contains fixes for a number of long-standing bugs. See the +WhatsNew file for more details. Among the user-visible changes are: + + * HTML stylesheets. + + o The doctype definition in the HTML output now contains a system + identifier, required for better parsing in contemporary browsers. + + o CSS decoration has been added to procedure steps. + + o Uses of <VAR> in HTML output (often rendered in italic) have been + changed to something more appropriate + + o The last character of the version was cut off in previous releases. + + o Processing instruction parsing has been made more robust against + arbitrarily formed PIs. + + o Callout graphics and admonition graphics share a single variable, + %stock-graphics-extension%. + + o The value of the VALIGN attribute has been corrected to MIDDLE instead + of CENTER. + + * Print stylesheets. + + o Admonition titles and contents are kept together. + + o Programlistings with callouts now honor the width attribute. + + o The rendering of othercredit has been made more useful. + + o Excessive after spacing when a listitem contains multiple paras or + verbatim environments has been fixed. + + o Empty ulinks don't generate footnotes, so they are now omitted from the + footnote counting. + + o Some cases where components were restarting the page numbering were + fixed. + + o article-titlepage-recto-elements has been made to match the HTML + version. + + o Support for revdescription inside revison on titlepages has been added. + + * General. + + o "pc" is now allowed as abbreviation for "pica". + + o The return value of my-debug has been fixed. + + o A Bosnian translation has been added. + + o A Bulgarian translation has been added. + diff --git a/stylesheets/dsssl-1.79/RELEASE-NOTES.xml b/stylesheets/dsssl-1.79/RELEASE-NOTES.xml new file mode 100644 index 0000000..dbaa087 --- a/dev/null +++ b/stylesheets/dsssl-1.79/RELEASE-NOTES.xml @@ -0,0 +1,126 @@ +<?xml version='1.0' encoding="utf-8"?> +<!DOCTYPE article SYSTEM "http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd"> +<article> + <articleinfo> + <title>DocBook DSSSL Stylesheet Release Notes</title> + <pubdate>03 November 2004</pubdate> + <releaseinfo role="cvs">$Id: RELEASE-NOTES.xml,v 1.1 2004/11/04 11:34:01 xmldoc Exp $</releaseinfo> + <corpauthor>DocBook Open Repository Team</corpauthor> + </articleinfo> + <para>These are the release notes for the DocBook DSSSL Stylesheets. + At a minimum, this file attempts to document changes to the public + APIs and provide a high-level overview of the features added in each + release.</para> + <section> + <title>Release 1.79</title> + <para>This release contains fixes for a number of long-standing + bugs. See the <ulink url="WhatsNew"/> file for more + details. Among the user-visible changes are:</para> + <itemizedlist> + <listitem> + <formalpara> + <title>HTML stylesheets</title> + <para> + <itemizedlist> + <listitem> + <para>The doctype definition in the HTML output now + contains a system identifier, required for better + parsing in contemporary browsers.</para> + </listitem> + <listitem> + <para>CSS decoration has been added to procedure + steps.</para> + </listitem> + <listitem> + <para>Uses of <VAR> in HTML output (often rendered + in italic) have been changed to something more + appropriate</para> + </listitem> + <listitem> + <para>The last character of the version was cut off in + previous releases.</para> + </listitem> + <listitem> + <para>Processing instruction parsing has been made + more robust against arbitrarily formed PIs.</para> + </listitem> + <listitem> + <para>Callout graphics and admonition graphics share a + single variable, %stock-graphics-extension%.</para> + </listitem> + <listitem> + <para>The value of the VALIGN attribute has been + corrected to MIDDLE instead of CENTER.</para> + </listitem> + </itemizedlist> + </para> + </formalpara> + </listitem> + <listitem> + <formalpara> + <title>Print stylesheets</title> + <para> + <itemizedlist> + <listitem> + <para>Admonition titles and contents are kept + together.</para> + </listitem> + <listitem> + <para>Programlistings with callouts now honor the + width attribute.</para> + </listitem> + <listitem> + <para>The rendering of othercredit has been made more + useful.</para> + </listitem> + <listitem> + <para>Excessive after spacing when a listitem contains + multiple paras or verbatim environments has been + fixed.</para> + </listitem> + <listitem> + <para>Empty ulinks don't generate footnotes, so they + are now omitted from the footnote counting.</para> + </listitem> + <listitem> + <para>Some cases where components were restarting the + page numbering were fixed.</para> + </listitem> + <listitem> + <para>article-titlepage-recto-elements has been made + to match the HTML version.</para> + </listitem> + <listitem> + <para>Support for revdescription inside revison on + titlepages has been added.</para> + </listitem> + </itemizedlist> + </para> + </formalpara> + </listitem> + <listitem> + <formalpara> + <title>General</title> + <para> + <itemizedlist> + <listitem> + <para>"pc" is now allowed as abbreviation for + "pica".</para> + </listitem> + <listitem> + <para>The return value of my-debug has been + fixed.</para> + </listitem> + <listitem> + <para>A Bosnian translation has been added.</para> + </listitem> + <listitem> + <para>A Bulgarian translation has been added.</para> + </listitem> + </itemizedlist> + </para> + </formalpara> + </listitem> + </itemizedlist> + </section> +</article> diff --git a/stylesheets/dsssl-1.79/VERSION b/stylesheets/dsssl-1.79/VERSION new file mode 100644 index 0000000..17420a5 --- a/dev/null +++ b/stylesheets/dsssl-1.79/VERSION @@ -0,0 +1 @@ +1.79 diff --git a/stylesheets/dsssl-1.79/WhatsNew b/stylesheets/dsssl-1.79/WhatsNew new file mode 100644 index 0000000..b26f319 --- a/dev/null +++ b/stylesheets/dsssl-1.79/WhatsNew @@ -0,0 +1,372 @@ +Changes since version 1.78 (2003-02-19) + +Changes to dsssl/* + + | 2004-11-05 Michael Smith <[email protected]> + | + | * Makefile: plain-text release notes, added target to make + | + | 2004-11-04 Michael Smith <[email protected]> + | + | * .cvsignore: ignore RELEASE-NOTES.html + | + | * .cvsignore: ignore RELEASE-NOTES.txt + | + | * FRESHMEAT: New file. + | + | * Makefile: RELEASE-NOTES.html and freshmeat targets added + | + | * RELEASE-NOTES.xml: New file. + | + | * VERSION: Version 1.79 released. + | + | 2004-10-23 <[email protected]> + | + | * Makefile: The debian directory no longer corresponds to the + | actual Debian package, so it would only be confusing to keep + | it around. + | + | * TODO: TODO items are nowadays listed at SourceForge; this + | file doesn't serve a purpose anymore. + | + | 2004-09-14 <[email protected]> + | + | * README.CVS: Add note that xmlcharent also needs to be + | checked out when working from CVS. + | + | 2003-03-21 Adam Di Carlo <[email protected]> + | + | * Makefile: clean target cleans backup files and CVS junk + | + | * VERSION: Keep CVS and real releases distinct + | + | 2003-02-20 Adam Di Carlo <[email protected]> + | + | * Makefile: don't distrib empty debian dir and *.orig + | + +Changes to dsssl/bin/* + + | 2004-10-24 <[email protected]> + | + | * collateindex.pl: Only mention the program's base name in the + | error messages. + | + | 2004-10-23 <[email protected]> + | + | * Makefile: Don't put a "v" before the version number here. + | + | * collateindex.pl: Put the options list in some kind of order, + | and make the error messages have a consistent format. + | + | 2003-03-21 Adam Di Carlo <[email protected]> + | + | * Makefile: clean target cleans backup files and CVS junk + | + | 2003-03-16 Adam Di Carlo <[email protected]> + | + | * Makefile: fix the POD release variable + | + +Changes to dsssl/doc/* + + | 2003-03-21 Adam Di Carlo <[email protected]> + | + | * Makefile: clean target cleans backup files and CVS junk + | + | 2003-03-17 Adam Di Carlo <[email protected]> + | + | * Makefile: Make required stuff in ../docsrc as needed + | + | 2003-03-16 Adam Di Carlo <[email protected]> + | + | * Makefile: removing *.htm in addition to the *.html + | + +Changes to dsssl/common/* + + | 2004-10-10 <[email protected]> + | + | * dbcommon.dsl: Give othercredit some useful rendering in + | print output, by copying over the author rendering. Fix + | author-list-string for authorgroups that contain both + | authors and othercredits. (bug #1038081) + | + | 2004-10-09 <[email protected]> + | + | * .cvsignore, Makefile, dbl10n.dsl, dbl10n.ent, + | dbl10n.template, dbl1bg.dsl: New Bulgarian translation by + | Viktor Vasilev (SF patch #1040075) + | + | * dbl1bs.dsl: Additional fixes for Bosnian translation, by + | Kemal Skripic (SF patch #1037371) + | + | 2004-09-22 Michael Smith <[email protected]> + | + | * .cvsignore: dbl1bs.ent added to ignore list; also re-sorted + | list + | + | 2004-09-17 <[email protected]> + | + | * Makefile, dbl10n.dsl, dbl10n.ent, dbl10n.template, + | dbl1bs.dsl: Bosnian translation by Kemal Skripic + | + | 2003-04-28 Adam Di Carlo <[email protected]> + | + | * dbcommon.dsl: Fix a problem pointed out by Tim Waugh in + | articleinfo vs artheader in the article-title procedure. + | Also ensure articleinfo is used in some other contexts. + | + +Changes to dsssl/docsrc/* + + | 2004-10-23 Michael Smith <[email protected]> + | + | * collateindex.sgm, dblib.sgm, docbook.sgm, htparam.sgm, + | imagelib.sgm, indexing.sgm, olinksemantics.sgm, + | otherdoc.sgm, prparam.sgm: Bug #1052834 (PIs in dsssl/doc + | sources causing jade errors) apparently jade has a problem + | dealing with single quotation marks in PIs -- at least it + | appears like that in the case where it needs to take a + | single-quoted value from within a PI and use it to write a + | filename; so changed al single-quote filenames in PIs to + | doubly quoted ones; seems to have made jade happy + | + | 2004-09-18 <[email protected]> + | + | * custom.sgm: Fix for Documentation Request #510281: Add + | missing -d option in example + | + | * custom.sgm: Fix for Documentation Request #992388: Removed + | obsolete section about setting the stylesheet language via a + | customization layer (now done using a stylesheet parameter). + | + | 2003-03-17 Adam Di Carlo <[email protected]> + | + | * doc.dsl: Minor readability fixes. + | + +Changes to dsssl/html/* + + | 2004-10-10 <[email protected]> + | + | * dbhtml.dsl, dbparam.dsl, dbttlpg.dsl: Support for specifying + | a system ID for the HTML output documents, required for + | better parsing in contemporary browsers. A default system ID + | is set if %html40% is true. + | + | 2004-10-09 <[email protected]> + | + | * docbook.dsl: New Bulgarian translation by Viktor Vasilev (SF + | patch #1040075) + | + | 2004-09-23 <[email protected]> + | + | * dbprocdr.dsl: Add CSS decoration of procedure steps (RFE + | #1033197) + | + | 2004-09-17 <[email protected]> + | + | * docbook.dsl: Bosnian translation by Kemal Skripic + | + | 2004-09-14 <[email protected]> + | + | * dbinline.dsl: Fix for bug #860398: Change uses of $var-seq$ + | to something more appropriate. + | + | 2004-07-11 <[email protected]> + | + | * version.dsl: Closes Bug 912831: the last character of + | VERSION was being cut off. + | + | 2003-05-28 Adam Di Carlo <[email protected]> + | + | * dbblock.dsl: HTML attribs for comments variablized for + | maintenance. + | + | 2003-04-29 Adam Di Carlo <[email protected]> + | + | * dbcompon.dsl: Finding the subtitle for a component should + | use the parent title if set; this is consistent with how the + | title is already set; closes SF bug 613773. + | + | 2003-04-28 Adam Di Carlo <[email protected]> + | + | * dbpi.dsl: Ensure dbhtml-findvalue can handle the + | pi-field-list being a non-pair, which may occur in some + | poorly formed dbhtml PIs; returns #f in this case. + | + | 2003-04-27 Adam Di Carlo <[email protected]> + | + | * dbcompon.dsl: Simplify some code, no functional changes + | + | 2003-04-26 Adam Di Carlo <[email protected]> + | + | * dbcallou.dsl, dbparam.dsl: callout graphics and admonition + | graphics, if needed, share a single variable, + | %stock-graphics-extension% -- "stock" here referring to + | standard, stock images, e.g., not per document images; this + | closes Debian Bug#187429 + | + | 2003-04-12 Adam Di Carlo <[email protected]> + | + | * dbadmon.dsl: VALIGN should be MIDDLE, not CENTER; closes + | Debian Bug#187569 + | + | 2003-04-05 Adam Di Carlo <[email protected]> + | + | * dblists.dsl: back out my last change; there are 4 places + | taht use this and until I understand how + | varlistentry-term-too-long? is supposed to work at all I + | better not mess with it + | + | * dblists.dsl: termlength in varlist is measurement-to-length, + | not string->number + | + | 2003-03-25 Adam Di Carlo <[email protected]> + | + | * db31.dsl, dbblock.dsl, dbcompon.dsl, dbgraph.dsl, + | dbqanda.dsl, dbsect.dsl, docbook.dsl: move data from db31 + | into its proper component files + | + | 2003-03-21 Adam Di Carlo <[email protected]> + | + | * Makefile: Don't hardcode DSSSL file list, use $(wildcard + | *.dsl); clean is cleaner + | + +Changes to dsssl/lib/* + + | 2004-10-24 <[email protected]> + | + | * dblib.dsl: Revision 1.6 completely broke PI processing, so + | back that out for now. + | + | 2003-04-29 Adam Di Carlo <[email protected]> + | + | * dblib.dsl: Fix my-debug so it actually returns what you ask + | it to. + | + | 2003-04-28 Adam Di Carlo <[email protected]> + | + | * dblib.dsl: Make PI parsing more robust by rewriting + | parse-pi-attribute and a fix in parse-starttag-pi. I'm still + | not entirely happy with the PI parsing, its probably a + | little flakey, but it shouldn't completely bail out when it + | hits data its not expecting. Closes Debian Bug#186886. + | + | 2003-04-26 Adam Di Carlo <[email protected]> + | + | * dblib.dsl: Fix a typo in the param docs + | + | 2003-04-05 Adam Di Carlo <[email protected]> + | + | * dblib.dsl: xsl stylesheet refers to pica as "pc" rather than + | "pi", so we allow either one as a pica + | + +Changes to dsssl/print/* + + | 2004-10-10 <[email protected]> + | + | * dbadmon.dsl: Fix for bug #522140: Keep admonition titles and + | contents together when graphics are used. + | + | * dbcallou.dsl: Synchronized $callout-verbatim-display$ with + | $verbatim-display$; fixes bug #517520 (callout ignores width + | of programlisting) + | + | * dbttlpg.dsl: Give othercredit some useful rendering in print + | output, by copying over the author rendering. Fix + | author-list-string for authorgroups that contain both + | authors and othercredits. (bug #1038081) + | + | 2004-10-09 <[email protected]> + | + | * dbprint.dsl, dbverb.dsl: Patch #571688: Fixes excessive + | after spacing when a listitem contains multiple paras or + | verbatim environments. Patches originally by Tim Waugh and + | Tammy Fox. + | + | * docbook.dsl: New Bulgarian translation by Viktor Vasilev (SF + | patch #1040075) + | + | 2004-09-17 <[email protected]> + | + | * docbook.dsl: Bosnian translation by Kemal Skripic + | + | 2004-09-14 <[email protected]> + | + | * dbblock.dsl: Fix for bug #502066: Empty ulinks don't + | generate footnotes, so they should be omitted from the + | footnote counting. Patch by Bruce A. Mah. + | + | * dbprint.dsl: Fix for bug #529969: Make italic monospace and + | strong monospace inherit verbatim-size-factor. Patch by + | David Aumueller. + | + | 2004-07-11 <[email protected]> + | + | * version.dsl: Closes Bug 912831: the last character of + | VERSION was being cut off. + | + | 2003-12-05 Adam Di Carlo <[email protected]> + | + | * dbdivis.dsl: fix a bug when multiple elements in + | $generate-book-lot-list$ had content; whitespace and comment + | updates + | + | 2003-04-29 Adam Di Carlo <[email protected]> + | + | * dbcompon.dsl: Finding the subtitle for a component should + | use the parent title if set; this is consistent with how the + | title is already set; closes SF bug 613773. + | + | * dbcompon.dsl: Suppress some cases where components were + | restarting page numbering, fix from Ian Castle; closes SF + | bug 439751. + | + | * dbparam.dsl: Correct reference to undefined variable + | "admon-graphic-default-extension". + | + | * dbttlpg.dsl: Add elements to print version of + | article-titlepage-recto-elements so that it matches the HTML + | version, fixes SF bug 626909. + | + | 2003-04-26 Adam Di Carlo <[email protected]> + | + | * dbparam.dsl: rename parameter + | admon-graphic-default-extension to + | %admon-graphics-extension% for consistency + | + | * dbparam.dsl: Note that %admon-graphics-path% requires the + | trailing directory separator -- + | + | * dbparam.dsl: %admon-graphics-extension% will use the old + | name, admon-graphic-default-extension, if set + | + | 2003-03-25 Adam Di Carlo <[email protected]> + | + | * db31.dsl, dbblock.dsl, dbcompon.dsl, dbgraph.dsl, + | dbinline.dsl, dbqanda.dsl, dbsect.dsl, docbook.dsl: move + | data from db31 into its proper component files + | + | 2003-03-24 Jirka Kosek <[email protected]> + | + | * dbttlpg.dsl: Added support for revdescription inside revison + | on titlepages + | + | 2003-03-21 Adam Di Carlo <[email protected]> + | + | * Makefile: Don't hardcode DSSSL file list, use $(wildcard + | *.dsl); clean is cleaner + | + +Changes to dsssl/doc/testdata/* + + | 2003-03-16 Adam Di Carlo <[email protected]> + | + | * c01.htm, jtest.rtf, test.rtf: Generated files should not be + | in CVS + | + diff --git a/stylesheets/dsssl-1.79/bin/ChangeLog b/stylesheets/dsssl-1.79/bin/ChangeLog new file mode 100644 index 0000000..8c75e0d --- a/dev/null +++ b/stylesheets/dsssl-1.79/bin/ChangeLog @@ -0,0 +1,58 @@ +2004-10-24 <[email protected]> + + * collateindex.pl: Only mention the program's base name in the error messages. + +2004-10-23 <[email protected]> + + * Makefile: Don't put a "v" before the version number here. + + * collateindex.pl: Put the options list in some kind of order, and make the error messages + have a consistent format. + +2003-03-21 Adam Di Carlo <[email protected]> + + * Makefile: clean target cleans backup files and CVS junk + +2003-03-16 Adam Di Carlo <[email protected]> + + * Makefile: fix the POD release variable + +2003-01-19 Adam Di Carlo <[email protected]> + + * collateindex.pl: fix from Tim Waugh for when the same indexterm has too different + seealso's, where currently script produces invalid SGML/XML; fixes bug #551318 + +2002-12-16 Adam Di Carlo <[email protected]> + + * .cvsignore: New file. + +2002-08-08 Adam Di Carlo <[email protected]> + + * Makefile: New file. + +2002-01-07 Adam Di Carlo <[email protected]> + + * collateindex.pl: emit a warning if a duplicated index entry is found and removed + +2001-12-01 Norman Walsh <[email protected]> + + * collateindex.pl: Patch #468645: fix for indexterm zones in print + +2001-04-20 Adam Di Carlo <[email protected]> + + * collateindex.pl: add POD documentation; remove the usage message documentation in the name of reducing redundancy + +2001-04-18 Adam Di Carlo <[email protected]> + + * collateindex.pl: add -q (quiet) and -V (report version only) arguments + +2001-04-03 Norman Walsh <[email protected]> + + * collateindex.pl: Whitespace changes + + * collateindex.pl: Fix bug 412898, produce links in the index, even in the presence of seealso + +2001-04-02 Norman Walsh <[email protected]> + + * collateindex.pl: New file. + diff --git a/stylesheets/dsssl-1.79/catalog b/stylesheets/dsssl-1.79/catalog new file mode 100644 index 0000000..df05b02 --- a/dev/null +++ b/stylesheets/dsssl-1.79/catalog @@ -0,0 +1,53 @@ +OVERRIDE YES + +-- Stylesheets -- + +PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" + print/docbook.dsl + +PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" + html/docbook.dsl + +PUBLIC "-//Norman Walsh//DOCUMENT DSSSL Library//EN" + lib/dblib.dsl + +PUBLIC "-//Norman Walsh//DOCUMENT DSSSL Library V2//EN" + lib/dblib.dsl + +-- DTDs -- + +PUBLIC "+//IDN nwalsh.com//DTD DocBook DSSSL Architecture V1.0//EN" + dtds/dbdsssl/dbdsssl.dtd + +PUBLIC "-//Norman Walsh//DTD DocBook OLink Summary V1.1//EN" + dtds/olink/olinksum.dtd + +PUBLIC "-//Norman Walsh//DTD DocBook HTML 1.0//EN" + dtds/html/dbhtml.dtd + +DTDDECL "-//Norman Walsh//DTD DocBook HTML 1.0//EN" + dtds/html/dbhtml.dcl + +PUBLIC "-//Norman Walsh//DTD Image Library 1.0//EN" + dtds/imagelib/imagelib.dtd + +-- Entities -- + +PUBLIC "ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML" + dtds/html/ISOlat1.gml + +-- Documents -- + +PUBLIC "-//Norman Walsh//DOCUMENT DocBook DSSSL Stylesheet Documentation V1.0//EN" + docsrc/docbook.sgm + +PUBLIC "-//Norman Walsh//DOCUMENT OLink Test Document V1.0//EN" + docsrc/olinktarget.sgm + +PUBLIC "-//Norman Walsh//DOCUMENT OLink Semantics in the DocBook DSSSL Stylesheets V1.0//EN" + docsrc/olinksemantics.sgm + +-- Declarations -- + +-- SGMLDECL "dtds/decls/docbook.dcl" -- + diff --git a/stylesheets/dsssl-1.79/common/ChangeLog b/stylesheets/dsssl-1.79/common/ChangeLog new file mode 100644 index 0000000..bfdbc87 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/ChangeLog @@ -0,0 +1,157 @@ +2004-10-10 <[email protected]> + + * dbcommon.dsl: Give othercredit some useful rendering in print output, by copying over the + author rendering. Fix author-list-string for authorgroups that contain + both authors and othercredits. (bug #1038081) + +2004-10-09 <[email protected]> + + * .cvsignore, Makefile, dbl10n.dsl, dbl10n.ent, dbl10n.template, dbl1bg.dsl: + New Bulgarian translation by Viktor Vasilev (SF patch #1040075) + + * dbl1bs.dsl: Additional fixes for Bosnian translation, by Kemal Skripic (SF patch + #1037371) + +2004-09-22 Michael Smith <[email protected]> + + * .cvsignore: dbl1bs.ent added to ignore list; also re-sorted list + +2004-09-17 <[email protected]> + + * Makefile, dbl10n.dsl, dbl10n.ent, dbl10n.template, dbl1bs.dsl: + Bosnian translation by Kemal Skripic + +2003-04-28 Adam Di Carlo <[email protected]> + + * dbcommon.dsl: Fix a problem pointed out by Tim Waugh in articleinfo vs artheader in + the article-title procedure. Also ensure articleinfo is used in some + other contexts. + +2003-01-15 Adam Di Carlo <adicarlo@users.sourceforge.net> + + * dbcommon.dsl: make <section> appear correctly in the PDF bookmark hierarchy; also + fix font size selection for section titles + + corrects sourceforge bugs 589247 and 524028; patch from Carsten Haese + appreciated + +2002-12-20 Adam Di Carlo <adicarlo@users.sourceforge.net> + + * dbl1en.dsl: fix up some case-folding incidents + +2002-08-07 Adam Di Carlo <adicarlo@users.sourceforge.net> + + * Makefile: dbl1he.ent doesn't exist, was breaking build + +2002-06-06 Norman Walsh <nwalsh@users.sourceforge.net> + + * dbl1tr.dsl: Patch #554930: obvious gentext-tr-intra-label-sep fix + +2002-04-29 Norman Walsh <nwalsh@users.sourceforge.net> + + * .cvsignore, Makefile: (Incomplete) support for Hebrew + +2002-03-24 Adam Di Carlo <adicarlo@users.sourceforge.net> + + * .cvsignore, Makefile: suffix rules for the *.ent production; add a rule to create a catalog + automatically form the *.dsl files + + * Makefile: clean shouldn't remove dbl10n.ent + +2002-03-20 Norman Walsh <nwalsh@users.sourceforge.net> + + * dbl10n.dsl: Remove duplicated comment + +2002-02-22 Norman Walsh <nwalsh@users.sourceforge.net> + + * dbcommon.dsl: Fix test for articles in books + +2002-02-20 Norman Walsh <nwalsh@users.sourceforge.net> + + * dbl1fr.dsl: Fix French quotes + +2002-01-03 Norman Walsh <nwalsh@users.sourceforge.net> + + * .cvsignore, Makefile: Added Thai localization + +2001-12-04 Norman Walsh <nwalsh@users.sourceforge.net> + + * dbcommon.dsl: Bug #435320: Poor enumeration of LoTs and LoFs + +2001-12-01 Norman Walsh <nwalsh@users.sourceforge.net> + + * dbcommon.dsl: Bug #473531 numbering of blocks when the root element is not a component + +2001-11-30 Norman Walsh <nwalsh@users.sourceforge.net> + + * .cvsignore, dbl10n.ent: Merged V174bugfixes + + * .cvsignore, dbl10n.ent: New file. + + * dbcommon.dsl: Patch #473116: Section levels + + * dbl10n.ent: branches: 1.1.2; + file dbl10n.ent was initially added on branch V174bugfixes. + +2001-11-20 Norman Walsh <nwalsh@users.sourceforge.net> + + * dbcommon.dsl: Support artheader or articleinfo as the info-element of an article + +2001-11-14 Norman Walsh <nwalsh@users.sourceforge.net> + + * Makefile, dbl10n.dsl, dbl10n.pl, dbl10n.template, dbl1eu.dsl, dbl1nn.dsl, dbl1uk.dsl, dbl1xh.dsl: + Added Basque, Nynorsk, Ukranian, and Xhosa + +2001-09-23 Norman Walsh <nwalsh@users.sourceforge.net> + + * dbcommon.dsl: Patch #461632, title sizes for bibliography and index divs + + * dbcommon.dsl: Patch #460349, don't check extension for linespecific inclusions + +2001-09-09 Norman Walsh <nwalsh@users.sourceforge.net> + + * dbcommon.dsl: Bug #459209, allow format attribute to be absent + +2001-09-06 Jirka Kosek <kosek@users.sourceforge.net> + + * dbl1cs.dsl: Synchronized with localization in cs.xml + +2001-08-30 Norman Walsh <nwalsh@users.sourceforge.net> + + * dbcommon.dsl: Fix XML/SGML discrepancy wrt normalization of notation names; move some common stuff into dbcommon + +2001-07-04 <uid48421@users.sourceforge.net> + + * Makefile, dbl10n.dsl, dbl1af.dsl, dbl1tr.dsl: Added Afrikaans and Turkish + +2001-06-20 Norman Walsh <nwalsh@users.sourceforge.net> + + * dbcommon.dsl, dbl10n.dsl, dbl1ca.dsl, dbl1cs.dsl, dbl1da.dsl, dbl1de.dsl, dbl1el.dsl, dbl1en.dsl, dbl1es.dsl, dbl1et.dsl, dbl1fi.dsl, dbl1fr.dsl, dbl1hu.dsl, dbl1id.dsl, dbl1it.dsl, dbl1ja.dsl, dbl1ko.dsl, dbl1nl.dsl, dbl1no.dsl, dbl1pl.dsl, dbl1pt.dsl, dbl1ptbr.dsl, dbl1ro.dsl, dbl1ru.dsl, dbl1sk.dsl, dbl1sl.dsl, dbl1sr.dsl, dbl1sv.dsl, dbl1zhcn.dsl, dbl1zhtw.dsl: + Updated support for locale-sensitive commas in lists + +2001-05-11 Norman Walsh <nwalsh@users.sourceforge.net> + + * dbl10n.dsl, dbl1sr.dsl, dbl1zhtw.dsl: Support Serbian and Traditional Chinese + +2001-05-04 Norman Walsh <nwalsh@users.sourceforge.net> + + * Makefile: Add (partial support for) Serbian localization + +2001-04-20 Norman Walsh <nwalsh@users.sourceforge.net> + + * Makefile, cs-hack.pl: Fixed charset issues that caused the .ent files not to work in SGML + +2001-04-09 Norman Walsh <nwalsh@users.sourceforge.net> + + * dbl1ko.dsl: Updates from Park Yong Joo + +2001-04-02 Norman Walsh <nwalsh@users.sourceforge.net> + + * .cvsignore: branches: 1.1.2; + Added Makefiles to build common/*.ent + + * Makefile: New file. + + * dbcommon.dsl, dbl10n.dsl, dbl1ca.dsl, dbl1cs.dsl, dbl1da.dsl, dbl1de.dsl, dbl1el.dsl, dbl1en.dsl, dbl1es.dsl, dbl1et.dsl, dbl1fi.dsl, dbl1fr.dsl, dbl1hu.dsl, dbl1id.dsl, dbl1it.dsl, dbl1ja.dsl, dbl1ko.dsl, dbl1nl.dsl, dbl1no.dsl, dbl1null.dsl, dbl1pl.dsl, dbl1pt.dsl, dbl1ptbr.dsl, dbl1ro.dsl, dbl1ru.dsl, dbl1sk.dsl, dbl1sl.dsl, dbl1sv.dsl, dbl1zhcn.dsl, dbtable.dsl: + New file. + diff --git a/stylesheets/dsssl-1.79/common/catalog b/stylesheets/dsssl-1.79/common/catalog new file mode 100644 index 0000000..5829925 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/catalog @@ -0,0 +1,37 @@ +OVERRIDE YES +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//AF" "dbl1af.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//BG" "dbl1bg.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//BS" "dbl1bs.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//CA" "dbl1ca.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//CS" "dbl1cs.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//DA" "dbl1da.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//DE" "dbl1de.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//EL" "dbl1el.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//EN" "dbl1en.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//ES" "dbl1es.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//ET" "dbl1et.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//EU" "dbl1eu.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//FI" "dbl1fi.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//FR" "dbl1fr.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//HU" "dbl1hu.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//IN" "dbl1id.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//IT" "dbl1it.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//JA" "dbl1ja.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//KO" "dbl1ko.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//NL" "dbl1nl.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//NN" "dbl1nn.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//NO" "dbl1no.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//PL" "dbl1pl.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//PT" "dbl1pt.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//PTBR" "dbl1ptbr.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//RO" "dbl1ro.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//RU" "dbl1ru.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//SK" "dbl1sk.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//SL" "dbl1sl.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//SR" "dbl1sr.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//SV" "dbl1sv.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//TR" "dbl1tr.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//UK" "dbl1uk.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//XH" "dbl1xh.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//ZHCN" "dbl1zhcn.ent" +PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//ZHTW" "dbl1zhtw.ent" diff --git a/stylesheets/dsssl-1.79/common/cs-hack.pl b/stylesheets/dsssl-1.79/common/cs-hack.pl new file mode 100644 index 0000000..7f1c1ee --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/cs-hack.pl @@ -0,0 +1,8 @@ +#!/bin/perl -- # -*- Perl -*- + +# Charset hacking... + +while (<>) { + s/\&\#(\d+);/sprintf("\\U-%04X;", $1)/egs; + print; +} diff --git a/stylesheets/dsssl-1.79/common/dbcommon.dsl b/stylesheets/dsssl-1.79/common/dbcommon.dsl new file mode 100644 index 0000000..16e133b --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbcommon.dsl @@ -0,0 +1,1904 @@ +;; $Id: dbcommon.dsl,v 1.14 2004/10/10 21:15:05 petere78 Exp $ +;; +;; This file is part of the Modular DocBook Stylesheet distribution. +;; See ../README or http://nwalsh.com/docbook/dsssl/ +;; +;; This file contains general functions common to both print and HTML +;; versions of the DocBook stylesheets. +;; + +;; If **ANY** change is made to this file, you _MUST_ alter the +;; following definition: + +(define %docbook-common-version% + "Modular DocBook Stylesheet Common Functions") + +;; === element lists ==================================================== + +;; these have to be functions because they have to be evaluated when +;; there is a current-node so that normalize can know what declaration +;; is in effect + +(define (set-element-list) + (list (normalize "set"))) + +(define (book-element-list) + (list (normalize "book"))) + +(define (division-element-list) + (list (normalize "part"))) + +(define (component-element-list) + (list (normalize "preface") + (normalize "chapter") + (normalize "appendix") + (normalize "article") + (normalize "glossary") + (normalize "bibliography") + (normalize "index") + (normalize "colophon") + (normalize "setindex") + (normalize "reference") + (normalize "refentry") + (normalize "book"))) ;; just in case nothing else matches... + +(define (major-component-element-list) + (list (normalize "preface") + (normalize "chapter") + (normalize "appendix") + (normalize "article") + (normalize "glossary") + (normalize "bibliography") + (normalize "index") + (normalize "colophon") + (normalize "setindex") + (normalize "reference") + (normalize "refentry") + (normalize "part") + (normalize "book"))) ;; just in case nothing else matches... + +(define (section-element-list) + (list (normalize "sect1") + (normalize "sect2") + (normalize "sect3") + (normalize "sect4") + (normalize "sect5") + (normalize "section") + (normalize "simplesect") + (normalize "refsect1") + (normalize "refsect2") + (normalize "refsect3"))) + +(define (block-element-list) + (list (normalize "example") + (normalize "figure") + (normalize "table") + (normalize "equation") + (normalize "procedure"))) + +(define (outer-parent-list) + (list (normalize "toc") + (normalize "lot") + (normalize "appendix") + (normalize "chapter") + (normalize "part") + (normalize "preface") + (normalize "reference") + (normalize "bibliography") + (normalize "glossary") + (normalize "index") + (normalize "setindex") + (normalize "sect1") + (normalize "sect2") + (normalize "sect3") + (normalize "sect4") + (normalize "sect5") + (normalize "simplesect") + (normalize "partintro") + (normalize "bibliodiv") + (normalize "glossdiv") + (normalize "indexdiv") + (normalize "refentry") + (normalize "refsect1") + (normalize "refsect2") + (normalize "refsect3") + (normalize "msgtext") + (normalize "msgexplan"))) + +(define (list-element-list) + (list (normalize "orderedlist") + (normalize "itemizedlist") + (normalize "variablelist") + (normalize "segmentedlist") + (normalize "simplelist") + (normalize "calloutlist") + (normalize "step"))) + +(define (info-element-list) + (list (normalize "appendixinfo") + (normalize "articleinfo") + (normalize "bibliographyinfo") + (normalize "bookinfo") + (normalize "chapterinfo") + (normalize "glossaryinfo") + (normalize "indexinfo") + (normalize "objectinfo") + (normalize "partinfo") + (normalize "prefaceinfo") + (normalize "refentryinfo") + (normalize "referenceinfo") + (normalize "refsect1info") + (normalize "refsect2info") + (normalize "refsect3info") + (normalize "refsynopsisdivinfo") + (normalize "sect1info") + (normalize "sect2info") + (normalize "sect3info") + (normalize "sect4info") + (normalize "sect5info") + (normalize "sectioninfo") + (normalize "setindexinfo") + (normalize "setinfo") + (normalize "sidebarinfo") + ;; historical + (normalize "artheader") + (normalize "docinfo"))) + +;; === automatic TOC ==================================================== + +;; Returns #t if nd should appear in the auto TOC +(define (appears-in-auto-toc? nd) + (if (or (equal? (gi nd) (normalize "refsect1")) + (have-ancestor? (normalize "refsect1") nd)) + #f + #t)) + +;; # return elements of nl for which appears-in-auto-toc? is #t +(define (toc-list-filter nodelist) + (let loop ((toclist (empty-node-list)) (nl nodelist)) + (if (node-list-empty? nl) + toclist + (if (appears-in-auto-toc? (node-list-first nl)) + (loop (node-list toclist (node-list-first nl)) + (node-list-rest nl)) + (loop toclist (node-list-rest nl)))))) + +;; === common =========================================================== + +(define (INLIST?) + (has-ancestor-member? (current-node) (list-element-list))) + +(define (INBLOCK?) + (has-ancestor-member? (current-node) + (list (normalize "example") + (normalize "informalexample") + (normalize "figure") + (normalize "informalfigure") + (normalize "equation") + (normalize "informalequation") + (normalize "funcsynopsis") + (normalize "programlistingco") + (normalize "screenco") + (normalize "graphicco")))) + +(define (PARNUM) + (child-number (parent (current-node)))) + +(define (NESTEDFNUM n fmt) + (if (number? n) + (format-number n fmt) + #f)) + +(define (FNUM n) (NESTEDFNUM n "1")) + +(define (book-start?) + ;; Returns #t if the current-node is in the first division or + ;; component of a book. + (let ((book (ancestor (normalize "book"))) + (nd (ancestor-member + (current-node) + (append (component-element-list) (division-element-list))))) + (let loop ((ch (children book))) + (if (node-list-empty? ch) + #f + (if (member (gi (node-list-first ch)) + (append (component-element-list) (division-element-list))) + (node-list=? (node-list-first ch) nd) + (loop (node-list-rest ch))))))) + +(define (first-chapter?) + ;; Returns #t if the current-node is in the first chapter of a book + (let* ((book (ancestor (normalize "book"))) + (nd (ancestor-member + (current-node) + (append (component-element-list) (division-element-list)))) + (bookch (children book)) + (bookcomp (expand-children bookch (list (normalize "part"))))) + (let loop ((nl bookcomp)) + (if (node-list-empty? nl) + #f + (if (equal? (gi (node-list-first nl)) (normalize "chapter")) + (if (node-list=? (node-list-first nl) nd) + #t + #f) + (loop (node-list-rest nl))))))) + +;; === bibliographic ==================================================== + +;; Localized author-string + +(define (author-list-string #!optional (author (current-node))) + ;; Return a formatted string representation of the contents of AUTHOR + ;; *including appropriate punctuation* if the AUTHOR occurs in a list + ;; of AUTHORs in an AUTHORGROUP: + ;; + ;; John Doe + ;; or + ;; John Doe and Jane Doe + ;; or + ;; John Doe, Jane Doe, and A. Nonymous + ;; + + (let* ((author-node-list (select-elements + (descendants + (ancestor (normalize "authorgroup") author)) + (normalize "author"))) + (corpauthor-node-list (select-elements + (descendants + (ancestor (normalize "authorgroup") author)) + (normalize "corpauthor"))) + (othercredit-node-list (select-elements + (descendants + (ancestor (normalize "authorgroup") author)) + (normalize "othercredit"))) + (editor-node-list (select-elements + (descendants + (ancestor (normalize "authorgroup"))) + (normalize "editor"))) + (author-count (if (have-ancestor? (normalize "authorgroup") author) + (+ (node-list-length author-node-list) + (node-list-length corpauthor-node-list) + (node-list-length othercredit-node-list) + (node-list-length editor-node-list)) + 1)) + (this-count (if (have-ancestor? (normalize "authorgroup") author) + (+ (node-list-length (preced author)) 1) + 1))) + (string-append + (if (and (> author-count 1) + (absolute-last-sibling? author)) + (string-append (gentext-and) " ") + "") + + (author-string author) + + (if (> author-count 2) + (if (> (- author-count this-count) 1) + (gentext-listcomma) + (if (= (- author-count this-count) 1) + (gentext-lastlistcomma) + "")) + "") + (if (and (> author-count 1) + (not (absolute-last-sibling? author))) + " " + "")))) + +;; === procedures ======================================================= + +(define ($proc-hierarch-number-format$ depth) + (case (modulo depth 5) + ((1) "1") + ((2) "a") + ((3) "i") + ((4) "A") + (else "I"))) + +(define ($proc-hierarch-number$ nd seperator) + (if (equal? (gi nd) (normalize "step")) + (string-append + (format-number + (child-number nd) + ($proc-hierarch-number-format$ ($proc-step-depth$ nd))) + seperator) + "")) + +(define ($proc-step-depth$ nd) + (let loop ((step nd) (depth 0)) + (if (equal? (gi step) (normalize "procedure")) + depth + (loop (parent step) + (if (equal? (gi step) (normalize "step")) + (+ depth 1) + depth))))) + +(define ($proc-step-number$ nd) + (let* ((step (if (equal? (gi nd) (normalize "step")) nd (parent nd))) + (str ($proc-hierarch-number$ step ""))) + (string-append str (gentext-label-title-sep (normalize "step"))))) + +(define ($proc-step-xref-number$ nd) + (let loop ((step nd) (str "") (first #t)) + (if (equal? (gi step) (normalize "procedure")) + str + (loop (parent step) + (if (equal? (gi step) (normalize "step")) + (string-append + ($proc-hierarch-number$ step + (if first + "" + (gentext-intra-label-sep (normalize "step")))) + str) + str) + (if (equal? (gi step) (normalize "step")) + #f + first))))) + +;; === sections ========================================================= + +(define (section-level-by-gi chunked? gi) + ;; Figure out the heading level of an element by its name. We need + ;; to distinguish between the chunked processing mode (for HTML) and + ;; the non-chunked (print or HTML). It is important that no heading + ;; level is skipped in a document structure (e.g., sect1 = 2, sect2 + ;; = 4); this results in broken PDF bookmarks. + (if chunked? + (cond + ((equal? gi (normalize "sect5")) 5) + ((equal? gi (normalize "sect4")) 4) + ((equal? gi (normalize "sect3")) 3) + ((equal? gi (normalize "sect2")) 2) + ((equal? gi (normalize "sect1")) 1) + ((equal? gi (normalize "refsect3")) 4) + ((equal? gi (normalize "refsect2")) 3) + ((equal? gi (normalize "refsect1")) 2) + ((equal? gi (normalize "refsynopsisdiv")) 2) + ((equal? gi (normalize "bibliography")) 1) + ((equal? gi (normalize "bibliodiv")) 2) + ((equal? gi (normalize "index")) 1) + ((equal? gi (normalize "setindex")) 1) + ((equal? gi (normalize "indexdiv")) 2) + (else 1)) + (cond + ((equal? gi (normalize "sect5")) 6) + ((equal? gi (normalize "sect4")) 5) + ((equal? gi (normalize "sect3")) 4) + ((equal? gi (normalize "sect2")) 3) + ((equal? gi (normalize "sect1")) 2) + ;; The next four are not used by the HTML stylesheets. + ((equal? gi (normalize "refsect3")) 5) + ((equal? gi (normalize "refsect2")) 4) + ((equal? gi (normalize "refsect1")) 3) + ((equal? gi (normalize "refsynopsisdiv")) 3) + ((equal? gi (normalize "bibliography")) 1) + ((equal? gi (normalize "bibliodiv")) 2) + ((equal? gi (normalize "index")) 1) + ((equal? gi (normalize "setindex")) 1) + ((equal? gi (normalize "indexdiv")) 2) + (else 1)))) + +(define (section-level-by-node chunked? sect) + (if (equal? (gi sect) (normalize "section")) + ;; Section is special, it is recursive. + (let ((depth (length (hierarchical-number-recursive + (normalize "section"))))) + (if (> depth 5) + 6 + (if chunked? (+ depth 1) (+ depth 2)))) + (if (equal? (gi sect) (normalize "simplesect")) + ;; SimpleSect is special, it should be level "n+1", where "n" is + ;; the level of the numbered section that contains it. If it is + ;; the *first* sectioning element in a chapter, make it + ;; %default-simplesect-level% + (cond + ((have-ancestor? (normalize "sect5")) + (+ 1 (section-level-by-gi chunked? (normalize "sect5")))) + ((have-ancestor? (normalize "sect4")) + (+ 1 (section-level-by-gi chunked? (normalize "sect4")))) + ((have-ancestor? (normalize "sect3")) + (+ 1 (section-level-by-gi chunked? (normalize "sect3")))) + ((have-ancestor? (normalize "sect2")) + (+ 1 (section-level-by-gi chunked? (normalize "sect2")))) + ((have-ancestor? (normalize "sect1")) + (+ 1 (section-level-by-gi chunked? (normalize "sect1")))) + ((have-ancestor? (normalize "refsect3")) + (+ 1 (section-level-by-gi chunked? (normalize "refsect3")))) + ((have-ancestor? (normalize "refsect2")) + (+ 1 (section-level-by-gi chunked? (normalize "refsect2")))) + ((have-ancestor? (normalize "refsect1")) + (+ 1 (section-level-by-gi chunked? (normalize "refsect1")))) + (else %default-simplesect-level%)) + ;; the rest of the section elements can be identified by name + (section-level-by-gi chunked? (gi sect))))) + +;; === synopsis ========================================================= + +;; The following definitions match those given in the reference +;; documentation for DocBook V3.0 +(define %arg-choice-opt-open-str% "[") +(define %arg-choice-opt-close-str% "]") +(define %arg-choice-req-open-str% "{") +(define %arg-choice-req-close-str% "}") +(define %arg-choice-plain-open-str% " ") +(define %arg-choice-plain-close-str% " ") +(define %arg-choice-def-open-str% "[") +(define %arg-choice-def-close-str% "]") +(define %arg-rep-repeat-str% "...") +(define %arg-rep-norepeat-str% "") +(define %arg-rep-def-str% "") +(define %arg-or-sep% " | ") +(define %cmdsynopsis-hanging-indent% 4pi) + +;; === linking ========================================================== + +;; From the DocBook V3.0 Reference entry for element XREF: +;; +;; Description +;; +;; Cross reference link to another part of the document. XRef is empty, +;; and has common, Linkend, and Endterm attributes. +;; +;; Processing Expectations +;; +;; XRef must have a Linkend, but the Endterm is optional. If it is used, +;; the content of the element it points to is displayed as the text of +;; the cross reference; if it is absent, the XRefLabel of the +;; cross-referenced object is displayed. +;; +;; If neither the ENDTERM nor the XREFLABEL is present, then the cross +;; reference text is taken from the (gentext-xref-strings) function +;; in the localization file, like this +;; +;; A cross reference to an element, the target, begins with the +;; text returned by (gentext-xref-strings (gi target)). Within +;; that text, the following substitutions are made: +;; +;; %p is replaced by the number of the page on which target occurs +;; %g is replaced by the (gentext-element-name) +;; %n is replaced by the label +;; %t is replaced by the title +;; +;; After the "direct" cross reference, a number of indirect references +;; are possible. If the target element is in a different block, section, +;; component, division, or book an indirect cross reference may be made. +;; +;; The indirect cross reference will only be made if +;; +;; (auto-xref-indirect? target ancestor) +;; +;; returns #t. The indirect reference is created by appending the +;; connect returned by (auto-xref-indirect-connector) to the direct +;; reference and then adding a direct refernce to the ancestor. +;; The process is repeated for each ancestral element. +;; +;; For example, if a direct reference to a section returns +;; +;; "the section called %t" +;; +;; and a direct reference to a chapter returns +;; +;; "Chapter %n" +;; +;; and (auto-xref-indirect? sect1 chapter) returns #t, and +;; (auto-xref-indirect-connector chapter) returns "in", then +;; an xref to a section in another chapter will be: +;; +;; "the section called %t in Chapter %n" +;; +;; Where %t and %n will be filled in accordingly. +;; +;; ====================================================================== + +(define (auto-xref-indirect? target ancestor) + ;; This function answers the question: should an indirect reference + ;; to ancestor be made for target? For example: + ;; + ;; (auto-xref-indirect? SECT1 CHAP) + ;; + ;; should return #t iff a reference of the form "in [CHAP-xref]" should + ;; be generated for a reference to SECT1 if SECT1 is in a different + ;; chapter than the XREF to SECT1. + ;; + ;; This function _does not_ have to consider the case of whether or + ;; not target and the xref are in the same ancestor. + ;; + (cond + ;; Always add indirect references to another book + ((member (gi ancestor) (book-element-list)) + #t) + ;; Add indirect references to the section or component a block + ;; is in iff chapters aren't autolabelled. (Otherwise "Figure 1-3" + ;; is sufficient) + ((and (member (gi target) (block-element-list)) + (not %chapter-autolabel%)) + #t) + ;; Add indirect references to the component a section is in if + ;; the sections are not autolabelled + ((and (member (gi target) (section-element-list)) + (member (gi ancestor) (component-element-list)) + (not %section-autolabel%)) + #t) + (else #f))) + +(define (auto-xref-direct target + #!optional + (xref-string (gentext-xref-strings target))) + (let* ((substitute (list + (list "%g" (element-gi-sosofo target)) + (list "%n" (element-label-sosofo target)) + (list "%p" (element-page-number-sosofo target)) + (list "%t" (element-title-xref-sosofo target)))) + (tlist (match-split-list xref-string (assoc-objs substitute)))) + (string-list-sosofo tlist substitute))) + +(define (auto-xref-indirect target + #!optional + (xref-string (gentext-xref-strings target))) + (make sequence + (auto-xref-indirect-connector target) + (auto-xref-direct target xref-string))) + +(define (auto-xref target + #!optional (xref-string (gentext-xref-strings target))) + (let ((source (current-node)) + (cont-blok (ancestor-member target (block-element-list))) + (cont-sect (ancestor-member target (section-element-list))) + (cont-comp (ancestor-member target (component-element-list))) + (cont-divn (ancestor-member target (division-element-list))) + (cont-book (ancestor-member target (book-element-list)))) + (make sequence + (auto-xref-direct target xref-string) + (if (or (node-list=? cont-blok + (ancestor-member source (block-element-list))) + (node-list=? cont-blok target) + (not (auto-xref-indirect? target cont-blok))) + (empty-sosofo) + (auto-xref-indirect cont-blok)) + (if (or (node-list=? cont-sect + (ancestor-member source (section-element-list))) + (node-list=? cont-sect target) + (not (auto-xref-indirect? target cont-sect))) + (empty-sosofo) + (auto-xref-indirect cont-sect)) + (if (or (node-list=? cont-comp + (ancestor-member source (component-element-list))) + (node-list=? cont-comp target) + (not (auto-xref-indirect? target cont-comp))) + (empty-sosofo) + (auto-xref-indirect cont-comp)) + (if (or (node-list=? cont-divn + (ancestor-member source (division-element-list))) + (node-list=? cont-divn target) + (not (auto-xref-indirect? target cont-divn))) + (empty-sosofo) + (auto-xref-indirect cont-divn)) + (if (or (node-list=? cont-book + (ancestor-member source (book-element-list))) + (node-list=? cont-book target) + (not (auto-xref-indirect? target cont-book))) + (empty-sosofo) + (auto-xref-indirect cont-book))))) + +;; ====================================================================== + +(define (set-number-restart-list cmp) (list (normalize "set"))) +(define (book-number-restart-list cmp) (list (normalize "set"))) +(define (part-number-restart-list cmp) (list (normalize "book"))) +(define (reference-number-restart-list cmp) (list (normalize "book"))) +(define (preface-number-restart-list cmp) (list (normalize "book"))) +(define (chapter-number-restart-list cmp) (list (normalize "book"))) +(define (appendix-number-restart-list cmp) (list (normalize "book") + (normalize "article"))) +(define (article-number-restart-list cmp) (list (normalize "book"))) +(define (glossary-number-restart-list cmp) (list (normalize "book"))) +(define (bibliography-number-restart-list cmp) (list (normalize "book"))) +(define (index-number-restart-list cmp) (list (normalize "book"))) +(define (setindex-number-restart-list cmp) (list (normalize "set"))) +(define (refentry-number-restart-list cmp) (list (normalize "reference"))) +(define (default-number-restart-list cmp) (list (normalize "book"))) + +(define (component-number-restart-list cmp) + ;; Return the list of elements at which numbering of 'cmp' should reset. + ;; For example, for CHAPTER, it might return '("BOOK") causing chapters + ;; to be sequentially numbered across a book. If it returned + ;; '("BOOK" "PART") then chapter numbering would restart at each + ;; BOOK or PART. + (let ((name (gi cmp))) + (cond + ((equal? name (normalize "set")) (set-number-restart-list cmp)) + ((equal? name (normalize "book")) (book-number-restart-list cmp)) + ((equal? name (normalize "part")) (part-number-restart-list cmp)) + ((equal? name (normalize "reference")) (reference-number-restart-list cmp)) + ((equal? name (normalize "preface")) (preface-number-restart-list cmp)) + ((equal? name (normalize "chapter")) (chapter-number-restart-list cmp)) + ((equal? name (normalize "appendix")) (appendix-number-restart-list cmp)) + ((equal? name (normalize "article")) (article-number-restart-list cmp)) + ((equal? name (normalize "glossary")) (glossary-number-restart-list cmp)) + ((equal? name (normalize "bibliography")) (bibliography-number-restart-list cmp)) + ((equal? name (normalize "index")) (index-number-restart-list cmp)) + ((equal? name (normalize "setindex")) (setindex-number-restart-list cmp)) + ((equal? name (normalize "refentry")) (refentry-number-restart-list cmp)) + (else (default-number-restart-list cmp))))) + +(define (set-number-ignore-list cmp) '()) +(define (book-number-ignore-list cmp) '()) +(define (part-number-ignore-list cmp) '()) +(define (reference-number-ignore-list cmp) (list (normalize "part"))) +(define (preface-number-ignore-list cmp) (list (normalize "part"))) +(define (chapter-number-ignore-list cmp) (list (normalize "part"))) +(define (appendix-number-ignore-list cmp) (list (normalize "part"))) +(define (article-number-ignore-list cmp) (list (normalize "part"))) +(define (glossary-number-ignore-list cmp) (list (normalize "part"))) +(define (bibliography-number-ignore-list cmp) (list (normalize "part"))) +(define (index-number-ignore-list cmp) (list (normalize "part"))) +(define (setindex-number-ignore-list cmp) (list (normalize "part"))) +(define (refentry-number-ignore-list cmp) '()) +(define (default-number-ignore-list cmp) '()) + +(define (component-number-ignore-list cmp) + ;; Return the list of elements (inside the restart list) which are + ;; hierarchy levels which should be ignored. For example, for CHAPTER, + ;; it might return '("PART") causing chapter numbering inside books + ;; to ignore parts. + ;; + ;; Basically, if you skip up past a component/division element in + ;; the restart list, you better put the element(s) you skipped in + ;; the ignore list or the stylesheet may never see your component + ;; when it's trying to do the numbering. + (let ((name (gi cmp))) + (cond + ((equal? name (normalize "set")) (set-number-ignore-list cmp)) + ((equal? name (normalize "book")) (book-number-ignore-list cmp)) + ((equal? name (normalize "part")) (part-number-ignore-list cmp)) + ((equal? name (normalize "reference")) (reference-number-ignore-list cmp)) + ((equal? name (normalize "preface")) (preface-number-ignore-list cmp)) + ((equal? name (normalize "chapter")) (chapter-number-ignore-list cmp)) + ((equal? name (normalize "appendix")) (appendix-number-ignore-list cmp)) + ((equal? name (normalize "article")) (article-number-ignore-list cmp)) + ((equal? name (normalize "glossary")) (glossary-number-ignore-list cmp)) + ((equal? name (normalize "bibliography")) (bibliography-number-ignore-list cmp)) + ((equal? name (normalize "index")) (index-number-ignore-list cmp)) + ((equal? name (normalize "setindex")) (setindex-number-ignore-list cmp)) + ((equal? name (normalize "refentry")) (refentry-number-ignore-list cmp)) + (else (default-number-ignore-list cmp))))) + +(define (set-number-sibling-list cmp) '()) +(define (book-number-sibling-list cmp) '()) +(define (part-number-sibling-list cmp) '()) +(define (reference-number-sibling-list cmp) '()) +(define (preface-number-sibling-list cmp) '()) +(define (chapter-number-sibling-list cmp) '()) +(define (appendix-number-sibling-list cmp) '()) +(define (article-number-sibling-list cmp) '()) +(define (glossary-number-sibling-list cmp) '()) +(define (bibliography-number-sibling-list cmp) '()) +(define (index-number-sibling-list cmp) '()) +(define (setindex-number-sibling-list cmp) '()) +(define (refentry-number-sibling-list cmp) '()) +(define (default-number-sibling-list cmp) '()) + +(define (component-number-sibling-list cmp) + ;; Return the list of elements with which 'cmp' should be numbered. + ;; For example, for PART it might return '("PART" "REFERENCE") causing + ;; sibling parts and references to be numbered together. + (let ((name (gi cmp))) + (cond + ((equal? name (normalize "set")) (set-number-sibling-list cmp)) + ((equal? name (normalize "book")) (book-number-sibling-list cmp)) + ((equal? name (normalize "part")) (part-number-sibling-list cmp)) + ((equal? name (normalize "reference")) (reference-number-sibling-list cmp)) + ((equal? name (normalize "preface")) (preface-number-sibling-list cmp)) + ((equal? name (normalize "chapter")) (chapter-number-sibling-list cmp)) + ((equal? name (normalize "appendix")) (appendix-number-sibling-list cmp)) + ((equal? name (normalize "article")) (article-number-sibling-list cmp)) + ((equal? name (normalize "glossary")) (glossary-number-sibling-list cmp)) + ((equal? name (normalize "bibliography")) (bibliography-number-sibling-list cmp)) + ((equal? name (normalize "index")) (index-number-sibling-list cmp)) + ((equal? name (normalize "setindex")) (setindex-number-sibling-list cmp)) + ((equal? name (normalize "refentry")) (refentry-number-sibling-list cmp)) + (else (default-number-sibling-list cmp))))) + +(define (component-number component-node) + (let* ((root (ancestor-member component-node + (component-number-restart-list + component-node))) + (clist (expand-children (children root) + (component-number-ignore-list + component-node))) + (slist (append (list (gi component-node)) + (component-number-sibling-list component-node)))) + (let loop ((nl clist) (count 1)) + (if (node-list-empty? nl) + 1 + (if (node-list=? (node-list-first nl) component-node) + count + (if (member (gi (node-list-first nl)) slist) + (loop (node-list-rest nl) (+ count 1)) + (loop (node-list-rest nl) count))))))) + +;; == components and divisions == + +(define (set-autolabel nd #!optional (force-label? #f)) + "") + +(define (book-autolabel nd #!optional (force-label? #f)) + "") + +(define (part-autolabel nd #!optional (force-label? #f)) + (format-number (component-number nd) (label-number-format nd))) + +(define (reference-autolabel nd #!optional (force-label? #f)) + (format-number (component-number nd) (label-number-format nd))) + +(define (preface-autolabel nd #!optional (force-label? #f)) + "") + +(define (chapter-autolabel nd #!optional (force-label? #f)) + (if (or force-label? %chapter-autolabel%) + (format-number (component-number nd) (label-number-format nd)) + "")) + +(define (appendix-autolabel nd #!optional (force-label? #f)) + ;; Abandoned special processing for appendixes in articles. Maybe + ;; it's a good idea, but it can't be done here because it screws + ;; up cross references to appendixes. + (if (or force-label? %chapter-autolabel%) + (format-number (component-number nd) (label-number-format nd)) + "")) + +(define (article-autolabel nd #!optional (force-label? #f)) + "") + +(define (glossary-autolabel nd #!optional (force-label? #f)) + "") + +(define (bibliography-autolabel nd #!optional (force-label? #f)) + "") + +(define (index-autolabel nd #!optional (force-label? #f)) + "") + +(define (indexdiv-autolabel nd #!optional (force-label? #f)) + "") + +(define (colophon-autolabel nd #!optional (force-label? #f)) + "") + +(define (setindex-autolabel nd #!optional (force-label? #f)) + "") + +(define (refentry-autolabel nd #!optional (force-label? #f)) + (let* ((isep (gentext-intra-label-sep nd)) + (refnamediv (select-elements (children nd) + (normalize "refnamediv"))) + (refd (select-elements (children refnamediv) + (normalize "refdescriptor"))) + (refnames (select-elements (children refnamediv) + (normalize "refname")))) + "")) + +;; == /components and divisions == + +(define (dedication-autolabel nd #!optional (force-label? #f)) + "") + +(define (bibliodiv-autolabel nd #!optional (force-label? #f)) + "") + +(define (glossdiv-autolabel nd #!optional (force-label? #f)) + "") + +(define (section-autolabel-prefix nd) + (let* ((isep (gentext-intra-label-sep nd)) + (haschn (not (node-list-empty? (ancestor (normalize "chapter") nd)))) + (hasapn (not (node-list-empty? (ancestor (normalize "appendix") nd))))) + (cond + (haschn (string-append + (element-label (ancestor (normalize "chapter") nd)) isep)) + (hasapn (string-append + (element-label (ancestor (normalize "appendix") nd)) isep)) + (else "")))) + +(define (section-autolabel nd #!optional (force-label? #f)) + (let* ((isep (gentext-intra-label-sep nd)) + (hasprf (not (node-list-empty? (ancestor (normalize "preface") nd)))) + (prefix (section-autolabel-prefix nd))) + (if (and (or force-label? %section-autolabel%) + (or %label-preface-sections% + (not hasprf))) + (cond + ((equal? (gi nd) (normalize "sect1")) + (string-append prefix (format-number (child-number nd) + (label-number-format nd)))) + ((equal? (gi nd) (normalize "sect2")) + (string-append + (element-label (ancestor (normalize "sect1") nd) force-label?) + isep + (format-number (child-number nd) (label-number-format nd)))) + ((equal? (gi nd) (normalize "sect3")) + (string-append + (element-label (ancestor (normalize "sect2") nd) force-label?) + isep + (format-number (child-number nd) (label-number-format nd)))) + ((equal? (gi nd) (normalize "sect4")) + (string-append + (element-label (ancestor (normalize "sect3") nd) force-label?) + isep + (format-number (child-number nd) (label-number-format nd)))) + ((equal? (gi nd) (normalize "sect5")) + (string-append + (element-label (ancestor (normalize "sect4") nd) force-label?) + isep + (format-number (child-number nd) (label-number-format nd)))) + + ((equal? (gi nd) (normalize "simplesect")) + (let* ((possible-sect-ancestors + (node-list (ancestor (normalize "section") nd) + (ancestor (normalize "sect5") nd) + (ancestor (normalize "sect4") nd) + (ancestor (normalize "sect3") nd) + (ancestor (normalize "sect2") nd) + (ancestor (normalize "sect1") nd))) + (section-ancestor (node-list-first possible-sect-ancestors))) + (if (node-list-empty? section-ancestor) + (string-append prefix (format-number (child-number nd) + (label-number-format nd))) + (string-append + (element-label section-ancestor force-label?) + isep + (format-number (child-number nd) (label-number-format nd)))))) + + ((equal? (gi nd) (normalize "section")) + (if (node-list-empty? (ancestor (normalize "section") nd)) + (string-append prefix (format-number (child-number nd) + (label-number-format nd))) + (string-append + (element-label (ancestor (normalize "section") nd) force-label?) + isep + (format-number (child-number nd) (label-number-format nd))))) + (else (string-append (gi nd) " IS NOT A SECTION!"))) + ""))) + +(define (refsection-autolabel nd #!optional (force-label? #f)) + "") + +(define (step-autolabel nd #!optional (force-label? #f)) + ($proc-step-xref-number$ nd)) + +(define (listitem-autolabel nd #!optional (force-label? #f)) + (if (equal? (gi (parent nd)) (normalize "orderedlist")) + (number->string (child-number nd)) + "[xref to LISTITEM only supported in ORDEREDLIST]")) + +(define (sidebar-autolabel nd #!optional (force-label? #f)) + "") + +(define (legalnotice-autolabel nd #!optional (force-label? #f)) + "") + +(define (abstract-autolabel nd #!optional (force-label? #f)) + "") + +(define (block-autolabel nd #!optional (force-label? #f)) + (let* ((chn (element-label (ancestor (normalize "chapter") nd))) + (apn (element-label (ancestor (normalize "appendix") nd))) + (rfn (element-label (ancestor (normalize "refentry") nd))) + ;; If the root of this document isn't in component-element-list, these + ;; things all wind up being numbered 0. To avoid that, we force the + ;; root element to be in the list of components if it isn't already + ;; a component. + (incomp (member (gi (sgml-root-element)) (component-element-list))) + ;; In articles in books, number blocks from book not from article. + ;; Otherwise you get 1, 1, 1, 1, etc. for the first figure in each + ;; article. + (artinbook (and (not (node-list-empty? (ancestor (normalize "article") nd))) + (not (node-list-empty? (ancestor (normalize "book") nd))))) + + (bkn (if artinbook + (format-number (component-child-number + nd + (list (normalize "book"))) + (label-number-format nd)) + (if incomp + (format-number (component-child-number + nd + (component-element-list)) + (label-number-format nd)) + (format-number (component-child-number + nd + (append (component-element-list) + (list (gi (sgml-root-element))))) + (label-number-format nd)))))) + (if (equal? chn "") + (if (equal? apn "") + (if (equal? rfn "") + bkn + (string-append rfn (gentext-intra-label-sep nd) bkn)) + (string-append apn (gentext-intra-label-sep nd) bkn)) + (string-append chn (gentext-intra-label-sep nd) bkn)))) + +;; For all elements, if a LABEL attribute is present, that is the label +;; that they get. Otherwise: +;; BOOK gets the Book volume, by book-autolabel +;; PREFACE gets "", by preface-autolabel +;; CHAPTER gets the Chapter number, by chapter-autolabel +;; APPENDIX gets the Appendix letter, by appendix-autolabel +;; REFERENCE gets "", by reference-autolabel +;; REFENTRY gets "", by refentry-autolabel +;; SECT* gets the nested section number (e.g., 1.3.5), by section-autolabel +;; REFSECT* gets the nested section number, by refsection-autolabel +;; everything else gets numbered by block-autolabel +;; +(define (element-label #!optional (nd (current-node)) (force-label? #f)) + (if (node-list-empty? nd) + "" + (let ((label (attribute-string (normalize "label") nd))) + (if label + label + (cond + ;; Use a seperately defined assoc list? + ((equal? (gi nd) (normalize "abstract")) + (abstract-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "appendix")) + (appendix-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "article")) + (article-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "bibliodiv")) + (bibliodiv-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "bibliography")) + (bibliography-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "book")) + (book-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "chapter")) + (chapter-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "dedication")) + (dedication-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "glossary")) + (glossary-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "glossdiv")) + (glossdiv-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "index")) + (index-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "colophon")) + (colophon-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "indexdiv")) + (indexdiv-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "setindex")) + (setindex-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "legalnotice")) + (legalnotice-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "listitem")) + (listitem-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "part")) + (part-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "preface")) + (preface-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "refentry")) + (refentry-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "reference")) + (reference-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "refsynopsisdiv")) + (refsection-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "refsect1")) + (refsection-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "refsect2")) + (refsection-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "refsect3")) + (refsection-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "sect1")) + (section-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "sect2")) + (section-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "sect3")) + (section-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "sect4")) + (section-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "sect5")) + (section-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "section")) + (section-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "simplesect")) + (section-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "set")) + (set-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "sidebar")) + (sidebar-autolabel nd force-label?)) + ((equal? (gi nd) (normalize "step")) + (step-autolabel nd force-label?)) + (else (block-autolabel nd force-label?))))))) + +;; ====================================================================== + +;; Returns the element label as a sosofo +;; +(define (element-label-sosofo nd #!optional (force-label? #f)) + (if (string=? (element-label nd force-label?) "") + (empty-sosofo) + (make sequence + (literal (element-label nd force-label?))))) + +;; ====================================================================== + +(define (set-title nd) + (let* ((setinfo (select-elements (children nd) (normalize "setinfo"))) + (sititles (select-elements + (expand-children (children setinfo) + (list (normalize "bookbiblio") + (normalize "bibliomisc") + (normalize "biblioset"))) + (normalize "title"))) + (settitles (select-elements (children nd) (normalize "title"))) + (titles (if (node-list-empty? settitles) + sititles + settitles))) + (if (node-list-empty? titles) + "" + (node-list-first titles)))) + +(define (book-title nd) + (let* ((bookinfo (select-elements (children nd) (normalize "bookinfo"))) + (bititles (select-elements + (expand-children (children bookinfo) + (list (normalize "bookbiblio") + (normalize "bibliomisc") + (normalize "biblioset"))) + (normalize "title"))) + (chtitles (select-elements (children nd) (normalize "title"))) + (titles (if (node-list-empty? chtitles) + bititles + chtitles))) + (if (node-list-empty? titles) + "" + (node-list-first titles)))) + +(define (part-title nd) + (let* ((docinfo (select-elements (children nd) (normalize "docinfo"))) + (dititles (select-elements + (expand-children (children docinfo) + (list (normalize "bookbiblio") + (normalize "bibliomisc") + (normalize "biblioset"))) + (normalize "title"))) + (chtitles (select-elements (children nd) (normalize "title"))) + (titles (if (node-list-empty? chtitles) + dititles + chtitles))) + (if (node-list-empty? titles) + "" + (node-list-first titles)))) + + (define (article-title nd) + (let* ((titles + (or (select-elements (children + (node-list-filter-by-gi (children nd) + (list (normalize "artheader") + (normalize "articleinfo")))) + (normalize "title")) + (select-elements (children nd) + (normalize "title"))))) + (if (node-list-empty? titles) + "" + (node-list-first titles)))) + +(define (preface-title nd) + (chapter-title nd)) + +(define (chapter-title nd) + (let* ((docinfo (select-elements (children nd) (normalize "docinfo"))) + (dititles (select-elements + (expand-children (children docinfo) + (list (normalize "bookbiblio") + (normalize "bibliomisc") + (normalize "biblioset"))) + (normalize "title"))) + (chtitles (select-elements (children nd) (normalize "title"))) + (titles (if (node-list-empty? chtitles) + dititles + chtitles))) + (if (node-list-empty? titles) + "" + (node-list-first titles)))) + +(define (appendix-title nd) + (chapter-title nd)) + +(define (reference-title nd) + (chapter-title nd)) + +(define (refsynopsisdiv-title nd) + (optional-title nd)) + +;; Returns either the REFENTRYTITLE or the first REFNAME. +;; +(define (refentry-title nd) + (let* ((refmeta (select-elements (descendants nd) (normalize "refmeta"))) + (refttl (select-elements (descendants refmeta) (normalize "refentrytitle"))) + (refndiv (select-elements (descendants nd) (normalize "refnamediv"))) + (refname (select-elements (descendants refndiv) (normalize "refname")))) + (if (node-list-empty? refttl) + (if (node-list-empty? refname) + "" + (node-list-first refname)) + (node-list-first refttl)))) + +(define (optional-title nd) + (let* ((docinfo (select-elements (children nd) (normalize "docinfo"))) + (dititles (select-elements (children docinfo) (normalize "title"))) + (chtitles (select-elements (children nd) (normalize "title"))) + (titles (if (node-list-empty? chtitles) + dititles + chtitles))) + (if (node-list-empty? titles) + (gentext-element-name nd) + (node-list-first titles)))) + +(define (glossary-title nd) + (optional-title nd)) + +(define (bibliography-title nd) + (optional-title nd)) + +(define (index-title nd) + (optional-title nd)) + +(define (setindex-title nd) + (optional-title nd)) + +(define (dedication-title nd) + (optional-title nd)) + +(define (colophon-title nd) + (gentext-element-name nd)) + +(define (section-title nd) + (let* ((info (select-elements (children nd) + (list (normalize "sect1info") + (normalize "sect2info") + (normalize "sect3info") + (normalize "sect4info") + (normalize "sect5info") + (normalize "section")))) + (ititles (select-elements (children info) (normalize "title"))) + (ctitles (select-elements (children nd) (normalize "title"))) + (titles (if (node-list-empty? ctitles) + ititles + ctitles))) + (if (node-list-empty? titles) + "" + (node-list-first titles)))) + +(define (refsection-title nd) + (let* ((info (select-elements (children nd) + (list (normalize "refsect1info") + (normalize "refsect2info") + (normalize "refsect3info")))) + (ititles (select-elements (children info) (normalize "title"))) + (ctitles (select-elements (children nd) (normalize "title"))) + (titles (if (node-list-empty? ctitles) + ititles + ctitles))) + (if (node-list-empty? titles) + "" + (node-list-first titles)))) + +(define (block-title nd) + (let ((titles (select-elements (children nd) (normalize "title")))) + (if (node-list-empty? titles) + "" + (node-list-first titles)))) + +;; ====================================================================== + +(define (set-title-sosofo nd) + (let ((title (set-title nd))) + (if (string? title) + (empty-sosofo) + (with-mode title-sosofo-mode + (process-node-list title))))) + +(define (book-title-sosofo nd) + (let ((title (book-title nd))) + (if (string? title) + (empty-sosofo) + (with-mode title-sosofo-mode + (process-node-list title))))) + +(define (part-title-sosofo nd) + (let ((title (part-title nd))) + (if (string? title) + (empty-sosofo) + (with-mode title-sosofo-mode + (process-node-list title))))) + +(define (article-title-sosofo nd) + (let ((title (article-title nd))) + (if (string? title) + (empty-sosofo) + (with-mode title-sosofo-mode + (process-node-list title))))) + +(define (preface-title-sosofo nd) + (let ((title (preface-title nd))) + (if (string? title) + (empty-sosofo) + (with-mode title-sosofo-mode + (process-node-list title))))) + +(define (chapter-title-sosofo nd) + (let ((title (chapter-title nd))) + (if (string? title) + (empty-sosofo) + (with-mode title-sosofo-mode + (process-node-list title))))) + +(define (appendix-title-sosofo nd) + (let ((title (appendix-title nd))) + (if (string? title) + (empty-sosofo) + (with-mode title-sosofo-mode + (process-node-list title))))) + +(define (reference-title-sosofo nd) + (let ((title (reference-title nd))) + (if (string? title) + (empty-sosofo) + (with-mode title-sosofo-mode + (process-node-list title))))) + +(define (refsynopsisdiv-title-sosofo nd) + (optional-title-sosofo nd)) + +(define (refentry-title-sosofo nd) + (let ((title (refentry-title nd))) + (if (string? title) + (empty-sosofo) + (with-mode title-sosofo-mode + (process-node-list title))))) + +(define (optional-title-sosofo nd) + (let ((title (optional-title nd))) + (if (string? title) + (literal title) + (with-mode title-sosofo-mode + (process-node-list title))))) + +(define (glossary-title-sosofo nd) + (optional-title-sosofo nd)) + +(define (bibliography-title-sosofo nd) + (optional-title-sosofo nd)) + +(define (index-title-sosofo nd) + (optional-title-sosofo nd)) + +(define (setindex-title-sosofo nd) + (optional-title-sosofo nd)) + +(define (dedication-title-sosofo nd) + (optional-title-sosofo nd)) + +(define (colophon-title-sosofo nd) + (literal (gentext-element-name nd))) + +(define (section-title-sosofo nd) + (let ((title (section-title nd))) + (if (string? title) + (empty-sosofo) + (with-mode title-sosofo-mode + (process-node-list title))))) + +(define (refsection-title-sosofo nd) + (let ((title (refsection-title nd))) + (if (string? title) + (empty-sosofo) + (with-mode title-sosofo-mode + (process-node-list title))))) + +(define (block-title-sosofo nd) + (let ((title (block-title nd))) + (if (string? title) + (empty-sosofo) + (with-mode title-sosofo-mode + (process-node-list title))))) + +(mode title-sosofo-mode + (element title + (process-children-trim)) + + (element citetitle + (process-children-trim)) + + (element refname + (process-children-trim)) + + (element refentrytitle + (process-children-trim))) + +;; Returns the title of the element as a sosofo. +;; +(define (element-title-sosofo #!optional (nd (current-node))) + (if (node-list-empty? nd) + (empty-sosofo) + (cond + ;; Use a seperately defined assoc list? + ((equal? (gi nd) (normalize "appendix")) (appendix-title-sosofo nd)) + ((equal? (gi nd) (normalize "article")) (article-title-sosofo nd)) + ((equal? (gi nd) (normalize "bibliography")) (bibliography-title-sosofo nd)) + ((equal? (gi nd) (normalize "book")) (book-title-sosofo nd)) + ((equal? (gi nd) (normalize "chapter")) (chapter-title-sosofo nd)) + ((equal? (gi nd) (normalize "dedication")) (dedication-title-sosofo nd)) + ((equal? (gi nd) (normalize "glossary")) (glossary-title-sosofo nd)) + ((equal? (gi nd) (normalize "index")) (index-title-sosofo nd)) + ((equal? (gi nd) (normalize "colophon")) (colophon-title-sosofo nd)) + ((equal? (gi nd) (normalize "setindex")) (index-title-sosofo nd)) + ((equal? (gi nd) (normalize "part")) (part-title-sosofo nd)) + ((equal? (gi nd) (normalize "preface")) (preface-title-sosofo nd)) + ((equal? (gi nd) (normalize "refentry")) (refentry-title-sosofo nd)) + ((equal? (gi nd) (normalize "reference")) (reference-title-sosofo nd)) + ((equal? (gi nd) (normalize "refsect1")) (refsection-title-sosofo nd)) + ((equal? (gi nd) (normalize "refsect2")) (refsection-title-sosofo nd)) + ((equal? (gi nd) (normalize "refsect3")) (refsection-title-sosofo nd)) + ((equal? (gi nd) (normalize "refsynopsisdiv")) (refsynopsisdiv-title-sosofo nd)) + ((equal? (gi nd) (normalize "sect1")) (section-title-sosofo nd)) + ((equal? (gi nd) (normalize "sect2")) (section-title-sosofo nd)) + ((equal? (gi nd) (normalize "sect3")) (section-title-sosofo nd)) + ((equal? (gi nd) (normalize "sect4")) (section-title-sosofo nd)) + ((equal? (gi nd) (normalize "sect5")) (section-title-sosofo nd)) + ((equal? (gi nd) (normalize "set")) (set-title-sosofo nd)) + (else (block-title-sosofo nd))))) + +;; ====================================================================== + +;; Returns the title of the element; returns a node if possible, or a string +(define (element-title nd) + (if (node-list-empty? nd) + "" + (cond + ;; Use a seperately defined assoc list? + ((equal? (gi nd) (normalize "appendix")) (appendix-title nd)) + ((equal? (gi nd) (normalize "article")) (article-title nd)) + ((equal? (gi nd) (normalize "bibliography")) (bibliography-title nd)) + ((equal? (gi nd) (normalize "book")) (book-title nd)) + ((equal? (gi nd) (normalize "chapter")) (chapter-title nd)) + ((equal? (gi nd) (normalize "dedication")) (dedication-title nd)) + ((equal? (gi nd) (normalize "glossary")) (glossary-title nd)) + ((equal? (gi nd) (normalize "index")) (index-title nd)) + ((equal? (gi nd) (normalize "colophon")) (colophon-title nd)) + ((equal? (gi nd) (normalize "setindex")) (setindex-title nd)) + ((equal? (gi nd) (normalize "part")) (part-title nd)) + ((equal? (gi nd) (normalize "preface")) (preface-title nd)) + ((equal? (gi nd) (normalize "refentry")) (refentry-title nd)) + ((equal? (gi nd) (normalize "reference")) (reference-title nd)) + ((equal? (gi nd) (normalize "refsect1")) (refsection-title nd)) + ((equal? (gi nd) (normalize "refsect2")) (refsection-title nd)) + ((equal? (gi nd) (normalize "refsect3")) (refsection-title nd)) + ((equal? (gi nd) (normalize "refsynopsisdiv")) (refsynopsisdiv-title nd)) + ((equal? (gi nd) (normalize "sect1")) (section-title nd)) + ((equal? (gi nd) (normalize "sect2")) (section-title nd)) + ((equal? (gi nd) (normalize "sect3")) (section-title nd)) + ((equal? (gi nd) (normalize "sect4")) (section-title nd)) + ((equal? (gi nd) (normalize "sect5")) (section-title nd)) + ((equal? (gi nd) (normalize "set")) (set-title nd)) + (else (block-title nd))))) + +;; ====================================================================== +;; Returns the data of a node, carefully excising INDEXTERMs from +;; the data content +;; + +(define (data-of node) + ;; return the data characters of a node, except for the content of + ;; indexterms which are suppressed. + (let loop ((nl (children node)) (result "")) + (if (node-list-empty? nl) + result + (if (equal? (node-property 'class-name (node-list-first nl)) 'element) + (if (or (equal? (gi (node-list-first nl)) (normalize "indexterm")) + (equal? (gi (node-list-first nl)) (normalize "comment")) + (equal? (gi (node-list-first nl)) (normalize "remark"))) + (loop (node-list-rest nl) result) + (loop (node-list-rest nl) + (string-append result (data-of (node-list-first nl))))) + (if (or (equal? (node-property 'class-name (node-list-first nl)) + 'data-char) + (equal? (node-property 'class-name (node-list-first nl)) + 'sdata)) + (loop (node-list-rest nl) + (string-append result (data (node-list-first nl)))) + (loop (node-list-rest nl) result)))))) + +;; ====================================================================== +;; Returns the element title data of nd +;; +(define (element-title-string nd) + (let ((title (element-title nd))) + (if (string? title) + title + (data-of title)))) + +;; ====================================================================== +;; Returns the element gi as a sosofo +;; +(define (element-gi-sosofo nd) + (if (node-list-empty? nd) + (empty-sosofo) + (make sequence + (literal (gentext-element-name nd))))) + +;; ====================================================================== + +(define (titlepage-info-elements node info #!optional (intro (empty-node-list))) + ;; Returns a node-list of the elements that might appear on a title + ;; page. This node-list is constructed as follows: + ;; + ;; 1. The "title" child of node is considered as a possibility + ;; 2. If info is not empty, then node-list starts as the children + ;; of info. If the children of info don't include a title, then + ;; the title from the node is added. + ;; 3. If info is empty, then node-list starts as the children of node, + ;; but with "partintro" filtered out. + + (let* ((title (select-elements (children node) (normalize "title"))) + (nl (if (node-list-empty? info) + (node-list-filter-by-not-gi (children node) + (list (normalize "partintro"))) + (children info))) + (nltitle (node-list-filter-by-gi nl (list (normalize "title"))))) + (if (node-list-empty? info) + (node-list nl + intro) + (node-list (if (node-list-empty? nltitle) + title + (empty-node-list)) + nl + intro)))) + +;; ====================================================================== + +(define (info-element #!optional (nd (current-node))) + ;; Returns the *INFO element for the nd or (empty-node-list) if no + ;; such node exists... + (cond + ((equal? (gi nd) (normalize "set")) + (select-elements (children nd) (normalize "setinfo"))) + ((equal? (gi nd) (normalize "book")) + (select-elements (children nd) (normalize "bookinfo"))) + ((equal? (gi nd) (normalize "section")) + (select-elements (children nd) (normalize "sectioninfo"))) + ((equal? (gi nd) (normalize "sect1")) + (select-elements (children nd) (normalize "sect1info"))) + ((equal? (gi nd) (normalize "sect2")) + (select-elements (children nd) (normalize "sect2info"))) + ((equal? (gi nd) (normalize "sect3")) + (select-elements (children nd) (normalize "sect3info"))) + ((equal? (gi nd) (normalize "sect4")) + (select-elements (children nd) (normalize "sect4info"))) + ((equal? (gi nd) (normalize "sect5")) + (select-elements (children nd) (normalize "sect5info"))) + ((equal? (gi nd) (normalize "refsect1")) + (select-elements (children nd) (normalize "refsect1info"))) + ((equal? (gi nd) (normalize "refsect2")) + (select-elements (children nd) (normalize "refsect2info"))) + ((equal? (gi nd) (normalize "refsect3")) + (select-elements (children nd) (normalize "refsect3info"))) + ((equal? (gi nd) (normalize "refsynopsisdiv")) + (select-elements (children nd) (normalize "refsynopsisdivinfo"))) + ((equal? (gi nd) (normalize "article")) + (node-list-filter-by-gi (children nd) (list (normalize "artheader") + (normalize "articleinfo")))) + (else ;; BIBLIODIV, GLOSSDIV, INDEXDIV, PARTINTRO, SIMPLESECT + (select-elements (children nd) (normalize "docinfo"))))) + +;; ====================================================================== +;; +;; Bibliography filtering... + +(define (biblio-filter allentries) + (let* ((all (descendants (sgml-root-element))) + (link (select-elements all (normalize "link"))) + (xref (select-elements all (normalize "xref"))) + (cite (select-elements all (normalize "citation"))) + (xref-elements (node-list link xref))) + (let loop ((entries allentries) (used (empty-node-list))) + (if (node-list-empty? entries) + used + (if (or (cited-by-xref (node-list-first entries) xref-elements) + (cited-by-citation (node-list-first entries) cite)) + (loop (node-list-rest entries) + (node-list used (node-list-first entries))) + (loop (node-list-rest entries) used)))))) + +(define (cited-by-xref bib xref-elements) + (let* ((id (attribute-string (normalize "id") bib))) + (if id + (let loop ((links xref-elements)) + (if (node-list-empty? links) + #f + (if (equal? (attribute-string (normalize "linkend") + (node-list-first links)) id) + #t + (loop (node-list-rest links))))) + #f))) + +(define (cited-by-citation bib citations) + (let loop ((links citations)) + (if (node-list-empty? links) + #f + (if (citation-matches-target? (node-list-first links) bib) + #t + (loop (node-list-rest links)))))) + +(define (citation-matches-target? citation target) + (let* ((fchild (node-list-first + (node-list-filter-out-pis + (children target)))) + (abbrev (if (equal? (gi fchild) (normalize "abbrev")) + fchild + (empty-node-list))) + (cite (data-of citation))) + (or (equal? (attribute-string "id" target) (normalize cite)) + (equal? (attribute-string "xreflabel" target) (normalize cite)) + (equal? (normalize cite) (normalize (data-of abbrev)))))) + +(define (bibentry-number bibentry) + (let* ((bgraphy (ancestor-member bibentry + (list (normalize "bibliography")))) + (comps (expand-children (children bgraphy) + (list (normalize "bibliodiv"))))) + (let loop ((nl comps) (count 1)) + (if (node-list-empty? nl) + 0 + (if (node-list=? (node-list-first nl) bibentry) + count + (if (or (equal? (gi (node-list-first nl)) + (normalize "biblioentry")) + (equal? (gi (node-list-first nl)) + (normalize "bibliomixed"))) + (loop (node-list-rest nl) (+ count 1)) + (loop (node-list-rest nl) count))))))) + +;; ====================================================================== + +(define (olink-resource-title pubid sysid) + ;; This version of olink-resource-title expects public identifiers + ;; with the following format: + ;; + ;; -//owner//TEXT title Vx.x//EN + ;; + ;; Specifically the title is the description field of the public + ;; identifier minus the first word (TEXT, the type) and the last + ;; word, in my case a version string. Words are blank delimited. + ;; The parsing will fail if a "/" appears anywhere in any field. + ;; The system identifier is ignored + ;; + (let* ((pubidparts (if pubid + (split pubid '(#\/)) + (split "-//none//type version//la" '(#\/)))) + (description (car (cdr (cdr pubidparts)))) + (descparts (split description)) + (titleparts (list-head (cdr descparts) (- (length descparts) 2)))) + (join titleparts))) + +;; ====================================================================== + +(define (orderedlist-listitem-number listitem) + ;; return the number of listitem, taking continuation into account + (let* ((orderedlist (parent listitem)) + (listitems (select-elements (children orderedlist) + (normalize "listitem"))) + (continue? (equal? (attribute-string (normalize "continuation") + orderedlist) + (normalize "continues"))) + +;; If a list is the continuation of a previous list, we must find the +;; list that is continued in order to calculate the starting +;; item number of this list. +;; +;; Of all the lists in this component, only the following are candidates: +;; 1. Lists which precede this list +;; 2. Lists which are not ancestors of this list +;; 3. Lists that do not have ancestors that are lists which precede this one +;; +;; Of the candidates, the last one, in document order, is the preceding +;; list + (all-lists (select-elements + (descendants (ancestor-member orderedlist + (component-element-list))) + (normalize "orderedlist"))) + + (cand1 (if continue? + (let loop ((nl all-lists) + (prec (empty-node-list))) + (if (node-list-empty? nl) + prec + (if (node-list=? (node-list-first nl) + orderedlist) + prec + (loop (node-list-rest nl) + (node-list prec + (node-list-first nl)))))) + (empty-node-list))) + + (cand2 (let loop ((nl cand1) + (cand2lists (empty-node-list))) + (if (node-list-empty? nl) + cand2lists + (loop (node-list-rest nl) + (if (descendant-of? (node-list-first nl) + orderedlist) + cand2lists + (node-list cand2lists + (node-list-first nl))))))) + + ;; now find the last item of cand2 that is not a descendant + ;; of some other element of the cand2 list. + (preclist (let loop ((nl (node-list-reverse cand2))) + (if (node-list-empty? nl) + (empty-node-list) + (if (descendant-member-of? + (node-list-first nl) + (node-list-rest nl)) + (loop (node-list-rest nl)) + (node-list-first nl))))) + + (precitem (if (node-list-empty? preclist) + (empty-node-list) + (node-list-last (children preclist)))) + (precitem-number (if (and continue? (not (node-list-empty? precitem))) + (orderedlist-listitem-number precitem) + 0))) + + (+ precitem-number (child-number listitem)))) + +(define (descendant-member-of? node node-list) + ;; return true if node is a descedant of any member of node-list + (let loop ((nl node-list)) + (if (node-list-empty? nl) + #f + (if (descendant-of? (node-list-first nl) node) + #t + (loop (node-list-rest nl)))))) + +;; ====================================================================== + +(define (orderedlist-listitem-label listitem) + ;; return the formatted number of listitem + (let* ((number (orderedlist-listitem-number listitem)) + (depth (length (hierarchical-number-recursive + (normalize "orderedlist") + listitem))) + (numeration (inherited-attribute-string (normalize "numeration") + listitem)) + ;; rawnum allows for numbering to alternate + (rawnum (cond + ((equal? numeration (normalize "arabic")) 1) + ((equal? numeration (normalize "loweralpha")) 2) + ((equal? numeration (normalize "lowerroman")) 3) + ((equal? numeration (normalize "upperalpha")) 4) + ((equal? numeration (normalize "upperroman")) 0) + (else (modulo depth 5))))) + (case rawnum + ((1) (format-number number "1")) + ((2) (format-number number "a")) + ((3) (format-number number "i")) + ((4) (format-number number "A")) + ((0) (format-number number "I"))))) + +(define (orderedlist-listitem-label-recursive listitem) + ;; return the recursively formatted number of the listitem. + ;; In other words, something of the form 1.2.3 for a third level + ;; nested ordered list + (let loop ((li (parent listitem)) + (label (orderedlist-listitem-label listitem))) + (if (or (node-list-empty? li) + (node-list-empty? (ancestor (normalize "orderedlist") li))) + label + (if (and (equal? (gi li) (normalize "listitem")) + (equal? (gi (parent li)) (normalize "orderedlist"))) + (loop (parent li) + (string-append + (orderedlist-listitem-label li) + (gentext-intra-label-sep li) + label)) + (loop (parent li) label))))) + +(define (question-answer-label #!optional (node (current-node))) + (let* ((inhlabel (inherited-attribute-string (normalize "defaultlabel") + node)) + (deflabel (if inhlabel inhlabel (qanda-defaultlabel))) + (label (attribute-string (normalize "label") node)) + (hnr (hierarchical-number-recursive (normalize "qandadiv") + node)) + + (parsect (ancestor-member node (section-element-list))) + + (defnum (if (and %qanda-inherit-numeration% + %section-autolabel%) + (if (node-list-empty? parsect) + (section-autolabel-prefix node) + (section-autolabel parsect)) + "")) + + (hnumber (let loop ((numlist hnr) (number defnum) + (sep (if (equal? defnum "") "" "."))) + (if (null? numlist) + number + (loop (cdr numlist) + (string-append number + sep + (number->string (car numlist))) + ".")))) + (cnumber (child-number (parent node))) + (number (string-append hnumber + (if (equal? hnumber "") + "" + ".") + (number->string cnumber)))) + (cond + ((equal? deflabel (normalize "qanda")) + (gentext-element-name node)) + ((equal? deflabel (normalize "label")) + label) + ;; Note: only questions are numbered... + ((and (equal? deflabel (normalize "number")) + (equal? (gi node) (normalize "question"))) + (string-append number ".")) + (else "")))) + +;; ====================================================================== +;; Calculate term lengths... + +(define (varlistentry-term-too-long? vle termlength) + (let loop ((nl (select-elements (children vle) (normalize "term"))) + (too-long? #f)) + (if (or too-long? (node-list-empty? nl)) + too-long? + (loop (node-list-rest nl) + (> (string-length (data (node-list-first nl))) + termlength))))) + +(define (variablelist-term-too-long? termlength) + (let loop ((nl (select-elements (children (current-node)) + (normalize "varlistentry"))) + (too-long? #f)) + (if (or too-long? (node-list-empty? nl)) + too-long? + (loop (node-list-rest nl) + (varlistentry-term-too-long? (node-list-first nl) termlength))))) + +;; ====================================================================== +;; bibliography elements + +(define (biblioentry-inline-elements) + (list (normalize "abbrev") + (normalize "affiliation") + (normalize "artpagenums") + (normalize "author") + (normalize "authorgroup") + (normalize "authorinitials") + (normalize "citetitle") + (normalize "collab") + (normalize "confgroup") + (normalize "contractnum") + (normalize "contractsponsor") + (normalize "contrib") + (normalize "copyright") + (normalize "corpauthor") + (normalize "corpname") + (normalize "date") + (normalize "edition") + (normalize "editor") + (normalize "firstname") + (normalize "honorific") + (normalize "invpartnumber") + (normalize "isbn") + (normalize "issn") + (normalize "issuenum") + (normalize "lineage") + (normalize "orgname") + (normalize "othercredit") + (normalize "othername") + (normalize "pagenums") + (normalize "productname") + (normalize "productnumber") + (normalize "pubdate") + (normalize "publisher") + (normalize "publishername") + (normalize "pubsnumber") + (normalize "releaseinfo") + (normalize "seriesvolnums") + (normalize "subtitle") + (normalize "surname") + (normalize "title") + (normalize "titleabbrev") + (normalize "volumenum"))) + +(define (biblioentry-block-elements) + (list (normalize "abstract") + (normalize "address") + (normalize "authorblurb") + (normalize "printhistory") + (normalize "revhistory") + (normalize "seriesinfo"))) + +(define (biblioentry-flatten-elements) + (list (normalize "articleinfo") + (normalize "biblioset") + (normalize "bookbiblio") + (normalize "artheader"))) + +;; === db31 common ====================================================== + +(define (data-filename dataobj) + (let* ((entityref (attribute-string (normalize "entityref") dataobj)) + (fileref (attribute-string (normalize "fileref") dataobj)) + (filename (if fileref + fileref + (system-id-filename entityref))) + (ext (file-extension filename))) + (if (or (not filename) + (not %graphic-default-extension%) + (member ext %graphic-extensions%)) + filename + (string-append filename "." %graphic-default-extension%)))) + +(define (normalized-member string string-list) + (if (string? string) + (let loop ((sl string-list)) + (if (null? sl) + #f + (if (string=? (normalize string) (normalize (car sl))) + #t + (loop (cdr sl))))) + #f)) + +(define (find-displayable-object objlist notlist extlist) + (let loop ((nl objlist)) + (if (node-list-empty? nl) + (empty-node-list) + (let* ((objdata (node-list-filter-by-gi + (children (node-list-first nl)) + (list (normalize "videodata") + (normalize "audiodata") + (normalize "imagedata")))) + (filename (data-filename objdata)) + (extension (file-extension filename)) + (notation (attribute-string (normalize "format") objdata))) + (if (or (normalized-member notation notlist) + (normalized-member extension extlist) + (and notation + (string=? notation (normalize "linespecific")))) + (node-list-first nl) + (loop (node-list-rest nl))))))) + +(define (select-displayable-object objlist) + (let ((pref (find-displayable-object objlist + preferred-mediaobject-notations + preferred-mediaobject-extensions)) + (ok (find-displayable-object objlist + acceptable-mediaobject-notations + acceptable-mediaobject-extensions))) + (if (node-list-empty? pref) + ok + pref))) + +(define ($mediaobject$) + (let* ((objects (node-list-filter-by-gi + (children (current-node)) + (list (normalize "videoobject") + (normalize "imageobject") + (normalize "audioobject")))) + (dobject (select-displayable-object objects)) + (textobj (select-elements (children (current-node)) + (normalize "textobject"))) + (caption (select-elements (children (current-node)) + (normalize "caption")))) + (make sequence + (if (node-list-empty? dobject) + (if (node-list-empty? textobj) + (empty-sosofo) + (process-node-list (node-list-first textobj))) + (process-node-list dobject)) + (process-node-list caption)))) + +;; ====================================================================== diff --git a/stylesheets/dsssl-1.79/common/dbl10n.dsl b/stylesheets/dsssl-1.79/common/dbl10n.dsl new file mode 100644 index 0000000..35876bd --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl10n.dsl @@ -0,0 +1,1554 @@ +;; $Id: dbl10n.dsl,v 1.8 2004/10/09 21:36:35 petere78 Exp $ +;; +;; This file is part of the Modular DocBook Stylesheet distribution. +;; See ../README or http://nwalsh.com/docbook/dsssl/ +;; + +;; ----------------------------- Localization ----------------------------- + +;; If you create a new version of this file, please send it to +;; Norman Walsh, ndw@nwalsh.com. Please use the ISO 639 language +;; code to identify the language. Append a subtag as per RFC 1766, +;; if necessary. + +;; The generated text for cross references to elements. See dblink.dsl +;; for a discussion of how substitution is performed on the %x and #x +;; keywords. +;; + +;; The following language codes from ISO 639 are recognized: +;; af - Afrikaans 1.71 +;; bg - Bulgarian +;; bs - Bosnian +;; ca - Catalan +;; cs - Czech +;; da - Danish (previously dk) +;; de - German (previously dege) +;; el - Greek +;; en - English (previously usen) +;; es - Spanish +;; et - Estonian 1.55 +;; eu - Basque 1.74 +;; fi - Finnish +;; fr - French +;; hu - Hungarian 1.55 +;; id - Indonesian 1.55 +;; it - Italian +;; ja - Japanese +;; ko - Korean 1.59 +;; nl - Dutch +;; nn - Nnyorsk 1.74 +;; no - Norwegian (previously bmno) ??? +;; pl - Polish +;; pt - Portuguese +;; pt_br - Portuguese (Brazil) +;; ro - Romanian +;; ru - Russian +;; sk - Slovak +;; sl - Slovenian 1.55 +;; sr - Serbian 1.70 +;; sv - Swedish (previously svse) +;; tr - Turkish 1.71 +;; uk - Ukranian 1.74 +;; xh - Xhosa 1.74 +;; zh_cn - Chinese (Continental) 1.55 +;; zh_tw - Chinese (Traditional) 1.70 + +;; The following language codes are recognized for historical reasons: + +;; bmno(no) - Norwegian (Norsk Bokmal) ??? +;; dege(de) - German +;; dk(da) - Danish +;; svse(sv) - Swedish +;; usen(en) - English + +(define %default-language% "en") +(define %gentext-language% #f) +(define %gentext-use-xref-lang% #f) + +(define ($lang$ #!optional (target (current-node)) (xref-context #f)) + (if %gentext-language% + (lang-fix %gentext-language%) + (if (or xref-context %gentext-use-xref-lang%) + (let loop ((here target)) + (if (node-list-empty? here) + (lang-fix %default-language%) + (if (attribute-string (normalize "lang") here) + (lang-fix (attribute-string (normalize "lang") here)) + (loop (parent here))))) + (if (inherited-attribute-string (normalize "lang")) + (lang-fix (inherited-attribute-string (normalize "lang"))) + (lang-fix %default-language%))))) + +(define (lang-fix language) + ;; Lowercase the language + ;; Translate 'xx-yy' to 'xx_yy' + (let ((fixed-lang (if (> (string-index language "-") 0) + (let ((pos (string-index language "-"))) + (string-append + (substring language 0 pos) + "_" + (substring language (+ pos 1) + (string-length language)))) + language))) + (case-fold-down fixed-lang))) + +(define (author-string #!optional (author (current-node))) + (let ((lang (if (string? author) ($lang$) ($lang$ author)))) + (case lang + ;; ISO 639/ISO 3166/RFC 1766 + <![%l10n-af[ (("af") (af-author-string author)) ]]> + <![%l10n-bg[ (("bg") (bg-author-string author)) ]]> + <![%l10n-bs[ (("bs") (bs-author-string author)) ]]> + <![%l10n-ca[ (("ca") (ca-author-string author)) ]]> + <![%l10n-cs[ (("cs") (cs-author-string author)) ]]> + <![%l10n-da[ (("da") (da-author-string author)) ]]> + <![%l10n-de[ (("de") (de-author-string author)) ]]> + <![%l10n-el[ (("el") (el-author-string author)) ]]> + <![%l10n-en[ (("en") (en-author-string author)) ]]> + <![%l10n-es[ (("es") (es-author-string author)) ]]> + <![%l10n-et[ (("et") (et-author-string author)) ]]> + <![%l10n-eu[ (("eu") (eu-author-string author)) ]]> + <![%l10n-fi[ (("fi") (fi-author-string author)) ]]> + <![%l10n-fr[ (("fr") (fr-author-string author)) ]]> + <![%l10n-hu[ (("hu") (hu-author-string author)) ]]> + <![%l10n-id[ (("id") (id-author-string author)) ]]> + <![%l10n-it[ (("it") (it-author-string author)) ]]> + <![%l10n-ja[ (("ja") (ja-author-string author)) ]]> + <![%l10n-ko[ (("ko") (ko-author-string author)) ]]> + <![%l10n-nl[ (("nl") (nl-author-string author)) ]]> + <![%l10n-nn[ (("nn") (nn-author-string author)) ]]> + <![%l10n-no[ (("no") (no-author-string author)) ]]> + <![%l10n-pl[ (("pl") (pl-author-string author)) ]]> + <![%l10n-pt[ (("pt") (pt-author-string author)) ]]> + <![%l10n-ptbr[ (("pt_br") (ptbr-author-string author)) ]]> + <![%l10n-ro[ (("ro") (ro-author-string author)) ]]> + <![%l10n-ru[ (("ru") (ru-author-string author)) ]]> + <![%l10n-sk[ (("sk") (sk-author-string author)) ]]> + <![%l10n-sl[ (("sl") (sl-author-string author)) ]]> + <![%l10n-sr[ (("sr") (sr-author-string author)) ]]> + <![%l10n-sv[ (("sv") (sv-author-string author)) ]]> + <![%l10n-tr[ (("tr") (tr-author-string author)) ]]> + <![%l10n-uk[ (("uk") (uk-author-string author)) ]]> + <![%l10n-xh[ (("xh") (xh-author-string author)) ]]> + <![%l10n-zhcn[ (("zh_cn") (zhcn-author-string author)) ]]> + <![%l10n-zhtw[ (("zh_tw") (zhtw-author-string author)) ]]> + <![%l10n-no[ (("bmno") (no-author-string author)) ]]> + <![%l10n-de[ (("dege") (de-author-string author)) ]]> + <![%l10n-da[ (("dk") (da-author-string author)) ]]> + <![%l10n-sv[ (("svse") (sv-author-string author)) ]]> + <![%l10n-en[ (("usen") (en-author-string author)) ]]> + (else (error (string-append "L10N ERROR: author-string: " + lang)))))) + +(define (gentext-xref-strings target) + (let ((giname (if (string? target) (normalize target) (gi target))) + (lang (if (string? target) ($lang$) ($lang$ target)))) + (case lang + <![%l10n-af[ (("af") (gentext-af-xref-strings giname)) ]]> + <![%l10n-bg[ (("bg") (gentext-bg-xref-strings giname)) ]]> + <![%l10n-bs[ (("bs") (gentext-bs-xref-strings giname)) ]]> + <![%l10n-ca[ (("ca") (gentext-ca-xref-strings giname)) ]]> + <![%l10n-cs[ (("cs") (gentext-cs-xref-strings giname)) ]]> + <![%l10n-da[ (("da") (gentext-da-xref-strings giname)) ]]> + <![%l10n-de[ (("de") (gentext-de-xref-strings giname)) ]]> + <![%l10n-el[ (("el") (gentext-el-xref-strings giname)) ]]> + <![%l10n-en[ (("en") (gentext-en-xref-strings giname)) ]]> + <![%l10n-es[ (("es") (gentext-es-xref-strings giname)) ]]> + <![%l10n-et[ (("et") (gentext-et-xref-strings giname)) ]]> + <![%l10n-eu[ (("eu") (gentext-eu-xref-strings giname)) ]]> + <![%l10n-fi[ (("fi") (gentext-fi-xref-strings giname)) ]]> + <![%l10n-fr[ (("fr") (gentext-fr-xref-strings giname)) ]]> + <![%l10n-hu[ (("hu") (gentext-hu-xref-strings giname)) ]]> + <![%l10n-id[ (("id") (gentext-id-xref-strings giname)) ]]> + <![%l10n-it[ (("it") (gentext-it-xref-strings giname)) ]]> + <![%l10n-ja[ (("ja") (gentext-ja-xref-strings giname)) ]]> + <![%l10n-ko[ (("ko") (gentext-ko-xref-strings giname)) ]]> + <![%l10n-nl[ (("nl") (gentext-nl-xref-strings giname)) ]]> + <![%l10n-nn[ (("nn") (gentext-nn-xref-strings giname)) ]]> + <![%l10n-no[ (("no") (gentext-no-xref-strings giname)) ]]> + <![%l10n-pl[ (("pl") (gentext-pl-xref-strings giname)) ]]> + <![%l10n-pt[ (("pt") (gentext-pt-xref-strings giname)) ]]> + <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-xref-strings giname)) ]]> + <![%l10n-ro[ (("ro") (gentext-ro-xref-strings giname)) ]]> + <![%l10n-ru[ (("ru") (gentext-ru-xref-strings giname)) ]]> + <![%l10n-sk[ (("sk") (gentext-sk-xref-strings giname)) ]]> + <![%l10n-sl[ (("sl") (gentext-sl-xref-strings giname)) ]]> + <![%l10n-sr[ (("sr") (gentext-sr-xref-strings giname)) ]]> + <![%l10n-sv[ (("sv") (gentext-sv-xref-strings giname)) ]]> + <![%l10n-tr[ (("tr") (gentext-tr-xref-strings giname)) ]]> + <![%l10n-uk[ (("uk") (gentext-uk-xref-strings giname)) ]]> + <![%l10n-xh[ (("xh") (gentext-xh-xref-strings giname)) ]]> + <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-xref-strings giname)) ]]> + <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-xref-strings giname)) ]]> + <![%l10n-no[ (("bmno") (gentext-no-xref-strings giname)) ]]> + <![%l10n-de[ (("dege") (gentext-de-xref-strings giname)) ]]> + <![%l10n-da[ (("dk") (gentext-da-xref-strings giname)) ]]> + <![%l10n-sv[ (("svse") (gentext-sv-xref-strings giname)) ]]> + <![%l10n-en[ (("usen") (gentext-en-xref-strings giname)) ]]> + (else (error (string-append "L10N ERROR: gentext-xref-strings: " + lang)))))) + +(define (auto-xref-indirect-connector before) + (case ($lang$) + <![%l10n-af[ (("af") (af-auto-xref-indirect-connector before)) ]]> + <![%l10n-bg[ (("bg") (bg-auto-xref-indirect-connector before)) ]]> + <![%l10n-bs[ (("bs") (bs-auto-xref-indirect-connector before)) ]]> + <![%l10n-ca[ (("ca") (ca-auto-xref-indirect-connector before)) ]]> + <![%l10n-cs[ (("cs") (cs-auto-xref-indirect-connector before)) ]]> + <![%l10n-da[ (("da") (da-auto-xref-indirect-connector before)) ]]> + <![%l10n-de[ (("de") (de-auto-xref-indirect-connector before)) ]]> + <![%l10n-el[ (("el") (el-auto-xref-indirect-connector before)) ]]> + <![%l10n-en[ (("en") (en-auto-xref-indirect-connector before)) ]]> + <![%l10n-es[ (("es") (es-auto-xref-indirect-connector before)) ]]> + <![%l10n-et[ (("et") (et-auto-xref-indirect-connector before)) ]]> + <![%l10n-eu[ (("eu") (eu-auto-xref-indirect-connector before)) ]]> + <![%l10n-fi[ (("fi") (fi-auto-xref-indirect-connector before)) ]]> + <![%l10n-fr[ (("fr") (fr-auto-xref-indirect-connector before)) ]]> + <![%l10n-hu[ (("hu") (hu-auto-xref-indirect-connector before)) ]]> + <![%l10n-id[ (("id") (id-auto-xref-indirect-connector before)) ]]> + <![%l10n-it[ (("it") (it-auto-xref-indirect-connector before)) ]]> + <![%l10n-ja[ (("ja") (ja-auto-xref-indirect-connector before)) ]]> + <![%l10n-ko[ (("ko") (ko-auto-xref-indirect-connector before)) ]]> + <![%l10n-nl[ (("nl") (nl-auto-xref-indirect-connector before)) ]]> + <![%l10n-nn[ (("nn") (nn-auto-xref-indirect-connector before)) ]]> + <![%l10n-no[ (("no") (no-auto-xref-indirect-connector before)) ]]> + <![%l10n-pl[ (("pl") (pl-auto-xref-indirect-connector before)) ]]> + <![%l10n-pt[ (("pt") (pt-auto-xref-indirect-connector before)) ]]> + <![%l10n-ptbr[ (("pt_br") (ptbr-auto-xref-indirect-connector before)) ]]> + <![%l10n-ro[ (("ro") (ro-auto-xref-indirect-connector before)) ]]> + <![%l10n-ru[ (("ru") (ru-auto-xref-indirect-connector before)) ]]> + <![%l10n-sk[ (("sk") (sk-auto-xref-indirect-connector before)) ]]> + <![%l10n-sl[ (("sl") (sl-auto-xref-indirect-connector before)) ]]> + <![%l10n-sr[ (("sr") (sr-auto-xref-indirect-connector before)) ]]> + <![%l10n-sv[ (("sv") (sv-auto-xref-indirect-connector before)) ]]> + <![%l10n-tr[ (("tr") (tr-auto-xref-indirect-connector before)) ]]> + <![%l10n-uk[ (("uk") (uk-auto-xref-indirect-connector before)) ]]> + <![%l10n-xh[ (("xh") (xh-auto-xref-indirect-connector before)) ]]> + <![%l10n-zhcn[ (("zh_cn") (zhcn-auto-xref-indirect-connector before)) ]]> + <![%l10n-zhtw[ (("zh_tw") (zhtw-auto-xref-indirect-connector before)) ]]> + <![%l10n-no[ (("bmno") (no-auto-xref-indirect-connector before)) ]]> + <![%l10n-de[ (("dege") (de-auto-xref-indirect-connector before)) ]]> + <![%l10n-da[ (("dk") (da-auto-xref-indirect-connector before)) ]]> + <![%l10n-sv[ (("svse") (sv-auto-xref-indirect-connector before)) ]]> + <![%l10n-en[ (("usen") (en-auto-xref-indirect-connector before)) ]]> + (else (error "L10N ERROR: auto-xref-indirect-connector")))) + +(define (generate-toc-in-front) + (case ($lang$) + <![%l10n-af[ (("af") %generate-af-toc-in-front%) ]]> + <![%l10n-bg[ (("bg") %generate-bg-toc-in-front%) ]]> + <![%l10n-bs[ (("bs") %generate-bs-toc-in-front%) ]]> + <![%l10n-ca[ (("ca") %generate-ca-toc-in-front%) ]]> + <![%l10n-cs[ (("cs") %generate-cs-toc-in-front%) ]]> + <![%l10n-da[ (("da") %generate-da-toc-in-front%) ]]> + <![%l10n-de[ (("de") %generate-de-toc-in-front%) ]]> + <![%l10n-el[ (("el") %generate-el-toc-in-front%) ]]> + <![%l10n-en[ (("en") %generate-en-toc-in-front%) ]]> + <![%l10n-es[ (("es") %generate-es-toc-in-front%) ]]> + <![%l10n-et[ (("et") %generate-et-toc-in-front%) ]]> + <![%l10n-eu[ (("eu") %generate-eu-toc-in-front%) ]]> + <![%l10n-fi[ (("fi") %generate-fi-toc-in-front%) ]]> + <![%l10n-fr[ (("fr") %generate-fr-toc-in-front%) ]]> + <![%l10n-hu[ (("hu") %generate-hu-toc-in-front%) ]]> + <![%l10n-id[ (("id") %generate-id-toc-in-front%) ]]> + <![%l10n-it[ (("it") %generate-it-toc-in-front%) ]]> + <![%l10n-ja[ (("ja") %generate-ja-toc-in-front%) ]]> + <![%l10n-ko[ (("ko") %generate-ko-toc-in-front%) ]]> + <![%l10n-nl[ (("nl") %generate-nl-toc-in-front%) ]]> + <![%l10n-nn[ (("nn") %generate-nn-toc-in-front%) ]]> + <![%l10n-no[ (("no") %generate-no-toc-in-front%) ]]> + <![%l10n-pl[ (("pl") %generate-pl-toc-in-front%) ]]> + <![%l10n-pt[ (("pt") %generate-pt-toc-in-front%) ]]> + <![%l10n-ptbr[ (("pt_br") %generate-ptbr-toc-in-front%) ]]> + <![%l10n-ro[ (("ro") %generate-ro-toc-in-front%) ]]> + <![%l10n-ru[ (("ru") %generate-ru-toc-in-front%) ]]> + <![%l10n-sk[ (("sk") %generate-sk-toc-in-front%) ]]> + <![%l10n-sl[ (("sl") %generate-sl-toc-in-front%) ]]> + <![%l10n-sr[ (("sr") %generate-sr-toc-in-front%) ]]> + <![%l10n-sv[ (("sv") %generate-sv-toc-in-front%) ]]> + <![%l10n-tr[ (("tr") %generate-tr-toc-in-front%) ]]> + <![%l10n-uk[ (("uk") %generate-uk-toc-in-front%) ]]> + <![%l10n-xh[ (("xh") %generate-xh-toc-in-front%) ]]> + <![%l10n-zhcn[ (("zh_cn") %generate-zhcn-toc-in-front%) ]]> + <![%l10n-zhtw[ (("zh_tw") %generate-zhtw-toc-in-front%) ]]> + <![%l10n-no[ (("bmno") %generate-no-toc-in-front%) ]]> + <![%l10n-de[ (("dege") %generate-de-toc-in-front%) ]]> + <![%l10n-da[ (("dk") %generate-da-toc-in-front%) ]]> + <![%l10n-sv[ (("svse") %generate-sv-toc-in-front%) ]]> + <![%l10n-en[ (("usen") %generate-en-toc-in-front%) ]]> + (else (error "L10N ERROR: generate-toc-in-front")))) + +(define (gentext-element-name target) + (let ((giname (if (string? target) (normalize target) (gi target))) + (lang (if (string? target) ($lang$) ($lang$ target #t)))) + (case lang + <![%l10n-af[ (("af") (gentext-af-element-name giname)) ]]> + <![%l10n-bg[ (("bg") (gentext-bg-element-name giname)) ]]> + <![%l10n-bs[ (("bs") (gentext-bs-element-name giname)) ]]> + <![%l10n-ca[ (("ca") (gentext-ca-element-name giname)) ]]> + <![%l10n-cs[ (("cs") (gentext-cs-element-name giname)) ]]> + <![%l10n-da[ (("da") (gentext-da-element-name giname)) ]]> + <![%l10n-de[ (("de") (gentext-de-element-name giname)) ]]> + <![%l10n-el[ (("el") (gentext-el-element-name giname)) ]]> + <![%l10n-en[ (("en") (gentext-en-element-name giname)) ]]> + <![%l10n-es[ (("es") (gentext-es-element-name giname)) ]]> + <![%l10n-et[ (("et") (gentext-et-element-name giname)) ]]> + <![%l10n-eu[ (("eu") (gentext-eu-element-name giname)) ]]> + <![%l10n-fi[ (("fi") (gentext-fi-element-name giname)) ]]> + <![%l10n-fr[ (("fr") (gentext-fr-element-name giname)) ]]> + <![%l10n-hu[ (("hu") (gentext-hu-element-name giname)) ]]> + <![%l10n-id[ (("id") (gentext-id-element-name giname)) ]]> + <![%l10n-it[ (("it") (gentext-it-element-name giname)) ]]> + <![%l10n-ja[ (("ja") (gentext-ja-element-name giname)) ]]> + <![%l10n-ko[ (("ko") (gentext-ko-element-name giname)) ]]> + <![%l10n-nl[ (("nl") (gentext-nl-element-name giname)) ]]> + <![%l10n-nn[ (("nn") (gentext-nn-element-name giname)) ]]> + <![%l10n-no[ (("no") (gentext-no-element-name giname)) ]]> + <![%l10n-pl[ (("pl") (gentext-pl-element-name giname)) ]]> + <![%l10n-pt[ (("pt") (gentext-pt-element-name giname)) ]]> + <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-element-name giname)) ]]> + <![%l10n-ro[ (("ro") (gentext-ro-element-name giname)) ]]> + <![%l10n-ru[ (("ru") (gentext-ru-element-name giname)) ]]> + <![%l10n-sk[ (("sk") (gentext-sk-element-name giname)) ]]> + <![%l10n-sl[ (("sl") (gentext-sl-element-name giname)) ]]> + <![%l10n-sr[ (("sr") (gentext-sr-element-name giname)) ]]> + <![%l10n-sv[ (("sv") (gentext-sv-element-name giname)) ]]> + <![%l10n-tr[ (("tr") (gentext-tr-element-name giname)) ]]> + <![%l10n-uk[ (("uk") (gentext-uk-element-name giname)) ]]> + <![%l10n-xh[ (("xh") (gentext-xh-element-name giname)) ]]> + <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-element-name giname)) ]]> + <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-element-name giname)) ]]> + <![%l10n-no[ (("bmno") (gentext-no-element-name giname)) ]]> + <![%l10n-de[ (("dege") (gentext-de-element-name giname)) ]]> + <![%l10n-da[ (("dk") (gentext-da-element-name giname)) ]]> + <![%l10n-sv[ (("svse") (gentext-sv-element-name giname)) ]]> + <![%l10n-en[ (("usen") (gentext-en-element-name giname)) ]]> + (else (error (string-append "L10N ERROR: gentext-element-name: " + lang + " (" + giname + ")")))))) + +(define (gentext-element-name-space target) + (let ((giname (if (string? target) (normalize target) (gi target))) + (lang (if (string? target) ($lang$) ($lang$ target)))) + (case lang + <![%l10n-af[ (("af") (gentext-af-element-name-space giname)) ]]> + <![%l10n-bg[ (("bg") (gentext-bg-element-name-space giname)) ]]> + <![%l10n-bs[ (("bs") (gentext-bs-element-name-space giname)) ]]> + <![%l10n-ca[ (("ca") (gentext-ca-element-name-space giname)) ]]> + <![%l10n-cs[ (("cs") (gentext-cs-element-name-space giname)) ]]> + <![%l10n-da[ (("da") (gentext-da-element-name-space giname)) ]]> + <![%l10n-de[ (("de") (gentext-de-element-name-space giname)) ]]> + <![%l10n-el[ (("el") (gentext-el-element-name-space giname)) ]]> + <![%l10n-en[ (("en") (gentext-en-element-name-space giname)) ]]> + <![%l10n-es[ (("es") (gentext-es-element-name-space giname)) ]]> + <![%l10n-et[ (("et") (gentext-et-element-name-space giname)) ]]> + <![%l10n-eu[ (("eu") (gentext-eu-element-name-space giname)) ]]> + <![%l10n-fi[ (("fi") (gentext-fi-element-name-space giname)) ]]> + <![%l10n-fr[ (("fr") (gentext-fr-element-name-space giname)) ]]> + <![%l10n-hu[ (("hu") (gentext-hu-element-name-space giname)) ]]> + <![%l10n-id[ (("id") (gentext-id-element-name-space giname)) ]]> + <![%l10n-it[ (("it") (gentext-it-element-name-space giname)) ]]> + <![%l10n-ja[ (("ja") (gentext-ja-element-name-space giname)) ]]> + <![%l10n-ko[ (("ko") (gentext-ko-element-name-space giname)) ]]> + <![%l10n-nl[ (("nl") (gentext-nl-element-name-space giname)) ]]> + <![%l10n-nn[ (("nn") (gentext-nn-element-name-space giname)) ]]> + <![%l10n-no[ (("no") (gentext-no-element-name-space giname)) ]]> + <![%l10n-pl[ (("pl") (gentext-pl-element-name-space giname)) ]]> + <![%l10n-pt[ (("pt") (gentext-pt-element-name-space giname)) ]]> + <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-element-name-space giname)) ]]> + <![%l10n-ro[ (("ro") (gentext-ro-element-name-space giname)) ]]> + <![%l10n-ru[ (("ru") (gentext-ru-element-name-space giname)) ]]> + <![%l10n-sk[ (("sk") (gentext-sk-element-name-space giname)) ]]> + <![%l10n-sl[ (("sl") (gentext-sl-element-name-space giname)) ]]> + <![%l10n-sr[ (("sr") (gentext-sr-element-name-space giname)) ]]> + <![%l10n-sv[ (("sv") (gentext-sv-element-name-space giname)) ]]> + <![%l10n-tr[ (("tr") (gentext-tr-element-name-space giname)) ]]> + <![%l10n-uk[ (("uk") (gentext-uk-element-name-space giname)) ]]> + <![%l10n-xh[ (("xh") (gentext-xh-element-name-space giname)) ]]> + <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-element-name-space giname)) ]]> + <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-element-name-space giname)) ]]> + <![%l10n-no[ (("bmno") (gentext-no-element-name-space giname)) ]]> + <![%l10n-de[ (("dege") (gentext-de-element-name-space giname)) ]]> + <![%l10n-da[ (("dk") (gentext-da-element-name-space giname)) ]]> + <![%l10n-sv[ (("svse") (gentext-sv-element-name-space giname)) ]]> + <![%l10n-en[ (("usen") (gentext-en-element-name-space giname)) ]]> + (else (error "L10N ERROR: gentext-element-name-space"))))) + +(define (gentext-intra-label-sep target) + (let ((giname (if (string? target) (normalize target) (gi target))) + (lang (if (string? target) ($lang$) ($lang$ target)))) + (case lang + <![%l10n-af[ (("af") (gentext-af-intra-label-sep giname)) ]]> + <![%l10n-bg[ (("bg") (gentext-bg-intra-label-sep giname)) ]]> + <![%l10n-bs[ (("bs") (gentext-bs-intra-label-sep giname)) ]]> + <![%l10n-ca[ (("ca") (gentext-ca-intra-label-sep giname)) ]]> + <![%l10n-cs[ (("cs") (gentext-cs-intra-label-sep giname)) ]]> + <![%l10n-da[ (("da") (gentext-da-intra-label-sep giname)) ]]> + <![%l10n-de[ (("de") (gentext-de-intra-label-sep giname)) ]]> + <![%l10n-el[ (("el") (gentext-el-intra-label-sep giname)) ]]> + <![%l10n-en[ (("en") (gentext-en-intra-label-sep giname)) ]]> + <![%l10n-es[ (("es") (gentext-es-intra-label-sep giname)) ]]> + <![%l10n-et[ (("et") (gentext-et-intra-label-sep giname)) ]]> + <![%l10n-eu[ (("eu") (gentext-eu-intra-label-sep giname)) ]]> + <![%l10n-fi[ (("fi") (gentext-fi-intra-label-sep giname)) ]]> + <![%l10n-fr[ (("fr") (gentext-fr-intra-label-sep giname)) ]]> + <![%l10n-hu[ (("hu") (gentext-hu-intra-label-sep giname)) ]]> + <![%l10n-id[ (("id") (gentext-id-intra-label-sep giname)) ]]> + <![%l10n-it[ (("it") (gentext-it-intra-label-sep giname)) ]]> + <![%l10n-ja[ (("ja") (gentext-ja-intra-label-sep giname)) ]]> + <![%l10n-ko[ (("ko") (gentext-ko-intra-label-sep giname)) ]]> + <![%l10n-nl[ (("nl") (gentext-nl-intra-label-sep giname)) ]]> + <![%l10n-nn[ (("nn") (gentext-nn-intra-label-sep giname)) ]]> + <![%l10n-no[ (("no") (gentext-no-intra-label-sep giname)) ]]> + <![%l10n-pl[ (("pl") (gentext-pl-intra-label-sep giname)) ]]> + <![%l10n-pt[ (("pt") (gentext-pt-intra-label-sep giname)) ]]> + <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-intra-label-sep giname)) ]]> + <![%l10n-ro[ (("ro") (gentext-ro-intra-label-sep giname)) ]]> + <![%l10n-ru[ (("ru") (gentext-ru-intra-label-sep giname)) ]]> + <![%l10n-sk[ (("sk") (gentext-sk-intra-label-sep giname)) ]]> + <![%l10n-sl[ (("sl") (gentext-sl-intra-label-sep giname)) ]]> + <![%l10n-sr[ (("sr") (gentext-sr-intra-label-sep giname)) ]]> + <![%l10n-sv[ (("sv") (gentext-sv-intra-label-sep giname)) ]]> + <![%l10n-tr[ (("tr") (gentext-tr-intra-label-sep giname)) ]]> + <![%l10n-uk[ (("uk") (gentext-uk-intra-label-sep giname)) ]]> + <![%l10n-xh[ (("xh") (gentext-xh-intra-label-sep giname)) ]]> + <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-intra-label-sep giname)) ]]> + <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-intra-label-sep giname)) ]]> + <![%l10n-no[ (("bmno") (gentext-no-intra-label-sep giname)) ]]> + <![%l10n-de[ (("dege") (gentext-de-intra-label-sep giname)) ]]> + <![%l10n-da[ (("dk") (gentext-da-intra-label-sep giname)) ]]> + <![%l10n-sv[ (("svse") (gentext-sv-intra-label-sep giname)) ]]> + <![%l10n-en[ (("usen") (gentext-en-intra-label-sep giname)) ]]> + (else (error "L10N ERROR: gentext-intra-label-sep"))))) + +(define (gentext-label-title-sep target) + (let ((giname (if (string? target) (normalize target) (gi target))) + (lang (if (string? target) ($lang$) ($lang$ target)))) + (case lang + <![%l10n-af[ (("af") (gentext-af-label-title-sep giname)) ]]> + <![%l10n-bg[ (("bg") (gentext-bg-label-title-sep giname)) ]]> + <![%l10n-bs[ (("bs") (gentext-bs-label-title-sep giname)) ]]> + <![%l10n-ca[ (("ca") (gentext-ca-label-title-sep giname)) ]]> + <![%l10n-cs[ (("cs") (gentext-cs-label-title-sep giname)) ]]> + <![%l10n-da[ (("da") (gentext-da-label-title-sep giname)) ]]> + <![%l10n-de[ (("de") (gentext-de-label-title-sep giname)) ]]> + <![%l10n-el[ (("el") (gentext-el-label-title-sep giname)) ]]> + <![%l10n-en[ (("en") (gentext-en-label-title-sep giname)) ]]> + <![%l10n-es[ (("es") (gentext-es-label-title-sep giname)) ]]> + <![%l10n-et[ (("et") (gentext-et-label-title-sep giname)) ]]> + <![%l10n-eu[ (("eu") (gentext-eu-label-title-sep giname)) ]]> + <![%l10n-fi[ (("fi") (gentext-fi-label-title-sep giname)) ]]> + <![%l10n-fr[ (("fr") (gentext-fr-label-title-sep giname)) ]]> + <![%l10n-hu[ (("hu") (gentext-hu-label-title-sep giname)) ]]> + <![%l10n-id[ (("id") (gentext-id-label-title-sep giname)) ]]> + <![%l10n-it[ (("it") (gentext-it-label-title-sep giname)) ]]> + <![%l10n-ja[ (("ja") (gentext-ja-label-title-sep giname)) ]]> + <![%l10n-ko[ (("ko") (gentext-ko-label-title-sep giname)) ]]> + <![%l10n-nl[ (("nl") (gentext-nl-label-title-sep giname)) ]]> + <![%l10n-nn[ (("nn") (gentext-nn-label-title-sep giname)) ]]> + <![%l10n-no[ (("no") (gentext-no-label-title-sep giname)) ]]> + <![%l10n-pl[ (("pl") (gentext-pl-label-title-sep giname)) ]]> + <![%l10n-pt[ (("pt") (gentext-pt-label-title-sep giname)) ]]> + <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-label-title-sep giname)) ]]> + <![%l10n-ro[ (("ro") (gentext-ro-label-title-sep giname)) ]]> + <![%l10n-ru[ (("ru") (gentext-ru-label-title-sep giname)) ]]> + <![%l10n-sk[ (("sk") (gentext-sk-label-title-sep giname)) ]]> + <![%l10n-sl[ (("sl") (gentext-sl-label-title-sep giname)) ]]> + <![%l10n-sr[ (("sr") (gentext-sr-label-title-sep giname)) ]]> + <![%l10n-sv[ (("sv") (gentext-sv-label-title-sep giname)) ]]> + <![%l10n-tr[ (("tr") (gentext-tr-label-title-sep giname)) ]]> + <![%l10n-uk[ (("uk") (gentext-uk-label-title-sep giname)) ]]> + <![%l10n-xh[ (("xh") (gentext-xh-label-title-sep giname)) ]]> + <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-label-title-sep giname)) ]]> + <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-label-title-sep giname)) ]]> + <![%l10n-no[ (("bmno") (gentext-no-label-title-sep giname)) ]]> + <![%l10n-de[ (("dege") (gentext-de-label-title-sep giname)) ]]> + <![%l10n-da[ (("dk") (gentext-da-label-title-sep giname)) ]]> + <![%l10n-sv[ (("svse") (gentext-sv-label-title-sep giname)) ]]> + <![%l10n-en[ (("usen") (gentext-en-label-title-sep giname)) ]]> + (else (error "L10N ERROR: gentext-label-title-sep"))))) + +(define (label-number-format target) + (let ((giname (if (string? target) (normalize target) (gi target))) + (lang (if (string? target) ($lang$) ($lang$ target)))) + (case lang + <![%l10n-af[ (("af") (af-label-number-format target)) ]]> + <![%l10n-bg[ (("bg") (bg-label-number-format target)) ]]> + <![%l10n-bs[ (("bs") (bs-label-number-format target)) ]]> + <![%l10n-ca[ (("ca") (ca-label-number-format target)) ]]> + <![%l10n-cs[ (("cs") (cs-label-number-format target)) ]]> + <![%l10n-da[ (("da") (da-label-number-format target)) ]]> + <![%l10n-de[ (("de") (de-label-number-format target)) ]]> + <![%l10n-el[ (("el") (el-label-number-format target)) ]]> + <![%l10n-en[ (("en") (en-label-number-format target)) ]]> + <![%l10n-es[ (("es") (es-label-number-format target)) ]]> + <![%l10n-et[ (("et") (et-label-number-format target)) ]]> + <![%l10n-eu[ (("eu") (eu-label-number-format target)) ]]> + <![%l10n-fi[ (("fi") (fi-label-number-format target)) ]]> + <![%l10n-fr[ (("fr") (fr-label-number-format target)) ]]> + <![%l10n-hu[ (("hu") (hu-label-number-format target)) ]]> + <![%l10n-id[ (("id") (id-label-number-format target)) ]]> + <![%l10n-it[ (("it") (it-label-number-format target)) ]]> + <![%l10n-ja[ (("ja") (ja-label-number-format target)) ]]> + <![%l10n-ko[ (("ko") (ko-label-number-format target)) ]]> + <![%l10n-nl[ (("nl") (nl-label-number-format target)) ]]> + <![%l10n-nn[ (("nn") (nn-label-number-format target)) ]]> + <![%l10n-no[ (("no") (no-label-number-format target)) ]]> + <![%l10n-pl[ (("pl") (pl-label-number-format target)) ]]> + <![%l10n-pt[ (("pt") (pt-label-number-format target)) ]]> + <![%l10n-ptbr[ (("pt_br") (ptbr-label-number-format target)) ]]> + <![%l10n-ro[ (("ro") (ro-label-number-format target)) ]]> + <![%l10n-ru[ (("ru") (ru-label-number-format target)) ]]> + <![%l10n-sk[ (("sk") (sk-label-number-format target)) ]]> + <![%l10n-sl[ (("sl") (sl-label-number-format target)) ]]> + <![%l10n-sr[ (("sr") (sr-label-number-format target)) ]]> + <![%l10n-sv[ (("sv") (sv-label-number-format target)) ]]> + <![%l10n-tr[ (("tr") (tr-label-number-format target)) ]]> + <![%l10n-uk[ (("uk") (uk-label-number-format target)) ]]> + <![%l10n-xh[ (("xh") (xh-label-number-format target)) ]]> + <![%l10n-zhcn[ (("zh_cn") (zhcn-label-number-format target)) ]]> + <![%l10n-zhtw[ (("zh_tw") (zhtw-label-number-format target)) ]]> + <![%l10n-no[ (("bmno") (no-label-number-format target)) ]]> + <![%l10n-de[ (("dege") (de-label-number-format target)) ]]> + <![%l10n-da[ (("dk") (da-label-number-format target)) ]]> + <![%l10n-sv[ (("svse") (sv-label-number-format target)) ]]> + <![%l10n-en[ (("usen") (en-label-number-format target)) ]]> + (else (error "L10N ERROR: label-number-format"))))) + +(define ($lot-title$ lotgi) + (case ($lang$) + <![%l10n-af[ (("af") ($lot-title-af$ lotgi)) ]]> + <![%l10n-bg[ (("bg") ($lot-title-bg$ lotgi)) ]]> + <![%l10n-bs[ (("bs") ($lot-title-bs$ lotgi)) ]]> + <![%l10n-ca[ (("ca") ($lot-title-ca$ lotgi)) ]]> + <![%l10n-cs[ (("cs") ($lot-title-cs$ lotgi)) ]]> + <![%l10n-da[ (("da") ($lot-title-da$ lotgi)) ]]> + <![%l10n-de[ (("de") ($lot-title-de$ lotgi)) ]]> + <![%l10n-el[ (("el") ($lot-title-el$ lotgi)) ]]> + <![%l10n-en[ (("en") ($lot-title-en$ lotgi)) ]]> + <![%l10n-es[ (("es") ($lot-title-es$ lotgi)) ]]> + <![%l10n-et[ (("et") ($lot-title-et$ lotgi)) ]]> + <![%l10n-eu[ (("eu") ($lot-title-eu$ lotgi)) ]]> + <![%l10n-fi[ (("fi") ($lot-title-fi$ lotgi)) ]]> + <![%l10n-fr[ (("fr") ($lot-title-fr$ lotgi)) ]]> + <![%l10n-hu[ (("hu") ($lot-title-hu$ lotgi)) ]]> + <![%l10n-id[ (("id") ($lot-title-id$ lotgi)) ]]> + <![%l10n-it[ (("it") ($lot-title-it$ lotgi)) ]]> + <![%l10n-ja[ (("ja") ($lot-title-ja$ lotgi)) ]]> + <![%l10n-ko[ (("ko") ($lot-title-ko$ lotgi)) ]]> + <![%l10n-nl[ (("nl") ($lot-title-nl$ lotgi)) ]]> + <![%l10n-nn[ (("nn") ($lot-title-nn$ lotgi)) ]]> + <![%l10n-no[ (("no") ($lot-title-no$ lotgi)) ]]> + <![%l10n-pl[ (("pl") ($lot-title-pl$ lotgi)) ]]> + <![%l10n-pt[ (("pt") ($lot-title-pt$ lotgi)) ]]> + <![%l10n-ptbr[ (("pt_br") ($lot-title-ptbr$ lotgi)) ]]> + <![%l10n-ro[ (("ro") ($lot-title-ro$ lotgi)) ]]> + <![%l10n-ru[ (("ru") ($lot-title-ru$ lotgi)) ]]> + <![%l10n-sk[ (("sk") ($lot-title-sk$ lotgi)) ]]> + <![%l10n-sl[ (("sl") ($lot-title-sl$ lotgi)) ]]> + <![%l10n-sr[ (("sr") ($lot-title-sr$ lotgi)) ]]> + <![%l10n-sv[ (("sv") ($lot-title-sv$ lotgi)) ]]> + <![%l10n-tr[ (("tr") ($lot-title-tr$ lotgi)) ]]> + <![%l10n-uk[ (("uk") ($lot-title-uk$ lotgi)) ]]> + <![%l10n-xh[ (("xh") ($lot-title-xh$ lotgi)) ]]> + <![%l10n-zhcn[ (("zh_cn") ($lot-title-zhcn$ lotgi)) ]]> + <![%l10n-zhtw[ (("zh_tw") ($lot-title-zhtw$ lotgi)) ]]> + <![%l10n-no[ (("bmno") ($lot-title-no$ lotgi)) ]]> + <![%l10n-de[ (("dege") ($lot-title-de$ lotgi)) ]]> + <![%l10n-da[ (("dk") ($lot-title-da$ lotgi)) ]]> + <![%l10n-sv[ (("svse") ($lot-title-sv$ lotgi)) ]]> + <![%l10n-en[ (("usen") ($lot-title-en$ lotgi)) ]]> + (else (error "L10N ERROR: $lot-title$")))) + +(define (gentext-start-quote) + (case ($lang$) + <![%l10n-af[ (("af") %gentext-af-start-quote%) ]]> + <![%l10n-bg[ (("bg") %gentext-bg-start-quote%) ]]> + <![%l10n-bs[ (("bs") %gentext-bs-start-quote%) ]]> + <![%l10n-ca[ (("ca") %gentext-ca-start-quote%) ]]> + <![%l10n-cs[ (("cs") %gentext-cs-start-quote%) ]]> + <![%l10n-da[ (("da") %gentext-da-start-quote%) ]]> + <![%l10n-de[ (("de") %gentext-de-start-quote%) ]]> + <![%l10n-el[ (("el") %gentext-el-start-quote%) ]]> + <![%l10n-en[ (("en") %gentext-en-start-quote%) ]]> + <![%l10n-es[ (("es") %gentext-es-start-quote%) ]]> + <![%l10n-et[ (("et") %gentext-et-start-quote%) ]]> + <![%l10n-eu[ (("eu") %gentext-eu-start-quote%) ]]> + <![%l10n-fi[ (("fi") %gentext-fi-start-quote%) ]]> + <![%l10n-fr[ (("fr") %gentext-fr-start-quote%) ]]> + <![%l10n-hu[ (("hu") %gentext-hu-start-quote%) ]]> + <![%l10n-id[ (("id") %gentext-id-start-quote%) ]]> + <![%l10n-it[ (("it") %gentext-it-start-quote%) ]]> + <![%l10n-ja[ (("ja") %gentext-ja-start-quote%) ]]> + <![%l10n-ko[ (("ko") %gentext-ko-start-quote%) ]]> + <![%l10n-nl[ (("nl") %gentext-nl-start-quote%) ]]> + <![%l10n-nn[ (("nn") %gentext-nn-start-quote%) ]]> + <![%l10n-no[ (("no") %gentext-no-start-quote%) ]]> + <![%l10n-pl[ (("pl") %gentext-pl-start-quote%) ]]> + <![%l10n-pt[ (("pt") %gentext-pt-start-quote%) ]]> + <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-start-quote%) ]]> + <![%l10n-ro[ (("ro") %gentext-ro-start-quote%) ]]> + <![%l10n-ru[ (("ru") %gentext-ru-start-quote%) ]]> + <![%l10n-sk[ (("sk") %gentext-sk-start-quote%) ]]> + <![%l10n-sl[ (("sl") %gentext-sl-start-quote%) ]]> + <![%l10n-sr[ (("sr") %gentext-sr-start-quote%) ]]> + <![%l10n-sv[ (("sv") %gentext-sv-start-quote%) ]]> + <![%l10n-tr[ (("tr") %gentext-tr-start-quote%) ]]> + <![%l10n-uk[ (("uk") %gentext-uk-start-quote%) ]]> + <![%l10n-xh[ (("xh") %gentext-xh-start-quote%) ]]> + <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-start-quote%) ]]> + <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-start-quote%) ]]> + <![%l10n-no[ (("bmno") %gentext-no-start-quote%) ]]> + <![%l10n-de[ (("dege") %gentext-de-start-quote%) ]]> + <![%l10n-da[ (("dk") %gentext-da-start-quote%) ]]> + <![%l10n-sv[ (("svse") %gentext-sv-start-quote%) ]]> + <![%l10n-en[ (("usen") %gentext-en-start-quote%) ]]> + (else (error "L10N ERROR: gentext-start-quote")))) + +(define (gentext-end-quote) + (case ($lang$) + <![%l10n-af[ (("af") %gentext-af-end-quote%) ]]> + <![%l10n-bg[ (("bg") %gentext-bg-end-quote%) ]]> + <![%l10n-bs[ (("bs") %gentext-bs-end-quote%) ]]> + <![%l10n-ca[ (("ca") %gentext-ca-end-quote%) ]]> + <![%l10n-cs[ (("cs") %gentext-cs-end-quote%) ]]> + <![%l10n-da[ (("da") %gentext-da-end-quote%) ]]> + <![%l10n-de[ (("de") %gentext-de-end-quote%) ]]> + <![%l10n-el[ (("el") %gentext-el-end-quote%) ]]> + <![%l10n-en[ (("en") %gentext-en-end-quote%) ]]> + <![%l10n-es[ (("es") %gentext-es-end-quote%) ]]> + <![%l10n-et[ (("et") %gentext-et-end-quote%) ]]> + <![%l10n-eu[ (("eu") %gentext-eu-end-quote%) ]]> + <![%l10n-fi[ (("fi") %gentext-fi-end-quote%) ]]> + <![%l10n-fr[ (("fr") %gentext-fr-end-quote%) ]]> + <![%l10n-hu[ (("hu") %gentext-hu-end-quote%) ]]> + <![%l10n-id[ (("id") %gentext-id-end-quote%) ]]> + <![%l10n-it[ (("it") %gentext-it-end-quote%) ]]> + <![%l10n-ja[ (("ja") %gentext-ja-end-quote%) ]]> + <![%l10n-ko[ (("ko") %gentext-ko-end-quote%) ]]> + <![%l10n-nl[ (("nl") %gentext-nl-end-quote%) ]]> + <![%l10n-nn[ (("nn") %gentext-nn-end-quote%) ]]> + <![%l10n-no[ (("no") %gentext-no-end-quote%) ]]> + <![%l10n-pl[ (("pl") %gentext-pl-end-quote%) ]]> + <![%l10n-pt[ (("pt") %gentext-pt-end-quote%) ]]> + <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-end-quote%) ]]> + <![%l10n-ro[ (("ro") %gentext-ro-end-quote%) ]]> + <![%l10n-ru[ (("ru") %gentext-ru-end-quote%) ]]> + <![%l10n-sk[ (("sk") %gentext-sk-end-quote%) ]]> + <![%l10n-sl[ (("sl") %gentext-sl-end-quote%) ]]> + <![%l10n-sr[ (("sr") %gentext-sr-end-quote%) ]]> + <![%l10n-sv[ (("sv") %gentext-sv-end-quote%) ]]> + <![%l10n-tr[ (("tr") %gentext-tr-end-quote%) ]]> + <![%l10n-uk[ (("uk") %gentext-uk-end-quote%) ]]> + <![%l10n-xh[ (("xh") %gentext-xh-end-quote%) ]]> + <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-end-quote%) ]]> + <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-end-quote%) ]]> + <![%l10n-no[ (("bmno") %gentext-no-end-quote%) ]]> + <![%l10n-de[ (("dege") %gentext-de-end-quote%) ]]> + <![%l10n-da[ (("dk") %gentext-da-end-quote%) ]]> + <![%l10n-sv[ (("svse") %gentext-sv-end-quote%) ]]> + <![%l10n-en[ (("usen") %gentext-en-end-quote%) ]]> + (else (error "L10N ERROR: gentext-end-quote")))) + +(define (gentext-start-nested-quote) + (case ($lang$) + <![%l10n-af[ (("af") %gentext-af-start-nested-quote%) ]]> + <![%l10n-bg[ (("bg") %gentext-bg-start-nested-quote%) ]]> + <![%l10n-bs[ (("bs") %gentext-bs-start-nested-quote%) ]]> + <![%l10n-ca[ (("ca") %gentext-ca-start-nested-quote%) ]]> + <![%l10n-cs[ (("cs") %gentext-cs-start-nested-quote%) ]]> + <![%l10n-da[ (("da") %gentext-da-start-nested-quote%) ]]> + <![%l10n-de[ (("de") %gentext-de-start-nested-quote%) ]]> + <![%l10n-el[ (("el") %gentext-el-start-nested-quote%) ]]> + <![%l10n-en[ (("en") %gentext-en-start-nested-quote%) ]]> + <![%l10n-es[ (("es") %gentext-es-start-nested-quote%) ]]> + <![%l10n-et[ (("et") %gentext-et-start-nested-quote%) ]]> + <![%l10n-eu[ (("eu") %gentext-eu-start-nested-quote%) ]]> + <![%l10n-fi[ (("fi") %gentext-fi-start-nested-quote%) ]]> + <![%l10n-fr[ (("fr") %gentext-fr-start-nested-quote%) ]]> + <![%l10n-hu[ (("hu") %gentext-hu-start-nested-quote%) ]]> + <![%l10n-id[ (("id") %gentext-id-start-nested-quote%) ]]> + <![%l10n-it[ (("it") %gentext-it-start-nested-quote%) ]]> + <![%l10n-ja[ (("ja") %gentext-ja-start-nested-quote%) ]]> + <![%l10n-ko[ (("ko") %gentext-ko-start-nested-quote%) ]]> + <![%l10n-nl[ (("nl") %gentext-nl-start-nested-quote%) ]]> + <![%l10n-nn[ (("nn") %gentext-nn-start-nested-quote%) ]]> + <![%l10n-no[ (("no") %gentext-no-start-nested-quote%) ]]> + <![%l10n-pl[ (("pl") %gentext-pl-start-nested-quote%) ]]> + <![%l10n-pt[ (("pt") %gentext-pt-start-nested-quote%) ]]> + <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-start-nested-quote%) ]]> + <![%l10n-ro[ (("ro") %gentext-ro-start-nested-quote%) ]]> + <![%l10n-ru[ (("ru") %gentext-ru-start-nested-quote%) ]]> + <![%l10n-sk[ (("sk") %gentext-sk-start-nested-quote%) ]]> + <![%l10n-sl[ (("sl") %gentext-sl-start-nested-quote%) ]]> + <![%l10n-sr[ (("sr") %gentext-sr-start-nested-quote%) ]]> + <![%l10n-sv[ (("sv") %gentext-sv-start-nested-quote%) ]]> + <![%l10n-tr[ (("tr") %gentext-tr-start-nested-quote%) ]]> + <![%l10n-uk[ (("uk") %gentext-uk-start-nested-quote%) ]]> + <![%l10n-xh[ (("xh") %gentext-xh-start-nested-quote%) ]]> + <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-start-nested-quote%) ]]> + <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-start-nested-quote%) ]]> + <![%l10n-no[ (("bmno") %gentext-no-start-nested-quote%) ]]> + <![%l10n-de[ (("dege") %gentext-de-start-nested-quote%) ]]> + <![%l10n-da[ (("dk") %gentext-da-start-nested-quote%) ]]> + <![%l10n-sv[ (("svse") %gentext-sv-start-nested-quote%) ]]> + <![%l10n-en[ (("usen") %gentext-en-start-nested-quote%) ]]> + (else (error "L10N ERROR: gentext-start-nested-quote")))) + +(define (gentext-end-nested-quote) + (case ($lang$) + <![%l10n-af[ (("af") %gentext-af-end-nested-quote%) ]]> + <![%l10n-bg[ (("bg") %gentext-bg-end-nested-quote%) ]]> + <![%l10n-bs[ (("bs") %gentext-bs-end-nested-quote%) ]]> + <![%l10n-ca[ (("ca") %gentext-ca-end-nested-quote%) ]]> + <![%l10n-cs[ (("cs") %gentext-cs-end-nested-quote%) ]]> + <![%l10n-da[ (("da") %gentext-da-end-nested-quote%) ]]> + <![%l10n-de[ (("de") %gentext-de-end-nested-quote%) ]]> + <![%l10n-el[ (("el") %gentext-el-end-nested-quote%) ]]> + <![%l10n-en[ (("en") %gentext-en-end-nested-quote%) ]]> + <![%l10n-es[ (("es") %gentext-es-end-nested-quote%) ]]> + <![%l10n-et[ (("et") %gentext-et-end-nested-quote%) ]]> + <![%l10n-eu[ (("eu") %gentext-eu-end-nested-quote%) ]]> + <![%l10n-fi[ (("fi") %gentext-fi-end-nested-quote%) ]]> + <![%l10n-fr[ (("fr") %gentext-fr-end-nested-quote%) ]]> + <![%l10n-hu[ (("hu") %gentext-hu-end-nested-quote%) ]]> + <![%l10n-id[ (("id") %gentext-id-end-nested-quote%) ]]> + <![%l10n-it[ (("it") %gentext-it-end-nested-quote%) ]]> + <![%l10n-ja[ (("ja") %gentext-ja-end-nested-quote%) ]]> + <![%l10n-ko[ (("ko") %gentext-ko-end-nested-quote%) ]]> + <![%l10n-nl[ (("nl") %gentext-nl-end-nested-quote%) ]]> + <![%l10n-nn[ (("nn") %gentext-nn-end-nested-quote%) ]]> + <![%l10n-no[ (("no") %gentext-no-end-nested-quote%) ]]> + <![%l10n-pl[ (("pl") %gentext-pl-end-nested-quote%) ]]> + <![%l10n-pt[ (("pt") %gentext-pt-end-nested-quote%) ]]> + <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-end-nested-quote%) ]]> + <![%l10n-ro[ (("ro") %gentext-ro-end-nested-quote%) ]]> + <![%l10n-ru[ (("ru") %gentext-ru-end-nested-quote%) ]]> + <![%l10n-sk[ (("sk") %gentext-sk-end-nested-quote%) ]]> + <![%l10n-sl[ (("sl") %gentext-sl-end-nested-quote%) ]]> + <![%l10n-sr[ (("sr") %gentext-sr-end-nested-quote%) ]]> + <![%l10n-sv[ (("sv") %gentext-sv-end-nested-quote%) ]]> + <![%l10n-tr[ (("tr") %gentext-tr-end-nested-quote%) ]]> + <![%l10n-uk[ (("uk") %gentext-uk-end-nested-quote%) ]]> + <![%l10n-xh[ (("xh") %gentext-xh-end-nested-quote%) ]]> + <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-end-nested-quote%) ]]> + <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-end-nested-quote%) ]]> + <![%l10n-no[ (("bmno") %gentext-no-end-nested-quote%) ]]> + <![%l10n-de[ (("dege") %gentext-de-end-nested-quote%) ]]> + <![%l10n-da[ (("dk") %gentext-da-end-nested-quote%) ]]> + <![%l10n-sv[ (("svse") %gentext-sv-end-nested-quote%) ]]> + <![%l10n-en[ (("usen") %gentext-en-end-nested-quote%) ]]> + (else (error "L10N ERROR: gentext-end-nested-quote")))) + +(define (gentext-by) + (case ($lang$) + <![%l10n-af[ (("af") %gentext-af-by%) ]]> + <![%l10n-bg[ (("bg") %gentext-bg-by%) ]]> + <![%l10n-bs[ (("bs") %gentext-bs-by%) ]]> + <![%l10n-ca[ (("ca") %gentext-ca-by%) ]]> + <![%l10n-cs[ (("cs") %gentext-cs-by%) ]]> + <![%l10n-da[ (("da") %gentext-da-by%) ]]> + <![%l10n-de[ (("de") %gentext-de-by%) ]]> + <![%l10n-el[ (("el") %gentext-el-by%) ]]> + <![%l10n-en[ (("en") %gentext-en-by%) ]]> + <![%l10n-es[ (("es") %gentext-es-by%) ]]> + <![%l10n-et[ (("et") %gentext-et-by%) ]]> + <![%l10n-eu[ (("eu") %gentext-eu-by%) ]]> + <![%l10n-fi[ (("fi") %gentext-fi-by%) ]]> + <![%l10n-fr[ (("fr") %gentext-fr-by%) ]]> + <![%l10n-hu[ (("hu") %gentext-hu-by%) ]]> + <![%l10n-id[ (("id") %gentext-id-by%) ]]> + <![%l10n-it[ (("it") %gentext-it-by%) ]]> + <![%l10n-ja[ (("ja") %gentext-ja-by%) ]]> + <![%l10n-ko[ (("ko") %gentext-ko-by%) ]]> + <![%l10n-nl[ (("nl") %gentext-nl-by%) ]]> + <![%l10n-nn[ (("nn") %gentext-nn-by%) ]]> + <![%l10n-no[ (("no") %gentext-no-by%) ]]> + <![%l10n-pl[ (("pl") %gentext-pl-by%) ]]> + <![%l10n-pt[ (("pt") %gentext-pt-by%) ]]> + <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-by%) ]]> + <![%l10n-ro[ (("ro") %gentext-ro-by%) ]]> + <![%l10n-ru[ (("ru") %gentext-ru-by%) ]]> + <![%l10n-sk[ (("sk") %gentext-sk-by%) ]]> + <![%l10n-sl[ (("sl") %gentext-sl-by%) ]]> + <![%l10n-sr[ (("sr") %gentext-sr-by%) ]]> + <![%l10n-sv[ (("sv") %gentext-sv-by%) ]]> + <![%l10n-tr[ (("tr") %gentext-tr-by%) ]]> + <![%l10n-uk[ (("uk") %gentext-uk-by%) ]]> + <![%l10n-xh[ (("xh") %gentext-xh-by%) ]]> + <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-by%) ]]> + <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-by%) ]]> + <![%l10n-no[ (("bmno") %gentext-no-by%) ]]> + <![%l10n-de[ (("dege") %gentext-de-by%) ]]> + <![%l10n-da[ (("dk") %gentext-da-by%) ]]> + <![%l10n-sv[ (("svse") %gentext-sv-by%) ]]> + <![%l10n-en[ (("usen") %gentext-en-by%) ]]> + (else (error "L10N ERROR: gentext-by")))) + +(define (gentext-edited-by) + (case ($lang$) + <![%l10n-af[ (("af") %gentext-af-edited-by%) ]]> + <![%l10n-bg[ (("bg") %gentext-bg-edited-by%) ]]> + <![%l10n-bs[ (("bs") %gentext-bs-edited-by%) ]]> + <![%l10n-ca[ (("ca") %gentext-ca-edited-by%) ]]> + <![%l10n-cs[ (("cs") %gentext-cs-edited-by%) ]]> + <![%l10n-da[ (("da") %gentext-da-edited-by%) ]]> + <![%l10n-de[ (("de") %gentext-de-edited-by%) ]]> + <![%l10n-el[ (("el") %gentext-el-edited-by%) ]]> + <![%l10n-en[ (("en") %gentext-en-edited-by%) ]]> + <![%l10n-es[ (("es") %gentext-es-edited-by%) ]]> + <![%l10n-et[ (("et") %gentext-et-edited-by%) ]]> + <![%l10n-eu[ (("eu") %gentext-eu-edited-by%) ]]> + <![%l10n-fi[ (("fi") %gentext-fi-edited-by%) ]]> + <![%l10n-fr[ (("fr") %gentext-fr-edited-by%) ]]> + <![%l10n-hu[ (("hu") %gentext-hu-edited-by%) ]]> + <![%l10n-id[ (("id") %gentext-id-edited-by%) ]]> + <![%l10n-it[ (("it") %gentext-it-edited-by%) ]]> + <![%l10n-ja[ (("ja") %gentext-ja-edited-by%) ]]> + <![%l10n-ko[ (("ko") %gentext-ko-edited-by%) ]]> + <![%l10n-nl[ (("nl") %gentext-nl-edited-by%) ]]> + <![%l10n-nn[ (("nn") %gentext-nn-edited-by%) ]]> + <![%l10n-no[ (("no") %gentext-no-edited-by%) ]]> + <![%l10n-pl[ (("pl") %gentext-pl-edited-by%) ]]> + <![%l10n-pt[ (("pt") %gentext-pt-edited-by%) ]]> + <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-edited-by%) ]]> + <![%l10n-ro[ (("ro") %gentext-ro-edited-by%) ]]> + <![%l10n-ru[ (("ru") %gentext-ru-edited-by%) ]]> + <![%l10n-sk[ (("sk") %gentext-sk-edited-by%) ]]> + <![%l10n-sl[ (("sl") %gentext-sl-edited-by%) ]]> + <![%l10n-sr[ (("sr") %gentext-sr-edited-by%) ]]> + <![%l10n-sv[ (("sv") %gentext-sv-edited-by%) ]]> + <![%l10n-tr[ (("tr") %gentext-tr-edited-by%) ]]> + <![%l10n-uk[ (("uk") %gentext-uk-edited-by%) ]]> + <![%l10n-xh[ (("xh") %gentext-xh-edited-by%) ]]> + <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-edited-by%) ]]> + <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-edited-by%) ]]> + <![%l10n-no[ (("bmno") %gentext-no-edited-by%) ]]> + <![%l10n-de[ (("dege") %gentext-de-edited-by%) ]]> + <![%l10n-da[ (("dk") %gentext-da-edited-by%) ]]> + <![%l10n-sv[ (("svse") %gentext-sv-edited-by%) ]]> + <![%l10n-en[ (("usen") %gentext-en-edited-by%) ]]> + (else (error "L10N ERROR: gentext-edited-by")))) + +(define (gentext-revised-by) + (case ($lang$) + <![%l10n-af[ (("af") %gentext-af-revised-by%) ]]> + <![%l10n-bg[ (("bg") %gentext-bg-revised-by%) ]]> + <![%l10n-bs[ (("bs") %gentext-bs-revised-by%) ]]> + <![%l10n-ca[ (("ca") %gentext-ca-revised-by%) ]]> + <![%l10n-cs[ (("cs") %gentext-cs-revised-by%) ]]> + <![%l10n-da[ (("da") %gentext-da-revised-by%) ]]> + <![%l10n-de[ (("de") %gentext-de-revised-by%) ]]> + <![%l10n-el[ (("el") %gentext-el-revised-by%) ]]> + <![%l10n-en[ (("en") %gentext-en-revised-by%) ]]> + <![%l10n-es[ (("es") %gentext-es-revised-by%) ]]> + <![%l10n-et[ (("et") %gentext-et-revised-by%) ]]> + <![%l10n-eu[ (("eu") %gentext-eu-revised-by%) ]]> + <![%l10n-fi[ (("fi") %gentext-fi-revised-by%) ]]> + <![%l10n-fr[ (("fr") %gentext-fr-revised-by%) ]]> + <![%l10n-hu[ (("hu") %gentext-hu-revised-by%) ]]> + <![%l10n-id[ (("id") %gentext-id-revised-by%) ]]> + <![%l10n-it[ (("it") %gentext-it-revised-by%) ]]> + <![%l10n-ja[ (("ja") %gentext-ja-revised-by%) ]]> + <![%l10n-ko[ (("ko") %gentext-ko-revised-by%) ]]> + <![%l10n-nl[ (("nl") %gentext-nl-revised-by%) ]]> + <![%l10n-nn[ (("nn") %gentext-nn-revised-by%) ]]> + <![%l10n-no[ (("no") %gentext-no-revised-by%) ]]> + <![%l10n-pl[ (("pl") %gentext-pl-revised-by%) ]]> + <![%l10n-pt[ (("pt") %gentext-pt-revised-by%) ]]> + <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-revised-by%) ]]> + <![%l10n-ro[ (("ro") %gentext-ro-revised-by%) ]]> + <![%l10n-ru[ (("ru") %gentext-ru-revised-by%) ]]> + <![%l10n-sk[ (("sk") %gentext-sk-revised-by%) ]]> + <![%l10n-sl[ (("sl") %gentext-sl-revised-by%) ]]> + <![%l10n-sr[ (("sr") %gentext-sr-revised-by%) ]]> + <![%l10n-sv[ (("sv") %gentext-sv-revised-by%) ]]> + <![%l10n-tr[ (("tr") %gentext-tr-revised-by%) ]]> + <![%l10n-uk[ (("uk") %gentext-uk-revised-by%) ]]> + <![%l10n-xh[ (("xh") %gentext-xh-revised-by%) ]]> + <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-revised-by%) ]]> + <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-revised-by%) ]]> + <![%l10n-no[ (("bmno") %gentext-no-revised-by%) ]]> + <![%l10n-de[ (("dege") %gentext-de-revised-by%) ]]> + <![%l10n-da[ (("dk") %gentext-da-revised-by%) ]]> + <![%l10n-sv[ (("svse") %gentext-sv-revised-by%) ]]> + <![%l10n-en[ (("usen") %gentext-en-revised-by%) ]]> + (else (error "L10N ERROR: gentext-revised-by")))) + +(define (gentext-page) + (case ($lang$) + <![%l10n-af[ (("af") %gentext-af-page%) ]]> + <![%l10n-bg[ (("bg") %gentext-bg-page%) ]]> + <![%l10n-bs[ (("bs") %gentext-bs-page%) ]]> + <![%l10n-ca[ (("ca") %gentext-ca-page%) ]]> + <![%l10n-cs[ (("cs") %gentext-cs-page%) ]]> + <![%l10n-da[ (("da") %gentext-da-page%) ]]> + <![%l10n-de[ (("de") %gentext-de-page%) ]]> + <![%l10n-el[ (("el") %gentext-el-page%) ]]> + <![%l10n-en[ (("en") %gentext-en-page%) ]]> + <![%l10n-es[ (("es") %gentext-es-page%) ]]> + <![%l10n-et[ (("et") %gentext-et-page%) ]]> + <![%l10n-eu[ (("eu") %gentext-eu-page%) ]]> + <![%l10n-fi[ (("fi") %gentext-fi-page%) ]]> + <![%l10n-fr[ (("fr") %gentext-fr-page%) ]]> + <![%l10n-hu[ (("hu") %gentext-hu-page%) ]]> + <![%l10n-id[ (("id") %gentext-id-page%) ]]> + <![%l10n-it[ (("it") %gentext-it-page%) ]]> + <![%l10n-ja[ (("ja") %gentext-ja-page%) ]]> + <![%l10n-ko[ (("ko") %gentext-ko-page%) ]]> + <![%l10n-nl[ (("nl") %gentext-nl-page%) ]]> + <![%l10n-nn[ (("nn") %gentext-nn-page%) ]]> + <![%l10n-no[ (("no") %gentext-no-page%) ]]> + <![%l10n-pl[ (("pl") %gentext-pl-page%) ]]> + <![%l10n-pt[ (("pt") %gentext-pt-page%) ]]> + <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-page%) ]]> + <![%l10n-ro[ (("ro") %gentext-ro-page%) ]]> + <![%l10n-ru[ (("ru") %gentext-ru-page%) ]]> + <![%l10n-sk[ (("sk") %gentext-sk-page%) ]]> + <![%l10n-sl[ (("sl") %gentext-sl-page%) ]]> + <![%l10n-sr[ (("sr") %gentext-sr-page%) ]]> + <![%l10n-sv[ (("sv") %gentext-sv-page%) ]]> + <![%l10n-tr[ (("tr") %gentext-tr-page%) ]]> + <![%l10n-uk[ (("uk") %gentext-uk-page%) ]]> + <![%l10n-xh[ (("xh") %gentext-xh-page%) ]]> + <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-page%) ]]> + <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-page%) ]]> + <![%l10n-no[ (("bmno") %gentext-no-page%) ]]> + <![%l10n-de[ (("dege") %gentext-de-page%) ]]> + <![%l10n-da[ (("dk") %gentext-da-page%) ]]> + <![%l10n-sv[ (("svse") %gentext-sv-page%) ]]> + <![%l10n-en[ (("usen") %gentext-en-page%) ]]> + (else (error "L10N ERROR: gentext-page")))) + +(define (gentext-and) + (case ($lang$) + <![%l10n-af[ (("af") %gentext-af-and%) ]]> + <![%l10n-bg[ (("bg") %gentext-bg-and%) ]]> + <![%l10n-bs[ (("bs") %gentext-bs-and%) ]]> + <![%l10n-ca[ (("ca") %gentext-ca-and%) ]]> + <![%l10n-cs[ (("cs") %gentext-cs-and%) ]]> + <![%l10n-da[ (("da") %gentext-da-and%) ]]> + <![%l10n-de[ (("de") %gentext-de-and%) ]]> + <![%l10n-el[ (("el") %gentext-el-and%) ]]> + <![%l10n-en[ (("en") %gentext-en-and%) ]]> + <![%l10n-es[ (("es") %gentext-es-and%) ]]> + <![%l10n-et[ (("et") %gentext-et-and%) ]]> + <![%l10n-eu[ (("eu") %gentext-eu-and%) ]]> + <![%l10n-fi[ (("fi") %gentext-fi-and%) ]]> + <![%l10n-fr[ (("fr") %gentext-fr-and%) ]]> + <![%l10n-hu[ (("hu") %gentext-hu-and%) ]]> + <![%l10n-id[ (("id") %gentext-id-and%) ]]> + <![%l10n-it[ (("it") %gentext-it-and%) ]]> + <![%l10n-ja[ (("ja") %gentext-ja-and%) ]]> + <![%l10n-ko[ (("ko") %gentext-ko-and%) ]]> + <![%l10n-nl[ (("nl") %gentext-nl-and%) ]]> + <![%l10n-nn[ (("nn") %gentext-nn-and%) ]]> + <![%l10n-no[ (("no") %gentext-no-and%) ]]> + <![%l10n-pl[ (("pl") %gentext-pl-and%) ]]> + <![%l10n-pt[ (("pt") %gentext-pt-and%) ]]> + <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-and%) ]]> + <![%l10n-ro[ (("ro") %gentext-ro-and%) ]]> + <![%l10n-ru[ (("ru") %gentext-ru-and%) ]]> + <![%l10n-sk[ (("sk") %gentext-sk-and%) ]]> + <![%l10n-sl[ (("sl") %gentext-sl-and%) ]]> + <![%l10n-sr[ (("sr") %gentext-sr-and%) ]]> + <![%l10n-sv[ (("sv") %gentext-sv-and%) ]]> + <![%l10n-tr[ (("tr") %gentext-tr-and%) ]]> + <![%l10n-uk[ (("uk") %gentext-uk-and%) ]]> + <![%l10n-xh[ (("xh") %gentext-xh-and%) ]]> + <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-and%) ]]> + <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-and%) ]]> + <![%l10n-no[ (("bmno") %gentext-no-and%) ]]> + <![%l10n-de[ (("dege") %gentext-de-and%) ]]> + <![%l10n-da[ (("dk") %gentext-da-and%) ]]> + <![%l10n-sv[ (("svse") %gentext-sv-and%) ]]> + <![%l10n-en[ (("usen") %gentext-en-and%) ]]> + (else (error "L10N ERROR: gentext-and")))) + +(define (gentext-listcomma) + (case ($lang$) + <![%l10n-af[ (("af") %gentext-af-listcomma%) ]]> + <![%l10n-bg[ (("bg") %gentext-bg-listcomma%) ]]> + <![%l10n-bs[ (("bs") %gentext-bs-listcomma%) ]]> + <![%l10n-ca[ (("ca") %gentext-ca-listcomma%) ]]> + <![%l10n-cs[ (("cs") %gentext-cs-listcomma%) ]]> + <![%l10n-da[ (("da") %gentext-da-listcomma%) ]]> + <![%l10n-de[ (("de") %gentext-de-listcomma%) ]]> + <![%l10n-el[ (("el") %gentext-el-listcomma%) ]]> + <![%l10n-en[ (("en") %gentext-en-listcomma%) ]]> + <![%l10n-es[ (("es") %gentext-es-listcomma%) ]]> + <![%l10n-et[ (("et") %gentext-et-listcomma%) ]]> + <![%l10n-eu[ (("eu") %gentext-eu-listcomma%) ]]> + <![%l10n-fi[ (("fi") %gentext-fi-listcomma%) ]]> + <![%l10n-fr[ (("fr") %gentext-fr-listcomma%) ]]> + <![%l10n-hu[ (("hu") %gentext-hu-listcomma%) ]]> + <![%l10n-id[ (("id") %gentext-id-listcomma%) ]]> + <![%l10n-it[ (("it") %gentext-it-listcomma%) ]]> + <![%l10n-ja[ (("ja") %gentext-ja-listcomma%) ]]> + <![%l10n-ko[ (("ko") %gentext-ko-listcomma%) ]]> + <![%l10n-nl[ (("nl") %gentext-nl-listcomma%) ]]> + <![%l10n-nn[ (("nn") %gentext-nn-listcomma%) ]]> + <![%l10n-no[ (("no") %gentext-no-listcomma%) ]]> + <![%l10n-pl[ (("pl") %gentext-pl-listcomma%) ]]> + <![%l10n-pt[ (("pt") %gentext-pt-listcomma%) ]]> + <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-listcomma%) ]]> + <![%l10n-ro[ (("ro") %gentext-ro-listcomma%) ]]> + <![%l10n-ru[ (("ru") %gentext-ru-listcomma%) ]]> + <![%l10n-sk[ (("sk") %gentext-sk-listcomma%) ]]> + <![%l10n-sl[ (("sl") %gentext-sl-listcomma%) ]]> + <![%l10n-sr[ (("sr") %gentext-sr-listcomma%) ]]> + <![%l10n-sv[ (("sv") %gentext-sv-listcomma%) ]]> + <![%l10n-tr[ (("tr") %gentext-tr-listcomma%) ]]> + <![%l10n-uk[ (("uk") %gentext-uk-listcomma%) ]]> + <![%l10n-xh[ (("xh") %gentext-xh-listcomma%) ]]> + <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-listcomma%) ]]> + <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-listcomma%) ]]> + <![%l10n-no[ (("bmno") %gentext-no-listcomma%) ]]> + <![%l10n-de[ (("dege") %gentext-de-listcomma%) ]]> + <![%l10n-da[ (("dk") %gentext-da-listcomma%) ]]> + <![%l10n-sv[ (("svse") %gentext-sv-listcomma%) ]]> + <![%l10n-en[ (("usen") %gentext-en-listcomma%) ]]> + (else (error "L10N ERROR: gentext-listcomma")))) + +(define (gentext-lastlistcomma) + (case ($lang$) + <![%l10n-af[ (("af") %gentext-af-lastlistcomma%) ]]> + <![%l10n-bg[ (("bg") %gentext-bg-lastlistcomma%) ]]> + <![%l10n-bs[ (("bs") %gentext-bs-lastlistcomma%) ]]> + <![%l10n-ca[ (("ca") %gentext-ca-lastlistcomma%) ]]> + <![%l10n-cs[ (("cs") %gentext-cs-lastlistcomma%) ]]> + <![%l10n-da[ (("da") %gentext-da-lastlistcomma%) ]]> + <![%l10n-de[ (("de") %gentext-de-lastlistcomma%) ]]> + <![%l10n-el[ (("el") %gentext-el-lastlistcomma%) ]]> + <![%l10n-en[ (("en") %gentext-en-lastlistcomma%) ]]> + <![%l10n-es[ (("es") %gentext-es-lastlistcomma%) ]]> + <![%l10n-et[ (("et") %gentext-et-lastlistcomma%) ]]> + <![%l10n-eu[ (("eu") %gentext-eu-lastlistcomma%) ]]> + <![%l10n-fi[ (("fi") %gentext-fi-lastlistcomma%) ]]> + <![%l10n-fr[ (("fr") %gentext-fr-lastlistcomma%) ]]> + <![%l10n-hu[ (("hu") %gentext-hu-lastlistcomma%) ]]> + <![%l10n-id[ (("id") %gentext-id-lastlistcomma%) ]]> + <![%l10n-it[ (("it") %gentext-it-lastlistcomma%) ]]> + <![%l10n-ja[ (("ja") %gentext-ja-lastlistcomma%) ]]> + <![%l10n-ko[ (("ko") %gentext-ko-lastlistcomma%) ]]> + <![%l10n-nl[ (("nl") %gentext-nl-lastlistcomma%) ]]> + <![%l10n-nn[ (("nn") %gentext-nn-lastlistcomma%) ]]> + <![%l10n-no[ (("no") %gentext-no-lastlistcomma%) ]]> + <![%l10n-pl[ (("pl") %gentext-pl-lastlistcomma%) ]]> + <![%l10n-pt[ (("pt") %gentext-pt-lastlistcomma%) ]]> + <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-lastlistcomma%) ]]> + <![%l10n-ro[ (("ro") %gentext-ro-lastlistcomma%) ]]> + <![%l10n-ru[ (("ru") %gentext-ru-lastlistcomma%) ]]> + <![%l10n-sk[ (("sk") %gentext-sk-lastlistcomma%) ]]> + <![%l10n-sl[ (("sl") %gentext-sl-lastlistcomma%) ]]> + <![%l10n-sr[ (("sr") %gentext-sr-lastlistcomma%) ]]> + <![%l10n-sv[ (("sv") %gentext-sv-lastlistcomma%) ]]> + <![%l10n-tr[ (("tr") %gentext-tr-lastlistcomma%) ]]> + <![%l10n-uk[ (("uk") %gentext-uk-lastlistcomma%) ]]> + <![%l10n-xh[ (("xh") %gentext-xh-lastlistcomma%) ]]> + <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-lastlistcomma%) ]]> + <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-lastlistcomma%) ]]> + <![%l10n-no[ (("bmno") %gentext-no-lastlistcomma%) ]]> + <![%l10n-de[ (("dege") %gentext-de-lastlistcomma%) ]]> + <![%l10n-da[ (("dk") %gentext-da-lastlistcomma%) ]]> + <![%l10n-sv[ (("svse") %gentext-sv-lastlistcomma%) ]]> + <![%l10n-en[ (("usen") %gentext-en-lastlistcomma%) ]]> + (else (error "L10N ERROR: gentext-lastlistcomma")))) + +(define (gentext-bibl-pages) + (case ($lang$) + <![%l10n-af[ (("af") %gentext-af-bibl-pages%) ]]> + <![%l10n-bg[ (("bg") %gentext-bg-bibl-pages%) ]]> + <![%l10n-bs[ (("bs") %gentext-bs-bibl-pages%) ]]> + <![%l10n-ca[ (("ca") %gentext-ca-bibl-pages%) ]]> + <![%l10n-cs[ (("cs") %gentext-cs-bibl-pages%) ]]> + <![%l10n-da[ (("da") %gentext-da-bibl-pages%) ]]> + <![%l10n-de[ (("de") %gentext-de-bibl-pages%) ]]> + <![%l10n-el[ (("el") %gentext-el-bibl-pages%) ]]> + <![%l10n-en[ (("en") %gentext-en-bibl-pages%) ]]> + <![%l10n-es[ (("es") %gentext-es-bibl-pages%) ]]> + <![%l10n-et[ (("et") %gentext-et-bibl-pages%) ]]> + <![%l10n-eu[ (("eu") %gentext-eu-bibl-pages%) ]]> + <![%l10n-fi[ (("fi") %gentext-fi-bibl-pages%) ]]> + <![%l10n-fr[ (("fr") %gentext-fr-bibl-pages%) ]]> + <![%l10n-hu[ (("hu") %gentext-hu-bibl-pages%) ]]> + <![%l10n-id[ (("id") %gentext-id-bibl-pages%) ]]> + <![%l10n-it[ (("it") %gentext-it-bibl-pages%) ]]> + <![%l10n-ja[ (("ja") %gentext-ja-bibl-pages%) ]]> + <![%l10n-ko[ (("ko") %gentext-ko-bibl-pages%) ]]> + <![%l10n-nl[ (("nl") %gentext-nl-bibl-pages%) ]]> + <![%l10n-nn[ (("nn") %gentext-nn-bibl-pages%) ]]> + <![%l10n-no[ (("no") %gentext-no-bibl-pages%) ]]> + <![%l10n-pl[ (("pl") %gentext-pl-bibl-pages%) ]]> + <![%l10n-pt[ (("pt") %gentext-pt-bibl-pages%) ]]> + <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-bibl-pages%) ]]> + <![%l10n-ro[ (("ro") %gentext-ro-bibl-pages%) ]]> + <![%l10n-ru[ (("ru") %gentext-ru-bibl-pages%) ]]> + <![%l10n-sk[ (("sk") %gentext-sk-bibl-pages%) ]]> + <![%l10n-sl[ (("sl") %gentext-sl-bibl-pages%) ]]> + <![%l10n-sr[ (("sr") %gentext-sr-bibl-pages%) ]]> + <![%l10n-sv[ (("sv") %gentext-sv-bibl-pages%) ]]> + <![%l10n-tr[ (("tr") %gentext-tr-bibl-pages%) ]]> + <![%l10n-uk[ (("uk") %gentext-uk-bibl-pages%) ]]> + <![%l10n-xh[ (("xh") %gentext-xh-bibl-pages%) ]]> + <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-bibl-pages%) ]]> + <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-bibl-pages%) ]]> + <![%l10n-no[ (("bmno") %gentext-no-bibl-pages%) ]]> + <![%l10n-de[ (("dege") %gentext-de-bibl-pages%) ]]> + <![%l10n-da[ (("dk") %gentext-da-bibl-pages%) ]]> + <![%l10n-sv[ (("svse") %gentext-sv-bibl-pages%) ]]> + <![%l10n-en[ (("usen") %gentext-en-bibl-pages%) ]]> + (else (error "L10N ERROR: gentext-bibl-pages")))) + +(define (gentext-endnotes) + (case ($lang$) + <![%l10n-af[ (("af") %gentext-af-endnotes%) ]]> + <![%l10n-bg[ (("bg") %gentext-bg-endnotes%) ]]> + <![%l10n-bs[ (("bs") %gentext-bs-endnotes%) ]]> + <![%l10n-ca[ (("ca") %gentext-ca-endnotes%) ]]> + <![%l10n-cs[ (("cs") %gentext-cs-endnotes%) ]]> + <![%l10n-da[ (("da") %gentext-da-endnotes%) ]]> + <![%l10n-de[ (("de") %gentext-de-endnotes%) ]]> + <![%l10n-el[ (("el") %gentext-el-endnotes%) ]]> + <![%l10n-en[ (("en") %gentext-en-endnotes%) ]]> + <![%l10n-es[ (("es") %gentext-es-endnotes%) ]]> + <![%l10n-et[ (("et") %gentext-et-endnotes%) ]]> + <![%l10n-eu[ (("eu") %gentext-eu-endnotes%) ]]> + <![%l10n-fi[ (("fi") %gentext-fi-endnotes%) ]]> + <![%l10n-fr[ (("fr") %gentext-fr-endnotes%) ]]> + <![%l10n-hu[ (("hu") %gentext-hu-endnotes%) ]]> + <![%l10n-id[ (("id") %gentext-id-endnotes%) ]]> + <![%l10n-it[ (("it") %gentext-it-endnotes%) ]]> + <![%l10n-ja[ (("ja") %gentext-ja-endnotes%) ]]> + <![%l10n-ko[ (("ko") %gentext-ko-endnotes%) ]]> + <![%l10n-nl[ (("nl") %gentext-nl-endnotes%) ]]> + <![%l10n-nn[ (("nn") %gentext-nn-endnotes%) ]]> + <![%l10n-no[ (("no") %gentext-no-endnotes%) ]]> + <![%l10n-pl[ (("pl") %gentext-pl-endnotes%) ]]> + <![%l10n-pt[ (("pt") %gentext-pt-endnotes%) ]]> + <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-endnotes%) ]]> + <![%l10n-ro[ (("ro") %gentext-ro-endnotes%) ]]> + <![%l10n-ru[ (("ru") %gentext-ru-endnotes%) ]]> + <![%l10n-sk[ (("sk") %gentext-sk-endnotes%) ]]> + <![%l10n-sl[ (("sl") %gentext-sl-endnotes%) ]]> + <![%l10n-sr[ (("sr") %gentext-sr-endnotes%) ]]> + <![%l10n-sv[ (("sv") %gentext-sv-endnotes%) ]]> + <![%l10n-tr[ (("tr") %gentext-tr-endnotes%) ]]> + <![%l10n-uk[ (("uk") %gentext-uk-endnotes%) ]]> + <![%l10n-xh[ (("xh") %gentext-xh-endnotes%) ]]> + <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-endnotes%) ]]> + <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-endnotes%) ]]> + <![%l10n-no[ (("bmno") %gentext-no-endnotes%) ]]> + <![%l10n-de[ (("dege") %gentext-de-endnotes%) ]]> + <![%l10n-da[ (("dk") %gentext-da-endnotes%) ]]> + <![%l10n-sv[ (("svse") %gentext-sv-endnotes%) ]]> + <![%l10n-en[ (("usen") %gentext-en-endnotes%) ]]> + (else (error "L10N ERROR: gentext-endnotes")))) + +(define (gentext-table-endnotes) + (case ($lang$) + <![%l10n-af[ (("af") %gentext-af-table-endnotes%) ]]> + <![%l10n-bg[ (("bg") %gentext-bg-table-endnotes%) ]]> + <![%l10n-bs[ (("bs") %gentext-bs-table-endnotes%) ]]> + <![%l10n-ca[ (("ca") %gentext-ca-table-endnotes%) ]]> + <![%l10n-cs[ (("cs") %gentext-cs-table-endnotes%) ]]> + <![%l10n-da[ (("da") %gentext-da-table-endnotes%) ]]> + <![%l10n-de[ (("de") %gentext-de-table-endnotes%) ]]> + <![%l10n-el[ (("el") %gentext-el-table-endnotes%) ]]> + <![%l10n-en[ (("en") %gentext-en-table-endnotes%) ]]> + <![%l10n-es[ (("es") %gentext-es-table-endnotes%) ]]> + <![%l10n-et[ (("et") %gentext-et-table-endnotes%) ]]> + <![%l10n-eu[ (("eu") %gentext-eu-table-endnotes%) ]]> + <![%l10n-fi[ (("fi") %gentext-fi-table-endnotes%) ]]> + <![%l10n-fr[ (("fr") %gentext-fr-table-endnotes%) ]]> + <![%l10n-hu[ (("hu") %gentext-hu-table-endnotes%) ]]> + <![%l10n-id[ (("id") %gentext-id-table-endnotes%) ]]> + <![%l10n-it[ (("it") %gentext-it-table-endnotes%) ]]> + <![%l10n-ja[ (("ja") %gentext-ja-table-endnotes%) ]]> + <![%l10n-ko[ (("ko") %gentext-ko-table-endnotes%) ]]> + <![%l10n-nl[ (("nl") %gentext-nl-table-endnotes%) ]]> + <![%l10n-nn[ (("nn") %gentext-nn-table-endnotes%) ]]> + <![%l10n-no[ (("no") %gentext-no-table-endnotes%) ]]> + <![%l10n-pl[ (("pl") %gentext-pl-table-endnotes%) ]]> + <![%l10n-pt[ (("pt") %gentext-pt-table-endnotes%) ]]> + <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-table-endnotes%) ]]> + <![%l10n-ro[ (("ro") %gentext-ro-table-endnotes%) ]]> + <![%l10n-ru[ (("ru") %gentext-ru-table-endnotes%) ]]> + <![%l10n-sk[ (("sk") %gentext-sk-table-endnotes%) ]]> + <![%l10n-sl[ (("sl") %gentext-sl-table-endnotes%) ]]> + <![%l10n-sr[ (("sr") %gentext-sr-table-endnotes%) ]]> + <![%l10n-sv[ (("sv") %gentext-sv-table-endnotes%) ]]> + <![%l10n-tr[ (("tr") %gentext-tr-table-endnotes%) ]]> + <![%l10n-uk[ (("uk") %gentext-uk-table-endnotes%) ]]> + <![%l10n-xh[ (("xh") %gentext-xh-table-endnotes%) ]]> + <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-table-endnotes%) ]]> + <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-table-endnotes%) ]]> + <![%l10n-no[ (("bmno") %gentext-no-table-endnotes%) ]]> + <![%l10n-de[ (("dege") %gentext-de-table-endnotes%) ]]> + <![%l10n-da[ (("dk") %gentext-da-table-endnotes%) ]]> + <![%l10n-sv[ (("svse") %gentext-sv-table-endnotes%) ]]> + <![%l10n-en[ (("usen") %gentext-en-table-endnotes%) ]]> + (else (error "L10N ERROR: gentext-table-endnotes")))) + +(define (gentext-index-see) + (case ($lang$) + <![%l10n-af[ (("af") %gentext-af-index-see%) ]]> + <![%l10n-bg[ (("bg") %gentext-bg-index-see%) ]]> + <![%l10n-bs[ (("bs") %gentext-bs-index-see%) ]]> + <![%l10n-ca[ (("ca") %gentext-ca-index-see%) ]]> + <![%l10n-cs[ (("cs") %gentext-cs-index-see%) ]]> + <![%l10n-da[ (("da") %gentext-da-index-see%) ]]> + <![%l10n-de[ (("de") %gentext-de-index-see%) ]]> + <![%l10n-el[ (("el") %gentext-el-index-see%) ]]> + <![%l10n-en[ (("en") %gentext-en-index-see%) ]]> + <![%l10n-es[ (("es") %gentext-es-index-see%) ]]> + <![%l10n-et[ (("et") %gentext-et-index-see%) ]]> + <![%l10n-eu[ (("eu") %gentext-eu-index-see%) ]]> + <![%l10n-fi[ (("fi") %gentext-fi-index-see%) ]]> + <![%l10n-fr[ (("fr") %gentext-fr-index-see%) ]]> + <![%l10n-hu[ (("hu") %gentext-hu-index-see%) ]]> + <![%l10n-id[ (("id") %gentext-id-index-see%) ]]> + <![%l10n-it[ (("it") %gentext-it-index-see%) ]]> + <![%l10n-ja[ (("ja") %gentext-ja-index-see%) ]]> + <![%l10n-ko[ (("ko") %gentext-ko-index-see%) ]]> + <![%l10n-nl[ (("nl") %gentext-nl-index-see%) ]]> + <![%l10n-nn[ (("nn") %gentext-nn-index-see%) ]]> + <![%l10n-no[ (("no") %gentext-no-index-see%) ]]> + <![%l10n-pl[ (("pl") %gentext-pl-index-see%) ]]> + <![%l10n-pt[ (("pt") %gentext-pt-index-see%) ]]> + <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-index-see%) ]]> + <![%l10n-ro[ (("ro") %gentext-ro-index-see%) ]]> + <![%l10n-ru[ (("ru") %gentext-ru-index-see%) ]]> + <![%l10n-sk[ (("sk") %gentext-sk-index-see%) ]]> + <![%l10n-sl[ (("sl") %gentext-sl-index-see%) ]]> + <![%l10n-sr[ (("sr") %gentext-sr-index-see%) ]]> + <![%l10n-sv[ (("sv") %gentext-sv-index-see%) ]]> + <![%l10n-tr[ (("tr") %gentext-tr-index-see%) ]]> + <![%l10n-uk[ (("uk") %gentext-uk-index-see%) ]]> + <![%l10n-xh[ (("xh") %gentext-xh-index-see%) ]]> + <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-index-see%) ]]> + <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-index-see%) ]]> + <![%l10n-no[ (("bmno") %gentext-no-index-see%) ]]> + <![%l10n-de[ (("dege") %gentext-de-index-see%) ]]> + <![%l10n-da[ (("dk") %gentext-da-index-see%) ]]> + <![%l10n-sv[ (("svse") %gentext-sv-index-see%) ]]> + <![%l10n-en[ (("usen") %gentext-en-index-see%) ]]> + (else (error "L10N ERROR: gentext-index-see")))) + +(define (gentext-index-seealso) + (case ($lang$) + <![%l10n-af[ (("af") %gentext-af-index-seealso%) ]]> + <![%l10n-bg[ (("bg") %gentext-bg-index-seealso%) ]]> + <![%l10n-bs[ (("bs") %gentext-bs-index-seealso%) ]]> + <![%l10n-ca[ (("ca") %gentext-ca-index-seealso%) ]]> + <![%l10n-cs[ (("cs") %gentext-cs-index-seealso%) ]]> + <![%l10n-da[ (("da") %gentext-da-index-seealso%) ]]> + <![%l10n-de[ (("de") %gentext-de-index-seealso%) ]]> + <![%l10n-el[ (("el") %gentext-el-index-seealso%) ]]> + <![%l10n-en[ (("en") %gentext-en-index-seealso%) ]]> + <![%l10n-es[ (("es") %gentext-es-index-seealso%) ]]> + <![%l10n-et[ (("et") %gentext-et-index-seealso%) ]]> + <![%l10n-eu[ (("eu") %gentext-eu-index-seealso%) ]]> + <![%l10n-fi[ (("fi") %gentext-fi-index-seealso%) ]]> + <![%l10n-fr[ (("fr") %gentext-fr-index-seealso%) ]]> + <![%l10n-hu[ (("hu") %gentext-hu-index-seealso%) ]]> + <![%l10n-id[ (("id") %gentext-id-index-seealso%) ]]> + <![%l10n-it[ (("it") %gentext-it-index-seealso%) ]]> + <![%l10n-ja[ (("ja") %gentext-ja-index-seealso%) ]]> + <![%l10n-ko[ (("ko") %gentext-ko-index-seealso%) ]]> + <![%l10n-nl[ (("nl") %gentext-nl-index-seealso%) ]]> + <![%l10n-nn[ (("nn") %gentext-nn-index-seealso%) ]]> + <![%l10n-no[ (("no") %gentext-no-index-seealso%) ]]> + <![%l10n-pl[ (("pl") %gentext-pl-index-seealso%) ]]> + <![%l10n-pt[ (("pt") %gentext-pt-index-seealso%) ]]> + <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-index-seealso%) ]]> + <![%l10n-ro[ (("ro") %gentext-ro-index-seealso%) ]]> + <![%l10n-ru[ (("ru") %gentext-ru-index-seealso%) ]]> + <![%l10n-sk[ (("sk") %gentext-sk-index-seealso%) ]]> + <![%l10n-sl[ (("sl") %gentext-sl-index-seealso%) ]]> + <![%l10n-sr[ (("sr") %gentext-sr-index-seealso%) ]]> + <![%l10n-sv[ (("sv") %gentext-sv-index-seealso%) ]]> + <![%l10n-tr[ (("tr") %gentext-tr-index-seealso%) ]]> + <![%l10n-uk[ (("uk") %gentext-uk-index-seealso%) ]]> + <![%l10n-xh[ (("xh") %gentext-xh-index-seealso%) ]]> + <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-index-seealso%) ]]> + <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-index-seealso%) ]]> + <![%l10n-no[ (("bmno") %gentext-no-index-seealso%) ]]> + <![%l10n-de[ (("dege") %gentext-de-index-seealso%) ]]> + <![%l10n-da[ (("dk") %gentext-da-index-seealso%) ]]> + <![%l10n-sv[ (("svse") %gentext-sv-index-seealso%) ]]> + <![%l10n-en[ (("usen") %gentext-en-index-seealso%) ]]> + (else (error "L10N ERROR: gentext-index-seealso")))) + +(define (gentext-nav-prev prev) + (case ($lang$) + <![%l10n-af[ (("af") (gentext-af-nav-prev prev)) ]]> + <![%l10n-bg[ (("bg") (gentext-bg-nav-prev prev)) ]]> + <![%l10n-bs[ (("bs") (gentext-bs-nav-prev prev)) ]]> + <![%l10n-ca[ (("ca") (gentext-ca-nav-prev prev)) ]]> + <![%l10n-cs[ (("cs") (gentext-cs-nav-prev prev)) ]]> + <![%l10n-da[ (("da") (gentext-da-nav-prev prev)) ]]> + <![%l10n-de[ (("de") (gentext-de-nav-prev prev)) ]]> + <![%l10n-el[ (("el") (gentext-el-nav-prev prev)) ]]> + <![%l10n-en[ (("en") (gentext-en-nav-prev prev)) ]]> + <![%l10n-es[ (("es") (gentext-es-nav-prev prev)) ]]> + <![%l10n-et[ (("et") (gentext-et-nav-prev prev)) ]]> + <![%l10n-eu[ (("eu") (gentext-eu-nav-prev prev)) ]]> + <![%l10n-fi[ (("fi") (gentext-fi-nav-prev prev)) ]]> + <![%l10n-fr[ (("fr") (gentext-fr-nav-prev prev)) ]]> + <![%l10n-hu[ (("hu") (gentext-hu-nav-prev prev)) ]]> + <![%l10n-id[ (("id") (gentext-id-nav-prev prev)) ]]> + <![%l10n-it[ (("it") (gentext-it-nav-prev prev)) ]]> + <![%l10n-ja[ (("ja") (gentext-ja-nav-prev prev)) ]]> + <![%l10n-ko[ (("ko") (gentext-ko-nav-prev prev)) ]]> + <![%l10n-nl[ (("nl") (gentext-nl-nav-prev prev)) ]]> + <![%l10n-nn[ (("nn") (gentext-nn-nav-prev prev)) ]]> + <![%l10n-no[ (("no") (gentext-no-nav-prev prev)) ]]> + <![%l10n-pl[ (("pl") (gentext-pl-nav-prev prev)) ]]> + <![%l10n-pt[ (("pt") (gentext-pt-nav-prev prev)) ]]> + <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-nav-prev prev)) ]]> + <![%l10n-ro[ (("ro") (gentext-ro-nav-prev prev)) ]]> + <![%l10n-ru[ (("ru") (gentext-ru-nav-prev prev)) ]]> + <![%l10n-sk[ (("sk") (gentext-sk-nav-prev prev)) ]]> + <![%l10n-sl[ (("sl") (gentext-sl-nav-prev prev)) ]]> + <![%l10n-sr[ (("sr") (gentext-sr-nav-prev prev)) ]]> + <![%l10n-sv[ (("sv") (gentext-sv-nav-prev prev)) ]]> + <![%l10n-tr[ (("tr") (gentext-tr-nav-prev prev)) ]]> + <![%l10n-uk[ (("uk") (gentext-uk-nav-prev prev)) ]]> + <![%l10n-xh[ (("xh") (gentext-xh-nav-prev prev)) ]]> + <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-nav-prev prev)) ]]> + <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-nav-prev prev)) ]]> + <![%l10n-no[ (("bmno") (gentext-no-nav-prev prev)) ]]> + <![%l10n-de[ (("dege") (gentext-de-nav-prev prev)) ]]> + <![%l10n-da[ (("dk") (gentext-da-nav-prev prev)) ]]> + <![%l10n-sv[ (("svse") (gentext-sv-nav-prev prev)) ]]> + <![%l10n-en[ (("usen") (gentext-en-nav-prev prev)) ]]> + (else (error "L10N ERROR: gentext-nav-prev")))) + +(define (gentext-nav-prev-sibling prevsib) + (case ($lang$) + <![%l10n-af[ (("af") (gentext-af-nav-prev-sibling prevsib)) ]]> + <![%l10n-bg[ (("bg") (gentext-bg-nav-prev-sibling prevsib)) ]]> + <![%l10n-bs[ (("bs") (gentext-bs-nav-prev-sibling prevsib)) ]]> + <![%l10n-ca[ (("ca") (gentext-ca-nav-prev-sibling prevsib)) ]]> + <![%l10n-cs[ (("cs") (gentext-cs-nav-prev-sibling prevsib)) ]]> + <![%l10n-da[ (("da") (gentext-da-nav-prev-sibling prevsib)) ]]> + <![%l10n-de[ (("de") (gentext-de-nav-prev-sibling prevsib)) ]]> + <![%l10n-el[ (("el") (gentext-el-nav-prev-sibling prevsib)) ]]> + <![%l10n-en[ (("en") (gentext-en-nav-prev-sibling prevsib)) ]]> + <![%l10n-es[ (("es") (gentext-es-nav-prev-sibling prevsib)) ]]> + <![%l10n-et[ (("et") (gentext-et-nav-prev-sibling prevsib)) ]]> + <![%l10n-eu[ (("eu") (gentext-eu-nav-prev-sibling prevsib)) ]]> + <![%l10n-fi[ (("fi") (gentext-fi-nav-prev-sibling prevsib)) ]]> + <![%l10n-fr[ (("fr") (gentext-fr-nav-prev-sibling prevsib)) ]]> + <![%l10n-hu[ (("hu") (gentext-hu-nav-prev-sibling prevsib)) ]]> + <![%l10n-id[ (("id") (gentext-id-nav-prev-sibling prevsib)) ]]> + <![%l10n-it[ (("it") (gentext-it-nav-prev-sibling prevsib)) ]]> + <![%l10n-ja[ (("ja") (gentext-ja-nav-prev-sibling prevsib)) ]]> + <![%l10n-ko[ (("ko") (gentext-ko-nav-prev-sibling prevsib)) ]]> + <![%l10n-nl[ (("nl") (gentext-nl-nav-prev-sibling prevsib)) ]]> + <![%l10n-nn[ (("nn") (gentext-nn-nav-prev-sibling prevsib)) ]]> + <![%l10n-no[ (("no") (gentext-no-nav-prev-sibling prevsib)) ]]> + <![%l10n-pl[ (("pl") (gentext-pl-nav-prev-sibling prevsib)) ]]> + <![%l10n-pt[ (("pt") (gentext-pt-nav-prev-sibling prevsib)) ]]> + <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-nav-prev-sibling prevsib)) ]]> + <![%l10n-ro[ (("ro") (gentext-ro-nav-prev-sibling prevsib)) ]]> + <![%l10n-ru[ (("ru") (gentext-ru-nav-prev-sibling prevsib)) ]]> + <![%l10n-sk[ (("sk") (gentext-sk-nav-prev-sibling prevsib)) ]]> + <![%l10n-sl[ (("sl") (gentext-sl-nav-prev-sibling prevsib)) ]]> + <![%l10n-sr[ (("sr") (gentext-sr-nav-prev-sibling prevsib)) ]]> + <![%l10n-sv[ (("sv") (gentext-sv-nav-prev-sibling prevsib)) ]]> + <![%l10n-tr[ (("tr") (gentext-tr-nav-prev-sibling prevsib)) ]]> + <![%l10n-uk[ (("uk") (gentext-uk-nav-prev-sibling prevsib)) ]]> + <![%l10n-xh[ (("xh") (gentext-xh-nav-prev-sibling prevsib)) ]]> + <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-nav-prev-sibling prevsib)) ]]> + <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-nav-prev-sibling prevsib)) ]]> + <![%l10n-no[ (("bmno") (gentext-no-nav-prev-sibling prevsib)) ]]> + <![%l10n-de[ (("dege") (gentext-de-nav-prev-sibling prevsib)) ]]> + <![%l10n-da[ (("dk") (gentext-da-nav-prev-sibling prevsib)) ]]> + <![%l10n-sv[ (("svse") (gentext-sv-nav-prev-sibling prevsib)) ]]> + <![%l10n-en[ (("usen") (gentext-en-nav-prev-sibling prevsib)) ]]> + (else (error "L10N ERROR: gentext-nav-prev-sibling ")))) + +(define (gentext-nav-next-sibling nextsib) + (case ($lang$) + <![%l10n-af[ (("af") (gentext-af-nav-next-sibling nextsib)) ]]> + <![%l10n-bg[ (("bg") (gentext-bg-nav-next-sibling nextsib)) ]]> + <![%l10n-bs[ (("bs") (gentext-bs-nav-next-sibling nextsib)) ]]> + <![%l10n-ca[ (("ca") (gentext-ca-nav-next-sibling nextsib)) ]]> + <![%l10n-cs[ (("cs") (gentext-cs-nav-next-sibling nextsib)) ]]> + <![%l10n-da[ (("da") (gentext-da-nav-next-sibling nextsib)) ]]> + <![%l10n-de[ (("de") (gentext-de-nav-next-sibling nextsib)) ]]> + <![%l10n-el[ (("el") (gentext-el-nav-next-sibling nextsib)) ]]> + <![%l10n-en[ (("en") (gentext-en-nav-next-sibling nextsib)) ]]> + <![%l10n-es[ (("es") (gentext-es-nav-next-sibling nextsib)) ]]> + <![%l10n-et[ (("et") (gentext-et-nav-next-sibling nextsib)) ]]> + <![%l10n-eu[ (("eu") (gentext-eu-nav-next-sibling nextsib)) ]]> + <![%l10n-fi[ (("fi") (gentext-fi-nav-next-sibling nextsib)) ]]> + <![%l10n-fr[ (("fr") (gentext-fr-nav-next-sibling nextsib)) ]]> + <![%l10n-hu[ (("hu") (gentext-hu-nav-next-sibling nextsib)) ]]> + <![%l10n-id[ (("id") (gentext-id-nav-next-sibling nextsib)) ]]> + <![%l10n-it[ (("it") (gentext-it-nav-next-sibling nextsib)) ]]> + <![%l10n-ja[ (("ja") (gentext-ja-nav-next-sibling nextsib)) ]]> + <![%l10n-ko[ (("ko") (gentext-ko-nav-next-sibling nextsib)) ]]> + <![%l10n-nl[ (("nl") (gentext-nl-nav-next-sibling nextsib)) ]]> + <![%l10n-nn[ (("nn") (gentext-nn-nav-next-sibling nextsib)) ]]> + <![%l10n-no[ (("no") (gentext-no-nav-next-sibling nextsib)) ]]> + <![%l10n-pl[ (("pl") (gentext-pl-nav-next-sibling nextsib)) ]]> + <![%l10n-pt[ (("pt") (gentext-pt-nav-next-sibling nextsib)) ]]> + <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-nav-next-sibling nextsib)) ]]> + <![%l10n-ro[ (("ro") (gentext-ro-nav-next-sibling nextsib)) ]]> + <![%l10n-ru[ (("ru") (gentext-ru-nav-next-sibling nextsib)) ]]> + <![%l10n-sk[ (("sk") (gentext-sk-nav-next-sibling nextsib)) ]]> + <![%l10n-sl[ (("sl") (gentext-sl-nav-next-sibling nextsib)) ]]> + <![%l10n-sr[ (("sr") (gentext-sr-nav-next-sibling nextsib)) ]]> + <![%l10n-sv[ (("sv") (gentext-sv-nav-next-sibling nextsib)) ]]> + <![%l10n-tr[ (("tr") (gentext-tr-nav-next-sibling nextsib)) ]]> + <![%l10n-uk[ (("uk") (gentext-uk-nav-next-sibling nextsib)) ]]> + <![%l10n-xh[ (("xh") (gentext-xh-nav-next-sibling nextsib)) ]]> + <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-nav-next-sibling nextsib)) ]]> + <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-nav-next-sibling nextsib)) ]]> + <![%l10n-no[ (("bmno") (gentext-no-nav-next-sibling nextsib)) ]]> + <![%l10n-de[ (("dege") (gentext-de-nav-next-sibling nextsib)) ]]> + <![%l10n-da[ (("dk") (gentext-da-nav-next-sibling nextsib)) ]]> + <![%l10n-sv[ (("svse") (gentext-sv-nav-next-sibling nextsib)) ]]> + <![%l10n-en[ (("usen") (gentext-en-nav-next-sibling nextsib)) ]]> + (else (error "L10N ERROR: gentext-nav-next-sibling")))) + +(define (gentext-nav-next next) + (case ($lang$) + <![%l10n-af[ (("af") (gentext-af-nav-next next)) ]]> + <![%l10n-bg[ (("bg") (gentext-bg-nav-next next)) ]]> + <![%l10n-bs[ (("bs") (gentext-bs-nav-next next)) ]]> + <![%l10n-ca[ (("ca") (gentext-ca-nav-next next)) ]]> + <![%l10n-cs[ (("cs") (gentext-cs-nav-next next)) ]]> + <![%l10n-da[ (("da") (gentext-da-nav-next next)) ]]> + <![%l10n-de[ (("de") (gentext-de-nav-next next)) ]]> + <![%l10n-el[ (("el") (gentext-el-nav-next next)) ]]> + <![%l10n-en[ (("en") (gentext-en-nav-next next)) ]]> + <![%l10n-es[ (("es") (gentext-es-nav-next next)) ]]> + <![%l10n-et[ (("et") (gentext-et-nav-next next)) ]]> + <![%l10n-eu[ (("eu") (gentext-eu-nav-next next)) ]]> + <![%l10n-fi[ (("fi") (gentext-fi-nav-next next)) ]]> + <![%l10n-fr[ (("fr") (gentext-fr-nav-next next)) ]]> + <![%l10n-hu[ (("hu") (gentext-hu-nav-next next)) ]]> + <![%l10n-id[ (("id") (gentext-id-nav-next next)) ]]> + <![%l10n-it[ (("it") (gentext-it-nav-next next)) ]]> + <![%l10n-ja[ (("ja") (gentext-ja-nav-next next)) ]]> + <![%l10n-ko[ (("ko") (gentext-ko-nav-next next)) ]]> + <![%l10n-nl[ (("nl") (gentext-nl-nav-next next)) ]]> + <![%l10n-nn[ (("nn") (gentext-nn-nav-next next)) ]]> + <![%l10n-no[ (("no") (gentext-no-nav-next next)) ]]> + <![%l10n-pl[ (("pl") (gentext-pl-nav-next next)) ]]> + <![%l10n-pt[ (("pt") (gentext-pt-nav-next next)) ]]> + <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-nav-next next)) ]]> + <![%l10n-ro[ (("ro") (gentext-ro-nav-next next)) ]]> + <![%l10n-ru[ (("ru") (gentext-ru-nav-next next)) ]]> + <![%l10n-sk[ (("sk") (gentext-sk-nav-next next)) ]]> + <![%l10n-sl[ (("sl") (gentext-sl-nav-next next)) ]]> + <![%l10n-sr[ (("sr") (gentext-sr-nav-next next)) ]]> + <![%l10n-sv[ (("sv") (gentext-sv-nav-next next)) ]]> + <![%l10n-tr[ (("tr") (gentext-tr-nav-next next)) ]]> + <![%l10n-uk[ (("uk") (gentext-uk-nav-next next)) ]]> + <![%l10n-xh[ (("xh") (gentext-xh-nav-next next)) ]]> + <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-nav-next next)) ]]> + <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-nav-next next)) ]]> + <![%l10n-no[ (("bmno") (gentext-no-nav-next next)) ]]> + <![%l10n-de[ (("dege") (gentext-de-nav-next next)) ]]> + <![%l10n-da[ (("dk") (gentext-da-nav-next next)) ]]> + <![%l10n-sv[ (("svse") (gentext-sv-nav-next next)) ]]> + <![%l10n-en[ (("usen") (gentext-en-nav-next next)) ]]> + (else (error "L10N ERROR: gentext-nav-next")))) + +(define (gentext-nav-up up) + (case ($lang$) + <![%l10n-af[ (("af") (gentext-af-nav-up up)) ]]> + <![%l10n-bg[ (("bg") (gentext-bg-nav-up up)) ]]> + <![%l10n-bs[ (("bs") (gentext-bs-nav-up up)) ]]> + <![%l10n-ca[ (("ca") (gentext-ca-nav-up up)) ]]> + <![%l10n-cs[ (("cs") (gentext-cs-nav-up up)) ]]> + <![%l10n-da[ (("da") (gentext-da-nav-up up)) ]]> + <![%l10n-de[ (("de") (gentext-de-nav-up up)) ]]> + <![%l10n-el[ (("el") (gentext-el-nav-up up)) ]]> + <![%l10n-en[ (("en") (gentext-en-nav-up up)) ]]> + <![%l10n-es[ (("es") (gentext-es-nav-up up)) ]]> + <![%l10n-et[ (("et") (gentext-et-nav-up up)) ]]> + <![%l10n-eu[ (("eu") (gentext-eu-nav-up up)) ]]> + <![%l10n-fi[ (("fi") (gentext-fi-nav-up up)) ]]> + <![%l10n-fr[ (("fr") (gentext-fr-nav-up up)) ]]> + <![%l10n-hu[ (("hu") (gentext-hu-nav-up up)) ]]> + <![%l10n-id[ (("id") (gentext-id-nav-up up)) ]]> + <![%l10n-it[ (("it") (gentext-it-nav-up up)) ]]> + <![%l10n-ja[ (("ja") (gentext-ja-nav-up up)) ]]> + <![%l10n-ko[ (("ko") (gentext-ko-nav-up up)) ]]> + <![%l10n-nl[ (("nl") (gentext-nl-nav-up up)) ]]> + <![%l10n-nn[ (("nn") (gentext-nn-nav-up up)) ]]> + <![%l10n-no[ (("no") (gentext-no-nav-up up)) ]]> + <![%l10n-pl[ (("pl") (gentext-pl-nav-up up)) ]]> + <![%l10n-pt[ (("pt") (gentext-pt-nav-up up)) ]]> + <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-nav-up up)) ]]> + <![%l10n-ro[ (("ro") (gentext-ro-nav-up up)) ]]> + <![%l10n-ru[ (("ru") (gentext-ru-nav-up up)) ]]> + <![%l10n-sk[ (("sk") (gentext-sk-nav-up up)) ]]> + <![%l10n-sl[ (("sl") (gentext-sl-nav-up up)) ]]> + <![%l10n-sr[ (("sr") (gentext-sr-nav-up up)) ]]> + <![%l10n-sv[ (("sv") (gentext-sv-nav-up up)) ]]> + <![%l10n-tr[ (("tr") (gentext-tr-nav-up up)) ]]> + <![%l10n-uk[ (("uk") (gentext-uk-nav-up up)) ]]> + <![%l10n-xh[ (("xh") (gentext-xh-nav-up up)) ]]> + <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-nav-up up)) ]]> + <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-nav-up up)) ]]> + <![%l10n-no[ (("bmno") (gentext-no-nav-up up)) ]]> + <![%l10n-de[ (("dege") (gentext-de-nav-up up)) ]]> + <![%l10n-da[ (("dk") (gentext-da-nav-up up)) ]]> + <![%l10n-sv[ (("svse") (gentext-sv-nav-up up)) ]]> + <![%l10n-en[ (("usen") (gentext-en-nav-up up)) ]]> + (else (error "L10N ERROR: gentext-nav-up")))) + +(define (gentext-nav-home home) + (case ($lang$) + <![%l10n-af[ (("af") (gentext-af-nav-home home)) ]]> + <![%l10n-bg[ (("bg") (gentext-bg-nav-home home)) ]]> + <![%l10n-bs[ (("bs") (gentext-bs-nav-home home)) ]]> + <![%l10n-ca[ (("ca") (gentext-ca-nav-home home)) ]]> + <![%l10n-cs[ (("cs") (gentext-cs-nav-home home)) ]]> + <![%l10n-da[ (("da") (gentext-da-nav-home home)) ]]> + <![%l10n-de[ (("de") (gentext-de-nav-home home)) ]]> + <![%l10n-el[ (("el") (gentext-el-nav-home home)) ]]> + <![%l10n-en[ (("en") (gentext-en-nav-home home)) ]]> + <![%l10n-es[ (("es") (gentext-es-nav-home home)) ]]> + <![%l10n-et[ (("et") (gentext-et-nav-home home)) ]]> + <![%l10n-eu[ (("eu") (gentext-eu-nav-home home)) ]]> + <![%l10n-fi[ (("fi") (gentext-fi-nav-home home)) ]]> + <![%l10n-fr[ (("fr") (gentext-fr-nav-home home)) ]]> + <![%l10n-hu[ (("hu") (gentext-hu-nav-home home)) ]]> + <![%l10n-id[ (("id") (gentext-id-nav-home home)) ]]> + <![%l10n-it[ (("it") (gentext-it-nav-home home)) ]]> + <![%l10n-ja[ (("ja") (gentext-ja-nav-home home)) ]]> + <![%l10n-ko[ (("ko") (gentext-ko-nav-home home)) ]]> + <![%l10n-nl[ (("nl") (gentext-nl-nav-home home)) ]]> + <![%l10n-nn[ (("nn") (gentext-nn-nav-home home)) ]]> + <![%l10n-no[ (("no") (gentext-no-nav-home home)) ]]> + <![%l10n-pl[ (("pl") (gentext-pl-nav-home home)) ]]> + <![%l10n-pt[ (("pt") (gentext-pt-nav-home home)) ]]> + <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-nav-home home)) ]]> + <![%l10n-ro[ (("ro") (gentext-ro-nav-home home)) ]]> + <![%l10n-ru[ (("ru") (gentext-ru-nav-home home)) ]]> + <![%l10n-sk[ (("sk") (gentext-sk-nav-home home)) ]]> + <![%l10n-sl[ (("sl") (gentext-sl-nav-home home)) ]]> + <![%l10n-sr[ (("sr") (gentext-sr-nav-home home)) ]]> + <![%l10n-sv[ (("sv") (gentext-sv-nav-home home)) ]]> + <![%l10n-tr[ (("tr") (gentext-tr-nav-home home)) ]]> + <![%l10n-uk[ (("uk") (gentext-uk-nav-home home)) ]]> + <![%l10n-xh[ (("xh") (gentext-xh-nav-home home)) ]]> + <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-nav-home home)) ]]> + <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-nav-home home)) ]]> + <![%l10n-no[ (("bmno") (gentext-no-nav-home home)) ]]> + <![%l10n-de[ (("dege") (gentext-de-nav-home home)) ]]> + <![%l10n-da[ (("dk") (gentext-da-nav-home home)) ]]> + <![%l10n-sv[ (("svse") (gentext-sv-nav-home home)) ]]> + <![%l10n-en[ (("usen") (gentext-en-nav-home home)) ]]> + (else (error "L10N ERROR: gentext-nav-home")))) diff --git a/stylesheets/dsssl-1.79/common/dbl10n.ent b/stylesheets/dsssl-1.79/common/dbl10n.ent new file mode 100644 index 0000000..5b9b3a2 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl10n.ent @@ -0,0 +1,361 @@ +<!ENTITY % l10n-af "INCLUDE"> +<!ENTITY % l10n-bg "INCLUDE"> +<!ENTITY % l10n-bs "INCLUDE"> +<!ENTITY % l10n-ca "INCLUDE"> +<!ENTITY % l10n-cs "INCLUDE"> +<!ENTITY % l10n-da "INCLUDE"> +<!ENTITY % l10n-de "INCLUDE"> +<!ENTITY % l10n-el "INCLUDE"> +<!ENTITY % l10n-en "INCLUDE"> +<!ENTITY % l10n-es "INCLUDE"> +<!ENTITY % l10n-et "INCLUDE"> +<!ENTITY % l10n-eu "INCLUDE"> +<!ENTITY % l10n-fi "INCLUDE"> +<!ENTITY % l10n-fr "INCLUDE"> +<!ENTITY % l10n-hu "INCLUDE"> +<!ENTITY % l10n-id "INCLUDE"> +<!ENTITY % l10n-it "INCLUDE"> +<!ENTITY % l10n-ja "INCLUDE"> +<!ENTITY % l10n-ko "INCLUDE"> +<!ENTITY % l10n-nl "INCLUDE"> +<!ENTITY % l10n-nn "INCLUDE"> +<!ENTITY % l10n-no "INCLUDE"> +<!ENTITY % l10n-pl "INCLUDE"> +<!ENTITY % l10n-pt "INCLUDE"> +<!ENTITY % l10n-ptbr "INCLUDE"> +<!ENTITY % l10n-ro "INCLUDE"> +<!ENTITY % l10n-ru "INCLUDE"> +<!ENTITY % l10n-sk "INCLUDE"> +<!ENTITY % l10n-sl "INCLUDE"> +<!ENTITY % l10n-sr "INCLUDE"> +<!ENTITY % l10n-sv "INCLUDE"> +<!ENTITY % l10n-tr "INCLUDE"> +<!ENTITY % l10n-uk "INCLUDE"> +<!ENTITY % l10n-xh "INCLUDE"> +<!ENTITY % l10n-zhcn "INCLUDE"> +<!ENTITY % l10n-zhtw "INCLUDE"> + +<![%l10n-af;[ +<!ENTITY dbl1af + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//AF" + "../common/dbl1af.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1af + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-bg;[ +<!ENTITY dbl1bg + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//BG" + "../common/dbl1bg.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1bg + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-bs;[ +<!ENTITY dbl1bs + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//BS" + "../common/dbl1bs.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1bs + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-ca;[ +<!ENTITY dbl1ca + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//CA" + "../common/dbl1ca.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1ca + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-cs;[ +<!ENTITY dbl1cs + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//CS" + "../common/dbl1cs.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1cs + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-da;[ +<!ENTITY dbl1da + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//DA" + "../common/dbl1da.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1da + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-de;[ +<!ENTITY dbl1de + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//DE" + "../common/dbl1de.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1de + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-el;[ +<!ENTITY dbl1el + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//EL" + "../common/dbl1el.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1el + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EL" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-en;[ +<!ENTITY dbl1en + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//EN" + "../common/dbl1en.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1en + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-es;[ +<!ENTITY dbl1es + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//ES" + "../common/dbl1es.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1es + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-et;[ +<!ENTITY dbl1et + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//ET" + "../common/dbl1et.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1et + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-eu;[ +<!ENTITY dbl1eu + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//EU" + "../common/dbl1eu.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1eu + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-fi;[ +<!ENTITY dbl1fi + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//FI" + "../common/dbl1fi.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1fi + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-fr;[ +<!ENTITY dbl1fr + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//FR" + "../common/dbl1fr.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1fr + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-hu;[ +<!ENTITY dbl1hu + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//HU" + "../common/dbl1hu.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1hu + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-id;[ +<!ENTITY dbl1id + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//ID" + "../common/dbl1id.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1id + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-it;[ +<!ENTITY dbl1it + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//IT" + "../common/dbl1it.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1it + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-ja;[ +<!ENTITY dbl1ja + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//JA" + "../common/dbl1ja.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1ja + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-ko;[ +<!ENTITY dbl1ko + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//KO" + "../common/dbl1ko.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1ko + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-nl;[ +<!ENTITY dbl1nl + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//NL" + "../common/dbl1nl.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1nl + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-nn;[ +<!ENTITY dbl1nn + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//NN" + "../common/dbl1nn.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1nn + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-no;[ +<!ENTITY dbl1no + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//NO" + "../common/dbl1no.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1no + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-pl;[ +<!ENTITY dbl1pl + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//PL" + "../common/dbl1pl.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1pl + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-pt;[ +<!ENTITY dbl1pt + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//PT" + "../common/dbl1pt.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1pt + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-ptbr;[ +<!ENTITY dbl1ptbr + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//PTBR" + "../common/dbl1ptbr.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1ptbr + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-ro;[ +<!ENTITY dbl1ro + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//RO" + "../common/dbl1ro.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1ro + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-ru;[ +<!ENTITY dbl1ru + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//RU" + "../common/dbl1ru.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1ru + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-sk;[ +<!ENTITY dbl1sk + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//SK" + "../common/dbl1sk.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1sk + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-sl;[ +<!ENTITY dbl1sl + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//SL" + "../common/dbl1sl.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1sl + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-sr;[ +<!ENTITY dbl1sr + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//SR" + "../common/dbl1sr.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1sr + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-sv;[ +<!ENTITY dbl1sv + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//SV" + "../common/dbl1sv.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1sv + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-tr;[ +<!ENTITY dbl1tr + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//TR" + "../common/dbl1tr.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1tr + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-uk;[ +<!ENTITY dbl1uk + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//UK" + "../common/dbl1uk.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1uk + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-xh;[ +<!ENTITY dbl1xh + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//XH" + "../common/dbl1xh.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1xh + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-zhcn;[ +<!ENTITY dbl1zhcn + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//ZHCN" + "../common/dbl1zhcn.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1zhcn + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + +<![%l10n-zhtw;[ +<!ENTITY dbl1zhtw + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//ZHTW" + "../common/dbl1zhtw.dsl" CDATA DSSSL> +]]> +<!ENTITY dbl1zhtw + PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN" + "../common/dbl1null.dsl" CDATA DSSSL> + diff --git a/stylesheets/dsssl-1.79/common/dbl10n.pl b/stylesheets/dsssl-1.79/common/dbl10n.pl new file mode 100644 index 0000000..8683841 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl10n.pl @@ -0,0 +1,55 @@ +#!/usr/bin/perl -w -- # -*- Perl -*- + +use strict; + +my $template = "dbl10n.template"; +my $dbl10n = "dbl10n.dsl"; +my @languages = (); +my %langsection = (); +my $inlist = 0; +my $historical = 0; + +open (F, $template); +open (G, ">$dbl10n"); + +while (<F>) { + if (/\%\%\/?LANGUAGES\%\%/ || /\%\%HISTORICAL\%\%/) { + $inlist = 1 if $& eq '%%LANGUAGES%%'; + $inlist = 0 if $& eq '%%/LANGUAGES%%'; + $historical = 1 if $& eq '%%HISTORICAL%%'; + next; + } + + if ($inlist && /^;; (\S+)\s+-/) { + my $lang = $1; + my $section = $1; + + if ($historical) { + $lang =~ /^(\S+)\((\S+)\)/; + $lang = $1; + $section = $2; + } + + $section =~ s/\_//sg; +# print "$lang = $section\n"; + + push (@languages, $lang); + $langsection{$lang} = $section; + } + + if (/<!\[\%l10n-XX/) { + my $line = $_; + foreach my $lang (@languages) { + my $section = $langsection{$lang}; + $_ = $line; + s/\"XX\"/\"$lang\"/g; + s/XX/$section/g; + print G $_; + } + } else { + print G $_; + } +} + +close (F); +close (G); diff --git a/stylesheets/dsssl-1.79/common/dbl10n.template b/stylesheets/dsssl-1.79/common/dbl10n.template new file mode 100644 index 0000000..b05f789 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl10n.template @@ -0,0 +1,277 @@ +;; $Id: dbl10n.template,v 1.3 2004/10/09 21:36:35 petere78 Exp $ +;; +;; This file is part of the Modular DocBook Stylesheet distribution. +;; See ../README or http://nwalsh.com/docbook/dsssl/ +;; + +;; ----------------------------- Localization ----------------------------- + +;; If you create a new version of this file, please send it to +;; Norman Walsh, ndw@nwalsh.com. Please use the ISO 639 language +;; code to identify the language. Append a subtag as per RFC 1766, +;; if necessary. + +;; The generated text for cross references to elements. See dblink.dsl +;; for a discussion of how substitution is performed on the %x and #x +;; keywords. +;; + +;; The following language codes from ISO 639 are recognized: +;; %%LANGUAGES%% +;; af - Afrikaans 1.71 +;; bg - Bulgarian +;; bs - Bosnian +;; ca - Catalan +;; cs - Czech +;; da - Danish (previously dk) +;; de - German (previously dege) +;; el - Greek +;; en - English (previously usen) +;; es - Spanish +;; et - Estonian 1.55 +;; eu - Basque 1.74 +;; fi - Finnish +;; fr - French +;; hu - Hungarian 1.55 +;; id - Indonesian 1.55 +;; it - Italian +;; ja - Japanese +;; ko - Korean 1.59 +;; nl - Dutch +;; nn - Nnyorsk 1.74 +;; no - Norwegian (previously bmno) ??? +;; pl - Polish +;; pt - Portuguese +;; pt_br - Portuguese (Brazil) +;; ro - Romanian +;; ru - Russian +;; sk - Slovak +;; sl - Slovenian 1.55 +;; sr - Serbian 1.70 +;; sv - Swedish (previously svse) +;; tr - Turkish 1.71 +;; uk - Ukranian 1.74 +;; xh - Xhosa 1.74 +;; zh_cn - Chinese (Continental) 1.55 +;; zh_tw - Chinese (Traditional) 1.70 + +;; The following language codes are recognized for historical reasons: + +;; %%HISTORICAL%% +;; bmno(no) - Norwegian (Norsk Bokmal) ??? +;; dege(de) - German +;; dk(da) - Danish +;; svse(sv) - Swedish +;; usen(en) - English +;; %%/LANGUAGES%% + +(define %default-language% "en") +(define %gentext-language% #f) +(define %gentext-use-xref-lang% #f) + +(define ($lang$ #!optional (target (current-node)) (xref-context #f)) + (if %gentext-language% + (lang-fix %gentext-language%) + (if (or xref-context %gentext-use-xref-lang%) + (let loop ((here target)) + (if (node-list-empty? here) + (lang-fix %default-language%) + (if (attribute-string (normalize "lang") here) + (lang-fix (attribute-string (normalize "lang") here)) + (loop (parent here))))) + (if (inherited-attribute-string (normalize "lang")) + (lang-fix (inherited-attribute-string (normalize "lang"))) + (lang-fix %default-language%))))) + +(define (lang-fix language) + ;; Lowercase the language + ;; Translate 'xx-yy' to 'xx_yy' + (let ((fixed-lang (if (> (string-index language "-") 0) + (let ((pos (string-index language "-"))) + (string-append + (substring language 0 pos) + "_" + (substring language (+ pos 1) + (string-length language)))) + language))) + (case-fold-down fixed-lang))) + +(define (author-string #!optional (author (current-node))) + (let ((lang (if (string? author) ($lang$) ($lang$ author)))) + (case lang + ;; ISO 639/ISO 3166/RFC 1766 + <![%l10n-XX[ (("XX") (XX-author-string author)) ]]> + (else (error (string-append "L10N ERROR: author-string: " + lang)))))) + +(define (gentext-xref-strings target) + (let ((giname (if (string? target) (normalize target) (gi target))) + (lang (if (string? target) ($lang$) ($lang$ target)))) + (case lang + <![%l10n-XX[ (("XX") (gentext-XX-xref-strings giname)) ]]> + (else (error (string-append "L10N ERROR: gentext-xref-strings: " + lang)))))) + +(define (auto-xref-indirect-connector before) + (case ($lang$) + <![%l10n-XX[ (("XX") (XX-auto-xref-indirect-connector before)) ]]> + (else (error "L10N ERROR: auto-xref-indirect-connector")))) + +(define (generate-toc-in-front) + (case ($lang$) + <![%l10n-XX[ (("XX") %generate-XX-toc-in-front%) ]]> + (else (error "L10N ERROR: generate-toc-in-front")))) + +(define (gentext-element-name target) + (let ((giname (if (string? target) (normalize target) (gi target))) + (lang (if (string? target) ($lang$) ($lang$ target #t)))) + (case lang + <![%l10n-XX[ (("XX") (gentext-XX-element-name giname)) ]]> + (else (error (string-append "L10N ERROR: gentext-element-name: " + lang + " (" + giname + ")")))))) + +(define (gentext-element-name-space target) + (let ((giname (if (string? target) (normalize target) (gi target))) + (lang (if (string? target) ($lang$) ($lang$ target)))) + (case lang + <![%l10n-XX[ (("XX") (gentext-XX-element-name-space giname)) ]]> + (else (error "L10N ERROR: gentext-element-name-space"))))) + +(define (gentext-intra-label-sep target) + (let ((giname (if (string? target) (normalize target) (gi target))) + (lang (if (string? target) ($lang$) ($lang$ target)))) + (case lang + <![%l10n-XX[ (("XX") (gentext-XX-intra-label-sep giname)) ]]> + (else (error "L10N ERROR: gentext-intra-label-sep"))))) + +(define (gentext-label-title-sep target) + (let ((giname (if (string? target) (normalize target) (gi target))) + (lang (if (string? target) ($lang$) ($lang$ target)))) + (case lang + <![%l10n-XX[ (("XX") (gentext-XX-label-title-sep giname)) ]]> + (else (error "L10N ERROR: gentext-label-title-sep"))))) + +(define (label-number-format target) + (let ((giname (if (string? target) (normalize target) (gi target))) + (lang (if (string? target) ($lang$) ($lang$ target)))) + (case lang + <![%l10n-XX[ (("XX") (XX-label-number-format target)) ]]> + (else (error "L10N ERROR: label-number-format"))))) + +(define ($lot-title$ lotgi) + (case ($lang$) + <![%l10n-XX[ (("XX") ($lot-title-XX$ lotgi)) ]]> + (else (error "L10N ERROR: $lot-title$")))) + +(define (gentext-start-quote) + (case ($lang$) + <![%l10n-XX[ (("XX") %gentext-XX-start-quote%) ]]> + (else (error "L10N ERROR: gentext-start-quote")))) + +(define (gentext-end-quote) + (case ($lang$) + <![%l10n-XX[ (("XX") %gentext-XX-end-quote%) ]]> + (else (error "L10N ERROR: gentext-end-quote")))) + +(define (gentext-start-nested-quote) + (case ($lang$) + <![%l10n-XX[ (("XX") %gentext-XX-start-nested-quote%) ]]> + (else (error "L10N ERROR: gentext-start-nested-quote")))) + +(define (gentext-end-nested-quote) + (case ($lang$) + <![%l10n-XX[ (("XX") %gentext-XX-end-nested-quote%) ]]> + (else (error "L10N ERROR: gentext-end-nested-quote")))) + +(define (gentext-by) + (case ($lang$) + <![%l10n-XX[ (("XX") %gentext-XX-by%) ]]> + (else (error "L10N ERROR: gentext-by")))) + +(define (gentext-edited-by) + (case ($lang$) + <![%l10n-XX[ (("XX") %gentext-XX-edited-by%) ]]> + (else (error "L10N ERROR: gentext-edited-by")))) + +(define (gentext-revised-by) + (case ($lang$) + <![%l10n-XX[ (("XX") %gentext-XX-revised-by%) ]]> + (else (error "L10N ERROR: gentext-revised-by")))) + +(define (gentext-page) + (case ($lang$) + <![%l10n-XX[ (("XX") %gentext-XX-page%) ]]> + (else (error "L10N ERROR: gentext-page")))) + +(define (gentext-and) + (case ($lang$) + <![%l10n-XX[ (("XX") %gentext-XX-and%) ]]> + (else (error "L10N ERROR: gentext-and")))) + +(define (gentext-listcomma) + (case ($lang$) + <![%l10n-XX[ (("XX") %gentext-XX-listcomma%) ]]> + (else (error "L10N ERROR: gentext-listcomma")))) + +(define (gentext-lastlistcomma) + (case ($lang$) + <![%l10n-XX[ (("XX") %gentext-XX-lastlistcomma%) ]]> + (else (error "L10N ERROR: gentext-lastlistcomma")))) + +(define (gentext-bibl-pages) + (case ($lang$) + <![%l10n-XX[ (("XX") %gentext-XX-bibl-pages%) ]]> + (else (error "L10N ERROR: gentext-bibl-pages")))) + +(define (gentext-endnotes) + (case ($lang$) + <![%l10n-XX[ (("XX") %gentext-XX-endnotes%) ]]> + (else (error "L10N ERROR: gentext-endnotes")))) + +(define (gentext-table-endnotes) + (case ($lang$) + <![%l10n-XX[ (("XX") %gentext-XX-table-endnotes%) ]]> + (else (error "L10N ERROR: gentext-table-endnotes")))) + +(define (gentext-index-see) + (case ($lang$) + <![%l10n-XX[ (("XX") %gentext-XX-index-see%) ]]> + (else (error "L10N ERROR: gentext-index-see")))) + +(define (gentext-index-seealso) + (case ($lang$) + <![%l10n-XX[ (("XX") %gentext-XX-index-seealso%) ]]> + (else (error "L10N ERROR: gentext-index-seealso")))) + +(define (gentext-nav-prev prev) + (case ($lang$) + <![%l10n-XX[ (("XX") (gentext-XX-nav-prev prev)) ]]> + (else (error "L10N ERROR: gentext-nav-prev")))) + +(define (gentext-nav-prev-sibling prevsib) + (case ($lang$) + <![%l10n-XX[ (("XX") (gentext-XX-nav-prev-sibling prevsib)) ]]> + (else (error "L10N ERROR: gentext-nav-prev-sibling ")))) + +(define (gentext-nav-next-sibling nextsib) + (case ($lang$) + <![%l10n-XX[ (("XX") (gentext-XX-nav-next-sibling nextsib)) ]]> + (else (error "L10N ERROR: gentext-nav-next-sibling")))) + +(define (gentext-nav-next next) + (case ($lang$) + <![%l10n-XX[ (("XX") (gentext-XX-nav-next next)) ]]> + (else (error "L10N ERROR: gentext-nav-next")))) + +(define (gentext-nav-up up) + (case ($lang$) + <![%l10n-XX[ (("XX") (gentext-XX-nav-up up)) ]]> + (else (error "L10N ERROR: gentext-nav-up")))) + +(define (gentext-nav-home home) + (case ($lang$) + <![%l10n-XX[ (("XX") (gentext-XX-nav-home home)) ]]> + (else (error "L10N ERROR: gentext-nav-home")))) diff --git a/stylesheets/dsssl-1.79/common/dbl1af.dsl b/stylesheets/dsssl-1.79/common/dbl1af.dsl new file mode 100644 index 0000000..47b62e0 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1af.dsl @@ -0,0 +1,440 @@ +<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ +<!ENTITY % af.words + PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//AF" + "dbl1af.ent"> +%af.words; +]> + +<style-sheet> +<style-specification id="docbook-l10n-af"> +<style-specification-body> + +;; $Id: dbl1af.dsl,v 1.1 2001/07/04 14:46:00 uid48421 Exp $ +;; +;; This file is part of the Modular DocBook Stylesheet distribution. +;; See ../README or http://nwalsh.com/docbook/dsssl/ +;; + +;; ----------------------------- Localization ----------------------------- + +;; If you create a new version of this file, please send it to +;; Norman Walsh, ndw@nwalsh.com + +;; Modified for Afrikaans + +;; The generated text for cross references to elements. See dblink.dsl +;; for a discussion of how substitution is performed on the %x +;; keywords. +;; + +(define (af-author-string #!optional (author (current-node))) + ;; Return a formatted string representation of the contents of: + ;; AUTHOR: + ;; Handles Honorific, FirstName, SurName, and Lineage. + ;; If %author-othername-in-middle% is #t, also OtherName + ;; Handles *only* the first of each. + ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" + ;; CORPAUTHOR: + ;; returns (data corpauthor) + (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) + (f_nl (select-elements (descendants author) (normalize "firstname"))) + (o_nl (select-elements (descendants author) (normalize "othername"))) + (s_nl (select-elements (descendants author) (normalize "surname"))) + (l_nl (select-elements (descendants author) (normalize "lineage"))) + (has_h (not (node-list-empty? h_nl))) + (has_f (not (node-list-empty? f_nl))) + (has_o (and %author-othername-in-middle% + (not (node-list-empty? o_nl)))) + (has_s (not (node-list-empty? s_nl))) + (has_l (not (node-list-empty? l_nl)))) + (if (or (equal? (gi author) (normalize "author")) + (equal? (gi author) (normalize "editor")) + (equal? (gi author) (normalize "othercredit"))) + (string-append + (if has_h (string-append (data-of (node-list-first h_nl)) + %honorific-punctuation%) "") + (if has_f (string-append + (if has_h " " "") + (data-of (node-list-first f_nl))) "") + (if has_o (string-append + (if (or has_h has_f) " " "") + (data-of (node-list-first o_nl))) "") + (if has_s (string-append + (if (or has_h has_f has_o) " " "") + (data-of (node-list-first s_nl))) "") + (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) + (data-of author)))) + +(define (af-xref-strings) + (list (list (normalize "appendix") (if %chapter-autolabel% + "&Appendix; %n" + "the &appendix; called %t")) + (list (normalize "article") (string-append %gentext-af-start-quote% + "%t" + %gentext-af-end-quote%)) + (list (normalize "bibliography") "%t") + (list (normalize "book") "%t") + (list (normalize "chapter") (if %chapter-autolabel% + "&Chapter; %n" + "the &chapter; called %t")) + (list (normalize "equation") "&Equation; %n") + (list (normalize "example") "&Example; %n") + (list (normalize "figure") "&Figure; %n") + (list (normalize "glossary") "%t") + (list (normalize "index") "%t") + (list (normalize "listitem") "%n") + (list (normalize "part") "&Part; %n") + (list (normalize "preface") "%t") + (list (normalize "procedure") "&Procedure; %n, %t") + (list (normalize "reference") "&Reference; %n, %t") + (list (normalize "section") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "sect1") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "sect2") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "sect3") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "sect4") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "sect5") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "simplesect") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "sidebar") "the &sidebar; %t") + (list (normalize "step") "&step; %n") + (list (normalize "table") "&Table; %n"))) + +(define (gentext-af-xref-strings gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (xref (assoc name (af-xref-strings)))) + (if xref + (car (cdr xref)) + (let* ((msg (string-append "[&xrefto; " + (if giname giname "&nonexistantelement;") + " &unsupported;]")) + (err (node-list-error msg (current-node)))) + msg)))) + +(define (af-auto-xref-indirect-connector before) + ;; In English, the (cond) is unnecessary since the word is always the + ;; same, but in other languages, that's not the case. I've set this + ;; one up with the (cond) so it stands as an example. + (cond + ((equal? (gi before) (normalize "book")) + (literal " ∈ ")) + ((equal? (gi before) (normalize "chapter")) + (literal " ∈ ")) + ((equal? (gi before) (normalize "sect1")) + (literal " ∈ ")) + (else + (literal " ∈ ")))) + +;; Should the TOC come first or last? +;; +(define %generate-af-toc-in-front% #t) + +;; gentext-element-name returns the generated text that should be +;; used to make reference to the selected element. +;; + +(define (af-element-name) + (list + (list (normalize "abstract") "&Abstract;") + (list (normalize "answer") "&Answer;") + (list (normalize "appendix") "&Appendix;") + (list (normalize "article") "&Article;") + (list (normalize "bibliography") "&Bibliography;") + (list (normalize "book") "&Book;") + (list (normalize "calloutlist") "") + (list (normalize "caution") "&Caution;") + (list (normalize "chapter") "&Chapter;") + (list (normalize "copyright") "&Copyright;") + (list (normalize "dedication") "&Dedication;") + (list (normalize "edition") "&Edition;") + (list (normalize "equation") "&Equation;") + (list (normalize "example") "&Example;") + (list (normalize "figure") "&Figure;") + (list (normalize "glossary") "&Glossary;") + (list (normalize "glosssee") "&GlossSee;") + (list (normalize "glossseealso") "&GlossSeeAlso;") + (list (normalize "important") "&Important;") + (list (normalize "index") "&Index;") + (list (normalize "colophon") "&Colophon;") + (list (normalize "setindex") "&SetIndex;") + (list (normalize "isbn") "&ISBN;") + (list (normalize "legalnotice") "&LegalNotice;") + (list (normalize "msgaud") "&MsgAud;") + (list (normalize "msglevel") "&MsgLevel;") + (list (normalize "msgorig") "&MsgOrig;") + (list (normalize "note") "&Note;") + (list (normalize "part") "&Part;") + (list (normalize "preface") "&Preface;") + (list (normalize "procedure") "&Procedure;") + (list (normalize "pubdate") "&Published;") + (list (normalize "question") "&Question;") + (list (normalize "refentry") "&RefEntry;") + (list (normalize "reference") "&Reference;") + (list (normalize "refname") "&RefName;") + (list (normalize "revhistory") "&RevHistory;") + (list (normalize "refsect1") "&RefSection;") + (list (normalize "refsect2") "&RefSection;") + (list (normalize "refsect3") "&RefSection;") + (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") + (list (normalize "revision") "&Revision;") + (list (normalize "sect1") "&Section;") + (list (normalize "sect2") "&Section;") + (list (normalize "sect3") "&Section;") + (list (normalize "sect4") "&Section;") + (list (normalize "sect5") "&Section;") + (list (normalize "section") "&Section;") + (list (normalize "simplesect") "&Section;") + (list (normalize "seeie") "&See;") + (list (normalize "seealsoie") "&Seealso;") + (list (normalize "set") "&Set;") + (list (normalize "sidebar") "&Sidebar;") + (list (normalize "step") "&step;") + (list (normalize "table") "&Table;") + (list (normalize "tip") "&Tip;") + (list (normalize "toc") "&TableofContents;") + (list (normalize "warning") "&Warning;") + )) + +(define (gentext-af-element-name gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (pname (assoc name (af-element-name)))) + (if pname + (car (cdr pname)) + (let* ((msg (string-append + "gentext-af-element-name: &unexpectedelementname;: " + name)) + (err (node-list-error msg (current-node)))) + msg)))) + +;; gentext-element-name-space returns gentext-element-name with a +;; trailing space, if gentext-element-name isn't "". +;; +(define (gentext-af-element-name-space giname) + (string-with-space (gentext-element-name giname))) + +;; gentext-intra-label-sep returns the seperator to be inserted +;; between multiple occurances of a label (or parts of a label) +;; for the specified element. Most of these are for enumerated +;; labels like "Figure 2-4", but this function is used elsewhere +;; (e.g. REFNAME) with a little abuse. +;; + +(define (local-af-intra-label-sep) + (list)) + +(define (af-intra-label-sep) + (list + (list (normalize "equation") "-") + (list (normalize "informalequation") "-") + (list (normalize "example") "-") + (list (normalize "figure") "-") + (list (normalize "listitem") ".") + (list (normalize "procedure") ".") + (list (normalize "refentry") ".") + (list (normalize "reference") ".") + (list (normalize "refname") ", ") + (list (normalize "refsect1") ".") + (list (normalize "refsect2") ".") + (list (normalize "refsect3") ".") + (list (normalize "sect1") ".") + (list (normalize "sect2") ".") + (list (normalize "sect3") ".") + (list (normalize "sect4") ".") + (list (normalize "sect5") ".") + (list (normalize "section") ".") + (list (normalize "simplesect") ".") + (list (normalize "step") ".") + (list (normalize "table") "-") + (list (normalize "_pagenumber") "-") + )) + +(define (gentext-af-intra-label-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (sep (assoc name (af-intra-label-sep)))) + (if sep + (car (cdr sep)) + ""))) + +;; gentext-label-title-sep returns the seperator to be inserted +;; between a label and the text following the label for the +;; specified element. Most of these are for use between +;; enumerated labels and titles like "1. Chapter One Title", but +;; this function is used elsewhere (e.g. NOTE) with a little +;; abuse. +;; + +(define (local-af-label-title-sep) + (list)) + +(define (af-label-title-sep) + (list + (list (normalize "abstract") ": ") + (list (normalize "answer") " ") + (list (normalize "appendix") ". ") + (list (normalize "caution") "") + (list (normalize "chapter") ". ") + (list (normalize "equation") ". ") + (list (normalize "example") ". ") + (list (normalize "figure") ". ") + (list (normalize "footnote") ". ") + (list (normalize "glosssee") ": ") + (list (normalize "glossseealso") ": ") + (list (normalize "important") ": ") + (list (normalize "note") ": ") + (list (normalize "orderedlist") ". ") + (list (normalize "part") ". ") + (list (normalize "procedure") ". ") + (list (normalize "prefix") ". ") + (list (normalize "question") " ") + (list (normalize "refentry") "") + (list (normalize "reference") ". ") + (list (normalize "refsect1") ". ") + (list (normalize "refsect2") ". ") + (list (normalize "refsect3") ". ") + (list (normalize "sect1") ". ") + (list (normalize "sect2") ". ") + (list (normalize "sect3") ". ") + (list (normalize "sect4") ". ") + (list (normalize "sect5") ". ") + (list (normalize "section") ". ") + (list (normalize "simplesect") ". ") + (list (normalize "seeie") " ") + (list (normalize "seealsoie") " ") + (list (normalize "step") ". ") + (list (normalize "table") ". ") + (list (normalize "tip") ": ") + (list (normalize "warning") "") + )) + +(define (gentext-af-label-title-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (sep (assoc name (af-label-title-sep)))) + (if sep + (car (cdr sep)) + ""))) + +(define (af-label-number-format-list) + (list + (list (normalize "set") "1") + (list (normalize "book") "1") + (list (normalize "prefix") "1") + (list (normalize "part") "I") + (list (normalize "chapter") "1") + (list (normalize "appendix") "A") + (list (normalize "reference") "I") + (list (normalize "example") "1") + (list (normalize "figure") "1") + (list (normalize "table") "1") + (list (normalize "procedure") "1") + (list (normalize "step") "1") + (list (normalize "refsect1") "1") + (list (normalize "refsect2") "1") + (list (normalize "refsect3") "1") + (list (normalize "sect1") "1") + (list (normalize "sect2") "1") + (list (normalize "sect3") "1") + (list (normalize "sect4") "1") + (list (normalize "sect5") "1") + (list (normalize "section") "1") + )) + +(define (af-label-number-format gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (format (assoc name (af-label-number-format-list)))) + (if format + (car (cdr format)) + "1"))) + +(define (af-lot-title) + (list + (list (normalize "table") "&ListofTables;") + (list (normalize "example") "&ListofExamples;") + (list (normalize "figure") "&ListofFigures;") + (list (normalize "equation") "&ListofEquations;") + )) + +(define ($lot-title-af$ gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (title (assoc name (af-lot-title)))) + (if title + (car (cdr title)) + (let* ((msg (string-append "&ListofUnknown;: " name)) + (err (node-list-error msg (current-node)))) + msg)))) + +(define %gentext-af-start-quote% (dingbat "ldquo")) + +(define %gentext-af-end-quote% (dingbat "rdquo")) + +(define %gentext-af-start-nested-quote% (dingbat "lsquo")) + +(define %gentext-af-end-nested-quote% (dingbat "rsquo")) + +(define %gentext-af-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous + ;; Authored "by" Jane Doe + +(define %gentext-af-edited-by% "&Editedby;") + ;; "Edited by" Jane Doe + +(define %gentext-af-revised-by% "&Revisedby;") + ;; "Revised by" Jane Doe + +(define %gentext-af-page% "") + +(define %gentext-af-and% "∧") + +(define %gentext-af-listcomma% "&listcomma;") + +(define %gentext-af-lastlistcomma% "&lastlistcomma;") + +(define %gentext-af-bibl-pages% "&Pgs;") + +(define %gentext-af-endnotes% "&Notes;") + +(define %gentext-af-table-endnotes% "&TableNotes;:") + +(define %gentext-af-index-see% "&See;") + +(define %gentext-af-index-seealso% "&SeeAlso;") + + +(define (gentext-af-nav-prev prev) + (make sequence (literal "&nav-prev;"))) + +(define (gentext-af-nav-prev-sibling prevsib) + (make sequence (literal "&nav-prev-sibling;"))) + +(define (gentext-af-nav-next-sibling nextsib) + (make sequence (literal "&nav-next-sibling;"))) + +(define (gentext-af-nav-next next) + (make sequence (literal "&nav-next;"))) + +(define (gentext-af-nav-up up) + (make sequence (literal "&nav-up;"))) + +(define (gentext-af-nav-home home) + (make sequence (literal "&nav-home;"))) + +</style-specification-body> +</style-specification> +</style-sheet> + diff --git a/stylesheets/dsssl-1.79/common/dbl1af.ent b/stylesheets/dsssl-1.79/common/dbl1af.ent new file mode 100644 index 0000000..893f197 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1af.ent @@ -0,0 +1,160 @@ +<?xml version="1.0" encoding="US-ASCII"?> +<!-- This file is generated automatically. --> +<!-- Do not edit this file by hand! --> +<!-- See http://docbook.sourceforge.net/ --> +<!-- To update this file: edit the corresponding document at --> +<!-- http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/docbook/gentext/locale/ --> + +<!ENTITY Abstract "Samevatting"> +<!ENTITY abstract "samevatting"> +<!ENTITY Answer "Antwoord:"> +<!ENTITY answer "antwoord:"> +<!ENTITY Appendix "Aanhangsel"> +<!ENTITY appendix "aanhangsel"> +<!ENTITY Article "Artikel"> +<!ENTITY article "artikel"> +<!ENTITY Bibliography "Bibliografie"> +<!ENTITY bibliography "bibliografie"> +<!ENTITY Book "Boek"> +<!ENTITY book "boek"> +<!ENTITY Caution "Pas op"> +<!ENTITY caution "pas op"> +<!ENTITY CAUTION "PAS OP"> +<!ENTITY Chapter "Hoofdstuk"> +<!ENTITY chapter "hoofdstuk"> +<!ENTITY Colophon "Kolifon"> +<!ENTITY colophon "kolifon"> +<!ENTITY Copyright "Kopie reg"> +<!ENTITY copyright "kopie reg"> +<!ENTITY Dedication "Opgedra aan"> +<!ENTITY dedication "opgedra aan"> +<!ENTITY Edition "Uitgawe"> +<!ENTITY edition "uitgawe"> +<!ENTITY Equation "Vergelyking"> +<!ENTITY equation "vergelyking"> +<!ENTITY Example "Voorbeeld"> +<!ENTITY example "voorbeeld"> +<!ENTITY Figure "Figuur"> +<!ENTITY figure "figuur"> +<!ENTITY Glossary "Woordlys"> +<!ENTITY glossary "woordlys"> +<!ENTITY GlossSee "WoordelysSien"> +<!ENTITY glosssee "woordelyssien"> +<!ENTITY GlossSeeAlso "WoordelysSienOok"> +<!ENTITY glossseealso "woordelyssienook"> +<!ENTITY IMPORTANT "BELANGRIK"> +<!ENTITY Important "Belangrik"> +<!ENTITY important "belangrik"> +<!ENTITY Index "Indeks"> +<!ENTITY index "indeks"> +<!ENTITY ISBN "ISBN"> +<!ENTITY isbn "isbn"> +<!ENTITY LegalNotice "RegsKennisgewing"> +<!ENTITY legalnotice "regskennisgewing"> +<!ENTITY MsgAud "Teikengroep"> +<!ENTITY msgaud "teikengroep"> +<!ENTITY MsgLevel "Vlak"> +<!ENTITY msglevel "vlak"> +<!ENTITY MsgOrig "Herkoms"> +<!ENTITY msgorig "herkoms"> +<!ENTITY note "opmerking"> +<!ENTITY NOTE "OPMERKING"> +<!ENTITY Note "Opmerking"> +<!ENTITY Part "Deel"> +<!ENTITY part "deel"> +<!ENTITY Preface "Voorwoord"> +<!ENTITY preface "voorwoord"> +<!ENTITY Procedure "Prosedure"> +<!ENTITY procedure "prosedure"> +<!ENTITY ProductionSet "ProduksieStel"> +<!ENTITY Published "Uitgegee"> +<!ENTITY published "uitgegee"> +<!ENTITY Question "Vraag:"> +<!ENTITY question "vraag:"> +<!ENTITY RefEntry "Verwysingslemma"> +<!ENTITY refentry "verwysingslemma"> +<!ENTITY Reference "Verwysing"> +<!ENTITY reference "verwysing"> +<!ENTITY RefName "Verwysingsnaam"> +<!ENTITY refname "verwysingsnaam"> +<!ENTITY RefSection "Verwysingsparagraaf"> +<!ENTITY refsection "verwysingsparagraaf"> +<!ENTITY RefSynopsisDiv "Verwysingsamevatting"> +<!ENTITY refsynopsisdiv "verwysingsamevatting"> +<!ENTITY RevHistory "Hersiening geskiedenis"> +<!ENTITY revhistory "hersiening geskiedenis"> +<!ENTITY Revision "Hersiening"> +<!ENTITY revision "hersiening"> +<!ENTITY sect1 "Paragraaf"> +<!ENTITY sect2 "Paragraaf"> +<!ENTITY sect3 "Paragraaf"> +<!ENTITY sect4 "Paragraaf"> +<!ENTITY sect5 "Paragraaf"> +<!ENTITY Section "Paragraaf"> +<!ENTITY section "paragraaf"> +<!ENTITY see "sien"> +<!ENTITY See "Sien"> +<!ENTITY Seealso "Sien ook"> +<!ENTITY seealso "sien ook"> +<!ENTITY SeeAlso "Sien Ook"> +<!ENTITY set "versameling"> +<!ENTITY Set "Versameling"> +<!ENTITY SetIndex "VersamelingIndeks"> +<!ENTITY setindex "versamelingindeks"> +<!ENTITY Sidebar "Kantbalk"> +<!ENTITY sidebar "kantbalk"> +<!ENTITY step "stap"> +<!ENTITY Step "Stap"> +<!ENTITY table "tabel"> +<!ENTITY Table "Tabel"> +<!ENTITY TIP "LEIDRAAD"> +<!ENTITY Tip "Leidraad"> +<!ENTITY tip "leidraad"> +<!ENTITY WARNING "WAARSKUWING"> +<!ENTITY Warning "Waarskuwing"> +<!ENTITY warning "waarskuwing"> +<!ENTITY and "en"> +<!ENTITY by "deur"> +<!ENTITY Edited "Geredigeer"> +<!ENTITY edited "geredigeer"> +<!ENTITY Editedby "Geredigeer deur"> +<!ENTITY editedby "geredigeer deur"> +<!ENTITY in "in"> +<!ENTITY lastlistcomma ","> +<!ENTITY listcomma ","> +<!ENTITY nonexistantelement "element bestaan nie"> +<!ENTITY notes "Notas"> +<!ENTITY Notes "notas"> +<!ENTITY Pgs "bl."> +<!ENTITY pgs "bl."> +<!ENTITY Revisedby "Hersien deur"> +<!ENTITY revisedby "hersien deur"> +<!ENTITY TableNotes "TabelOpmerking"> +<!ENTITY tablenotes "tabelopmerking"> +<!ENTITY TableofContents "Inhoudsopgawe"> +<!ENTITY tableofcontents "inhoudsopgawe"> +<!ENTITY unexpectedelementname "onverwagte element naam"> +<!ENTITY unsupported "nie geondersteun"> +<!ENTITY xrefto "verwysing na"> +<!ENTITY listofequations "lys van vergelykings"> +<!ENTITY ListofEquations "Lys van vergelykings"> +<!ENTITY ListofExamples "Lys van voorbeelde"> +<!ENTITY listofexamples "lys van voorbeelde"> +<!ENTITY ListofFigures "Lys van figure"> +<!ENTITY listoffigures "lys van figure"> +<!ENTITY listoftables "lys van tabelle"> +<!ENTITY ListofTables "Lys van tabelle"> +<!ENTITY ListofUnknown "Lys van onbekende tipes"> +<!ENTITY listofunknown "lys van onbekende tipes"> +<!ENTITY nav-home "Begin"> +<!ENTITY nav-next "Volgende"> +<!ENTITY nav-next-sibling "Verder vooruit"> +<!ENTITY nav-prev "Terug"> +<!ENTITY nav-prev-sibling "Verder terug"> +<!ENTITY nav-up "Boontoe"> +<!ENTITY Draft "Proef"> +<!ENTITY above "bo"> +<!ENTITY below "onder"> +<!ENTITY sectioncalled "die seksie genaamd"> +<!ENTITY lowercase.alpha "abcdefghijklmnopqrstuvwxyz"> +<!ENTITY uppercase.alpha "ABCDEFGHIJKLMNOPQRSTUVWXYZ"> diff --git a/stylesheets/dsssl-1.79/common/dbl1bg.dsl b/stylesheets/dsssl-1.79/common/dbl1bg.dsl new file mode 100644 index 0000000..3b1417d --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1bg.dsl @@ -0,0 +1,431 @@ +<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ +<!ENTITY % cyr1 PUBLIC "ISO 8879:1986//ENTITIES Russian Cyrillic//EN"> +%cyr1; +<!ENTITY % bg.words + PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//BG" + "dbl1bg.ent"> +%bg.words; +]> + +<style-sheet> +<style-specification id="docbook-l10n-bg"> +<style-specification-body> + +;; $Id: dbl1bg.dsl,v 1.1 2004/10/09 21:36:35 petere78 Exp $ +;; +;; This file is part of the Modular DocBook Stylesheet distribution. +;; See ../README or http://nwalsh.com/docbook/dsssl/ +;; + +;; ----------------------------- Localization ----------------------------- + +;; If you create a new version of this file, please send it to +;; Norman Walsh, ndw@nwalsh.com + +;; The Bulgarian version of this file used the Romanian as a template. + +(define (bg-author-string #!optional (author (current-node))) + ;; Return a formatted string representation of the contents of: + ;; AUTHOR: + ;; Handles Honorific, FirstName, SurName, and Lineage. + ;; If %author-othername-in-middle% is #t, also OtherName + ;; Handles *only* the first of each. + ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" + ;; CORPAUTHOR: + ;; returns (data corpauthor) + (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) + (f_nl (select-elements (descendants author) (normalize "firstname"))) + (o_nl (select-elements (descendants author) (normalize "othername"))) + (s_nl (select-elements (descendants author) (normalize "surname"))) + (l_nl (select-elements (descendants author) (normalize "lineage"))) + (has_h (not (node-list-empty? h_nl))) + (has_f (not (node-list-empty? f_nl))) + (has_o (and %author-othername-in-middle% + (not (node-list-empty? o_nl)))) + (has_s (not (node-list-empty? s_nl))) + (has_l (not (node-list-empty? l_nl)))) + (if (or (equal? (gi author) (normalize "author")) + (equal? (gi author) (normalize "editor")) + (equal? (gi author) (normalize "othercredit"))) + (string-append + (if has_h (string-append (data-of (node-list-first h_nl)) + %honorific-punctuation%) "") + (if has_f (string-append + (if has_h " " "") + (data-of (node-list-first f_nl))) "") + (if has_o (string-append + (if (or has_h has_f) " " "") + (data-of (node-list-first o_nl))) "") + (if has_s (string-append + (if (or has_h has_f has_o) " " "") + (data-of (node-list-first s_nl))) "") + (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) + (data-of author)))) + +(define (bg-xref-strings) + (list (list (normalize "appendix") (if %chapter-autolabel% + "&Appendix; %n" + "&appendix; %t")) + (list (normalize "article") (string-append %gentext-bg-start-quote% + "%t" + %gentext-bg-end-quote%)) + (list (normalize "bibliography") "%t") + (list (normalize "book") "%t") + (list (normalize "chapter") (if %chapter-autolabel% + "&Chapter; %n" + "&chapter; %t")) + (list (normalize "equation") "&Equation; %n") + (list (normalize "example") "&Example; %n") + (list (normalize "figure") "&Figure; %n") + (list (normalize "glossary") "%t") + (list (normalize "index") "%t") + (list (normalize "listitem") "%n") + (list (normalize "part") "&Part; %n") + (list (normalize "preface") "%t") + (list (normalize "procedure") "&Procedure; %n, %t") + (list (normalize "reference") "&Reference; %n, %t") + (list (normalize "section") (if %section-autolabel% + "&Section; %n" + "§ion; %t")) + (list (normalize "sect1") (if %section-autolabel% + "&Section; %n" + "§ion; %t")) + (list (normalize "sect2") (if %section-autolabel% + "&Section; %n" + "§ion; %t")) + (list (normalize "sect3") (if %section-autolabel% + "&Section; %n" + "§ion; %t")) + (list (normalize "sect4") (if %section-autolabel% + "&Section; %n" + "§ion; %t")) + (list (normalize "sect5") (if %section-autolabel% + "&Section; %n" + "§ion; %t")) + (list (normalize "simplesect") (if %section-autolabel% + "&Section; %n" + "§ion; %t")) + (list (normalize "sidebar") "&sidebar; %t") + (list (normalize "step") "&step; %n") + (list (normalize "table") "&Table; %n"))) + +(define (gentext-bg-xref-strings gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (xref (assoc name (bg-xref-strings)))) + (if xref + (car (cdr xref)) + (let* ((msg (string-append "[&xrefto; " + (if giname giname "&nonexistantelement;") + " &unsupported;]")) + (err (node-list-error msg (current-node)))) + msg)))) + +(define (bg-auto-xref-indirect-connector before) + (literal " ∈ ")) + +;; Should the TOC come first or last? +;; +(define %generate-bg-toc-in-front% #t) + +;; gentext-element-name returns the generated text that should be +;; used to make reference to the selected element. +;; + +(define (bg-element-name) + (list + (list (normalize "abstract") "&Abstract;") + (list (normalize "answer") "&Answer;") + (list (normalize "appendix") "&Appendix;") + (list (normalize "article") "&Article;") + (list (normalize "bibliography") "&Bibliography;") + (list (normalize "book") "&Book;") + (list (normalize "calloutlist") "") + (list (normalize "caution") "&Caution;") + (list (normalize "chapter") "&Chapter;") + (list (normalize "copyright") "&Copyright;") + (list (normalize "dedication") "&Dedication;") + (list (normalize "edition") "&Edition;") + (list (normalize "equation") "&Equation;") + (list (normalize "example") "&Example;") + (list (normalize "figure") "&Figure;") + (list (normalize "glossary") "&Glossary;") + (list (normalize "glosssee") "&GlossSee;") + (list (normalize "glossseealso") "&GlossSeeAlso;") + (list (normalize "important") "&Important;") + (list (normalize "index") "&Index;") + (list (normalize "colophon") "&Colophon;") + (list (normalize "setindex") "&SetIndex;") + (list (normalize "isbn") "&isbn;") + (list (normalize "legalnotice") "&LegalNotice;") + (list (normalize "msgaud") "&MsgAud;") + (list (normalize "msglevel") "&MsgLevel;") + (list (normalize "msgorig") "&MsgOrig;") + (list (normalize "note") "&Note;") + (list (normalize "part") "&Part;") + (list (normalize "preface") "&Preface;") + (list (normalize "procedure") "&Procedure;") + (list (normalize "pubdate") "&Published;") + (list (normalize "question") "&Question;") + (list (normalize "refentry") "&RefEntry;") + (list (normalize "reference") "&Reference;") + (list (normalize "refname") "&RefName;") + (list (normalize "revhistory") "&RevHistory;") + (list (normalize "refsect1") "&RefSection;") + (list (normalize "refsect2") "&RefSection;") + (list (normalize "refsect3") "&RefSection;") + (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") + (list (normalize "revision") "&Revision;") + (list (normalize "sect1") "&Section;") + (list (normalize "sect2") "&Section;") + (list (normalize "sect3") "&Section;") + (list (normalize "sect4") "&Section;") + (list (normalize "sect5") "&Section;") + (list (normalize "section") "&Section;") + (list (normalize "simplesect") "&Section;") + (list (normalize "seeie") "&See;") + (list (normalize "seealsoie") "&Seealso;") + (list (normalize "set") "&Set;") + (list (normalize "sidebar") "&Sidebar;") + (list (normalize "step") "&step;") + (list (normalize "table") "&Table;") + (list (normalize "tip") "&Tip;") + (list (normalize "toc") "&TableofContents;") + (list (normalize "warning") "&Warning;") + )) + +(define (gentext-bg-element-name gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (pname (assoc name (bg-element-name)))) + (if pname + (car (cdr pname)) + (let* ((msg (string-append + "gentext-bg-element-name: &unexpectedelementname;: " + name)) + (err (node-list-error msg (current-node)))) + msg)))) + +;; gentext-element-name-space returns gentext-element-name with a +;; trailing space, if gentext-element-name isn't "". +;; +(define (gentext-bg-element-name-space giname) + (string-with-space (gentext-element-name giname))) + +;; gentext-intra-label-sep returns the seperator to be inserted +;; between multiple occurances of a label (or parts of a label) +;; for the specified element. Most of these are for enumerated +;; labels like "Figure 2-4", but this function is used elsewhere +;; (e.g. REFNAME) with a little abuse. +;; + +(define (local-bg-intra-label-sep) + (list)) + +(define (bg-intra-label-sep) + (list + (list (normalize "equation") "-") + (list (normalize "informalequation") "-") + (list (normalize "example") "-") + (list (normalize "figure") "-") + (list (normalize "listitem") ".") + (list (normalize "procedure") ".") + (list (normalize "refentry") ".") + (list (normalize "reference") ".") + (list (normalize "refname") ", ") + (list (normalize "refsect1") ".") + (list (normalize "refsect2") ".") + (list (normalize "refsect3") ".") + (list (normalize "sect1") ".") + (list (normalize "sect2") ".") + (list (normalize "sect3") ".") + (list (normalize "sect4") ".") + (list (normalize "sect5") ".") + (list (normalize "section") ".") + (list (normalize "simplesect") ".") + (list (normalize "step") ".") + (list (normalize "table") "-") + (list (normalize "_pagenumber") "-") + )) + +(define (gentext-bg-intra-label-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-bg-intra-label-sep))) + (sep (assoc name (bg-intra-label-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +;; gentext-label-title-sep returns the seperator to be inserted +;; between a label and the text following the label for the +;; specified element. Most of these are for use between +;; enumerated labels and titles like "1. Chapter One Title", but +;; this function is used elsewhere (e.g. NOTE) with a little +;; abuse. +;; + +(define (local-bg-label-title-sep) + (list)) + +(define (bg-label-title-sep) + (list + (list (normalize "abstract") ": ") + (list (normalize "answer") " ") + (list (normalize "appendix") ". ") + (list (normalize "caution") "") + (list (normalize "chapter") ". ") + (list (normalize "equation") ". ") + (list (normalize "example") ". ") + (list (normalize "figure") ". ") + (list (normalize "footnote") ". ") + (list (normalize "glosssee") ": ") + (list (normalize "glossseealso") ": ") + (list (normalize "important") ": ") + (list (normalize "note") ": ") + (list (normalize "orderedlist") ". ") + (list (normalize "part") ". ") + (list (normalize "procedure") ". ") + (list (normalize "prefix") ". ") + (list (normalize "question") " ") + (list (normalize "refentry") "") + (list (normalize "reference") ". ") + (list (normalize "refsect1") ". ") + (list (normalize "refsect2") ". ") + (list (normalize "refsect3") ". ") + (list (normalize "sect1") ". ") + (list (normalize "sect2") ". ") + (list (normalize "sect3") ". ") + (list (normalize "sect4") ". ") + (list (normalize "sect5") ". ") + (list (normalize "section") ". ") + (list (normalize "simplesect") ". ") + (list (normalize "seeie") " ") + (list (normalize "seealsoie") " ") + (list (normalize "step") ". ") + (list (normalize "table") ". ") + (list (normalize "tip") ": ") + (list (normalize "warning") "") + )) + +(define (gentext-bg-label-title-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-bg-label-title-sep))) + (sep (assoc name (bg-label-title-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +(define (bg-label-number-format-list) + (list + (list (normalize "set") "1") + (list (normalize "book") "1") + (list (normalize "prefix") "1") + (list (normalize "part") "I") + (list (normalize "chapter") "1") + (list (normalize "appendix") "A") + (list (normalize "reference") "I") + (list (normalize "example") "1") + (list (normalize "figure") "1") + (list (normalize "table") "1") + (list (normalize "procedure") "1") + (list (normalize "step") "1") + (list (normalize "refsect1") "1") + (list (normalize "refsect2") "1") + (list (normalize "refsect3") "1") + (list (normalize "sect1") "1") + (list (normalize "sect2") "1") + (list (normalize "sect3") "1") + (list (normalize "sect4") "1") + (list (normalize "sect5") "1") + (list (normalize "section") "1") + )) + +(define (bg-label-number-format gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (format (assoc name (bg-label-number-format-list)))) + (if format + (car (cdr format)) + "1"))) + +(define (bg-lot-title) + (list + (list (normalize "table") "&ListofTables;") + (list (normalize "example") "&ListofExamples;") + (list (normalize "figure") "&ListofFigures;") + (list (normalize "equation") "&ListofEquations;") + )) + +(define ($lot-title-bg$ gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (title (assoc name (bg-lot-title)))) + (if title + (car (cdr title)) + (let* ((msg (string-append "&ListofUnknown;: " name)) + (err (node-list-error msg (current-node)))) + msg)))) + +(define %gentext-bg-start-quote% (dingbat "ldquo")) + +(define %gentext-bg-end-quote% (dingbat "rdquo")) + +(define %gentext-bg-start-nested-quote% (dingbat "lsquo")) + +(define %gentext-bg-end-nested-quote% (dingbat "rsquo")) + +(define %gentext-bg-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous + ;; Authored "by" Jane Doe + +(define %gentext-bg-edited-by% "&Editedby;") + ;; "Edited by" Jane Doe + +(define %gentext-bg-revised-by% "&Revisedby;") + ;; "Revised by" Jane Doe + +(define %gentext-bg-page% "") + +(define %gentext-bg-and% "∧") + +(define %gentext-bg-listcomma% "&listcomma;") + +(define %gentext-bg-lastlistcomma% "&lastlistcomma;") + +(define %gentext-bg-bibl-pages% "&Pgs;") + +(define %gentext-bg-endnotes% "&Notes;") + +(define %gentext-bg-table-endnotes% "&TableNotes;:") + +(define %gentext-bg-index-see% "&See;") + +(define %gentext-bg-index-seealso% "&SeeAlso;") + + +(define (gentext-bg-nav-prev prev) + (make sequence (literal "&nav-prev;"))) + +(define (gentext-bg-nav-prev-sibling prevsib) + (make sequence (literal "&nav-prev-sibling;"))) + +(define (gentext-bg-nav-next-sibling nextsib) + (make sequence (literal "&nav-next-sibling;"))) + +(define (gentext-bg-nav-next next) + (make sequence (literal "&nav-next;"))) + +(define (gentext-bg-nav-up up) + (make sequence (literal "&nav-up;"))) + +(define (gentext-bg-nav-home home) + (make sequence (literal "&nav-home;"))) + +</style-specification-body> +</style-specification> +</style-sheet> diff --git a/stylesheets/dsssl-1.79/common/dbl1bg.ent b/stylesheets/dsssl-1.79/common/dbl1bg.ent new file mode 100644 index 0000000..be544f2 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1bg.ent @@ -0,0 +1,172 @@ +<?xml version="1.0" encoding="US-ASCII"?> +<!-- This file is generated automatically. --> +<!-- Do not edit this file by hand! --> +<!-- See http://docbook.sourceforge.net/ --> +<!-- To update this file: edit the corresponding document at --> +<!-- http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/docbook/gentext/locale/ --> + +<!ENTITY Abstract "\U-0410;\U-043D;\U-043E;\U-0442;\U-0430;\U-0446;\U-0438;\U-044F;"> +<!ENTITY abstract "\U-0410;\U-043D;\U-043E;\U-0442;\U-0430;\U-0446;\U-0438;\U-044F;"> +<!ENTITY Answer "\U-041E;:"> +<!ENTITY answer "\U-041E;:"> +<!ENTITY Appendix "\U-041F;\U-0440;\U-0438;\U-043B;\U-043E;\U-0436;\U-0435;\U-043D;\U-0438;\U-0435;"> +<!ENTITY appendix "\U-043F;\U-0440;\U-0438;\U-043B;\U-043E;\U-0436;\U-0435;\U-043D;\U-0438;\U-0435;"> +<!ENTITY Article "\U-0421;\U-0442;\U-0430;\U-0442;\U-0438;\U-044F;"> +<!ENTITY article "\U-0421;\U-0442;\U-0430;\U-0442;\U-0438;\U-044F;"> +<!ENTITY Bibliography "\U-041B;\U-0438;\U-0442;\U-0435;\U-0440;\U-0430;\U-0442;\U-0443;\U-0440;\U-0430;"> +<!ENTITY bibliography "\U-041B;\U-0438;\U-0442;\U-0435;\U-0440;\U-0430;\U-0442;\U-0443;\U-0440;\U-0430;"> +<!ENTITY Book "\U-041A;\U-043D;\U-0438;\U-0433;\U-0430;"> +<!ENTITY book "\U-041A;\U-043D;\U-0438;\U-0433;\U-0430;"> +<!ENTITY CAUTION "\U-0412;\U-041D;\U-0418;\U-041C;\U-0410;\U-041D;\U-0418;\U-0415;"> +<!ENTITY Caution "\U-0412;\U-043D;\U-0438;\U-043C;\U-0430;\U-043D;\U-0438;\U-0435;"> +<!ENTITY caution "\U-0412;\U-043D;\U-0438;\U-043C;\U-0430;\U-043D;\U-0438;\U-0435;"> +<!ENTITY Chapter "\U-0413;\U-043B;\U-0430;\U-0432;\U-0430;"> +<!ENTITY chapter "\U-0433;\U-043B;\U-0430;\U-0432;\U-0430;"> +<!ENTITY Colophon "Colophon"> +<!ENTITY colophon "Colophon"> +<!ENTITY Copyright "Copyright"> +<!ENTITY copyright "Copyright"> +<!ENTITY Dedication "\U-041F;\U-043E;\U-0441;\U-0432;\U-0435;\U-0449;\U-0435;\U-043D;\U-0438;\U-0435;"> +<!ENTITY dedication "\U-041F;\U-043E;\U-0441;\U-0432;\U-0435;\U-0449;\U-0435;\U-043D;\U-0438;\U-0435;"> +<!ENTITY Edition "\U-0418;\U-0437;\U-0434;\U-0430;\U-043D;\U-0438;\U-0435;"> +<!ENTITY edition "\U-0418;\U-0437;\U-0434;\U-0430;\U-043D;\U-0438;\U-0435;"> +<!ENTITY Equation "\U-0424;\U-043E;\U-0440;\U-043C;\U-0443;\U-043B;\U-0430;"> +<!ENTITY equation "\U-0424;\U-043E;\U-0440;\U-043C;\U-0443;\U-043B;\U-0430;"> +<!ENTITY Example "\U-041F;\U-0440;\U-0438;\U-043C;\U-0435;\U-0440;"> +<!ENTITY example "\U-041F;\U-0440;\U-0438;\U-043C;\U-0435;\U-0440;"> +<!ENTITY Figure "\U-0424;\U-0438;\U-0433;\U-0443;\U-0440;\U-0430;"> +<!ENTITY figure "\U-0424;\U-0438;\U-0433;\U-0443;\U-0440;\U-0430;"> +<!ENTITY Glossary "\U-0422;\U-0435;\U-0440;\U-043C;\U-0438;\U-043D;\U-043E;\U-043B;\U-043E;\U-0433;\U-0438;\U-0447;\U-0435;\U-043D; \U-0440;\U-0435;\U-0447;\U-043D;\U-0438;\U-043A;"> +<!ENTITY glossary "\U-0422;\U-0435;\U-0440;\U-043C;\U-0438;\U-043D;\U-043E;\U-043B;\U-043E;\U-0433;\U-0438;\U-0447;\U-0435;\U-043D; \U-0440;\U-0435;\U-0447;\U-043D;\U-0438;\U-043A;"> +<!ENTITY GlossSee "\U-0432;\U-0436;."> +<!ENTITY glosssee "\U-0432;\U-0436;."> +<!ENTITY GlossSeeAlso "\U-0432;\U-0436;. \U-0441;\U-044A;\U-0449;\U-043E;"> +<!ENTITY glossseealso "\U-0432;\U-0436;. \U-0441;\U-044A;\U-0449;\U-043E;"> +<!ENTITY IMPORTANT "\U-0412;\U-0410;\U-0416;\U-041D;\U-041E;"> +<!ENTITY important "\U-0412;\U-0430;\U-0436;\U-043D;\U-043E;"> +<!ENTITY Important "\U-0412;\U-0430;\U-0436;\U-043D;\U-043E;"> +<!ENTITY Index "\U-0418;\U-043D;\U-0434;\U-0435;\U-043A;\U-0441;"> +<!ENTITY index "\U-0418;\U-043D;\U-0434;\U-0435;\U-043A;\U-0441;"> +<!ENTITY ISBN "ISBN"> +<!ENTITY isbn "ISBN"> +<!ENTITY LegalNotice "\U-0410;\U-0432;\U-0442;\U-043E;\U-0440;\U-0441;\U-043A;\U-0438; \U-043F;\U-0440;\U-0430;\U-0432;\U-0430;"> +<!ENTITY legalnotice "\U-0410;\U-0432;\U-0442;\U-043E;\U-0440;\U-0441;\U-043A;\U-0438; \U-043F;\U-0440;\U-0430;\U-0432;\U-0430;"> +<!ENTITY MsgAud "Audience"> +<!ENTITY msgaud "Audience"> +<!ENTITY MsgLevel "\U-041D;\U-0438;\U-0432;\U-043E;"> +<!ENTITY msglevel "\U-041D;\U-0438;\U-0432;\U-043E;"> +<!ENTITY MsgOrig "\U-0418;\U-0437;\U-0442;\U-043E;\U-0447;\U-043D;\U-0438;\U-043A;"> +<!ENTITY msgorig "\U-0418;\U-0437;\U-0442;\U-043E;\U-0447;\U-043D;\U-0438;\U-043A;"> +<!ENTITY NOTE "\U-0417;\U-0410;\U-0411;\U-0415;\U-041B;\U-0415;\U-0416;\U-041A;\U-0410;"> +<!ENTITY Note "\U-0417;\U-0430;\U-0431;\U-0435;\U-043B;\U-0435;\U-0436;\U-043A;\U-0430;"> +<!ENTITY note "\U-0417;\U-0430;\U-0431;\U-0435;\U-043B;\U-0435;\U-0436;\U-043A;\U-0430;"> +<!ENTITY Part "\U-0427;\U-0430;\U-0441;\U-0442;"> +<!ENTITY part "\U-0427;\U-0430;\U-0441;\U-0442;"> +<!ENTITY Preface "\U-041F;\U-0440;\U-0435;\U-0434;\U-0433;\U-043E;\U-0432;\U-043E;\U-0440;"> +<!ENTITY preface "\U-041F;\U-0440;\U-0435;\U-0434;\U-0433;\U-043E;\U-0432;\U-043E;\U-0440;"> +<!ENTITY Procedure "\U-041F;\U-0440;\U-043E;\U-0446;\U-0435;\U-0434;\U-0443;\U-0440;\U-0430;"> +<!ENTITY procedure "\U-041F;\U-0440;\U-043E;\U-0446;\U-0435;\U-0434;\U-0443;\U-0440;\U-0430;"> +<!ENTITY ProductionSet "Production"> +<!ENTITY PubDate "\U-0414;\U-0430;\U-0442;\U-0430; \U-043D;\U-0430; \U-0438;\U-0437;\U-0434;\U-0430;\U-0432;\U-0430;\U-043D;\U-0435;"> +<!ENTITY pubdate "\U-0414;\U-0430;\U-0442;\U-0430; \U-043D;\U-0430; \U-0438;\U-0437;\U-0434;\U-0430;\U-0432;\U-0430;\U-043D;\U-0435;"> +<!ENTITY Published "\U-0418;\U-0437;\U-0434;\U-0430;\U-0434;\U-0435;\U-043D;"> +<!ENTITY published "\U-0418;\U-0437;\U-0434;\U-0430;\U-0434;\U-0435;\U-043D;"> +<!ENTITY Qandadiv "\U-0412;\U-044A;\U-043F;\U-0440;\U-043E;\U-0441;\U-0438; \U-0438; \U-043E;\U-0442;\U-0433;\U-043E;\U-0432;\U-043E;\U-0440;\U-0438;"> +<!ENTITY qandadiv "\U-0412;\U-044A;\U-043F;\U-0440;\U-043E;\U-0441;\U-0438; \U-0438; \U-043E;\U-0442;\U-0433;\U-043E;\U-0432;\U-043E;\U-0440;\U-0438;"> +<!ENTITY Question "\U-0412;:"> +<!ENTITY question "\U-0412;:"> +<!ENTITY RefEntry ""> +<!ENTITY refentry ""> +<!ENTITY Reference "\U-0421;\U-043F;\U-0440;\U-0430;\U-0432;\U-043E;\U-0447;\U-043D;\U-0438;\U-043A;"> +<!ENTITY reference "\U-0421;\U-043F;\U-0440;\U-0430;\U-0432;\U-043E;\U-0447;\U-043D;\U-0438;\U-043A;"> +<!ENTITY RefName "\U-041D;\U-0430;\U-0437;\U-0432;\U-0430;\U-043D;\U-0438;\U-0435;"> +<!ENTITY refname "\U-041D;\U-0430;\U-0437;\U-0432;\U-0430;\U-043D;\U-0438;\U-0435;"> +<!ENTITY RefSection ""> +<!ENTITY refsection ""> +<!ENTITY RefSynopsisDiv "\U-0421;\U-0438;\U-043D;\U-0442;\U-0430;\U-043A;\U-0441;\U-0438;\U-0441;"> +<!ENTITY refsynopsisdiv "\U-0421;\U-0438;\U-043D;\U-0442;\U-0430;\U-043A;\U-0441;\U-0438;\U-0441;"> +<!ENTITY RevHistory "\U-041F;\U-0440;\U-043E;\U-043C;\U-0435;\U-043D;\U-0438;"> +<!ENTITY revhistory "\U-041F;\U-0440;\U-043E;\U-043C;\U-0435;\U-043D;\U-0438;"> +<!ENTITY revision "\U-0418;\U-0437;\U-0434;\U-0430;\U-043D;\U-0438;\U-0435;"> +<!ENTITY Revision "\U-0418;\U-0437;\U-0434;\U-0430;\U-043D;\U-0438;\U-0435;"> +<!ENTITY sect1 "\U-0420;\U-0430;\U-0437;\U-0434;\U-0435;\U-043B;"> +<!ENTITY sect2 "\U-0420;\U-0430;\U-0437;\U-0434;\U-0435;\U-043B;"> +<!ENTITY sect3 "\U-0420;\U-0430;\U-0437;\U-0434;\U-0435;\U-043B;"> +<!ENTITY sect4 "\U-0420;\U-0430;\U-0437;\U-0434;\U-0435;\U-043B;"> +<!ENTITY sect5 "\U-0420;\U-0430;\U-0437;\U-0434;\U-0435;\U-043B;"> +<!ENTITY section "\U-0420;\U-0430;\U-0437;\U-0434;\U-0435;\U-043B;"> +<!ENTITY Section "\U-0420;\U-0430;\U-0437;\U-0434;\U-0435;\U-043B;"> +<!ENTITY see "\U-0432;\U-0436;."> +<!ENTITY See "\U-0412;\U-0436;."> +<!ENTITY seealso "\U-0432;\U-0436;. \U-0441;\U-044A;\U-0449;\U-043E;"> +<!ENTITY Seealso "\U-0412;\U-0436;. \U-0441;\U-044A;\U-0449;\U-043E;"> +<!ENTITY SeeAlso "\U-0412;\U-0436;. \U-0441;\U-044A;\U-0449;\U-043E;"> +<!ENTITY set "\U-0423;\U-043A;\U-0430;\U-0437;\U-0430;\U-0442;\U-0435;\U-043B;"> +<!ENTITY Set "\U-0423;\U-043A;\U-0430;\U-0437;\U-0430;\U-0442;\U-0435;\U-043B;"> +<!ENTITY setindex "\U-0423;\U-043A;\U-0430;\U-0437;\U-0430;\U-0442;\U-0435;\U-043B;"> +<!ENTITY SetIndex "\U-0423;\U-043A;\U-0430;\U-0437;\U-0430;\U-0442;\U-0435;\U-043B;"> +<!ENTITY Sidebar "\U-0420;\U-0430;\U-0437;\U-0434;\U-0435;\U-043B;\U-0438;\U-0442;\U-0435;\U-043B;"> +<!ENTITY sidebar "\U-0440;\U-0430;\U-0437;\U-0434;\U-0435;\U-043B;\U-0438;\U-0442;\U-0435;\U-043B;"> +<!ENTITY step "\U-0421;\U-0442;\U-044A;\U-043F;\U-043A;\U-0430;"> +<!ENTITY Step "\U-0421;\U-0442;\U-044A;\U-043F;\U-043A;\U-0430;"> +<!ENTITY Table "\U-0422;\U-0430;\U-0431;\U-043B;\U-0438;\U-0446;\U-0430;"> +<!ENTITY table "\U-0422;\U-0430;\U-0431;\U-043B;\U-0438;\U-0446;\U-0430;"> +<!ENTITY tip "\U-041F;\U-043E;\U-0437;\U-0434;\U-0441;\U-043A;\U-0430;\U-0437;\U-043A;\U-0430;"> +<!ENTITY TIP "\U-041F;\U-041E;\U-0414;\U-0421;\U-041A;\U-0410;\U-0417;\U-041A;\U-0410;"> +<!ENTITY Tip "\U-041F;\U-043E;\U-0437;\U-0434;\U-0441;\U-043A;\U-0430;\U-0437;\U-043A;\U-0430;"> +<!ENTITY Warning "\U-0412;\U-043D;\U-0438;\U-043C;\U-0430;\U-043D;\U-0438;\U-0435;"> +<!ENTITY warning "\U-0412;\U-043D;\U-0438;\U-043C;\U-0430;\U-043D;\U-0438;\U-0435;"> +<!ENTITY WARNING "\U-0412;\U-041D;\U-0418;\U-041C;\U-0410;\U-041D;\U-0418;\U-0415;"> +<!ENTITY and ""> +<!ENTITY by ""> +<!ENTITY called "called"> +<!ENTITY Edited "\U-0420;\U-0435;\U-0434;\U-0430;\U-043A;\U-0442;\U-0438;\U-0440;\U-0430;\U-043D;\U-043E; \U-043E;\U-0442;"> +<!ENTITY edited "\U-0420;\U-0435;\U-0434;\U-0430;\U-043A;\U-0442;\U-0438;\U-0440;\U-0430;\U-043D;\U-043E; \U-043E;\U-0442;"> +<!ENTITY Editedby "\U-0420;\U-0435;\U-0434;\U-0430;\U-043A;\U-0442;\U-0438;\U-0440;\U-0430;\U-043D;\U-043E; \U-043E;\U-0442;"> +<!ENTITY editedby "\U-0420;\U-0435;\U-0434;\U-0430;\U-043A;\U-0442;\U-0438;\U-0440;\U-0430;\U-043D;\U-043E; \U-043E;\U-0442;"> +<!ENTITY in "\U-0432;"> +<!ENTITY lastlistcomma ","> +<!ENTITY listcomma ","> +<!ENTITY nonexistantelement "non-existant element"> +<!ENTITY notes "\U-0417;\U-0430;\U-0431;\U-0435;\U-043B;\U-0435;\U-0436;\U-043A;\U-0438;"> +<!ENTITY Notes "\U-0417;\U-0430;\U-0431;\U-0435;\U-043B;\U-0435;\U-0436;\U-043A;\U-0438;"> +<!ENTITY Pgs "\U-0441;\U-0442;\U-0440;."> +<!ENTITY pgs "\U-0441;\U-0442;\U-0440;."> +<!ENTITY Revisedby "\U-041E;\U-0434;\U-043E;\U-0431;\U-0440;\U-0435;\U-043D;\U-043E; \U-043E;\U-0442;: "> +<!ENTITY revisedby "\U-041E;\U-0434;\U-043E;\U-0431;\U-0440;\U-0435;\U-043D;\U-043E; \U-043E;\U-0442;: "> +<!ENTITY TableNotes "\U-0417;\U-0430;\U-0431;\U-0435;\U-043B;\U-0435;\U-0436;\U-043A;\U-0438;"> +<!ENTITY tablenotes "\U-0417;\U-0430;\U-0431;\U-0435;\U-043B;\U-0435;\U-0436;\U-043A;\U-0438;"> +<!ENTITY TableofContents "\U-0421;\U-044A;\U-0434;\U-044A;\U-0440;\U-0436;\U-0430;\U-043D;\U-0438;\U-0435;"> +<!ENTITY tableofcontents "\U-0421;\U-044A;\U-0434;\U-044A;\U-0440;\U-0436;\U-0430;\U-043D;\U-0438;\U-0435;"> +<!ENTITY the ""> +<!ENTITY unexpectedelementname "unexpected element name"> +<!ENTITY unsupported "unsupported"> +<!ENTITY xrefto "xref to"> +<!ENTITY listofequations "\U-0421;\U-043F;\U-0438;\U-0441;\U-044A;\U-043A; \U-043D;\U-0430; \U-0444;\U-043E;\U-0440;\U-043C;\U-0443;\U-043B;\U-0438;\U-0442;\U-0435;"> +<!ENTITY ListofEquations "\U-0421;\U-043F;\U-0438;\U-0441;\U-044A;\U-043A; \U-043D;\U-0430; \U-0444;\U-043E;\U-0440;\U-043C;\U-0443;\U-043B;\U-0438;\U-0442;\U-0435;"> +<!ENTITY ListofExamples "\U-0421;\U-043F;\U-0438;\U-0441;\U-044A;\U-043A; \U-043D;\U-0430; \U-043F;\U-0440;\U-0438;\U-043C;\U-0435;\U-0440;\U-0438;\U-0442;\U-0435;"> +<!ENTITY listofexamples "\U-0421;\U-043F;\U-0438;\U-0441;\U-044A;\U-043A; \U-043D;\U-0430; \U-043F;\U-0440;\U-0438;\U-043C;\U-0435;\U-0440;\U-0438;\U-0442;\U-0435;"> +<!ENTITY ListofFigures "\U-0421;\U-043F;\U-0438;\U-0441;\U-044A;\U-043A; \U-043D;\U-0430; \U-0444;\U-0438;\U-0433;\U-0443;\U-0440;\U-0438;\U-0442;\U-0435;"> +<!ENTITY listoffigures "\U-0421;\U-043F;\U-0438;\U-0441;\U-044A;\U-043A; \U-043D;\U-0430; \U-0444;\U-0438;\U-0433;\U-0443;\U-0440;\U-0438;\U-0442;\U-0435;"> +<!ENTITY ListofProcedures "\U-0421;\U-043F;\U-0438;\U-0441;\U-044A;\U-043A; \U-043D;\U-0430; \U-043F;\U-0440;\U-043E;\U-0446;\U-0435;\U-0434;\U-0443;\U-0440;\U-0438;\U-0442;\U-0435;"> +<!ENTITY listofprocedures "\U-0421;\U-043F;\U-0438;\U-0441;\U-044A;\U-043A; \U-043D;\U-0430; \U-043F;\U-0440;\U-043E;\U-0446;\U-0435;\U-0434;\U-0443;\U-0440;\U-0438;\U-0442;\U-0435;"> +<!ENTITY listoftables "\U-0421;\U-043F;\U-0438;\U-0441;\U-044A;\U-043A; \U-043D;\U-0430; \U-0442;\U-0430;\U-0431;\U-043B;\U-0438;\U-0446;\U-0438;\U-0442;\U-0435;"> +<!ENTITY ListofTables "\U-0421;\U-043F;\U-0438;\U-0441;\U-044A;\U-043A; \U-043D;\U-0430; \U-0442;\U-0430;\U-0431;\U-043B;\U-0438;\U-0446;\U-0438;\U-0442;\U-0435;"> +<!ENTITY ListofUnknown "\U-041D;\U-0435;\U-043E;\U-043F;\U-0440;\U-0435;\U-0434;\U-0435;\U-043B;\U-0435;\U-043D; \U-0441;\U-043F;\U-0438;\U-0441;\U-044A;\U-043A;"> +<!ENTITY listofunknown "\U-041D;\U-0435;\U-043E;\U-043F;\U-0440;\U-0435;\U-0434;\U-0435;\U-043B;\U-0435;\U-043D; \U-0441;\U-043F;\U-0438;\U-0441;\U-044A;\U-043A;"> +<!ENTITY nav-home "\U-041D;\U-0430;\U-0447;\U-0430;\U-043B;\U-043E;"> +<!ENTITY nav-next "\U-0421;\U-043B;\U-0435;\U-0434;\U-0432;\U-0430;\U-0449;\U-0430; \U-0441;\U-0442;\U-0440;\U-0430;\U-043D;\U-0438;\U-0446;\U-0430;"> +<!ENTITY nav-next-sibling "\U-0421;\U-043B;\U-0435;\U-0434;\U-0432;\U-0430;\U-0449; \U-0440;\U-0430;\U-0437;\U-0434;\U-0435;\U-043B;"> +<!ENTITY nav-prev "\U-041F;\U-0440;\U-0435;\U-0434;\U-0438;\U-0448;\U-043D;\U-0430; \U-0441;\U-0442;\U-0440;\U-0430;\U-043D;\U-0438;\U-0446;\U-0430;"> +<!ENTITY nav-prev-sibling "\U-041F;\U-0440;\U-0435;\U-0434;\U-0438;\U-0448;\U-0435;\U-043D; \U-0440;\U-0430;\U-0437;\U-0434;\U-0435;\U-043B;"> +<!ENTITY nav-up "\U-041D;\U-0430;\U-0447;\U-0430;\U-043B;\U-043E; \U-043D;\U-0430; \U-0440;\U-0430;\U-0437;\U-0434;\U-0435;\U-043B;\U-0430;"> +<!ENTITY nav-toc "\U-0421;\U-044A;\U-0434;\U-044A;\U-0440;\U-0436;\U-0430;\U-043D;\U-0438;\U-0435;"> +<!ENTITY Draft "\U-0427;\U-0435;\U-0440;\U-043D;\U-043E;\U-0432;\U-0430;"> +<!ENTITY above "\U-043F;\U-043E;-\U-0433;\U-043E;\U-0440;\U-0435;"> +<!ENTITY below "\U-043F;\U-043E;-\U-0434;\U-043E;\U-043B;\U-0443;"> +<!ENTITY sectioncalled "the section called"> +<!ENTITY lowercase.alpha "\U-0430;\U-0431;\U-0432;\U-0433;\U-0434;\U-0435;\U-0436;\U-0437;\U-0438;\U-0439;\U-043A;\U-043B;\U-043C;\U-043D;\U-043E;\U-043F;\U-0440;\U-0441;\U-0442;\U-0443;\U-0444;\U-0445;\U-0446;\U-0447;\U-0448;\U-0449;\U-044A;\U-044B;\U-044C;\U-044D;\U-044E;\U-044F;"> +<!ENTITY uppercase.alpha "\U-0410;\U-0411;\U-0412;\U-0413;\U-0414;\U-0415;\U-0416;\U-0417;\U-0418;\U-0419;\U-041A;\U-041B;\U-041C;\U-041D;\U-041E;\U-041F;\U-0420;\U-0421;\U-0422;\U-0423;\U-0424;\U-0425;\U-0426;\U-0427;\U-0428;\U-0429;\U-042A;\U-042B;\U-042C;\U-042D;\U-042E;\U-042F;"> +<!ENTITY hyphenation-character "-"> +<!ENTITY hyphenation-push-character-count "2"> +<!ENTITY hyphenation-remain-character-count "2"> diff --git a/stylesheets/dsssl-1.79/common/dbl1bs.dsl b/stylesheets/dsssl-1.79/common/dbl1bs.dsl new file mode 100644 index 0000000..fe63f66 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1bs.dsl @@ -0,0 +1,444 @@ +<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ +<!ENTITY % bs.words + PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//BS" + "dbl1bs.ent"> +%bs.words; +]> + +<style-sheet> +<style-specification id="docbook-l10n-bs"> +<style-specification-body> + +;; $Id: dbl1bs.dsl,v 1.2 2004/10/09 21:16:26 petere78 Exp $ +;; +;; This file is part of the Modular DocBook Stylesheet distribution. +;; See ../README or http://nwalsh.com/docbook/dsssl/ +;; + +;; ----------------------------- Localization ----------------------------- + +;; If you create a new version of this file, please send it to +;; Norman Walsh, ndw@nwalsh.com + +;; The generated text for cross references to elements. See dblink.dsl +;; for a discussion of how substitution is performed on the %x +;; keywords. +;; + +(define (bs-author-string #!optional (author (current-node))) + ;; Return a formatted string representation of the contents of: + ;; AUTHOR: + ;; Handles Honorific, FirstName, SurName, and Lineage. + ;; If %author-othername-in-middle% is #t, also OtherName + ;; Handles *only* the first of each. + ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" + ;; CORPAUTHOR: + ;; returns (data corpauthor) + (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) + (f_nl (select-elements (descendants author) (normalize "firstname"))) + (o_nl (select-elements (descendants author) (normalize "othername"))) + (s_nl (select-elements (descendants author) (normalize "surname"))) + (l_nl (select-elements (descendants author) (normalize "lineage"))) + (has_h (not (node-list-empty? h_nl))) + (has_f (not (node-list-empty? f_nl))) + (has_o (and %author-othername-in-middle% + (not (node-list-empty? o_nl)))) + (has_s (not (node-list-empty? s_nl))) + (has_l (not (node-list-empty? l_nl)))) + (if (or (equal? (gi author) (normalize "author")) + (equal? (gi author) (normalize "editor")) + (equal? (gi author) (normalize "othercredit"))) + (string-append + (if has_h (string-append (data-of (node-list-first h_nl)) + %honorific-punctuation%) "") + (if has_f (string-append + (if has_h " " "") + (data-of (node-list-first f_nl))) "") + (if has_o (string-append + (if (or has_h has_f) " " "") + (data-of (node-list-first o_nl))) "") + (if has_s (string-append + (if (or has_h has_f has_o) " " "") + (data-of (node-list-first s_nl))) "") + (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) + (data-of author)))) + +(define (bs-xref-strings) + (list (list (normalize "appendix") (if %chapter-autolabel% + "&Appendix; %n" + "&appendix; sa nazivom %t")) + (list (normalize "article") (string-append %gentext-bs-start-quote% + "%t" + %gentext-bs-end-quote%)) + (list (normalize "bibliography") "%t") + (list (normalize "book") "%t") + (list (normalize "chapter") (if %chapter-autolabel% + "&Chapter; %n" + "&chapter; sa nazivom %t")) + (list (normalize "equation") "&Equation; %n") + (list (normalize "example") "&Example; %n") + (list (normalize "figure") "&Figure; %n") + (list (normalize "glossary") "%t") + (list (normalize "index") "%t") + (list (normalize "listitem") "%n") + (list (normalize "part") "&Part; %n") + (list (normalize "preface") "%t") + (list (normalize "procedure") "&Procedure; %n, %t") + (list (normalize "reference") "&Reference; %n, %t") + (list (normalize "section") (if %section-autolabel% + "&Section; %n" + "§ion; sa nazivom %t")) + (list (normalize "sect1") (if %section-autolabel% + "&Section; %n" + "§ion; sa nazivom %t")) + (list (normalize "sect2") (if %section-autolabel% + "&Section; %n" + "§ion; sa nazivom %t")) + (list (normalize "sect3") (if %section-autolabel% + "&Section; %n" + "§ion; sa nazivom %t")) + (list (normalize "sect4") (if %section-autolabel% + "&Section; %n" + "§ion; sa nazivom %t")) + (list (normalize "sect5") (if %section-autolabel% + "&Section; %n" + "§ion; sa nazivom %t")) + (list (normalize "simplesect") (if %section-autolabel% + "&Section; %n" + "§ion; sa nazivom %t")) + (list (normalize "sidebar") "the &sidebar; %t") + (list (normalize "step") "&step; %n") + (list (normalize "table") "&Table; %n"))) + +(define (gentext-bs-xref-strings gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (xref (assoc name (bs-xref-strings)))) + (if xref + (car (cdr xref)) + (let* ((msg (string-append "[&xrefto; " + (if giname giname "&nonexistantelement;") + " &unsupported;]")) + (err (node-list-error msg (current-node)))) + msg)))) + +(define (bs-auto-xref-indirect-connector before) + ;; In English, the (cond) is unnecessary since the word is always the + ;; same, but in other languages, that's not the case. I've set this + ;; one up with the (cond) so it stands as an example. + (cond + ((equal? (gi before) (normalize "book")) + (literal " ∈ ")) + ((equal? (gi before) (normalize "chapter")) + (literal " ∈ ")) + ((equal? (gi before) (normalize "sect1")) + (literal " ∈ ")) + (else + (literal " ∈ ")))) + +;; Should the TOC come first or last? +;; +(define %generate-bs-toc-in-front% #t) + +;; gentext-element-name returns the generated text that should be +;; used to make reference to the selected element. +;; + +(define (bs-element-name) + (list + (list (normalize "abstract") "&Abstract;") + (list (normalize "answer") "&Answer;") + (list (normalize "appendix") "&Appendix;") + (list (normalize "article") "&Article;") + (list (normalize "bibliography") "&Bibliography;") + (list (normalize "book") "&Book;") + (list (normalize "calloutlist") "") + (list (normalize "caution") "&Caution;") + (list (normalize "chapter") "&Chapter;") + (list (normalize "copyright") "&Copyright;") + (list (normalize "dedication") "&Dedication;") + (list (normalize "edition") "&Edition;") + (list (normalize "equation") "&Equation;") + (list (normalize "example") "&Example;") + (list (normalize "figure") "&Figure;") + (list (normalize "glossary") "&Glossary;") + (list (normalize "glosssee") "&GlossSee;") + (list (normalize "glossseealso") "&GlossSeeAlso;") + (list (normalize "important") "&Important;") + (list (normalize "index") "&Index;") + (list (normalize "colophon") "&Colophon;") + (list (normalize "setindex") "&SetIndex;") + (list (normalize "isbn") "&isbn;") + (list (normalize "legalnotice") "&LegalNotice;") + (list (normalize "msgaud") "&MsgAud;") + (list (normalize "msglevel") "&MsgLevel;") + (list (normalize "msgorig") "&MsgOrig;") + (list (normalize "note") "&Note;") + (list (normalize "part") "&Part;") + (list (normalize "preface") "&Preface;") + (list (normalize "procedure") "&Procedure;") + (list (normalize "pubdate") "&Published;") + (list (normalize "question") "&Question;") + (list (normalize "refentry") "&RefEntry;") + (list (normalize "reference") "&Reference;") + (list (normalize "refname") "&RefName;") + (list (normalize "revhistory") "&RevHistory;") + (list (normalize "refsect1") "&RefSection;") + (list (normalize "refsect2") "&RefSection;") + (list (normalize "refsect3") "&RefSection;") + (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") + (list (normalize "revision") "&Revision;") + (list (normalize "sect1") "&Section;") + (list (normalize "sect2") "&Section;") + (list (normalize "sect3") "&Section;") + (list (normalize "sect4") "&Section;") + (list (normalize "sect5") "&Section;") + (list (normalize "section") "&Section;") + (list (normalize "simplesect") "&Section;") + (list (normalize "seeie") "&see;") + (list (normalize "seealsoie") "&seealso;") + (list (normalize "set") "&Set;") + (list (normalize "sidebar") "&Sidebar;") + (list (normalize "step") "&step;") + (list (normalize "table") "&Table;") + (list (normalize "tip") "&Tip;") + (list (normalize "toc") "&TableofContents;") + (list (normalize "warning") "&Warning;") + )) + +(define (gentext-bs-element-name gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (pname (assoc name (bs-element-name)))) + (if pname + (car (cdr pname)) + (let* ((msg (string-append + "gentext-bs-element-name: &unexpectedelementname;: " + name)) + (err (node-list-error msg (current-node)))) + msg)))) + +;; gentext-element-name-space returns gentext-element-name with a +;; trailing space, if gentext-element-name isn't "". +;; +(define (gentext-bs-element-name-space giname) + (string-with-space (gentext-element-name giname))) + +;; gentext-intra-label-sep returns the seperator to be inserted +;; between multiple occurances of a label (or parts of a label) +;; for the specified element. Most of these are for enumerated +;; labels like "Figure 2-4", but this function is used elsewhere +;; (e.g. REFNAME) with a little abuse. +;; + +(define (local-bs-intra-label-sep) + (list)) + +(define (bs-intra-label-sep) + (list + (list (normalize "equation") "-") + (list (normalize "informalequation") "-") + (list (normalize "example") "-") + (list (normalize "figure") "-") + (list (normalize "listitem") ".") + (list (normalize "procedure") ".") + (list (normalize "refentry") ".") + (list (normalize "reference") ".") + (list (normalize "refname") ", ") + (list (normalize "refsect1") ".") + (list (normalize "refsect2") ".") + (list (normalize "refsect3") ".") + (list (normalize "sect1") ".") + (list (normalize "sect2") ".") + (list (normalize "sect3") ".") + (list (normalize "sect4") ".") + (list (normalize "sect5") ".") + (list (normalize "section") ".") + (list (normalize "simplesect") ".") + (list (normalize "step") ".") + (list (normalize "table") "-") + (list (normalize "_pagenumber") "-") + )) + +(define (gentext-bs-intra-label-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-bs-intra-label-sep))) + (sep (assoc name (bs-intra-label-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +;; gentext-label-title-sep returns the seperator to be inserted +;; between a label and the text following the label for the +;; specified element. Most of these are for use between +;; enumerated labels and titles like "1. Chapter One Title", but +;; this function is used elsewhere (e.g. NOTE) with a little +;; abuse. +;; + +(define (local-bs-label-title-sep) + (list)) + +(define (bs-label-title-sep) + (list + (list (normalize "abstract") ": ") + (list (normalize "answer") " ") + (list (normalize "appendix") ". ") + (list (normalize "caution") "") + (list (normalize "chapter") ". ") + (list (normalize "equation") ". ") + (list (normalize "example") ". ") + (list (normalize "figure") ". ") + (list (normalize "footnote") ". ") + (list (normalize "glosssee") ": ") + (list (normalize "glossseealso") ": ") + (list (normalize "important") ": ") + (list (normalize "note") ": ") + (list (normalize "orderedlist") ". ") + (list (normalize "part") ". ") + (list (normalize "procedure") ". ") + (list (normalize "prefix") ". ") + (list (normalize "question") " ") + (list (normalize "refentry") "") + (list (normalize "reference") ". ") + (list (normalize "refsect1") ". ") + (list (normalize "refsect2") ". ") + (list (normalize "refsect3") ". ") + (list (normalize "sect1") ". ") + (list (normalize "sect2") ". ") + (list (normalize "sect3") ". ") + (list (normalize "sect4") ". ") + (list (normalize "sect5") ". ") + (list (normalize "section") ". ") + (list (normalize "simplesect") ". ") + (list (normalize "seeie") " ") + (list (normalize "seealsoie") " ") + (list (normalize "step") ". ") + (list (normalize "table") ". ") + (list (normalize "tip") ": ") + (list (normalize "warning") "") + )) + +(define (gentext-bs-label-title-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-bs-label-title-sep))) + (sep (assoc name (bs-label-title-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +(define (bs-label-number-format-list) + (list + (list (normalize "set") "1") + (list (normalize "book") "1") + (list (normalize "prefix") "1") + (list (normalize "part") "I") + (list (normalize "chapter") "1") + (list (normalize "appendix") "A") + (list (normalize "reference") "I") + (list (normalize "example") "1") + (list (normalize "figure") "1") + (list (normalize "table") "1") + (list (normalize "procedure") "1") + (list (normalize "step") "1") + (list (normalize "refsect1") "1") + (list (normalize "refsect2") "1") + (list (normalize "refsect3") "1") + (list (normalize "sect1") "1") + (list (normalize "sect2") "1") + (list (normalize "sect3") "1") + (list (normalize "sect4") "1") + (list (normalize "sect5") "1") + (list (normalize "section") "1") + )) + +(define (bs-label-number-format gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (format (assoc name (bs-label-number-format-list)))) + (if format + (car (cdr format)) + "1"))) + +(define (bs-lot-title) + (list + (list (normalize "table") "&ListofTables;") + (list (normalize "example") "&ListofExamples;") + (list (normalize "figure") "&ListofFigures;") + (list (normalize "equation") "&ListofEquations;") + )) + +(define ($lot-title-bs$ gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (title (assoc name (bs-lot-title)))) + (if title + (car (cdr title)) + (let* ((msg (string-append "&ListofUnknown;: " name)) + (err (node-list-error msg (current-node)))) + msg)))) + +(define %gentext-bs-start-quote% (dingbat "ldquo")) + +(define %gentext-bs-end-quote% (dingbat "rdquo")) + +(define %gentext-bs-start-nested-quote% (dingbat "lsquo")) + +(define %gentext-bs-end-nested-quote% (dingbat "rsquo")) + +(define %gentext-bs-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous + ;; Authored "by" Jane Doe + +(define %gentext-bs-edited-by% "&Editedby;") + ;; "Edited by" Jane Doe + +(define %gentext-bs-revised-by% "&Revisedby;") + ;; "Revised by" Jane Doe + +(define %gentext-bs-page% "") + +(define %gentext-bs-and% "∧") + +(define %gentext-bs-listcomma% "&listcomma;") + +(define %gentext-bs-lastlistcomma% "&lastlistcomma;") + +(define %gentext-bs-bibl-pages% "&Pgs;") + +(define %gentext-bs-endnotes% "&Notes;") + +(define %gentext-bs-table-endnotes% "&TableNotes;:") + +(define %gentext-bs-index-see% "&see;") + +(define %gentext-bs-index-seealso% "&seealso;") + + +(define (gentext-bs-nav-prev prev) + (make sequence (literal "&nav-prev;"))) + +(define (gentext-bs-nav-prev-sibling prevsib) + (make sequence (literal "&nav-prev-sibling;"))) + +(define (gentext-bs-nav-next-sibling nextsib) + (make sequence (literal "&nav-next-sibling;"))) + +(define (gentext-bs-nav-next next) + (make sequence (literal "&nav-next;"))) + +(define (gentext-bs-nav-up up) + (make sequence (literal "&nav-up;"))) + +(define (gentext-bs-nav-home home) + (make sequence (literal "&nav-home;"))) + + +</style-specification-body> +</style-specification> +</style-sheet> diff --git a/stylesheets/dsssl-1.79/common/dbl1bs.ent b/stylesheets/dsssl-1.79/common/dbl1bs.ent new file mode 100644 index 0000000..c485ff6 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1bs.ent @@ -0,0 +1,172 @@ +<?xml version="1.0" encoding="US-ASCII"?> +<!-- This file is generated automatically. --> +<!-- Do not edit this file by hand! --> +<!-- See http://docbook.sourceforge.net/ --> +<!-- To update this file: edit the corresponding document at --> +<!-- http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/docbook/gentext/locale/ --> + +<!ENTITY Abstract "Sa\U-017E;etak"> +<!ENTITY abstract "Sa\U-017E;etak"> +<!ENTITY Answer "O:"> +<!ENTITY answer "O:"> +<!ENTITY Appendix "Dodatak"> +<!ENTITY appendix "Dodatak"> +<!ENTITY Article "\U-010C;lanak"> +<!ENTITY article "\U-010C;lanak"> +<!ENTITY Bibliography "Literatura"> +<!ENTITY bibliography "Literatura"> +<!ENTITY Book "Knjiga"> +<!ENTITY book "Knjiga"> +<!ENTITY CAUTION "PA\U-017D;NJA"> +<!ENTITY Caution "Pa\U-017E;nja"> +<!ENTITY caution "Pa\U-017E;nja"> +<!ENTITY Chapter "Poglavlje"> +<!ENTITY chapter "Poglavlje"> +<!ENTITY Colophon "Kolofon"> +<!ENTITY colophon "Kolofon"> +<!ENTITY Copyright "Autorska prava"> +<!ENTITY copyright "Autorska prava"> +<!ENTITY Dedication "Posveta"> +<!ENTITY dedication "Posveta"> +<!ENTITY Edition "Izdanje"> +<!ENTITY edition "Izdanje"> +<!ENTITY Equation "Jedna\U-010D;ina"> +<!ENTITY equation "Jedna\U-010D;ina"> +<!ENTITY Example "Primjer"> +<!ENTITY example "Primjer"> +<!ENTITY Figure "Slika"> +<!ENTITY figure "Slika"> +<!ENTITY Glossary "Glosar"> +<!ENTITY glossary "Glosar"> +<!ENTITY GlossSee "Vidi"> +<!ENTITY glosssee "Vidi"> +<!ENTITY GlossSeeAlso "Vidi tako\U-0111;e"> +<!ENTITY glossseealso "Vidi tako\U-0111;e"> +<!ENTITY IMPORTANT "VA\U-017D;NO"> +<!ENTITY important "Va\U-017E;no"> +<!ENTITY Important "Va\U-017E;no"> +<!ENTITY Index "Indeks"> +<!ENTITY index "Indeks"> +<!ENTITY ISBN "ISBN"> +<!ENTITY isbn "ISBN"> +<!ENTITY LegalNotice "Pravne odredbe"> +<!ENTITY legalnotice "Pravne odredbe"> +<!ENTITY MsgAud "Primatelji"> +<!ENTITY msgaud "Primatelji"> +<!ENTITY MsgLevel "Nivo"> +<!ENTITY msglevel "Nivo"> +<!ENTITY MsgOrig "Izvor"> +<!ENTITY msgorig "Izvor"> +<!ENTITY NOTE "BILJE\U-0160;KA"> +<!ENTITY Note "Bilje\U-0161;ka"> +<!ENTITY note "Bilje\U-0161;ka"> +<!ENTITY Part "Dio"> +<!ENTITY part "Dio"> +<!ENTITY Preface "Predgovor"> +<!ENTITY preface "Predgovor"> +<!ENTITY Procedure "Postupak"> +<!ENTITY procedure "Postupak"> +<!ENTITY ProductionSet "Produkcija"> +<!ENTITY PubDate "Objavljeno"> +<!ENTITY pubdate "Objavljeno"> +<!ENTITY Published "Objavljeno"> +<!ENTITY published "Objavljeno"> +<!ENTITY Qandadiv "P & O"> +<!ENTITY qandadiv "P & O"> +<!ENTITY Question "P:"> +<!ENTITY question "P:"> +<!ENTITY RefEntry ""> +<!ENTITY refentry ""> +<!ENTITY Reference "Referenca"> +<!ENTITY reference "Referenca"> +<!ENTITY RefName "Ime"> +<!ENTITY refname "Ime"> +<!ENTITY RefSection ""> +<!ENTITY refsection ""> +<!ENTITY RefSynopsisDiv "Pregled"> +<!ENTITY refsynopsisdiv "Pregled"> +<!ENTITY RevHistory "Historija verzija"> +<!ENTITY revhistory "Historija verzija"> +<!ENTITY revision "Verzija"> +<!ENTITY Revision "Verzija"> +<!ENTITY sect1 "Odjeljak"> +<!ENTITY sect2 "Odjeljak"> +<!ENTITY sect3 "Odjeljak"> +<!ENTITY sect4 "Odjeljak"> +<!ENTITY sect5 "Odjeljak"> +<!ENTITY section "Odjeljak"> +<!ENTITY Section "Odjeljak"> +<!ENTITY see "vidi"> +<!ENTITY See "Vidi"> +<!ENTITY seealso "vidi tako\U-0111;e"> +<!ENTITY Seealso "Vidi tako\U-0111;e"> +<!ENTITY SeeAlso "Vidi tako\U-0111;e"> +<!ENTITY set "Set"> +<!ENTITY Set "Set"> +<!ENTITY setindex "Indeks"> +<!ENTITY SetIndex "Indeks"> +<!ENTITY Sidebar ""> +<!ENTITY sidebar "sidebar"> +<!ENTITY step "korak"> +<!ENTITY Step "Korak"> +<!ENTITY Table "Tabela"> +<!ENTITY table "Tabela"> +<!ENTITY tip "Savjet"> +<!ENTITY TIP "SAVJET"> +<!ENTITY Tip "Savjet"> +<!ENTITY Warning "Upozorenje"> +<!ENTITY warning "Upozorenje"> +<!ENTITY WARNING "UPOZORENJE"> +<!ENTITY and "i"> +<!ENTITY by "od"> +<!ENTITY called "called"> +<!ENTITY Edited "Izdao"> +<!ENTITY edited "Izdao"> +<!ENTITY Editedby "Izdao"> +<!ENTITY editedby "Izdao"> +<!ENTITY in "u"> +<!ENTITY lastlistcomma ""> +<!ENTITY listcomma ","> +<!ENTITY nonexistantelement "nepostoje\U-0107;i element"> +<!ENTITY notes "Bilje\U-0161;ke"> +<!ENTITY Notes "Bilje\U-0161;ke"> +<!ENTITY Pgs "Str."> +<!ENTITY pgs "Str."> +<!ENTITY Revisedby "Izmijenjeno od: "> +<!ENTITY revisedby "Izmijenjeno od: "> +<!ENTITY TableNotes "Napomene"> +<!ENTITY tablenotes "Napomene"> +<!ENTITY TableofContents "Sadr\U-017E;aj"> +<!ENTITY tableofcontents "Sadr\U-017E;aj"> +<!ENTITY the ""> +<!ENTITY unexpectedelementname "Neo\U-010D;kivano ime elementa"> +<!ENTITY unsupported "nepodr\U-017E;ano"> +<!ENTITY xrefto "xref prema"> +<!ENTITY listofequations "Spisak jedna\U-010D;ina"> +<!ENTITY ListofEquations "Spisak jedna\U-010D;ina"> +<!ENTITY ListofExamples "Spisak primjera"> +<!ENTITY listofexamples "Spisak primjera"> +<!ENTITY ListofFigures "Spisak slika"> +<!ENTITY listoffigures "Spisak slika"> +<!ENTITY ListofProcedures "Spisak postupaka"> +<!ENTITY listofprocedures "Spisak postupaka"> +<!ENTITY listoftables "Spisak tabela"> +<!ENTITY ListofTables "Spisak tabela"> +<!ENTITY ListofUnknown "Spisak ???"> +<!ENTITY listofunknown "Spisak ???"> +<!ENTITY nav-home "Po\U-010D;etak"> +<!ENTITY nav-next "Naprijed"> +<!ENTITY nav-next-sibling "Brzo naprijed"> +<!ENTITY nav-prev "Nazad"> +<!ENTITY nav-prev-sibling "Brzo nazad"> +<!ENTITY nav-up "Gore"> +<!ENTITY nav-toc "Sadr\U-017E;aj"> +<!ENTITY Draft "Nacrt"> +<!ENTITY above "iznad"> +<!ENTITY below "ispod"> +<!ENTITY sectioncalled "odjeljak sa nazivom"> +<!ENTITY lowercase.alpha "abc\U-010D;\U-0107;d\U-0111;efghijklmnoprs\U-0161;tuvz\U-017E;"> +<!ENTITY uppercase.alpha "ABC\U-010C;\U-0106;D\U-0110;EFGHIJKLMNOPRS\U-0160;TUVZ\U-017D;"> +<!ENTITY hyphenation-character "-"> +<!ENTITY hyphenation-push-character-count "2"> +<!ENTITY hyphenation-remain-character-count "3"> diff --git a/stylesheets/dsssl-1.79/common/dbl1ca.dsl b/stylesheets/dsssl-1.79/common/dbl1ca.dsl new file mode 100644 index 0000000..93980dd --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1ca.dsl @@ -0,0 +1,443 @@ +<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ +<!ENTITY % ca.words + PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//CA" + "dbl1ca.ent"> +%ca.words; +]> + +<style-sheet> +<style-specification id="docbook-l10n-ca"> +<style-specification-body> + +;; $Id: dbl1ca.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ +;; +;; This file is part of the Modular DocBook Stylesheet distribution. +;; See ../README or http://nwalsh.com/docbook/dsssl/ +;; + +;; ----------------------------- Localization ----------------------------- + +;; If you create a new version of this file, please send it to +;; Norman Walsh, ndw@nwalsh.com + +;; Contributors: +;; Perceval - Marc Huguet Puig, mhp@nil.fut.es +;; marc*, marc.gonzalez-carnicer@european-go.org + +(define (ca-author-string #!optional (author (current-node))) + ;; Return a formatted string representation of the contents of: + ;; AUTHOR: + ;; Handles Honorific, FirstName, SurName, and Lineage. + ;; If %author-othername-in-middle% is #t, also OtherName + ;; Handles *only* the first of each. + ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" + ;; CORPAUTHOR: + ;; returns (data corpauthor) + (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) + (f_nl (select-elements (descendants author) (normalize "firstname"))) + (o_nl (select-elements (descendants author) (normalize "othername"))) + (s_nl (select-elements (descendants author) (normalize "surname"))) + (l_nl (select-elements (descendants author) (normalize "lineage"))) + (has_h (not (node-list-empty? h_nl))) + (has_f (not (node-list-empty? f_nl))) + (has_o (and %author-othername-in-middle% + (not (node-list-empty? o_nl)))) + (has_s (not (node-list-empty? s_nl))) + (has_l (not (node-list-empty? l_nl)))) + (if (or (equal? (gi author) (normalize "author")) + (equal? (gi author) (normalize "editor")) + (equal? (gi author) (normalize "othercredit"))) + (string-append + (if has_h (string-append (data-of (node-list-first h_nl)) + %honorific-punctuation%) "") + (if has_f (string-append + (if has_h " " "") + (data-of (node-list-first f_nl))) "") + (if has_o (string-append + (if (or has_h has_f) " " "") + (data-of (node-list-first o_nl))) "") + (if has_s (string-append + (if (or has_h has_f has_o) " " "") + (data-of (node-list-first s_nl))) "") + (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) + (data-of author)))) + +(define (ca-xref-strings) + (list (list (normalize "appendix") (if %chapter-autolabel% + "&Appendix; %n" + "l'&appendix; de nom %t")) + (list (normalize "article") (string-append %gentext-ca-start-quote% + "%t" + %gentext-ca-end-quote%)) + (list (normalize "bibliography") "%t") + (list (normalize "book") "%t") + (list (normalize "chapter") (if %chapter-autolabel% + "&Chapter; %n" + "el &chapter; de nom %t")) + (list (normalize "equation") "&Equation; %n") + (list (normalize "example") "&Example; %n") + (list (normalize "figure") "&Figure; %n") + (list (normalize "glossary") "%t") + (list (normalize "index") "%t") + (list (normalize "listitem") "%n") + (list (normalize "part") "&Part; %n") + (list (normalize "preface") "%t") + (list (normalize "procedure") "&Procedure; %n, %t") + (list (normalize "reference") "&Reference; %n, %t") + (list (normalize "section") (if %section-autolabel% + "&Section; %n" + "la §ion; de nom %t")) + (list (normalize "sect1") (if %section-autolabel% + "&Section; %n" + "la §ion; de nom %t")) + (list (normalize "sect2") (if %section-autolabel% + "&Section; %n" + "la §ion; de nom %t")) + (list (normalize "sect3") (if %section-autolabel% + "&Section; %n" + "la §ion; de nom %t")) + (list (normalize "sect4") (if %section-autolabel% + "&Section; %n" + "la §ion; de nom %t")) + (list (normalize "sect5") (if %section-autolabel% + "&Section; %n" + "la §ion; de nom %t")) + (list (normalize "simplesect") (if %section-autolabel% + "&Section; %n" + "la §ion; de nom %t")) + (list (normalize "sidebar") "la &sidebar; %t") + (list (normalize "step") "&step; %n") + (list (normalize "table") "&Table; %n"))) + +(define (gentext-ca-xref-strings gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (xref (assoc name (ca-xref-strings)))) + (if xref + (car (cdr xref)) + (let* ((msg (string-append "[&xrefto; " + (if giname giname "&nonexistantelement;") + " &unsupported;]")) + (err (node-list-error msg (current-node)))) + msg)))) + +(define (ca-auto-xref-indirect-connector before) + ;; In English, the (cond) is unnecessary since the word is always the + ;; same, but in other languages, that's not the case. I've set this + ;; one up with the (cond) so it stands as an example. + (cond + ((equal? (gi before) (normalize "book")) + (literal " al ")) + ((equal? (gi before) (normalize "chapter")) + (literal " al; ")) + ((equal? (gi before) (normalize "sect1")) + (literal " a la; ")) + (else + (literal " ∈ ")))) + +;; Should the TOC come first or last? +;; +(define %generate-ca-toc-in-front% #t) + +;; gentext-element-name returns the generated text that should be +;; used to make reference to the selected element. +;; + +(define (ca-element-name) + (list + (list (normalize "abstract") "&Abstract;") + (list (normalize "answer") "&Answer;") + (list (normalize "appendix") "&Appendix;") + (list (normalize "article") "&Article;") + (list (normalize "bibliography") "&Bibliography;") + (list (normalize "book") "&Book;") + (list (normalize "calloutlist") "") + (list (normalize "caution") "&Caution;") + (list (normalize "chapter") "&Chapter;") + (list (normalize "copyright") "&Copyright;") + (list (normalize "dedication") "&Dedication;") + (list (normalize "edition") "&Edition;") + (list (normalize "equation") "&Equation;") + (list (normalize "example") "&Example;") + (list (normalize "figure") "&Figure;") + (list (normalize "glossary") "&Glossary;") + (list (normalize "glosssee") "&GlossSee;") + (list (normalize "glossseealso") "&GlossSeeAlso;") + (list (normalize "important") "&Important;") + (list (normalize "index") "&Index;") + (list (normalize "colophon") "&Colophon;") + (list (normalize "setindex") "&SetIndex;") + (list (normalize "isbn") "&isbn;") + (list (normalize "legalnotice") "&LegalNotice;") + (list (normalize "msgaud") "&MsgAud;") + (list (normalize "msglevel") "&MsgLevel;") + (list (normalize "msgorig") "&MsgOrig;") + (list (normalize "note") "&Note;") + (list (normalize "part") "&Part;") + (list (normalize "preface") "&Preface;") + (list (normalize "procedure") "&Procedure;") + (list (normalize "pubdate") "&Published;") + (list (normalize "question") "&Question;") + (list (normalize "refentry") "&RefEntry;") + (list (normalize "reference") "&Reference;") + (list (normalize "refname") "&RefName;") + (list (normalize "revhistory") "&RevHistory;") + (list (normalize "refsect1") "&RefSection;") + (list (normalize "refsect2") "&RefSection;") + (list (normalize "refsect3") "&RefSection;") + (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") + (list (normalize "revision") "&Revision;") + (list (normalize "sect1") "&Section;") + (list (normalize "sect2") "&Section;") + (list (normalize "sect3") "&Section;") + (list (normalize "sect4") "&Section;") + (list (normalize "sect5") "&Section;") + (list (normalize "section") "&Section;") + (list (normalize "simplesect") "&Section;") + (list (normalize "seeie") "&See;") + (list (normalize "seealsoie") "&Seealso;") + (list (normalize "set") "&Set;") + (list (normalize "sidebar") "&Sidebar;") + (list (normalize "step") "&step;") + (list (normalize "table") "&Table;") + (list (normalize "tip") "&Tip;") + (list (normalize "toc") "&TableofContents;") + (list (normalize "warning") "&Warning;") + )) + +(define (gentext-ca-element-name gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (pname (assoc name (ca-element-name)))) + (if pname + (car (cdr pname)) + (let* ((msg (string-append + "gentext-ca-element-name: &unexpectedelementname;: " + name)) + (err (node-list-error msg (current-node)))) + msg)))) + +;; gentext-element-name-space returns gentext-element-name with a +;; trailing space, if gentext-element-name isn't "". +;; +(define (gentext-ca-element-name-space giname) + (string-with-space (gentext-element-name giname))) + +;; gentext-intra-label-sep returns the seperator to be inserted +;; between multiple occurances of a label (or parts of a label) +;; for the specified element. Most of these are for enumerated +;; labels like "Figure 2-4", but this function is used elsewhere +;; (e.g. REFNAME) with a little abuse. +;; + +(define (local-ca-intra-label-sep) + (list)) + +(define (ca-intra-label-sep) + (list + (list (normalize "equation") "-") + (list (normalize "informalequation") "-") + (list (normalize "example") "-") + (list (normalize "figure") "-") + (list (normalize "listitem") ".") + (list (normalize "procedure") ".") + (list (normalize "refentry") ".") + (list (normalize "reference") ".") + (list (normalize "refname") ", ") + (list (normalize "refsect1") ".") + (list (normalize "refsect2") ".") + (list (normalize "refsect3") ".") + (list (normalize "sect1") ".") + (list (normalize "sect2") ".") + (list (normalize "sect3") ".") + (list (normalize "sect4") ".") + (list (normalize "sect5") ".") + (list (normalize "section") ".") + (list (normalize "simplesect") ".") + (list (normalize "step") ".") + (list (normalize "table") "-") + (list (normalize "_pagenumber") "-") + )) + +(define (gentext-ca-intra-label-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-ca-intra-label-sep))) + (sep (assoc name (ca-intra-label-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +;; gentext-label-title-sep returns the seperator to be inserted +;; between a label and the text following the label for the +;; specified element. Most of these are for use between +;; enumerated labels and titles like "1. Chapter One Title", but +;; this function is used elsewhere (e.g. NOTE) with a little +;; abuse. +;; + +(define (local-ca-label-title-sep) + (list)) + +(define (ca-label-title-sep) + (list + (list (normalize "abstract") ": ") + (list (normalize "answer") " ") + (list (normalize "appendix") ". ") + (list (normalize "caution") "") + (list (normalize "chapter") ". ") + (list (normalize "equation") ". ") + (list (normalize "example") ". ") + (list (normalize "figure") ". ") + (list (normalize "footnote") ". ") + (list (normalize "glosssee") ": ") + (list (normalize "glossseealso") ": ") + (list (normalize "important") ": ") + (list (normalize "note") ": ") + (list (normalize "orderedlist") ". ") + (list (normalize "part") ". ") + (list (normalize "procedure") ". ") + (list (normalize "prefix") ". ") + (list (normalize "question") " ") + (list (normalize "refentry") "") + (list (normalize "reference") ". ") + (list (normalize "refsect1") ". ") + (list (normalize "refsect2") ". ") + (list (normalize "refsect3") ". ") + (list (normalize "sect1") ". ") + (list (normalize "sect2") ". ") + (list (normalize "sect3") ". ") + (list (normalize "sect4") ". ") + (list (normalize "sect5") ". ") + (list (normalize "section") ". ") + (list (normalize "simplesect") ". ") + (list (normalize "seeie") " ") + (list (normalize "seealsoie") " ") + (list (normalize "step") ". ") + (list (normalize "table") ". ") + (list (normalize "tip") ": ") + (list (normalize "warning") "") + )) + +(define (gentext-ca-label-title-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-ca-label-title-sep))) + (sep (assoc name (ca-label-title-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +(define (ca-label-number-format-list) + (list + (list (normalize "set") "1") + (list (normalize "book") "1") + (list (normalize "prefix") "1") + (list (normalize "part") "I") + (list (normalize "chapter") "1") + (list (normalize "appendix") "A") + (list (normalize "reference") "I") + (list (normalize "example") "1") + (list (normalize "figure") "1") + (list (normalize "table") "1") + (list (normalize "procedure") "1") + (list (normalize "step") "1") + (list (normalize "refsect1") "1") + (list (normalize "refsect2") "1") + (list (normalize "refsect3") "1") + (list (normalize "sect1") "1") + (list (normalize "sect2") "1") + (list (normalize "sect3") "1") + (list (normalize "sect4") "1") + (list (normalize "sect5") "1") + (list (normalize "section") "1") + )) + +(define (ca-label-number-format gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (format (assoc name (ca-label-number-format-list)))) + (if format + (car (cdr format)) + "1"))) + +(define (ca-lot-title) + (list + (list (normalize "table") "&ListofTables;") + (list (normalize "example") "&ListofExamples;") + (list (normalize "figure") "&ListofFigures;") + (list (normalize "equation") "&ListofEquations;") + )) + +(define ($lot-title-ca$ gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (title (assoc name (ca-lot-title)))) + (if title + (car (cdr title)) + (let* ((msg (string-append "&ListofUnknown;: " name)) + (err (node-list-error msg (current-node)))) + msg)))) + +(define %gentext-ca-start-quote% (dingbat "ldquo")) + +(define %gentext-ca-end-quote% (dingbat "rdquo")) + +(define %gentext-ca-start-nested-quote% (dingbat "lsquo")) + +(define %gentext-ca-end-nested-quote% (dingbat "rsquo")) + +(define %gentext-ca-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous + ;; Authored "by" Jane Doe + +(define %gentext-ca-edited-by% "&Editedby;") + ;; "Edited by" Jane Doe + +(define %gentext-ca-revised-by% "&Revisedby;") + ;; "Revised by" Jane Doe + +(define %gentext-ca-page% "") + +(define %gentext-ca-and% "∧") + +(define %gentext-ca-listcomma% "&listcomma;") + +(define %gentext-ca-lastlistcomma% "&lastlistcomma;") + +(define %gentext-ca-bibl-pages% "&Pgs;") + +(define %gentext-ca-endnotes% "&Notes;") + +(define %gentext-ca-table-endnotes% "&TableNotes;:") + +(define %gentext-ca-index-see% "&See;") + +(define %gentext-ca-index-seealso% "&SeeAlso;") + + +(define (gentext-ca-nav-prev prev) + (make sequence (literal "&nav-prev;"))) + +(define (gentext-ca-nav-prev-sibling prevsib) + (make sequence (literal "&nav-prev-sibling;"))) + +(define (gentext-ca-nav-next-sibling nextsib) + (make sequence (literal "&nav-next-sibling;"))) + +(define (gentext-ca-nav-next next) + (make sequence (literal "&nav-next;"))) + +(define (gentext-ca-nav-up up) + (make sequence (literal "&nav-up;"))) + +(define (gentext-ca-nav-home home) + (make sequence (literal "&nav-home;"))) + + +</style-specification-body> +</style-specification> +</style-sheet> diff --git a/stylesheets/dsssl-1.79/common/dbl1ca.ent b/stylesheets/dsssl-1.79/common/dbl1ca.ent new file mode 100644 index 0000000..cbe3e89 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1ca.ent @@ -0,0 +1,162 @@ +<?xml version="1.0" encoding="US-ASCII"?> +<!-- This file is generated automatically. --> +<!-- Do not edit this file by hand! --> +<!-- See http://docbook.sourceforge.net/ --> +<!-- To update this file: edit the corresponding document at --> +<!-- http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/docbook/gentext/locale/ --> + +<!ENTITY Abstract "Resum"> +<!ENTITY abstract "Resum"> +<!ENTITY Answer "Resposta"> +<!ENTITY answer "Resposta"> +<!ENTITY Appendix "Ap\U-00E8;ndix"> +<!ENTITY appendix "Ap\U-00E8;ndix"> +<!ENTITY Article "Article"> +<!ENTITY article "Article"> +<!ENTITY Bibliography "Bibliografia"> +<!ENTITY bibliography "Bibliografia"> +<!ENTITY Book "Llibre"> +<!ENTITY book "Llibre"> +<!ENTITY Caution "Atenci\U-00F3;"> +<!ENTITY caution "Atenci\U-00F3;"> +<!ENTITY CAUTION "ATENCI\U-00D3;"> +<!ENTITY Chapter "Cap\U-00ED;tol"> +<!ENTITY chapter "Cap\U-00ED;tol"> +<!ENTITY Colophon "Colof\U-00F3;"> +<!ENTITY colophon "Colof\U-00F3;"> +<!ENTITY Copyright "Dret de reproducci\U-00F3;"> +<!ENTITY copyright "Dret de reproducci\U-00F3;"> +<!ENTITY Dedication "Dedicat\U-00F2;ria"> +<!ENTITY dedication "Dedicat\U-00F2;ria"> +<!ENTITY Edition "Edici\U-00F3;"> +<!ENTITY edition "Edici\U-00F3;"> +<!ENTITY Equation "Equaci\U-00F3;"> +<!ENTITY equation "Equaci\U-00F3;"> +<!ENTITY Example "Exemple"> +<!ENTITY example "Exemple"> +<!ENTITY Figure "Figura"> +<!ENTITY figure "Figura"> +<!ENTITY Glossary "Glossari"> +<!ENTITY glossary "Glossari"> +<!ENTITY GlossSee "Veure"> +<!ENTITY glosssee "Veure"> +<!ENTITY GlossSeeAlso "Veure tamb\U-00E9;"> +<!ENTITY glossseealso "Veure tamb\U-00E9;"> +<!ENTITY IMPORTANT "IMPORTANT"> +<!ENTITY Important "Important"> +<!ENTITY important "Important"> +<!ENTITY Index "\U-00CD;ndex alfab\U-00E8;tic"> +<!ENTITY index "\U-00CD;ndex alfab\U-00E8;tic"> +<!ENTITY ISBN "ISBN"> +<!ENTITY isbn "ISBN"> +<!ENTITY LegalNotice "Av\U-00ED;s legal"> +<!ENTITY legalnotice "Av\U-00ED;s legal"> +<!ENTITY MsgAud "Audi\U-00E8;ncia"> +<!ENTITY msgaud "Audi\U-00E8;ncia"> +<!ENTITY MsgLevel "Nivell"> +<!ENTITY msglevel "Nivell"> +<!ENTITY MsgOrig "Origen"> +<!ENTITY msgorig "Origen"> +<!ENTITY NOTE "NOTA"> +<!ENTITY Note "Nota"> +<!ENTITY note "Nota"> +<!ENTITY Part "Part"> +<!ENTITY part "Part"> +<!ENTITY Preface "Prefaci"> +<!ENTITY preface "Prefaci"> +<!ENTITY Procedure "Procediment"> +<!ENTITY procedure "Procediment"> +<!ENTITY ProductionSet "Producci\U-00F3;"> +<!ENTITY PubDate "Data de publicaci\U-00F3;"> +<!ENTITY pubdate "Data de publicaci\U-00F3;"> +<!ENTITY Published "Publicat"> +<!ENTITY published "Publicat"> +<!ENTITY Question "Pregunta"> +<!ENTITY question "Pregunta"> +<!ENTITY RefEntry "Entrada de refer\U-00E8;ncia"> +<!ENTITY refentry "Entrada de refer\U-00E8;ncia"> +<!ENTITY Reference "Refer\U-00E8;ncia"> +<!ENTITY reference "Refer\U-00E8;ncia"> +<!ENTITY RefName "Nom"> +<!ENTITY refname "Nom"> +<!ENTITY RefSection "Secci\U-00F3; de refer\U-00E8;ncia"> +<!ENTITY refsection "Secci\U-00F3; de refer\U-00E8;ncia"> +<!ENTITY RefSynopsisDiv "Sinopsi"> +<!ENTITY refsynopsisdiv "Sinopsi"> +<!ENTITY RevHistory "Historial de revisions"> +<!ENTITY revhistory "Historial de revisions"> +<!ENTITY Revision "Revisi\U-00F3;"> +<!ENTITY revision "Revisi\U-00F3;"> +<!ENTITY sect1 "Secci\U-00F3;"> +<!ENTITY sect2 "Secci\U-00F3;"> +<!ENTITY sect3 "Secci\U-00F3;"> +<!ENTITY sect4 "Secci\U-00F3;"> +<!ENTITY sect5 "Secci\U-00F3;"> +<!ENTITY Section "Secci\U-00F3;"> +<!ENTITY section "Secci\U-00F3;"> +<!ENTITY See "Veure"> +<!ENTITY see "Veure"> +<!ENTITY SeeAlso "Veure Tamb\U-00E9;"> +<!ENTITY Seealso "Veure tamb\U-00E9;"> +<!ENTITY seealso "Veure tamb\U-00E9;"> +<!ENTITY Set "Conjunt"> +<!ENTITY set "Conjunt"> +<!ENTITY SetIndex "\U-00CD;ndex del conjunt"> +<!ENTITY setindex "\U-00CD;ndex del conjunt"> +<!ENTITY Sidebar "Barra lateral"> +<!ENTITY sidebar "Barra lateral"> +<!ENTITY step "Pas"> +<!ENTITY Step "Pas"> +<!ENTITY table "Taula"> +<!ENTITY Table "Taula"> +<!ENTITY TIP "SUGGERIMENT"> +<!ENTITY Tip "Suggeriment"> +<!ENTITY tip "Suggeriment"> +<!ENTITY WARNING "AV\U-00CD;S"> +<!ENTITY Warning "Av\U-00ED;s"> +<!ENTITY warning "Av\U-00ED;s"> +<!ENTITY and "i"> +<!ENTITY by "per"> +<!ENTITY Edited "Editat"> +<!ENTITY edited "Editat"> +<!ENTITY Editedby "Editat per"> +<!ENTITY editedby "Editat per"> +<!ENTITY in "a"> +<!ENTITY lastlistcomma ","> +<!ENTITY listcomma ","> +<!ENTITY nonexistantelement "element inexistent"> +<!ENTITY notes "notes"> +<!ENTITY Notes "Notes"> +<!ENTITY Pgs "P\U-00E0;gs."> +<!ENTITY pgs "P\U-00E0;gs."> +<!ENTITY Revisedby "Revisat per: "> +<!ENTITY revisedby "Revisat per: "> +<!ENTITY TableNotes "Notes de taula"> +<!ENTITY tablenotes "Notes de taula"> +<!ENTITY TableofContents "Sumari"> +<!ENTITY tableofcontents "Sumari"> +<!ENTITY unexpectedelementname "nom d'element inesperat"> +<!ENTITY unsupported "no reconeguda"> +<!ENTITY xrefto "refer\U-00E8;ncia a"> +<!ENTITY listofequations "\U-00CD;ndex d'equacions"> +<!ENTITY ListofEquations "\U-00CD;ndex d'equacions"> +<!ENTITY ListofExamples "\U-00CD;ndex d'exemples"> +<!ENTITY listofexamples "\U-00CD;ndex d'exemples"> +<!ENTITY ListofFigures "\U-00CD;ndex de figures"> +<!ENTITY listoffigures "\U-00CD;ndex de figures"> +<!ENTITY listoftables "\U-00CD;ndex de taules"> +<!ENTITY ListofTables "\U-00CD;ndex de taules"> +<!ENTITY ListofUnknown "\U-00CD;ndex de desconegut ?"> +<!ENTITY listofunknown "\U-00CD;ndex de desconegut ?"> +<!ENTITY nav-home "Inici"> +<!ENTITY nav-next "Seg\U-00FC;ent"> +<!ENTITY nav-next-sibling "Avan\U-00E7;ar"> +<!ENTITY nav-prev "Anterior"> +<!ENTITY nav-prev-sibling "Retrocedir"> +<!ENTITY nav-up "Pujar"> +<!ENTITY Draft "Esborrany"> +<!ENTITY above "dalt"> +<!ENTITY below "baix"> +<!ENTITY sectioncalled "secci\U-00F3; anomenada"> +<!ENTITY lowercase.alpha "abcdefghijklmnopqrstuvwxyz\U-00E0;\U-00E8;\U-00E9;\U-00ED;\U-00F2;\U-00F3;\U-00FA;\U-00F1;\U-00E7;"> +<!ENTITY uppercase.alpha "ABCDEFGHIJKLMNOPQRSTUVWXYZ\U-00C0;\U-00C8;\U-00C9;\U-00CD;\U-00D2;\U-00D3;\U-00DA;\U-00D1;\U-00C7;"> diff --git a/stylesheets/dsssl-1.79/common/dbl1cs.dsl b/stylesheets/dsssl-1.79/common/dbl1cs.dsl new file mode 100644 index 0000000..5d2a7c6 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1cs.dsl @@ -0,0 +1,443 @@ +<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ +<!ENTITY % cs.words + PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//CS" + "dbl1cs.ent"> +%cs.words; +]> + +<style-sheet> +<style-specification id="docbook-l10n-cs"> +<style-specification-body> + +;; $Id: dbl1cs.dsl,v 1.3 2001/09/06 14:49:24 kosek Exp $ +;; +;; This file is part of the Modular DocBook Stylesheet distribution. +;; See ../README or http://nwalsh.com/docbook/dsssl/ +;; + +;; ----------------------------- Localization ----------------------------- + +;; If you create a new version of this file, please send it to +;; Norman Walsh, ndw@nwalsh.com + +;; Contributors: +;; Ralf Schleitzer, ralf.schleitzer@ixos.de + +(define (cs-author-string #!optional (author (current-node))) + ;; Return a formatted string representation of the contents of: + ;; AUTHOR: + ;; Handles Honorific, FirstName, SurName, and Lineage. + ;; If %author-othername-in-middle% is #t, also OtherName + ;; Handles *only* the first of each. + ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" + ;; CORPAUTHOR: + ;; returns (data corpauthor) + (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) + (f_nl (select-elements (descendants author) (normalize "firstname"))) + (o_nl (select-elements (descendants author) (normalize "othername"))) + (s_nl (select-elements (descendants author) (normalize "surname"))) + (l_nl (select-elements (descendants author) (normalize "lineage"))) + (has_h (not (node-list-empty? h_nl))) + (has_f (not (node-list-empty? f_nl))) + (has_o (and %author-othername-in-middle% + (not (node-list-empty? o_nl)))) + (has_s (not (node-list-empty? s_nl))) + (has_l (not (node-list-empty? l_nl)))) + (if (or (equal? (gi author) (normalize "author")) + (equal? (gi author) (normalize "editor")) + (equal? (gi author) (normalize "othercredit"))) + (string-append + (if has_h (string-append (data-of (node-list-first h_nl)) + %honorific-punctuation%) "") + (if has_f (string-append + (if has_h " " "") + (data-of (node-list-first f_nl))) "") + (if has_o (string-append + (if (or has_h has_f) " " "") + (data-of (node-list-first o_nl))) "") + (if has_s (string-append + (if (or has_h has_f has_o) " " "") + (data-of (node-list-first s_nl))) "") + (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) + (data-of author)))) + +(define (cs-xref-strings) + (list (list (normalize "appendix") (if %chapter-autolabel% + "%n" + "%n \U-2013; \U-201E;%t\U-201C;")) + (list (normalize "article") (string-append %gentext-cs-start-quote% + "%t" + %gentext-cs-end-quote%)) + (list (normalize "bibliography") "%t") + (list (normalize "book") "%t") + (list (normalize "chapter") (if %chapter-autolabel% + "%n" + "%n \U-2013; \U-201E;%t\U-201C;")) + (list (normalize "equation") "%n") + (list (normalize "example") "%n") + (list (normalize "figure") "%n") + (list (normalize "glossary") "%t") + (list (normalize "index") "%t") + (list (normalize "listitem") "%n") + (list (normalize "part") "%n \U-2013; \U-201E;%t\U-201C;") + (list (normalize "preface") "%t") + (list (normalize "procedure") "%n \U-2013; \U-201E;%t\U-201C;") + (list (normalize "reference") "%t") + (list (normalize "section") (if %section-autolabel% + "%n" + "\U-201E;%t\U-201C;")) + (list (normalize "sect1") (if %section-autolabel% + "%n" + "\U-201E;%t\U-201C;")) + (list (normalize "sect2") (if %section-autolabel% + "%n" + "\U-201E;%t\U-201C;")) + (list (normalize "sect3") (if %section-autolabel% + "%n" + "\U-201E;%t\U-201C;")) + (list (normalize "sect4") (if %section-autolabel% + "%n" + "\U-201E;%t\U-201C;")) + (list (normalize "sect5") (if %section-autolabel% + "%n" + "\U-201E;%t\U-201C;")) + (list (normalize "simplesect") (if %section-autolabel% + "%n" + "\U-201E;%t\U-201C;")) + (list (normalize "sidebar") "%t") + (list (normalize "step") "%n") + (list (normalize "table") "%n"))) + +(define (gentext-cs-xref-strings gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (xref (assoc name (cs-xref-strings)))) + (if xref + (car (cdr xref)) + (let* ((msg (string-append "[&xrefto; " + (if giname giname "&nonexistantelement;") + " &unsupported;]")) + (err (node-list-error msg (current-node)))) + msg)))) + +(define (cs-auto-xref-indirect-connector before) + ;; In English, the (cond) is unnecessary since the word is always the + ;; same, but in other languages, that's not the case. I've set this + ;; one up with the (cond) so it stands as an example. + (cond + ((equal? (gi before) (normalize "book")) + (literal " ∈ ")) + ((equal? (gi before) (normalize "chapter")) + (literal " ∈ ")) + ((equal? (gi before) (normalize "sect1")) + (literal " ∈ ")) + (else + (literal " ∈ ")))) + +;; Should the TOC come first or last? +;; +(define %generate-cs-toc-in-front% #t) + +;; gentext-element-name returns the generated text that should be +;; used to make reference to the selected element. +;; + +(define (cs-element-name) + (list + (list (normalize "abstract") "&Abstract;") + (list (normalize "answer") "&Answer;") + (list (normalize "appendix") "&Appendix;") + (list (normalize "article") "&Article;") + (list (normalize "bibliography") "&Bibliography;") + (list (normalize "book") "&Book;") + (list (normalize "calloutlist") "") + (list (normalize "caution") "&Caution;") + (list (normalize "chapter") "&Chapter;") + (list (normalize "copyright") "&Copyright;") + (list (normalize "dedication") "&Dedication;") + (list (normalize "edition") "&Edition;") + (list (normalize "equation") "&Equation;") + (list (normalize "example") "&Example;") + (list (normalize "figure") "&Figure;") + (list (normalize "glossary") "&Glossary;") + (list (normalize "glosssee") "&GlossSee;") + (list (normalize "glossseealso") "&GlossSeeAlso;") + (list (normalize "important") "&Important;") + (list (normalize "index") "&Index;") + (list (normalize "colophon") "&Colophon;") + (list (normalize "setindex") "&SetIndex;") + (list (normalize "isbn") "&isbn;") + (list (normalize "legalnotice") "&LegalNotice;") + (list (normalize "msgaud") "&MsgAud;") + (list (normalize "msglevel") "&MsgLevel;") + (list (normalize "msgorig") "&MsgOrig;") + (list (normalize "note") "&Note;") + (list (normalize "part") "&Part;") + (list (normalize "preface") "&Preface;") + (list (normalize "procedure") "&Procedure;") + (list (normalize "pubdate") "&Published;") + (list (normalize "question") "&Question;") + (list (normalize "refentry") "&RefEntry;") + (list (normalize "reference") "&Reference;") + (list (normalize "refname") "&RefName;") + (list (normalize "revhistory") "&RevHistory;") + (list (normalize "refsect1") "&RefSection;") + (list (normalize "refsect2") "&RefSection;") + (list (normalize "refsect3") "&RefSection;") + (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") + (list (normalize "revision") "&Revision;") + (list (normalize "sect1") "&Section;") + (list (normalize "sect2") "&Section;") + (list (normalize "sect3") "&Section;") + (list (normalize "sect4") "&Section;") + (list (normalize "sect5") "&Section;") + (list (normalize "section") "&Section;") + (list (normalize "simplesect") "&Section;") + (list (normalize "seeie") "&See;") + (list (normalize "seealsoie") "&Seealso;") + (list (normalize "set") "&Set;") + (list (normalize "sidebar") "&Sidebar;") + (list (normalize "step") "&step;") + (list (normalize "table") "&Table;") + (list (normalize "tip") "&Tip;") + (list (normalize "toc") "&TableofContents;") + (list (normalize "warning") "&Warning;") + )) + +(define (gentext-cs-element-name gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (pname (assoc name (cs-element-name)))) + (if pname + (car (cdr pname)) + (let* ((msg (string-append + "gentext-cs-element-name: &unexpectedelementname;: " + name)) + (err (node-list-error msg (current-node)))) + msg)))) + +;; gentext-element-name-space returns gentext-element-name with a +;; trailing space, if gentext-element-name isn't "". +;; +(define (gentext-cs-element-name-space giname) + (string-with-space (gentext-element-name giname))) + +;; gentext-intra-label-sep returns the seperator to be inserted +;; between multiple occurances of a label (or parts of a label) +;; for the specified element. Most of these are for enumerated +;; labels like "Figure 2-4", but this function is used elsewhere +;; (e.g. REFNAME) with a little abuse. +;; + +(define (local-cs-intra-label-sep) + (list)) + +(define (cs-intra-label-sep) + (list + (list (normalize "equation") "-") + (list (normalize "informalequation") "-") + (list (normalize "example") "-") + (list (normalize "figure") "-") + (list (normalize "listitem") ".") + (list (normalize "procedure") ".") + (list (normalize "refentry") ".") + (list (normalize "reference") ".") + (list (normalize "refname") ", ") + (list (normalize "refsect1") ".") + (list (normalize "refsect2") ".") + (list (normalize "refsect3") ".") + (list (normalize "sect1") ".") + (list (normalize "sect2") ".") + (list (normalize "sect3") ".") + (list (normalize "sect4") ".") + (list (normalize "sect5") ".") + (list (normalize "section") ".") + (list (normalize "simplesect") ".") + (list (normalize "step") ".") + (list (normalize "table") "-") + (list (normalize "_pagenumber") "-") + )) + +(define (gentext-cs-intra-label-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-cs-intra-label-sep))) + (sep (assoc name (cs-intra-label-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +;; gentext-label-title-sep returns the seperator to be inserted +;; between a label and the text following the label for the +;; specified element. Most of these are for use between +;; enumerated labels and titles like "1. Chapter One Title", but +;; this function is used elsewhere (e.g. NOTE) with a little +;; abuse. +;; + +(define (local-cs-label-title-sep) + (list)) + +(define (cs-label-title-sep) + (list + (list (normalize "abstract") ": ") + (list (normalize "answer") " ") + (list (normalize "appendix") ". ") + (list (normalize "caution") "") + (list (normalize "chapter") ". ") + (list (normalize "equation") ". ") + (list (normalize "example") ". ") + (list (normalize "figure") ". ") + (list (normalize "footnote") ". ") + (list (normalize "glosssee") ": ") + (list (normalize "glossseealso") ": ") + (list (normalize "important") ": ") + (list (normalize "note") ": ") + (list (normalize "orderedlist") ". ") + (list (normalize "part") ". ") + (list (normalize "procedure") ". ") + (list (normalize "prefix") ". ") + (list (normalize "question") " ") + (list (normalize "refentry") "") + (list (normalize "reference") ". ") + (list (normalize "refsect1") ". ") + (list (normalize "refsect2") ". ") + (list (normalize "refsect3") ". ") + (list (normalize "sect1") ". ") + (list (normalize "sect2") ". ") + (list (normalize "sect3") ". ") + (list (normalize "sect4") ". ") + (list (normalize "sect5") ". ") + (list (normalize "section") ". ") + (list (normalize "simplesect") ". ") + (list (normalize "seeie") " ") + (list (normalize "seealsoie") " ") + (list (normalize "step") ". ") + (list (normalize "table") ". ") + (list (normalize "tip") ": ") + (list (normalize "warning") "") + )) + +(define (gentext-cs-label-title-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-cs-label-title-sep))) + (sep (assoc name (cs-label-title-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +(define (cs-label-number-format-list) + (list + (list (normalize "set") "1") + (list (normalize "book") "1") + (list (normalize "prefix") "1") + (list (normalize "part") "I") + (list (normalize "chapter") "1") + (list (normalize "appendix") "A") + (list (normalize "reference") "I") + (list (normalize "example") "1") + (list (normalize "figure") "1") + (list (normalize "table") "1") + (list (normalize "procedure") "1") + (list (normalize "step") "1") + (list (normalize "refsect1") "1") + (list (normalize "refsect2") "1") + (list (normalize "refsect3") "1") + (list (normalize "sect1") "1") + (list (normalize "sect2") "1") + (list (normalize "sect3") "1") + (list (normalize "sect4") "1") + (list (normalize "sect5") "1") + (list (normalize "section") "1") + )) + +(define (cs-label-number-format gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (format (assoc name (cs-label-number-format-list)))) + (if format + (car (cdr format)) + "1"))) + +(define (cs-lot-title) + (list + (list (normalize "table") "&ListofTables;") + (list (normalize "example") "&ListofExamples;") + (list (normalize "figure") "&ListofFigures;") + (list (normalize "equation") "&ListofEquations;") + )) + +(define ($lot-title-cs$ gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (title (assoc name (cs-lot-title)))) + (if title + (car (cdr title)) + (let* ((msg (string-append "&ListofUnknown;: " name)) + (err (node-list-error msg (current-node)))) + msg)))) + + +(define %gentext-cs-start-quote% "\U-201E;") + +(define %gentext-cs-end-quote% "\U-201C;") + +(define %gentext-cs-start-nested-quote% "\U-201A;") + +(define %gentext-cs-end-nested-quote% "\U-2018;") + +(define %gentext-cs-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous + ;; Authored "by" Jane Doe + +(define %gentext-cs-edited-by% "&Editedby;") + ;; "Edited by" Jane Doe + +(define %gentext-cs-revised-by% "&Revisedby;") + ;; "Revised by" Jane Doe + +(define %gentext-cs-page% "") + +(define %gentext-cs-and% "∧") + +(define %gentext-cs-listcomma% "&listcomma;") + +(define %gentext-cs-lastlistcomma% "&lastlistcomma;") + +(define %gentext-cs-bibl-pages% "&Pgs;") + +(define %gentext-cs-endnotes% "&Notes;") + +(define %gentext-cs-table-endnotes% "&TableNotes;:") + +(define %gentext-cs-index-see% "&See;") + +(define %gentext-cs-index-seealso% "&SeeAlso;") + + +(define (gentext-cs-nav-prev prev) + (make sequence (literal "&nav-prev;"))) + +(define (gentext-cs-nav-prev-sibling prevsib) + (make sequence (literal "&nav-prev-sibling;"))) + +(define (gentext-cs-nav-next-sibling nextsib) + (make sequence (literal "&nav-next-sibling;"))) + +(define (gentext-cs-nav-next next) + (make sequence (literal "&nav-next;"))) + +(define (gentext-cs-nav-up up) + (make sequence (literal "&nav-up;"))) + +(define (gentext-cs-nav-home home) + (make sequence (literal "&nav-home;"))) + + +</style-specification-body> +</style-specification> +</style-sheet> diff --git a/stylesheets/dsssl-1.79/common/dbl1cs.ent b/stylesheets/dsssl-1.79/common/dbl1cs.ent new file mode 100644 index 0000000..39d3493 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1cs.ent @@ -0,0 +1,160 @@ +<?xml version="1.0" encoding="US-ASCII"?> +<!-- This file is generated automatically. --> +<!-- Do not edit this file by hand! --> +<!-- See http://docbook.sourceforge.net/ --> +<!-- To update this file: edit the corresponding document at --> +<!-- http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/docbook/gentext/locale/ --> + +<!ENTITY Abstract "Abstrakt"> +<!ENTITY abstract "Abstrakt"> +<!ENTITY Answer "Odpov\U-011B;\U-010F;:"> +<!ENTITY answer "Odpov\U-011B;\U-010F;:"> +<!ENTITY Appendix "P\U-0159;\U-00ED;loha"> +<!ENTITY appendix "P\U-0159;\U-00ED;loha"> +<!ENTITY Article "\U-010C;l\U-00E1;nek"> +<!ENTITY article "\U-010C;l\U-00E1;nek"> +<!ENTITY Bibliography "Bibliografie"> +<!ENTITY bibliography "Bibliografie"> +<!ENTITY Book "Kniha"> +<!ENTITY book "Kniha"> +<!ENTITY CAUTION "V\U-00FD;straha"> +<!ENTITY Caution "V\U-00FD;straha"> +<!ENTITY caution "V\U-00FD;straha"> +<!ENTITY Chapter "Kapitola"> +<!ENTITY chapter "Kapitola"> +<!ENTITY Colophon "Tir\U-00E1;\U-017E;"> +<!ENTITY colophon "Tir\U-00E1;\U-017E;"> +<!ENTITY Copyright "Copyright"> +<!ENTITY copyright "Copyright"> +<!ENTITY Dedication "V\U-011B;nov\U-00E1;n\U-00ED;"> +<!ENTITY dedication "V\U-011B;nov\U-00E1;n\U-00ED;"> +<!ENTITY Edition "Vyd\U-00E1;n\U-00ED;"> +<!ENTITY edition "Vyd\U-00E1;n\U-00ED;"> +<!ENTITY Equation "Rovnice"> +<!ENTITY equation "Rovnice"> +<!ENTITY Example "P\U-0159;\U-00ED;klad"> +<!ENTITY example "P\U-0159;\U-00ED;klad"> +<!ENTITY Figure "Obr\U-00E1;zek"> +<!ENTITY figure "Obr\U-00E1;zek"> +<!ENTITY Glossary "Slovn\U-00ED;k"> +<!ENTITY glossary "Slovn\U-00ED;k"> +<!ENTITY GlossSee "Viz"> +<!ENTITY glosssee "Viz"> +<!ENTITY GlossSeeAlso "Viz t\U-00E9;\U-017E;"> +<!ENTITY glossseealso "Viz t\U-00E9;\U-017E;"> +<!ENTITY IMPORTANT "D\U-016F;le\U-017E;it\U-00E9;"> +<!ENTITY Important "D\U-016F;le\U-017E;it\U-00E9;"> +<!ENTITY important "D\U-016F;le\U-017E;it\U-00E9;"> +<!ENTITY Index "Rejst\U-0159;\U-00ED;k"> +<!ENTITY index "Rejst\U-0159;\U-00ED;k"> +<!ENTITY ISBN "ISBN"> +<!ENTITY isbn "ISBN"> +<!ENTITY LegalNotice "Pr\U-00E1;vn\U-00ED; dolo\U-017E;ka"> +<!ENTITY legalnotice "Pr\U-00E1;vn\U-00ED; dolo\U-017E;ka"> +<!ENTITY MsgAud "Publikum"> +<!ENTITY msgaud "Publikum"> +<!ENTITY MsgLevel "\U-00DA;rove\U-0148;"> +<!ENTITY msglevel "\U-00DA;rove\U-0148;"> +<!ENTITY MsgOrig "P\U-016F;vod"> +<!ENTITY msgorig "P\U-016F;vod"> +<!ENTITY NOTE "Pozn\U-00E1;mka"> +<!ENTITY Note "Pozn\U-00E1;mka"> +<!ENTITY note "Pozn\U-00E1;mka"> +<!ENTITY Part "\U-010C;\U-00E1;st"> +<!ENTITY part "\U-010C;\U-00E1;st"> +<!ENTITY Preface "P\U-0159;edmluva"> +<!ENTITY preface "P\U-0159;edmluva"> +<!ENTITY Procedure "Postup"> +<!ENTITY procedure "Postup"> +<!ENTITY ProductionSet "Produkce"> +<!ENTITY Published "Vyd\U-00E1;no"> +<!ENTITY published "Vyd\U-00E1;no"> +<!ENTITY Question "Ot\U-00E1;zka:"> +<!ENTITY question "Ot\U-00E1;zka:"> +<!ENTITY RefEntry ""> +<!ENTITY refentry ""> +<!ENTITY Reference "Odkaz"> +<!ENTITY reference "Odkaz"> +<!ENTITY RefName "Jm\U-00E9;no"> +<!ENTITY refname "Jm\U-00E9;no"> +<!ENTITY RefSection ""> +<!ENTITY refsection ""> +<!ENTITY RefSynopsisDiv "P\U-0159;ehled"> +<!ENTITY refsynopsisdiv "P\U-0159;ehled"> +<!ENTITY RevHistory "P\U-0159;ehled reviz\U-00ED;"> +<!ENTITY revhistory "P\U-0159;ehled reviz\U-00ED;"> +<!ENTITY Revision "Revize"> +<!ENTITY revision "Revize"> +<!ENTITY sect1 "Odd\U-00ED;l"> +<!ENTITY sect2 "Odd\U-00ED;l"> +<!ENTITY sect3 "Odd\U-00ED;l"> +<!ENTITY sect4 "Odd\U-00ED;l"> +<!ENTITY sect5 "Odd\U-00ED;l"> +<!ENTITY Section "Odd\U-00ED;l"> +<!ENTITY section "Odd\U-00ED;l"> +<!ENTITY See "Viz"> +<!ENTITY see "Viz"> +<!ENTITY SeeAlso "Viz t\U-00E9;\U-017E;"> +<!ENTITY Seealso "Viz t\U-00E9;\U-017E;"> +<!ENTITY seealso "Viz t\U-00E9;\U-017E;"> +<!ENTITY Set "Sada"> +<!ENTITY set "Sada"> +<!ENTITY SetIndex "Rejst\U-0159;\U-00ED;k sady"> +<!ENTITY setindex "Rejst\U-0159;\U-00ED;k sady"> +<!ENTITY Sidebar "Margin\U-00E1;lie"> +<!ENTITY sidebar "Margin\U-00E1;lie"> +<!ENTITY Step "Krok"> +<!ENTITY step "krok"> +<!ENTITY Table "Tabulka"> +<!ENTITY table "Tabulka"> +<!ENTITY TIP "Tip"> +<!ENTITY Tip "Tip"> +<!ENTITY tip "Tip"> +<!ENTITY WARNING "Varov\U-00E1;n\U-00ED;"> +<!ENTITY Warning "Varov\U-00E1;n\U-00ED;"> +<!ENTITY warning "Varov\U-00E1;n\U-00ED;"> +<!ENTITY and "a"> +<!ENTITY by ""> +<!ENTITY Edited "Vyd\U-00E1;no"> +<!ENTITY edited "Vyd\U-00E1;no"> +<!ENTITY Editedby "Sestavil"> +<!ENTITY editedby "Sestavil"> +<!ENTITY in "v"> +<!ENTITY lastlistcomma ""> +<!ENTITY listcomma ","> +<!ENTITY nonexistantelement "neexistuj\U-00ED;c\U-00ED; prvek"> +<!ENTITY notes "Pozn\U-00E1;mky"> +<!ENTITY Notes "Pozn\U-00E1;mky"> +<!ENTITY Pgs "Str."> +<!ENTITY pgs "Str."> +<!ENTITY Revisedby "Revidoval: "> +<!ENTITY revisedby "Revidoval: "> +<!ENTITY TableNotes "Pozn\U-00E1;mky"> +<!ENTITY tablenotes "Pozn\U-00E1;mky"> +<!ENTITY TableofContents "Obsah"> +<!ENTITY tableofcontents "Obsah"> +<!ENTITY unexpectedelementname "Neo\U-010D;ek\U-00E1;van\U-00E9; jm\U-00E9;no prvku"> +<!ENTITY unsupported "nepodporovan\U-00FD;"> +<!ENTITY xrefto "xref k"> +<!ENTITY listofequations "Seznam rovnic"> +<!ENTITY ListofEquations "Seznam rovnic"> +<!ENTITY ListofExamples "Seznam p\U-0159;\U-00ED;klad\U-016F;"> +<!ENTITY listofexamples "Seznam p\U-0159;\U-00ED;klad\U-016F;"> +<!ENTITY ListofFigures "Seznam obr\U-00E1;zk\U-016F;"> +<!ENTITY listoffigures "Seznam obr\U-00E1;zk\U-016F;"> +<!ENTITY listoftables "Seznam tabulek"> +<!ENTITY ListofTables "Seznam tabulek"> +<!ENTITY ListofUnknown "Seznam nezn\U-00E1;m\U-00E9;ho"> +<!ENTITY listofunknown "Seznam nezn\U-00E1;m\U-00E9;ho"> +<!ENTITY nav-home "Dom\U-016F;"> +<!ENTITY nav-next "Dal\U-0161;\U-00ED;"> +<!ENTITY nav-next-sibling "Rychle dop\U-0159;edu"> +<!ENTITY nav-prev "P\U-0159;edch\U-00E1;zej\U-00ED;c\U-00ED;"> +<!ENTITY nav-prev-sibling "Rychle zp\U-011B;t"> +<!ENTITY nav-up "Nahoru"> +<!ENTITY sectioncalled "odd\U-00ED;l nazvan\U-00FD;"> +<!ENTITY Draft "N\U-00E1;vrh"> +<!ENTITY above "nad"> +<!ENTITY below "pod"> +<!ENTITY lowercase.alpha "a\U-00E1;bc\U-010D;d\U-010F;e\U-00E9;\U-011B;fghi\U-00ED;jklmno\U-00F3;pqr\U-0159;s\U-0161;t\U-0165;u\U-00FA;\U-016F;vwxy\U-00FD;z\U-017E;"> +<!ENTITY uppercase.alpha "A\U-00C1;BC\U-010C;D\U-010E;E\U-00C9;\U-011A;FGHI\U-00CD;JKLMNO\U-00D3;PQR\U-0158;S\U-0160;T\U-0164;U\U-00DA;\U-016E;VWXY\U-00DD;Z\U-017D;"> diff --git a/stylesheets/dsssl-1.79/common/dbl1da.dsl b/stylesheets/dsssl-1.79/common/dbl1da.dsl new file mode 100644 index 0000000..79d4823 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1da.dsl @@ -0,0 +1,432 @@ +<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ +<!ENTITY % da.words + PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//DA" + "dbl1da.ent"> +%da.words; +]> + +<style-sheet> +<style-specification id="docbook-l10n-da"> +<style-specification-body> + +;; $Id: dbl1da.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ +;; +;; This file is part of the Modular DocBook Stylesheet distribution. +;; See ../README or http://nwalsh.com/docbook/dsssl/ +;; + +;; ----------------------------- Localization ----------------------------- + +;; If you create a new version of this file, please send it to +;; Norman Walsh, ndw@nwalsh.com + +;; Contributors: +;; Finn Bock, fbo@dde.dk + +(define (da-author-string #!optional (author (current-node))) + ;; Return a formatted string representation of the contents of: + ;; AUTHOR: + ;; Handles Honorific, FirstName, SurName, and Lineage. + ;; If %author-othername-in-middle% is #t, also OtherName + ;; Handles *only* the first of each. + ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" + ;; CORPAUTHOR: + ;; returns (data corpauthor) + (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) + (f_nl (select-elements (descendants author) (normalize "firstname"))) + (o_nl (select-elements (descendants author) (normalize "othername"))) + (s_nl (select-elements (descendants author) (normalize "surname"))) + (l_nl (select-elements (descendants author) (normalize "lineage"))) + (has_h (not (node-list-empty? h_nl))) + (has_f (not (node-list-empty? f_nl))) + (has_o (and %author-othername-in-middle% + (not (node-list-empty? o_nl)))) + (has_s (not (node-list-empty? s_nl))) + (has_l (not (node-list-empty? l_nl)))) + (if (or (equal? (gi author) (normalize "author")) + (equal? (gi author) (normalize "editor")) + (equal? (gi author) (normalize "othercredit"))) + (string-append + (if has_h (string-append (data-of (node-list-first h_nl)) + %honorific-punctuation%) "") + (if has_f (string-append + (if has_h " " "") + (data-of (node-list-first f_nl))) "") + (if has_o (string-append + (if (or has_h has_f) " " "") + (data-of (node-list-first o_nl))) "") + (if has_s (string-append + (if (or has_h has_f has_o) " " "") + (data-of (node-list-first s_nl))) "") + (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) + (data-of author)))) + +(define (da-xref-strings) + (list (list (normalize "appendix") (if %chapter-autolabel% + "&Appendix; %n" + "&appendix; med navn %t")) + (list (normalize "article") (string-append %gentext-da-start-quote% + "%t" + %gentext-da-end-quote%)) + (list (normalize "bibliography") "%t") + (list (normalize "book") "%t") + (list (normalize "chapter") (if %chapter-autolabel% + "&Chapter; %n" + "kapitlet om %t")) + (list (normalize "equation") "&Equation; %n") + (list (normalize "example") "&Example; %n") + (list (normalize "figure") "&Figure; %n") + (list (normalize "glossary") "%t") + (list (normalize "index") "%t") + (list (normalize "listitem") "%n") + (list (normalize "part") "&Part; %n") + (list (normalize "preface") "%t") + (list (normalize "procedure") "&Procedure; %n, %t") + (list (normalize "reference") "&Reference; %n, %t") + (list (normalize "section") (if %section-autolabel% + "&Section; %n" + "sektionen med navn %t")) + (list (normalize "sect1") (if %section-autolabel% + "&Section; %n" + "sektionen med navn %t")) + (list (normalize "sect2") (if %section-autolabel% + "&Section; %n" + "undersektionen med navn %t")) + (list (normalize "sect3") (if %section-autolabel% + "&Section; %n" + "undersektionen med navn %t")) + (list (normalize "sect4") (if %section-autolabel% + "&Section; %n" + "undersektionen med navn %t")) + (list (normalize "sect5") (if %section-autolabel% + "&Section; %n" + "undersektionen med navn %t")) + (list (normalize "simplesect") (if %section-autolabel% + "&Section; %n" + "undersektionen med navn %t")) + (list (normalize "sidebar") "&sidebar; %t") + (list (normalize "step") "&step; %n") + (list (normalize "table") "&Table; %n"))) + +(define (gentext-da-xref-strings gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (xref (assoc name (da-xref-strings)))) + (if xref + (car (cdr xref)) + (let* ((msg (string-append "[&xrefto; " + (if giname giname "&nonexistantelement;") + " &unsupported;]")) + (err (node-list-error msg (current-node)))) + msg)))) + +(define (da-auto-xref-indirect-connector before) + (literal " i ")) + +;; Should the TOC come first or last? +;; +(define %generate-da-toc-in-front% #t) + +;; gentext-element-name returns the generated text that should be +;; used to make reference to the selected element. +;; + +(define (da-element-name) + (list + (list (normalize "abstract") "&Abstract;") + (list (normalize "answer") "&Answer;") + (list (normalize "appendix") "&Appendix;") + (list (normalize "article") "&Article;") + (list (normalize "bibliography") "&Bibliography;") + (list (normalize "book") "&Book;") + (list (normalize "calloutlist") "") + (list (normalize "caution") "&Caution;") + (list (normalize "chapter") "&Chapter;") + (list (normalize "copyright") "&Copyright;") + (list (normalize "dedication") "&Dedication;") + (list (normalize "edition") "&Edition;") + (list (normalize "equation") "&Equation;") + (list (normalize "example") "&Example;") + (list (normalize "figure") "&Figure;") + (list (normalize "glossary") "&Glossary;") + (list (normalize "glosssee") "&GlossSee;") + (list (normalize "glossseealso") "&GlossSeeAlso;") + (list (normalize "important") "&Important;") + (list (normalize "index") "&Index;") + (list (normalize "colophon") "&Colophon;") + (list (normalize "setindex") "&SetIndex;") + (list (normalize "isbn") "&isbn;") + (list (normalize "legalnotice") "&LegalNotice;") + (list (normalize "msgaud") "&MsgAud;") + (list (normalize "msglevel") "&MsgLevel;") + (list (normalize "msgorig") "&MsgOrig;") + (list (normalize "note") "&Note;") + (list (normalize "part") "&Part;") + (list (normalize "preface") "&Preface;") + (list (normalize "procedure") "&Procedure;") + (list (normalize "pubdate") "&Published;") + (list (normalize "question") "&Question;") + (list (normalize "refentry") "&RefEntry;") + (list (normalize "reference") "&Reference;") + (list (normalize "refname") "&RefName;") + (list (normalize "revhistory") "&RevHistory;") + (list (normalize "refsect1") "&RefSection;") + (list (normalize "refsect2") "&RefSection;") + (list (normalize "refsect3") "&RefSection;") + (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") + (list (normalize "revision") "&Revision;") + (list (normalize "sect1") "&Section;") + (list (normalize "sect2") "&Section;") + (list (normalize "sect3") "&Section;") + (list (normalize "sect4") "&Section;") + (list (normalize "sect5") "&Section;") + (list (normalize "section") "&Section;") + (list (normalize "simplesect") "&Section;") + (list (normalize "seeie") "&See;") + (list (normalize "seealsoie") "&Seealso;") + (list (normalize "set") "&Set;") + (list (normalize "sidebar") "&Sidebar;") + (list (normalize "step") "&step;") + (list (normalize "table") "&Table;") + (list (normalize "tip") "&Tip;") + (list (normalize "toc") "&TableofContents;") + (list (normalize "warning") "&Warning;") + )) + +(define (gentext-da-element-name gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (pname (assoc name (da-element-name)))) + (if pname + (car (cdr pname)) + (let* ((msg (string-append + "gentext-da-element-name: &unexpectedelementname;: " + name)) + (err (node-list-error msg (current-node)))) + msg)))) + +;; gentext-element-name-space returns gentext-element-name with a +;; trailing space, if gentext-element-name isn't "". +;; +(define (gentext-da-element-name-space giname) + (string-with-space (gentext-element-name giname))) + +;; gentext-intra-label-sep returns the seperator to be inserted +;; between multiple occurances of a label (or parts of a label) +;; for the specified element. Most of these are for enumerated +;; labels like "Figure 2-4", but this function is used elsewhere +;; (e.g. REFNAME) with a little abuse. +;; + +(define (local-da-intra-label-sep) + (list)) + +(define (da-intra-label-sep) + (list + (list (normalize "equation") "-") + (list (normalize "informalequation") "-") + (list (normalize "example") "-") + (list (normalize "figure") "-") + (list (normalize "listitem") ".") + (list (normalize "procedure") ".") + (list (normalize "refentry") ".") + (list (normalize "reference") ".") + (list (normalize "refname") ", ") + (list (normalize "refsect1") ".") + (list (normalize "refsect2") ".") + (list (normalize "refsect3") ".") + (list (normalize "sect1") ".") + (list (normalize "sect2") ".") + (list (normalize "sect3") ".") + (list (normalize "sect4") ".") + (list (normalize "sect5") ".") + (list (normalize "section") ".") + (list (normalize "simplesect") ".") + (list (normalize "step") ".") + (list (normalize "table") "-") + (list (normalize "_pagenumber") "-") + )) + +(define (gentext-da-intra-label-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-da-intra-label-sep))) + (sep (assoc name (da-intra-label-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +;; gentext-label-title-sep returns the seperator to be inserted +;; between a label and the text following the label for the +;; specified element. Most of these are for use between +;; enumerated labels and titles like "1. Chapter One Title", but +;; this function is used elsewhere (e.g. NOTE) with a little +;; abuse. +;; + +(define (local-da-label-title-sep) + (list)) + +(define (da-label-title-sep) + (list + (list (normalize "abstract") ": ") + (list (normalize "answer") " ") + (list (normalize "appendix") ". ") + (list (normalize "caution") "") + (list (normalize "chapter") ". ") + (list (normalize "equation") ". ") + (list (normalize "example") ". ") + (list (normalize "figure") ". ") + (list (normalize "footnote") ". ") + (list (normalize "glosssee") ": ") + (list (normalize "glossseealso") ": ") + (list (normalize "important") ": ") + (list (normalize "note") ": ") + (list (normalize "orderedlist") ". ") + (list (normalize "part") ". ") + (list (normalize "procedure") ". ") + (list (normalize "prefix") ". ") + (list (normalize "question") " ") + (list (normalize "refentry") "") + (list (normalize "reference") ". ") + (list (normalize "refsect1") ". ") + (list (normalize "refsect2") ". ") + (list (normalize "refsect3") ". ") + (list (normalize "sect1") ". ") + (list (normalize "sect2") ". ") + (list (normalize "sect3") ". ") + (list (normalize "sect4") ". ") + (list (normalize "sect5") ". ") + (list (normalize "section") ". ") + (list (normalize "simplesect") ". ") + (list (normalize "seeie") " ") + (list (normalize "seealsoie") " ") + (list (normalize "step") ". ") + (list (normalize "table") ". ") + (list (normalize "tip") ": ") + (list (normalize "warning") "") + )) + +(define (gentext-da-label-title-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-da-label-title-sep))) + (sep (assoc name (da-label-title-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +(define (da-label-number-format-list) + (list + (list (normalize "set") "1") + (list (normalize "book") "1") + (list (normalize "prefix") "1") + (list (normalize "part") "I") + (list (normalize "chapter") "1") + (list (normalize "appendix") "A") + (list (normalize "reference") "I") + (list (normalize "example") "1") + (list (normalize "figure") "1") + (list (normalize "table") "1") + (list (normalize "procedure") "1") + (list (normalize "step") "1") + (list (normalize "refsect1") "1") + (list (normalize "refsect2") "1") + (list (normalize "refsect3") "1") + (list (normalize "sect1") "1") + (list (normalize "sect2") "1") + (list (normalize "sect3") "1") + (list (normalize "sect4") "1") + (list (normalize "sect5") "1") + (list (normalize "section") "1") + )) + +(define (da-label-number-format gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (format (assoc name (da-label-number-format-list)))) + (if format + (car (cdr format)) + "1"))) + +(define (da-lot-title) + (list + (list (normalize "table") "&ListofTables;") + (list (normalize "example") "&ListofExamples;") + (list (normalize "figure") "&ListofFigures;") + (list (normalize "equation") "&ListofEquations;") + )) + +(define ($lot-title-da$ gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (title (assoc name (da-lot-title)))) + (if title + (car (cdr title)) + (let* ((msg (string-append "&ListofUnknown;: " name)) + (err (node-list-error msg (current-node)))) + msg)))) + +(define %gentext-da-start-quote% (dingbat "ldquo")) + +(define %gentext-da-end-quote% (dingbat "rdquo")) + +(define %gentext-da-start-nested-quote% (dingbat "lsquo")) + +(define %gentext-da-end-nested-quote% (dingbat "rsquo")) + +(define %gentext-da-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous + ;; Authored "by" Jane Doe + +(define %gentext-da-edited-by% "&Editedby;") + ;; "Edited by" Jane Doe + +(define %gentext-da-revised-by% "&Revisedby;") + ;; "Revised by" Jane Doe + +(define %gentext-da-page% "") + +(define %gentext-da-and% "∧") + +(define %gentext-da-listcomma% "&listcomma;") + +(define %gentext-da-lastlistcomma% "&lastlistcomma;") + +(define %gentext-da-bibl-pages% "&Pgs;") + +(define %gentext-da-endnotes% "&Notes;") + +(define %gentext-da-table-endnotes% "&TableNotes;:") + +(define %gentext-da-index-see% "&See;") + +(define %gentext-da-index-seealso% "&SeeAlso;") + + +(define (gentext-da-nav-prev prev) + (make sequence (literal "&nav-prev;"))) + +(define (gentext-da-nav-prev-sibling prevsib) + (make sequence (literal "&nav-prev-sibling;"))) + +(define (gentext-da-nav-next-sibling nextsib) + (make sequence (literal "&nav-next-sibling;"))) + +(define (gentext-da-nav-next next) + (make sequence (literal "&nav-next;"))) + +(define (gentext-da-nav-up up) + (make sequence (literal "&nav-up;"))) + +(define (gentext-da-nav-home home) + (make sequence (literal "&nav-home;"))) + + + +</style-specification-body> +</style-specification> +</style-sheet> diff --git a/stylesheets/dsssl-1.79/common/dbl1da.ent b/stylesheets/dsssl-1.79/common/dbl1da.ent new file mode 100644 index 0000000..0ac6132 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1da.ent @@ -0,0 +1,163 @@ +<?xml version="1.0" encoding="US-ASCII"?> +<!-- This file is generated automatically. --> +<!-- Do not edit this file by hand! --> +<!-- See http://docbook.sourceforge.net/ --> +<!-- To update this file: edit the corresponding document at --> +<!-- http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/docbook/gentext/locale/ --> + +<!ENTITY Abstract "Resum\U-00E9;"> +<!ENTITY abstract "resum\U-00E9;"> +<!ENTITY Answer "Svar"> +<!ENTITY answer "svar"> +<!ENTITY Appendix "Appendiks"> +<!ENTITY appendix "appendiks"> +<!ENTITY Article "Artikel"> +<!ENTITY article "artikel"> +<!ENTITY Bibliography "Litteraturliste"> +<!ENTITY bibliography "litteraturliste"> +<!ENTITY Book "Bog"> +<!ENTITY book "bog"> +<!ENTITY CAUTION "PAS P\U-00C5;"> +<!ENTITY Caution "Pas p\U-00E5;"> +<!ENTITY caution "pas p\U-00E5;"> +<!ENTITY Chapter "Kapitel"> +<!ENTITY chapter "kapitel"> +<!ENTITY Colophon "Kolofon"> +<!ENTITY colophon "kolofon"> +<!ENTITY Copyright "Ophavsret"> +<!ENTITY copyright "ophavsret"> +<!ENTITY Dedication "Tilegnet"> +<!ENTITY dedication "tilegnet"> +<!ENTITY Edition "Udgave"> +<!ENTITY edition "udgave"> +<!ENTITY Equation "Ligning"> +<!ENTITY equation "ligning"> +<!ENTITY Example "Eksempel"> +<!ENTITY example "eksempel"> +<!ENTITY Figure "Figur"> +<!ENTITY figure "figur"> +<!ENTITY Glossary "Ordliste"> +<!ENTITY glossary "ordliste"> +<!ENTITY GlossSee "Se"> +<!ENTITY glosssee "se"> +<!ENTITY GlossSeeAlso "Se ogs\U-00E5;"> +<!ENTITY glossseealso "se ogs\U-00E5;"> +<!ENTITY IMPORTANT "VIGTIGT"> +<!ENTITY Important "Vigtigt"> +<!ENTITY important "vigtigt"> +<!ENTITY Index "Stikordsregister"> +<!ENTITY index "stikordsregister"> +<!ENTITY ISBN "ISBN"> +<!ENTITY isbn "ISBN"> +<!ENTITY LegalNotice "Retslig note"> +<!ENTITY legalnotice "retslig note"> +<!ENTITY MsgAud "M\U-00E5;lgruppe"> +<!ENTITY msgaud "m\U-00E5;lgruppe"> +<!ENTITY MsgLevel "Niveau"> +<!ENTITY msglevel "niveau"> +<!ENTITY MsgOrig "Grundlag"> +<!ENTITY msgorig "grundlag"> +<!ENTITY NOTE "BEM\U-00C6;RK"> +<!ENTITY Note "Bem\U-00E6;rk"> +<!ENTITY note "bem\U-00E6;rk"> +<!ENTITY Part "Del"> +<!ENTITY part "del"> +<!ENTITY Preface "Forord"> +<!ENTITY preface "forord"> +<!ENTITY Procedure "Procedure"> +<!ENTITY procedure "procedure"> +<!ENTITY ProductionSet "Produktion"> +<!ENTITY Published "Udgivet"> +<!ENTITY published "udgivet"> +<!ENTITY Question "Sp\U-00F8;rgsm\U-00E5;l"> +<!ENTITY question "sp\U-00F8;rgsm\U-00E5;l"> +<!ENTITY RefEntry "Punkt"> +<!ENTITY refentry "punkt"> +<!ENTITY Reference "Henvisning"> +<!ENTITY reference "henvisning"> +<!ENTITY RefName "Navn"> +<!ENTITY refname "navn"> +<!ENTITY RefSection "Afsnit"> +<!ENTITY refsection "afsnit"> +<!ENTITY RefSynopsisDiv "Synopsis"> +<!ENTITY refsynopsisdiv "synopsis"> +<!ENTITY RevHistory "Revisionshistorie"> +<!ENTITY revhistory "revisionshistorie"> +<!ENTITY revision "revision"> +<!ENTITY Revision "Revision"> +<!ENTITY sect1 "Afsnit"> +<!ENTITY sect2 "Afsnit"> +<!ENTITY sect3 "Afsnit"> +<!ENTITY sect4 "Afsnit"> +<!ENTITY sect5 "Afsnit"> +<!ENTITY section "afsnit"> +<!ENTITY Section "Afsnit"> +<!ENTITY See "Se"> +<!ENTITY see "se"> +<!ENTITY SeeAlso "Se ogs\U-00E5;"> +<!ENTITY seealso "se ogs\U-00E5;"> +<!ENTITY Seealso "Se ogs\U-00E5;"> +<!ENTITY set "s\U-00E6;t"> +<!ENTITY Set "S\U-00E6;t"> +<!ENTITY setindex "s\U-00E6;t indeks"> +<!ENTITY SetIndex "S\U-00E6;t indeks"> +<!ENTITY Sidebar "Sidebj\U-00E6;lke"> +<!ENTITY sidebar "sidebj\U-00E6;lke"> +<!ENTITY step "trin"> +<!ENTITY Step "Trin"> +<!ENTITY Table "Tabel"> +<!ENTITY table "tabel"> +<!ENTITY tip "vink"> +<!ENTITY TIP "VINK"> +<!ENTITY Tip "Vink"> +<!ENTITY Warning "Advarsel"> +<!ENTITY warning "advarsel"> +<!ENTITY WARNING "ADVARSEL"> +<!ENTITY and "og"> +<!ENTITY by "af"> +<!ENTITY Edited "Redigeret"> +<!ENTITY edited "redigeret"> +<!ENTITY Editedby "Redigeret af"> +<!ENTITY editedby "redigeret af"> +<!ENTITY in "i"> +<!ENTITY lastlistcomma ""> +<!ENTITY listcomma ", "> +<!ENTITY nonexistantelement "ikke-eksisterende element"> +<!ENTITY notes "slutbem\U-00E6;rkning:"> +<!ENTITY Notes "Slutbem\U-00E6;rkning:"> +<!ENTITY Pgs "Siderne"> +<!ENTITY pgs "siderne"> +<!ENTITY Revisedby "Revideret af: "> +<!ENTITY revisedby "revideret af: "> +<!ENTITY TableNotes "Noter:"> +<!ENTITY tablenotes "noter:"> +<!ENTITY TableofContents "Indholdsfortegnelse"> +<!ENTITY tableofcontents "indholdsfortegnelse"> +<!ENTITY unexpectedelementname "uventet elementnavn"> +<!ENTITY unsupported "ikke underst\U-00F8;ttet"> +<!ENTITY xrefto "krydshenvisning til"> +<!ENTITY listofequations "ligningsliste"> +<!ENTITY ListofEquations "Ligningsliste"> +<!ENTITY ListofExamples "Eksempelliste"> +<!ENTITY listofexamples "eksempelliste"> +<!ENTITY ListofFigures "Figurliste"> +<!ENTITY listoffigures "figurliste"> +<!ENTITY listoftables "tabelliste"> +<!ENTITY ListofTables "Tabelliste"> +<!ENTITY ListofUnknown "Liste over ukendte"> +<!ENTITY listofunknown "liste over ukendte"> +<!ENTITY nav-home "hjem"> +<!ENTITY nav-next "n\U-00E6;ste"> +<!ENTITY nav-next-sibling "hurtigt fremad"> +<!ENTITY nav-prev "forrige"> +<!ENTITY nav-prev-sibling "hurtigt tilbage"> +<!ENTITY nav-up "op"> +<!ENTITY Draft "Kladde"> +<!ENTITY above "over"> +<!ENTITY below "under"> +<!ENTITY sectioncalled "afsnittet der hedder"> +<!ENTITY lowercase.alpha "abcdefghijklmnopqrstuvwxyz\U-00E6;\U-00F8;\U-00E5;"> +<!ENTITY uppercase.alpha "ABCDEFGHIJKLMNOPQRSTUVWXYZ\U-00C6;\U-00D8;\U-00C5;"> +<!ENTITY hyphenation-character "-"> +<!ENTITY hyphenation-push-character-count "2"> +<!ENTITY hyphenation-remain-character-count "2"> diff --git a/stylesheets/dsssl-1.79/common/dbl1de.dsl b/stylesheets/dsssl-1.79/common/dbl1de.dsl new file mode 100644 index 0000000..6b323be --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1de.dsl @@ -0,0 +1,445 @@ +<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ +<!ENTITY % de.words + PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//DE" + "dbl1de.ent"> +%de.words; +]> + +<style-sheet> +<style-specification id="docbook-l10n-de"> +<style-specification-body> + +;; $Id: dbl1de.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ +;; +;; This file is part of the Modular DocBook Stylesheet distribution. +;; See ../README or http://nwalsh.com/docbook/dsssl/ +;; + +;; ----------------------------- Localization ----------------------------- + +;; If you create a new version of this file, please send it to +;; Norman Walsh, ndw@nwalsh.com + +;; Contributors: +;; Rainer Feuerstein, fire@informatik.uni-wuerzburg.de, +;; Christian Leutloff, leutloff@sundancer.oche.de +;; Ulrich Windl, Ulrich.Windl@rz.uni-regensburg.de +;; Christian Kirsch, ck@held.mind.de +;; Joerg Wittenberger, Joerg.Wittenberger@pobox.com + +(define (de-author-string #!optional (author (current-node))) + ;; Return a formatted string representation of the contents of: + ;; AUTHOR: + ;; Handles Honorific, FirstName, SurName, and Lineage. + ;; If %author-othername-in-middle% is #t, also OtherName + ;; Handles *only* the first of each. + ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" + ;; CORPAUTHOR: + ;; returns (data corpauthor) + (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) + (f_nl (select-elements (descendants author) (normalize "firstname"))) + (o_nl (select-elements (descendants author) (normalize "othername"))) + (s_nl (select-elements (descendants author) (normalize "surname"))) + (l_nl (select-elements (descendants author) (normalize "lineage"))) + (has_h (not (node-list-empty? h_nl))) + (has_f (not (node-list-empty? f_nl))) + (has_o (and %author-othername-in-middle% + (not (node-list-empty? o_nl)))) + (has_s (not (node-list-empty? s_nl))) + (has_l (not (node-list-empty? l_nl)))) + (if (or (equal? (gi author) (normalize "author")) + (equal? (gi author) (normalize "editor")) + (equal? (gi author) (normalize "othercredit"))) + (string-append + (if has_h (string-append (data-of (node-list-first h_nl)) + %honorific-punctuation%) "") + (if has_f (string-append + (if has_h " " "") + (data-of (node-list-first f_nl))) "") + (if has_o (string-append + (if (or has_h has_f) " " "") + (data-of (node-list-first o_nl))) "") + (if has_s (string-append + (if (or has_h has_f has_o) " " "") + (data-of (node-list-first s_nl))) "") + (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) + (data-of author)))) + +(define (de-xref-strings) + (list (list (normalize "appendix") (if %chapter-autolabel% + "&Appendix; %n" + "&Appendix; namens %t")) + (list (normalize "article") (string-append %gentext-de-start-quote% + "%t" + %gentext-de-end-quote%)) + (list (normalize "bibliography") "%t") + (list (normalize "book") "%t") + (list (normalize "chapter") (if %chapter-autolabel% + "&Chapter; %n" + "&Chapter; namens %t")) + (list (normalize "equation") "&Equation; %n") + (list (normalize "example") "&Example; %n") + (list (normalize "figure") "&Figure; %n") + (list (normalize "glossary") "%t") + (list (normalize "index") "%t") + (list (normalize "listitem") "%n") + (list (normalize "part") "&Part; %n") + (list (normalize "preface") "%t") + (list (normalize "procedure") "&Procedure; %n, %t") + (list (normalize "reference") "&Reference; %n, %t") + (list (normalize "section") (if %section-autolabel% + "&Section; %n" + "&Section; namens %t")) + (list (normalize "sect1") (if %section-autolabel% + "&Section; %n" + "&Section; namens %t")) + (list (normalize "sect2") (if %section-autolabel% + "&Section; %n" + "&Section; namens %t")) + (list (normalize "sect3") (if %section-autolabel% + "&Section; %n" + "&Section; namens %t")) + (list (normalize "sect4") (if %section-autolabel% + "&Section; %n" + "&Section; namens %t")) + (list (normalize "sect5") (if %section-autolabel% + "&Section; %n" + "&Section; namens %t")) + (list (normalize "simplesect") (if %section-autolabel% + "&Section; %n" + "&Section; namens %t")) + (list (normalize "sidebar") "&Sidebar; %t") + (list (normalize "step") "&step; %n") + (list (normalize "table") "&Table; %n"))) + +(define (gentext-de-xref-strings gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (xref (assoc name (de-xref-strings)))) + (if xref + (car (cdr xref)) + (let* ((msg (string-append "[&xrefto; " + (if giname giname "&nonexistantelement;") + " &unsupported;]")) + (err (node-list-error msg (current-node)))) + msg)))) + +(define (de-auto-xref-indirect-connector before) + ;; In German one usually says "... in dem Buch ..." (probably because + ;; it's a larger piece of work and more commonly known) + (cond + ((equal? (gi before) (normalize "book")) + (literal " ∈ dem ")) + ((equal? (gi before) (normalize "chapter")) + (literal " ∈ ")) + ((equal? (gi before) (normalize "sect1")) + (literal " ∈ ")) + (else + (literal " ∈ ")))) + +;; Should the TOC come first or last? +;; +(define %generate-de-toc-in-front% #t) + +;; gentext-element-name returns the generated text that should be +;; used to make reference to the selected element. +;; +(define (de-element-name) + (list + (list (normalize "abstract") "&Abstract;") + (list (normalize "answer") "&Answer;") + (list (normalize "appendix") "&Appendix;") + (list (normalize "article") "&Article;") + (list (normalize "bibliography") "&Bibliography;") + (list (normalize "book") "&Book;") + (list (normalize "calloutlist") "") + (list (normalize "caution") "&Caution;") + (list (normalize "chapter") "&Chapter;") + (list (normalize "copyright") "&Copyright;") + (list (normalize "dedication") "&Dedication;") + (list (normalize "edition") "&Edition;") + (list (normalize "equation") "&Equation;") + (list (normalize "example") "&Example;") + (list (normalize "figure") "&Figure;") + (list (normalize "glossary") "&Glossary;") + (list (normalize "glosssee") "&GlossSee;") + (list (normalize "glossseealso") "&GlossSeeAlso;") + (list (normalize "important") "&Important;") + (list (normalize "index") "&Index;") + (list (normalize "colophon") "&Colophon;") + (list (normalize "setindex") "&SetIndex;") + (list (normalize "isbn") "&isbn;") + (list (normalize "legalnotice") "&LegalNotice;") + (list (normalize "msgaud") "&MsgAud;") + (list (normalize "msglevel") "&MsgLevel;") + (list (normalize "msgorig") "&MsgOrig;") + (list (normalize "note") "&Note;") + (list (normalize "part") "&Part;") + (list (normalize "preface") "&Preface;") + (list (normalize "procedure") "&Procedure;") + (list (normalize "pubdate") "&Published;") + (list (normalize "question") "&Question;") + (list (normalize "refentry") "&RefEntry;") + (list (normalize "reference") "&Reference;") + (list (normalize "refname") "&RefName;") + (list (normalize "revhistory") "&RevHistory;") + (list (normalize "refsect1") "&RefSection;") + (list (normalize "refsect2") "&RefSection;") + (list (normalize "refsect3") "&RefSection;") + (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") + (list (normalize "revision") "&Revision;") + (list (normalize "sect1") "&Section;") + (list (normalize "sect2") "&Section;") + (list (normalize "sect3") "&Section;") + (list (normalize "sect4") "&Section;") + (list (normalize "sect5") "&Section;") + (list (normalize "section") "&Section;") + (list (normalize "simplesect") "&Section;") + (list (normalize "seeie") "&See;") + (list (normalize "seealsoie") "&Seealso;") + (list (normalize "set") "&Set;") + (list (normalize "sidebar") "&Sidebar;") + (list (normalize "step") "&step;") + (list (normalize "table") "&Table;") + (list (normalize "tip") "&Tip;") + (list (normalize "toc") "&TableofContents;") + (list (normalize "warning") "&Warning;") + )) + +(define (gentext-de-element-name gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (pname (assoc name (de-element-name)))) + (if pname + (car (cdr pname)) + (let* ((msg (string-append + "gentext-de-element-name: &unexpectedelementname;: " + name)) + (err (node-list-error msg (current-node)))) + msg)))) + +;; gentext-element-name-space returns gentext-element-name with a +;; trailing space, if gentext-element-name isn't "". +;; +(define (gentext-de-element-name-space giname) + (string-with-space (gentext-element-name giname))) + +;; gentext-intra-label-sep returns the seperator to be inserted +;; between multiple occurances of a label (or parts of a label) +;; for the specified element. Most of these are for enumerated +;; labels like "Figure 2-4", but this function is used elsewhere +;; (e.g. REFNAME) with a little abuse. +;; + +(define (local-de-intra-label-sep) + (list)) + +(define (de-intra-label-sep) + (list + (list (normalize "equation") "-") + (list (normalize "informalequation") "-") + (list (normalize "example") "-") + (list (normalize "figure") "-") + (list (normalize "listitem") ".") + (list (normalize "procedure") ".") + (list (normalize "refentry") ".") + (list (normalize "reference") ".") + (list (normalize "refname") ", ") + (list (normalize "refsect1") ".") + (list (normalize "refsect2") ".") + (list (normalize "refsect3") ".") + (list (normalize "sect1") ".") + (list (normalize "sect2") ".") + (list (normalize "sect3") ".") + (list (normalize "sect4") ".") + (list (normalize "sect5") ".") + (list (normalize "section") ".") + (list (normalize "simplesect") ".") + (list (normalize "step") ".") + (list (normalize "table") "-") + (list (normalize "_pagenumber") "-") + )) + +(define (gentext-de-intra-label-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-de-intra-label-sep))) + (sep (assoc name (de-intra-label-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +;; gentext-label-title-sep returns the seperator to be inserted +;; between a label and the text following the label for the +;; specified element. Most of these are for use between +;; enumerated labels and titles like "1. Chapter One Title", but +;; this function is used elsewhere (e.g. NOTE) with a little +;; abuse. +;; + +(define (local-de-label-title-sep) + (list)) + +(define (de-label-title-sep) + (list + (list (normalize "abstract") ": ") + (list (normalize "answer") " ") + (list (normalize "appendix") ". ") + (list (normalize "caution") "") + (list (normalize "chapter") ". ") + (list (normalize "equation") ". ") + (list (normalize "example") ". ") + (list (normalize "figure") ". ") + (list (normalize "footnote") ". ") + (list (normalize "glosssee") ": ") + (list (normalize "glossseealso") ": ") + (list (normalize "important") ": ") + (list (normalize "note") ": ") + (list (normalize "orderedlist") ". ") + (list (normalize "part") ". ") + (list (normalize "procedure") ". ") + (list (normalize "prefix") ". ") + (list (normalize "question") " ") + (list (normalize "refentry") "") + (list (normalize "reference") ". ") + (list (normalize "refsect1") ". ") + (list (normalize "refsect2") ". ") + (list (normalize "refsect3") ". ") + (list (normalize "sect1") ". ") + (list (normalize "sect2") ". ") + (list (normalize "sect3") ". ") + (list (normalize "sect4") ". ") + (list (normalize "sect5") ". ") + (list (normalize "section") ". ") + (list (normalize "simplesect") ". ") + (list (normalize "seeie") " ") + (list (normalize "seealsoie") " ") + (list (normalize "step") ". ") + (list (normalize "table") ". ") + (list (normalize "tip") ": ") + (list (normalize "warning") "") + )) + +(define (gentext-de-label-title-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-de-label-title-sep))) + (sep (assoc name (de-label-title-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +(define (de-label-number-format-list) + (list + (list (normalize "set") "1") + (list (normalize "book") "1") + (list (normalize "prefix") "1") + (list (normalize "part") "I") + (list (normalize "chapter") "1") + (list (normalize "appendix") "A") + (list (normalize "reference") "I") + (list (normalize "example") "1") + (list (normalize "figure") "1") + (list (normalize "table") "1") + (list (normalize "procedure") "1") + (list (normalize "step") "1") + (list (normalize "refsect1") "1") + (list (normalize "refsect2") "1") + (list (normalize "refsect3") "1") + (list (normalize "sect1") "1") + (list (normalize "sect2") "1") + (list (normalize "sect3") "1") + (list (normalize "sect4") "1") + (list (normalize "sect5") "1") + (list (normalize "section") "1") + )) + +(define (de-label-number-format gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (format (assoc name (de-label-number-format-list)))) + (if format + (car (cdr format)) + "1"))) + +(define (de-lot-title) + (list + (list (normalize "table") "&ListofTables;") + (list (normalize "example") "&ListofExamples;") + (list (normalize "figure") "&ListofFigures;") + (list (normalize "equation") "&ListofEquations;") + )) + +(define ($lot-title-de$ gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (title (assoc name (de-lot-title)))) + (if title + (car (cdr title)) + (let* ((msg (string-append "&ListofUnknown;: " name)) + (err (node-list-error msg (current-node)))) + msg)))) + +(define %gentext-de-start-quote% "\U-201E;") + +(define %gentext-de-end-quote% "\U-201C;") + +(define %gentext-de-start-nested-quote% "\U-201A;") + +(define %gentext-de-end-nested-quote% "\U-2018;") + +(define %gentext-de-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous + ;; Authored "by" Jane Doe + +(define %gentext-de-edited-by% "&Editedby;") + ;; "Edited by" Jane Doe + +(define %gentext-de-revised-by% "&Revisedby;") + ;; "Revised by" Jane Doe + +(define %gentext-de-page% "") + +(define %gentext-de-and% "∧") + +(define %gentext-de-listcomma% "&listcomma;") + +(define %gentext-de-lastlistcomma% "&lastlistcomma;") + +(define %gentext-de-bibl-pages% "&Pgs;") + +(define %gentext-de-endnotes% "&Notes;") + +(define %gentext-de-table-endnotes% "&TableNotes;:") + +(define %gentext-de-index-see% "&See;") + +(define %gentext-de-index-seealso% "&SeeAlso;") + + +(define (gentext-de-nav-prev prev) + (make sequence (literal "&nav-prev;"))) + +(define (gentext-de-nav-prev-sibling prevsib) + (make sequence (literal "&nav-prev-sibling;"))) + +(define (gentext-de-nav-next-sibling nextsib) + (make sequence (literal "&nav-next-sibling;"))) + +(define (gentext-de-nav-next next) + (make sequence (literal "&nav-next;"))) + +(define (gentext-de-nav-up up) + (make sequence (literal "&nav-up;"))) + +(define (gentext-de-nav-home home) + (make sequence (literal "&nav-home;"))) + + + +</style-specification-body> +</style-specification> +</style-sheet> diff --git a/stylesheets/dsssl-1.79/common/dbl1de.ent b/stylesheets/dsssl-1.79/common/dbl1de.ent new file mode 100644 index 0000000..0b6e053 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1de.ent @@ -0,0 +1,169 @@ +<?xml version="1.0" encoding="US-ASCII"?> +<!-- This file is generated automatically. --> +<!-- Do not edit this file by hand! --> +<!-- See http://docbook.sourceforge.net/ --> +<!-- To update this file: edit the corresponding document at --> +<!-- http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/docbook/gentext/locale/ --> + +<!ENTITY Abstract "Zusammenfassung"> +<!ENTITY abstract "Zusammenfassung"> +<!ENTITY Answer "A:"> +<!ENTITY answer "A:"> +<!ENTITY Appendix "Anhang"> +<!ENTITY appendix "Anhang"> +<!ENTITY Article "Artikel"> +<!ENTITY article "Artikel"> +<!ENTITY Bibliography "Literaturverzeichnis"> +<!ENTITY bibliography "Literaturverzeichnis"> +<!ENTITY Book "Buch"> +<!ENTITY book "Buch"> +<!ENTITY Caution "Achtung"> +<!ENTITY caution "Achtung"> +<!ENTITY CAUTION "ACHTUNG"> +<!ENTITY Chapter "Kapitel"> +<!ENTITY chapter "Kapitel"> +<!ENTITY Colophon "Kolophon"> +<!ENTITY colophon "Kolophon"> +<!ENTITY Copyright "Copyright"> +<!ENTITY copyright "Copyright"> +<!ENTITY Dedication "Widmung"> +<!ENTITY dedication "Widmung"> +<!ENTITY Edition "Ausgabe"> +<!ENTITY edition "Ausgabe"> +<!ENTITY Equation "Gleichung"> +<!ENTITY equation "Gleichung"> +<!ENTITY Example "Beispiel"> +<!ENTITY example "Beispiel"> +<!ENTITY Figure "Abbildung"> +<!ENTITY figure "Abbildung"> +<!ENTITY Glossary "Glossar"> +<!ENTITY glossary "Glossar"> +<!ENTITY GlossSee "Siehe"> +<!ENTITY glosssee "Siehe"> +<!ENTITY GlossSeeAlso "Siehe auch"> +<!ENTITY glossseealso "Siehe auch"> +<!ENTITY IMPORTANT "WICHTIG"> +<!ENTITY Important "Wichtig"> +<!ENTITY important "Wichtig"> +<!ENTITY Index "Stichwortverzeichnis"> +<!ENTITY index "Stichwortverzeichnis"> +<!ENTITY ISBN "ISBN"> +<!ENTITY isbn "ISBN"> +<!ENTITY LegalNotice "Rechtlicher Hinweis"> +<!ENTITY legalnotice "Rechtlicher Hinweis"> +<!ENTITY MsgAud "Zielgruppe"> +<!ENTITY msgaud "Zielgruppe"> +<!ENTITY MsgLevel "Dringlichkeit"> +<!ENTITY msglevel "Dringlichkeit"> +<!ENTITY MsgOrig "Ursprung"> +<!ENTITY msgorig "Ursprung"> +<!ENTITY note "Anmerkung"> +<!ENTITY NOTE "ANMERKUNG"> +<!ENTITY Note "Anmerkung"> +<!ENTITY part "Teil"> +<!ENTITY Part "Teil"> +<!ENTITY Preface "Vorwort"> +<!ENTITY preface "Vorwort"> +<!ENTITY Procedure "Prozedur"> +<!ENTITY procedure "Prozedur"> +<!ENTITY ProductionSet "Produktion"> +<!ENTITY PubDate "Ver\U-00F6;ffentlicht"> +<!ENTITY pubdate "Ver\U-00F6;ffentlicht"> +<!ENTITY Published "Ver\U-00F6;ffentlicht"> +<!ENTITY published "Ver\U-00F6;ffentlicht"> +<!ENTITY Qandadiv "F & A"> +<!ENTITY qandadiv "F & A"> +<!ENTITY Question "F:"> +<!ENTITY question "F:"> +<!ENTITY RefEntry ""> +<!ENTITY refentry ""> +<!ENTITY Reference "Verweis"> +<!ENTITY reference "Verweis"> +<!ENTITY refname "Name"> +<!ENTITY RefName "Name"> +<!ENTITY RefSection "Abschnitt"> +<!ENTITY refsection "Abschnitt"> +<!ENTITY RefSynopsisDiv "Synopsis"> +<!ENTITY refsynopsisdiv "Synopsis"> +<!ENTITY RevHistory "Versionsgeschichte"> +<!ENTITY revhistory "Versionsgeschichte"> +<!ENTITY Revision "Version"> +<!ENTITY revision "Version"> +<!ENTITY Section "Abschnitt"> +<!ENTITY section "Abschnitt"> +<!ENTITY sect1 "Abschnitt"> +<!ENTITY sect2 "Abschnitt"> +<!ENTITY sect3 "Abschnitt"> +<!ENTITY sect4 "Abschnitt"> +<!ENTITY sect5 "Abschnitt"> +<!ENTITY see "Siehe"> +<!ENTITY See "Siehe"> +<!ENTITY SeeAlso "Siehe auch"> +<!ENTITY seealso "Siehe auch"> +<!ENTITY Seealso "Siehe auch"> +<!ENTITY Set "Satz"> +<!ENTITY set "Satz"> +<!ENTITY setindex "Stichwortverzeichnis"> +<!ENTITY SetIndex "Stichwortverzeichnis"> +<!ENTITY sidebar "randnotiz"> +<!ENTITY Sidebar "Randnotiz"> +<!ENTITY Step "Schritt"> +<!ENTITY step "Schritt"> +<!ENTITY table "Tabelle"> +<!ENTITY Table "Tabelle"> +<!ENTITY TIP "TIPP"> +<!ENTITY Tip "Tipp"> +<!ENTITY tip "Tipp"> +<!ENTITY Warning "Warnung"> +<!ENTITY warning "Warnung"> +<!ENTITY WARNING "WARNUNG"> +<!ENTITY and "und"> +<!ENTITY by "von"> +<!ENTITY Edited "Herausgegeben"> +<!ENTITY edited "Herausgegeben"> +<!ENTITY Editedby "Herausgegeben von"> +<!ENTITY editedby "Herausgegeben von"> +<!ENTITY in "in"> +<!ENTITY lastlistcomma ""> +<!ENTITY listcomma ","> +<!ENTITY nonexistantelement "nicht existierendes Element"> +<!ENTITY notes "Fu\U-00DF;noten"> +<!ENTITY Notes "Fu\U-00DF;noten"> +<!ENTITY Pgs "Seiten"> +<!ENTITY pgs "Seiten"> +<!ENTITY Revisedby "Ge\U-00E4;ndert durch: "> +<!ENTITY revisedby "Ge\U-00E4;ndert durch: "> +<!ENTITY TableNotes "Bemerkungen"> +<!ENTITY tablenotes "Bemerkungen"> +<!ENTITY TableofContents "Inhaltsverzeichnis"> +<!ENTITY tableofcontents "Inhaltsverzeichnis"> +<!ENTITY the ""> +<!ENTITY unexpectedelementname "Unerwarteter Elementname"> +<!ENTITY unsupported "wird nicht unterst\U-00FC;tzt"> +<!ENTITY xrefto "xref auf"> +<!ENTITY listofequations "Gleichungen"> +<!ENTITY ListofEquations "Gleichungen"> +<!ENTITY ListofExamples "Beispiele"> +<!ENTITY listofexamples "Beispiele"> +<!ENTITY ListofFigures "Abbildungsverzeichnis"> +<!ENTITY listoffigures "Abbildungsverzeichnis"> +<!ENTITY listoftables "Tabellenverzeichnis"> +<!ENTITY ListofTables "Tabellenverzeichnis"> +<!ENTITY ListofUnknown "???-Verzeichnis"> +<!ENTITY listofunknown "???-Verzeichnis"> +<!ENTITY nav-home "Zum Anfang"> +<!ENTITY nav-next "Weiter"> +<!ENTITY nav-next-sibling "Schnell weiter"> +<!ENTITY nav-prev "Zur\U-00FC;ck"> +<!ENTITY nav-prev-sibling "Schnell zur\U-00FC;ck"> +<!ENTITY nav-up "Nach oben"> +<!ENTITY nav-toc "InhV"> +<!ENTITY sectioncalled "der Abschnitt namens"> +<!ENTITY Draft "Entwurf"> +<!ENTITY above "oben"> +<!ENTITY below "unten"> +<!ENTITY lowercase.alpha "abcdefghijklmnopqrstuvwxyz\U-00E4;\U-00F6;\U-00FC;\U-00DF;"> +<!ENTITY uppercase.alpha "ABCDEFGHIJKLMNOPQRSTUVWXYZ\U-00C4;\U-00D6;\U-00DC;\U-00DF;"> +<!ENTITY hyphenation-character "-"> +<!ENTITY hyphenation-push-character-count "2"> +<!ENTITY hyphenation-remain-character-count "3"> diff --git a/stylesheets/dsssl-1.79/common/dbl1el.dsl b/stylesheets/dsssl-1.79/common/dbl1el.dsl new file mode 100644 index 0000000..1570238 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1el.dsl @@ -0,0 +1,445 @@ +<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ +<!ENTITY % el.words + PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//EL" + "dbl1el.ent"> +%el.words; +]> + +<style-sheet> +<style-specification id="docbook-l10n-el"> +<style-specification-body> + +;; $Id: dbl1el.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ +;; +;; This file is part of the Modular DocBook Stylesheet distribution. +;; See ../README or http://nwalsh.com/docbook/dsssl/ +;; + +;; ----------------------------- Localization ----------------------------- + +;; If you create a new version of this file, please send it to +;; Norman Walsh, ndw@nwalsh.com + +;; The generated text for cross references to elements. See dblink.dsl +;; for a discussion of how substitution is performed on the %x +;; keywords. +;; + +(define (el-author-string #!optional (author (current-node))) + ;; Return a formatted string representation of the contents of: + ;; AUTHOR: + ;; Handles Honorific, FirstName, SurName, and Lineage. + ;; If %author-othername-in-middle% is #t, also OtherName + ;; Handles *only* the first of each. + ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" + ;; CORPAUTHOR: + ;; returns (data corpauthor) + (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) + (f_nl (select-elements (descendants author) (normalize "firstname"))) + (o_nl (select-elements (descendants author) (normalize "othername"))) + (s_nl (select-elements (descendants author) (normalize "surname"))) + (l_nl (select-elements (descendants author) (normalize "lineage"))) + (has_h (not (node-list-empty? h_nl))) + (has_f (not (node-list-empty? f_nl))) + (has_o (and %author-othername-in-middle% + (not (node-list-empty? o_nl)))) + (has_s (not (node-list-empty? s_nl))) + (has_l (not (node-list-empty? l_nl)))) + (if (or (equal? (gi author) (normalize "author")) + (equal? (gi author) (normalize "editor")) + (equal? (gi author) (normalize "othercredit"))) + (string-append + (if has_h (string-append (data-of (node-list-first h_nl)) + %honorific-punctuation%) "") + (if has_f (string-append + (if has_h " " "") + (data-of (node-list-first f_nl))) "") + (if has_o (string-append + (if (or has_h has_f) " " "") + (data-of (node-list-first o_nl))) "") + (if has_s (string-append + (if (or has_h has_f has_o) " " "") + (data-of (node-list-first s_nl))) "") + (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) + (data-of author)))) + +(define (el-xref-strings) + (list (list (normalize "appendix") (if %chapter-autolabel% + "&Appendix; %n" + "ôï &appendix; ìå üíïìá %t")) + (list (normalize "article") (string-append %gentext-el-start-quote% + "%t" + %gentext-el-end-quote%)) + (list (normalize "bibliography") "%t") + (list (normalize "book") "%t") + (list (normalize "chapter") (if %chapter-autolabel% + "&Chapter; %n" + "ôï &chapter; ìå üíïìá %t")) + (list (normalize "equation") "&Equation; %n") + (list (normalize "example") "&Example; %n") + (list (normalize "figure") "&Figure; %n") + (list (normalize "glossary") "%t") + (list (normalize "index") "%t") + (list (normalize "listitem") "%n") + (list (normalize "part") "&Part; %n") + (list (normalize "preface") "%t") + (list (normalize "procedure") "&Procedure; %n, %t") + (list (normalize "reference") "&Reference; %n, %t") + (list (normalize "section") (if %section-autolabel% + "&Section; %n" + "ôï §ion; ìå üíïìá %t")) + (list (normalize "sect1") (if %section-autolabel% + "&Section; %n" + "ôï §ion; ìå üíïìá %t")) + (list (normalize "sect2") (if %section-autolabel% + "&Section; %n" + "ôï §ion; ìå üíïìá %t")) + (list (normalize "sect3") (if %section-autolabel% + "&Section; %n" + "ôï §ion; ìå üíïìá %t")) + (list (normalize "sect4") (if %section-autolabel% + "&Section; %n" + "ôï §ion; ìå üíïìá %t")) + (list (normalize "sect5") (if %section-autolabel% + "&Section; %n" + "ôï §ion; ìå üíïìá %t")) + (list (normalize "simplesect") (if %section-autolabel% + "&Section; %n" + "ôï §ion; ìå üíïìá %t")) + (list (normalize "sidebar") "ôï &sidebar; %t") + (list (normalize "step") "&step; %n") + (list (normalize "table") "&Table; %n"))) + + +(define (gentext-el-xref-strings gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (xref (assoc name (el-xref-strings)))) + (if xref + (car (cdr xref)) + (let* ((msg (string-append "[&xrefto; " + (if giname giname "&nonexistantelement;") + " &unsupported;]")) + (err (node-list-error msg (current-node)))) + msg)))) + +(define (el-auto-xref-indirect-connector before) + ;; In English, the (cond) is unnecessary since the word is always the + ;; same, but in other languages, that's not the case. I've set this + ;; one up with the (cond) so it stands as an example. + (cond + ((equal? (gi before) (normalize "book")) + (literal " ∈ ")) + ((equal? (gi before) (normalize "chapter")) + (literal " ∈ ")) + ((equal? (gi before) (normalize "sect1")) + (literal " ∈ ")) + (else + (literal " ∈ ")))) + +;; Should the TOC come first or last? +;; +(define %generate-el-toc-in-front% #t) + +;; gentext-element-name returns the generated text that should be +;; used to make reference to the selected element. +;; +(define (el-element-name) + (list + (list (normalize "abstract") "&Abstract;") + (list (normalize "answer") "&Answer;") + (list (normalize "appendix") "&Appendix;") + (list (normalize "article") "&Article;") + (list (normalize "bibliography") "&Bibliography;") + (list (normalize "book") "&Book;") + (list (normalize "calloutlist") "") + (list (normalize "caution") "&Caution;") + (list (normalize "chapter") "&Chapter;") + (list (normalize "copyright") "&Copyright;") + (list (normalize "dedication") "&Dedication;") + (list (normalize "edition") "&Edition;") + (list (normalize "equation") "&Equation;") + (list (normalize "example") "&Example;") + (list (normalize "figure") "&Figure;") + (list (normalize "glossary") "&Glossary;") + (list (normalize "glosssee") "&GlossSee;") + (list (normalize "glossseealso") "&GlossSeeAlso;") + (list (normalize "important") "&Important;") + (list (normalize "index") "&Index;") + (list (normalize "colophon") "&Colophon;") + (list (normalize "setindex") "&SetIndex;") + (list (normalize "isbn") "&isbn;") + (list (normalize "legalnotice") "&LegalNotice;") + (list (normalize "msgaud") "&MsgAud;") + (list (normalize "msglevel") "&MsgLevel;") + (list (normalize "msgorig") "&MsgOrig;") + (list (normalize "note") "&Note;") + (list (normalize "part") "&Part;") + (list (normalize "preface") "&Preface;") + (list (normalize "procedure") "&Procedure;") + (list (normalize "pubdate") "&Published;") + (list (normalize "question") "&Question;") + (list (normalize "refentry") "&RefEntry;") + (list (normalize "reference") "&Reference;") + (list (normalize "refname") "&RefName;") + (list (normalize "revhistory") "&RevHistory;") + (list (normalize "refsect1") "&RefSection;") + (list (normalize "refsect2") "&RefSection;") + (list (normalize "refsect3") "&RefSection;") + (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") + (list (normalize "revision") "&Revision;") + (list (normalize "sect1") "&Section;") + (list (normalize "sect2") "&Section;") + (list (normalize "sect3") "&Section;") + (list (normalize "sect4") "&Section;") + (list (normalize "sect5") "&Section;") + (list (normalize "section") "&Section;") + (list (normalize "simplesect") "&Section;") + (list (normalize "seeie") "&See;") + (list (normalize "seealsoie") "&Seealso;") + (list (normalize "set") "&Set;") + (list (normalize "sidebar") "&Sidebar;") + (list (normalize "step") "&step;") + (list (normalize "table") "&Table;") + (list (normalize "tip") "&Tip;") + (list (normalize "toc") "&TableofContents;") + (list (normalize "warning") "&Warning;") + )) + +(define (gentext-el-element-name gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (pname (assoc name (el-element-name)))) + (if pname + (car (cdr pname)) + (let* ((msg (string-append + "gentext-el-element-name: &unexpectedelementname;: " + name)) + (err (node-list-error msg (current-node)))) + msg)))) + +;; gentext-element-name-space returns gentext-element-name with a +;; trailing space, if gentext-element-name isn't "". +;; +(define (gentext-el-element-name-space giname) + (string-with-space (gentext-element-name giname))) + +;; gentext-intra-label-sep returns the seperator to be inserted +;; between multiple occurances of a label (or parts of a label) +;; for the specified element. Most of these are for enumerated +;; labels like "Figure 2-4", but this function is used elsewhere +;; (e.g. REFNAME) with a little abuse. +;; + +(define (local-el-intra-label-sep) + (list)) + +(define (el-intra-label-sep) + (list + (list (normalize "equation") "-") + (list (normalize "informalequation") "-") + (list (normalize "example") "-") + (list (normalize "figure") "-") + (list (normalize "listitem") ".") + (list (normalize "procedure") ".") + (list (normalize "refentry") ".") + (list (normalize "reference") ".") + (list (normalize "refname") ", ") + (list (normalize "refsect1") ".") + (list (normalize "refsect2") ".") + (list (normalize "refsect3") ".") + (list (normalize "sect1") ".") + (list (normalize "sect2") ".") + (list (normalize "sect3") ".") + (list (normalize "sect4") ".") + (list (normalize "sect5") ".") + (list (normalize "section") ".") + (list (normalize "simplesect") ".") + (list (normalize "step") ".") + (list (normalize "table") "-") + (list (normalize "_pagenumber") "-") + )) + +(define (gentext-el-intra-label-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-el-intra-label-sep))) + (sep (assoc name (el-intra-label-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +;; gentext-label-title-sep returns the seperator to be inserted +;; between a label and the text following the label for the +;; specified element. Most of these are for use between +;; enumerated labels and titles like "1. Chapter One Title", but +;; this function is used elsewhere (e.g. NOTE) with a little +;; abuse. +;; + +(define (local-el-label-title-sep) + (list)) + +(define (el-label-title-sep) + (list + (list (normalize "abstract") ": ") + (list (normalize "answer") " ") + (list (normalize "appendix") ". ") + (list (normalize "caution") "") + (list (normalize "chapter") ". ") + (list (normalize "equation") ". ") + (list (normalize "example") ". ") + (list (normalize "figure") ". ") + (list (normalize "footnote") ". ") + (list (normalize "glosssee") ": ") + (list (normalize "glossseealso") ": ") + (list (normalize "important") ": ") + (list (normalize "note") ": ") + (list (normalize "orderedlist") ". ") + (list (normalize "part") ". ") + (list (normalize "procedure") ". ") + (list (normalize "prefix") ". ") + (list (normalize "question") " ") + (list (normalize "refentry") "") + (list (normalize "reference") ". ") + (list (normalize "refsect1") ". ") + (list (normalize "refsect2") ". ") + (list (normalize "refsect3") ". ") + (list (normalize "sect1") ". ") + (list (normalize "sect2") ". ") + (list (normalize "sect3") ". ") + (list (normalize "sect4") ". ") + (list (normalize "sect5") ". ") + (list (normalize "section") ". ") + (list (normalize "simplesect") ". ") + (list (normalize "seeie") " ") + (list (normalize "seealsoie") " ") + (list (normalize "step") ". ") + (list (normalize "table") ". ") + (list (normalize "tip") ": ") + (list (normalize "warning") "") + )) + +(define (gentext-el-label-title-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-el-label-title-sep))) + (sep (assoc name (el-label-title-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +(define (el-label-number-format-list) + (list + (list (normalize "set") "1") + (list (normalize "book") "1") + (list (normalize "prefix") "1") + (list (normalize "part") "I") + (list (normalize "chapter") "1") + (list (normalize "appendix") "A") + (list (normalize "reference") "I") + (list (normalize "example") "1") + (list (normalize "figure") "1") + (list (normalize "table") "1") + (list (normalize "procedure") "1") + (list (normalize "step") "1") + (list (normalize "refsect1") "1") + (list (normalize "refsect2") "1") + (list (normalize "refsect3") "1") + (list (normalize "sect1") "1") + (list (normalize "sect2") "1") + (list (normalize "sect3") "1") + (list (normalize "sect4") "1") + (list (normalize "sect5") "1") + (list (normalize "section") "1") + )) + +(define (el-label-number-format gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (format (assoc name (el-label-number-format-list)))) + (if format + (car (cdr format)) + "1"))) + +(define (el-lot-title) + (list + (list (normalize "table") "&ListofTables;") + (list (normalize "example") "&ListofExamples;") + (list (normalize "figure") "&ListofFigures;") + (list (normalize "equation") "&ListofEquations;") + )) + +(define ($lot-title-el$ gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (title (assoc name (el-lot-title)))) + (if title + (car (cdr title)) + (let* ((msg (string-append "&ListofUnknown;: " name)) + (err (node-list-error msg (current-node)))) + msg)))) + +(define %gentext-el-start-quote% (dingbat "ldquo")) + +(define %gentext-el-end-quote% (dingbat "rdquo")) + +(define %gentext-el-start-nested-quote% (dingbat "lsquo")) + +(define %gentext-el-end-nested-quote% (dingbat "rsquo")) + +(define %gentext-el-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous + ;; Authored "by" Jane Doe + +(define %gentext-el-edited-by% "&Editedby;") + ;; "Edited by" Jane Doe + +(define %gentext-el-revised-by% "&Editedby;") + ;; "Revised by" Jane Doe + +(define %gentext-el-page% "") + +(define %gentext-el-and% "∧") + +(define %gentext-el-listcomma% "&listcomma;") + +(define %gentext-el-lastlistcomma% "&lastlistcomma;") + +(define %gentext-el-bibl-pages% "&Pgs;") + +(define %gentext-el-endnotes% "&Notes;") + +(define %gentext-el-table-endnotes% "&TableNotes;:") + +(define %gentext-el-index-see% "&See;") + +(define %gentext-el-index-seealso% "&SeeAlso;") + + +(define (gentext-el-nav-prev prev) + (make sequence (literal "&nav-prev;"))) + +(define (gentext-el-nav-prev-sibling prevsib) + (make sequence (literal "&nav-prev-sibling;"))) + +(define (gentext-el-nav-next-sibling nextsib) + (make sequence (literal "&nav-next-sibling;"))) + +(define (gentext-el-nav-next next) + (make sequence (literal "&nav-next;"))) + +(define (gentext-el-nav-up up) + (make sequence (literal "&nav-up;"))) + +(define (gentext-el-nav-home home) + (make sequence (literal "&nav-home;"))) + + + +</style-specification-body> +</style-specification> +</style-sheet> diff --git a/stylesheets/dsssl-1.79/common/dbl1el.ent b/stylesheets/dsssl-1.79/common/dbl1el.ent new file mode 100644 index 0000000..c15e62f --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1el.ent @@ -0,0 +1,160 @@ +<?xml version="1.0" encoding="US-ASCII"?> +<!-- This file is generated automatically. --> +<!-- Do not edit this file by hand! --> +<!-- See http://docbook.sourceforge.net/ --> +<!-- To update this file: edit the corresponding document at --> +<!-- http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/docbook/gentext/locale/ --> + +<!ENTITY Abstract "\U-00D0;\U-00E5;\U-00F1;\U-00DF;\U-00EB;\U-00E7;\U-00F8;\U-00E7;"> +<!ENTITY Answer "\U-00C1;:"> +<!ENTITY Appendix "\U-00D0;\U-00E1;\U-00F1;\U-00DC;\U-00F1;\U-00F4;\U-00E7;\U-00EC;\U-00E1;"> +<!ENTITY Article "\U-00B6;\U-00F1;\U-00E8;\U-00F1;\U-00EF;"> +<!ENTITY Bibliography "\U-00C2;\U-00E9;\U-00E2;\U-00EB;\U-00E9;\U-00EF;\U-00E3;\U-00F1;\U-00E1;\U-00F6;\U-00DF;\U-00E1;"> +<!ENTITY Book "\U-00C2;\U-00E9;\U-00E2;\U-00EB;\U-00DF;\U-00EF;"> +<!ENTITY CAUTION "\U-00D0;\U-00D1;\U-00CF;\U-00D3;\U-00CF;\U-00D7;\U-00C7;"> +<!ENTITY Caution "\U-00D0;\U-00F1;\U-00EF;\U-00F3;\U-00EF;\U-00F7;\U-00DE;"> +<!ENTITY Chapter "\U-00CA;\U-00E5;\U-00F6;\U-00DC;\U-00EB;\U-00E1;\U-00E9;\U-00EF;"> +<!ENTITY Colophon "\U-00CA;\U-00EF;\U-00F1;\U-00F9;\U-00ED;\U-00DF;\U-00E4;\U-00E1;"> +<!ENTITY Copyright "\U-00D0;\U-00ED;\U-00E5;\U-00F5;\U-00EC;\U-00E1;\U-00F4;\U-00E9;\U-00EA;\U-00DC; \U-00C4;\U-00E9;\U-00EA;\U-00E1;\U-00E9;\U-00FE;\U-00EC;\U-00E1;\U-00F4;\U-00E1;"> +<!ENTITY Dedication "\U-00C1;\U-00F6;\U-00E9;\U-00DD;\U-00F1;\U-00F9;\U-00F3;\U-00E7;"> +<!ENTITY Edition "\U-00B8;\U-00EA;\U-00E4;\U-00EF;\U-00F3;\U-00E7;"> +<!ENTITY Equation "\U-00C5;\U-00EE;\U-00DF;\U-00F3;\U-00F9;\U-00F3;\U-00E7;"> +<!ENTITY Example "\U-00D0;\U-00E1;\U-00F1;\U-00DC;\U-00E4;\U-00E5;\U-00E9;\U-00E3;\U-00EC;\U-00E1;"> +<!ENTITY Figure "\U-00D3;\U-00F7;\U-00DE;\U-00EC;\U-00E1;"> +<!ENTITY GlossSee "\U-00C4;\U-00E5;\U-00DF;\U-00F4;\U-00E5;"> +<!ENTITY GlossSeeAlso "\U-00C4;\U-00E5;\U-00DF;\U-00F4;\U-00E5; \U-00C5;\U-00F0;\U-00DF;\U-00F3;\U-00E7;\U-00F2;"> +<!ENTITY Glossary "\U-00C3;\U-00EB;\U-00F9;\U-00F3;\U-00F3;\U-00DC;\U-00F1;\U-00E9;\U-00EF;"> +<!ENTITY IMPORTANT "\U-00D3;\U-00C7;\U-00CC;\U-00C1;\U-00CD;\U-00D4;\U-00C9;\U-00CA;\U-00CF;"> +<!ENTITY ISBN "ISBN"> +<!ENTITY Important "\U-00D3;\U-00E7;\U-00EC;\U-00E1;\U-00ED;\U-00F4;\U-00E9;\U-00EA;\U-00FC;"> +<!ENTITY Index "\U-00C5;\U-00F5;\U-00F1;\U-00E5;\U-00F4;\U-00DE;\U-00F1;\U-00E9;\U-00EF;"> +<!ENTITY LegalNotice "\U-00CD;\U-00EF;\U-00EC;\U-00E9;\U-00EA;\U-00DE; \U-00D3;\U-00E7;\U-00EC;\U-00E5;\U-00DF;\U-00F9;\U-00F3;\U-00E7;"> +<!ENTITY MsgAud "\U-00C1;\U-00EA;\U-00F1;\U-00EF;\U-00E1;\U-00F4;\U-00DE;\U-00F1;\U-00E9;\U-00EF;"> +<!ENTITY MsgLevel "\U-00C5;\U-00F0;\U-00DF;\U-00F0;\U-00E5;\U-00E4;\U-00EF;"> +<!ENTITY MsgOrig "\U-00D0;\U-00E7;\U-00E3;\U-00DE;"> +<!ENTITY NOTE "\U-00D3;\U-00C7;\U-00CC;\U-00C5;\U-00C9;\U-00D9;\U-00D3;\U-00C7;"> +<!ENTITY Note "\U-00D3;\U-00E7;\U-00EC;\U-00E5;\U-00DF;\U-00F9;\U-00F3;\U-00E7;"> +<!ENTITY Part "\U-00CC;\U-00DD;\U-00F1;\U-00EF;\U-00F2;"> +<!ENTITY Preface "\U-00C5;\U-00E9;\U-00F3;\U-00E1;\U-00E3;\U-00F9;\U-00E3;\U-00DE;"> +<!ENTITY Procedure "\U-00C4;\U-00E9;\U-00E1;\U-00E4;\U-00E9;\U-00EA;\U-00E1;\U-00F3;\U-00DF;\U-00E1;"> +<!ENTITY ProductionSet "Production"> +<!ENTITY Published "\U-00C4;\U-00E7;\U-00EC;\U-00EF;\U-00F3;\U-00E9;\U-00E5;\U-00F5;\U-00EC;\U-00DD;\U-00ED;\U-00EF;"> +<!ENTITY Question "\U-00C5;:"> +<!ENTITY RefEntry ""> +<!ENTITY RefName "\U-00BC;\U-00ED;\U-00EF;\U-00EC;\U-00E1;"> +<!ENTITY RefSection ""> +<!ENTITY RefSynopsisDiv "\U-00D3;\U-00FD;\U-00ED;\U-00EF;\U-00F8;\U-00E7;"> +<!ENTITY Reference "\U-00C1;\U-00ED;\U-00E1;\U-00F6;\U-00EF;\U-00F1;\U-00DC;"> +<!ENTITY RevHistory "\U-00C9;\U-00F3;\U-00F4;\U-00EF;\U-00F1;\U-00E9;\U-00EA;\U-00FC; \U-00C1;\U-00ED;\U-00E1;\U-00E8;\U-00E5;\U-00F9;\U-00F1;\U-00DE;\U-00F3;\U-00E5;\U-00F9;\U-00ED;"> +<!ENTITY Revision "\U-00C1;\U-00ED;\U-00E1;\U-00E8;\U-00E5;\U-00FE;\U-00F1;\U-00E7;\U-00F3;\U-00E7;"> +<!ENTITY Section "\U-00D4;\U-00EC;\U-00DE;\U-00EC;\U-00E1;"> +<!ENTITY See "\U-00C4;\U-00E5;\U-00DF;\U-00F4;\U-00E5;"> +<!ENTITY SeeAlso "\U-00C4;\U-00E5;\U-00DF;\U-00F4;\U-00E5; \U-00C5;\U-00F0;\U-00DF;\U-00F3;\U-00E7;\U-00F2;"> +<!ENTITY Seealso "\U-00C4;\U-00E5;\U-00DF;\U-00F4;\U-00E5; \U-00E5;\U-00F0;\U-00DF;\U-00F3;\U-00E7;\U-00F2;"> +<!ENTITY Set "\U-00D3;\U-00FD;\U-00ED;\U-00EF;\U-00EB;\U-00EF;"> +<!ENTITY SetIndex "\U-00C5;\U-00F5;\U-00F1;\U-00E5;\U-00F4;\U-00DE;\U-00F1;\U-00E9;\U-00EF; \U-00D3;\U-00F5;\U-00ED;\U-00FC;\U-00EB;\U-00F9;\U-00ED;"> +<!ENTITY Sidebar ""> +<!ENTITY Step "\U-00D6;\U-00DC;\U-00F3;\U-00E7;"> +<!ENTITY TIP "\U-00D5;\U-00D0;\U-00CF;\U-00C4;\U-00C5;\U-00C9;\U-00CE;\U-00C7;"> +<!ENTITY Table "\U-00D0;\U-00DF;\U-00ED;\U-00E1;\U-00EA;\U-00E1;\U-00F2;"> +<!ENTITY Tip "\U-00D5;\U-00F0;\U-00FC;\U-00E4;\U-00E5;\U-00E9;\U-00EE;\U-00E7;"> +<!ENTITY WARNING "\U-00D0;\U-00D1;\U-00CF;\U-00C5;\U-00C9;\U-00C4;\U-00CF;\U-00D0;\U-00CF;\U-00C9;\U-00C7;\U-00D3;\U-00C7;"> +<!ENTITY Warning "\U-00D0;\U-00F1;\U-00EF;\U-00E5;\U-00E9;\U-00E4;\U-00EF;\U-00F0;\U-00EF;\U-00DF;\U-00E7;\U-00F3;\U-00E7;"> +<!ENTITY abstract "\U-00D0;\U-00E5;\U-00F1;\U-00DF;\U-00EB;\U-00E7;\U-00F8;\U-00E7;"> +<!ENTITY answer "\U-00C1;:"> +<!ENTITY appendix "\U-00F0;\U-00E1;\U-00F1;\U-00DC;\U-00F1;\U-00F4;\U-00E7;\U-00EC;\U-00E1;"> +<!ENTITY article "\U-00B6;\U-00F1;\U-00E8;\U-00F1;\U-00EF;"> +<!ENTITY bibliography "\U-00C2;\U-00E9;\U-00E2;\U-00EB;\U-00E9;\U-00EF;\U-00E3;\U-00F1;\U-00E1;\U-00F6;\U-00DF;\U-00E1;"> +<!ENTITY book "\U-00C2;\U-00E9;\U-00E2;\U-00EB;\U-00DF;\U-00EF;"> +<!ENTITY caution "\U-00D0;\U-00F1;\U-00EF;\U-00F3;\U-00EF;\U-00F7;\U-00DE;"> +<!ENTITY chapter "\U-00EA;\U-00E5;\U-00F6;\U-00DC;\U-00EB;\U-00E1;\U-00E9;\U-00EF;"> +<!ENTITY colophon "\U-00CA;\U-00EF;\U-00F1;\U-00F9;\U-00ED;\U-00DF;\U-00E4;\U-00E1;"> +<!ENTITY copyright "\U-00D0;\U-00ED;\U-00E5;\U-00F5;\U-00EC;\U-00E1;\U-00F4;\U-00E9;\U-00EA;\U-00DC; \U-00C4;\U-00E9;\U-00EA;\U-00E1;\U-00E9;\U-00FE;\U-00EC;\U-00E1;\U-00F4;\U-00E1;"> +<!ENTITY dedication "\U-00C1;\U-00F6;\U-00E9;\U-00DD;\U-00F1;\U-00F9;\U-00F3;\U-00E7;"> +<!ENTITY edition "\U-00B8;\U-00EA;\U-00E4;\U-00EF;\U-00F3;\U-00E7;"> +<!ENTITY equation "\U-00C5;\U-00EE;\U-00DF;\U-00F3;\U-00F9;\U-00F3;\U-00E7;"> +<!ENTITY example "\U-00D0;\U-00E1;\U-00F1;\U-00DC;\U-00E4;\U-00E5;\U-00E9;\U-00E3;\U-00EC;\U-00E1;"> +<!ENTITY figure "\U-00D3;\U-00F7;\U-00DE;\U-00EC;\U-00E1;"> +<!ENTITY glossary "\U-00C3;\U-00EB;\U-00F9;\U-00F3;\U-00F3;\U-00DC;\U-00F1;\U-00E9;\U-00EF;"> +<!ENTITY glosssee "\U-00C4;\U-00E5;\U-00DF;\U-00F4;\U-00E5;"> +<!ENTITY glossseealso "\U-00C4;\U-00E5;\U-00DF;\U-00F4;\U-00E5; \U-00C5;\U-00F0;\U-00DF;\U-00F3;\U-00E7;\U-00F2;"> +<!ENTITY important "\U-00D3;\U-00E7;\U-00EC;\U-00E1;\U-00ED;\U-00F4;\U-00E9;\U-00EA;\U-00FC;"> +<!ENTITY index "\U-00C5;\U-00F5;\U-00F1;\U-00E5;\U-00F4;\U-00DE;\U-00F1;\U-00E9;\U-00EF;"> +<!ENTITY isbn "ISBN"> +<!ENTITY legalnotice "\U-00CD;\U-00EF;\U-00EC;\U-00E9;\U-00EA;\U-00DE; \U-00D3;\U-00E7;\U-00EC;\U-00E5;\U-00DF;\U-00F9;\U-00F3;\U-00E7;"> +<!ENTITY msgaud "\U-00C1;\U-00EA;\U-00F1;\U-00EF;\U-00E1;\U-00F4;\U-00DE;\U-00F1;\U-00E9;\U-00EF;"> +<!ENTITY msglevel "\U-00C5;\U-00F0;\U-00DF;\U-00F0;\U-00E5;\U-00E4;\U-00EF;"> +<!ENTITY msgorig "\U-00D0;\U-00E7;\U-00E3;\U-00DE;"> +<!ENTITY note "\U-00D3;\U-00E7;\U-00EC;\U-00E5;\U-00DF;\U-00F9;\U-00F3;\U-00E7;"> +<!ENTITY part "\U-00CC;\U-00DD;\U-00F1;\U-00EF;\U-00F2;"> +<!ENTITY preface "\U-00C5;\U-00E9;\U-00F3;\U-00E1;\U-00E3;\U-00F9;\U-00E3;\U-00DE;"> +<!ENTITY procedure "\U-00C4;\U-00E9;\U-00E1;\U-00E4;\U-00E9;\U-00EA;\U-00E1;\U-00F3;\U-00DF;\U-00E1;"> +<!ENTITY published "\U-00C4;\U-00E7;\U-00EC;\U-00EF;\U-00F3;\U-00E9;\U-00E5;\U-00F5;\U-00EC;\U-00DD;\U-00ED;\U-00EF;"> +<!ENTITY question "\U-00C5;:"> +<!ENTITY refentry ""> +<!ENTITY reference "\U-00C1;\U-00ED;\U-00E1;\U-00F6;\U-00EF;\U-00F1;\U-00DC;"> +<!ENTITY refname "\U-00BC;\U-00ED;\U-00EF;\U-00EC;\U-00E1;"> +<!ENTITY refsection ""> +<!ENTITY refsynopsisdiv "\U-00D3;\U-00FD;\U-00ED;\U-00EF;\U-00F8;\U-00E7;"> +<!ENTITY revhistory "\U-00C9;\U-00F3;\U-00F4;\U-00EF;\U-00F1;\U-00E9;\U-00EA;\U-00FC; \U-00C1;\U-00ED;\U-00E1;\U-00E8;\U-00E5;\U-00F9;\U-00F1;\U-00DE;\U-00F3;\U-00E5;\U-00F9;\U-00ED;"> +<!ENTITY revision "\U-00C1;\U-00ED;\U-00E1;\U-00E8;\U-00E5;\U-00FE;\U-00F1;\U-00E7;\U-00F3;\U-00E7;"> +<!ENTITY sect1 "Section"> +<!ENTITY sect2 "Section"> +<!ENTITY sect3 "Section"> +<!ENTITY sect4 "Section"> +<!ENTITY sect5 "Section"> +<!ENTITY section "\U-00F4;\U-00EC;\U-00DE;\U-00EC;\U-00E1;"> +<!ENTITY see "\U-00C4;\U-00E5;\U-00DF;\U-00F4;\U-00E5;"> +<!ENTITY seealso "\U-00C4;\U-00E5;\U-00DF;\U-00F4;\U-00E5; \U-00C5;\U-00F0;\U-00DF;\U-00F3;\U-00E7;\U-00F2;"> +<!ENTITY set "\U-00D3;\U-00FD;\U-00ED;\U-00EF;\U-00EB;\U-00EF;"> +<!ENTITY setindex "\U-00C5;\U-00F5;\U-00F1;\U-00E5;\U-00F4;\U-00DE;\U-00F1;\U-00E9;\U-00EF; \U-00D3;\U-00F5;\U-00ED;\U-00FC;\U-00EB;\U-00F9;\U-00ED;"> +<!ENTITY sidebar "\U-00E5;\U-00F0;\U-00E5;\U-00EE;\U-00E7;\U-00E3;\U-00E7;\U-00EC;\U-00E1;\U-00F4;\U-00E9;\U-00EA;\U-00FC; \U-00F0;\U-00EB;\U-00E5;\U-00F5;\U-00F1;\U-00E9;\U-00EA;\U-00FC; \U-00E1;\U-00F1;\U-00E8;\U-00F1;\U-00DF;\U-00E4;\U-00E9;\U-00EF;"> +<!ENTITY step "\U-00F6;\U-00DC;\U-00F3;\U-00E7;"> +<!ENTITY table "\U-00D0;\U-00DF;\U-00ED;\U-00E1;\U-00EA;\U-00E1;\U-00F2;"> +<!ENTITY tip "\U-00D5;\U-00F0;\U-00FC;\U-00E4;\U-00E5;\U-00E9;\U-00EE;\U-00E7;"> +<!ENTITY warning "\U-00D0;\U-00F1;\U-00EF;\U-00E5;\U-00E9;\U-00E4;\U-00EF;\U-00F0;\U-00EF;\U-00DF;\U-00E7;\U-00F3;\U-00E7;"> +<!ENTITY and "\U-00EA;\U-00E1;\U-00E9;"> +<!ENTITY by "\U-00E1;\U-00F0;\U-00FC;"> +<!ENTITY Edited "\U-00C5;\U-00F0;\U-00E9;\U-00EC;\U-00DD;\U-00EB;\U-00E5;\U-00E9;\U-00E1;"> +<!ENTITY edited "\U-00C5;\U-00F0;\U-00E9;\U-00EC;\U-00DD;\U-00EB;\U-00E5;\U-00E9;\U-00E1;"> +<!ENTITY Editedby "\U-00C5;\U-00F0;\U-00E9;\U-00EC;\U-00DD;\U-00EB;\U-00E5;\U-00E9;\U-00E1; \U-00E1;\U-00F0;\U-00FC;"> +<!ENTITY editedby "\U-00C5;\U-00F0;\U-00E9;\U-00EC;\U-00DD;\U-00EB;\U-00E5;\U-00E9;\U-00E1; \U-00E1;\U-00F0;\U-00FC;"> +<!ENTITY in "\U-00F3;\U-00E5;"> +<!ENTITY lastlistcomma ","> +<!ENTITY listcomma ","> +<!ENTITY nonexistantelement "\U-00EC;\U-00E7;-\U-00F5;\U-00F0;\U-00E1;\U-00F1;\U-00EA;\U-00F4;\U-00FC; \U-00F3;\U-00F4;\U-00EF;\U-00E9;\U-00F7;\U-00E5;\U-00DF;\U-00EF;"> +<!ENTITY notes "\U-00D3;\U-00E7;\U-00EC;\U-00E5;\U-00E9;\U-00FE;\U-00F3;\U-00E5;\U-00E9;\U-00F2;"> +<!ENTITY Notes "\U-00D3;\U-00E7;\U-00EC;\U-00E5;\U-00E9;\U-00FE;\U-00F3;\U-00E5;\U-00E9;\U-00F2;"> +<!ENTITY Pgs "\U-00D3;\U-00EB;\U-00E4;\U-00F2;."> +<!ENTITY pgs "\U-00D3;\U-00EB;\U-00E4;\U-00F2;."> +<!ENTITY Revisedby "Revised by: "> +<!ENTITY revisedby "Revised by: "> +<!ENTITY TableNotes "\U-00D0;\U-00DF;\U-00ED;\U-00E1;\U-00EA;\U-00E1;\U-00F2; \U-00D3;\U-00E7;\U-00EC;\U-00E5;\U-00E9;\U-00FE;\U-00F3;\U-00E5;\U-00F9;\U-00ED;"> +<!ENTITY tablenotes "\U-00D0;\U-00DF;\U-00ED;\U-00E1;\U-00EA;\U-00E1;\U-00F2; \U-00D3;\U-00E7;\U-00EC;\U-00E5;\U-00E9;\U-00FE;\U-00F3;\U-00E5;\U-00F9;\U-00ED;"> +<!ENTITY TableofContents "\U-00D0;\U-00DF;\U-00ED;\U-00E1;\U-00EA;\U-00E1;\U-00F2; \U-00D0;\U-00E5;\U-00F1;\U-00E9;\U-00E5;\U-00F7;\U-00EF;\U-00EC;\U-00DD;\U-00ED;\U-00F9;\U-00ED;"> +<!ENTITY tableofcontents "\U-00D0;\U-00DF;\U-00ED;\U-00E1;\U-00EA;\U-00E1;\U-00F2; \U-00D0;\U-00E5;\U-00F1;\U-00E9;\U-00E5;\U-00F7;\U-00EF;\U-00EC;\U-00DD;\U-00ED;\U-00F9;\U-00ED;"> +<!ENTITY unexpectedelementname "\U-00CC;\U-00E7; \U-00E1;\U-00ED;\U-00E1;\U-00EC;\U-00E5;\U-00ED;\U-00FC;\U-00EC;\U-00E5;\U-00ED;\U-00EF; \U-00FC;\U-00ED;\U-00EF;\U-00EC;\U-00E1; \U-00F3;\U-00F4;\U-00EF;\U-00E9;\U-00F7;\U-00E5;\U-00DF;\U-00EF;\U-00F5;"> +<!ENTITY unsupported "\U-00EC;\U-00E7; \U-00F5;\U-00F0;\U-00EF;\U-00F3;\U-00F4;\U-00E7;\U-00F1;\U-00E9;\U-00E6;\U-00FC;\U-00EC;\U-00E5;\U-00ED;\U-00EF;"> +<!ENTITY xrefto "\U-00E1;\U-00ED;\U-00F4;\U-00E9;\U-00F0;\U-00E1;\U-00F1;\U-00E1;\U-00F0;\U-00EF;\U-00EC;\U-00F0;\U-00DE; \U-00F3;\U-00E5;"> +<!ENTITY listofequations "\U-00CA;\U-00E1;\U-00F4;\U-00DC;\U-00EB;\U-00EF;\U-00E3;\U-00EF;\U-00F2; \U-00C5;\U-00EE;\U-00E9;\U-00F3;\U-00FE;\U-00F3;\U-00E5;\U-00F9;\U-00ED;"> +<!ENTITY ListofEquations "\U-00CA;\U-00E1;\U-00F4;\U-00DC;\U-00EB;\U-00EF;\U-00E3;\U-00EF;\U-00F2; \U-00C5;\U-00EE;\U-00E9;\U-00F3;\U-00FE;\U-00F3;\U-00E5;\U-00F9;\U-00ED;"> +<!ENTITY ListofExamples "\U-00CA;\U-00E1;\U-00F4;\U-00DC;\U-00EB;\U-00EF;\U-00E3;\U-00EF;\U-00F2; \U-00D0;\U-00E1;\U-00F1;\U-00E1;\U-00E4;\U-00E5;\U-00E9;\U-00E3;\U-00EC;\U-00DC;\U-00F4;\U-00F9;\U-00ED;"> +<!ENTITY listofexamples "\U-00CA;\U-00E1;\U-00F4;\U-00DC;\U-00EB;\U-00EF;\U-00E3;\U-00EF;\U-00F2; \U-00D0;\U-00E1;\U-00F1;\U-00E1;\U-00E4;\U-00E5;\U-00E9;\U-00E3;\U-00EC;\U-00DC;\U-00F4;\U-00F9;\U-00ED;"> +<!ENTITY ListofFigures "\U-00CA;\U-00E1;\U-00F4;\U-00DC;\U-00EB;\U-00EF;\U-00E3;\U-00EF;\U-00F2; \U-00D3;\U-00F7;\U-00E7;\U-00EC;\U-00DC;\U-00F4;\U-00F9;\U-00ED;"> +<!ENTITY listoffigures "\U-00CA;\U-00E1;\U-00F4;\U-00DC;\U-00EB;\U-00EF;\U-00E3;\U-00EF;\U-00F2; \U-00D3;\U-00F7;\U-00E7;\U-00EC;\U-00DC;\U-00F4;\U-00F9;\U-00ED;"> +<!ENTITY listoftables "\U-00CA;\U-00E1;\U-00F4;\U-00DC;\U-00EB;\U-00EF;\U-00E3;\U-00EF;\U-00F2; \U-00D0;\U-00E9;\U-00ED;\U-00DC;\U-00EA;\U-00F9;\U-00ED;"> +<!ENTITY ListofTables "\U-00CA;\U-00E1;\U-00F4;\U-00DC;\U-00EB;\U-00EF;\U-00E3;\U-00EF;\U-00F2; \U-00D0;\U-00E9;\U-00ED;\U-00DC;\U-00EA;\U-00F9;\U-00ED;"> +<!ENTITY ListofUnknown "\U-00CA;\U-00E1;\U-00F4;\U-00DC;\U-00EB;\U-00EF;\U-00E3;\U-00EF;\U-00F2; \U-00C1;\U-00E3;\U-00ED;\U-00FE;\U-00F3;\U-00F4;\U-00F9;\U-00ED;"> +<!ENTITY listofunknown "\U-00CA;\U-00E1;\U-00F4;\U-00DC;\U-00EB;\U-00EF;\U-00E3;\U-00EF;\U-00F2; \U-00C1;\U-00E3;\U-00ED;\U-00FE;\U-00F3;\U-00F4;\U-00F9;\U-00ED;"> +<!ENTITY nav-home "\U-00C1;\U-00F1;\U-00F7;\U-00DE;"> +<!ENTITY nav-next "\U-00C5;\U-00F0;\U-00FC;\U-00EC;\U-00E5;\U-00ED;\U-00EF;"> +<!ENTITY nav-next-sibling "\U-00D0;\U-00F1;\U-00EF;\U-00F2; \U-00F4;\U-00EF; \U-00F4;\U-00DD;\U-00EB;\U-00EF;\U-00F2;"> +<!ENTITY nav-prev "\U-00D0;\U-00F1;\U-00EF;\U-00E7;\U-00E3;"> +<!ENTITY nav-prev-sibling "\U-00D0;\U-00F1;\U-00EF;\U-00F2; \U-00F4;\U-00E7;\U-00ED; \U-00E1;\U-00F1;\U-00F7;\U-00DE;"> +<!ENTITY nav-up "\U-00D0;\U-00DC;\U-00ED;\U-00F9;"> +<!ENTITY sectioncalled "the section called"> +<!ENTITY Draft "Draft"> +<!ENTITY above "above"> +<!ENTITY below "below"> +<!ENTITY lowercase.alpha "abcdefghijklmnopqrstuvwxyz"> +<!ENTITY uppercase.alpha "ABCDEFGHIJKLMNOPQRSTUVWXYZ"> diff --git a/stylesheets/dsssl-1.79/common/dbl1en.dsl b/stylesheets/dsssl-1.79/common/dbl1en.dsl new file mode 100644 index 0000000..573d28b --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1en.dsl @@ -0,0 +1,444 @@ +<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ +<!ENTITY % en.words + PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//EN" + "dbl1en.ent"> +%en.words; +]> + +<style-sheet> +<style-specification id="docbook-l10n-en"> +<style-specification-body> + +;; $Id: dbl1en.dsl,v 1.3 2002/12/20 02:22:06 adicarlo Exp $ +;; +;; This file is part of the Modular DocBook Stylesheet distribution. +;; See ../README or http://nwalsh.com/docbook/dsssl/ +;; + +;; ----------------------------- Localization ----------------------------- + +;; If you create a new version of this file, please send it to +;; Norman Walsh, ndw@nwalsh.com + +;; The generated text for cross references to elements. See dblink.dsl +;; for a discussion of how substitution is performed on the %x +;; keywords. +;; + +(define (en-author-string #!optional (author (current-node))) + ;; Return a formatted string representation of the contents of: + ;; AUTHOR: + ;; Handles Honorific, FirstName, SurName, and Lineage. + ;; If %author-othername-in-middle% is #t, also OtherName + ;; Handles *only* the first of each. + ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" + ;; CORPAUTHOR: + ;; returns (data corpauthor) + (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) + (f_nl (select-elements (descendants author) (normalize "firstname"))) + (o_nl (select-elements (descendants author) (normalize "othername"))) + (s_nl (select-elements (descendants author) (normalize "surname"))) + (l_nl (select-elements (descendants author) (normalize "lineage"))) + (has_h (not (node-list-empty? h_nl))) + (has_f (not (node-list-empty? f_nl))) + (has_o (and %author-othername-in-middle% + (not (node-list-empty? o_nl)))) + (has_s (not (node-list-empty? s_nl))) + (has_l (not (node-list-empty? l_nl)))) + (if (or (equal? (gi author) (normalize "author")) + (equal? (gi author) (normalize "editor")) + (equal? (gi author) (normalize "othercredit"))) + (string-append + (if has_h (string-append (data-of (node-list-first h_nl)) + %honorific-punctuation%) "") + (if has_f (string-append + (if has_h " " "") + (data-of (node-list-first f_nl))) "") + (if has_o (string-append + (if (or has_h has_f) " " "") + (data-of (node-list-first o_nl))) "") + (if has_s (string-append + (if (or has_h has_f has_o) " " "") + (data-of (node-list-first s_nl))) "") + (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) + (data-of author)))) + +(define (en-xref-strings) + (list (list (normalize "appendix") (if %chapter-autolabel% + "&Appendix; %n" + "the &appendix; called %t")) + (list (normalize "article") (string-append %gentext-en-start-quote% + "%t" + %gentext-en-end-quote%)) + (list (normalize "bibliography") "%t") + (list (normalize "book") "%t") + (list (normalize "chapter") (if %chapter-autolabel% + "&Chapter; %n" + "the &chapter; called %t")) + (list (normalize "equation") "&Equation; %n") + (list (normalize "example") "&Example; %n") + (list (normalize "figure") "&Figure; %n") + (list (normalize "glossary") "%t") + (list (normalize "index") "%t") + (list (normalize "listitem") "%n") + (list (normalize "part") "&Part; %n") + (list (normalize "preface") "%t") + (list (normalize "procedure") "&Procedure; %n, %t") + (list (normalize "reference") "&Reference; %n, %t") + (list (normalize "section") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "sect1") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "sect2") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "sect3") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "sect4") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "sect5") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "simplesect") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "sidebar") "the &sidebar; %t") + (list (normalize "step") "&step; %n") + (list (normalize "table") "&Table; %n"))) + +(define (gentext-en-xref-strings gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (xref (assoc name (en-xref-strings)))) + (if xref + (car (cdr xref)) + (let* ((msg (string-append "[&xrefto; " + (if giname giname "&nonexistantelement;") + " &unsupported;]")) + (err (node-list-error msg (current-node)))) + msg)))) + +(define (en-auto-xref-indirect-connector before) + ;; In English, the (cond) is unnecessary since the word is always the + ;; same, but in other languages, that's not the case. I've set this + ;; one up with the (cond) so it stands as an example. + (cond + ((equal? (gi before) (normalize "book")) + (literal " ∈ ")) + ((equal? (gi before) (normalize "chapter")) + (literal " ∈ ")) + ((equal? (gi before) (normalize "sect1")) + (literal " ∈ ")) + (else + (literal " ∈ ")))) + +;; Should the TOC come first or last? +;; +(define %generate-en-toc-in-front% #t) + +;; gentext-element-name returns the generated text that should be +;; used to make reference to the selected element. +;; + +(define (en-element-name) + (list + (list (normalize "abstract") "&Abstract;") + (list (normalize "answer") "&Answer;") + (list (normalize "appendix") "&Appendix;") + (list (normalize "article") "&Article;") + (list (normalize "bibliography") "&Bibliography;") + (list (normalize "book") "&Book;") + (list (normalize "calloutlist") "") + (list (normalize "caution") "&Caution;") + (list (normalize "chapter") "&Chapter;") + (list (normalize "copyright") "&Copyright;") + (list (normalize "dedication") "&Dedication;") + (list (normalize "edition") "&Edition;") + (list (normalize "equation") "&Equation;") + (list (normalize "example") "&Example;") + (list (normalize "figure") "&Figure;") + (list (normalize "glossary") "&Glossary;") + (list (normalize "glosssee") "&GlossSee;") + (list (normalize "glossseealso") "&GlossSeeAlso;") + (list (normalize "important") "&Important;") + (list (normalize "index") "&Index;") + (list (normalize "colophon") "&Colophon;") + (list (normalize "setindex") "&SetIndex;") + (list (normalize "isbn") "&isbn;") + (list (normalize "legalnotice") "&LegalNotice;") + (list (normalize "msgaud") "&MsgAud;") + (list (normalize "msglevel") "&MsgLevel;") + (list (normalize "msgorig") "&MsgOrig;") + (list (normalize "note") "&Note;") + (list (normalize "part") "&Part;") + (list (normalize "preface") "&Preface;") + (list (normalize "procedure") "&Procedure;") + (list (normalize "pubdate") "&Published;") + (list (normalize "question") "&Question;") + (list (normalize "refentry") "&RefEntry;") + (list (normalize "reference") "&Reference;") + (list (normalize "refname") "&RefName;") + (list (normalize "revhistory") "&RevHistory;") + (list (normalize "refsect1") "&RefSection;") + (list (normalize "refsect2") "&RefSection;") + (list (normalize "refsect3") "&RefSection;") + (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") + (list (normalize "revision") "&Revision;") + (list (normalize "sect1") "&Section;") + (list (normalize "sect2") "&Section;") + (list (normalize "sect3") "&Section;") + (list (normalize "sect4") "&Section;") + (list (normalize "sect5") "&Section;") + (list (normalize "section") "&Section;") + (list (normalize "simplesect") "&Section;") + (list (normalize "seeie") "&see;") + (list (normalize "seealsoie") "&seealso;") + (list (normalize "set") "&Set;") + (list (normalize "sidebar") "&Sidebar;") + (list (normalize "step") "&step;") + (list (normalize "table") "&Table;") + (list (normalize "tip") "&Tip;") + (list (normalize "toc") "&TableofContents;") + (list (normalize "warning") "&Warning;") + )) + +(define (gentext-en-element-name gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (pname (assoc name (en-element-name)))) + (if pname + (car (cdr pname)) + (let* ((msg (string-append + "gentext-en-element-name: &unexpectedelementname;: " + name)) + (err (node-list-error msg (current-node)))) + msg)))) + +;; gentext-element-name-space returns gentext-element-name with a +;; trailing space, if gentext-element-name isn't "". +;; +(define (gentext-en-element-name-space giname) + (string-with-space (gentext-element-name giname))) + +;; gentext-intra-label-sep returns the seperator to be inserted +;; between multiple occurances of a label (or parts of a label) +;; for the specified element. Most of these are for enumerated +;; labels like "Figure 2-4", but this function is used elsewhere +;; (e.g. REFNAME) with a little abuse. +;; + +(define (local-en-intra-label-sep) + (list)) + +(define (en-intra-label-sep) + (list + (list (normalize "equation") "-") + (list (normalize "informalequation") "-") + (list (normalize "example") "-") + (list (normalize "figure") "-") + (list (normalize "listitem") ".") + (list (normalize "procedure") ".") + (list (normalize "refentry") ".") + (list (normalize "reference") ".") + (list (normalize "refname") ", ") + (list (normalize "refsect1") ".") + (list (normalize "refsect2") ".") + (list (normalize "refsect3") ".") + (list (normalize "sect1") ".") + (list (normalize "sect2") ".") + (list (normalize "sect3") ".") + (list (normalize "sect4") ".") + (list (normalize "sect5") ".") + (list (normalize "section") ".") + (list (normalize "simplesect") ".") + (list (normalize "step") ".") + (list (normalize "table") "-") + (list (normalize "_pagenumber") "-") + )) + +(define (gentext-en-intra-label-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-en-intra-label-sep))) + (sep (assoc name (en-intra-label-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +;; gentext-label-title-sep returns the seperator to be inserted +;; between a label and the text following the label for the +;; specified element. Most of these are for use between +;; enumerated labels and titles like "1. Chapter One Title", but +;; this function is used elsewhere (e.g. NOTE) with a little +;; abuse. +;; + +(define (local-en-label-title-sep) + (list)) + +(define (en-label-title-sep) + (list + (list (normalize "abstract") ": ") + (list (normalize "answer") " ") + (list (normalize "appendix") ". ") + (list (normalize "caution") "") + (list (normalize "chapter") ". ") + (list (normalize "equation") ". ") + (list (normalize "example") ". ") + (list (normalize "figure") ". ") + (list (normalize "footnote") ". ") + (list (normalize "glosssee") ": ") + (list (normalize "glossseealso") ": ") + (list (normalize "important") ": ") + (list (normalize "note") ": ") + (list (normalize "orderedlist") ". ") + (list (normalize "part") ". ") + (list (normalize "procedure") ". ") + (list (normalize "prefix") ". ") + (list (normalize "question") " ") + (list (normalize "refentry") "") + (list (normalize "reference") ". ") + (list (normalize "refsect1") ". ") + (list (normalize "refsect2") ". ") + (list (normalize "refsect3") ". ") + (list (normalize "sect1") ". ") + (list (normalize "sect2") ". ") + (list (normalize "sect3") ". ") + (list (normalize "sect4") ". ") + (list (normalize "sect5") ". ") + (list (normalize "section") ". ") + (list (normalize "simplesect") ". ") + (list (normalize "seeie") " ") + (list (normalize "seealsoie") " ") + (list (normalize "step") ". ") + (list (normalize "table") ". ") + (list (normalize "tip") ": ") + (list (normalize "warning") "") + )) + +(define (gentext-en-label-title-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-en-label-title-sep))) + (sep (assoc name (en-label-title-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +(define (en-label-number-format-list) + (list + (list (normalize "set") "1") + (list (normalize "book") "1") + (list (normalize "prefix") "1") + (list (normalize "part") "I") + (list (normalize "chapter") "1") + (list (normalize "appendix") "A") + (list (normalize "reference") "I") + (list (normalize "example") "1") + (list (normalize "figure") "1") + (list (normalize "table") "1") + (list (normalize "procedure") "1") + (list (normalize "step") "1") + (list (normalize "refsect1") "1") + (list (normalize "refsect2") "1") + (list (normalize "refsect3") "1") + (list (normalize "sect1") "1") + (list (normalize "sect2") "1") + (list (normalize "sect3") "1") + (list (normalize "sect4") "1") + (list (normalize "sect5") "1") + (list (normalize "section") "1") + )) + +(define (en-label-number-format gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (format (assoc name (en-label-number-format-list)))) + (if format + (car (cdr format)) + "1"))) + +(define (en-lot-title) + (list + (list (normalize "table") "&ListofTables;") + (list (normalize "example") "&ListofExamples;") + (list (normalize "figure") "&ListofFigures;") + (list (normalize "equation") "&ListofEquations;") + )) + +(define ($lot-title-en$ gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (title (assoc name (en-lot-title)))) + (if title + (car (cdr title)) + (let* ((msg (string-append "&ListofUnknown;: " name)) + (err (node-list-error msg (current-node)))) + msg)))) + +(define %gentext-en-start-quote% (dingbat "ldquo")) + +(define %gentext-en-end-quote% (dingbat "rdquo")) + +(define %gentext-en-start-nested-quote% (dingbat "lsquo")) + +(define %gentext-en-end-nested-quote% (dingbat "rsquo")) + +(define %gentext-en-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous + ;; Authored "by" Jane Doe + +(define %gentext-en-edited-by% "&Editedby;") + ;; "Edited by" Jane Doe + +(define %gentext-en-revised-by% "&Revisedby;") + ;; "Revised by" Jane Doe + +(define %gentext-en-page% "") + +(define %gentext-en-and% "∧") + +(define %gentext-en-listcomma% "&listcomma;") + +(define %gentext-en-lastlistcomma% "&lastlistcomma;") + +(define %gentext-en-bibl-pages% "&Pgs;") + +(define %gentext-en-endnotes% "&Notes;") + +(define %gentext-en-table-endnotes% "&TableNotes;:") + +(define %gentext-en-index-see% "&see;") + +(define %gentext-en-index-seealso% "&seealso;") + + +(define (gentext-en-nav-prev prev) + (make sequence (literal "&nav-prev;"))) + +(define (gentext-en-nav-prev-sibling prevsib) + (make sequence (literal "&nav-prev-sibling;"))) + +(define (gentext-en-nav-next-sibling nextsib) + (make sequence (literal "&nav-next-sibling;"))) + +(define (gentext-en-nav-next next) + (make sequence (literal "&nav-next;"))) + +(define (gentext-en-nav-up up) + (make sequence (literal "&nav-up;"))) + +(define (gentext-en-nav-home home) + (make sequence (literal "&nav-home;"))) + + +</style-specification-body> +</style-specification> +</style-sheet> diff --git a/stylesheets/dsssl-1.79/common/dbl1en.ent b/stylesheets/dsssl-1.79/common/dbl1en.ent new file mode 100644 index 0000000..c0ef979 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1en.ent @@ -0,0 +1,172 @@ +<?xml version="1.0" encoding="US-ASCII"?> +<!-- This file is generated automatically. --> +<!-- Do not edit this file by hand! --> +<!-- See http://docbook.sourceforge.net/ --> +<!-- To update this file: edit the corresponding document at --> +<!-- http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/docbook/gentext/locale/ --> + +<!ENTITY Abstract "Abstract"> +<!ENTITY abstract "Abstract"> +<!ENTITY Answer "A:"> +<!ENTITY answer "A:"> +<!ENTITY Appendix "Appendix"> +<!ENTITY appendix "Appendix"> +<!ENTITY Article "Article"> +<!ENTITY article "Article"> +<!ENTITY Bibliography "Bibliography"> +<!ENTITY bibliography "Bibliography"> +<!ENTITY Book "Book"> +<!ENTITY book "Book"> +<!ENTITY CAUTION "CAUTION"> +<!ENTITY Caution "Caution"> +<!ENTITY caution "Caution"> +<!ENTITY Chapter "Chapter"> +<!ENTITY chapter "Chapter"> +<!ENTITY Colophon "Colophon"> +<!ENTITY colophon "Colophon"> +<!ENTITY Copyright "Copyright"> +<!ENTITY copyright "Copyright"> +<!ENTITY Dedication "Dedication"> +<!ENTITY dedication "Dedication"> +<!ENTITY Edition "Edition"> +<!ENTITY edition "Edition"> +<!ENTITY Equation "Equation"> +<!ENTITY equation "Equation"> +<!ENTITY Example "Example"> +<!ENTITY example "Example"> +<!ENTITY Figure "Figure"> +<!ENTITY figure "Figure"> +<!ENTITY Glossary "Glossary"> +<!ENTITY glossary "Glossary"> +<!ENTITY GlossSee "See"> +<!ENTITY glosssee "See"> +<!ENTITY GlossSeeAlso "See Also"> +<!ENTITY glossseealso "See Also"> +<!ENTITY IMPORTANT "IMPORTANT"> +<!ENTITY important "Important"> +<!ENTITY Important "Important"> +<!ENTITY Index "Index"> +<!ENTITY index "Index"> +<!ENTITY ISBN "ISBN"> +<!ENTITY isbn "ISBN"> +<!ENTITY LegalNotice "Legal Notice"> +<!ENTITY legalnotice "Legal Notice"> +<!ENTITY MsgAud "Audience"> +<!ENTITY msgaud "Audience"> +<!ENTITY MsgLevel "Level"> +<!ENTITY msglevel "Level"> +<!ENTITY MsgOrig "Origin"> +<!ENTITY msgorig "Origin"> +<!ENTITY NOTE "NOTE"> +<!ENTITY Note "Note"> +<!ENTITY note "Note"> +<!ENTITY Part "Part"> +<!ENTITY part "Part"> +<!ENTITY Preface "Preface"> +<!ENTITY preface "Preface"> +<!ENTITY Procedure "Procedure"> +<!ENTITY procedure "Procedure"> +<!ENTITY ProductionSet "Production"> +<!ENTITY PubDate "Publication Date"> +<!ENTITY pubdate "Publication date"> +<!ENTITY Published "Published"> +<!ENTITY published "Published"> +<!ENTITY Qandadiv "Q & A"> +<!ENTITY qandadiv "Q & A"> +<!ENTITY Question "Q:"> +<!ENTITY question "Q:"> +<!ENTITY RefEntry ""> +<!ENTITY refentry ""> +<!ENTITY Reference "Reference"> +<!ENTITY reference "Reference"> +<!ENTITY RefName "Name"> +<!ENTITY refname "Name"> +<!ENTITY RefSection ""> +<!ENTITY refsection ""> +<!ENTITY RefSynopsisDiv "Synopsis"> +<!ENTITY refsynopsisdiv "Synopsis"> +<!ENTITY RevHistory "Revision History"> +<!ENTITY revhistory "Revision History"> +<!ENTITY revision "Revision"> +<!ENTITY Revision "Revision"> +<!ENTITY sect1 "Section"> +<!ENTITY sect2 "Section"> +<!ENTITY sect3 "Section"> +<!ENTITY sect4 "Section"> +<!ENTITY sect5 "Section"> +<!ENTITY section "Section"> +<!ENTITY Section "Section"> +<!ENTITY see "see"> +<!ENTITY See "See"> +<!ENTITY seealso "see also"> +<!ENTITY Seealso "See also"> +<!ENTITY SeeAlso "See Also"> +<!ENTITY set "Set"> +<!ENTITY Set "Set"> +<!ENTITY setindex "Set Index"> +<!ENTITY SetIndex "Set Index"> +<!ENTITY Sidebar ""> +<!ENTITY sidebar "sidebar"> +<!ENTITY step "step"> +<!ENTITY Step "Step"> +<!ENTITY Table "Table"> +<!ENTITY table "Table"> +<!ENTITY tip "Tip"> +<!ENTITY TIP "TIP"> +<!ENTITY Tip "Tip"> +<!ENTITY Warning "Warning"> +<!ENTITY warning "Warning"> +<!ENTITY WARNING "WARNING"> +<!ENTITY and "and"> +<!ENTITY by "by"> +<!ENTITY called "called"> +<!ENTITY Edited "Edited"> +<!ENTITY edited "Edited"> +<!ENTITY Editedby "Edited by"> +<!ENTITY editedby "Edited by"> +<!ENTITY in "in"> +<!ENTITY lastlistcomma ","> +<!ENTITY listcomma ","> +<!ENTITY nonexistantelement "non-existant element"> +<!ENTITY notes "Notes"> +<!ENTITY Notes "Notes"> +<!ENTITY Pgs "Pgs."> +<!ENTITY pgs "Pgs."> +<!ENTITY Revisedby "Revised by: "> +<!ENTITY revisedby "Revised by: "> +<!ENTITY TableNotes "Notes"> +<!ENTITY tablenotes "Notes"> +<!ENTITY TableofContents "Table of Contents"> +<!ENTITY tableofcontents "Table of Contents"> +<!ENTITY the ""> +<!ENTITY unexpectedelementname "Unexpected element name"> +<!ENTITY unsupported "unsupported"> +<!ENTITY xrefto "xref to"> +<!ENTITY listofequations "List of Equations"> +<!ENTITY ListofEquations "List of Equations"> +<!ENTITY ListofExamples "List of Examples"> +<!ENTITY listofexamples "List of Examples"> +<!ENTITY ListofFigures "List of Figures"> +<!ENTITY listoffigures "List of Figures"> +<!ENTITY ListofProcedures "List of Procedures"> +<!ENTITY listofprocedures "List of Procedures"> +<!ENTITY listoftables "List of Tables"> +<!ENTITY ListofTables "List of Tables"> +<!ENTITY ListofUnknown "List of Unknown"> +<!ENTITY listofunknown "List of Unknown"> +<!ENTITY nav-home "Home"> +<!ENTITY nav-next "Next"> +<!ENTITY nav-next-sibling "Fast Forward"> +<!ENTITY nav-prev "Prev"> +<!ENTITY nav-prev-sibling "Fast Backward"> +<!ENTITY nav-up "Up"> +<!ENTITY nav-toc "ToC"> +<!ENTITY Draft "Draft"> +<!ENTITY above "above"> +<!ENTITY below "below"> +<!ENTITY sectioncalled "the section called"> +<!ENTITY lowercase.alpha "abcdefghijklmnopqrstuvwxyz"> +<!ENTITY uppercase.alpha "ABCDEFGHIJKLMNOPQRSTUVWXYZ"> +<!ENTITY hyphenation-character "-"> +<!ENTITY hyphenation-push-character-count "2"> +<!ENTITY hyphenation-remain-character-count "2"> diff --git a/stylesheets/dsssl-1.79/common/dbl1es.dsl b/stylesheets/dsssl-1.79/common/dbl1es.dsl new file mode 100644 index 0000000..7d69918 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1es.dsl @@ -0,0 +1,434 @@ +<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ +<!ENTITY % es.words + PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//ES" + "dbl1es.ent"> +%es.words; +]> + +<style-sheet> +<style-specification id="docbook-l10n-es"> +<style-specification-body> + +;; $Id: dbl1es.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ +;; +;; This file is part of the Modular DocBook Stylesheet distribution. +;; See ../README or http://nwalsh.com/docbook/dsssl/ +;; + +;; ----------------------------- Localization ----------------------------- + +;; If you create a new version of this file, please send it to +;; Norman Walsh, ndw@nwalsh.com + +;; The generated text for cross references to elements. See dblink.dsl +;; for a discussion of how substitution is performed on the %x +;; keywords. +;; + +(define (es-author-string #!optional (author (current-node))) + ;; Return a formatted string representation of the contents of: + ;; AUTHOR: + ;; Handles Honorific, FirstName, SurName, and Lineage. + ;; If %author-othername-in-middle% is #t, also OtherName + ;; Handles *only* the first of each. + ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" + ;; CORPAUTHOR: + ;; returns (data corpauthor) + (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) + (f_nl (select-elements (descendants author) (normalize "firstname"))) + (o_nl (select-elements (descendants author) (normalize "othername"))) + (s_nl (select-elements (descendants author) (normalize "surname"))) + (l_nl (select-elements (descendants author) (normalize "lineage"))) + (has_h (not (node-list-empty? h_nl))) + (has_f (not (node-list-empty? f_nl))) + (has_o (and %author-othername-in-middle% + (not (node-list-empty? o_nl)))) + (has_s (not (node-list-empty? s_nl))) + (has_l (not (node-list-empty? l_nl)))) + (if (or (equal? (gi author) (normalize "author")) + (equal? (gi author) (normalize "editor")) + (equal? (gi author) (normalize "othercredit"))) + (string-append + (if has_h (string-append (data-of (node-list-first h_nl)) + %honorific-punctuation%) "") + (if has_f (string-append + (if has_h " " "") + (data-of (node-list-first f_nl))) "") + (if has_o (string-append + (if (or has_h has_f) " " "") + (data-of (node-list-first o_nl))) "") + (if has_s (string-append + (if (or has_h has_f has_o) " " "") + (data-of (node-list-first s_nl))) "") + (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) + (data-of author)))) + +(define (es-xref-strings) + (list (list (normalize "appendix") (if %chapter-autolabel% + "&Appendix; %n" + "el &appendix; de nombre %t")) + (list (normalize "article") (string-append %gentext-es-start-quote% + "%t" + %gentext-es-end-quote%)) + (list (normalize "bibliography") "%t") + (list (normalize "book") "%t") + (list (normalize "chapter") (if %chapter-autolabel% + "&Chapter; %n" + "el &chapter; de nombre %t")) + (list (normalize "equation") "&Equation; %n") + (list (normalize "example") "&Example; %n") + (list (normalize "figure") "&Figure; %n") + (list (normalize "glossary") "%t") + (list (normalize "index") "%t") + (list (normalize "listitem") "%n") + (list (normalize "part") "&Part; %n") + (list (normalize "preface") "%t") + (list (normalize "procedure") "&Procedure; %n, %t") + (list (normalize "reference") "&Reference; %n, %t") + (list (normalize "section") (if %section-autolabel% + "&Section; %n" + "la §ion; de nombre %t")) + (list (normalize "sect1") (if %section-autolabel% + "&Section; %n" + "la §ion; de nombre %t")) + (list (normalize "sect2") (if %section-autolabel% + "&Section; %n" + "la §ion; de nombre %t")) + (list (normalize "sect3") (if %section-autolabel% + "&Section; %n" + "la §ion; de nombre %t")) + (list (normalize "sect4") (if %section-autolabel% + "&Section; %n" + "la §ion; de nombre %t")) + (list (normalize "sect5") (if %section-autolabel% + "&Section; %n" + "la §ion; de nombre %t")) + (list (normalize "simplesect") (if %section-autolabel% + "&Section; %n" + "la §ion; de nombre %t")) + (list (normalize "sidebar") "&sidebar; %t") + (list (normalize "step") "&step; %n") + (list (normalize "table") "&Table; %n"))) + +(define (gentext-es-xref-strings gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (xref (assoc name (es-xref-strings)))) + (if xref + (car (cdr xref)) + (let* ((msg (string-append "[&xrefto; " + (if giname giname "&nonexistantelement;") + " &unsupported;]")) + (err (node-list-error msg (current-node)))) + msg)))) + +(define (es-auto-xref-indirect-connector before) + (literal " ∈ ")) + +;; Should the TOC come first or last? +;; +(define %generate-es-toc-in-front% #t) + +;; gentext-element-name returns the generated text that should be +;; used to make reference to the selected element. +;; + +(define (es-element-name) + (list + (list (normalize "abstract") "&Abstract;") + (list (normalize "answer") "&Answer;") + (list (normalize "appendix") "&Appendix;") + (list (normalize "article") "&Article;") + (list (normalize "bibliography") "&Bibliography;") + (list (normalize "book") "&Book;") + (list (normalize "calloutlist") "") + (list (normalize "caution") "&Caution;") + (list (normalize "chapter") "&Chapter;") + (list (normalize "copyright") "&Copyright;") + (list (normalize "dedication") "&Dedication;") + (list (normalize "edition") "&Edition;") + (list (normalize "equation") "&Equation;") + (list (normalize "example") "&Example;") + (list (normalize "figure") "&Figure;") + (list (normalize "glossary") "&Glossary;") + (list (normalize "glosssee") "&GlossSee;") + (list (normalize "glossseealso") "&GlossSeeAlso;") + (list (normalize "important") "&Important;") + (list (normalize "index") "&Index;") + (list (normalize "colophon") "&Colophon;") + (list (normalize "setindex") "&SetIndex;") + (list (normalize "isbn") "&isbn;") + (list (normalize "legalnotice") "&LegalNotice;") + (list (normalize "msgaud") "&MsgAud;") + (list (normalize "msglevel") "&MsgLevel;") + (list (normalize "msgorig") "&MsgOrig;") + (list (normalize "note") "&Note;") + (list (normalize "part") "&Part;") + (list (normalize "preface") "&Preface;") + (list (normalize "procedure") "&Procedure;") + (list (normalize "pubdate") "&Published;") + (list (normalize "question") "&Question;") + (list (normalize "refentry") "&RefEntry;") + (list (normalize "reference") "&Reference;") + (list (normalize "refname") "&RefName;") + (list (normalize "revhistory") "&RevHistory;") + (list (normalize "refsect1") "&RefSection;") + (list (normalize "refsect2") "&RefSection;") + (list (normalize "refsect3") "&RefSection;") + (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") + (list (normalize "revision") "&Revision;") + (list (normalize "sect1") "&Section;") + (list (normalize "sect2") "&Section;") + (list (normalize "sect3") "&Section;") + (list (normalize "sect4") "&Section;") + (list (normalize "sect5") "&Section;") + (list (normalize "section") "&Section;") + (list (normalize "simplesect") "&Section;") + (list (normalize "seeie") "&See;") + (list (normalize "seealsoie") "&Seealso;") + (list (normalize "set") "&Set;") + (list (normalize "sidebar") "&Sidebar;") + (list (normalize "step") "&step;") + (list (normalize "table") "&Table;") + (list (normalize "tip") "&Tip;") + (list (normalize "toc") "&TableofContents;") + (list (normalize "warning") "&Warning;") + )) + +(define (gentext-es-element-name gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (pname (assoc name (es-element-name)))) + (if pname + (car (cdr pname)) + (let* ((msg (string-append + "gentext-es-element-name: &unexpectedelementname;: " + name)) + (err (node-list-error msg (current-node)))) + msg)))) + +;; gentext-element-name-space returns gentext-element-name with a +;; trailing space, if gentext-element-name isn't "". +;; +(define (gentext-es-element-name-space giname) + (string-with-space (gentext-element-name giname))) + +;; gentext-intra-label-sep returns the seperator to be inserted +;; between multiple occurances of a label (or parts of a label) +;; for the specified element. Most of these are for enumerated +;; labels like "Figure 2-4", but this function is used elsewhere +;; (e.g. REFNAME) with a little abuse. +;; + +(define (local-es-intra-label-sep) + (list)) + +(define (es-intra-label-sep) + (list + (list (normalize "equation") "-") + (list (normalize "informalequation") "-") + (list (normalize "example") "-") + (list (normalize "figure") "-") + (list (normalize "listitem") ".") + (list (normalize "procedure") ".") + (list (normalize "refentry") ".") + (list (normalize "reference") ".") + (list (normalize "refname") ", ") + (list (normalize "refsect1") ".") + (list (normalize "refsect2") ".") + (list (normalize "refsect3") ".") + (list (normalize "sect1") ".") + (list (normalize "sect2") ".") + (list (normalize "sect3") ".") + (list (normalize "sect4") ".") + (list (normalize "sect5") ".") + (list (normalize "section") ".") + (list (normalize "simplesect") ".") + (list (normalize "step") ".") + (list (normalize "table") "-") + (list (normalize "_pagenumber") "-") + )) + +(define (gentext-es-intra-label-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-es-intra-label-sep))) + (sep (assoc name (es-intra-label-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +;; gentext-label-title-sep returns the seperator to be inserted +;; between a label and the text following the label for the +;; specified element. Most of these are for use between +;; enumerated labels and titles like "1. Chapter One Title", but +;; this function is used elsewhere (e.g. NOTE) with a little +;; abuse. +;; + +(define (local-es-label-title-sep) + (list)) + +(define (es-label-title-sep) + (list + (list (normalize "abstract") ": ") + (list (normalize "answer") " ") + (list (normalize "appendix") ". ") + (list (normalize "caution") "") + (list (normalize "chapter") ". ") + (list (normalize "equation") ". ") + (list (normalize "example") ". ") + (list (normalize "figure") ". ") + (list (normalize "footnote") ". ") + (list (normalize "glosssee") ": ") + (list (normalize "glossseealso") ": ") + (list (normalize "important") ": ") + (list (normalize "note") ": ") + (list (normalize "orderedlist") ". ") + (list (normalize "part") ". ") + (list (normalize "procedure") ". ") + (list (normalize "prefix") ". ") + (list (normalize "question") " ") + (list (normalize "refentry") "") + (list (normalize "reference") ". ") + (list (normalize "refsect1") ". ") + (list (normalize "refsect2") ". ") + (list (normalize "refsect3") ". ") + (list (normalize "sect1") ". ") + (list (normalize "sect2") ". ") + (list (normalize "sect3") ". ") + (list (normalize "sect4") ". ") + (list (normalize "sect5") ". ") + (list (normalize "section") ". ") + (list (normalize "simplesect") ". ") + (list (normalize "seeie") " ") + (list (normalize "seealsoie") " ") + (list (normalize "step") ". ") + (list (normalize "table") ". ") + (list (normalize "tip") ": ") + (list (normalize "warning") "") + )) + +(define (gentext-es-label-title-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-es-label-title-sep))) + (sep (assoc name (es-label-title-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +(define (es-label-number-format-list) + (list + (list (normalize "set") "1") + (list (normalize "book") "1") + (list (normalize "prefix") "1") + (list (normalize "part") "I") + (list (normalize "chapter") "1") + (list (normalize "appendix") "A") + (list (normalize "reference") "I") + (list (normalize "example") "1") + (list (normalize "figure") "1") + (list (normalize "table") "1") + (list (normalize "procedure") "1") + (list (normalize "step") "1") + (list (normalize "refsect1") "1") + (list (normalize "refsect2") "1") + (list (normalize "refsect3") "1") + (list (normalize "sect1") "1") + (list (normalize "sect2") "1") + (list (normalize "sect3") "1") + (list (normalize "sect4") "1") + (list (normalize "sect5") "1") + (list (normalize "section") "1") + )) + +(define (es-label-number-format gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (format (assoc name (es-label-number-format-list)))) + (if format + (car (cdr format)) + "1"))) + +(define (es-lot-title) + (list + (list (normalize "table") "&ListofTables;") + (list (normalize "example") "&ListofExamples;") + (list (normalize "figure") "&ListofFigures;") + (list (normalize "equation") "&ListofEquations;") + )) + +(define ($lot-title-es$ gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (title (assoc name (es-lot-title)))) + (if title + (car (cdr title)) + (let* ((msg (string-append "&ListofUnknown;: " name)) + (err (node-list-error msg (current-node)))) + msg)))) + +(define %gentext-es-start-quote% (dingbat "ldquo")) + +(define %gentext-es-end-quote% (dingbat "rdquo")) + +(define %gentext-es-start-nested-quote% (dingbat "lsquo")) + +(define %gentext-es-end-nested-quote% (dingbat "rsquo")) + +(define %gentext-es-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous + ;; Authored "by" Jane Doe + +(define %gentext-es-edited-by% "&Editedby;") + ;; "Edited by" Jane Doe + +(define %gentext-es-revised-by% "&Revisedby;") + ;; "Revised by" Jane Doe + +(define %gentext-es-page% "") + +(define %gentext-es-and% "∧") + +(define %gentext-es-listcomma% "&listcomma;") + +(define %gentext-es-lastlistcomma% "&lastlistcomma;") + +(define %gentext-es-bibl-pages% "&Pgs;") + +(define %gentext-es-endnotes% "&Notes;") + +(define %gentext-es-table-endnotes% "&TableNotes;:") + +(define %gentext-es-index-see% "&See;") + +(define %gentext-es-index-seealso% "&SeeAlso;") + + +(define (gentext-es-nav-prev prev) + (make sequence (literal "&nav-prev;"))) + +(define (gentext-es-nav-prev-sibling prevsib) + (make sequence (literal "&nav-prev-sibling;"))) + +(define (gentext-es-nav-next-sibling nextsib) + (make sequence (literal "&nav-next-sibling;"))) + +(define (gentext-es-nav-next next) + (make sequence (literal "&nav-next;"))) + +(define (gentext-es-nav-up up) + (make sequence (literal "&nav-up;"))) + +(define (gentext-es-nav-home home) + (make sequence (literal "&nav-home;"))) + + + +</style-specification-body> +</style-specification> +</style-sheet> diff --git a/stylesheets/dsssl-1.79/common/dbl1es.ent b/stylesheets/dsssl-1.79/common/dbl1es.ent new file mode 100644 index 0000000..3e1b7e0 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1es.ent @@ -0,0 +1,162 @@ +<?xml version="1.0" encoding="US-ASCII"?> +<!-- This file is generated automatically. --> +<!-- Do not edit this file by hand! --> +<!-- See http://docbook.sourceforge.net/ --> +<!-- To update this file: edit the corresponding document at --> +<!-- http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/docbook/gentext/locale/ --> + +<!ENTITY Abstract "Resumen"> +<!ENTITY abstract "resumen"> +<!ENTITY Answer "R:"> +<!ENTITY answer "r:"> +<!ENTITY Appendix "Ap\U-00E9;ndice"> +<!ENTITY appendix "ap\U-00E9;ndice"> +<!ENTITY Article "Art\U-00ED;culo"> +<!ENTITY article "art\U-00ED;culo"> +<!ENTITY Bibliography "Bibliograf\U-00ED;a"> +<!ENTITY bibliography "bibliograf\U-00ED;a"> +<!ENTITY Book "Libro"> +<!ENTITY book "libro"> +<!ENTITY CAUTION "ATENCI\U-00D3;N"> +<!ENTITY Caution "Atenci\U-00F3;n"> +<!ENTITY caution "atenci\U-00F3;n"> +<!ENTITY Chapter "Cap\U-00ED;tulo"> +<!ENTITY chapter "cap\U-00ED;tulo"> +<!ENTITY Colophon "Colof\U-00F3;n"> +<!ENTITY colophon "colof\U-00F3;n"> +<!ENTITY Copyright "Copyright"> +<!ENTITY copyright "copyright"> +<!ENTITY Dedication "Dedicatoria"> +<!ENTITY dedication "dedicatoria"> +<!ENTITY Edition "Edici\U-00F3;n"> +<!ENTITY edition "edici\U-00F3;n"> +<!ENTITY Equation "Ecuaci\U-00F3;n"> +<!ENTITY equation "ecuaci\U-00F3;n"> +<!ENTITY Example "Ejemplo"> +<!ENTITY example "ejemplo"> +<!ENTITY Figure "Figura"> +<!ENTITY figure "figura"> +<!ENTITY Glossary "Glosario"> +<!ENTITY glossary "glosario"> +<!ENTITY GlossSee "Ver"> +<!ENTITY glosssee "ver"> +<!ENTITY GlossSeeAlso "Ver tambi\U-00E9;n"> +<!ENTITY glossseealso "ver tambi\U-00E9;n"> +<!ENTITY IMPORTANT "IMPORTANTE"> +<!ENTITY Important "Importante"> +<!ENTITY important "importante"> +<!ENTITY Index "\U-00CD;ndice"> +<!ENTITY index "\U-00ED;ndice"> +<!ENTITY ISBN "ISBN"> +<!ENTITY isbn "isbn"> +<!ENTITY LegalNotice "Aviso Legal"> +<!ENTITY legalnotice "aviso legal"> +<!ENTITY MsgAud "Audiencia"> +<!ENTITY msgaud "audiencia"> +<!ENTITY MsgLevel "Nivel"> +<!ENTITY msglevel "nivel"> +<!ENTITY MsgOrig "Origen"> +<!ENTITY msgorig "origen"> +<!ENTITY NOTE "NOTA"> +<!ENTITY Note "Nota"> +<!ENTITY note "nota"> +<!ENTITY Part "Parte"> +<!ENTITY part "parte"> +<!ENTITY Preface "Prefacio"> +<!ENTITY preface "prefacio"> +<!ENTITY Procedure "Procedimiento"> +<!ENTITY procedure "procedimiento"> +<!ENTITY ProductionSet "Producci\U-00F3;n"> +<!ENTITY PubDate "Fecha de publicaci\U-00F3;n"> +<!ENTITY pubdate "fecha de publicaci\U-00F3;n"> +<!ENTITY Published "Publicado"> +<!ENTITY published "publicado"> +<!ENTITY Question "P:"> +<!ENTITY question "p:"> +<!ENTITY RefEntry "Entrada de referencia"> +<!ENTITY refentry "entrada de referencia"> +<!ENTITY Reference "Referencia"> +<!ENTITY reference "referencia"> +<!ENTITY RefName "Nombre de referencia"> +<!ENTITY refname "nombre de referencia"> +<!ENTITY RefSection "Secci\U-00F3;n de referencia"> +<!ENTITY refsection "secci\U-00F3;n de referencia"> +<!ENTITY RefSynopsisDiv "Sinopsis"> +<!ENTITY refsynopsisdiv "sinopsis"> +<!ENTITY RevHistory "Historial de revisiones"> +<!ENTITY revhistory "Historial de revisiones"> +<!ENTITY Revision "Revisi\U-00F3;n"> +<!ENTITY revision "revisi\U-00F3;n"> +<!ENTITY sect1 "Secci\U-00F3;n"> +<!ENTITY sect2 "Secci\U-00F3;n"> +<!ENTITY sect3 "Secci\U-00F3;n"> +<!ENTITY sect4 "Secci\U-00F3;n"> +<!ENTITY sect5 "Secci\U-00F3;n"> +<!ENTITY Section "Secci\U-00F3;n"> +<!ENTITY section "secci\U-00F3;n"> +<!ENTITY See "Ver"> +<!ENTITY see "ver"> +<!ENTITY SeeAlso "Ver Tambi\U-00E9;n"> +<!ENTITY Seealso "Ver tambi\U-00E9;n"> +<!ENTITY seealso "ver tambi\U-00E9;n"> +<!ENTITY Set "Conjunto"> +<!ENTITY set "conjunto"> +<!ENTITY SetIndex "\U-00CD;ndice del Conjunto"> +<!ENTITY setindex "\U-00ED;ndice del conjunto"> +<!ENTITY Sidebar "Barra lateral"> +<!ENTITY sidebar "barra lateral"> +<!ENTITY Step "Paso"> +<!ENTITY step "paso"> +<!ENTITY Table "Tabla"> +<!ENTITY table "tabla"> +<!ENTITY TIP "SUGERENCIA"> +<!ENTITY Tip "Sugerencia"> +<!ENTITY tip "sugerencia"> +<!ENTITY WARNING "AVISO"> +<!ENTITY Warning "Aviso"> +<!ENTITY warning "aviso"> +<!ENTITY and "y"> +<!ENTITY by "por"> +<!ENTITY Edited "Editado"> +<!ENTITY edited "editado"> +<!ENTITY Editedby "Editado por"> +<!ENTITY editedby "editado por"> +<!ENTITY in "en"> +<!ENTITY lastlistcomma ","> +<!ENTITY listcomma ","> +<!ENTITY nonexistantelement "elemento inexistente"> +<!ENTITY notes "notas"> +<!ENTITY Notes "Notas"> +<!ENTITY Pgs "P\U-00E1;gs."> +<!ENTITY pgs "p\U-00E1;gs."> +<!ENTITY Revisedby "Revisado por: "> +<!ENTITY revisedby "revisado por: "> +<!ENTITY TableNotes "Notas de tabla"> +<!ENTITY tablenotes "notas de tabla"> +<!ENTITY TableofContents "Tabla de contenidos"> +<!ENTITY tableofcontents "tabla de contenidos"> +<!ENTITY unexpectedelementname "nombre de elemento inesperado"> +<!ENTITY unsupported "no soportado"> +<!ENTITY xrefto "referencia a"> +<!ENTITY listofequations "lista de ecuaciones"> +<!ENTITY ListofEquations "Lista de ecuaciones"> +<!ENTITY ListofExamples "Lista de ejemplos"> +<!ENTITY listofexamples "lista de ejemplos"> +<!ENTITY ListofFigures "Lista de figuras"> +<!ENTITY listoffigures "lista de figuras"> +<!ENTITY listoftables "lista de tablas"> +<!ENTITY ListofTables "Lista de tablas"> +<!ENTITY ListofUnknown "Lista de desconocido"> +<!ENTITY listofunknown "lista de desconocido"> +<!ENTITY nav-home "Inicio"> +<!ENTITY nav-next "Siguiente"> +<!ENTITY nav-next-sibling "Avanzar"> +<!ENTITY nav-prev "Anterior"> +<!ENTITY nav-prev-sibling "Retroceder"> +<!ENTITY nav-up "Subir"> +<!ENTITY Draft "Borrador"> +<!ENTITY above "arriba"> +<!ENTITY below "abajo"> +<!ENTITY sectioncalled "secci\U-00F3;n llamada"> +<!ENTITY lowercase.alpha "abcdefghijklmnopqrstuvwxyz\U-00E1;\U-00E9;\U-00ED;\U-00F3;\U-00FA;\U-00F1;"> +<!ENTITY uppercase.alpha "ABCDEFGHIJKLMNOPQRSTUVWXYZ\U-00C1;\U-00C9;\U-00CD;\U-00D3;\U-00DA;\U-00D1;"> diff --git a/stylesheets/dsssl-1.79/common/dbl1et.dsl b/stylesheets/dsssl-1.79/common/dbl1et.dsl new file mode 100644 index 0000000..5a75101 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1et.dsl @@ -0,0 +1,444 @@ +<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ +<!ENTITY % et.words + PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//ET" + "dbl1et.ent"> +%et.words; +]> + +<style-sheet> +<style-specification id="docbook-l10n-et"> +<style-specification-body> + +;; $Id: dbl1et.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ +;; +;; This file is part of the Modular DocBook Stylesheet distribution. +;; See ../README or http://nwalsh.com/docbook/dsssl/ +;; + +;; ----------------------------- Localization ----------------------------- + +;; If you create a new version of this file, please send it to +;; Norman Walsh, ndw@nwalsh.com + +;; The generated text for cross references to elements. See dblink.dsl +;; for a discussion of how substitution is performed on the %x +;; keywords. +;; + +(define (et-author-string #!optional (author (current-node))) + ;; Return a formatted string representation of the contents of: + ;; AUTHOR: + ;; Handles Honorific, FirstName, SurName, and Lineage. + ;; If %author-othername-in-middle% is #t, also OtherName + ;; Handles *only* the first of each. + ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" + ;; CORPAUTHOR: + ;; returns (data corpauthor) + (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) + (f_nl (select-elements (descendants author) (normalize "firstname"))) + (o_nl (select-elements (descendants author) (normalize "othername"))) + (s_nl (select-elements (descendants author) (normalize "surname"))) + (l_nl (select-elements (descendants author) (normalize "lineage"))) + (has_h (not (node-list-empty? h_nl))) + (has_f (not (node-list-empty? f_nl))) + (has_o (and %author-othername-in-middle% + (not (node-list-empty? o_nl)))) + (has_s (not (node-list-empty? s_nl))) + (has_l (not (node-list-empty? l_nl)))) + (if (or (equal? (gi author) (normalize "author")) + (equal? (gi author) (normalize "editor")) + (equal? (gi author) (normalize "othercredit"))) + (string-append + (if has_h (string-append (data-of (node-list-first h_nl)) + %honorific-punctuation%) "") + (if has_f (string-append + (if has_h " " "") + (data-of (node-list-first f_nl))) "") + (if has_o (string-append + (if (or has_h has_f) " " "") + (data-of (node-list-first o_nl))) "") + (if has_s (string-append + (if (or has_h has_f has_o) " " "") + (data-of (node-list-first s_nl))) "") + (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) + (data-of author)))) + +(define (et-xref-strings) + (list (list (normalize "appendix") (if %chapter-autolabel% + "&Appendix; %n" + "&appendix; %t")) + (list (normalize "article") (string-append %gentext-et-start-quote% + "%t" + %gentext-et-end-quote%)) + (list (normalize "bibliography") "%t") + (list (normalize "book") "%t") + (list (normalize "chapter") (if %chapter-autolabel% + "&Chapter; %n" + "&chapter; %t")) + (list (normalize "equation") "&Equation; %n") + (list (normalize "example") "&Example; %n") + (list (normalize "figure") "&Figure; %n") + (list (normalize "glossary") "%t") + (list (normalize "index") "%t") + (list (normalize "listitem") "%n") + (list (normalize "part") "&Part; %n") + (list (normalize "preface") "%t") + (list (normalize "procedure") "&Procedure; %n, %t") + (list (normalize "reference") "&Reference; %n, %t") + (list (normalize "section") (if %section-autolabel% + "&Section; %n" + "§ion; %t")) + (list (normalize "sect1") (if %section-autolabel% + "&Section; %n" + "§ion; %t")) + (list (normalize "sect2") (if %section-autolabel% + "&Section; %n" + "§ion; %t")) + (list (normalize "sect3") (if %section-autolabel% + "&Section; %n" + "§ion; %t")) + (list (normalize "sect4") (if %section-autolabel% + "&Section; %n" + "§ion; %t")) + (list (normalize "sect5") (if %section-autolabel% + "&Section; %n" + "§ion; %t")) + (list (normalize "simplesect") (if %section-autolabel% + "&Section; %n" + "§ion; %t")) + (list (normalize "sidebar") "&sidebar; %t") + (list (normalize "step") "&step; %n") + (list (normalize "table") "&Table; %n"))) + +(define (gentext-et-xref-strings gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (xref (assoc name (et-xref-strings)))) + (if xref + (car (cdr xref)) + (let* ((msg (string-append "[&xrefto; " + (if giname giname "&nonexistantelement;") + " &unsupported;]")) + (err (node-list-error msg (current-node)))) + msg)))) + +(define (et-auto-xref-indirect-connector before) + ;; In English, the (cond) is unnecessary since the word is always the + ;; same, but in other languages, that's not the case. I've set this + ;; one up with the (cond) so it stands as an example. + (cond + ((equal? (gi before) (normalize "book")) + (literal " ∈ ")) + ((equal? (gi before) (normalize "chapter")) + (literal " ∈ ")) + ((equal? (gi before) (normalize "sect1")) + (literal " ∈ ")) + (else + (literal " ∈ ")))) + +;; Should the TOC come first or last? +;; +(define %generate-et-toc-in-front% #t) + +;; gentext-element-name returns the generated text that should be +;; used to make reference to the selected element. +;; + +(define (et-element-name) + (list + (list (normalize "abstract") "&Abstract;") + (list (normalize "answer") "&Answer;") + (list (normalize "appendix") "&Appendix;") + (list (normalize "article") "&Article;") + (list (normalize "bibliography") "&Bibliography;") + (list (normalize "book") "&Book;") + (list (normalize "calloutlist") "") + (list (normalize "caution") "&Caution;") + (list (normalize "chapter") "&Chapter;") + (list (normalize "copyright") "&Copyright;") + (list (normalize "dedication") "&Dedication;") + (list (normalize "edition") "&Edition;") + (list (normalize "equation") "&Equation;") + (list (normalize "example") "&Example;") + (list (normalize "figure") "&Figure;") + (list (normalize "glossary") "&Glossary;") + (list (normalize "glosssee") "&GlossSee;") + (list (normalize "glossseealso") "&GlossSeeAlso;") + (list (normalize "important") "&Important;") + (list (normalize "index") "&Index;") + (list (normalize "colophon") "&Colophon;") + (list (normalize "setindex") "&SetIndex;") + (list (normalize "isbn") "&isbn;") + (list (normalize "legalnotice") "&LegalNotice;") + (list (normalize "msgaud") "&MsgAud;") + (list (normalize "msglevel") "&MsgLevel;") + (list (normalize "msgorig") "&MsgOrig;") + (list (normalize "note") "&Note;") + (list (normalize "part") "&Part;") + (list (normalize "preface") "&Preface;") + (list (normalize "procedure") "&Procedure;") + (list (normalize "pubdate") "&Published;") + (list (normalize "question") "&Question;") + (list (normalize "refentry") "&RefEntry;") + (list (normalize "reference") "&Reference;") + (list (normalize "refname") "&RefName;") + (list (normalize "revhistory") "&RevHistory;") + (list (normalize "refsect1") "&RefSection;") + (list (normalize "refsect2") "&RefSection;") + (list (normalize "refsect3") "&RefSection;") + (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") + (list (normalize "revision") "&Revision;") + (list (normalize "sect1") "&Section;") + (list (normalize "sect2") "&Section;") + (list (normalize "sect3") "&Section;") + (list (normalize "sect4") "&Section;") + (list (normalize "sect5") "&Section;") + (list (normalize "section") "&Section;") + (list (normalize "simplesect") "&Section;") + (list (normalize "seeie") "&See;") + (list (normalize "seealsoie") "&Seealso;") + (list (normalize "set") "&Set;") + (list (normalize "sidebar") "&Sidebar;") + (list (normalize "step") "&step;") + (list (normalize "table") "&Table;") + (list (normalize "tip") "&Tip;") + (list (normalize "toc") "&TableofContents;") + (list (normalize "warning") "&Warning;") + )) + +(define (gentext-et-element-name gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (pname (assoc name (et-element-name)))) + (if pname + (car (cdr pname)) + (let* ((msg (string-append + "gentext-et-element-name: &unexpectedelementname;: " + name)) + (err (node-list-error msg (current-node)))) + msg)))) + +;; gentext-element-name-space returns gentext-element-name with a +;; trailing space, if gentext-element-name isn't "". +;; +(define (gentext-et-element-name-space giname) + (string-with-space (gentext-element-name giname))) + +;; gentext-intra-label-sep returns the seperator to be inserted +;; between multiple occurances of a label (or parts of a label) +;; for the specified element. Most of these are for enumerated +;; labels like "Figure 2-4", but this function is used elsewhere +;; (e.g. REFNAME) with a little abuse. +;; + +(define (local-et-intra-label-sep) + (list)) + +(define (et-intra-label-sep) + (list + (list (normalize "equation") "-") + (list (normalize "informalequation") "-") + (list (normalize "example") "-") + (list (normalize "figure") "-") + (list (normalize "listitem") ".") + (list (normalize "procedure") ".") + (list (normalize "refentry") ".") + (list (normalize "reference") ".") + (list (normalize "refname") ", ") + (list (normalize "refsect1") ".") + (list (normalize "refsect2") ".") + (list (normalize "refsect3") ".") + (list (normalize "sect1") ".") + (list (normalize "sect2") ".") + (list (normalize "sect3") ".") + (list (normalize "sect4") ".") + (list (normalize "sect5") ".") + (list (normalize "section") ".") + (list (normalize "simplesect") ".") + (list (normalize "step") ".") + (list (normalize "table") "-") + (list (normalize "_pagenumber") "-") + )) + +(define (gentext-et-intra-label-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (et-intra-label-sep))) + (sep (assoc name (en-intra-label-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +;; gentext-label-title-sep returns the seperator to be inserted +;; between a label and the text following the label for the +;; specified element. Most of these are for use between +;; enumerated labels and titles like "1. Chapter One Title", but +;; this function is used elsewhere (e.g. NOTE) with a little +;; abuse. +;; + +(define (local-et-label-title-sep) + (list)) + +(define (et-label-title-sep) + (list + (list (normalize "abstract") ": ") + (list (normalize "answer") " ") + (list (normalize "appendix") ". ") + (list (normalize "caution") "") + (list (normalize "chapter") ". ") + (list (normalize "equation") ". ") + (list (normalize "example") ". ") + (list (normalize "figure") ". ") + (list (normalize "footnote") ". ") + (list (normalize "glosssee") ": ") + (list (normalize "glossseealso") ": ") + (list (normalize "important") ": ") + (list (normalize "note") ": ") + (list (normalize "orderedlist") ". ") + (list (normalize "part") ". ") + (list (normalize "procedure") ". ") + (list (normalize "prefix") ". ") + (list (normalize "question") " ") + (list (normalize "refentry") "") + (list (normalize "reference") ". ") + (list (normalize "refsect1") ". ") + (list (normalize "refsect2") ". ") + (list (normalize "refsect3") ". ") + (list (normalize "sect1") ". ") + (list (normalize "sect2") ". ") + (list (normalize "sect3") ". ") + (list (normalize "sect4") ". ") + (list (normalize "sect5") ". ") + (list (normalize "section") ". ") + (list (normalize "simplesect") ". ") + (list (normalize "seeie") " ") + (list (normalize "seealsoie") " ") + (list (normalize "step") ". ") + (list (normalize "table") ". ") + (list (normalize "tip") ": ") + (list (normalize "warning") "") + )) + +(define (gentext-et-label-title-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-et-label-title-sep))) + (sep (assoc name (et-label-title-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +(define (et-label-number-format-list) + (list + (list (normalize "set") "1") + (list (normalize "book") "1") + (list (normalize "prefix") "1") + (list (normalize "part") "I") + (list (normalize "chapter") "1") + (list (normalize "appendix") "A") + (list (normalize "reference") "I") + (list (normalize "example") "1") + (list (normalize "figure") "1") + (list (normalize "table") "1") + (list (normalize "procedure") "1") + (list (normalize "step") "1") + (list (normalize "refsect1") "1") + (list (normalize "refsect2") "1") + (list (normalize "refsect3") "1") + (list (normalize "sect1") "1") + (list (normalize "sect2") "1") + (list (normalize "sect3") "1") + (list (normalize "sect4") "1") + (list (normalize "sect5") "1") + (list (normalize "section") "1") + )) + +(define (et-label-number-format gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (format (assoc name (et-label-number-format-list)))) + (if format + (car (cdr format)) + "1"))) + +(define (et-lot-title) + (list + (list (normalize "table") "&ListofTables;") + (list (normalize "example") "&ListofExamples;") + (list (normalize "figure") "&ListofFigures;") + (list (normalize "equation") "&ListofEquations;") + )) + +(define ($lot-title-et$ gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (title (assoc name (et-lot-title)))) + (if title + (car (cdr title)) + (let* ((msg (string-append "&ListofUnknown;: " name)) + (err (node-list-error msg (current-node)))) + msg)))) + +(define %gentext-et-start-quote% (dingbat "ldquo")) + +(define %gentext-et-end-quote% (dingbat "rdquo")) + +(define %gentext-et-start-nested-quote% (dingbat "lsquo")) + +(define %gentext-et-end-nested-quote% (dingbat "rsquo")) + +(define %gentext-et-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous + ;; Authored "by" Jane Doe + +(define %gentext-et-edited-by% "&Editedby;") + ;; "Edited by" Jane Doe + +(define %gentext-et-revised-by% "&Revisedby;") + ;; "Revised by" Jane Doe + +(define %gentext-et-page% "") + +(define %gentext-et-and% "∧") + +(define %gentext-et-listcomma% "&listcomma;") + +(define %gentext-et-lastlistcomma% "&lastlistcomma;") + +(define %gentext-et-bibl-pages% "&Pgs;") + +(define %gentext-et-endnotes% "&Notes;") + +(define %gentext-et-table-endnotes% "&TableNotes;:") + +(define %gentext-et-index-see% "&See;") + +(define %gentext-et-index-seealso% "&SeeAlso;") + + +(define (gentext-et-nav-prev prev) + (make sequence (literal "&nav-prev;"))) + +(define (gentext-et-nav-prev-sibling prevsib) + (make sequence (literal "&nav-prev-sibling;"))) + +(define (gentext-et-nav-next-sibling nextsib) + (make sequence (literal "&nav-next-sibling;"))) + +(define (gentext-et-nav-next next) + (make sequence (literal "&nav-next;"))) + +(define (gentext-et-nav-up up) + (make sequence (literal "&nav-up;"))) + +(define (gentext-et-nav-home home) + (make sequence (literal "&nav-home;"))) + + +</style-specification-body> +</style-specification> +</style-sheet> diff --git a/stylesheets/dsssl-1.79/common/dbl1et.ent b/stylesheets/dsssl-1.79/common/dbl1et.ent new file mode 100644 index 0000000..b325fce --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1et.ent @@ -0,0 +1,160 @@ +<?xml version="1.0" encoding="US-ASCII"?> +<!-- This file is generated automatically. --> +<!-- Do not edit this file by hand! --> +<!-- See http://docbook.sourceforge.net/ --> +<!-- To update this file: edit the corresponding document at --> +<!-- http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/docbook/gentext/locale/ --> + +<!ENTITY Abstract "\U-00DC;levaade"> +<!ENTITY abstract "\U-00DC;levaade"> +<!ENTITY Answer "V:"> +<!ENTITY answer "V:"> +<!ENTITY Appendix "Lisa"> +<!ENTITY appendix "lisa"> +<!ENTITY Article "Artikkel"> +<!ENTITY article "Artikkel"> +<!ENTITY Bibliography "Bibliograafia"> +<!ENTITY bibliography "Bibliograafia"> +<!ENTITY Book "Raamat"> +<!ENTITY book "Raamat"> +<!ENTITY CAUTION "ETTEVAATUST"> +<!ENTITY Caution "Ettevaatust"> +<!ENTITY caution "Ettevaatust"> +<!ENTITY Chapter "Peat\U-00FC;kk"> +<!ENTITY chapter "peat\U-00FC;kk"> +<!ENTITY Colophon "L\U-00F5;pum\U-00E4;rgis"> +<!ENTITY colophon "L\U-00F5;pum\U-00E4;rgis"> +<!ENTITY Copyright "Autori\U-00F5;igus"> +<!ENTITY copyright "Autori\U-00F5;igus"> +<!ENTITY Dedication "P\U-00FC;hendus"> +<!ENTITY dedication "P\U-00FC;hendus"> +<!ENTITY Edition "V\U-00E4;ljaanne"> +<!ENTITY edition "V\U-00E4;ljaanne"> +<!ENTITY Equation "Valem"> +<!ENTITY equation "Valem"> +<!ENTITY Example "N\U-00E4;ide"> +<!ENTITY example "N\U-00E4;ide"> +<!ENTITY Figure "Joonis"> +<!ENTITY figure "Joonis"> +<!ENTITY Glossary "S\U-00F5;nastik"> +<!ENTITY glossary "S\U-00F5;nastik"> +<!ENTITY GlossSee "Vt."> +<!ENTITY glosssee "Vt."> +<!ENTITY GlossSeeAlso "Vt. ka"> +<!ENTITY glossseealso "Vt. ka"> +<!ENTITY IMPORTANT "OLULINE"> +<!ENTITY Important "Oluline"> +<!ENTITY important "Oluline"> +<!ENTITY Index "Aineregister"> +<!ENTITY index "Aineregister"> +<!ENTITY ISBN "ISBN"> +<!ENTITY isbn "ISBN"> +<!ENTITY LegalNotice "Autori\U-00F5;iguse m\U-00E4;rge"> +<!ENTITY legalnotice "Autori\U-00F5;iguse m\U-00E4;rge"> +<!ENTITY MsgAud "Auditoorium"> +<!ENTITY msgaud "Auditoorium"> +<!ENTITY MsgLevel "Tase"> +<!ENTITY msglevel "Tase"> +<!ENTITY MsgOrig "Algallikas"> +<!ENTITY msgorig "Algallikas"> +<!ENTITY NOTE "M\U-00C4;RKUS"> +<!ENTITY Note "M\U-00E4;rkus"> +<!ENTITY note "M\U-00E4;rkus"> +<!ENTITY Part "Osa"> +<!ENTITY part "Osa"> +<!ENTITY Preface "Eess\U-00F5;na"> +<!ENTITY preface "Eess\U-00F5;na"> +<!ENTITY Procedure "Protseduur"> +<!ENTITY procedure "Protseduur"> +<!ENTITY ProductionSet "Production"> +<!ENTITY Published "Avaldatud"> +<!ENTITY published "Avaldatud"> +<!ENTITY Question "K:"> +<!ENTITY question "K:"> +<!ENTITY RefEntry ""> +<!ENTITY refentry ""> +<!ENTITY Reference "Viide"> +<!ENTITY reference "Viide"> +<!ENTITY RefName "Nimi"> +<!ENTITY refname "Nimi"> +<!ENTITY RefSection "L\U-00F5;ik"> +<!ENTITY refsection "L\U-00F5;ik"> +<!ENTITY RefSynopsisDiv "S\U-00FC;nopsis"> +<!ENTITY refsynopsisdiv "S\U-00FC;nopsis"> +<!ENTITY RevHistory "Vigade paranduste ajalugu"> +<!ENTITY revhistory "Vigade paranduste ajalugu"> +<!ENTITY Revision "Vigade parandus"> +<!ENTITY revision "Vigade parandus"> +<!ENTITY sect1 "Section"> +<!ENTITY sect2 "Section"> +<!ENTITY sect3 "Section"> +<!ENTITY sect4 "Section"> +<!ENTITY sect5 "Section"> +<!ENTITY section "l\U-00F5;ik"> +<!ENTITY Section "Sektsioon"> +<!ENTITY See "Vt."> +<!ENTITY see "Vt."> +<!ENTITY SeeAlso "Vt. ka"> +<!ENTITY Seealso "Vt. ka"> +<!ENTITY seealso "Vt. ka"> +<!ENTITY Set "Sea"> +<!ENTITY set "Sea"> +<!ENTITY SetIndex "Sea indeks"> +<!ENTITY setindex "Sea indeks"> +<!ENTITY Sidebar ""> +<!ENTITY sidebar "k\U-00FC;lgriba"> +<!ENTITY Step "Samm"> +<!ENTITY step "samm"> +<!ENTITY Table "Tabel"> +<!ENTITY table "Tabel"> +<!ENTITY TIP "VIHJE"> +<!ENTITY Tip "Vihje"> +<!ENTITY tip "Vihje"> +<!ENTITY WARNING "HOIATUS"> +<!ENTITY Warning "Hoiatus"> +<!ENTITY warning "Hoiatus"> +<!ENTITY and "ja"> +<!ENTITY by ""> +<!ENTITY Edited "Redaktsioon"> +<!ENTITY edited "Redaktsioon"> +<!ENTITY Editedby "Redaktsiooni autor(id)"> +<!ENTITY editedby "Redaktsiooni autor(id)"> +<!ENTITY in ""> +<!ENTITY lastlistcomma ","> +<!ENTITY listcomma ","> +<!ENTITY nonexistantelement "mitte eksisteeriv element"> +<!ENTITY Notes "M\U-00E4;rkused"> +<!ENTITY notes "M\U-00E4;rkused"> +<!ENTITY Pgs "Lk."> +<!ENTITY pgs "Lk."> +<!ENTITY Revisedby "\U-00DC;le vaadanud: "> +<!ENTITY revisedby "\U-00DC;le vaadanud: "> +<!ENTITY TableNotes "M\U-00E4;rkused"> +<!ENTITY tablenotes "M\U-00E4;rkused"> +<!ENTITY TableofContents "Sisukord"> +<!ENTITY tableofcontents "Sisukord"> +<!ENTITY unexpectedelementname "Ootamatu elemendi nimi"> +<!ENTITY unsupported "toetuseta"> +<!ENTITY xrefto "viide"> +<!ENTITY listofequations "Valemite nimekiri"> +<!ENTITY ListofEquations "Valemite nimekiri"> +<!ENTITY ListofExamples "N\U-00E4;idete nimekiri"> +<!ENTITY listofexamples "N\U-00E4;idete nimekiri"> +<!ENTITY ListofFigures "Jooniste nimekiri"> +<!ENTITY listoffigures "Jooniste nimekiri"> +<!ENTITY listoftables "Tabelite nimekiri"> +<!ENTITY ListofTables "Tabelite nimekiri"> +<!ENTITY ListofUnknown "Tundmatute nimekiri"> +<!ENTITY listofunknown "Tundmatute nimekiri"> +<!ENTITY nav-home "Koju"> +<!ENTITY nav-next "J\U-00E4;rgmine"> +<!ENTITY nav-next-sibling "Kiiresti edasi"> +<!ENTITY nav-prev "Eelmine"> +<!ENTITY nav-prev-sibling "Kiiresti tagasi"> +<!ENTITY nav-up "\U-00DC;les"> +<!ENTITY sectioncalled "the section called"> +<!ENTITY Draft "Draft"> +<!ENTITY above "above"> +<!ENTITY below "below"> +<!ENTITY lowercase.alpha "abcdefghijklmnopqrstuvwxyz"> +<!ENTITY uppercase.alpha "ABCDEFGHIJKLMNOPQRSTUVWXYZ"> diff --git a/stylesheets/dsssl-1.79/common/dbl1eu.dsl b/stylesheets/dsssl-1.79/common/dbl1eu.dsl new file mode 100644 index 0000000..4d38398 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1eu.dsl @@ -0,0 +1,444 @@ +<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ +<!ENTITY % eu.words + PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//EU" + "dbl1eu.ent"> +%eu.words; +]> + +<style-sheet> +<style-specification id="docbook-l10n-eu"> +<style-specification-body> + +;; $Id: dbl1eu.dsl,v 1.1 2001/11/14 20:57:53 nwalsh Exp $ +;; +;; This file is part of the Modular DocBook Stylesheet distribution. +;; See ../README or http://nwalsh.com/docbook/dsssl/ +;; + +;; ----------------------------- Localization ----------------------------- + +;; If you create a new version of this file, please send it to +;; Norman Walsh, ndw@nwalsh.com + +;; The generated text for cross references to elements. See dblink.dsl +;; for a discussion of how substitution is performed on the %x +;; keywords. +;; + +(define (eu-author-string #!optional (author (current-node))) + ;; Return a formatted string representation of the contents of: + ;; AUTHOR: + ;; Handles Honorific, FirstName, SurName, and Lineage. + ;; If %author-othername-in-middle% is #t, also OtherName + ;; Handles *only* the first of each. + ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" + ;; CORPAUTHOR: + ;; returns (data corpauthor) + (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) + (f_nl (select-elements (descendants author) (normalize "firstname"))) + (o_nl (select-elements (descendants author) (normalize "othername"))) + (s_nl (select-elements (descendants author) (normalize "surname"))) + (l_nl (select-elements (descendants author) (normalize "lineage"))) + (has_h (not (node-list-empty? h_nl))) + (has_f (not (node-list-empty? f_nl))) + (has_o (and %author-othername-in-middle% + (not (node-list-empty? o_nl)))) + (has_s (not (node-list-empty? s_nl))) + (has_l (not (node-list-empty? l_nl)))) + (if (or (equal? (gi author) (normalize "author")) + (equal? (gi author) (normalize "editor")) + (equal? (gi author) (normalize "othercredit"))) + (string-append + (if has_h (string-append (data-of (node-list-first h_nl)) + %honorific-punctuation%) "") + (if has_f (string-append + (if has_h " " "") + (data-of (node-list-first f_nl))) "") + (if has_o (string-append + (if (or has_h has_f) " " "") + (data-of (node-list-first o_nl))) "") + (if has_s (string-append + (if (or has_h has_f has_o) " " "") + (data-of (node-list-first s_nl))) "") + (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) + (data-of author)))) + +(define (eu-xref-strings) + (list (list (normalize "appendix") (if %chapter-autolabel% + "&Appendix; %n" + "the &appendix; called %t")) + (list (normalize "article") (string-append %gentext-eu-start-quote% + "%t" + %gentext-eu-end-quote%)) + (list (normalize "bibliography") "%t") + (list (normalize "book") "%t") + (list (normalize "chapter") (if %chapter-autolabel% + "&Chapter; %n" + "the &chapter; called %t")) + (list (normalize "equation") "&Equation; %n") + (list (normalize "example") "&Example; %n") + (list (normalize "figure") "&Figure; %n") + (list (normalize "glossary") "%t") + (list (normalize "index") "%t") + (list (normalize "listitem") "%n") + (list (normalize "part") "&Part; %n") + (list (normalize "preface") "%t") + (list (normalize "procedure") "&Procedure; %n, %t") + (list (normalize "reference") "&Reference; %n, %t") + (list (normalize "section") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "sect1") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "sect2") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "sect3") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "sect4") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "sect5") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "simplesect") (if %section-autolabel% + "&Section; %n" + "the §ion; called %t")) + (list (normalize "sidebar") "the &sidebar; %t") + (list (normalize "step") "&step; %n") + (list (normalize "table") "&Table; %n"))) + +(define (gentext-eu-xref-strings gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (xref (assoc name (eu-xref-strings)))) + (if xref + (car (cdr xref)) + (let* ((msg (string-append "[&xrefto; " + (if giname giname "&nonexistantelement;") + " &unsupported;]")) + (err (node-list-error msg (current-node)))) + msg)))) + +(define (eu-auto-xref-indirect-connector before) + ;; In English, the (cond) is unnecessary since the word is always the + ;; same, but in other languages, that's not the case. I've set this + ;; one up with the (cond) so it stands as an example. + (cond + ((equal? (gi before) (normalize "book")) + (literal " ∈ ")) + ((equal? (gi before) (normalize "chapter")) + (literal " ∈ ")) + ((equal? (gi before) (normalize "sect1")) + (literal " ∈ ")) + (else + (literal " ∈ ")))) + +;; Should the TOC come first or last? +;; +(define %generate-eu-toc-in-front% #t) + +;; gentext-element-name returns the generated text that should be +;; used to make reference to the selected element. +;; + +(define (eu-element-name) + (list + (list (normalize "abstract") "&Abstract;") + (list (normalize "answer") "&Answer;") + (list (normalize "appendix") "&Appendix;") + (list (normalize "article") "&Article;") + (list (normalize "bibliography") "&Bibliography;") + (list (normalize "book") "&Book;") + (list (normalize "calloutlist") "") + (list (normalize "caution") "&Caution;") + (list (normalize "chapter") "&Chapter;") + (list (normalize "copyright") "&Copyright;") + (list (normalize "dedication") "&Dedication;") + (list (normalize "edition") "&Edition;") + (list (normalize "equation") "&Equation;") + (list (normalize "example") "&Example;") + (list (normalize "figure") "&Figure;") + (list (normalize "glossary") "&Glossary;") + (list (normalize "glosssee") "&GlossSee;") + (list (normalize "glossseealso") "&GlossSeeAlso;") + (list (normalize "important") "&Important;") + (list (normalize "index") "&Index;") + (list (normalize "colophon") "&Colophon;") + (list (normalize "setindex") "&SetIndex;") + (list (normalize "isbn") "&isbn;") + (list (normalize "legalnotice") "&LegalNotice;") + (list (normalize "msgaud") "&MsgAud;") + (list (normalize "msglevel") "&MsgLevel;") + (list (normalize "msgorig") "&MsgOrig;") + (list (normalize "note") "&Note;") + (list (normalize "part") "&Part;") + (list (normalize "preface") "&Preface;") + (list (normalize "procedure") "&Procedure;") + (list (normalize "pubdate") "&Published;") + (list (normalize "question") "&Question;") + (list (normalize "refentry") "&RefEntry;") + (list (normalize "reference") "&Reference;") + (list (normalize "refname") "&RefName;") + (list (normalize "revhistory") "&RevHistory;") + (list (normalize "refsect1") "&RefSection;") + (list (normalize "refsect2") "&RefSection;") + (list (normalize "refsect3") "&RefSection;") + (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") + (list (normalize "revision") "&Revision;") + (list (normalize "sect1") "&Section;") + (list (normalize "sect2") "&Section;") + (list (normalize "sect3") "&Section;") + (list (normalize "sect4") "&Section;") + (list (normalize "sect5") "&Section;") + (list (normalize "section") "&Section;") + (list (normalize "simplesect") "&Section;") + (list (normalize "seeie") "&See;") + (list (normalize "seealsoie") "&Seealso;") + (list (normalize "set") "&Set;") + (list (normalize "sidebar") "&Sidebar;") + (list (normalize "step") "&step;") + (list (normalize "table") "&Table;") + (list (normalize "tip") "&Tip;") + (list (normalize "toc") "&TableofContents;") + (list (normalize "warning") "&Warning;") + )) + +(define (gentext-eu-element-name gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (pname (assoc name (eu-element-name)))) + (if pname + (car (cdr pname)) + (let* ((msg (string-append + "gentext-eu-element-name: &unexpectedelementname;: " + name)) + (err (node-list-error msg (current-node)))) + msg)))) + +;; gentext-element-name-space returns gentext-element-name with a +;; trailing space, if gentext-element-name isn't "". +;; +(define (gentext-eu-element-name-space giname) + (string-with-space (gentext-element-name giname))) + +;; gentext-intra-label-sep returns the seperator to be inserted +;; between multiple occurances of a label (or parts of a label) +;; for the specified element. Most of these are for enumerated +;; labels like "Figure 2-4", but this function is used elsewhere +;; (e.g. REFNAME) with a little abuse. +;; + +(define (local-eu-intra-label-sep) + (list)) + +(define (eu-intra-label-sep) + (list + (list (normalize "equation") "-") + (list (normalize "informalequation") "-") + (list (normalize "example") "-") + (list (normalize "figure") "-") + (list (normalize "listitem") ".") + (list (normalize "procedure") ".") + (list (normalize "refentry") ".") + (list (normalize "reference") ".") + (list (normalize "refname") ", ") + (list (normalize "refsect1") ".") + (list (normalize "refsect2") ".") + (list (normalize "refsect3") ".") + (list (normalize "sect1") ".") + (list (normalize "sect2") ".") + (list (normalize "sect3") ".") + (list (normalize "sect4") ".") + (list (normalize "sect5") ".") + (list (normalize "section") ".") + (list (normalize "simplesect") ".") + (list (normalize "step") ".") + (list (normalize "table") "-") + (list (normalize "_pagenumber") "-") + )) + +(define (gentext-eu-intra-label-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-eu-intra-label-sep))) + (sep (assoc name (eu-intra-label-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +;; gentext-label-title-sep returns the seperator to be inserted +;; between a label and the text following the label for the +;; specified element. Most of these are for use between +;; enumerated labels and titles like "1. Chapter One Title", but +;; this function is used elsewhere (e.g. NOTE) with a little +;; abuse. +;; + +(define (local-eu-label-title-sep) + (list)) + +(define (eu-label-title-sep) + (list + (list (normalize "abstract") ": ") + (list (normalize "answer") " ") + (list (normalize "appendix") ". ") + (list (normalize "caution") "") + (list (normalize "chapter") ". ") + (list (normalize "equation") ". ") + (list (normalize "example") ". ") + (list (normalize "figure") ". ") + (list (normalize "footnote") ". ") + (list (normalize "glosssee") ": ") + (list (normalize "glossseealso") ": ") + (list (normalize "important") ": ") + (list (normalize "note") ": ") + (list (normalize "orderedlist") ". ") + (list (normalize "part") ". ") + (list (normalize "procedure") ". ") + (list (normalize "prefix") ". ") + (list (normalize "question") " ") + (list (normalize "refentry") "") + (list (normalize "reference") ". ") + (list (normalize "refsect1") ". ") + (list (normalize "refsect2") ". ") + (list (normalize "refsect3") ". ") + (list (normalize "sect1") ". ") + (list (normalize "sect2") ". ") + (list (normalize "sect3") ". ") + (list (normalize "sect4") ". ") + (list (normalize "sect5") ". ") + (list (normalize "section") ". ") + (list (normalize "simplesect") ". ") + (list (normalize "seeie") " ") + (list (normalize "seealsoie") " ") + (list (normalize "step") ". ") + (list (normalize "table") ". ") + (list (normalize "tip") ": ") + (list (normalize "warning") "") + )) + +(define (gentext-eu-label-title-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-eu-label-title-sep))) + (sep (assoc name (eu-label-title-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +(define (eu-label-number-format-list) + (list + (list (normalize "set") "1") + (list (normalize "book") "1") + (list (normalize "prefix") "1") + (list (normalize "part") "I") + (list (normalize "chapter") "1") + (list (normalize "appendix") "A") + (list (normalize "reference") "I") + (list (normalize "example") "1") + (list (normalize "figure") "1") + (list (normalize "table") "1") + (list (normalize "procedure") "1") + (list (normalize "step") "1") + (list (normalize "refsect1") "1") + (list (normalize "refsect2") "1") + (list (normalize "refsect3") "1") + (list (normalize "sect1") "1") + (list (normalize "sect2") "1") + (list (normalize "sect3") "1") + (list (normalize "sect4") "1") + (list (normalize "sect5") "1") + (list (normalize "section") "1") + )) + +(define (eu-label-number-format gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (format (assoc name (eu-label-number-format-list)))) + (if format + (car (cdr format)) + "1"))) + +(define (eu-lot-title) + (list + (list (normalize "table") "&ListofTables;") + (list (normalize "example") "&ListofExamples;") + (list (normalize "figure") "&ListofFigures;") + (list (normalize "equation") "&ListofEquations;") + )) + +(define ($lot-title-eu$ gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (title (assoc name (eu-lot-title)))) + (if title + (car (cdr title)) + (let* ((msg (string-append "&ListofUnknown;: " name)) + (err (node-list-error msg (current-node)))) + msg)))) + +(define %gentext-eu-start-quote% (dingbat "ldquo")) + +(define %gentext-eu-end-quote% (dingbat "rdquo")) + +(define %gentext-eu-start-nested-quote% (dingbat "lsquo")) + +(define %gentext-eu-end-nested-quote% (dingbat "rsquo")) + +(define %gentext-eu-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous + ;; Authored "by" Jane Doe + +(define %gentext-eu-edited-by% "&Editedby;") + ;; "Edited by" Jane Doe + +(define %gentext-eu-revised-by% "&Revisedby;") + ;; "Revised by" Jane Doe + +(define %gentext-eu-page% "") + +(define %gentext-eu-and% "∧") + +(define %gentext-eu-listcomma% "&listcomma;") + +(define %gentext-eu-lastlistcomma% "&lastlistcomma;") + +(define %gentext-eu-bibl-pages% "&Pgs;") + +(define %gentext-eu-endnotes% "&Notes;") + +(define %gentext-eu-table-endnotes% "&TableNotes;:") + +(define %gentext-eu-index-see% "&See;") + +(define %gentext-eu-index-seealso% "&SeeAlso;") + + +(define (gentext-eu-nav-prev prev) + (make sequence (literal "&nav-prev;"))) + +(define (gentext-eu-nav-prev-sibling prevsib) + (make sequence (literal "&nav-prev-sibling;"))) + +(define (gentext-eu-nav-next-sibling nextsib) + (make sequence (literal "&nav-next-sibling;"))) + +(define (gentext-eu-nav-next next) + (make sequence (literal "&nav-next;"))) + +(define (gentext-eu-nav-up up) + (make sequence (literal "&nav-up;"))) + +(define (gentext-eu-nav-home home) + (make sequence (literal "&nav-home;"))) + + +</style-specification-body> +</style-specification> +</style-sheet> diff --git a/stylesheets/dsssl-1.79/common/dbl1eu.ent b/stylesheets/dsssl-1.79/common/dbl1eu.ent new file mode 100644 index 0000000..522b938 --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1eu.ent @@ -0,0 +1,160 @@ +<?xml version="1.0" encoding="US-ASCII"?> +<!-- This file is generated automatically. --> +<!-- Do not edit this file by hand! --> +<!-- See http://docbook.sourceforge.net/ --> +<!-- To update this file: edit the corresponding document at --> +<!-- http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/docbook/gentext/locale/ --> + +<!ENTITY Abstract "Laburpena"> +<!ENTITY abstract "Laburpena"> +<!ENTITY Answer "E:"> +<!ENTITY answer "E:"> +<!ENTITY Appendix "Eranskina"> +<!ENTITY appendix "eranskina"> +<!ENTITY Article "Artikulua"> +<!ENTITY article "Artikulua"> +<!ENTITY Bibliography "Bibliografia"> +<!ENTITY bibliography "Bibliografia"> +<!ENTITY Book "Liburua"> +<!ENTITY book "Liburua"> +<!ENTITY CAUTION "KONTUZ"> +<!ENTITY Caution "Kontuz"> +<!ENTITY caution "Kontuz"> +<!ENTITY Chapter "Atala"> +<!ENTITY chapter "atala"> +<!ENTITY Colophon "Azken ohar"> +<!ENTITY colophon "Azken ohar"> +<!ENTITY Copyright "Copyright"> +<!ENTITY copyright "Copyright"> +<!ENTITY Dedication "Eskaintza"> +<!ENTITY dedication "Eskaintza"> +<!ENTITY Edition "Edizioa"> +<!ENTITY edition "Edizioa"> +<!ENTITY Equation "Ekuazioa"> +<!ENTITY equation "Ekuazioa"> +<!ENTITY Example "Adibidea"> +<!ENTITY example "Adibidea"> +<!ENTITY Figure "Irudia"> +<!ENTITY figure "Irudia"> +<!ENTITY Glossary "Glosarioa"> +<!ENTITY glossary "Glosarioa"> +<!ENTITY GlossSee "Ikus"> +<!ENTITY glosssee "Ikus"> +<!ENTITY GlossSeeAlso "Ikus baita ere"> +<!ENTITY glossseealso "Ikus baita ere"> +<!ENTITY IMPORTANT "GARRANTZITSUA"> +<!ENTITY important "Garrantzitsua"> +<!ENTITY Important "Garrantzitsua"> +<!ENTITY Index "Indizea"> +<!ENTITY index "Indizea"> +<!ENTITY ISBN "ISBN"> +<!ENTITY isbn "ISBN"> +<!ENTITY LegalNotice "Legezko abisua"> +<!ENTITY legalnotice "Legezko abisua"> +<!ENTITY MsgAud "Audientzia"> +<!ENTITY msgaud "Audientzia"> +<!ENTITY MsgLevel "Maila"> +<!ENTITY msglevel "Maila"> +<!ENTITY MsgOrig "Jatorria"> +<!ENTITY msgorig "Jatorria"> +<!ENTITY NOTE "OHARRA"> +<!ENTITY Note "Oharra"> +<!ENTITY note "Oharra"> +<!ENTITY Part "Zatia"> +<!ENTITY part "Zatia"> +<!ENTITY Preface "Hitzaurrea"> +<!ENTITY preface "Hitzaurrea"> +<!ENTITY Procedure "Prozedura"> +<!ENTITY procedure "Prozedura"> +<!ENTITY ProductionSet "Ekoizpena"> +<!ENTITY Published "Argitaratua"> +<!ENTITY published "Argitaratua"> +<!ENTITY Question "Galdera"> +<!ENTITY question "galdera"> +<!ENTITY RefEntry "Sarrera"> +<!ENTITY refentry "Sarrera"> +<!ENTITY Reference "Erreferentzia"> +<!ENTITY reference "Erreferentzia"> +<!ENTITY RefName "Izena"> +<!ENTITY refname "Izena"> +<!ENTITY RefSection "Sekzioa"> +<!ENTITY refsection "sekzioa"> +<!ENTITY RefSynopsisDiv "Laburpena"> +<!ENTITY refsynopsisdiv "Laburpena"> +<!ENTITY RevHistory "Berrikuspenaren historia"> +<!ENTITY revhistory "Berrikuspenaren historia"> +<!ENTITY revision "Berrikuspena"> +<!ENTITY Revision "Berrikuspena"> +<!ENTITY sect1 "Atala"> +<!ENTITY sect2 "Atala"> +<!ENTITY sect3 "Atala"> +<!ENTITY sect4 "Atala"> +<!ENTITY sect5 "Atala"> +<!ENTITY section "Atala"> +<!ENTITY Section "Atala"> +<!ENTITY See "Ikus"> +<!ENTITY see "Ikus"> +<!ENTITY SeeAlso "Ikus baita ere"> +<!ENTITY seealso "Ikus baita ere"> +<!ENTITY Seealso "Ikus baita ere"> +<!ENTITY set "Konfiguratu"> +<!ENTITY Set "Konfiguratu"> +<!ENTITY setindex "Konfiguratu indizea"> +<!ENTITY SetIndex "Konfiguratu indizea"> +<!ENTITY Sidebar "Alboko barra"> +<!ENTITY sidebar "alboko barra"> +<!ENTITY step "urratsa"> +<!ENTITY Step "Urratsa"> +<!ENTITY Table "Taula"> +<!ENTITY table "Taula"> +<!ENTITY tip "Iradokizuna"> +<!ENTITY TIP "IRADOKIZUNA"> +<!ENTITY Tip "Iradokizuna"> +<!ENTITY Warning "Abisua"> +<!ENTITY warning "Abisua"> +<!ENTITY WARNING "ABISUA"> +<!ENTITY and "eta"> +<!ENTITY by "Honek"> +<!ENTITY Edited "editatua"> +<!ENTITY edited "editatua"> +<!ENTITY Editedby "Honek editatua"> +<!ENTITY editedby "Honek editatua"> +<!ENTITY in "non"> +<!ENTITY lastlistcomma ","> +<!ENTITY listcomma ","> +<!ENTITY nonexistantelement "lehendik ez dagoen elementua"> +<!ENTITY notes "Oharrak"> +<!ENTITY Notes "Oharrak"> +<!ENTITY Pgs "Orr."> +<!ENTITY pgs "Orr."> +<!ENTITY Revisedby "Berrikuspena: "> +<!ENTITY revisedby "Berrikuspena: "> +<!ENTITY TableNotes "Oharrak"> +<!ENTITY tablenotes "Oharrak"> +<!ENTITY TableofContents "Edukien aurkibidea"> +<!ENTITY tableofcontents "Edukien aurkibidea"> +<!ENTITY unexpectedelementname "Ustekabeko elemetu-izena"> +<!ENTITY unsupported "onartzen ez den"> +<!ENTITY xrefto "xref honi"> +<!ENTITY listofequations "Ekuazioen zerrenda"> +<!ENTITY ListofEquations "Ekuazioen zerrenda"> +<!ENTITY ListofExamples "Adibideen zerrenda"> +<!ENTITY listofexamples "Adibideen zerrenda"> +<!ENTITY ListofFigures "Irudien zerrenda"> +<!ENTITY listoffigures "Irudien zerrenda"> +<!ENTITY listoftables "Taulen zerrenda"> +<!ENTITY ListofTables "Taulen zerrenda"> +<!ENTITY ListofUnknown "Ezezagunen zerrenda"> +<!ENTITY listofunknown "Ezazagunen zerrenda"> +<!ENTITY nav-home "Etxea"> +<!ENTITY nav-next "Hurrengoa"> +<!ENTITY nav-next-sibling "Aurreratze azkarra"> +<!ENTITY nav-prev "Aurrekoa"> +<!ENTITY nav-prev-sibling "Atzeratze azkarra"> +<!ENTITY nav-up "Gora"> +<!ENTITY sectioncalled "honela deritzon atala"> +<!ENTITY Draft "Zirriborroa"> +<!ENTITY above "goian"> +<!ENTITY below "behean"> +<!ENTITY lowercase.alpha "abcdefghijklmnopqrstuvwxyz"> +<!ENTITY uppercase.alpha "ABCDEFGHIJKLMNOPQRSTUVWXYZ"> diff --git a/stylesheets/dsssl-1.79/common/dbl1fi.dsl b/stylesheets/dsssl-1.79/common/dbl1fi.dsl new file mode 100644 index 0000000..e69031c --- a/dev/null +++ b/stylesheets/dsssl-1.79/common/dbl1fi.dsl @@ -0,0 +1,444 @@ +<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ +<!ENTITY % fi.words + PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//FI" + "dbl1fi.ent"> +%fi.words; +]> + +<style-sheet> +<style-specification id="docbook-l10n-fi"> +<style-specification-body> + +;; +;; This file is part of the Modular DocBook Stylesheet distribution. +;; See ../README or http://nwalsh.com/docbook/dsssl/ +;; + +;; ----------------------------- Localization ----------------------------- + +;; If you create a new version of this file, please send it to +;; Norman Walsh, ndw@nwalsh.com + +;; The generated text for cross references to elements. See dblink.dsl +;; for a discussion of how substitution is performed on the %x +;; keywords. +;; + +(define (fi-author-string #!optional (author (current-node))) + ;; Return a formatted string representation of the contents of: + ;; AUTHOR: + ;; Handles Honorific, FirstName, SurName, and Lineage. + ;; If %author-othername-in-middle% is #t, also OtherName + ;; Handles *only* the first of each. + ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" + ;; CORPAUTHOR: + ;; returns (data corpauthor) + (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) + (f_nl (select-elements (descendants author) (normalize "firstname"))) + (o_nl (select-elements (descendants author) (normalize "othername"))) + (s_nl (select-elements (descendants author) (normalize "surname"))) + (l_nl (select-elements (descendants author) (normalize "lineage"))) + (has_h (not (node-list-empty? h_nl))) + (has_f (not (node-list-empty? f_nl))) + (has_o (and %author-othername-in-middle% + (not (node-list-empty? o_nl)))) + (has_s (not (node-list-empty? s_nl))) + (has_l (not (node-list-empty? l_nl)))) + (if (or (equal? (gi author) (normalize "author")) + (equal? (gi author) (normalize "editor")) + (equal? (gi author) (normalize "othercredit"))) + (string-append + (if has_h (string-append (data-of (node-list-first h_nl)) + %honorific-punctuation%) "") + (if has_f (string-append + (if has_h " " "") + (data-of (node-list-first f_nl))) "") + (if has_o (string-append + (if (or has_h has_f) " " "") + (data-of (node-list-first o_nl))) "") + (if has_s (string-append + (if (or has_h has_f has_o) " " "") + (data-of (node-list-first s_nl))) "") + (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) + (data-of author)))) + +(define (fi-xref-strings) + (list (list (normalize "appendix") (if %chapter-autolabel% + "&Appendix; %n" + "%t")) + (list (normalize "article") (string-append %gentext-fi-start-quote% + "%t" + %gentext-fi-end-quote%)) + (list (normalize "bibliography") "%t") + (list (normalize "book") "%t") + (list (normalize "chapter") (if %chapter-autolabel% + "&Chapter; %n" + "%t")) + (list (normalize "equation") "&Equation; %n") + (list (normalize "example") "&Example; %n") + (list (normalize "figure") "&Figure; %n") + (list (normalize "glossary") "%t") + (list (normalize "index") "%t") + (list (normalize "listitem") "%n") + (list (normalize "part") "&Part; %n") + (list (normalize "preface") "%t") + (list (normalize "procedure") "&Procedure; %n, %t") + (list (normalize "reference") "&Reference; %n, %t") + (list (normalize "section") (if %section-autolabel% + "&Section; %n" + "%t")) + (list (normalize "sect1") (if %section-autolabel% + "&Section; %n" + "%t")) + (list (normalize "sect2") (if %section-autolabel% + "&Section; %n" + "%t")) + (list (normalize "sect3") (if %section-autolabel% + "&Section; %n" + "%t")) + (list (normalize "sect4") (if %section-autolabel% + "&Section; %n" + "%t")) + (list (normalize "sect5") (if %section-autolabel% + "&Section; %n" + "%t")) + (list (normalize "simplesect") (if %section-autolabel% + "&Section; %n" + "%t")) + (list (normalize "sidebar") "%t") + (list (normalize "step") "&step; %n") + (list (normalize "table") "&Table; %n"))) + +(define (gentext-fi-xref-strings gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (xref (assoc name (fi-xref-strings)))) + (if xref + (car (cdr xref)) + (let* ((msg (string-append "[&xrefto; " + (if giname giname "&nonexistantelement;") + " &unsupported;]")) + (err (node-list-error msg (current-node)))) + msg)))) + +(define (fi-auto-xref-indirect-connector before) + ;; In English, the (cond) is unnecessary since the word is always the + ;; same, but in other languages, that's not the case. I've set this + ;; one up with the (cond) so it stands as an example. + (cond + ((equal? (gi before) (normalize "book")) + (literal " ∈ ")) + ((equal? (gi before) (normalize "chapter")) + (literal " ∈ ")) + ((equal? (gi before) (normalize "sect1")) + (literal " ∈ ")) + (else + (literal " ∈ ")))) + +;; Should the TOC come first or last? +;; +(define %generate-fi-toc-in-front% #t) + +;; gentext-element-name returns the generated text that should be +;; used to make reference to the selected element. +;; + +(define (fi-element-name) + (list + (list (normalize "abstract") "&Abstract;") + (list (normalize "answer") "&Answer;") + (list (normalize "appendix") "&Appendix;") + (list (normalize "article") "&Article;") + (list (normalize "bibliography") "&Bibliography;") + (list (normalize "book") "&Book;") + (list (normalize "calloutlist") "") + (list (normalize "caution") "&Caution;") + (list (normalize "chapter") "&Chapter;") + (list (normalize "copyright") "&Copyright;") + (list (normalize "dedication") "&Dedication;") + (list (normalize "edition") "&Edition;") + (list (normalize "equation") "&Equation;") + (list (normalize "example") "&Example;") + (list (normalize "figure") "&Figure;") + (list (normalize "glossary") "&Glossary;") + (list (normalize "glosssee") "&GlossSee;") + (list (normalize "glossseealso") "&GlossSeeAlso;") + (list (normalize "important") "&Important;") + (list (normalize "index") "&Index;") + (list (normalize "colophon") "&Colophon;") + (list (normalize "setindex") "&SetIndex;") + (list (normalize "isbn") "&isbn;") + (list (normalize "legalnotice") "&LegalNotice;") + (list (normalize "msgaud") "&MsgAud;") + (list (normalize "msglevel") "&MsgLevel;") + (list (normalize "msgorig") "&MsgOrig;") + (list (normalize "note") "&Note;") + (list (normalize "part") "&Part;") + (list (normalize "preface") "&Preface;") + (list (normalize "procedure") "&Procedure;") + (list (normalize "pubdate") "&Published;") + (list (normalize "question") "&Question;") + (list (normalize "refentry") "&RefEntry;") + (list (normalize "reference") "&Reference;") + (list (normalize "refname") "&RefName;") + (list (normalize "revhistory") "&RevHistory;") + (list (normalize "refsect1") "&RefSection;") + (list (normalize "refsect2") "&RefSection;") + (list (normalize "refsect3") "&RefSection;") + (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") + (list (normalize "revision") "&Revision;") + (list (normalize "sect1") "&Section;") + (list (normalize "sect2") "&Section;") + (list (normalize "sect3") "&Section;") + (list (normalize "sect4") "&Section;") + (list (normalize "sect5") "&Section;") + (list (normalize "section") "&Section;") + (list (normalize "simplesect") "&Section;") + (list (normalize "seeie") "&See;") + (list (normalize "seealsoie") "&Seealso;") + (list (normalize "set") "&Set;") + (list (normalize "sidebar") "&Sidebar;") + (list (normalize "step") "&step;") + (list (normalize "table") "&Table;") + (list (normalize "tip") "&Tip;") + (list (normalize "toc") "&TableofContents;") + (list (normalize "warning") "&Warning;") + )) + +(define (gentext-fi-element-name gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (pname (assoc name (fi-element-name)))) + (if pname + (car (cdr pname)) + (let* ((msg (string-append + "gentext-fi-element-name: &unexpectedelementname;: " + name)) + (err (node-list-error msg (current-node)))) + msg)))) + +;; gentext-element-name-space returns gentext-element-name with a +;; trailing space, if gentext-element-name isn't "". +;; +(define (gentext-fi-element-name-space giname) + (string-with-space (gentext-element-name giname))) + +;; gentext-intra-label-sep returns the seperator to be inserted +;; between multiple occurances of a label (or parts of a label) +;; for the specified element. Most of these are for enumerated +;; labels like "Figure 2-4", but this function is used elsewhere +;; (e.g. REFNAME) with a little abuse. +;; + +(define (local-fi-intra-label-sep) + (list)) + +(define (fi-intra-label-sep) + (list + (list (normalize "equation") "-") + (list (normalize "informalequation") "-") + (list (normalize "example") "-") + (list (normalize "figure") "-") + (list (normalize "listitem") ".") + (list (normalize "procedure") ".") + (list (normalize "refentry") ".") + (list (normalize "reference") ".") + (list (normalize "refname") ", ") + (list (normalize "refsect1") ".") + (list (normalize "refsect2") ".") + (list (normalize "refsect3") ".") + (list (normalize "sect1") ".") + (list (normalize "sect2") ".") + (list (normalize "sect3") ".") + (list (normalize "sect4") ".") + (list (normalize "sect5") ".") + (list (normalize "section") ".") + (list (normalize "simplesect") ".") + (list (normalize "step") ".") + (list (normalize "table") "-") + (list (normalize "_pagenumber") "-") + )) + +(define (gentext-fi-intra-label-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-fi-intra-label-sep))) + (sep (assoc name (fi-intra-label-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +;; gentext-label-title-sep returns the seperator to be inserted +;; between a label and the text following the label for the +;; specified element. Most of these are for use between +;; enumerated labels and titles like "1. Chapter One Title", but +;; this function is used elsewhere (e.g. NOTE) with a little +;; abuse. +;; + +(define (local-fi-label-title-sep) + (list)) + +(define (fi-label-title-sep) + (list + (list (normalize "abstract") ": ") + (list (normalize "answer") " ") + (list (normalize "appendix") ". ") + (list (normalize "caution") "") + (list (normalize "chapter") ". ") + (list (normalize "equation") ". ") + (list (normalize "example") ". ") + (list (normalize "figure") ". ") + (list (normalize "footnote") ". ") + (list (normalize "glosssee") ": ") + (list (normalize "glossseealso") ": ") + (list (normalize "important") ": ") + (list (normalize "note") ": ") + (list (normalize "orderedlist") ". ") + (list (normalize "part") ". ") + (list (normalize "procedure") ". ") + (list (normalize "prefix") ". ") + (list (normalize "question") " ") + (list (normalize "refentry") "") + (list (normalize "reference") ". ") + (list (normalize "refsect1") ". ") + (list (normalize "refsect2") ". ") + (list (normalize "refsect3") ". ") + (list (normalize "sect1") ". ") + (list (normalize "sect2") ". ") + (list (normalize "sect3") ". ") + (list (normalize "sect4") ". ") + (list (normalize "sect5") ". ") + (list (normalize "section") ". ") + (list (normalize "simplesect") ". ") + (list (normalize "seeie") " ") + (list (normalize "seealsoie") " ") + (list (normalize "step") ". ") + (list (normalize "table") ". ") + (list (normalize "tip") ": ") + (list (normalize "warning") "") + )) + +(define (gentext-fi-label-title-sep gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (lsep (assoc name (local-fi-label-title-sep))) + (sep (assoc name (fi-label-title-sep)))) + (if lsep + (car (cdr lsep)) + (if sep + (car (cdr sep)) + "")))) + +(define (fi-label-number-format-list) + (list + (list (normalize "set") "1") + (list (normalize "book") "1") + (list (normalize "prefix") "1") + (list (normalize "part") "I") + (list (normalize "chapter") "1") + (list (normalize "appendix") "A") + (list (normalize "reference") "I") + (list (normalize "example") "1") + (list (normalize "figure") "1") + (list (normalize "table") "1") + (list (normalize "procedure") "1") + (list (normalize "step") "1") + (list (normalize "refsect1") "1") + (list (normalize "refsect2") "1") + (list (normalize "refsect3") "1") + (list (normalize "sect1") "1") + (list (normalize "sect2") "1") + (list (normalize "sect3") "1") + (list (normalize "sect4") "1") + (list (normalize "sect5") "1") + (list (normalize "section") "1") + )) + +(define (fi-label-number-format gind) + (let* ((giname (if (string? gind) gind (gi gind))) + (name (normalize giname)) + (format (assoc name (fi-label-number-format-list)))) + (if format + (car (cdr format)) + "1"))) + +(define (fi-lot-title) + (list + (list (normalize "table") "&ListofTables;") + (list (normalize "example") "&ListofExamples;") + (list (normalize "figure") "&Listof |
