mirror of
https://github.com/smarty-php/smarty.git
synced 2025-10-04 08:10:55 +02:00
commiting missing files for docbook
This commit is contained in:
nlopess
2
.gitignore
vendored
2
.gitignore
vendored
@@ -3,6 +3,8 @@ docs/*.fot
|
||||
docs/Makefile
|
||||
docs/config.*
|
||||
docs/configure
|
||||
docs/diff
|
||||
docs/entities/version.ent
|
||||
docs/html
|
||||
docs/manual.xml
|
||||
docs/phpweb
|
||||
|
||||
@@ -6,3 +6,4 @@ config.*
|
||||
*.fot
|
||||
html
|
||||
phpweb
|
||||
diff
|
||||
|
||||
112
docs/dsssl/docbook/common/ChangeLog
Executable file
112
docs/dsssl/docbook/common/ChangeLog
Executable file
@@ -0,0 +1,112 @@
|
||||
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: New file.
|
||||
|
||||
* .cvsignore, dbl10n.ent: Merged V174bugfixes
|
||||
|
||||
* 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 #460349, don't check extension for linespecific inclusions
|
||||
|
||||
* dbcommon.dsl: Patch #461632, title sizes for bibliography and index divs
|
||||
|
||||
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.
|
||||
|
||||
36
docs/dsssl/docbook/common/catalog
Executable file
36
docs/dsssl/docbook/common/catalog
Executable file
@@ -0,0 +1,36 @@
|
||||
OVERRIDE YES
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//AF" "dbl1af.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"
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//ZHHK" "dbl1zhhk.ent"
|
||||
8
docs/dsssl/docbook/common/cs-hack.pl
Executable file
8
docs/dsssl/docbook/common/cs-hack.pl
Executable file
@@ -0,0 +1,8 @@
|
||||
#!/bin/perl -- # -*- Perl -*-
|
||||
|
||||
# Charset hacking...
|
||||
|
||||
while (<>) {
|
||||
s/\&\#(\d+);/sprintf("\\U-%04X;", $1)/egs;
|
||||
print;
|
||||
}
|
||||
1904
docs/dsssl/docbook/common/dbcommon.dsl
Executable file
1904
docs/dsssl/docbook/common/dbcommon.dsl
Executable file
File diff suppressed because it is too large
Load Diff
1521
docs/dsssl/docbook/common/dbl10n.dsl
Executable file
1521
docs/dsssl/docbook/common/dbl10n.dsl
Executable file
File diff suppressed because it is too large
Load Diff
351
docs/dsssl/docbook/common/dbl10n.ent
Executable file
351
docs/dsssl/docbook/common/dbl10n.ent
Executable file
@@ -0,0 +1,351 @@
|
||||
<!ENTITY % l10n-af "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">
|
||||
<!ENTITY % l10n-zhhk "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-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>
|
||||
|
||||
<![%l10n-zhhk;[
|
||||
<!ENTITY dbl1zhhk
|
||||
PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Localization//ZHHK"
|
||||
"../common/dbl1zhhk.dsl" CDATA DSSSL>
|
||||
]]>
|
||||
<!ENTITY dbl1zhhk
|
||||
PUBLIC "-//Norman Walsh//DOCUMENT DocBook Stylesheet Null Localization//EN"
|
||||
"../common/dbl1null.dsl" CDATA DSSSL>
|
||||
|
||||
55
docs/dsssl/docbook/common/dbl10n.pl
Executable file
55
docs/dsssl/docbook/common/dbl10n.pl
Executable file
@@ -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);
|
||||
281
docs/dsssl/docbook/common/dbl10n.template
Executable file
281
docs/dsssl/docbook/common/dbl10n.template
Executable file
@@ -0,0 +1,281 @@
|
||||
;; $Id$
|
||||
;;
|
||||
;; 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
|
||||
;; 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)))
|
||||
|
||||
;; bmno - Norwegian (Norsk Bokmal) ???
|
||||
;; dege - German
|
||||
;; dk - Danish
|
||||
;; svse - Swedish
|
||||
;; usen - English
|
||||
|
||||
(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"))))
|
||||
440
docs/dsssl/docbook/common/dbl1af.dsl
Executable file
440
docs/dsssl/docbook/common/dbl1af.dsl
Executable file
@@ -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$
|
||||
;;
|
||||
;; 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>
|
||||
|
||||
149
docs/dsssl/docbook/common/dbl1af.ent
Executable file
149
docs/dsssl/docbook/common/dbl1af.ent
Executable file
@@ -0,0 +1,149 @@
|
||||
<?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 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 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 sectioncalled "die seksie genaamd">
|
||||
443
docs/dsssl/docbook/common/dbl1ca.dsl
Executable file
443
docs/dsssl/docbook/common/dbl1ca.dsl
Executable file
@@ -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$
|
||||
;;
|
||||
;; 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>
|
||||
148
docs/dsssl/docbook/common/dbl1ca.ent
Executable file
148
docs/dsssl/docbook/common/dbl1ca.ent
Executable file
@@ -0,0 +1,148 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "Resum">
|
||||
<!ENTITY abstract "Resum">
|
||||
<!ENTITY Answer "Answer">
|
||||
<!ENTITY answer "Answer">
|
||||
<!ENTITY appendix "ap\U-00E8;ndex">
|
||||
<!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 "Colophon">
|
||||
<!ENTITY colophon "Colophon">
|
||||
<!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 "">
|
||||
<!ENTITY legalnotice "">
|
||||
<!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 PubDate "Data de publicaci\U-00F3;">
|
||||
<!ENTITY pubdate "Data de publicaci\U-00F3;">
|
||||
<!ENTITY Published "Data de publicaci\U-00F3;">
|
||||
<!ENTITY published "Data de publicaci\U-00F3;">
|
||||
<!ENTITY Question "Question">
|
||||
<!ENTITY question "Question">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "Refer\U-00E8;ncia">
|
||||
<!ENTITY reference "Refer\U-00E8;ncia">
|
||||
<!ENTITY RefName "Nom">
|
||||
<!ENTITY refname "Nom">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "Synopsis">
|
||||
<!ENTITY refsynopsisdiv "Synopsis">
|
||||
<!ENTITY RevHistory "Historial de revisions">
|
||||
<!ENTITY revhistory "Historial de revisions">
|
||||
<!ENTITY Revision "Revisi\U-00F3;">
|
||||
<!ENTITY revision "Revisi\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 tambi\U-00E9;">
|
||||
<!ENTITY SeeAlso "Veure tambi\U-00E9;">
|
||||
<!ENTITY Set "Conjunt">
|
||||
<!ENTITY set "Conjunt">
|
||||
<!ENTITY SetIndex "\U-00CD;ndex del conjunt">
|
||||
<!ENTITY setindex "\U-00CD;ndex del conjunt">
|
||||
<!ENTITY Sidebar "">
|
||||
<!ENTITY sidebar "glossa">
|
||||
<!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 "Revised by: ">
|
||||
<!ENTITY revisedby "Revised by: ">
|
||||
<!ENTITY TableNotes "Notes">
|
||||
<!ENTITY tablenotes "Notes">
|
||||
<!ENTITY TableofContents "Sumari">
|
||||
<!ENTITY tableofcontents "Sumari">
|
||||
<!ENTITY unexpectedelementname "Nom d'element no esperat">
|
||||
<!ENTITY unsupported "no reconeguda">
|
||||
<!ENTITY xrefto "xref 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 "Seguent">
|
||||
<!ENTITY nav-next-sibling "Avancar">
|
||||
<!ENTITY nav-prev "Anterior">
|
||||
<!ENTITY nav-prev-sibling "Retrocedir">
|
||||
<!ENTITY nav-up "Pujar">
|
||||
443
docs/dsssl/docbook/common/dbl1cs.dsl
Executable file
443
docs/dsssl/docbook/common/dbl1cs.dsl
Executable file
@@ -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$
|
||||
;;
|
||||
;; 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>
|
||||
155
docs/dsssl/docbook/common/dbl1cs.ent
Executable file
155
docs/dsssl/docbook/common/dbl1cs.ent
Executable file
@@ -0,0 +1,155 @@
|
||||
<?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;">
|
||||
432
docs/dsssl/docbook/common/dbl1da.dsl
Executable file
432
docs/dsssl/docbook/common/dbl1da.dsl
Executable file
@@ -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$
|
||||
;;
|
||||
;; 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>
|
||||
160
docs/dsssl/docbook/common/dbl1da.ent
Executable file
160
docs/dsssl/docbook/common/dbl1da.ent
Executable file
@@ -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 "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-00E5;">
|
||||
<!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-00E6;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 " og ">
|
||||
<!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-00E6;\U-00F8;\U-00E5;">
|
||||
445
docs/dsssl/docbook/common/dbl1de.dsl
Executable file
445
docs/dsssl/docbook/common/dbl1de.dsl
Executable file
@@ -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$
|
||||
;;
|
||||
;; 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>
|
||||
151
docs/dsssl/docbook/common/dbl1de.ent
Executable file
151
docs/dsssl/docbook/common/dbl1de.ent
Executable file
@@ -0,0 +1,151 @@
|
||||
<?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 "Colophon">
|
||||
<!ENTITY colophon "Colophon">
|
||||
<!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 Published "Ver\U-00F6;ffentlicht">
|
||||
<!ENTITY published "Ver\U-00F6;ffentlicht">
|
||||
<!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 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 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 "Nach vorne">
|
||||
<!ENTITY nav-next-sibling "Schnell nach vorne">
|
||||
<!ENTITY nav-prev "Zur\U-00FC;ck">
|
||||
<!ENTITY nav-prev-sibling "Schnell zur\U-00FC;ck">
|
||||
<!ENTITY nav-up "Nach oben">
|
||||
<!ENTITY lowercase.alpha "abcdefghijklmnopqrstuvwxyz">
|
||||
<!ENTITY uppercase.alpha "ABCDEFGHIJKLMNOPQRSTUVWXYZ">
|
||||
445
docs/dsssl/docbook/common/dbl1el.dsl
Executable file
445
docs/dsssl/docbook/common/dbl1el.dsl
Executable file
@@ -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$
|
||||
;;
|
||||
;; 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>
|
||||
146
docs/dsssl/docbook/common/dbl1el.ent
Executable file
146
docs/dsssl/docbook/common/dbl1el.ent
Executable file
@@ -0,0 +1,146 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "\U-00D0;\U-00E5;\U-00F1;\U-00DF;\U-00EB;\U-00E7;\U-00F8;\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 answer "\U-00C1;:">
|
||||
<!ENTITY Appendix "\U-00D0;\U-00E1;\U-00F1;\U-00DC;\U-00F1;\U-00F4;\U-00E7;\U-00EC;\U-00E1;">
|
||||
<!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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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-00C7;\U-00CC;\U-00C1;\U-00CD;\U-00D4;\U-00C9;\U-00CA;\U-00CF;">
|
||||
<!ENTITY Important "\U-00D3;\U-00E7;\U-00EC;\U-00E1;\U-00ED;\U-00F4;\U-00E9;\U-00EA;\U-00FC;">
|
||||
<!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 index "\U-00C5;\U-00F5;\U-00F1;\U-00E5;\U-00F4;\U-00DE;\U-00F1;\U-00E9;\U-00EF;">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!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 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 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 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 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 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 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 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 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 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 question "\U-00C5;:">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "\U-00C1;\U-00ED;\U-00E1;\U-00F6;\U-00EF;\U-00F1;\U-00DC;">
|
||||
<!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 refname "\U-00BC;\U-00ED;\U-00EF;\U-00EC;\U-00E1;">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "\U-00D3;\U-00FD;\U-00ED;\U-00EF;\U-00F8;\U-00E7;">
|
||||
<!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 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 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 section "\U-00F4;\U-00EC;\U-00DE;\U-00EC;\U-00E1;">
|
||||
<!ENTITY See "\U-00C4;\U-00E5;\U-00DF;\U-00F4;\U-00E5;">
|
||||
<!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-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 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 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 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-00D6;\U-00DC;\U-00F3;\U-00E7;">
|
||||
<!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 table "\U-00D0;\U-00DF;\U-00ED;\U-00E1;\U-00EA;\U-00E1;\U-00F2;">
|
||||
<!ENTITY TIP "\U-00D5;\U-00D0;\U-00CF;\U-00C4;\U-00C5;\U-00C9;\U-00CE;\U-00C7;">
|
||||
<!ENTITY Tip "\U-00D5;\U-00F0;\U-00FC;\U-00E4;\U-00E5;\U-00E9;\U-00EE;\U-00E7;">
|
||||
<!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 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;">
|
||||
444
docs/dsssl/docbook/common/dbl1en.dsl
Executable file
444
docs/dsssl/docbook/common/dbl1en.dsl
Executable file
@@ -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$
|
||||
;;
|
||||
;; 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>
|
||||
160
docs/dsssl/docbook/common/dbl1en.ent
Executable file
160
docs/dsssl/docbook/common/dbl1en.ent
Executable file
@@ -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 "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 Published "Published">
|
||||
<!ENTITY published "Published">
|
||||
<!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 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 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 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 Draft "Draft">
|
||||
<!ENTITY above "above">
|
||||
<!ENTITY below "below">
|
||||
<!ENTITY sectioncalled "the section called">
|
||||
<!ENTITY lowercase.alpha "abcdefghijklmnopqrstuvwxyz">
|
||||
<!ENTITY uppercase.alpha "ABCDEFGHIJKLMNOPQRSTUVWXYZ">
|
||||
434
docs/dsssl/docbook/common/dbl1es.dsl
Executable file
434
docs/dsssl/docbook/common/dbl1es.dsl
Executable file
@@ -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$
|
||||
;;
|
||||
;; 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>
|
||||
150
docs/dsssl/docbook/common/dbl1es.ent
Executable file
150
docs/dsssl/docbook/common/dbl1es.ent
Executable file
@@ -0,0 +1,150 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!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-00F3;n">
|
||||
<!ENTITY caution "Atenci\U-00F3;n">
|
||||
<!ENTITY CAUTION "ATENCI\U-00D3;N">
|
||||
<!ENTITY Chapter "Cap\U-00ED;tulo">
|
||||
<!ENTITY chapter "cap\U-00ED;tulo">
|
||||
<!ENTITY Colophon "Colophon">
|
||||
<!ENTITY colophon "Colophon">
|
||||
<!ENTITY Copyright "Copyright">
|
||||
<!ENTITY copyright "Copyright">
|
||||
<!ENTITY Dedication "Dedicado">
|
||||
<!ENTITY dedication "Dedicado">
|
||||
<!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-00CD;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 "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "Referencia">
|
||||
<!ENTITY reference "Referencia">
|
||||
<!ENTITY RefName "Nombre">
|
||||
<!ENTITY refname "Nombre">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "Synopsis">
|
||||
<!ENTITY refsynopsisdiv "Synopsis">
|
||||
<!ENTITY RevHistory "Historial de revisiones">
|
||||
<!ENTITY revhistory "Historial de revisiones">
|
||||
<!ENTITY revision "Revisi\U-00F3;n">
|
||||
<!ENTITY Revision "Revisi\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-00CD;ndice del conjunto">
|
||||
<!ENTITY sidebar "sidebar">
|
||||
<!ENTITY Sidebar "Sidebar">
|
||||
<!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 "Pags.">
|
||||
<!ENTITY pgs "Pags.">
|
||||
<!ENTITY Revisedby "Revisado por: ">
|
||||
<!ENTITY revisedby "Revisado por: ">
|
||||
<!ENTITY TableNotes "Notas">
|
||||
<!ENTITY tablenotes "Notas">
|
||||
<!ENTITY TableofContents "Tabla de contenidos">
|
||||
<!ENTITY tableofcontents "Tabla de contenidos">
|
||||
<!ENTITY unexpectedelementname "Nombre de elemento inesperado">
|
||||
<!ENTITY unsupported "no soportado">
|
||||
<!ENTITY xrefto "referido a">
|
||||
<!ENTITY listofequations "Tabla de ecuaciones">
|
||||
<!ENTITY ListofEquations "Tabla de ecuaciones">
|
||||
<!ENTITY ListofExamples "Tabla de ejemplos">
|
||||
<!ENTITY listofexamples "Tabla de ejemplos">
|
||||
<!ENTITY ListofFigures "Tabla de figuras">
|
||||
<!ENTITY listoffigures "Tabla de figuras">
|
||||
<!ENTITY listoftables "Lista de tablas">
|
||||
<!ENTITY ListofTables "Lista de tablas">
|
||||
<!ENTITY ListofUnknown "Lista de ???">
|
||||
<!ENTITY listofunknown "Lista de ???">
|
||||
<!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 sectioncalled "la secci\U-00F3;n llamada">
|
||||
444
docs/dsssl/docbook/common/dbl1et.dsl
Executable file
444
docs/dsssl/docbook/common/dbl1et.dsl
Executable file
@@ -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$
|
||||
;;
|
||||
;; 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>
|
||||
146
docs/dsssl/docbook/common/dbl1et.ent
Executable file
146
docs/dsssl/docbook/common/dbl1et.ent
Executable file
@@ -0,0 +1,146 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!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 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 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">
|
||||
444
docs/dsssl/docbook/common/dbl1eu.dsl
Executable file
444
docs/dsssl/docbook/common/dbl1eu.dsl
Executable file
@@ -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$
|
||||
;;
|
||||
;; 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>
|
||||
155
docs/dsssl/docbook/common/dbl1eu.ent
Executable file
155
docs/dsssl/docbook/common/dbl1eu.ent
Executable file
@@ -0,0 +1,155 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!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 "G:">
|
||||
<!ENTITY question "G:">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "Erreferentzia">
|
||||
<!ENTITY reference "Erreferentzia">
|
||||
<!ENTITY RefName "Izena">
|
||||
<!ENTITY refname "Izena">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!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 "">
|
||||
<!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 lowercase.alpha "abcdefghijklmnopqrstuvwxyz">
|
||||
<!ENTITY uppercase.alpha "ABCDEFGHIJKLMNOPQRSTUVWXYZ">
|
||||
444
docs/dsssl/docbook/common/dbl1fi.dsl
Executable file
444
docs/dsssl/docbook/common/dbl1fi.dsl
Executable file
@@ -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") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-fi$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (fi-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-fi-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-fi-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-fi-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-fi-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-fi-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-fi-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-fi-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-fi-page% "")
|
||||
|
||||
(define %gentext-fi-and% "∧")
|
||||
|
||||
(define %gentext-fi-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-fi-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-fi-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-fi-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-fi-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-fi-index-see% "&See;")
|
||||
|
||||
(define %gentext-fi-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-fi-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-fi-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-fi-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-fi-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-fi-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-fi-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
146
docs/dsssl/docbook/common/dbl1fi.ent
Executable file
146
docs/dsssl/docbook/common/dbl1fi.ent
Executable file
@@ -0,0 +1,146 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "Lyhennelm\U-00E4;">
|
||||
<!ENTITY abstract "Lyhennelm\U-00E4;">
|
||||
<!ENTITY Answer "A:">
|
||||
<!ENTITY answer "A:">
|
||||
<!ENTITY Appendix "Liite">
|
||||
<!ENTITY appendix "liite">
|
||||
<!ENTITY Article "Artikkeli">
|
||||
<!ENTITY article "Artikkeli">
|
||||
<!ENTITY Bibliography "L\U-00E4;hteet">
|
||||
<!ENTITY bibliography "L\U-00E4;hteet">
|
||||
<!ENTITY Book "Kirja">
|
||||
<!ENTITY book "Kirja">
|
||||
<!ENTITY Caution "Varo">
|
||||
<!ENTITY caution "Varo">
|
||||
<!ENTITY CAUTION "VARO">
|
||||
<!ENTITY Chapter "Luku">
|
||||
<!ENTITY chapter "luku">
|
||||
<!ENTITY Colophon "Colophon">
|
||||
<!ENTITY colophon "Colophon">
|
||||
<!ENTITY Copyright "Copyright">
|
||||
<!ENTITY copyright "Copyright">
|
||||
<!ENTITY Dedication "Omistus">
|
||||
<!ENTITY dedication "Omistus">
|
||||
<!ENTITY Edition "Edition">
|
||||
<!ENTITY edition "Edition">
|
||||
<!ENTITY Equation "Kaava">
|
||||
<!ENTITY equation "Kaava">
|
||||
<!ENTITY Example "Esimerkki">
|
||||
<!ENTITY example "Esimerkki">
|
||||
<!ENTITY Figure "Kuva">
|
||||
<!ENTITY figure "Kuva">
|
||||
<!ENTITY Glossary "Sanasto">
|
||||
<!ENTITY glossary "Sanasto">
|
||||
<!ENTITY GlossSee "Katso">
|
||||
<!ENTITY glosssee "Katso">
|
||||
<!ENTITY GlossSeeAlso "Katso my\U-00F6;s">
|
||||
<!ENTITY glossseealso "Katso my\U-00F6;s">
|
||||
<!ENTITY IMPORTANT "T\U-00C4;RKE\U-00C4;\U-00C4;">
|
||||
<!ENTITY Important "T\U-00E4;rke\U-00E4;\U-00E4;">
|
||||
<!ENTITY important "T\U-00E4;rke\U-00E4;\U-00E4;">
|
||||
<!ENTITY Index "Indeksi">
|
||||
<!ENTITY index "Indeksi">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY LegalNotice "">
|
||||
<!ENTITY legalnotice "">
|
||||
<!ENTITY MsgAud "Yleis\U-00F6;">
|
||||
<!ENTITY msgaud "Yleis\U-00F6;">
|
||||
<!ENTITY MsgLevel "Taso">
|
||||
<!ENTITY msglevel "Taso">
|
||||
<!ENTITY MsgOrig "Alkuper\U-00E4;">
|
||||
<!ENTITY msgorig "Alkuper\U-00E4;">
|
||||
<!ENTITY note "Huomaa">
|
||||
<!ENTITY NOTE "HUOMAA">
|
||||
<!ENTITY Note "Huomaa">
|
||||
<!ENTITY Part "Osa">
|
||||
<!ENTITY part "Osa">
|
||||
<!ENTITY Preface "Esipuhe">
|
||||
<!ENTITY preface "Esipuhe">
|
||||
<!ENTITY Procedure "Aliohjelma">
|
||||
<!ENTITY procedure "Aliohjelma">
|
||||
<!ENTITY Published "Julkaistu">
|
||||
<!ENTITY published "Julkaistu">
|
||||
<!ENTITY Question "Q:">
|
||||
<!ENTITY question "Q:">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "L\U-00E4;hdeluettelo">
|
||||
<!ENTITY reference "L\U-00E4;hdeluettelo">
|
||||
<!ENTITY RefName "Nimi">
|
||||
<!ENTITY refname "Nimi">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "Synopsis">
|
||||
<!ENTITY refsynopsisdiv "Synopsis">
|
||||
<!ENTITY RevHistory "Versiohistoria">
|
||||
<!ENTITY revhistory "Versiohistoria">
|
||||
<!ENTITY Revision "Versio">
|
||||
<!ENTITY revision "Versio">
|
||||
<!ENTITY Section "Kohta">
|
||||
<!ENTITY section "kohta">
|
||||
<!ENTITY see "Katso">
|
||||
<!ENTITY See "Katso">
|
||||
<!ENTITY Seealso "Katso my\U-00F6;s">
|
||||
<!ENTITY seealso "Katso my\U-00F6;s">
|
||||
<!ENTITY SeeAlso "Katso my\U-00F6;s">
|
||||
<!ENTITY set "Kokoelma">
|
||||
<!ENTITY Set "Kokoelma">
|
||||
<!ENTITY SetIndex "Kokoelman indeksi">
|
||||
<!ENTITY setindex "Kokoelman indeksi">
|
||||
<!ENTITY Sidebar "">
|
||||
<!ENTITY sidebar "sivupalkki">
|
||||
<!ENTITY step "step">
|
||||
<!ENTITY Step "Step">
|
||||
<!ENTITY table "Taulu">
|
||||
<!ENTITY Table "Taulu">
|
||||
<!ENTITY TIP "VIHJE">
|
||||
<!ENTITY Tip "Vihje">
|
||||
<!ENTITY tip "Vihje">
|
||||
<!ENTITY WARNING "VAROITUS">
|
||||
<!ENTITY Warning "Varoitus">
|
||||
<!ENTITY warning "Varoitus">
|
||||
<!ENTITY and "ja">
|
||||
<!ENTITY by "">
|
||||
<!ENTITY Edited "Toim.">
|
||||
<!ENTITY edited "Toim.">
|
||||
<!ENTITY Editedby "Toimittanut">
|
||||
<!ENTITY editedby "Toimittanut">
|
||||
<!ENTITY in "teoksessa">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "elementti\U-00E4; ei ole olemassa">
|
||||
<!ENTITY notes "">
|
||||
<!ENTITY Notes "">
|
||||
<!ENTITY Pgs "Sivut">
|
||||
<!ENTITY pgs "Sivut">
|
||||
<!ENTITY Revisedby "Revised by: ">
|
||||
<!ENTITY revisedby "Revised by: ">
|
||||
<!ENTITY TableNotes "">
|
||||
<!ENTITY tablenotes "">
|
||||
<!ENTITY TableofContents "Sis\U-00E4;llys">
|
||||
<!ENTITY tableofcontents "Sis\U-00E4;llys">
|
||||
<!ENTITY unexpectedelementname "Odottamaton elementin nimi">
|
||||
<!ENTITY unsupported "ei tueta">
|
||||
<!ENTITY xrefto "xref johonkin">
|
||||
<!ENTITY listofequations "Luettelo esimerkeist\U-00E4;">
|
||||
<!ENTITY ListofEquations "Luettelo esimerkeist\U-00E4;">
|
||||
<!ENTITY ListofExamples "Luettelo esimerkeist\U-00E4;">
|
||||
<!ENTITY listofexamples "Luettelo esimerkeist\U-00E4;">
|
||||
<!ENTITY ListofFigures "Luettelo kuvista">
|
||||
<!ENTITY listoffigures "Luettelo kuvista">
|
||||
<!ENTITY listoftables "Luettelo tauluista">
|
||||
<!ENTITY ListofTables "Luettelo tauluista">
|
||||
<!ENTITY ListofUnknown "Luettelo tuntemattomista">
|
||||
<!ENTITY listofunknown "Luettelo tuntemattomista">
|
||||
<!ENTITY nav-home "Alkuun">
|
||||
<!ENTITY nav-next "Seuraava">
|
||||
<!ENTITY nav-next-sibling "Nopeasti eteenp\U-00E4;in">
|
||||
<!ENTITY nav-prev "Edellinen">
|
||||
<!ENTITY nav-prev-sibling "Nopeasti taaksep\U-00E4;in">
|
||||
<!ENTITY nav-up "Yl\U-00F6;s">
|
||||
436
docs/dsssl/docbook/common/dbl1fr.dsl
Executable file
436
docs/dsssl/docbook/common/dbl1fr.dsl
Executable file
@@ -0,0 +1,436 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % fr.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//FR"
|
||||
"dbl1fr.ent">
|
||||
%fr.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-fr">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; 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.
|
||||
;;
|
||||
;; Contributors:
|
||||
;; Rainer Feuerstein, fire@informatik.uni-wuerzburg.de
|
||||
;; Christian Leutloff, leutloff@sundancer.oche.de
|
||||
;; Eric Bischoff, e.bischoff@noos.fr
|
||||
;; Frederik Fouvry, fouvry@CoLi.Uni-SB.DE
|
||||
|
||||
(define (fr-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 (fr-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"l'annexe intitulée %t"))
|
||||
(list (normalize "article") (string-append %gentext-fr-start-quote%
|
||||
"%t"
|
||||
%gentext-fr-end-quote%))
|
||||
(list (normalize "bibliography") "%t")
|
||||
(list (normalize "book") "%t")
|
||||
(list (normalize "chapter") (if %chapter-autolabel%
|
||||
"&Chapter; %n"
|
||||
"le chapitre intitulé %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 section intitulée %t"))
|
||||
(list (normalize "sect1") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"la section intitulée %t"))
|
||||
(list (normalize "sect2") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"la section intitulée %t"))
|
||||
(list (normalize "sect3") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"la section intitulée %t"))
|
||||
(list (normalize "sect4") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"la section intitulée %t"))
|
||||
(list (normalize "sect5") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"la section intitulée %t"))
|
||||
(list (normalize "simplesect") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"la section intitulée %t"))
|
||||
(list (normalize "sidebar") "&sidebar; %t")
|
||||
(list (normalize "step") "&step; %n")
|
||||
(list (normalize "table") "&Table; %n")))
|
||||
|
||||
(define (gentext-fr-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (fr-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 (fr-auto-xref-indirect-connector before)
|
||||
(literal " ∈ "))
|
||||
|
||||
;; Should the TOC come first or last?
|
||||
;;
|
||||
(define %generate-fr-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (fr-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-fr-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (fr-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-fr-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-fr-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-fr-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (fr-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-fr-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-fr-intra-label-sep)))
|
||||
(sep (assoc name (fr-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-fr-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (fr-label-title-sep)
|
||||
(list
|
||||
(list (normalize "abstract") "\U-00A0;: ")
|
||||
(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") "\U-00A0;: ")
|
||||
(list (normalize "glossseealso") "\U-00A0;: ")
|
||||
(list (normalize "important") "\U-00A0;: ")
|
||||
(list (normalize "note") "\U-00A0;: ")
|
||||
(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") "\U-00A0;: ")
|
||||
(list (normalize "warning") "")
|
||||
))
|
||||
|
||||
(define (gentext-fr-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-fr-label-title-sep)))
|
||||
(sep (assoc name (fr-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (fr-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 (fr-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (fr-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (fr-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-fr$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (fr-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;\U-00A0;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
; nbsp;
|
||||
(define %gentext-fr-start-quote% (string-append (dingbat "laquo") "\U-00A0;"))
|
||||
|
||||
(define %gentext-fr-end-quote% (string-append "\U-00A0;" (dingbat "raquo")))
|
||||
|
||||
(define %gentext-fr-start-nested-quote% (string-append (dingbat "lsaquo") "\U-00A0;"))
|
||||
|
||||
(define %gentext-fr-end-nested-quote% (string-append (dingbat "rsaquo") "\U-00A0;"))
|
||||
|
||||
(define %gentext-fr-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-fr-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-fr-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-fr-page% "")
|
||||
|
||||
(define %gentext-fr-and% "∧")
|
||||
|
||||
(define %gentext-fr-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-fr-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-fr-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-fr-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-fr-table-endnotes% "&TableNotes;\U-00A0;:")
|
||||
|
||||
(define %gentext-fr-index-see% "&See;")
|
||||
|
||||
(define %gentext-fr-index-seealso% "&SeeAlso;")
|
||||
|
||||
(define (gentext-fr-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-fr-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-fr-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-fr-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-fr-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-fr-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
155
docs/dsssl/docbook/common/dbl1fr.ent
Executable file
155
docs/dsssl/docbook/common/dbl1fr.ent
Executable file
@@ -0,0 +1,155 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "R\U-00E9;sum\U-00E9;">
|
||||
<!ENTITY abstract "R\U-00E9;sum\U-00E9;">
|
||||
<!ENTITY Answer "R\U-00A0;:">
|
||||
<!ENTITY answer "R\U-00A0;:">
|
||||
<!ENTITY Appendix "Annexe">
|
||||
<!ENTITY appendix "annexe">
|
||||
<!ENTITY Article "Article">
|
||||
<!ENTITY article "Article">
|
||||
<!ENTITY Bibliography "Bibliographie">
|
||||
<!ENTITY bibliography "Bibliographie">
|
||||
<!ENTITY Book "Livre">
|
||||
<!ENTITY book "Livre">
|
||||
<!ENTITY Caution "Attention">
|
||||
<!ENTITY caution "Attention">
|
||||
<!ENTITY CAUTION "ATTENTION">
|
||||
<!ENTITY Chapter "Chapitre">
|
||||
<!ENTITY chapter "chapitre">
|
||||
<!ENTITY Colophon "Colophon">
|
||||
<!ENTITY colophon "Colophon">
|
||||
<!ENTITY Copyright "Copyright">
|
||||
<!ENTITY copyright "Copyright">
|
||||
<!ENTITY Dedication "D\U-00E9;dicace">
|
||||
<!ENTITY dedication "D\U-00E9;dicace">
|
||||
<!ENTITY Edition "\U-00C9;dition">
|
||||
<!ENTITY edition "\U-00C9;dition">
|
||||
<!ENTITY Equation "\U-00C9;quation">
|
||||
<!ENTITY equation "\U-00C9;quation">
|
||||
<!ENTITY Example "Exemple">
|
||||
<!ENTITY example "Exemple">
|
||||
<!ENTITY Figure "Figure">
|
||||
<!ENTITY figure "Figure">
|
||||
<!ENTITY Glossary "Glossaire">
|
||||
<!ENTITY glossary "Glossaire">
|
||||
<!ENTITY GlossSee "Voir">
|
||||
<!ENTITY glosssee "Voir">
|
||||
<!ENTITY GlossSeeAlso "Voir aussi">
|
||||
<!ENTITY glossseealso "Voir aussi">
|
||||
<!ENTITY IMPORTANT "IMPORTANT">
|
||||
<!ENTITY Important "Important">
|
||||
<!ENTITY important "Important">
|
||||
<!ENTITY Index "Index">
|
||||
<!ENTITY index "Index">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY LegalNotice "Note l\U-00E9;gale">
|
||||
<!ENTITY legalnotice "Note l\U-00E9;gale">
|
||||
<!ENTITY MsgAud "Public vis\U-00E9;">
|
||||
<!ENTITY msgaud "Public vis\U-00E9;">
|
||||
<!ENTITY MsgLevel "Niveau">
|
||||
<!ENTITY msglevel "Niveau">
|
||||
<!ENTITY MsgOrig "Origine">
|
||||
<!ENTITY msgorig "Origine">
|
||||
<!ENTITY Note "Note">
|
||||
<!ENTITY NOTE "NOTE">
|
||||
<!ENTITY note "NOTE">
|
||||
<!ENTITY Part "Partie">
|
||||
<!ENTITY part "Partie">
|
||||
<!ENTITY Preface "Pr\U-00E9;face">
|
||||
<!ENTITY preface "Pr\U-00E9;face">
|
||||
<!ENTITY Procedure "Proc\U-00E9;dure">
|
||||
<!ENTITY procedure "Proc\U-00E9;dure">
|
||||
<!ENTITY ProductionSet "Production">
|
||||
<!ENTITY Published "Publi\U-00E9;">
|
||||
<!ENTITY published "Publi\U-00E9;">
|
||||
<!ENTITY Question "Q\U-00A0;:">
|
||||
<!ENTITY question "Q\U-00A0;:">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "R\U-00E9;f\U-00E9;rence">
|
||||
<!ENTITY reference "R\U-00E9;f\U-00E9;rence">
|
||||
<!ENTITY RefName "Nom">
|
||||
<!ENTITY refname "Nom">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "Synopsis">
|
||||
<!ENTITY refsynopsisdiv "Synopsis">
|
||||
<!ENTITY RevHistory "Historique des versions">
|
||||
<!ENTITY revhistory "Historique des versions">
|
||||
<!ENTITY Revision "Version">
|
||||
<!ENTITY revision "Version">
|
||||
<!ENTITY sect1 "Section">
|
||||
<!ENTITY sect2 "Section">
|
||||
<!ENTITY sect3 "Section">
|
||||
<!ENTITY sect4 "Section">
|
||||
<!ENTITY sect5 "Section">
|
||||
<!ENTITY Section "Section">
|
||||
<!ENTITY section "section">
|
||||
<!ENTITY see "Voir">
|
||||
<!ENTITY See "Voir">
|
||||
<!ENTITY seealso "Voir Aussi">
|
||||
<!ENTITY SeeAlso "Voir Aussi">
|
||||
<!ENTITY Seealso "Voir aussi">
|
||||
<!ENTITY Set "Ensemble">
|
||||
<!ENTITY set "Ensemble">
|
||||
<!ENTITY setindex "Index">
|
||||
<!ENTITY SetIndex "Index">
|
||||
<!ENTITY sidebar "">
|
||||
<!ENTITY Sidebar "">
|
||||
<!ENTITY Step "\U-00C9;tape">
|
||||
<!ENTITY step "\U-00E9;tape">
|
||||
<!ENTITY table "Tableau">
|
||||
<!ENTITY Table "Tableau">
|
||||
<!ENTITY tip "TUYAU">
|
||||
<!ENTITY TIP "TUYAU">
|
||||
<!ENTITY Tip "Tuyau">
|
||||
<!ENTITY Warning "Avertissement">
|
||||
<!ENTITY WARNING "AVERTISSEMENT">
|
||||
<!ENTITY warning "AVERTISSEMENT">
|
||||
<!ENTITY and "et">
|
||||
<!ENTITY by "par">
|
||||
<!ENTITY Edited "Publi\U-00E9;">
|
||||
<!ENTITY edited "Publi\U-00E9;">
|
||||
<!ENTITY Editedby "Publi\U-00E9; par">
|
||||
<!ENTITY editedby "Publi\U-00E9; par">
|
||||
<!ENTITY in "dans">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "Cet \U-00E9;l\U-00E9;ment n'existe pas">
|
||||
<!ENTITY notes "Notes">
|
||||
<!ENTITY Notes "Notes">
|
||||
<!ENTITY Pgs "Pages">
|
||||
<!ENTITY pgs "Pages">
|
||||
<!ENTITY Revisedby "Revu par\U-00A0;: ">
|
||||
<!ENTITY revisedby "Revu par\U-00A0;: ">
|
||||
<!ENTITY TableNotes "Remarques">
|
||||
<!ENTITY tablenotes "Remarques">
|
||||
<!ENTITY TableofContents "Table des mati\U-00E8;res">
|
||||
<!ENTITY tableofcontents "Table des mati\U-00E8;res">
|
||||
<!ENTITY unexpectedelementname "Nom d'\U-00E9;l\U-00E9;ment non attendu">
|
||||
<!ENTITY unsupported "Non reconnu par le syst\U-00E8;me">
|
||||
<!ENTITY xrefto "R\U-00E9;f\U-00E9;rence vers">
|
||||
<!ENTITY listofequations "Liste des \U-00E9;quations">
|
||||
<!ENTITY ListofEquations "Liste des \U-00E9;quations">
|
||||
<!ENTITY ListofExamples "Liste des exemples">
|
||||
<!ENTITY listofexamples "Liste des exemples">
|
||||
<!ENTITY ListofFigures "Liste des illustrations">
|
||||
<!ENTITY listoffigures "Liste des illustrations">
|
||||
<!ENTITY listoftables "Liste des tableaux">
|
||||
<!ENTITY ListofTables "Liste des tableaux">
|
||||
<!ENTITY ListofUnknown "Liste des inconnues">
|
||||
<!ENTITY listofunknown "Liste des inconnues">
|
||||
<!ENTITY nav-home "Sommaire">
|
||||
<!ENTITY nav-next "Suivant">
|
||||
<!ENTITY nav-next-sibling "Avance rapide">
|
||||
<!ENTITY nav-prev "Pr\U-00E9;c\U-00E9;dent">
|
||||
<!ENTITY nav-prev-sibling "Arri\U-00E8;re rapide">
|
||||
<!ENTITY nav-up "Niveau sup\U-00E9;rieur">
|
||||
<!ENTITY sectioncalled "la section intitul\U-00E9;e">
|
||||
<!ENTITY lowercase.alpha "abcdefghijklmnopqrstuvwxyz">
|
||||
<!ENTITY uppercase.alpha "ABCDEFGHIJKLMNOPQRSTUVWXYZ">
|
||||
157
docs/dsssl/docbook/common/dbl1he.ent
Executable file
157
docs/dsssl/docbook/common/dbl1he.ent
Executable file
@@ -0,0 +1,157 @@
|
||||
<?xml version="1.0" encoding="WINDOWS-1255"?>
|
||||
<!-- This file is hack for using ascii hebrew on docbook -->
|
||||
<!-- by moshe doron<momo@php.net> -->
|
||||
|
||||
<!ENTITY Abstract "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY abstract "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY Answer "<22><><EFBFBD><EFBFBD><EFBFBD>:">
|
||||
<!ENTITY answer "<22><><EFBFBD><EFBFBD><EFBFBD>:">
|
||||
<!ENTITY Appendix "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY appendix "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY Article "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY article "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY Bibliography "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY bibliography "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY Book "<22><><EFBFBD>">
|
||||
<!ENTITY book "<22><><EFBFBD>">
|
||||
<!ENTITY CAUTION "<22><><EFBFBD><EFBFBD><EFBFBD>!">
|
||||
<!ENTITY Caution "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY caution "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY Chapter "<22><><EFBFBD>">
|
||||
<!ENTITY chapter "<22><><EFBFBD>">
|
||||
<!ENTITY Colophon "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY colophon "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY Copyright "Copyright">
|
||||
<!ENTITY copyright "Copyright">
|
||||
<!ENTITY Dedication "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY dedication "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY Edition "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY edition "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY Equation "Equation">
|
||||
<!ENTITY equation "Equation">
|
||||
<!ENTITY Example "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY example "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY Figure "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY figure "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY Glossary "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY glossary "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY GlossSee "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY glosssee "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY GlossSeeAlso "<22><><EFBFBD><EFBFBD> <20><><EFBFBD>">
|
||||
<!ENTITY glossseealso "<22><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>">
|
||||
<!ENTITY IMPORTANT "<22><><EFBFBD><EFBFBD>!">
|
||||
<!ENTITY important "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY Important "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY Index "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY index "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY LegalNotice "Legal Notice">
|
||||
<!ENTITY legalnotice "Legal Notice">
|
||||
<!ENTITY MsgAud "<22><><EFBFBD>">
|
||||
<!ENTITY msgaud "<22><><EFBFBD>">
|
||||
<!ENTITY MsgLevel "<22><><EFBFBD>">
|
||||
<!ENTITY msglevel "<22><><EFBFBD>">
|
||||
<!ENTITY MsgOrig "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY msgorig "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY NOTE "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY Note "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY note "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY Part "<22><><EFBFBD>">
|
||||
<!ENTITY part "<22><><EFBFBD>">
|
||||
<!ENTITY Preface "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY preface "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY Procedure "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY procedure "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY ProductionSet "Production">
|
||||
<!ENTITY Published "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY published "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY Question "<22><><EFBFBD><EFBFBD>:">
|
||||
<!ENTITY question "<22><><EFBFBD><EFBFBD>:">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "<22><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY reference "<22><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY RefName "<22><>">
|
||||
<!ENTITY refname "<22><>">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY refsynopsisdiv "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY RevHistory "Revision History">
|
||||
<!ENTITY revhistory "Revision History">
|
||||
<!ENTITY revision "Revision">
|
||||
<!ENTITY Revision "Revision">
|
||||
<!ENTITY sect1 "<22><><EFBFBD>">
|
||||
<!ENTITY sect2 "<22><><EFBFBD>">
|
||||
<!ENTITY sect3 "<22><><EFBFBD>">
|
||||
<!ENTITY sect4 "<22><><EFBFBD>">
|
||||
<!ENTITY sect5 "<22><><EFBFBD>">
|
||||
<!ENTITY section "<22><><EFBFBD>">
|
||||
<!ENTITY Section "<22><><EFBFBD>">
|
||||
<!ENTITY See "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY see "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY SeeAlso "<22><><EFBFBD><EFBFBD> <20><>">
|
||||
<!ENTITY seealso "<22><><EFBFBD><EFBFBD> <20><>">
|
||||
<!ENTITY Seealso "<22><><EFBFBD><EFBFBD> <20><>">
|
||||
<!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 "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY table "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY tip "<22><><EFBFBD>">
|
||||
<!ENTITY TIP "<22><><EFBFBD>">
|
||||
<!ENTITY Tip "<22><><EFBFBD>">
|
||||
<!ENTITY Warning "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY warning "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY WARNING "<22><><EFBFBD><EFBFBD><EFBFBD>!">
|
||||
<!ENTITY and "<22><><EFBFBD>">
|
||||
<!ENTITY by "<22><> <20><>">
|
||||
<!ENTITY Edited "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY edited "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY Editedby "<22><><EFBFBD><EFBFBD> <20>''<27>">
|
||||
<!ENTITY editedby "<22><><EFBFBD><EFBFBD> <20>''<27>">
|
||||
<!ENTITY in "in">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "<22><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY notes "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY Notes "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY Pgs "Pgs.">
|
||||
<!ENTITY pgs "Pgs.">
|
||||
<!ENTITY Revisedby "<22><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD>:">
|
||||
<!ENTITY revisedby "<22><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD>:">
|
||||
<!ENTITY TableNotes "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY tablenotes "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY TableofContents "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY tableofcontents "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY unexpectedelementname "Unexpected element name">
|
||||
<!ENTITY unsupported "<22><> <20><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY xrefto "xref to">
|
||||
<!ENTITY listofequations "List of Equations">
|
||||
<!ENTITY ListofEquations "List of Equations">
|
||||
<!ENTITY ListofExamples "<22><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY listofexamples "<22><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY ListofFigures "<22><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY listoffigures "<22><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY listoftables "List of Tables">
|
||||
<!ENTITY ListofTables "List of Tables">
|
||||
<!ENTITY ListofUnknown "List of Unknown">
|
||||
<!ENTITY listofunknown "List of Unknown">
|
||||
<!ENTITY nav-home "<22><><EFBFBD> <20><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY nav-next "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY nav-next-sibling "<22><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY nav-prev "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY nav-prev-sibling "<22><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY nav-up "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY Draft "<22><><EFBFBD><EFBFBD><EFBFBD>">
|
||||
<!ENTITY above "<22><>''<27>">
|
||||
<!ENTITY below "<22><><EFBFBD><EFBFBD>">
|
||||
<!ENTITY sectioncalled "the section called">
|
||||
<!ENTITY lowercase.alpha "abcdefghijklmnopqrstuvwxyz">
|
||||
<!ENTITY uppercase.alpha "ABCDEFGHIJKLMNOPQRSTUVWXYZ">
|
||||
447
docs/dsssl/docbook/common/dbl1hu.dsl
Executable file
447
docs/dsssl/docbook/common/dbl1hu.dsl
Executable file
@@ -0,0 +1,447 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % hu.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//HU"
|
||||
"dbl1hu.ent">
|
||||
%hu.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-hu">
|
||||
<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.
|
||||
;;
|
||||
;; Contributors:
|
||||
;; Hojtsy Gabor, hgoba@freemail.c3.hu
|
||||
;;
|
||||
|
||||
(define (hu-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 (hu-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"%n &Appendix;"
|
||||
"%t"))
|
||||
(list (normalize "article") (string-append %gentext-hu-start-quote%
|
||||
"%t"
|
||||
%gentext-hu-end-quote%))
|
||||
(list (normalize "bibliography") "%t")
|
||||
(list (normalize "book") "%t")
|
||||
(list (normalize "chapter") (if %chapter-autolabel%
|
||||
"%n &chapter;"
|
||||
"%t"))
|
||||
(list (normalize "equation") "%n &Equation;")
|
||||
(list (normalize "example") "%n &Example;")
|
||||
(list (normalize "figure") "%n &Figure;")
|
||||
(list (normalize "glossary") "%t")
|
||||
(list (normalize "index") "%t")
|
||||
(list (normalize "listitem") "%n")
|
||||
(list (normalize "part") "%n &Part;")
|
||||
(list (normalize "preface") "%t")
|
||||
(list (normalize "procedure") "%n, %t &Procedure; ")
|
||||
(list (normalize "reference") "%n, %t &Reference; ")
|
||||
(list (normalize "section") (if %section-autolabel%
|
||||
"%n &Section;"
|
||||
"%t"))
|
||||
(list (normalize "sect1") (if %section-autolabel%
|
||||
"%n &Section;"
|
||||
"%t"))
|
||||
(list (normalize "sect2") (if %section-autolabel%
|
||||
"%n &Section;"
|
||||
"%t"))
|
||||
(list (normalize "sect3") (if %section-autolabel%
|
||||
"%n &Section;"
|
||||
"%t"))
|
||||
(list (normalize "sect4") (if %section-autolabel%
|
||||
"%n &Section;"
|
||||
"%t"))
|
||||
(list (normalize "sect5") (if %section-autolabel%
|
||||
"%n &Section;"
|
||||
"%t"))
|
||||
(list (normalize "simplesect") (if %section-autolabel%
|
||||
"%n &Section;"
|
||||
"%t"))
|
||||
(list (normalize "sidebar") "%t")
|
||||
(list (normalize "step") "%n &step;")
|
||||
(list (normalize "table") "%n &Table;")))
|
||||
|
||||
(define (gentext-hu-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (hu-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 (hu-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-hu-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (hu-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-hu-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (hu-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-hu-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-hu-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-hu-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (hu-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-hu-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-hu-intra-label-sep)))
|
||||
(sep (assoc name (hu-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-hu-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (hu-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-hu-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-hu-label-title-sep)))
|
||||
(sep (assoc name (hu-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (hu-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 (hu-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (hu-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (hu-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-hu$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (hu-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-hu-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-hu-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-hu-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-hu-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-hu-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-hu-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-hu-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-hu-page% "")
|
||||
|
||||
(define %gentext-hu-and% "∧")
|
||||
|
||||
(define %gentext-hu-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-hu-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-hu-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-hu-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-hu-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-hu-index-see% "&See;")
|
||||
|
||||
(define %gentext-hu-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-hu-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-hu-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-hu-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-hu-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-hu-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-hu-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
146
docs/dsssl/docbook/common/dbl1hu.ent
Executable file
146
docs/dsssl/docbook/common/dbl1hu.ent
Executable file
@@ -0,0 +1,146 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "Kivonat">
|
||||
<!ENTITY abstract "kivonat">
|
||||
<!ENTITY Answer "V\U-00E1;lasz">
|
||||
<!ENTITY answer "v\U-00E1;lasz">
|
||||
<!ENTITY Appendix "F\U-00FC;ggel\U-00E9;k">
|
||||
<!ENTITY appendix "f\U-00FC;ggel\U-00E9;k">
|
||||
<!ENTITY Article "Cikk">
|
||||
<!ENTITY article "cikk">
|
||||
<!ENTITY Bibliography "Irodalomjegyz\U-00E9;k">
|
||||
<!ENTITY bibliography "irodalomjegyz\U-00E9;k">
|
||||
<!ENTITY Book "K\U-00F6;nyv">
|
||||
<!ENTITY book "k\U-00F6;nyv">
|
||||
<!ENTITY Caution "Figyelem">
|
||||
<!ENTITY caution "figyelem">
|
||||
<!ENTITY CAUTION "FIGYELEM">
|
||||
<!ENTITY Chapter "Fejezet">
|
||||
<!ENTITY chapter "fejezet">
|
||||
<!ENTITY Colophon "V\U-00E9;gsz\U-00F3;">
|
||||
<!ENTITY colophon "v\U-00E9;gsz\U-00F3;">
|
||||
<!ENTITY Copyright "Copyright">
|
||||
<!ENTITY copyright "copyright">
|
||||
<!ENTITY Dedication "Aj\U-00E1;nl\U-00E1;s">
|
||||
<!ENTITY dedication "aj\U-00E1;nl\U-00E1;s">
|
||||
<!ENTITY Edition "Kiad\U-00E1;s">
|
||||
<!ENTITY edition "kiad\U-00E1;s">
|
||||
<!ENTITY Equation "Egyenlet">
|
||||
<!ENTITY equation "egyenlet">
|
||||
<!ENTITY Example "P\U-00E9;lda">
|
||||
<!ENTITY example "p\U-00E9;lda">
|
||||
<!ENTITY Figure "\U-00C1;bra">
|
||||
<!ENTITY figure "\U-00E1;bra">
|
||||
<!ENTITY Glossary "Sz\U-00F3;jegyz\U-00E9;k">
|
||||
<!ENTITY glossary "sz\U-00F3;jegyz\U-00E9;k">
|
||||
<!ENTITY GlossSee "L\U-00E1;sd">
|
||||
<!ENTITY glosssee "l\U-00E1;sd">
|
||||
<!ENTITY GlossSeeAlso "L\U-00E1;sd m\U-00E9;g">
|
||||
<!ENTITY glossseealso "l\U-00E1;sd m\U-00E9;g">
|
||||
<!ENTITY IMPORTANT "FONTOS">
|
||||
<!ENTITY Important "Fontos">
|
||||
<!ENTITY important "fontos">
|
||||
<!ENTITY Index "T\U-00E1;rgymutat\U-00F3;">
|
||||
<!ENTITY index "t\U-00E1;rgymutat\U-00F3;">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "isbn">
|
||||
<!ENTITY LegalNotice "Jogi k\U-00F6;zlem\U-00E9;ny">
|
||||
<!ENTITY legalnotice "jogi k\U-00F6;zlem\U-00E9;ny">
|
||||
<!ENTITY MsgAud "C\U-00E9;lk\U-00F6;z\U-00F6;ns\U-00E9;g">
|
||||
<!ENTITY msgaud "c\U-00E9;lk\U-00F6;z\U-00F6;ns\U-00E9;g">
|
||||
<!ENTITY MsgLevel "Szint">
|
||||
<!ENTITY msglevel "szint">
|
||||
<!ENTITY MsgOrig "Eredet">
|
||||
<!ENTITY msgorig "eredet">
|
||||
<!ENTITY NOTE "MEGJEGYZ\U-00C9;S">
|
||||
<!ENTITY Note "Megjegyz\U-00E9;s">
|
||||
<!ENTITY note "megjegyz\U-00E9;s">
|
||||
<!ENTITY Part "R\U-00E9;sz">
|
||||
<!ENTITY part "r\U-00E9;sz">
|
||||
<!ENTITY Preface "El\U-0151;sz\U-00F3;">
|
||||
<!ENTITY preface "el\U-0151;sz\U-00F3;">
|
||||
<!ENTITY Procedure "Elj\U-00E1;r\U-00E1;s">
|
||||
<!ENTITY procedure "elj\U-00E1;r\U-00E1;s">
|
||||
<!ENTITY Published "Megjelent">
|
||||
<!ENTITY published "megjelent">
|
||||
<!ENTITY Question "K\U-00E9;rd\U-00E9;s">
|
||||
<!ENTITY question "k\U-00E9;rd\U-00E9;s">
|
||||
<!ENTITY RefEntry "Bejegyz\U-00E9;s">
|
||||
<!ENTITY refentry "bejegyz\U-00E9;s">
|
||||
<!ENTITY Reference "Referencia">
|
||||
<!ENTITY reference "referencia">
|
||||
<!ENTITY RefName "N\U-00E9;v">
|
||||
<!ENTITY refname "n\U-00E9;v">
|
||||
<!ENTITY RefSection "Szakasz">
|
||||
<!ENTITY refsection "szakasz">
|
||||
<!ENTITY RefSynopsisDiv "\U-00C1;ttekint\U-00E9;s">
|
||||
<!ENTITY refsynopsisdiv "\U-00E1;ttekint\U-00E9;s">
|
||||
<!ENTITY RevHistory "Verzi\U-00F3;t\U-00F6;rt\U-00E9;net">
|
||||
<!ENTITY revhistory "verzi\U-00F3;t\U-00F6;rt\U-00E9;net">
|
||||
<!ENTITY Revision "Verzi\U-00F3;">
|
||||
<!ENTITY revision "verzi\U-00F3;">
|
||||
<!ENTITY Section "Szakasz">
|
||||
<!ENTITY section "szakasz">
|
||||
<!ENTITY See "L\U-00E1;sd">
|
||||
<!ENTITY see "l\U-00E1;sd">
|
||||
<!ENTITY seealso "l\U-00E1;sd m\U-00E9;g">
|
||||
<!ENTITY SeeAlso "L\U-00E1;sd m\U-00E9;g">
|
||||
<!ENTITY Seealso "L\U-00E1;sd m\U-00E9;g">
|
||||
<!ENTITY Set "Set">
|
||||
<!ENTITY set "Set">
|
||||
<!ENTITY SetIndex "Set Index">
|
||||
<!ENTITY setindex "Set Index">
|
||||
<!ENTITY sidebar "sz\U-00E9;ljegyzet">
|
||||
<!ENTITY Sidebar "Sz\U-00E9;ljegyzet">
|
||||
<!ENTITY step "l\U-00E9;p\U-00E9;s">
|
||||
<!ENTITY Step "L\U-00E9;p\U-00E9;s">
|
||||
<!ENTITY Table "T\U-00E1;bl\U-00E1;zat">
|
||||
<!ENTITY table "t\U-00E1;bl\U-00E1;zat">
|
||||
<!ENTITY tip "tipp">
|
||||
<!ENTITY TIP "TIPP">
|
||||
<!ENTITY Tip "Tipp">
|
||||
<!ENTITY WARNING "FIGYELEM">
|
||||
<!ENTITY Warning "Figyelem">
|
||||
<!ENTITY warning "figyelem">
|
||||
<!ENTITY and "\U-00E9;s">
|
||||
<!ENTITY by "">
|
||||
<!ENTITY Edited "Szerk.">
|
||||
<!ENTITY edited "szerk.">
|
||||
<!ENTITY Editedby "Szerkesztette">
|
||||
<!ENTITY editedby "szerkesztette">
|
||||
<!ENTITY in "">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "nem l\U-00E9;tez\U-0151; elem">
|
||||
<!ENTITY notes "megjegyz\U-00E9;sek">
|
||||
<!ENTITY Notes "Megjegyz\U-00E9;sek">
|
||||
<!ENTITY Pgs "Lsz.">
|
||||
<!ENTITY pgs "lsz.">
|
||||
<!ENTITY Revisedby "Megvizsg\U-00E1;lva">
|
||||
<!ENTITY revisedby "megvizsg\U-00E1;lva">
|
||||
<!ENTITY TableNotes "Megjegyz\U-00E9;sek">
|
||||
<!ENTITY tablenotes "megjegyz\U-00E9;sek">
|
||||
<!ENTITY TableofContents "Tartalom">
|
||||
<!ENTITY tableofcontents "tartalom">
|
||||
<!ENTITY unexpectedelementname "nem v\U-00E1;rt elemn\U-00E9;v">
|
||||
<!ENTITY unsupported "nem t\U-00E1;mogatott">
|
||||
<!ENTITY xrefto "keresztref">
|
||||
<!ENTITY listofequations "az egyenletek list\U-00E1;ja">
|
||||
<!ENTITY ListofEquations "Az egyenletek list\U-00E1;ja">
|
||||
<!ENTITY ListofExamples "A p\U-00E9;ld\U-00E1;k list\U-00E1;ja">
|
||||
<!ENTITY listofexamples "a p\U-00E9;ld\U-00E1;k list\U-00E1;ja">
|
||||
<!ENTITY ListofFigures "Az \U-00E1;br\U-00E1;k list\U-00E1;ja">
|
||||
<!ENTITY listoffigures "az \U-00E1;br\U-00E1;k list\U-00E1;ja">
|
||||
<!ENTITY listoftables "a t\U-00E1;bl\U-00E1;zatok list\U-00E1;ja">
|
||||
<!ENTITY ListofTables "A t\U-00E1;bl\U-00E1;zatok list\U-00E1;ja">
|
||||
<!ENTITY ListofUnknown "Az egy\U-00E9;b elemek list\U-00E1;ja">
|
||||
<!ENTITY listofunknown "az egy\U-00E9;b elemek list\U-00E1;ja">
|
||||
<!ENTITY nav-home "Tartalom">
|
||||
<!ENTITY nav-next "K\U-00F6;vetkez\U-0151;">
|
||||
<!ENTITY nav-next-sibling "Gyors el\U-0151;re">
|
||||
<!ENTITY nav-prev "El\U-0151;z\U-0151;">
|
||||
<!ENTITY nav-prev-sibling "Gyors vissza">
|
||||
<!ENTITY nav-up "Fel">
|
||||
608
docs/dsssl/docbook/common/dbl1id.dsl
Executable file
608
docs/dsssl/docbook/common/dbl1id.dsl
Executable file
@@ -0,0 +1,608 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % id.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//IN"
|
||||
"dbl1id.ent">
|
||||
%id.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-id">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; 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.
|
||||
;;
|
||||
;; Contributors:
|
||||
;; Mohammad DAMT, mdamt@cdl2000.com
|
||||
;;
|
||||
|
||||
(define (id-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 (id-appendix-xref-string gi-or-name)
|
||||
(if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"&appendix; berjudul %t"))
|
||||
|
||||
(define (id-article-xref-string gi-or-name)
|
||||
(string-append %gentext-id-start-quote%
|
||||
"%t"
|
||||
%gentext-id-end-quote%))
|
||||
|
||||
(define (id-bibliography-xref-string gi-or-name)
|
||||
"%t")
|
||||
|
||||
(define (id-book-xref-string gi-or-name)
|
||||
"%t")
|
||||
|
||||
(define (id-chapter-xref-string gi-or-name)
|
||||
(if %chapter-autolabel%
|
||||
"&Chapter; %n"
|
||||
"&chapter; berjudul %t"))
|
||||
|
||||
(define (id-equation-xref-string gi-or-name)
|
||||
"&Equation; %n")
|
||||
|
||||
(define (id-example-xref-string gi-or-name)
|
||||
"&Example; %n")
|
||||
|
||||
(define (id-figure-xref-string gi-or-name)
|
||||
"&Figure; %n")
|
||||
|
||||
(define (id-glossary-xref-string gi-or-name)
|
||||
"%t")
|
||||
|
||||
(define (id-index-xref-string gi-or-name)
|
||||
"%t")
|
||||
|
||||
(define (id-listitem-xref-string gi-or-name)
|
||||
"%n")
|
||||
|
||||
(define (id-part-xref-string gi-or-name)
|
||||
"&Part; %n")
|
||||
|
||||
(define (id-preface-xref-string gi-or-name)
|
||||
"%t")
|
||||
|
||||
(define (id-procedure-xref-string gi-or-name)
|
||||
"&Procedure; %n, %t")
|
||||
|
||||
(define (id-reference-xref-string gi-or-name)
|
||||
"&Reference; %n, %t")
|
||||
|
||||
(define (id-sectioning-xref-string gi-or-name)
|
||||
(if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"§ion; berjudul %t"))
|
||||
|
||||
(define (id-sect1-xref-string gi-or-name)
|
||||
(id-sectioning-xref-string gi-or-name))
|
||||
|
||||
(define (id-sect2-xref-string gi-or-name)
|
||||
(id-sectioning-xref-string gi-or-name))
|
||||
|
||||
(define (id-sect3-xref-string gi-or-name)
|
||||
(id-sectioning-xref-string gi-or-name))
|
||||
|
||||
(define (id-sect4-xref-string gi-or-name)
|
||||
(id-sectioning-xref-string gi-or-name))
|
||||
|
||||
(define (id-sect5-xref-string gi-or-name)
|
||||
(id-sectioning-xref-string gi-or-name))
|
||||
|
||||
(define (id-section-xref-string gi-or-name)
|
||||
(id-sectioning-xref-string gi-or-name))
|
||||
|
||||
(define (id-sidebar-xref-string gi-or-name)
|
||||
"the &sidebar; %t")
|
||||
|
||||
(define (id-step-xref-string gi-or-name)
|
||||
"&step; %n")
|
||||
|
||||
(define (id-table-xref-string gi-or-name)
|
||||
"&Table; %n")
|
||||
|
||||
(define (id-default-xref-string gi-or-name)
|
||||
(let* ((giname (if (string? gi-or-name) gi-or-name (gi gi-or-name)))
|
||||
(msg (string-append "[&xrefto; "
|
||||
(if giname giname "&nonexistantelement;")
|
||||
" &unsupported;]"))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))
|
||||
|
||||
(define (gentext-id-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname)))
|
||||
(cond
|
||||
((equal? name (normalize "appendix")) (id-appendix-xref-string gind))
|
||||
((equal? name (normalize "article")) (id-article-xref-string gind))
|
||||
((equal? name (normalize "bibliography")) (id-bibliography-xref-string gind))
|
||||
((equal? name (normalize "book")) (id-book-xref-string gind))
|
||||
((equal? name (normalize "chapter")) (id-chapter-xref-string gind))
|
||||
((equal? name (normalize "equation")) (id-equation-xref-string gind))
|
||||
((equal? name (normalize "example")) (id-example-xref-string gind))
|
||||
((equal? name (normalize "figure")) (id-figure-xref-string gind))
|
||||
((equal? name (normalize "glossary")) (id-glossary-xref-string gind))
|
||||
((equal? name (normalize "index")) (id-index-xref-string gind))
|
||||
((equal? name (normalize "listitem")) (id-listitem-xref-string gind))
|
||||
((equal? name (normalize "part")) (id-part-xref-string gind))
|
||||
((equal? name (normalize "preface")) (id-preface-xref-string gind))
|
||||
((equal? name (normalize "procedure")) (id-procedure-xref-string gind))
|
||||
((equal? name (normalize "reference")) (id-reference-xref-string gind))
|
||||
((equal? name (normalize "sect1")) (id-sect1-xref-string gind))
|
||||
((equal? name (normalize "sect2")) (id-sect2-xref-string gind))
|
||||
((equal? name (normalize "sect3")) (id-sect3-xref-string gind))
|
||||
((equal? name (normalize "sect4")) (id-sect4-xref-string gind))
|
||||
((equal? name (normalize "sect5")) (id-sect5-xref-string gind))
|
||||
((equal? name (normalize "section")) (id-section-xref-string gind))
|
||||
((equal? name (normalize "simplesect")) (id-section-xref-string gind))
|
||||
((equal? name (normalize "sidebar")) (id-sidebar-xref-string gind))
|
||||
((equal? name (normalize "step")) (id-step-xref-string gind))
|
||||
((equal? name (normalize "table")) (id-table-xref-string gind))
|
||||
(else (id-default-xref-string gind)))))
|
||||
|
||||
(define (id-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-id-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
(define id-abstract-name "&Abstract;")
|
||||
(define id-answer-name "&Answer;")
|
||||
(define id-appendix-name "&Appendix;")
|
||||
(define id-article-name "&Article;")
|
||||
(define id-bibliography-name "&Bibliography;")
|
||||
(define id-book-name "&Book;")
|
||||
(define id-calloutlist-name "")
|
||||
(define id-caution-name "&Caution;")
|
||||
(define id-chapter-name "&Chapter;")
|
||||
(define id-copyright-name "&Copyright;")
|
||||
(define id-dedication-name "&Dedication;")
|
||||
(define id-edition-name "&Edition;")
|
||||
(define id-equation-name "&Equation;")
|
||||
(define id-example-name "&Example;")
|
||||
(define id-figure-name "&Figure;")
|
||||
(define id-glossary-name "&Glossary;")
|
||||
(define id-glosssee-name "&GlossSee;")
|
||||
(define id-glossseealso-name "&GlossSeeAlso;")
|
||||
(define id-important-name "&Important;")
|
||||
(define id-index-name "&Index;")
|
||||
(define id-colophon-name "&Colophon;")
|
||||
(define id-setindex-name "&SetIndex;")
|
||||
(define id-isbn-name "&isbn;")
|
||||
(define id-legalnotice-name "&LegalNotice;")
|
||||
(define id-msgaud-name "&MsgAud;")
|
||||
(define id-msglevel-name "&MsgLevel;")
|
||||
(define id-msgorig-name "&MsgOrig;")
|
||||
(define id-note-name "&Note;")
|
||||
(define id-part-name "&Part;")
|
||||
(define id-preface-name "&Preface;")
|
||||
(define id-procedure-name "&Procedure;")
|
||||
(define id-pubdate-name "&Published;")
|
||||
(define id-question-name "&Question;")
|
||||
(define id-refentry-name "&RefEntry;")
|
||||
(define id-reference-name "&Reference;")
|
||||
(define id-refname-name "&RefName;")
|
||||
(define id-revhistory-name "&RevHistory;")
|
||||
(define id-refsect1-name "&RefSection;")
|
||||
(define id-refsect2-name "&RefSection;")
|
||||
(define id-refsect3-name "&RefSection;")
|
||||
(define id-refsynopsisdiv-name "&RefSynopsisDiv;")
|
||||
(define id-revision-name "&Revision;")
|
||||
(define id-sect1-name "&Section;")
|
||||
(define id-sect2-name "&Section;")
|
||||
(define id-sect3-name "&Section;")
|
||||
(define id-sect4-name "&Section;")
|
||||
(define id-sect5-name "&Section;")
|
||||
(define id-section-name "&Section;")
|
||||
(define id-simplesect-name "&Section;")
|
||||
(define id-seeie-name "&See;")
|
||||
(define id-seealsoie-name "&Seealso;")
|
||||
(define id-set-name "&Set;")
|
||||
(define id-sidebar-name "&Sidebar;")
|
||||
(define id-step-name "&step;")
|
||||
(define id-table-name "&Table;")
|
||||
(define id-tip-name "&Tip;")
|
||||
(define id-toc-name "&TableofContents;")
|
||||
(define id-warning-name "&Warning;")
|
||||
|
||||
(define (gentext-id-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname)))
|
||||
(cond
|
||||
((equal? name (normalize "abstract")) id-abstract-name)
|
||||
((equal? name (normalize "answer")) id-answer-name)
|
||||
((equal? name (normalize "appendix")) id-appendix-name)
|
||||
((equal? name (normalize "article")) id-article-name)
|
||||
((equal? name (normalize "bibliography")) id-bibliography-name)
|
||||
((equal? name (normalize "book")) id-book-name)
|
||||
((equal? name (normalize "calloutlist")) id-calloutlist-name)
|
||||
((equal? name (normalize "caution")) id-caution-name)
|
||||
((equal? name (normalize "chapter")) id-chapter-name)
|
||||
((equal? name (normalize "copyright")) id-copyright-name)
|
||||
((equal? name (normalize "dedication")) id-dedication-name)
|
||||
((equal? name (normalize "edition")) id-edition-name)
|
||||
((equal? name (normalize "equation")) id-equation-name)
|
||||
((equal? name (normalize "example")) id-example-name)
|
||||
((equal? name (normalize "figure")) id-figure-name)
|
||||
((equal? name (normalize "glossary")) id-glossary-name)
|
||||
((equal? name (normalize "glosssee")) id-glosssee-name)
|
||||
((equal? name (normalize "glossseealso")) id-glossseealso-name)
|
||||
((equal? name (normalize "important")) id-important-name)
|
||||
((equal? name (normalize "index")) id-index-name)
|
||||
((equal? name (normalize "colophon")) id-colophon-name)
|
||||
((equal? name (normalize "setindex")) id-setindex-name)
|
||||
((equal? name (normalize "isbn")) id-isbn-name)
|
||||
((equal? name (normalize "legalnotice")) id-legalnotice-name)
|
||||
((equal? name (normalize "msgaud")) id-msgaud-name)
|
||||
((equal? name (normalize "msglevel")) id-msglevel-name)
|
||||
((equal? name (normalize "msgorig")) id-msgorig-name)
|
||||
((equal? name (normalize "note")) id-note-name)
|
||||
((equal? name (normalize "part")) id-part-name)
|
||||
((equal? name (normalize "preface")) id-preface-name)
|
||||
((equal? name (normalize "procedure")) id-procedure-name)
|
||||
((equal? name (normalize "pubdate")) id-pubdate-name)
|
||||
((equal? name (normalize "question")) id-question-name)
|
||||
((equal? name (normalize "refentry")) id-refentry-name)
|
||||
((equal? name (normalize "reference")) id-reference-name)
|
||||
((equal? name (normalize "refname")) id-refname-name)
|
||||
((equal? name (normalize "revhistory")) id-revhistory-name)
|
||||
((equal? name (normalize "refsect1")) id-refsect1-name)
|
||||
((equal? name (normalize "refsect2")) id-refsect2-name)
|
||||
((equal? name (normalize "refsect3")) id-refsect3-name)
|
||||
((equal? name (normalize "refsynopsisdiv")) id-refsynopsisdiv-name)
|
||||
((equal? name (normalize "revision")) id-revision-name)
|
||||
((equal? name (normalize "sect1")) id-sect1-name)
|
||||
((equal? name (normalize "sect2")) id-sect2-name)
|
||||
((equal? name (normalize "sect3")) id-sect3-name)
|
||||
((equal? name (normalize "sect4")) id-sect4-name)
|
||||
((equal? name (normalize "sect5")) id-sect5-name)
|
||||
((equal? name (normalize "section")) id-section-name)
|
||||
((equal? name (normalize "simplesect")) id-simplesect-name)
|
||||
((equal? name (normalize "seeie")) id-seeie-name)
|
||||
((equal? name (normalize "seealsoie")) id-seealsoie-name)
|
||||
((equal? name (normalize "set")) id-set-name)
|
||||
((equal? name (normalize "sidebar")) id-sidebar-name)
|
||||
((equal? name (normalize "step")) id-step-name)
|
||||
((equal? name (normalize "table")) id-table-name)
|
||||
((equal? name (normalize "tip")) id-tip-name)
|
||||
((equal? name (normalize "toc")) id-toc-name)
|
||||
((equal? name (normalize "warning")) id-warning-name)
|
||||
(else (let* ((msg (string-append "gentext-id-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-id-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 id-equation-intra-label-sep "-")
|
||||
(define id-informalequation-intra-label-sep "-")
|
||||
(define id-example-intra-label-sep "-")
|
||||
(define id-figure-intra-label-sep "-")
|
||||
(define id-listitem-intra-label-sep ".")
|
||||
(define id-procedure-intra-label-sep ".")
|
||||
(define id-refentry-intra-label-sep ".")
|
||||
(define id-reference-intra-label-sep ".")
|
||||
(define id-refname-intra-label-sep ", ")
|
||||
(define id-refsect1-intra-label-sep ".")
|
||||
(define id-refsect2-intra-label-sep ".")
|
||||
(define id-refsect3-intra-label-sep ".")
|
||||
(define id-sect1-intra-label-sep ".")
|
||||
(define id-sect2-intra-label-sep ".")
|
||||
(define id-sect3-intra-label-sep ".")
|
||||
(define id-sect4-intra-label-sep ".")
|
||||
(define id-sect5-intra-label-sep ".")
|
||||
(define id-section-intra-label-sep ".")
|
||||
(define id-simplesect-intra-label-sep ".")
|
||||
(define id-step-intra-label-sep ".")
|
||||
(define id-table-intra-label-sep "-")
|
||||
(define id-_pagenumber-intra-label-sep "-")
|
||||
(define id-default-intra-label-sep "")
|
||||
|
||||
(define (gentext-id-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname)))
|
||||
(cond
|
||||
((equal? name (normalize "equation")) id-equation-intra-label-sep)
|
||||
((equal? name (normalize "informalequation")) id-informalequation-intra-label-sep)
|
||||
((equal? name (normalize "example")) id-example-intra-label-sep)
|
||||
((equal? name (normalize "figure")) id-figure-intra-label-sep)
|
||||
((equal? name (normalize "listitem")) id-listitem-intra-label-sep)
|
||||
((equal? name (normalize "procedure")) id-procedure-intra-label-sep)
|
||||
((equal? name (normalize "refentry")) id-refentry-intra-label-sep)
|
||||
((equal? name (normalize "reference")) id-reference-intra-label-sep)
|
||||
((equal? name (normalize "refname")) id-refname-intra-label-sep)
|
||||
((equal? name (normalize "refsect1")) id-refsect1-intra-label-sep)
|
||||
((equal? name (normalize "refsect2")) id-refsect2-intra-label-sep)
|
||||
((equal? name (normalize "refsect3")) id-refsect3-intra-label-sep)
|
||||
((equal? name (normalize "sect1")) id-sect1-intra-label-sep)
|
||||
((equal? name (normalize "sect2")) id-sect2-intra-label-sep)
|
||||
((equal? name (normalize "sect3")) id-sect3-intra-label-sep)
|
||||
((equal? name (normalize "sect4")) id-sect4-intra-label-sep)
|
||||
((equal? name (normalize "sect5")) id-sect5-intra-label-sep)
|
||||
((equal? name (normalize "section")) id-section-intra-label-sep)
|
||||
((equal? name (normalize "simplesect")) id-simplesect-intra-label-sep)
|
||||
((equal? name (normalize "step")) id-step-intra-label-sep)
|
||||
((equal? name (normalize "table")) id-table-intra-label-sep)
|
||||
((equal? name (normalize "_pagenumber")) id-_pagenumber-intra-label-sep)
|
||||
(else id-default-intra-label-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 id-abstract-label-title-sep ": ")
|
||||
(define id-answer-label-title-sep " ")
|
||||
(define id-appendix-label-title-sep ". ")
|
||||
(define id-caution-label-title-sep "")
|
||||
(define id-chapter-label-title-sep ". ")
|
||||
(define id-equation-label-title-sep ". ")
|
||||
(define id-example-label-title-sep ". ")
|
||||
(define id-figure-label-title-sep ". ")
|
||||
(define id-footnote-label-title-sep ". ")
|
||||
(define id-glosssee-label-title-sep ": ")
|
||||
(define id-glossseealso-label-title-sep ": ")
|
||||
(define id-important-label-title-sep ": ")
|
||||
(define id-note-label-title-sep ": ")
|
||||
(define id-orderedlist-label-title-sep ". ")
|
||||
(define id-part-label-title-sep ". ")
|
||||
(define id-procedure-label-title-sep ". ")
|
||||
(define id-prefix-label-title-sep ". ")
|
||||
(define id-question-label-title-sep " ")
|
||||
(define id-refentry-label-title-sep "")
|
||||
(define id-reference-label-title-sep ". ")
|
||||
(define id-refsect1-label-title-sep ". ")
|
||||
(define id-refsect2-label-title-sep ". ")
|
||||
(define id-refsect3-label-title-sep ". ")
|
||||
(define id-sect1-label-title-sep ". ")
|
||||
(define id-sect2-label-title-sep ". ")
|
||||
(define id-sect3-label-title-sep ". ")
|
||||
(define id-sect4-label-title-sep ". ")
|
||||
(define id-sect5-label-title-sep ". ")
|
||||
(define id-section-label-title-sep ". ")
|
||||
(define id-simplesect-label-title-sep ". ")
|
||||
(define id-seeie-label-title-sep " ")
|
||||
(define id-seealsoie-label-title-sep " ")
|
||||
(define id-step-label-title-sep ". ")
|
||||
(define id-table-label-title-sep ". ")
|
||||
(define id-tip-label-title-sep ": ")
|
||||
(define id-warning-label-title-sep "")
|
||||
(define id-default-label-title-sep "")
|
||||
|
||||
(define (gentext-id-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname)))
|
||||
(cond
|
||||
((equal? name (normalize "abstract")) id-abstract-label-title-sep)
|
||||
((equal? name (normalize "answer")) id-answer-label-title-sep)
|
||||
((equal? name (normalize "appendix")) id-appendix-label-title-sep)
|
||||
((equal? name (normalize "caution")) id-caution-label-title-sep)
|
||||
((equal? name (normalize "chapter")) id-chapter-label-title-sep)
|
||||
((equal? name (normalize "equation")) id-equation-label-title-sep)
|
||||
((equal? name (normalize "example")) id-example-label-title-sep)
|
||||
((equal? name (normalize "figure")) id-figure-label-title-sep)
|
||||
((equal? name (normalize "footnote")) id-footnote-label-title-sep)
|
||||
((equal? name (normalize "glosssee")) id-glosssee-label-title-sep)
|
||||
((equal? name (normalize "glossseealso")) id-glossseealso-label-title-sep)
|
||||
((equal? name (normalize "important")) id-important-label-title-sep)
|
||||
((equal? name (normalize "note")) id-note-label-title-sep)
|
||||
((equal? name (normalize "orderedlist")) id-orderedlist-label-title-sep)
|
||||
((equal? name (normalize "part")) id-part-label-title-sep)
|
||||
((equal? name (normalize "procedure")) id-procedure-label-title-sep)
|
||||
((equal? name (normalize "prefix")) id-prefix-label-title-sep)
|
||||
((equal? name (normalize "question")) id-question-label-title-sep)
|
||||
((equal? name (normalize "refentry")) id-refentry-label-title-sep)
|
||||
((equal? name (normalize "reference")) id-reference-label-title-sep)
|
||||
((equal? name (normalize "refsect1")) id-refsect1-label-title-sep)
|
||||
((equal? name (normalize "refsect2")) id-refsect2-label-title-sep)
|
||||
((equal? name (normalize "refsect3")) id-refsect3-label-title-sep)
|
||||
((equal? name (normalize "sect1")) id-sect1-label-title-sep)
|
||||
((equal? name (normalize "sect2")) id-sect2-label-title-sep)
|
||||
((equal? name (normalize "sect3")) id-sect3-label-title-sep)
|
||||
((equal? name (normalize "sect4")) id-sect4-label-title-sep)
|
||||
((equal? name (normalize "sect5")) id-sect5-label-title-sep)
|
||||
((equal? name (normalize "section")) id-section-label-title-sep)
|
||||
((equal? name (normalize "simplesect")) id-simplesect-label-title-sep)
|
||||
((equal? name (normalize "seeie")) id-seeie-label-title-sep)
|
||||
((equal? name (normalize "seealsoie")) id-seealsoie-label-title-sep)
|
||||
((equal? name (normalize "step")) id-step-label-title-sep)
|
||||
((equal? name (normalize "table")) id-table-label-title-sep)
|
||||
((equal? name (normalize "tip")) id-tip-label-title-sep)
|
||||
((equal? name (normalize "warning")) id-warning-label-title-sep)
|
||||
(else id-default-label-title-sep))))
|
||||
|
||||
(define (id-set-label-number-format gind) "1")
|
||||
(define (id-book-label-number-format gind) "1")
|
||||
(define (id-prefix-label-number-format gind) "1")
|
||||
(define (id-part-label-number-format gind) "I")
|
||||
(define (id-chapter-label-number-format gind) "1")
|
||||
(define (id-appendix-label-number-format gind) "A")
|
||||
(define (id-reference-label-number-format gind) "I")
|
||||
(define (id-example-label-number-format gind) "1")
|
||||
(define (id-figure-label-number-format gind) "1")
|
||||
(define (id-table-label-number-format gind) "1")
|
||||
(define (id-procedure-label-number-format gind) "1")
|
||||
(define (id-step-label-number-format gind) "1")
|
||||
(define (id-refsect1-label-number-format gind) "1")
|
||||
(define (id-refsect2-label-number-format gind) "1")
|
||||
(define (id-refsect3-label-number-format gind) "1")
|
||||
(define (id-sect1-label-number-format gind) "1")
|
||||
(define (id-sect2-label-number-format gind) "1")
|
||||
(define (id-sect3-label-number-format gind) "1")
|
||||
(define (id-sect4-label-number-format gind) "1")
|
||||
(define (id-sect5-label-number-format gind) "1")
|
||||
(define (id-section-label-number-format gind) "1")
|
||||
(define (id-default-label-number-format gind) "1")
|
||||
|
||||
(define (id-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname)))
|
||||
(cond
|
||||
((equal? name (normalize "set")) (id-set-label-number-format gind))
|
||||
((equal? name (normalize "book")) (id-book-label-number-format gind))
|
||||
((equal? name (normalize "prefix")) (id-prefix-label-number-format gind))
|
||||
((equal? name (normalize "part")) (id-part-label-number-format gind))
|
||||
((equal? name (normalize "chapter")) (id-chapter-label-number-format gind))
|
||||
((equal? name (normalize "appendix")) (id-appendix-label-number-format gind))
|
||||
((equal? name (normalize "reference")) (id-reference-label-number-format gind))
|
||||
((equal? name (normalize "example")) (id-example-label-number-format gind))
|
||||
((equal? name (normalize "figure")) (id-figure-label-number-format gind))
|
||||
((equal? name (normalize "table")) (id-table-label-number-format gind))
|
||||
((equal? name (normalize "procedure")) (id-procedure-label-number-format gind))
|
||||
((equal? name (normalize "step")) (id-step-label-number-format gind))
|
||||
((equal? name (normalize "refsect1")) (id-refsect1-label-number-format gind))
|
||||
((equal? name (normalize "refsect2")) (id-refsect2-label-number-format gind))
|
||||
((equal? name (normalize "refsect3")) (id-refsect3-label-number-format gind))
|
||||
((equal? name (normalize "sect1")) (id-sect1-label-number-format gind))
|
||||
((equal? name (normalize "sect2")) (id-sect2-label-number-format gind))
|
||||
((equal? name (normalize "sect3")) (id-sect3-label-number-format gind))
|
||||
((equal? name (normalize "sect4")) (id-sect4-label-number-format gind))
|
||||
((equal? name (normalize "sect5")) (id-sect5-label-number-format gind))
|
||||
((equal? name (normalize "section")) (id-section-label-number-format gind))
|
||||
(else (id-default-label-number-format gind)))))
|
||||
|
||||
(define ($lot-title-id$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname)))
|
||||
(cond ((equal? name (normalize "table")) "&ListofTables;")
|
||||
((equal? name (normalize "example")) "&ListofExamples;")
|
||||
((equal? name (normalize "figure")) "&ListofFigures;")
|
||||
((equal? name (normalize "equation")) "&ListofEquations;")
|
||||
(else (let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg)))))
|
||||
|
||||
(define %gentext-id-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-id-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-id-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-id-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-id-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-id-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-id-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-id-page% "")
|
||||
|
||||
(define %gentext-id-and% "∧")
|
||||
|
||||
(define %gentext-id-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-id-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-id-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-id-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-id-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-id-index-see% "&See;")
|
||||
|
||||
(define %gentext-id-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-id-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-id-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-id-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-id-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-id-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-id-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
148
docs/dsssl/docbook/common/dbl1id.ent
Executable file
148
docs/dsssl/docbook/common/dbl1id.ent
Executable file
@@ -0,0 +1,148 @@
|
||||
<?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 "Abstrak">
|
||||
<!ENTITY abstract "Abstrak">
|
||||
<!ENTITY Answer "Jawab:">
|
||||
<!ENTITY answer "Jawab:">
|
||||
<!ENTITY Appendix "Lampiran">
|
||||
<!ENTITY appendix "lampiran">
|
||||
<!ENTITY Article "Artikel">
|
||||
<!ENTITY article "Artikel">
|
||||
<!ENTITY Bibliography "Bibliografi">
|
||||
<!ENTITY bibliography "Bibliografi">
|
||||
<!ENTITY Book "Buku">
|
||||
<!ENTITY book "Buku">
|
||||
<!ENTITY Caution "Perhatian">
|
||||
<!ENTITY caution "Perhatian">
|
||||
<!ENTITY CAUTION "PERHATIAN">
|
||||
<!ENTITY Chapter "Bab">
|
||||
<!ENTITY chapter "bab">
|
||||
<!ENTITY Colophon "Kolofon">
|
||||
<!ENTITY colophon "Kolofon">
|
||||
<!ENTITY Copyright "Hak Cipta">
|
||||
<!ENTITY copyright "Hak Cipta">
|
||||
<!ENTITY Dedication "Dedikasi">
|
||||
<!ENTITY dedication "Dedikasi">
|
||||
<!ENTITY Edition "Edisi">
|
||||
<!ENTITY edition "Edisi">
|
||||
<!ENTITY Equation "Persamaan">
|
||||
<!ENTITY equation "Persamaan">
|
||||
<!ENTITY Example "Teladan">
|
||||
<!ENTITY example "Teladan">
|
||||
<!ENTITY Figure "Gambar">
|
||||
<!ENTITY figure "Gambar">
|
||||
<!ENTITY Glossary "Daftar Istilah">
|
||||
<!ENTITY glossary "Daftar Istilah">
|
||||
<!ENTITY GlossSee "Lihat">
|
||||
<!ENTITY glosssee "Lihat">
|
||||
<!ENTITY GlossSeeAlso "Lihat Juga">
|
||||
<!ENTITY glossseealso "Lihat Juga">
|
||||
<!ENTITY IMPORTANT "PENTING">
|
||||
<!ENTITY Important "Penting">
|
||||
<!ENTITY important "Penting">
|
||||
<!ENTITY Index "Indeks">
|
||||
<!ENTITY index "Indeks">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY LegalNotice "Aspek Hukum">
|
||||
<!ENTITY legalnotice "Aspek Hukum">
|
||||
<!ENTITY MsgAud "Pemirsa">
|
||||
<!ENTITY msgaud "Pemirsa">
|
||||
<!ENTITY MsgLevel "Tingkatan">
|
||||
<!ENTITY msglevel "Tingkatan">
|
||||
<!ENTITY MsgOrig "Asal">
|
||||
<!ENTITY msgorig "Asal">
|
||||
<!ENTITY note "Catatan">
|
||||
<!ENTITY NOTE "CATATAN">
|
||||
<!ENTITY Note "Catatan">
|
||||
<!ENTITY Part "Bagian">
|
||||
<!ENTITY part "Bagian">
|
||||
<!ENTITY Preface "Kata Pengantar">
|
||||
<!ENTITY preface "Kata Pengantar">
|
||||
<!ENTITY Procedure "Prosedur">
|
||||
<!ENTITY procedure "Prosedur">
|
||||
<!ENTITY Published "Diterbitkan">
|
||||
<!ENTITY published "Diterbitkan">
|
||||
<!ENTITY Question "Tanya:">
|
||||
<!ENTITY question "Tanya:">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "Referensi">
|
||||
<!ENTITY reference "Referensi">
|
||||
<!ENTITY RefName "Nama">
|
||||
<!ENTITY refname "Nama">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "Sinopsis">
|
||||
<!ENTITY refsynopsisdiv "Sinopsis">
|
||||
<!ENTITY RevHistory "Catatan Revisi">
|
||||
<!ENTITY revhistory "Catatan Revisi">
|
||||
<!ENTITY Revision "Revisi">
|
||||
<!ENTITY revision "Revisi">
|
||||
<!ENTITY Section "Bagian">
|
||||
<!ENTITY section "bagian">
|
||||
<!ENTITY see "Lihat">
|
||||
<!ENTITY See "Lihat">
|
||||
<!ENTITY Seealso "Lihat juga">
|
||||
<!ENTITY seealso "Lihat Juga">
|
||||
<!ENTITY SeeAlso "Lihat Juga">
|
||||
<!ENTITY set "Set">
|
||||
<!ENTITY Set "Set">
|
||||
<!ENTITY SetIndex "Indeks Set">
|
||||
<!ENTITY setindex "Indeks Set">
|
||||
<!ENTITY Sidebar "">
|
||||
<!ENTITY sidebar "sidebar">
|
||||
<!ENTITY step "tahap">
|
||||
<!ENTITY Step "Tahap">
|
||||
<!ENTITY table "Tabel">
|
||||
<!ENTITY Table "Tabel">
|
||||
<!ENTITY TIP "TIP">
|
||||
<!ENTITY Tip "Tip">
|
||||
<!ENTITY tip "Tip">
|
||||
<!ENTITY WARNING "AWAS">
|
||||
<!ENTITY Warning "Awas">
|
||||
<!ENTITY warning "Awas">
|
||||
<!ENTITY and "dan">
|
||||
<!ENTITY by "oleh">
|
||||
<!ENTITY Edited "disunting">
|
||||
<!ENTITY edited "disunting">
|
||||
<!ENTITY Editedby "disunting oleh">
|
||||
<!ENTITY editedby "disunting oleh">
|
||||
<!ENTITY in "di">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "elemen tak tampak">
|
||||
<!ENTITY notes "Catatan">
|
||||
<!ENTITY Notes "Catatan">
|
||||
<!ENTITY Pgs "Hal.">
|
||||
<!ENTITY pgs "Hal.">
|
||||
<!ENTITY Revisedby "Revised by: ">
|
||||
<!ENTITY revisedby "Revised by: ">
|
||||
<!ENTITY TableNotes "Catatan">
|
||||
<!ENTITY tablenotes "Catatan">
|
||||
<!ENTITY TableofContents "Daftar Isi">
|
||||
<!ENTITY tableofcontents "Daftar Isi">
|
||||
<!ENTITY unexpectedelementname "Nama Elemen seharusnya tidak ada">
|
||||
<!ENTITY unsupported "tidak didukung">
|
||||
<!ENTITY xrefto "xref ke">
|
||||
<!ENTITY listofequations "Daftar Persamaan">
|
||||
<!ENTITY ListofEquations "Daftar Persamaan">
|
||||
<!ENTITY ListofExamples "Daftar Teladan">
|
||||
<!ENTITY listofexamples "Daftar Teladan">
|
||||
<!ENTITY ListofFigures "Daftar Gambar">
|
||||
<!ENTITY listoffigures "Daftar Gambar">
|
||||
<!ENTITY listoftables "Daftar Tabel">
|
||||
<!ENTITY ListofTables "Daftar Tabel">
|
||||
<!ENTITY ListofUnknown "Daftar Gaib">
|
||||
<!ENTITY listofunknown "Daftar Gaib">
|
||||
<!ENTITY nav-home "Depan">
|
||||
<!ENTITY nav-next "Lanjut">
|
||||
<!ENTITY nav-next-sibling "Lewati">
|
||||
<!ENTITY nav-prev "Kembali">
|
||||
<!ENTITY nav-prev-sibling "Sebelumnya">
|
||||
<!ENTITY nav-up "Induk">
|
||||
471
docs/dsssl/docbook/common/dbl1it.dsl
Executable file
471
docs/dsssl/docbook/common/dbl1it.dsl
Executable file
@@ -0,0 +1,471 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % it.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//IT"
|
||||
"dbl1it.ent">
|
||||
%it.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-it">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; 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:
|
||||
;; camille@mandrakesoft.com
|
||||
|
||||
(define (it-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 (it-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"&appendix; %t"))
|
||||
(list (normalize "article") (string-append %gentext-it-start-quote%
|
||||
"%t"
|
||||
%gentext-it-end-quote%))
|
||||
(list (normalize "bibliography") "%t")
|
||||
(list (normalize "book") "%t")
|
||||
(list (normalize "chapter") (if %chapter-autolabel%
|
||||
"&Chapter; %n"
|
||||
"il &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%
|
||||
"la &Section; %n"
|
||||
"la §ion; %t"))
|
||||
(list (normalize "sect1") (if %section-autolabel%
|
||||
"la &Section; %n"
|
||||
"la §ion; %t"))
|
||||
(list (normalize "sect2") (if %section-autolabel%
|
||||
"la &Section; %n"
|
||||
"la §ion; %t"))
|
||||
(list (normalize "sect3") (if %section-autolabel%
|
||||
"la &Section; %n"
|
||||
"la §ion; %t"))
|
||||
(list (normalize "sect4") (if %section-autolabel%
|
||||
"la &Section; %n"
|
||||
"la §ion; %t"))
|
||||
(list (normalize "sect5") (if %section-autolabel%
|
||||
"la &Section; %n"
|
||||
"la §ion; %t"))
|
||||
(list (normalize "simplesect") (if %section-autolabel%
|
||||
"la &Section; %n"
|
||||
"la §ion; %t"))
|
||||
(list (normalize "sidebar") "the &sidebar; %t")
|
||||
(list (normalize "step") "&step; %n")
|
||||
(list (normalize "table") "&Table; %n")))
|
||||
|
||||
(define (gentext-it-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (it-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 (it-auto-xref-indirect-connector before)
|
||||
(cond
|
||||
((member (gi before)
|
||||
(list (normalize "part")
|
||||
(normalize "set")
|
||||
(normalize "revision")
|
||||
(normalize "dedication")
|
||||
(normalize "bibliography")
|
||||
(normalize "preface")
|
||||
(normalize "figure")
|
||||
(normalize "procedure")
|
||||
(normalize "sidebar")
|
||||
(normalize "table")
|
||||
(normalize "sect1")
|
||||
(normalize "sect2")
|
||||
(normalize "sect3")
|
||||
(normalize "sect4")
|
||||
(normalize "sect5")
|
||||
(normalize "simplesect")))
|
||||
(literal " nella "))
|
||||
((member (gi before)
|
||||
(list (normalize "appendix")
|
||||
(normalize "index")
|
||||
(normalize "abstract")
|
||||
(normalize "equation")
|
||||
(normalize "example")
|
||||
(normalize "article")))
|
||||
(literal " nell'"))
|
||||
((member (gi before)
|
||||
(list (normalize "book")
|
||||
(normalize "chapter")
|
||||
(normalize "step")
|
||||
(normalize "reference")
|
||||
(normalize "glossary")))
|
||||
(literal " nel "))
|
||||
;; This is supposed never to be triggered!
|
||||
;; I think the above conditions cover all the possible kinds of link
|
||||
;; target containers (it's probably a superset, indeed). If they
|
||||
;; don't, add the offending element to the correspondant list.
|
||||
(else
|
||||
(literal "[&unexpectedelementname;]"))))
|
||||
|
||||
;; Should the TOC come first or last?
|
||||
;;
|
||||
(define %generate-it-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (it-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-it-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (it-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-it-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-it-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-it-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (it-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-it-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-it-intra-label-sep)))
|
||||
(sep (assoc name (it-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-it-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (it-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-it-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-it-label-title-sep)))
|
||||
(sep (assoc name (it-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (it-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 (it-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (it-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (it-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-it$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (it-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-it-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-it-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-it-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-it-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-it-by% "") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-it-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-it-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-it-page% "")
|
||||
|
||||
(define %gentext-it-and% "∧")
|
||||
|
||||
(define %gentext-it-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-it-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-it-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-it-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-it-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-it-index-see% "&See;")
|
||||
|
||||
(define %gentext-it-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-it-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-it-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-it-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-it-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-it-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-it-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
157
docs/dsssl/docbook/common/dbl1it.ent
Executable file
157
docs/dsssl/docbook/common/dbl1it.ent
Executable file
@@ -0,0 +1,157 @@
|
||||
<?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 lowercase.alpha "abcdefghijklmnopqrstuwxyz">
|
||||
<!ENTITY ProductionSet "Produzione">
|
||||
<!ENTITY sect1 "Sezione">
|
||||
<!ENTITY sect2 "Sezione">
|
||||
<!ENTITY sect3 "Sezione">
|
||||
<!ENTITY sect4 "Sezione">
|
||||
<!ENTITY sect5 "Sezione">
|
||||
<!ENTITY sectioncalled "la sezione chiamata">
|
||||
<!ENTITY uppercase.alpha "ABCDEFGHIJKLMNOPQRSTUVWXYZ">
|
||||
<!ENTITY Abstract "Estratto">
|
||||
<!ENTITY abstract "Estratto">
|
||||
<!ENTITY Answer "R:">
|
||||
<!ENTITY answer "R:">
|
||||
<!ENTITY Appendix "Appendice">
|
||||
<!ENTITY appendix "appendice">
|
||||
<!ENTITY Article "Articolo">
|
||||
<!ENTITY article "Articolo">
|
||||
<!ENTITY Bibliography "Bibliografia">
|
||||
<!ENTITY bibliography "Bibliografia">
|
||||
<!ENTITY Book "Libro">
|
||||
<!ENTITY book "Libro">
|
||||
<!ENTITY Caution "Cautela">
|
||||
<!ENTITY caution "Cautela">
|
||||
<!ENTITY CAUTION "CAUTELA">
|
||||
<!ENTITY Chapter "Capitolo">
|
||||
<!ENTITY chapter "capitolo">
|
||||
<!ENTITY Colophon "Colophon">
|
||||
<!ENTITY colophon "Colophon">
|
||||
<!ENTITY Copyright "Copyright">
|
||||
<!ENTITY copyright "Copyright">
|
||||
<!ENTITY Dedication "Dedica">
|
||||
<!ENTITY dedication "Dedica">
|
||||
<!ENTITY Edition "Edizione">
|
||||
<!ENTITY edition "Edizione">
|
||||
<!ENTITY Equation "Equazione">
|
||||
<!ENTITY equation "Equazione">
|
||||
<!ENTITY Example "Esempio">
|
||||
<!ENTITY example "Esempio">
|
||||
<!ENTITY Figure "Figura">
|
||||
<!ENTITY figure "Figura">
|
||||
<!ENTITY Glossary "Glossario">
|
||||
<!ENTITY glossary "Glossario">
|
||||
<!ENTITY GlossSee "Vedi">
|
||||
<!ENTITY glosssee "Vedi">
|
||||
<!ENTITY glossseealso "Vedi anche">
|
||||
<!ENTITY GlossSeeAlso "Vedi anche">
|
||||
<!ENTITY Important "Importante">
|
||||
<!ENTITY important "Importante">
|
||||
<!ENTITY IMPORTANT "IMPORTANTE">
|
||||
<!ENTITY Index "Indice">
|
||||
<!ENTITY index "Indice">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY LegalNotice "Note legali">
|
||||
<!ENTITY legalnotice "Note legali">
|
||||
<!ENTITY MsgAud "Pubblico">
|
||||
<!ENTITY msgaud "Pubblico">
|
||||
<!ENTITY MsgLevel "Livello">
|
||||
<!ENTITY msglevel "Livello">
|
||||
<!ENTITY MsgOrig "Origine">
|
||||
<!ENTITY msgorig "Origine">
|
||||
<!ENTITY Note "Nota">
|
||||
<!ENTITY NOTE "NOTA">
|
||||
<!ENTITY note "Nota">
|
||||
<!ENTITY Part "Parte">
|
||||
<!ENTITY part "Parte">
|
||||
<!ENTITY Preface "Prefazione">
|
||||
<!ENTITY preface "Prefazione">
|
||||
<!ENTITY procedure "Procedura">
|
||||
<!ENTITY Procedure "Procedura">
|
||||
<!ENTITY published "Pubblicato">
|
||||
<!ENTITY Published "Pubblicato">
|
||||
<!ENTITY Question "D:">
|
||||
<!ENTITY question "D:">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY reference "Riferimento">
|
||||
<!ENTITY Reference "Riferimento">
|
||||
<!ENTITY RefName "Nome">
|
||||
<!ENTITY refname "Nome">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "Sinossi">
|
||||
<!ENTITY refsynopsisdiv "Sinossi">
|
||||
<!ENTITY RevHistory "Diario delle revisioni">
|
||||
<!ENTITY revhistory "Diario delle revisioni">
|
||||
<!ENTITY Revision "Revisione">
|
||||
<!ENTITY revision "Revisione">
|
||||
<!ENTITY Section "Sezione">
|
||||
<!ENTITY section "sezione">
|
||||
<!ENTITY See "Vd.">
|
||||
<!ENTITY see "Vd.">
|
||||
<!ENTITY seealso "Vd. Anche">
|
||||
<!ENTITY Seealso "Vd. anche">
|
||||
<!ENTITY SeeAlso "Vd. Anche">
|
||||
<!ENTITY set "Raccolta">
|
||||
<!ENTITY Set "Raccolta">
|
||||
<!ENTITY setindex "Indice Raccolta">
|
||||
<!ENTITY SetIndex "Indice Raccolta">
|
||||
<!ENTITY sidebar "nota a margine">
|
||||
<!ENTITY Sidebar "Nota a margine">
|
||||
<!ENTITY Step "Passaggio">
|
||||
<!ENTITY step "passaggio">
|
||||
<!ENTITY table "Tabella">
|
||||
<!ENTITY Table "Tabella">
|
||||
<!ENTITY TIP "SUGGERIMENTO">
|
||||
<!ENTITY Tip "Suggerimento">
|
||||
<!ENTITY tip "Suggerimento">
|
||||
<!ENTITY Warning "Attenzione">
|
||||
<!ENTITY warning "Attenzione">
|
||||
<!ENTITY WARNING "ATTENZIONE">
|
||||
<!ENTITY and "e">
|
||||
<!ENTITY by "di">
|
||||
<!ENTITY Edited "A cura">
|
||||
<!ENTITY edited "A cura">
|
||||
<!ENTITY Editedby "A cura di">
|
||||
<!ENTITY editedby "A cura di">
|
||||
<!ENTITY in "in">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "elemento non esistente">
|
||||
<!ENTITY notes "Note">
|
||||
<!ENTITY Notes "Note">
|
||||
<!ENTITY Pgs "pp.">
|
||||
<!ENTITY pgs "pp.">
|
||||
<!ENTITY Revisedby "Corretto da: ">
|
||||
<!ENTITY revisedby "Corretto da: ">
|
||||
<!ENTITY TableNotes "Note">
|
||||
<!ENTITY tablenotes "Note">
|
||||
<!ENTITY TableofContents "Sommario">
|
||||
<!ENTITY tableofcontents "Sommario">
|
||||
<!ENTITY unexpectedelementname "Nome elemento inaspettato">
|
||||
<!ENTITY unsupported "non supportato">
|
||||
<!ENTITY xrefto "riferimento a">
|
||||
<!ENTITY listofequations "Lista delle Equazioni">
|
||||
<!ENTITY ListofEquations "Lista delle Equazioni">
|
||||
<!ENTITY ListofExamples "Lista degli Esempi">
|
||||
<!ENTITY listofexamples "Lista degli Esempi">
|
||||
<!ENTITY ListofFigures "Lista delle Figure">
|
||||
<!ENTITY listoffigures "Lista delle Figure">
|
||||
<!ENTITY listoftables "Lista delle Tabelle">
|
||||
<!ENTITY ListofTables "Lista delle Tabelle">
|
||||
<!ENTITY ListofUnknown "Lista Sconosciuti">
|
||||
<!ENTITY listofunknown "Lista Sconosciuti">
|
||||
<!ENTITY nav-home "Partenza">
|
||||
<!ENTITY nav-next "Avanti">
|
||||
<!ENTITY nav-next-sibling "Salta avanti">
|
||||
<!ENTITY nav-prev "Indietro">
|
||||
<!ENTITY nav-prev-sibling "Salta indietro">
|
||||
<!ENTITY nav-up "Risali">
|
||||
445
docs/dsssl/docbook/common/dbl1ja.dsl
Executable file
445
docs/dsssl/docbook/common/dbl1ja.dsl
Executable file
@@ -0,0 +1,445 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % ja.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//JA"
|
||||
"dbl1ja.ent">
|
||||
%ja.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-ja">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; 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:
|
||||
;; Karl Critz, kcritz@mathworks.com, contributed the original dbl1ja.ent file
|
||||
;; ISHIDA Eri, eri@laser5.co.jp
|
||||
;; Ryan Shaw, ryan@silveregg.co.jp
|
||||
|
||||
(define (ja-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 (ja-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix;%n"
|
||||
"%t&appendix;"))
|
||||
(list (normalize "article") (string-append %gentext-ja-start-quote%
|
||||
"%t"
|
||||
%gentext-ja-end-quote%))
|
||||
(list (normalize "bibliography") "%t")
|
||||
(list (normalize "book") "%t")
|
||||
(list (normalize "chapter") (if %chapter-autolabel%
|
||||
"&Chapter1;%n&Chapter2;"
|
||||
"%t&chapter;"))
|
||||
(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§ion;"))
|
||||
(list (normalize "sect1") (if %section-autolabel%
|
||||
"&Section;%n"
|
||||
"%t§ion;"))
|
||||
(list (normalize "sect2") (if %section-autolabel%
|
||||
"&Section;%n"
|
||||
"%t§ion;"))
|
||||
(list (normalize "sect3") (if %section-autolabel%
|
||||
"&Section;%n"
|
||||
"%t§ion;"))
|
||||
(list (normalize "sect4") (if %section-autolabel%
|
||||
"&Section;%n"
|
||||
"%t§ion;"))
|
||||
(list (normalize "sect5") (if %section-autolabel%
|
||||
"&Section;%n"
|
||||
"%t§ion;"))
|
||||
(list (normalize "simplesect") (if %section-autolabel%
|
||||
"&Section;%n"
|
||||
"%t§ion;"))
|
||||
(list (normalize "sidebar") "%t&sidebar;")
|
||||
(list (normalize "step") "&step;%n")
|
||||
(list (normalize "table") "&Table;%n")))
|
||||
|
||||
(define (gentext-ja-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (ja-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 (ja-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-ja-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (ja-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") "&Chapter1;")
|
||||
(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-ja-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (ja-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-ja-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-ja-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-ja-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (ja-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-ja-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-ja-intra-label-sep)))
|
||||
(sep (assoc name (ja-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-ja-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (ja-label-title-sep)
|
||||
(list
|
||||
(list (normalize "abstract") ": ")
|
||||
(list (normalize "answer") " ")
|
||||
(list (normalize "appendix") ". ")
|
||||
(list (normalize "caution") "")
|
||||
(list (normalize "chapter") "&Chapter2;")
|
||||
(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-ja-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-ja-label-title-sep)))
|
||||
(sep (assoc name (ja-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (ja-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 (ja-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (ja-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (ja-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-ja$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (ja-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-ja-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-ja-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-ja-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-ja-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-ja-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-ja-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-ja-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-ja-page% "")
|
||||
|
||||
(define %gentext-ja-and% "∧")
|
||||
|
||||
(define %gentext-ja-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-ja-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-ja-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-ja-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-ja-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-ja-index-see% "&See;")
|
||||
|
||||
(define %gentext-ja-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-ja-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-ja-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-ja-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-ja-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-ja-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-ja-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
157
docs/dsssl/docbook/common/dbl1ja.ent
Executable file
157
docs/dsssl/docbook/common/dbl1ja.ent
Executable file
@@ -0,0 +1,157 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "\U-6982;\U-8981;">
|
||||
<!ENTITY abstract "\U-6982;\U-8981;">
|
||||
<!ENTITY Answer "\U-554F;\U-FF1A;">
|
||||
<!ENTITY answer "\U-554F;\U-FF1A;">
|
||||
<!ENTITY Appendix "\U-4ED8;\U-9332;">
|
||||
<!ENTITY appendix "\U-4ED8;\U-9332;">
|
||||
<!ENTITY Article "\U-9805;\U-76EE;">
|
||||
<!ENTITY article "\U-9805;\U-76EE;">
|
||||
<!ENTITY Bibliography "\U-53C2;\U-8003;\U-6587;\U-732E;">
|
||||
<!ENTITY bibliography "\U-53C2;\U-8003;\U-6587;\U-732E;">
|
||||
<!ENTITY Book "\U-30D6;\U-30C3;\U-30AF;">
|
||||
<!ENTITY book "\U-30D6;\U-30C3;\U-30AF;">
|
||||
<!ENTITY Caution "\U-6CE8;\U-610F;">
|
||||
<!ENTITY caution "\U-6CE8;\U-610F;">
|
||||
<!ENTITY CAUTION "\U-6CE8;\U-610F;">
|
||||
<!ENTITY chapter "\U-7AE0;">
|
||||
<!ENTITY chapter1 "\U-7B2C;">
|
||||
<!ENTITY Chapter1 "\U-7B2C;">
|
||||
<!ENTITY Chapter2 "\U-7AE0;">
|
||||
<!ENTITY chapter2 "\U-7AE0;">
|
||||
<!ENTITY Colophon "\U-5965;\U-4ED8;">
|
||||
<!ENTITY colophon "\U-5965;\U-4ED8;">
|
||||
<!ENTITY Copyright "\U-88FD;\U-4F5C;\U-8457;\U-4F5C;">
|
||||
<!ENTITY copyright "\U-88FD;\U-4F5C;\U-8457;\U-4F5C;">
|
||||
<!ENTITY Dedication "\U-8B1D;\U-8F9E;">
|
||||
<!ENTITY dedication "\U-8B1D;\U-8F9E;">
|
||||
<!ENTITY Edition "\U-7DE8;\U-96C6;">
|
||||
<!ENTITY edition "\U-7DE8;\U-96C6;">
|
||||
<!ENTITY Equation "\U-5F0F;">
|
||||
<!ENTITY equation "\U-5F0F;">
|
||||
<!ENTITY Example "\U-4F8B;">
|
||||
<!ENTITY example "\U-4F8B;">
|
||||
<!ENTITY Figure "\U-56F3;">
|
||||
<!ENTITY figure "\U-56F3;">
|
||||
<!ENTITY Glossary "\U-7528;\U-8A9E;\U-96C6;">
|
||||
<!ENTITY glossary "\U-7528;\U-8A9E;\U-96C6;">
|
||||
<!ENTITY GlossSee "\U-53C2;\U-7167;">
|
||||
<!ENTITY glosssee "\U-53C2;\U-7167;">
|
||||
<!ENTITY GlossSeeAlso "\U-53C2;\U-7167;">
|
||||
<!ENTITY glossseealso "\U-53C2;\U-7167;">
|
||||
<!ENTITY IMPORTANT "\U-91CD;\U-8981;\U-9805;\U-76EE;">
|
||||
<!ENTITY Important "\U-91CD;\U-8981;\U-9805;\U-76EE;">
|
||||
<!ENTITY important "\U-91CD;\U-8981;\U-9805;\U-76EE;">
|
||||
<!ENTITY Index "\U-76EE;\U-6B21;">
|
||||
<!ENTITY index "\U-76EE;\U-6B21;">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY LegalNotice "">
|
||||
<!ENTITY legalnotice "">
|
||||
<!ENTITY MsgAud "\U-5BFE;\U-8C61;\U-8005;">
|
||||
<!ENTITY msgaud "\U-5BFE;\U-8C61;\U-8005;">
|
||||
<!ENTITY MsgLevel "\U-30EC;\U-30D9;\U-30EB;">
|
||||
<!ENTITY msglevel "\U-30EC;\U-30D9;\U-30EB;">
|
||||
<!ENTITY MsgOrig "\U-767A;\U-4FE1;\U-5143;">
|
||||
<!ENTITY msgorig "\U-767A;\U-4FE1;\U-5143;">
|
||||
<!ENTITY note "\U-6CE8;\U-610F;">
|
||||
<!ENTITY Note "\U-6CE8;\U-610F;">
|
||||
<!ENTITY NOTE "\U-6CE8;\U-610F;">
|
||||
<!ENTITY Part "\U-30D1;\U-30FC;\U-30C8;">
|
||||
<!ENTITY part "\U-30D1;\U-30FC;\U-30C8;">
|
||||
<!ENTITY Preface "\U-5E8F;\U-6587;">
|
||||
<!ENTITY preface "\U-5E8F;\U-6587;">
|
||||
<!ENTITY Procedure "\U-624B;\U-9806;">
|
||||
<!ENTITY procedure "\U-624B;\U-9806;">
|
||||
<!ENTITY ProductionSet "\U-30D7;\U-30ED;\U-30C0;\U-30AF;\U-30B7;\U-30E7;\U-30F3;">
|
||||
<!ENTITY Published "\U-767A;\U-884C;">
|
||||
<!ENTITY published "\U-767A;\U-884C;">
|
||||
<!ENTITY Question "\U-7B54;\U-FF1A;">
|
||||
<!ENTITY question "\U-7B54;\U-FF1A;">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "\U-53C2;\U-7167;">
|
||||
<!ENTITY reference "\U-53C2;\U-7167;">
|
||||
<!ENTITY RefName "\U-540D;\U-524D;">
|
||||
<!ENTITY refname "\U-540D;\U-524D;">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "\U-6982;\U-8981;">
|
||||
<!ENTITY refsynopsisdiv "\U-6982;\U-8981;">
|
||||
<!ENTITY RevHistory "\U-6539;\U-8A02;\U-5C65;\U-6B74;">
|
||||
<!ENTITY revhistory "\U-6539;\U-8A02;\U-5C65;\U-6B74;">
|
||||
<!ENTITY revision "\U-6539;\U-8A02;">
|
||||
<!ENTITY Revision "\U-6539;\U-8A02;">
|
||||
<!ENTITY sect1 "\U-9805;">
|
||||
<!ENTITY sect2 "\U-9805;">
|
||||
<!ENTITY sect3 "\U-9805;">
|
||||
<!ENTITY sect4 "\U-9805;">
|
||||
<!ENTITY sect5 "\U-9805;">
|
||||
<!ENTITY Section "\U-9805;">
|
||||
<!ENTITY section "\U-9805;">
|
||||
<!ENTITY See "\U-53C2;\U-7167;">
|
||||
<!ENTITY see "\U-53C2;\U-7167;">
|
||||
<!ENTITY seealso "\U-53C2;\U-7167;">
|
||||
<!ENTITY SeeAlso "\U-53C2;\U-7167;">
|
||||
<!ENTITY Seealso "\U-53C2;\U-7167;">
|
||||
<!ENTITY Set "\U-8A2D;\U-5B9A;">
|
||||
<!ENTITY set "\U-8A2D;\U-5B9A;">
|
||||
<!ENTITY SetIndex "\U-76EE;\U-6B21;\U-8A2D;\U-5B9A;">
|
||||
<!ENTITY setindex "\U-76EE;\U-6B21;\U-8A2D;\U-5B9A;">
|
||||
<!ENTITY Sidebar "">
|
||||
<!ENTITY sidebar "\U-30B5;\U-30A4;\U-30C9;\U-30D0;\U-30FC;">
|
||||
<!ENTITY step "\U-30B9;\U-30C6;\U-30C3;\U-30D7;">
|
||||
<!ENTITY Step "\U-30B9;\U-30C6;\U-30C3;\U-30D7;">
|
||||
<!ENTITY table "\U-8868;">
|
||||
<!ENTITY Table "\U-8868;">
|
||||
<!ENTITY TIP "\U-30C6;\U-30A3;\U-30C3;\U-30D7;">
|
||||
<!ENTITY Tip "\U-30C6;\U-30A3;\U-30C3;\U-30D7;">
|
||||
<!ENTITY tip "\U-30C6;\U-30A3;\U-30C3;\U-30D7;">
|
||||
<!ENTITY WARNING "\U-8B66;\U-544A;">
|
||||
<!ENTITY Warning "\U-8B66;\U-544A;">
|
||||
<!ENTITY warning "\U-8B66;\U-544A;">
|
||||
<!ENTITY and "\U-3001;">
|
||||
<!ENTITY by "\U-FF1A;">
|
||||
<!ENTITY Edited "\U-4F5C;\U-8005;">
|
||||
<!ENTITY edited "\U-4F5C;\U-8005;">
|
||||
<!ENTITY Editedby "\U-4F5C;\U-8005;\U-FF1A;">
|
||||
<!ENTITY editedby "\U-4F5C;\U-8005;\U-FF1A;">
|
||||
<!ENTITY in "">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "\U-8981;\U-7D20;\U-304C;\U-5B58;\U-5728;\U-3057;\U-307E;\U-305B;\U-3093;">
|
||||
<!ENTITY notes "\U-6CE8;\U-610F;">
|
||||
<!ENTITY Notes "\U-6CE8;\U-610F;">
|
||||
<!ENTITY Pgs "\U-5067;\U-732E;">
|
||||
<!ENTITY pgs "\U-5067;\U-732E;">
|
||||
<!ENTITY Revisedby "Revised by: ">
|
||||
<!ENTITY revisedby "Revised by: ">
|
||||
<!ENTITY TableNotes "\U-6CE8;\U-610F;">
|
||||
<!ENTITY tablenotes "\U-6CE8;\U-610F;">
|
||||
<!ENTITY TableofContents "\U-76EE;\U-6B21;">
|
||||
<!ENTITY tableofcontents "\U-76EE;\U-6B21;">
|
||||
<!ENTITY unexpectedelementname "\U-4E0D;\U-660E;\U-306A;\U-8981;\U-7D20;\U-540D;">
|
||||
<!ENTITY unsupported "\U-30B5;\U-30DD;\U-30FC;\U-30C8;\U-3057;\U-307E;\U-305B;\U-3093;">
|
||||
<!ENTITY xrefto "xref to">
|
||||
<!ENTITY listofequations "\U-5F0F;\U-76EE;\U-6B21;">
|
||||
<!ENTITY ListofEquations "\U-5F0F;\U-76EE;\U-6B21;">
|
||||
<!ENTITY ListofExamples "\U-4F8B;\U-76EE;\U-6B21;">
|
||||
<!ENTITY listofexamples "\U-4F8B;\U-76EE;\U-6B21;">
|
||||
<!ENTITY ListofFigures "\U-56F3;\U-76EE;\U-6B21;">
|
||||
<!ENTITY listoffigures "\U-56F3;\U-76EE;\U-6B21;">
|
||||
<!ENTITY listoftables "\U-8868;\U-76EE;\U-6B21;">
|
||||
<!ENTITY ListofTables "\U-8868;\U-76EE;\U-6B21;">
|
||||
<!ENTITY ListofUnknown "\U-4E0D;\U-660E;\U-76EE;\U-6B21;">
|
||||
<!ENTITY listofunknown "\U-4E0D;\U-660E;\U-76EE;\U-6B21;">
|
||||
<!ENTITY nav-home "\U-30DB;\U-30FC;\U-30E0;">
|
||||
<!ENTITY nav-next "\U-6B21;\U-306E;\U-30DA;\U-30FC;\U-30B8;">
|
||||
<!ENTITY nav-next-sibling "\U-65E9;\U-9001;\U-308A;">
|
||||
<!ENTITY nav-prev "\U-524D;\U-306E;\U-30DA;\U-30FC;\U-30B8;">
|
||||
<!ENTITY nav-prev-sibling "\U-5DFB;\U-623B;\U-3057;">
|
||||
<!ENTITY nav-up "\U-4E0A;\U-306B;\U-623B;\U-308B;">
|
||||
<!ENTITY lowercase.alpha "abcdefghijklmnopqrstuvwxyz">
|
||||
<!ENTITY uppercase.alpha "ABCDEFGHIJKLMNOPQRSTUVWXYZ">
|
||||
455
docs/dsssl/docbook/common/dbl1ko.dsl
Executable file
455
docs/dsssl/docbook/common/dbl1ko.dsl
Executable file
@@ -0,0 +1,455 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % ko.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//KO"
|
||||
"dbl1ko.ent">
|
||||
%ko.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-ko">
|
||||
<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
|
||||
|
||||
;; Contributor:
|
||||
;; Park Yong Joo (yongjoo@kldp.org) 2001/01/06
|
||||
;;
|
||||
|
||||
(define (ko-author-string #!optional (author (current-node)))
|
||||
;; Return a formatted string representation of the contents of:
|
||||
;; AUTHOR:
|
||||
;; Handles Honorific, Surname, FirstName, and Lineage.
|
||||
;; If %author-othername-in-middle% is #t, also OtherName
|
||||
;; Handles *only* the first of each.
|
||||
;; Format is "Honorific. SurNameFirstName [OtherName], 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%) "")
|
||||
|
||||
|
||||
;; Format is "SurNameFirstName" for Korean naming rules.
|
||||
(if has_s (string-append
|
||||
(if has_h " " "")
|
||||
(data-of (node-list-first s_nl))) "")
|
||||
(if has_f (string-append
|
||||
(if (or has_h) " " "")
|
||||
(data-of (node-list-first f_nl))) "")
|
||||
;; If you need "SurName FirstName" format,
|
||||
;; comment out upper 6 lines and use this.
|
||||
;; (if has_s (string-append
|
||||
;; (if has_h " " "")
|
||||
;; (data-of (node-list-first s_nl))) "")
|
||||
;; (if has_f (string-append
|
||||
;; (if (or has_h has_s) " " "")
|
||||
;; (data-of (node-list-first f_nl))) "")
|
||||
(if has_o (string-append
|
||||
(if (or has_h has_s has_f ) " " "")
|
||||
(data-of (node-list-first o_nl))) "")
|
||||
(if has_l (string-append ", " (data-of (node-list-first l_nl))) ""))
|
||||
(data-of author))))
|
||||
|
||||
(define (ko-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"\U-C81C;\U-BAA9;\U-C774; %t\U-C778; &appendix;"))
|
||||
(list (normalize "article") (string-append %gentext-ko-start-quote%
|
||||
"%t"
|
||||
%gentext-ko-end-quote%))
|
||||
(list (normalize "bibliography") "%t")
|
||||
(list (normalize "book") "%t")
|
||||
(list (normalize "chapter") (if %chapter-autolabel%
|
||||
"%n\U-C7A5;"
|
||||
"`%t' &chapter;"))
|
||||
(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") "%n &Part;")
|
||||
(list (normalize "preface") "%t")
|
||||
(list (normalize "procedure") "&Procedure; %n, %t")
|
||||
(list (normalize "reference") "&Reference; %n, %t")
|
||||
(list (normalize "section") (if %section-autolabel%
|
||||
"%n\U-C808;"
|
||||
"`%t' §ion;"))
|
||||
(list (normalize "sect1") (if %section-autolabel%
|
||||
"%n\U-C808;"
|
||||
"`%t' §ion;"))
|
||||
(list (normalize "sect2") (if %section-autolabel%
|
||||
"%n\U-C808;"
|
||||
"`%t' §ion;"))
|
||||
(list (normalize "sect3") (if %section-autolabel%
|
||||
"%n\U-C808;"
|
||||
"`%t' §ion;"))
|
||||
(list (normalize "sect4") (if %section-autolabel%
|
||||
"%n\U-C808;"
|
||||
"`%t' §ion;"))
|
||||
(list (normalize "sect5") (if %section-autolabel%
|
||||
"%n\U-C808;"
|
||||
"`%t' §ion;"))
|
||||
(list (normalize "simplesect") (if %section-autolabel%
|
||||
"%n\U-C808;"
|
||||
"`%t' §ion;"))
|
||||
(list (normalize "sidebar") "&sidebar; %t")
|
||||
(list (normalize "step") "&step; %n")
|
||||
(list (normalize "table") "&Table; %n")))
|
||||
|
||||
(define (gentext-ko-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (ko-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 (ko-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 "\U-C758; "))
|
||||
((equal? (gi before) (normalize "chapter"))
|
||||
(literal "\U-C758; "))
|
||||
((equal? (gi before) (normalize "sect1"))
|
||||
(literal "\U-C758; "))
|
||||
(else
|
||||
(literal "\U-C758; "))))
|
||||
|
||||
;; Should the TOC come first or last?
|
||||
;;
|
||||
(define %generate-ko-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (ko-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-ko-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (ko-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-ko-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-ko-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-ko-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (ko-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-ko-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-ko-intra-label-sep)))
|
||||
(sep (assoc name (ko-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-ko-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (ko-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-ko-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-ko-label-title-sep)))
|
||||
(sep (assoc name (ko-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (ko-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 (ko-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (ko-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (ko-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-ko$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (ko-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-ko-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-ko-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-ko-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-ko-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-ko-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-ko-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-ko-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-ko-page% "")
|
||||
|
||||
(define %gentext-ko-and% "∧")
|
||||
|
||||
(define %gentext-ko-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-ko-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-ko-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-ko-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-ko-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-ko-index-see% "&See;")
|
||||
|
||||
(define %gentext-ko-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-ko-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-ko-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-ko-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-ko-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-ko-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-ko-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
145
docs/dsssl/docbook/common/dbl1ko.ent
Executable file
145
docs/dsssl/docbook/common/dbl1ko.ent
Executable file
@@ -0,0 +1,145 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "\U-CD08;\U-B85D;">
|
||||
<!ENTITY abstract "\U-CD08;\U-B85D;">
|
||||
<!ENTITY Answer "\U-B2F5;\U-BCC0;">
|
||||
<!ENTITY answer "\U-B2F5;\U-BCC0;">
|
||||
<!ENTITY Appendix "\U-BD80;\U-B85D;">
|
||||
<!ENTITY appendix "\U-BD80;\U-B85D;">
|
||||
<!ENTITY Article "\U-BB38;\U-C11C;">
|
||||
<!ENTITY article "\U-BB38;\U-C11C;">
|
||||
<!ENTITY Bibliography "\U-C11C;\U-C9C0;\U-C0AC;\U-D56D;">
|
||||
<!ENTITY bibliography "\U-C11C;\U-C9C0;\U-C0AC;\U-D56D;">
|
||||
<!ENTITY Book "\U-CC45;">
|
||||
<!ENTITY book "\U-CC45;">
|
||||
<!ENTITY Caution "\U-ACBD;\U-ACE0;">
|
||||
<!ENTITY CAUTION "[\U-ACBD;\U-ACE0;]">
|
||||
<!ENTITY Chapter "\U-C7A5;">
|
||||
<!ENTITY chapter "\U-C7A5;">
|
||||
<!ENTITY Colophon "\U-D310;\U-AD8C;">
|
||||
<!ENTITY colophon "\U-D310;\U-AD8C;">
|
||||
<!ENTITY Copyright "\U-C800;\U-C791;\U-AD8C;">
|
||||
<!ENTITY copyright "\U-C800;\U-C791;\U-AD8C;">
|
||||
<!ENTITY Dedication "\U-BC14;\U-CE58;\U-B294; \U-AE00;">
|
||||
<!ENTITY dedication "\U-BC14;\U-CE58;\U-B294; \U-AE00;">
|
||||
<!ENTITY Edition "\U-C5EE;\U-C74C;">
|
||||
<!ENTITY edition "\U-C5EE;\U-C74C;">
|
||||
<!ENTITY Equation "\U-C218;\U-C2DD;">
|
||||
<!ENTITY equation "\U-C218;\U-C2DD;">
|
||||
<!ENTITY Example "\U-C608;">
|
||||
<!ENTITY example "\U-C608;">
|
||||
<!ENTITY figure "\U-ADF8;\U-B9BC;">
|
||||
<!ENTITY Figure "\U-ADF8;\U-B9BC;">
|
||||
<!ENTITY Glossary "\U-C6A9;\U-C5B4;\U-D574;\U-C124;">
|
||||
<!ENTITY glossary "\U-C6A9;\U-C5B4;\U-D574;\U-C124;">
|
||||
<!ENTITY GlossSee "\U-C0B4;\U-D3B4;\U-BCFC; \U-B0B4;\U-C6A9;">
|
||||
<!ENTITY glosssee "\U-C0B4;\U-D3B4;\U-BCFC; \U-B0B4;\U-C6A9;">
|
||||
<!ENTITY GlossSeeAlso "\U-B2E4;\U-B978; \U-C0B4;\U-D3B4;\U-BCFC; \U-B0B4;\U-C6A9;">
|
||||
<!ENTITY glossseealso "\U-B2E4;\U-B978; \U-C0B4;\U-D3B4;\U-BCFC; \U-B0B4;\U-C6A9;">
|
||||
<!ENTITY Important "\U-C911;\U-C694;">
|
||||
<!ENTITY important "\U-C911;\U-C694;">
|
||||
<!ENTITY IMPORTANT "[\U-C911;\U-C694;]">
|
||||
<!ENTITY Index "\U-C0C9;\U-C778;">
|
||||
<!ENTITY index "\U-C0C9;\U-C778;">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY LegalNotice "\U-BC95;\U-C801; \U-ACF5;\U-C9C0;">
|
||||
<!ENTITY legalnotice "\U-BC95;\U-C801; \U-ACF5;\U-C9C0;">
|
||||
<!ENTITY MsgAud "\U-BC1B;\U-B294; \U-C774;">
|
||||
<!ENTITY msgaud "\U-BC1B;\U-B294; \U-C774;">
|
||||
<!ENTITY MsgLevel "\U-C911;\U-C694;\U-B3C4;">
|
||||
<!ENTITY msglevel "\U-C911;\U-C694;\U-B3C4;">
|
||||
<!ENTITY MsgOrig "\U-BCF4;\U-B0B4;\U-B294; \U-C774;">
|
||||
<!ENTITY msgorig "\U-BCF4;\U-B0B4;\U-B294; \U-C774;">
|
||||
<!ENTITY note "\U-CC38;\U-ACE0;">
|
||||
<!ENTITY Note "\U-CC38;\U-ACE0;">
|
||||
<!ENTITY NOTE "[\U-CC38;\U-ACE0;]">
|
||||
<!ENTITY part "\U-BD80;">
|
||||
<!ENTITY Part "\U-BD80;">
|
||||
<!ENTITY Preface "\U-C11C;\U-BB38;">
|
||||
<!ENTITY preface "\U-C11C;\U-BB38;">
|
||||
<!ENTITY Procedure "\U-C808;\U-CC28;">
|
||||
<!ENTITY procedure "\U-C808;\U-CC28;">
|
||||
<!ENTITY Published "\U-D3B4;\U-B0C4;">
|
||||
<!ENTITY published "\U-D3B4;\U-B0C4;">
|
||||
<!ENTITY Question "\U-C9C8;\U-BB38;">
|
||||
<!ENTITY question "\U-C9C8;\U-BB38;">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "\U-CC38;\U-ACE0;\U-BB38;\U-D5CC;">
|
||||
<!ENTITY reference "\U-CC38;\U-ACE0;\U-BB38;\U-D5CC;">
|
||||
<!ENTITY RefName "\U-C81C;\U-BAA9;">
|
||||
<!ENTITY refname "\U-C81C;\U-BAA9;">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "\U-C694;\U-C57D;">
|
||||
<!ENTITY refsynopsisdiv "\U-C694;\U-C57D;">
|
||||
<!ENTITY RevHistory "\U-ACE0;\U-CE5C; \U-ACFC;\U-C815;">
|
||||
<!ENTITY revhistory "\U-ACE0;\U-CE5C; \U-ACFC;\U-C815;">
|
||||
<!ENTITY Revision "\U-ACE0;\U-CE68;">
|
||||
<!ENTITY revision "\U-ACE0;\U-CE68;">
|
||||
<!ENTITY Section "\U-C808;">
|
||||
<!ENTITY section "\U-C808;">
|
||||
<!ENTITY see "\U-C0B4;\U-D3B4;\U-BCFC; \U-B0B4;\U-C6A9;">
|
||||
<!ENTITY See "\U-C0B4;\U-D3B4;\U-BCFC; \U-B0B4;\U-C6A9;">
|
||||
<!ENTITY Seealso "\U-C0B4;\U-D3B4;\U-BCFC; \U-B2E4;\U-B978; \U-B0B4;\U-C6A9;">
|
||||
<!ENTITY seealso "[\U-C0B4;\U-D3B4;\U-BCFC; \U-B2E4;\U-B978; \U-B0B4;\U-C6A9;]">
|
||||
<!ENTITY SeeAlso "[\U-C0B4;\U-D3B4;\U-BCFC; \U-B2E4;\U-B978; \U-B0B4;\U-C6A9;]">
|
||||
<!ENTITY Set "\U-C804;\U-C9D1;">
|
||||
<!ENTITY set "\U-C804;\U-C9D1;">
|
||||
<!ENTITY setindex "\U-C804;\U-C9D1; \U-C0C9;\U-C778;">
|
||||
<!ENTITY SetIndex "\U-C804;\U-C9D1; \U-C0C9;\U-C778;">
|
||||
<!ENTITY Sidebar "">
|
||||
<!ENTITY sidebar "\U-B367;\U-BD99;\U-C784;">
|
||||
<!ENTITY step "\U-B2E8;\U-ACC4;">
|
||||
<!ENTITY Step "\U-B2E8;\U-ACC4;">
|
||||
<!ENTITY table "\U-D45C;">
|
||||
<!ENTITY Table "\U-D45C;">
|
||||
<!ENTITY tip "\U-C791;\U-C740; \U-C815;\U-BCF4;">
|
||||
<!ENTITY Tip "\U-C791;\U-C740; \U-C815;\U-BCF4;">
|
||||
<!ENTITY TIP "[\U-C791;\U-C740; \U-C815;\U-BCF4;]">
|
||||
<!ENTITY WARNING "\U-C8FC;\U-C758;!">
|
||||
<!ENTITY Warning "\U-C8FC;\U-C758;">
|
||||
<!ENTITY warning "\U-C8FC;\U-C758;">
|
||||
<!ENTITY and "\U-ADF8;\U-B9AC;\U-ACE0;">
|
||||
<!ENTITY by "\U-C9C0;\U-C740;\U-C774;">
|
||||
<!ENTITY Edited "\U-C5EE;\U-C74C;">
|
||||
<!ENTITY edited "\U-C5EE;\U-C74C;">
|
||||
<!ENTITY Editedby "\U-C5EE;\U-C740;\U-C774;">
|
||||
<!ENTITY editedby "\U-C5EE;\U-C740;\U-C774;">
|
||||
<!ENTITY in "-">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "\U-C874;\U-C7AC;\U-D558;\U-C9C0; \U-C54A;\U-B294; \U-AE30;\U-CD08;\U-C694;\U-C18C;\U-C785;\U-B2C8;\U-B2E4;">
|
||||
<!ENTITY notes "\U-C8FC;\U-C11D;">
|
||||
<!ENTITY Notes "\U-C8FC;\U-C11D;">
|
||||
<!ENTITY Pgs "Pgs.">
|
||||
<!ENTITY pgs "Pgs.">
|
||||
<!ENTITY Revisedby "\U-ACE0;\U-CE5C;\U-C774; ">
|
||||
<!ENTITY revisedby "\U-ACE0;\U-CE5C;\U-C774; ">
|
||||
<!ENTITY TableNotes "\U-CC38;\U-ACE0;">
|
||||
<!ENTITY tablenotes "\U-CC38;\U-ACE0;">
|
||||
<!ENTITY TableofContents "\U-CC28;\U-B840;">
|
||||
<!ENTITY tableofcontents "\U-CC28;\U-B840;">
|
||||
<!ENTITY unexpectedelementname "\U-C54C; \U-C218; \U-C5C6;\U-B294; \U-AE30;\U-CD08;\U-C694;\U-C18C; \U-C774;\U-B984;\U-C785;\U-B2C8;\U-B2E4;">
|
||||
<!ENTITY unsupported "\U-C9C0;\U-C6D0;\U-B418;\U-C9C0; \U-C54A;\U-C2B5;\U-B2C8;\U-B2E4;">
|
||||
<!ENTITY xrefto "\U-C774; \U-ACF3;\U-C744; \U-CC38;\U-C870;\U-D558;\U-C138;\U-C694; : ">
|
||||
<!ENTITY listofequations "\U-C218;\U-C2DD; \U-BAA9;\U-B85D;">
|
||||
<!ENTITY ListofEquations "\U-C218;\U-C2DD; \U-BAA9;\U-B85D;">
|
||||
<!ENTITY ListofExamples "\U-C608; \U-BAA9;\U-B85D;">
|
||||
<!ENTITY listofexamples "\U-C608; \U-BAA9;\U-B85D;">
|
||||
<!ENTITY ListofFigures "\U-ADF8;\U-B9BC; \U-BAA9;\U-B85D;">
|
||||
<!ENTITY listoffigures "\U-ADF8;\U-B9BC; \U-BAA9;\U-B85D;">
|
||||
<!ENTITY listoftables "\U-D45C; \U-BAA9;\U-B85D;">
|
||||
<!ENTITY ListofTables "\U-D45C; \U-BAA9;\U-B85D;">
|
||||
<!ENTITY ListofUnknown "\U-AE30;\U-D0C0; \U-BAA9;\U-B85D;">
|
||||
<!ENTITY listofunknown "\U-AE30;\U-D0C0; \U-BAA9;\U-B85D;">
|
||||
<!ENTITY nav-home "\U-CC98;\U-C74C;\U-C73C;\U-B85C;">
|
||||
<!ENTITY nav-next "\U-B2E4;\U-C74C;">
|
||||
<!ENTITY nav-next-sibling "\U-B2E4;\U-C74C;\U-C73C;\U-B85C; \U-AC74;\U-B108;\U-B700;">
|
||||
<!ENTITY nav-prev "\U-C774;\U-C804;">
|
||||
<!ENTITY nav-prev-sibling "\U-C774;\U-C804;\U-C73C;\U-B85C; \U-AC74;\U-B108;\U-B700;">
|
||||
<!ENTITY nav-up "\U-C704;\U-B85C;">
|
||||
440
docs/dsssl/docbook/common/dbl1nl.dsl
Executable file
440
docs/dsssl/docbook/common/dbl1nl.dsl
Executable file
@@ -0,0 +1,440 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % nl.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//NL"
|
||||
"dbl1nl.ent">
|
||||
%nl.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-nl">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; This file is part of the Modular DocBook Stylesheet distribution.
|
||||
;; See ../README or http://nwalsh.com/docbook/dsssl/
|
||||
;;
|
||||
|
||||
;; ----------------------------- Localization -----------------------------
|
||||
;;
|
||||
;; This is the Dutch localization
|
||||
;;
|
||||
;; If you create a new version of this file, please send it to
|
||||
;; Norman Walsh, ndw@nwalsh.com
|
||||
|
||||
;; Contributors:
|
||||
;; Hugo van der Kooij, hvdkooij@caiw.nl
|
||||
;; Frederik Fouvry, fouvry@essex.ac.uk
|
||||
|
||||
;; The generated text for cross references to elements. See dblink.dsl
|
||||
;; for a discussion of how substitution is performed on the %x
|
||||
;; keywords.
|
||||
;;
|
||||
|
||||
(define (nl-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 (nl-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"&appendix; %t"))
|
||||
(list (normalize "article") (string-append %gentext-nl-start-quote%
|
||||
"%t"
|
||||
%gentext-nl-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-nl-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (nl-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 (nl-auto-xref-indirect-connector before)
|
||||
(literal " ∈ "))
|
||||
|
||||
;; Should the TOC come first or last?
|
||||
;;
|
||||
(define %generate-nl-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (nl-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-nl-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (nl-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-nl-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-nl-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-nl-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (nl-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-nl-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-nl-intra-label-sep)))
|
||||
(sep (assoc name (nl-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-nl-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (nl-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-nl-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-nl-label-title-sep)))
|
||||
(sep (assoc name (nl-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (nl-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 (nl-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (nl-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (nl-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-nl$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (nl-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-nl-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-nl-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-nl-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-nl-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-nl-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-nl-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-nl-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-nl-page% "")
|
||||
|
||||
(define %gentext-nl-and% "∧")
|
||||
|
||||
(define %gentext-nl-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-nl-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-nl-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-nl-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-nl-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-nl-index-see% "&See;")
|
||||
|
||||
(define %gentext-nl-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-nl-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-nl-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-nl-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-nl-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-nl-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-nl-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
147
docs/dsssl/docbook/common/dbl1nl.ent
Executable file
147
docs/dsssl/docbook/common/dbl1nl.ent
Executable file
@@ -0,0 +1,147 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "Samenvatting">
|
||||
<!ENTITY abstract "Samenvatting">
|
||||
<!ENTITY Answer "Antwoord:">
|
||||
<!ENTITY answer "Antwoord:">
|
||||
<!ENTITY Appendix "Aanhangsel">
|
||||
<!ENTITY appendix "aanhangsel">
|
||||
<!ENTITY Article "Artikel">
|
||||
<!ENTITY article "Artikel">
|
||||
<!ENTITY Bibliography "Literatuurlijst">
|
||||
<!ENTITY bibliography "Literatuurlijst">
|
||||
<!ENTITY Book "Boek">
|
||||
<!ENTITY book "Boek">
|
||||
<!ENTITY Caution "Let op">
|
||||
<!ENTITY caution "Let op">
|
||||
<!ENTITY CAUTION "LET OP">
|
||||
<!ENTITY Chapter "Hoofdstuk">
|
||||
<!ENTITY chapter "hoofdstuk">
|
||||
<!ENTITY Colophon "Colofon">
|
||||
<!ENTITY colophon "Colofon">
|
||||
<!ENTITY Copyright "Copyright">
|
||||
<!ENTITY copyright "Copyright">
|
||||
<!ENTITY Dedication "Opdracht">
|
||||
<!ENTITY dedication "Opdracht">
|
||||
<!ENTITY Edition "Uitgave">
|
||||
<!ENTITY edition "Uitgave">
|
||||
<!ENTITY Equation "Vergelijking">
|
||||
<!ENTITY equation "Vergelijking">
|
||||
<!ENTITY Example "Voorbeeld">
|
||||
<!ENTITY example "Voorbeeld">
|
||||
<!ENTITY Figure "Figuur">
|
||||
<!ENTITY figure "Figuur">
|
||||
<!ENTITY Glossary "Woordenlijst">
|
||||
<!ENTITY glossary "Woordenlijst">
|
||||
<!ENTITY GlossSee "Zie">
|
||||
<!ENTITY glosssee "Zie">
|
||||
<!ENTITY GlossSeeAlso "Zie ook">
|
||||
<!ENTITY glossseealso "Zie ook">
|
||||
<!ENTITY IMPORTANT "BELANGRIJK">
|
||||
<!ENTITY Important "Belangrijk">
|
||||
<!ENTITY important "Belangrijk">
|
||||
<!ENTITY Index "Register">
|
||||
<!ENTITY index "Register">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY LegalNotice "Bericht">
|
||||
<!ENTITY legalnotice "Bericht">
|
||||
<!ENTITY MsgAud "Doelgroep">
|
||||
<!ENTITY msgaud "Doelgroep">
|
||||
<!ENTITY MsgLevel "Niveau">
|
||||
<!ENTITY msglevel "Niveau">
|
||||
<!ENTITY MsgOrig "Herkomst">
|
||||
<!ENTITY msgorig "Herkomst">
|
||||
<!ENTITY note "Opmerking">
|
||||
<!ENTITY NOTE "OPMERKING">
|
||||
<!ENTITY Note "Opmerking">
|
||||
<!ENTITY Part "Deel">
|
||||
<!ENTITY part "Deel">
|
||||
<!ENTITY Preface "Voorwoord">
|
||||
<!ENTITY preface "Voorwoord">
|
||||
<!ENTITY Procedure "Procedure">
|
||||
<!ENTITY procedure "Procedure">
|
||||
<!ENTITY Published "Uitgegeven">
|
||||
<!ENTITY published "Uitgegeven">
|
||||
<!ENTITY Question "Vraag:">
|
||||
<!ENTITY question "Vraag:">
|
||||
<!ENTITY RefEntry "Referentielemma">
|
||||
<!ENTITY refentry "Referentielemma">
|
||||
<!ENTITY Reference "Referentie">
|
||||
<!ENTITY reference "Referentie">
|
||||
<!ENTITY RefName "Referentienaam">
|
||||
<!ENTITY refname "Referentienaam">
|
||||
<!ENTITY RefSection "Referentieparagraaf">
|
||||
<!ENTITY refsection "Referentieparagraaf">
|
||||
<!ENTITY RefSynopsisDiv "Referentiesamenvatting">
|
||||
<!ENTITY refsynopsisdiv "Referentiesamenvatting">
|
||||
<!ENTITY RevHistory "Wijzigingen">
|
||||
<!ENTITY revhistory "Wijzigingen">
|
||||
<!ENTITY Revision "Herziening">
|
||||
<!ENTITY revision "Herziening">
|
||||
<!ENTITY Section "Paragraaf">
|
||||
<!ENTITY section "paragraaf">
|
||||
<!ENTITY see "Zie">
|
||||
<!ENTITY See "Zie">
|
||||
<!ENTITY Seealso "Zie ook">
|
||||
<!ENTITY seealso "Zie ook">
|
||||
<!ENTITY SeeAlso "Zie ook">
|
||||
<!ENTITY set "Verzameling">
|
||||
<!ENTITY Set "Verzameling">
|
||||
<!ENTITY SetIndex "Hoofdregister">
|
||||
<!ENTITY setindex "Hoofdregister">
|
||||
<!ENTITY Sidebar "Excursie">
|
||||
<!ENTITY sidebar "excursie">
|
||||
<!ENTITY step "stap">
|
||||
<!ENTITY Step "Stap">
|
||||
<!ENTITY table "Tabel">
|
||||
<!ENTITY Table "Tabel">
|
||||
<!ENTITY TIP "TIP">
|
||||
<!ENTITY Tip "Tip">
|
||||
<!ENTITY tip "Tip">
|
||||
<!ENTITY WARNING "WAARSCHUWING">
|
||||
<!ENTITY Warning "Waarschuwing">
|
||||
<!ENTITY warning "Waarschuwing">
|
||||
<!ENTITY and "en">
|
||||
<!ENTITY by "door">
|
||||
<!ENTITY Edited "Redactie">
|
||||
<!ENTITY edited "Redactie">
|
||||
<!ENTITY Editedby "Redactie door">
|
||||
<!ENTITY editedby "Redactie door">
|
||||
<!ENTITY in "in">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "niet bestaand element">
|
||||
<!ENTITY notes "Noten">
|
||||
<!ENTITY Notes "Noten">
|
||||
<!ENTITY Pgs "blz.">
|
||||
<!ENTITY pgs "blz.">
|
||||
<!ENTITY Revisedby "Herzien door: ">
|
||||
<!ENTITY revisedby "Herzien door: ">
|
||||
<!ENTITY TableNotes "Opmerkingen">
|
||||
<!ENTITY tablenotes "Opmerkingen">
|
||||
<!ENTITY TableofContents "Inhoudsopgave">
|
||||
<!ENTITY tableofcontents "Inhoudsopgave">
|
||||
<!ENTITY unexpectedelementname "ONVERWACHT-ELEMENT">
|
||||
<!ENTITY unsupported "niet ondersteund">
|
||||
<!ENTITY xrefto "verwijzing naar">
|
||||
<!ENTITY listofequations "Lijst van vergelijkingen">
|
||||
<!ENTITY ListofEquations "Lijst van vergelijkingen">
|
||||
<!ENTITY ListofExamples "Lijst van voorbeelden">
|
||||
<!ENTITY listofexamples "Lijst van voorbeelden">
|
||||
<!ENTITY ListofFigures "Lijst van figuren">
|
||||
<!ENTITY listoffigures "Lijst van figuren">
|
||||
<!ENTITY listoftables "Lijst van tabellen">
|
||||
<!ENTITY ListofTables "Lijst van tabellen">
|
||||
<!ENTITY ListofUnknown "Lijst van ???">
|
||||
<!ENTITY listofunknown "Lijst van ???">
|
||||
<!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 "Omhoog">
|
||||
<!ENTITY sectioncalled "de sectie genaamd">
|
||||
445
docs/dsssl/docbook/common/dbl1nn.dsl
Executable file
445
docs/dsssl/docbook/common/dbl1nn.dsl
Executable file
@@ -0,0 +1,445 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % nn.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//NN"
|
||||
"dbl1nn.ent">
|
||||
%nn.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-nn">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; 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 (nn-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 (nn-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"the &appendix; called %t"))
|
||||
(list (normalize "article") (string-append %gentext-nn-start-quote%
|
||||
"%t"
|
||||
%gentext-nn-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-nn-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (nn-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 (nn-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-nn-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (nn-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-nn-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (nn-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-nn-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-nn-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-nn-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (nn-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-nn-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-nn-intra-label-sep)))
|
||||
(sep (assoc name (nn-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-nn-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (nn-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-nn-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-nn-label-title-sep)))
|
||||
(sep (assoc name (nn-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (nn-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 (nn-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (nn-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (nn-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-nn$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (nn-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-nn-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-nn-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-nn-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-nn-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-nn-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-nn-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-nn-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-nn-page% "")
|
||||
|
||||
(define %gentext-nn-and% "∧")
|
||||
|
||||
(define %gentext-nn-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-nn-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-nn-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-nn-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-nn-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-nn-index-see% "&See;")
|
||||
|
||||
(define %gentext-nn-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-nn-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-nn-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-nn-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-nn-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-nn-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-nn-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
|
||||
152
docs/dsssl/docbook/common/dbl1nn.ent
Executable file
152
docs/dsssl/docbook/common/dbl1nn.ent
Executable file
@@ -0,0 +1,152 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "Samandrag">
|
||||
<!ENTITY abstract "Samandrag">
|
||||
<!ENTITY Answer "Svar">
|
||||
<!ENTITY answer "svar">
|
||||
<!ENTITY Appendix "Tillegg">
|
||||
<!ENTITY Article "Artikkel">
|
||||
<!ENTITY article "artikkel">
|
||||
<!ENTITY Bibliography "Bibliografi">
|
||||
<!ENTITY bibliography "bibliografi">
|
||||
<!ENTITY Book "Bok">
|
||||
<!ENTITY book "bok">
|
||||
<!ENTITY CAUTION "OBS">
|
||||
<!ENTITY caution "OBS">
|
||||
<!ENTITY Caution "Obs">
|
||||
<!ENTITY caution "Obs">
|
||||
<!ENTITY Chapter "Kapittel">
|
||||
<!ENTITY Colophon "Kolofon">
|
||||
<!ENTITY colophon "kolofon">
|
||||
<!ENTITY Copyright "Opphavsrett">
|
||||
<!ENTITY copyright "opphavsrett">
|
||||
<!ENTITY Dedication "Dedikasjon">
|
||||
<!ENTITY dedication "dedikasjon">
|
||||
<!ENTITY Edition "Utg\U-00E5;ve">
|
||||
<!ENTITY edition "utg\U-00E5;ve">
|
||||
<!ENTITY Equation "Formel">
|
||||
<!ENTITY equation "formel">
|
||||
<!ENTITY Example "D\U-00F8;me">
|
||||
<!ENTITY example "d\U-00F8;me">
|
||||
<!ENTITY Figure "Figur">
|
||||
<!ENTITY figure "figur">
|
||||
<!ENTITY GlossSee "Sj\U-00E5;">
|
||||
<!ENTITY glosssee "sj\U-00E5;">
|
||||
<!ENTITY GlossSeeAlso "Sj\U-00E5; \U-00F2;g">
|
||||
<!ENTITY glossseealso "sj\U-00E5; \U-00F2;g">
|
||||
<!ENTITY Glossary "Ordliste">
|
||||
<!ENTITY glossary "ordliste">
|
||||
<!ENTITY IMPORTANT "VIKTIG">
|
||||
<!ENTITY important "viktig">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY Important "Viktig">
|
||||
<!ENTITY important "viktig">
|
||||
<!ENTITY Index "Indeks">
|
||||
<!ENTITY index "indeks">
|
||||
<!ENTITY LegalNotice "">
|
||||
<!ENTITY legalnotice "">
|
||||
<!ENTITY MsgAud "Publikum">
|
||||
<!ENTITY msgaud "publikum">
|
||||
<!ENTITY MsgLevel "Niv\U-00E5;">
|
||||
<!ENTITY msglevel "niv\U-00E5;">
|
||||
<!ENTITY MsgOrig "Opphav">
|
||||
<!ENTITY msgorig "Opphav">
|
||||
<!ENTITY NOTE "NOTAT">
|
||||
<!ENTITY note "NOTAT">
|
||||
<!ENTITY Note "Notat">
|
||||
<!ENTITY note "Notat">
|
||||
<!ENTITY Part "Del">
|
||||
<!ENTITY part "del">
|
||||
<!ENTITY Preface "Forord">
|
||||
<!ENTITY preface "forord">
|
||||
<!ENTITY Procedure "Prosedyre">
|
||||
<!ENTITY procedure "prosedyre">
|
||||
<!ENTITY Published "Utgitt">
|
||||
<!ENTITY published "utgitt">
|
||||
<!ENTITY Question "Sp\U-00F8;rsm\U-00E5;l">
|
||||
<!ENTITY question "sp\U-00F8;rsm\U-00E5;l">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY RefName "Namn">
|
||||
<!ENTITY refname "namn">
|
||||
<!ENTITY Reference "Referanse">
|
||||
<!ENTITY reference "referanse">
|
||||
<!ENTITY RefSection "Del">
|
||||
<!ENTITY refsection "del">
|
||||
<!ENTITY RefSynopsisDiv "Oversyn">
|
||||
<!ENTITY refsynopsisdiv "oversyn">
|
||||
<!ENTITY Revision "Revisjon">
|
||||
<!ENTITY revision "revisjon">
|
||||
<!ENTITY RevHistory "Revisjonshistorie">
|
||||
<!ENTITY revhistory "revisjonshistorie">
|
||||
<!ENTITY Section "Del">
|
||||
<!ENTITY See "Sj\U-00E5;">
|
||||
<!ENTITY see "sj\U-00E5;">
|
||||
<!ENTITY SeeAlso "Sj\U-00E5; \U-00F2;g">
|
||||
<!ENTITY seealso "sj\U-00E5; \U-00F2;g">
|
||||
<!ENTITY Set "Set">
|
||||
<!ENTITY set "set">
|
||||
<!ENTITY SetIndex "Indeks">
|
||||
<!ENTITY setindex "Indeks">
|
||||
<!ENTITY Sidebar "Sidestolpe">
|
||||
<!ENTITY sidebar "sidestolpe">
|
||||
<!ENTITY Step "Steg">
|
||||
<!ENTITY TIP "TIPS">
|
||||
<!ENTITY tip "tips">
|
||||
<!ENTITY Table "Tabell">
|
||||
<!ENTITY table "tabell">
|
||||
<!ENTITY Tip "Tips">
|
||||
<!ENTITY tip "tips">
|
||||
<!ENTITY WARNING "\U-00C5;TVARING">
|
||||
<!ENTITY warning "\U-00E5;tvaring">
|
||||
<!ENTITY Warning "\U-00C5;tvaring">
|
||||
<!ENTITY warning "\U-00E5;tvaring">
|
||||
<!ENTITY appendix "tillegg">
|
||||
<!ENTITY chapter "kapittel">
|
||||
<!ENTITY section "del">
|
||||
<!ENTITY step "steg">
|
||||
<!ENTITY Seealso "Sj\U-00E5; \U-00F2;g">
|
||||
<!ENTITY seealso "sj\U-00E5; \U-00F2;g">
|
||||
<!ENTITY TableofContents "Innhald">
|
||||
<!ENTITY tableofcontents "Innhald">
|
||||
<!ENTITY in "i">
|
||||
<!ENTITY by "av">
|
||||
<!ENTITY Edited "Redigert">
|
||||
<!ENTITY edited "redigert">
|
||||
<!ENTITY Editedby "Redigert av">
|
||||
<!ENTITY editedby "redigert av">
|
||||
<!ENTITY and "og">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY Notes "Merknader">
|
||||
<!ENTITY notes "merknader">
|
||||
<!ENTITY TableNotes "Merknader">
|
||||
<!ENTITY tablenotes "merknader">
|
||||
<!ENTITY nonexistantelement "ikkje-eksisterande element">
|
||||
<!ENTITY Pgs "Sider">
|
||||
<!ENTITY pgs "sider">
|
||||
<!ENTITY unsupported "ikkje st\U-00F8;tta">
|
||||
<!ENTITY xrefto "xref til">
|
||||
<!ENTITY unexpectedelementname "UVENTA-ELEMENTNAVN">
|
||||
<!ENTITY Revisedby "Revidert av: ">
|
||||
<!ENTITY revisedby "revidert av: ">
|
||||
<!ENTITY ListofTables "Tabelloversikt">
|
||||
<!ENTITY listoftables "tabelloversikt">
|
||||
<!ENTITY ListofExamples "D\U-00F8;meoversikt">
|
||||
<!ENTITY listofexamples "d\U-00F8;meoversikt">
|
||||
<!ENTITY ListofFigures "Figuroversikt">
|
||||
<!ENTITY listoffigures "figuroversikt">
|
||||
<!ENTITY ListofEquations "Formeloversikt">
|
||||
<!ENTITY listofequations "formeloversikt">
|
||||
<!ENTITY ListofUnknown "???-oversikt">
|
||||
<!ENTITY listofunknown "???-oversikt">
|
||||
<!ENTITY nav-prev "Att">
|
||||
<!ENTITY nav-prev-sibling "Raskt bakover">
|
||||
<!ENTITY nav-next-sibling "Raskt framover">
|
||||
<!ENTITY nav-next "Fram">
|
||||
<!ENTITY nav-up "Opp">
|
||||
<!ENTITY nav-home "Heim">
|
||||
437
docs/dsssl/docbook/common/dbl1no.dsl
Executable file
437
docs/dsssl/docbook/common/dbl1no.dsl
Executable file
@@ -0,0 +1,437 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % lat1 PUBLIC "ISO 8879:1986//ENTITIES Added Latin 1//EN">
|
||||
%lat1;
|
||||
<!ENTITY % no.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//NO"
|
||||
"dbl1no.ent">
|
||||
%no.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-no">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; This file is part of the Modular DocBook Stylesheet distribution.
|
||||
;; See ../README or http://nwalsh.com/docbook/dsssl/
|
||||
;;
|
||||
|
||||
;; ----------------------------- Localization -----------------------------
|
||||
|
||||
;; Norsk Bokm\U-00E5;l localization. (a-ring)
|
||||
;; Translated by Stig S. Bakken, ssb@guardian.no
|
||||
;; Send changes 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 (no-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 (no-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"tillegget kalt %t"))
|
||||
(list (normalize "article") (string-append %gentext-no-start-quote%
|
||||
"%t"
|
||||
%gentext-no-end-quote%))
|
||||
(list (normalize "bibliography") "%t")
|
||||
(list (normalize "book") "%t")
|
||||
(list (normalize "chapter") (if %chapter-autolabel%
|
||||
"&Chapter; %n"
|
||||
"kapittelet kalt %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"
|
||||
"seksjonen kalt %t"))
|
||||
(list (normalize "sect1") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"seksjonen kalt %t"))
|
||||
(list (normalize "sect2") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"seksjonen kalt %t"))
|
||||
(list (normalize "sect3") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"seksjonen kalt %t"))
|
||||
(list (normalize "sect4") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"seksjonen kalt %t"))
|
||||
(list (normalize "sect5") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"seksjonen kalt %t"))
|
||||
(list (normalize "simplesect") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"seksjonen kalt %t"))
|
||||
(list (normalize "sidebar") "&sidebar; %t")
|
||||
(list (normalize "step") "&step; %n")
|
||||
(list (normalize "table") "&Table; %n")))
|
||||
|
||||
(define (gentext-no-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (no-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 (no-auto-xref-indirect-connector before)
|
||||
(literal " ∈ "))
|
||||
|
||||
;; Should the TOC come first or last?
|
||||
;;
|
||||
(define %generate-no-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (no-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-no-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (no-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-no-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-no-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-no-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (no-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-no-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-no-intra-label-sep)))
|
||||
(sep (assoc name (no-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-no-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (no-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-no-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-no-label-title-sep)))
|
||||
(sep (assoc name (no-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (no-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 (no-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (no-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (no-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-no$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (no-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-no-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-no-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-no-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-no-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-no-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-no-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-no-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-no-page% "")
|
||||
|
||||
(define %gentext-no-and% "∧")
|
||||
|
||||
(define %gentext-no-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-no-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-no-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-no-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-no-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-no-index-see% "&See;")
|
||||
|
||||
(define %gentext-no-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-no-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-no-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-no-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-no-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-no-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-no-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
146
docs/dsssl/docbook/common/dbl1no.ent
Executable file
146
docs/dsssl/docbook/common/dbl1no.ent
Executable file
@@ -0,0 +1,146 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "Abstract">
|
||||
<!ENTITY abstract "Abstract">
|
||||
<!ENTITY Answer "A:">
|
||||
<!ENTITY answer "A:">
|
||||
<!ENTITY Appendix "Tillegg">
|
||||
<!ENTITY appendix "Tillegg">
|
||||
<!ENTITY Article "">
|
||||
<!ENTITY article "">
|
||||
<!ENTITY Bibliography "Bibliografi">
|
||||
<!ENTITY bibliography "Bibliografi">
|
||||
<!ENTITY Book "">
|
||||
<!ENTITY book "">
|
||||
<!ENTITY Caution "Obs">
|
||||
<!ENTITY caution "Obs">
|
||||
<!ENTITY CAUTION "OBS">
|
||||
<!ENTITY Chapter "Kapittel">
|
||||
<!ENTITY chapter "Kapittel">
|
||||
<!ENTITY Colophon "Colophon">
|
||||
<!ENTITY colophon "Colophon">
|
||||
<!ENTITY Copyright "Copyright">
|
||||
<!ENTITY copyright "Copyright">
|
||||
<!ENTITY Dedication "Dedikasjon">
|
||||
<!ENTITY dedication "Dedikasjon">
|
||||
<!ENTITY Edition "">
|
||||
<!ENTITY edition "">
|
||||
<!ENTITY Equation "Formel">
|
||||
<!ENTITY equation "Formel">
|
||||
<!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 "VIKTIG">
|
||||
<!ENTITY Important "Viktig">
|
||||
<!ENTITY important "Viktig">
|
||||
<!ENTITY Index "Indeks">
|
||||
<!ENTITY index "Indeks">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY LegalNotice "">
|
||||
<!ENTITY legalnotice "">
|
||||
<!ENTITY MsgAud "Publikum">
|
||||
<!ENTITY msgaud "Publikum">
|
||||
<!ENTITY MsgLevel "Niv\U-00E5;">
|
||||
<!ENTITY msglevel "Niv\U-00E5;">
|
||||
<!ENTITY MsgOrig "Opphav">
|
||||
<!ENTITY msgorig "Opphav">
|
||||
<!ENTITY note "Notat">
|
||||
<!ENTITY NOTE "NOTAT">
|
||||
<!ENTITY Note "Notat">
|
||||
<!ENTITY Part "Del">
|
||||
<!ENTITY part "Del">
|
||||
<!ENTITY Preface "Forord">
|
||||
<!ENTITY preface "Forord">
|
||||
<!ENTITY Procedure "Prosedyre">
|
||||
<!ENTITY procedure "Prosedyre">
|
||||
<!ENTITY Published "">
|
||||
<!ENTITY published "">
|
||||
<!ENTITY Question "Q:">
|
||||
<!ENTITY question "Q:">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "Referanse">
|
||||
<!ENTITY reference "Referanse">
|
||||
<!ENTITY RefName "Navn">
|
||||
<!ENTITY refname "Navn">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "Synopsis">
|
||||
<!ENTITY refsynopsisdiv "Synopsis">
|
||||
<!ENTITY RevHistory "Revisjonshistorie">
|
||||
<!ENTITY revhistory "Revisjonshistorie">
|
||||
<!ENTITY Revision "Revisjon">
|
||||
<!ENTITY revision "Revisjon">
|
||||
<!ENTITY Section "Seksjon">
|
||||
<!ENTITY section "seksjon">
|
||||
<!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 "">
|
||||
<!ENTITY Set "">
|
||||
<!ENTITY SetIndex "Indeks">
|
||||
<!ENTITY setindex "Indeks">
|
||||
<!ENTITY sidebar "">
|
||||
<!ENTITY Sidebar "">
|
||||
<!ENTITY step "steg">
|
||||
<!ENTITY Step "Steg">
|
||||
<!ENTITY Table "Tabell">
|
||||
<!ENTITY table "Tabell">
|
||||
<!ENTITY tip "Tips">
|
||||
<!ENTITY TIP "TIPS">
|
||||
<!ENTITY Tip "Tips">
|
||||
<!ENTITY warning "Advarsel">
|
||||
<!ENTITY WARNING "ADVARSEL">
|
||||
<!ENTITY Warning "Advarsel">
|
||||
<!ENTITY and "og">
|
||||
<!ENTITY by "av">
|
||||
<!ENTITY Edited "Redigert">
|
||||
<!ENTITY edited "Redigert">
|
||||
<!ENTITY Editedby "Redigert av">
|
||||
<!ENTITY editedby "Redigert av">
|
||||
<!ENTITY in "i">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "ikke-eksisterende element">
|
||||
<!ENTITY notes "Sluttnotater">
|
||||
<!ENTITY Notes "Sluttnotater">
|
||||
<!ENTITY Pgs "Sdr.">
|
||||
<!ENTITY pgs "Sdr.">
|
||||
<!ENTITY Revisedby "Revised by: ">
|
||||
<!ENTITY revisedby "Revised by: ">
|
||||
<!ENTITY TableNotes "Notater">
|
||||
<!ENTITY tablenotes "Notater">
|
||||
<!ENTITY TableofContents "Innholdsfortegnelse">
|
||||
<!ENTITY tableofcontents "Innholdsfortegnelse">
|
||||
<!ENTITY unexpectedelementname "UVENTET-ELEMENTNAVN">
|
||||
<!ENTITY unsupported "ikke st\U-00F8;ttet">
|
||||
<!ENTITY xrefto "xref til">
|
||||
<!ENTITY listofequations "Formeloversikt">
|
||||
<!ENTITY ListofEquations "Formeloversikt">
|
||||
<!ENTITY ListofExamples "Eksempeloversikt">
|
||||
<!ENTITY listofexamples "Eksempeloversikt">
|
||||
<!ENTITY ListofFigures "Figuroversikt">
|
||||
<!ENTITY listoffigures "Figuroversikt">
|
||||
<!ENTITY listoftables "Tabelloversikt">
|
||||
<!ENTITY ListofTables "Tabelloversikt">
|
||||
<!ENTITY ListofUnknown "???-oversikt">
|
||||
<!ENTITY listofunknown "???-oversikt">
|
||||
<!ENTITY nav-home "Hjem">
|
||||
<!ENTITY nav-next "Neste">
|
||||
<!ENTITY nav-next-sibling "Raskt Fremover">
|
||||
<!ENTITY nav-prev "Forrige">
|
||||
<!ENTITY nav-prev-sibling "Raskt Bakover">
|
||||
<!ENTITY nav-up "Opp">
|
||||
12
docs/dsssl/docbook/common/dbl1null.dsl
Executable file
12
docs/dsssl/docbook/common/dbl1null.dsl
Executable file
@@ -0,0 +1,12 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="dbl1null">
|
||||
<style-specification-body>
|
||||
|
||||
;; No definitions...
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
434
docs/dsssl/docbook/common/dbl1pl.dsl
Executable file
434
docs/dsssl/docbook/common/dbl1pl.dsl
Executable file
@@ -0,0 +1,434 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % pl.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//PL"
|
||||
"dbl1pl.ent">
|
||||
%pl.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-pl">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; This file is part of the Modular DocBook Stylesheet distribution.
|
||||
;; See ../README or http://nwalsh.com/docbook/dsssl/
|
||||
;;
|
||||
|
||||
;; ----------------------------- Localization -----------------------------
|
||||
|
||||
;; Polish localization.
|
||||
|
||||
;; If you create a new version of this file, please send it to
|
||||
;; Norman Walsh, ndw@nwalsh.com
|
||||
|
||||
;; Contributors:
|
||||
;; Rafa\263 Kleger-Rudomin, ip011@osi.gda.pl
|
||||
|
||||
(define (pl-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 (pl-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"dodatek %t"))
|
||||
(list (normalize "article") (string-append %gentext-pl-start-quote%
|
||||
"%t"
|
||||
%gentext-pl-end-quote%))
|
||||
(list (normalize "bibliography") "%t")
|
||||
(list (normalize "book") "%t")
|
||||
(list (normalize "chapter") (if %chapter-autolabel%
|
||||
"&Chapter; %n"
|
||||
"rozdzia³ %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"
|
||||
"sekcja %t"))
|
||||
(list (normalize "sect1") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"sekcja %t"))
|
||||
(list (normalize "sect2") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"sekcja %t"))
|
||||
(list (normalize "sect3") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"sekcja %t"))
|
||||
(list (normalize "sect4") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"sekcja %t"))
|
||||
(list (normalize "sect5") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"sekcja %t"))
|
||||
(list (normalize "simplesect") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"sekcja %t"))
|
||||
(list (normalize "sidebar") "&sidebar; %t")
|
||||
(list (normalize "step") "&step; %n")
|
||||
(list (normalize "table") "&Table; %n")))
|
||||
|
||||
(define (gentext-pl-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (pl-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 (pl-auto-xref-indirect-connector before)
|
||||
(literal " ∈ "))
|
||||
|
||||
;; Should the TOC come first or last?
|
||||
;;
|
||||
(define %generate-pl-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (pl-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-pl-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (pl-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-pl-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-pl-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-pl-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (pl-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-pl-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-pl-intra-label-sep)))
|
||||
(sep (assoc name (pl-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-pl-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (pl-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-pl-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-pl-label-title-sep)))
|
||||
(sep (assoc name (pl-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (pl-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 (pl-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (pl-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (pl-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-pl$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (pl-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-pl-start-quote% (dingbat "ldquor"))
|
||||
|
||||
(define %gentext-pl-end-quote% (dingbat "rdquor"))
|
||||
|
||||
(define %gentext-pl-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-pl-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-pl-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-pl-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-pl-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-pl-page% "")
|
||||
|
||||
(define %gentext-pl-and% "∧")
|
||||
|
||||
(define %gentext-pl-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-pl-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-pl-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-pl-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-pl-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-pl-index-see% "&See;")
|
||||
|
||||
(define %gentext-pl-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-pl-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-pl-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-pl-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-pl-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-pl-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-pl-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
138
docs/dsssl/docbook/common/dbl1pl.ent
Executable file
138
docs/dsssl/docbook/common/dbl1pl.ent
Executable file
@@ -0,0 +1,138 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "Abstrakt">
|
||||
<!ENTITY abstract "Abstrakt">
|
||||
<!ENTITY Answer "Odp:">
|
||||
<!ENTITY Appendix "Dodatek">
|
||||
<!ENTITY appendix "dodatek">
|
||||
<!ENTITY Article "Artyku\U-0142;">
|
||||
<!ENTITY article "Artyku\U-0142;">
|
||||
<!ENTITY Bibliography "Bibliografia">
|
||||
<!ENTITY bibliography "Bibliografia">
|
||||
<!ENTITY Book "Ksi\U-0105;\U-017C;ka">
|
||||
<!ENTITY book "Ksi\U-0105;\U-017C;ka">
|
||||
<!ENTITY CAUTION "PRZYPADEK">
|
||||
<!ENTITY Caution "Uwaga!">
|
||||
<!ENTITY caution "Uwaga!">
|
||||
<!ENTITY Chapter "Rozdzia\U-0142;">
|
||||
<!ENTITY chapter "rozdzia\U-0142;;">
|
||||
<!ENTITY Colophon "Colophon">
|
||||
<!ENTITY colophon "Colophon">
|
||||
<!ENTITY Copyright "Copyright">
|
||||
<!ENTITY copyright "Copyright">
|
||||
<!ENTITY Dedication "Dedykacja">
|
||||
<!ENTITY dedication "Dedykacja">
|
||||
<!ENTITY Edition "Wydanie">
|
||||
<!ENTITY edition "Wydanie">
|
||||
<!ENTITY Equation "R\U-00F3;wnanie">
|
||||
<!ENTITY equation "R\U-00F3;wnanie">
|
||||
<!ENTITY Example "Przyk\U-0142;ad">
|
||||
<!ENTITY example "Przyk\U-0142;ad">
|
||||
<!ENTITY Figure "Rysunek">
|
||||
<!ENTITY figure "Rysunek">
|
||||
<!ENTITY Glossary "Glossary">
|
||||
<!ENTITY glossary "Glossary">
|
||||
<!ENTITY GlossSee "Patrz">
|
||||
<!ENTITY glosssee "Patrz">
|
||||
<!ENTITY GlossSeeAlso "Patrz te\U-017C;">
|
||||
<!ENTITY glossseealso "Patrz te\U-017C;">
|
||||
<!ENTITY Important "WA\U-017B;NE">
|
||||
<!ENTITY important "WA\U-017B;NE">
|
||||
<!ENTITY Index "Indeks">
|
||||
<!ENTITY index "Indeks">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY LegalNotice "">
|
||||
<!ENTITY legalnotice "">
|
||||
<!ENTITY MsgAud "Odbiorcy">
|
||||
<!ENTITY msgaud "Odbiorcy">
|
||||
<!ENTITY MsgLevel "Poziom">
|
||||
<!ENTITY msglevel "Poziom">
|
||||
<!ENTITY MsgOrig "Nadawca">
|
||||
<!ENTITY msgorig "Nadawca">
|
||||
<!ENTITY Note "Notatka">
|
||||
<!ENTITY note "Notatka">
|
||||
<!ENTITY Part "Cz\U-0119;\U-015B;\U-0107;">
|
||||
<!ENTITY part "Cz\U-0119;\U-015B;\U-0107;">
|
||||
<!ENTITY Preface "Przedmowa">
|
||||
<!ENTITY preface "Przedmowa">
|
||||
<!ENTITY Procedure "Procedura">
|
||||
<!ENTITY procedure "Procedura">
|
||||
<!ENTITY Published "Data wydania">
|
||||
<!ENTITY published "Data wydania">
|
||||
<!ENTITY Question "Pyt:">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "Materia\U-0142;y \U-017A;r\U-00F3;d\U-0142;owe">
|
||||
<!ENTITY reference "Materia\U-0142;y \U-017A;r\U-00F3;d\U-0142;owe">
|
||||
<!ENTITY RefName "Nazwa">
|
||||
<!ENTITY refname "Nazwa">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "Synopsis">
|
||||
<!ENTITY refsynopsisdiv "Synopsis">
|
||||
<!ENTITY RevHistory "Historia zmian">
|
||||
<!ENTITY revhistory "Historia zmian">
|
||||
<!ENTITY Revision "Zmiana">
|
||||
<!ENTITY revision "Zmiana">
|
||||
<!ENTITY Section "Sekcja">
|
||||
<!ENTITY section "sekcja">
|
||||
<!ENTITY See "Patrz">
|
||||
<!ENTITY see "Patrz">
|
||||
<!ENTITY SeeAlso "Patrz te\U-017C;">
|
||||
<!ENTITY Seealso "Patrz te\U-017C;">
|
||||
<!ENTITY seealso "Patrz te\U-017C;">
|
||||
<!ENTITY Set "Set">
|
||||
<!ENTITY set "Set">
|
||||
<!ENTITY SetIndex "Indeks">
|
||||
<!ENTITY setindex "Indeks">
|
||||
<!ENTITY Sidebar "">
|
||||
<!ENTITY sidebar "">
|
||||
<!ENTITY Step "krok">
|
||||
<!ENTITY step "krok">
|
||||
<!ENTITY Table "Tabela">
|
||||
<!ENTITY table "Tabela">
|
||||
<!ENTITY Tip "Podpowied\U-017A;">
|
||||
<!ENTITY tip "Podpowied\U-017A;">
|
||||
<!ENTITY Warning "Ostrze\U-017C;enie">
|
||||
<!ENTITY warning "Ostrze\U-017C;enie">
|
||||
<!ENTITY and "i">
|
||||
<!ENTITY by "">
|
||||
<!ENTITY Editedby "Redakcja: ">
|
||||
<!ENTITY editedby "Redakcja: ">
|
||||
<!ENTITY in "w">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "nie istniej\U-0105;cy element">
|
||||
<!ENTITY notes "Przypisy">
|
||||
<!ENTITY Notes "Przypisy">
|
||||
<!ENTITY Pgs "stron">
|
||||
<!ENTITY pgs "stron">
|
||||
<!ENTITY Revisedby "Revised by: ">
|
||||
<!ENTITY revisedby "Revised by: ">
|
||||
<!ENTITY TableNotes "Przypisy">
|
||||
<!ENTITY tablenotes "Przypisy">
|
||||
<!ENTITY TableofContents "Spis tre\U-015B;ci">
|
||||
<!ENTITY tableofcontents "Spis tre\U-015B;ci">
|
||||
<!ENTITY unexpectedelementname "Unexpected element name">
|
||||
<!ENTITY unsupported "nie wspierany">
|
||||
<!ENTITY xrefto "xref to">
|
||||
<!ENTITY listofequations "Spis r\U-00F3;wna\U-0144;">
|
||||
<!ENTITY ListofEquations "Spis r\U-00F3;wna\U-0144;">
|
||||
<!ENTITY ListofExamples "Spis przyk\U-0142;ad\U-00F3;w">
|
||||
<!ENTITY listofexamples "Spis przyk\U-0142;ad\U-00F3;w">
|
||||
<!ENTITY ListofFigures "Spis rysunk\U-00F3;w">
|
||||
<!ENTITY listoffigures "Spis rysunk\U-00F3;w">
|
||||
<!ENTITY listoftables "Spis tabel">
|
||||
<!ENTITY ListofTables "Spis tabel">
|
||||
<!ENTITY ListofUnknown "Spis ???">
|
||||
<!ENTITY listofunknown "Spis ???">
|
||||
<!ENTITY nav-home "Spis tre\U-015B;ci">
|
||||
<!ENTITY nav-next "Nast\U-0119;pny">
|
||||
<!ENTITY nav-next-sibling "Nast\U-0119;pny rozdzia\U-0142;">
|
||||
<!ENTITY nav-prev "Poprzedni">
|
||||
<!ENTITY nav-prev-sibling "Poprzedni rozdzia\U-0142;">
|
||||
<!ENTITY nav-up "Pocz\U-0105;tek rozdzia\U-0142;u">
|
||||
433
docs/dsssl/docbook/common/dbl1pt.dsl
Executable file
433
docs/dsssl/docbook/common/dbl1pt.dsl
Executable file
@@ -0,0 +1,433 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % pt.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//PT"
|
||||
"dbl1pt.ent">
|
||||
%pt.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-pt">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; 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 (pt-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 (pt-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"o &appendix; %t"))
|
||||
(list (normalize "article") (string-append %gentext-pt-start-quote%
|
||||
"%t"
|
||||
%gentext-pt-end-quote%))
|
||||
(list (normalize "bibliography") "%t")
|
||||
(list (normalize "book") "%t")
|
||||
(list (normalize "chapter") (if %chapter-autolabel%
|
||||
"&Chapter; %n"
|
||||
"o &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"
|
||||
"o §ion; %t"))
|
||||
(list (normalize "sect1") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"o §ion; %t"))
|
||||
(list (normalize "sect2") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"o §ion; %t"))
|
||||
(list (normalize "sect3") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"o §ion; %t"))
|
||||
(list (normalize "sect4") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"o §ion; %t"))
|
||||
(list (normalize "sect5") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"o §ion; %t"))
|
||||
(list (normalize "simplesect") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"o §ion; %t"))
|
||||
(list (normalize "sidebar") "&sidebar; %t")
|
||||
(list (normalize "step") "&step; %n")
|
||||
(list (normalize "table") "&Table; %n")))
|
||||
|
||||
(define (gentext-pt-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (pt-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 (pt-auto-xref-indirect-connector before)
|
||||
(literal " ∈ "))
|
||||
|
||||
;; Should the TOC come first or last?
|
||||
;;
|
||||
(define %generate-pt-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (pt-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-pt-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (pt-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-pt-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-pt-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-pt-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (pt-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-pt-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-pt-intra-label-sep)))
|
||||
(sep (assoc name (pt-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-pt-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (pt-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-pt-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-pt-label-title-sep)))
|
||||
(sep (assoc name (pt-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (pt-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 (pt-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (pt-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (pt-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-pt$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (pt-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-pt-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-pt-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-pt-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-pt-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-pt-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-pt-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-pt-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-pt-page% "")
|
||||
|
||||
(define %gentext-pt-and% "∧")
|
||||
|
||||
(define %gentext-pt-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-pt-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-pt-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-pt-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-pt-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-pt-index-see% "&See;")
|
||||
|
||||
(define %gentext-pt-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-pt-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-pt-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-pt-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-pt-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-pt-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-pt-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
148
docs/dsssl/docbook/common/dbl1pt.ent
Executable file
148
docs/dsssl/docbook/common/dbl1pt.ent
Executable file
@@ -0,0 +1,148 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "Resumo">
|
||||
<!ENTITY abstract "Resumo">
|
||||
<!ENTITY Answer "R:">
|
||||
<!ENTITY answer "R:">
|
||||
<!ENTITY Appendix "Ap\U-00EA;ndice">
|
||||
<!ENTITY appendix "ap\U-00EA;ndice">
|
||||
<!ENTITY Article "Artigo">
|
||||
<!ENTITY article "Artigo">
|
||||
<!ENTITY Bibliography "Bibliografia">
|
||||
<!ENTITY bibliography "Bibliografia">
|
||||
<!ENTITY Book "Livro">
|
||||
<!ENTITY book "Livro">
|
||||
<!ENTITY Caution "Cautela">
|
||||
<!ENTITY caution "Cautela">
|
||||
<!ENTITY CAUTION "CAUTELA">
|
||||
<!ENTITY Chapter "Cap\U-00ED;tulo">
|
||||
<!ENTITY chapter "cap\U-00ED;tulo">
|
||||
<!ENTITY Colophon "Colophon">
|
||||
<!ENTITY colophon "Colophon">
|
||||
<!ENTITY Copyright "Copyright">
|
||||
<!ENTITY copyright "Copyright">
|
||||
<!ENTITY Dedication "Dedicat\U-00F3;ria">
|
||||
<!ENTITY dedication "Dedicat\U-00F3;ria">
|
||||
<!ENTITY Edition "Edi\U-00E7;\U-00E3;o">
|
||||
<!ENTITY edition "Edi\U-00E7;\U-00E3;o">
|
||||
<!ENTITY Equation "Equa\U-00E7;\U-00E3;o">
|
||||
<!ENTITY equation "Equa\U-00E7;\U-00E3;o">
|
||||
<!ENTITY Example "Exemplo">
|
||||
<!ENTITY example "Exemplo">
|
||||
<!ENTITY Figure "Figura">
|
||||
<!ENTITY figure "Figura">
|
||||
<!ENTITY Glossary "Glossario">
|
||||
<!ENTITY glossary "Glossario">
|
||||
<!ENTITY GlossSee "Ver">
|
||||
<!ENTITY glosssee "Ver">
|
||||
<!ENTITY GlossSeeAlso "Ver Tamb\U-00E9;m">
|
||||
<!ENTITY glossseealso "Ver Tamb\U-00E9;m">
|
||||
<!ENTITY IMPORTANT "IMPORTANTE">
|
||||
<!ENTITY Important "Importante">
|
||||
<!ENTITY important "Importante">
|
||||
<!ENTITY Index "Index">
|
||||
<!ENTITY index "Index">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY LegalNotice "">
|
||||
<!ENTITY legalnotice "">
|
||||
<!ENTITY MsgAud "Audi\U-00EA;ncia">
|
||||
<!ENTITY msgaud "Audi\U-00EA;ncia">
|
||||
<!ENTITY MsgLevel "N\U-00ED;vel">
|
||||
<!ENTITY msglevel "N\U-00ED;vel">
|
||||
<!ENTITY MsgOrig "Origem">
|
||||
<!ENTITY msgorig "Origem">
|
||||
<!ENTITY note "Nota">
|
||||
<!ENTITY NOTE "NOTA">
|
||||
<!ENTITY Note "Nota">
|
||||
<!ENTITY Part "Parte">
|
||||
<!ENTITY part "Parte">
|
||||
<!ENTITY Preface "Pref\U-00E1;cio">
|
||||
<!ENTITY preface "Pref\U-00E1;cio">
|
||||
<!ENTITY Procedure "Procedimento">
|
||||
<!ENTITY procedure "Procedimento">
|
||||
<!ENTITY PubDate "Editado">
|
||||
<!ENTITY pubdate "Editado">
|
||||
<!ENTITY Published "Publicado">
|
||||
<!ENTITY published "Publicado">
|
||||
<!ENTITY Question "P:">
|
||||
<!ENTITY question "P:">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "Refer\U-00EA;ncia">
|
||||
<!ENTITY reference "Refer\U-00EA;ncia">
|
||||
<!ENTITY RefName "Nome">
|
||||
<!ENTITY refname "Nome">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "Synopsis">
|
||||
<!ENTITY refsynopsisdiv "Synopsis">
|
||||
<!ENTITY RevHistory "Hitorial de Revis\U-00F5;es">
|
||||
<!ENTITY revhistory "Hitorial de Revis\U-00F5;es">
|
||||
<!ENTITY Revision "Revis\U-00E3;o">
|
||||
<!ENTITY revision "Revis\U-00E3;o">
|
||||
<!ENTITY Section "Sec\U-00E7;\U-00E3;o">
|
||||
<!ENTITY section "sec\U-00E7;\U-00E3;o">
|
||||
<!ENTITY see "Ver">
|
||||
<!ENTITY See "Ver">
|
||||
<!ENTITY seealso "Ver Tamb\U-00E9;m">
|
||||
<!ENTITY SeeAlso "Ver Tamb\U-00E9;m">
|
||||
<!ENTITY Seealso "ver tamb\U-00E9;m">
|
||||
<!ENTITY Set "Set">
|
||||
<!ENTITY set "Set">
|
||||
<!ENTITY SetIndex "Set Index">
|
||||
<!ENTITY setindex "Set Index">
|
||||
<!ENTITY Sidebar "Sidebar">
|
||||
<!ENTITY sidebar "sidebar">
|
||||
<!ENTITY step "passo">
|
||||
<!ENTITY Step "Passo">
|
||||
<!ENTITY Table "Tabela">
|
||||
<!ENTITY table "Tabela">
|
||||
<!ENTITY TIP "DICA">
|
||||
<!ENTITY Tip "Dica">
|
||||
<!ENTITY tip "Dica">
|
||||
<!ENTITY WARNING "ATEN\U-00C7;\U-00C3;O">
|
||||
<!ENTITY warning "Aten\U-00E7;\U-00E3;o">
|
||||
<!ENTITY Warning "Aten\U-00E7;\U-00E3;o">
|
||||
<!ENTITY and "e">
|
||||
<!ENTITY by "por">
|
||||
<!ENTITY Edited "Editado">
|
||||
<!ENTITY edited "Editado">
|
||||
<!ENTITY Editedby "Editado por">
|
||||
<!ENTITY editedby "Editado por">
|
||||
<!ENTITY in "">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "non-existant element">
|
||||
<!ENTITY notes "Notas">
|
||||
<!ENTITY Notes "Notas">
|
||||
<!ENTITY Pgs "P\U-00E1;ginas">
|
||||
<!ENTITY pgs "P\U-00E1;ginas">
|
||||
<!ENTITY Revisedby "Revised by: ">
|
||||
<!ENTITY revisedby "Revised by: ">
|
||||
<!ENTITY TableNotes "Notas">
|
||||
<!ENTITY tablenotes "Notas">
|
||||
<!ENTITY TableofContents "\U-00CD;ndice">
|
||||
<!ENTITY tableofcontents "\U-00CD;ndice">
|
||||
<!ENTITY unexpectedelementname "Unexpected element name">
|
||||
<!ENTITY unsupported "unsupported">
|
||||
<!ENTITY xrefto "xref to">
|
||||
<!ENTITY listofequations "Lista de Equa\U-00E7;\U-00F5;es">
|
||||
<!ENTITY ListofEquations "Lista de Equa\U-00E7;\U-00F5;es">
|
||||
<!ENTITY ListofExamples "Lista de Exemplos">
|
||||
<!ENTITY listofexamples "Lista de Exemplos">
|
||||
<!ENTITY ListofFigures "Lista de Figuras">
|
||||
<!ENTITY listoffigures "Lista de Figuras">
|
||||
<!ENTITY listoftables "Lista de Tabelas">
|
||||
<!ENTITY ListofTables "Lista de Tabelas">
|
||||
<!ENTITY ListofUnknown "List of ???">
|
||||
<!ENTITY listofunknown "List of ???">
|
||||
<!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">
|
||||
434
docs/dsssl/docbook/common/dbl1ptbr.dsl
Executable file
434
docs/dsssl/docbook/common/dbl1ptbr.dsl
Executable file
@@ -0,0 +1,434 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % ptbr.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//PTBR"
|
||||
"dbl1ptbr.ent">
|
||||
%ptbr.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-ptbr">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; 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 (ptbr-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 (ptbr-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"o &appendix; %t"))
|
||||
(list (normalize "article") (string-append %gentext-ptbr-start-quote%
|
||||
"%t"
|
||||
%gentext-ptbr-end-quote%))
|
||||
(list (normalize "bibliography") "%t")
|
||||
(list (normalize "book") "%t")
|
||||
(list (normalize "chapter") (if %chapter-autolabel%
|
||||
"&Chapter; %n"
|
||||
"o &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"
|
||||
"a §ion; %t"))
|
||||
(list (normalize "sect1") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"a §ion; %t"))
|
||||
(list (normalize "sect2") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"a §ion; %t"))
|
||||
(list (normalize "sect3") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"a §ion; %t"))
|
||||
(list (normalize "sect4") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"a §ion; %t"))
|
||||
(list (normalize "sect5") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"a §ion; %t"))
|
||||
(list (normalize "simplesect") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"a §ion; %t"))
|
||||
(list (normalize "sidebar") "&sidebar; %t")
|
||||
(list (normalize "step") "&step; %n")
|
||||
(list (normalize "table") "&Table; %n")))
|
||||
|
||||
(define (gentext-ptbr-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (ptbr-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 (ptbr-auto-xref-indirect-connector before)
|
||||
(literal " ∈ "))
|
||||
|
||||
;; Should the TOC come first or last?
|
||||
;;
|
||||
(define %generate-ptbr-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (ptbr-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 "notes") "&Notes;")
|
||||
(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-ptbr-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (ptbr-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-ptbr-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-ptbr-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-ptbr-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (ptbr-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-ptbr-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-ptbr-intra-label-sep)))
|
||||
(sep (assoc name (ptbr-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-ptbr-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (ptbr-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-ptbr-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-ptbr-label-title-sep)))
|
||||
(sep (assoc name (ptbr-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (ptbr-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 (ptbr-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (ptbr-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (ptbr-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-ptbr$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (ptbr-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-ptbr-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-ptbr-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-ptbr-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-ptbr-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-ptbr-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-ptbr-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-ptbr-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-ptbr-page% "")
|
||||
|
||||
(define %gentext-ptbr-and% "∧")
|
||||
|
||||
(define %gentext-ptbr-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-ptbr-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-ptbr-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-ptbr-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-ptbr-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-ptbr-index-see% "&See;")
|
||||
|
||||
(define %gentext-ptbr-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-ptbr-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-ptbr-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-ptbr-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-ptbr-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-ptbr-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-ptbr-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
148
docs/dsssl/docbook/common/dbl1ptbr.ent
Executable file
148
docs/dsssl/docbook/common/dbl1ptbr.ent
Executable file
@@ -0,0 +1,148 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "Resumo">
|
||||
<!ENTITY abstract "Resumo">
|
||||
<!ENTITY Answer "R:">
|
||||
<!ENTITY answer "R:">
|
||||
<!ENTITY Appendix "Ap\U-00EA;ndice">
|
||||
<!ENTITY appendix "ap\U-00EA;ndice">
|
||||
<!ENTITY Article "Artigo">
|
||||
<!ENTITY article "Artigo">
|
||||
<!ENTITY Bibliography "Bibliografia">
|
||||
<!ENTITY bibliography "Bibliografia">
|
||||
<!ENTITY Book "Livro">
|
||||
<!ENTITY book "Livro">
|
||||
<!ENTITY Caution "Cuidado">
|
||||
<!ENTITY caution "Cuidado">
|
||||
<!ENTITY CAUTION "CUIDADO">
|
||||
<!ENTITY Chapter "Cap\U-00ED;tulo">
|
||||
<!ENTITY chapter "cap\U-00ED;tulo">
|
||||
<!ENTITY Colophon "Considera\U-00E7;\U-00F5;es finais">
|
||||
<!ENTITY colophon "Considera\U-00E7;\U-00F5;es finais">
|
||||
<!ENTITY Copyright "Copyright">
|
||||
<!ENTITY copyright "Copyright">
|
||||
<!ENTITY Dedication "Dedicat\U-00F3;ria">
|
||||
<!ENTITY dedication "Dedicat\U-00F3;ria">
|
||||
<!ENTITY Edition "Edi\U-00E7;\U-00E3;o">
|
||||
<!ENTITY edition "Edi\U-00E7;\U-00E3;o">
|
||||
<!ENTITY Equation "Equa\U-00E7;\U-00E3;o">
|
||||
<!ENTITY equation "Equa\U-00E7;\U-00E3;o">
|
||||
<!ENTITY Example "Exemplo">
|
||||
<!ENTITY example "Exemplo">
|
||||
<!ENTITY Figure "Figura">
|
||||
<!ENTITY figure "Figura">
|
||||
<!ENTITY Glossary "Gloss\U-00E1;rio">
|
||||
<!ENTITY glossary "Gloss\U-00E1;rio">
|
||||
<!ENTITY GlossSee "Ver">
|
||||
<!ENTITY glosssee "Ver">
|
||||
<!ENTITY GlossSeeAlso "Ver Tamb\U-00E9;m">
|
||||
<!ENTITY glossseealso "Ver Tamb\U-00E9;m">
|
||||
<!ENTITY IMPORTANT "IMPORTANTE">
|
||||
<!ENTITY Important "Importante">
|
||||
<!ENTITY important "Importante">
|
||||
<!ENTITY Index "\U-00CD;ndice Remissivo">
|
||||
<!ENTITY index "\U-00CD;ndice Remissivo">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY LegalNotice "Nota Legal">
|
||||
<!ENTITY legalnotice "Nota Legal">
|
||||
<!ENTITY MsgAud "Audi\U-00EA;ncia">
|
||||
<!ENTITY msgaud "Audi\U-00EA;ncia">
|
||||
<!ENTITY MsgLevel "N\U-00ED;vel">
|
||||
<!ENTITY msglevel "N\U-00ED;vel">
|
||||
<!ENTITY MsgOrig "Origem">
|
||||
<!ENTITY msgorig "Origem">
|
||||
<!ENTITY note "Nota">
|
||||
<!ENTITY NOTE "NOTA">
|
||||
<!ENTITY Note "Nota">
|
||||
<!ENTITY Part "Parte">
|
||||
<!ENTITY part "Parte">
|
||||
<!ENTITY Preface "Pref\U-00E1;cio">
|
||||
<!ENTITY preface "Pref\U-00E1;cio">
|
||||
<!ENTITY Procedure "Procedimento">
|
||||
<!ENTITY procedure "Procedimento">
|
||||
<!ENTITY PubDate "Data de Publica\U-00E7;\U-00E3;o">
|
||||
<!ENTITY pubdate "Data de Publica\U-00E7;\U-00E3;o">
|
||||
<!ENTITY Published "Publicado">
|
||||
<!ENTITY published "Publicado">
|
||||
<!ENTITY Question "P:">
|
||||
<!ENTITY question "P:">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "Refer\U-00EA;ncia">
|
||||
<!ENTITY reference "Refer\U-00EA;ncia">
|
||||
<!ENTITY RefName "Nome">
|
||||
<!ENTITY refname "Nome">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "Sinopse">
|
||||
<!ENTITY refsynopsisdiv "Sinopse">
|
||||
<!ENTITY RevHistory "Hist\U-00F3;rico de Revis\U-00F5;es">
|
||||
<!ENTITY revhistory "Hist\U-00F3;rico de Revis\U-00F5;es">
|
||||
<!ENTITY Revision "Revis\U-00E3;o">
|
||||
<!ENTITY revision "Revis\U-00E3;o">
|
||||
<!ENTITY Section "Se\U-00E7;\U-00E3;o">
|
||||
<!ENTITY section "se\U-00E7;\U-00E3;o">
|
||||
<!ENTITY see "Ver">
|
||||
<!ENTITY See "Ver">
|
||||
<!ENTITY seealso "Ver Tamb\U-00E9;m">
|
||||
<!ENTITY SeeAlso "Ver Tamb\U-00E9;m">
|
||||
<!ENTITY Seealso "ver tamb\U-00E9;m">
|
||||
<!ENTITY Set "Conjunto">
|
||||
<!ENTITY set "Conjunto">
|
||||
<!ENTITY SetIndex "\U-00CD;ndice do Conjunto">
|
||||
<!ENTITY setindex "\U-00CD;ndice do Conjunto">
|
||||
<!ENTITY Sidebar "Quadro Lateral">
|
||||
<!ENTITY sidebar "quadro lateral">
|
||||
<!ENTITY step "passo">
|
||||
<!ENTITY Step "Passo">
|
||||
<!ENTITY Table "Tabela">
|
||||
<!ENTITY table "Tabela">
|
||||
<!ENTITY TIP "DICA">
|
||||
<!ENTITY Tip "Dica">
|
||||
<!ENTITY tip "Dica">
|
||||
<!ENTITY WARNING "ATEN\U-00C7;\U-00C3;O">
|
||||
<!ENTITY warning "Aten\U-00E7;\U-00E3;o">
|
||||
<!ENTITY Warning "Aten\U-00E7;\U-00E3;o">
|
||||
<!ENTITY and "e">
|
||||
<!ENTITY by "por">
|
||||
<!ENTITY edited "Editado">
|
||||
<!ENTITY Edited "Editado">
|
||||
<!ENTITY editedby "Editado por">
|
||||
<!ENTITY Editedby "Editado por">
|
||||
<!ENTITY in "">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "elemento inexistente">
|
||||
<!ENTITY Notes "Notas">
|
||||
<!ENTITY notes "Notas">
|
||||
<!ENTITY Pgs "P\U-00E1;ginas">
|
||||
<!ENTITY pgs "P\U-00E1;ginas">
|
||||
<!ENTITY Revisedby "Revisado por: ">
|
||||
<!ENTITY revisedby "Revisado por: ">
|
||||
<!ENTITY tablenotes "Notas">
|
||||
<!ENTITY TableNotes "Notas">
|
||||
<!ENTITY TableofContents "\U-00CD;ndice">
|
||||
<!ENTITY tableofcontents "\U-00CD;ndice">
|
||||
<!ENTITY unexpectedelementname "Nome de elemento inesperado">
|
||||
<!ENTITY unsupported "n\U-00E3;o suportado">
|
||||
<!ENTITY xrefto "refer\U-00EA;ncia para">
|
||||
<!ENTITY listofequations "Lista de Equa\U-00E7;\U-00F5;es">
|
||||
<!ENTITY ListofEquations "Lista de Equa\U-00E7;\U-00F5;es">
|
||||
<!ENTITY ListofExamples "Lista de Exemplos">
|
||||
<!ENTITY listofexamples "Lista de Exemplos">
|
||||
<!ENTITY ListofFigures "Lista de Figuras">
|
||||
<!ENTITY listoffigures "Lista de Figuras">
|
||||
<!ENTITY listoftables "Lista de Tabelas">
|
||||
<!ENTITY ListofTables "Lista de Tabelas">
|
||||
<!ENTITY ListofUnknown "Lista de ???">
|
||||
<!ENTITY listofunknown "Lista de ???">
|
||||
<!ENTITY nav-home "Principal">
|
||||
<!ENTITY nav-next "Pr\U-00F3;xima">
|
||||
<!ENTITY nav-next-sibling "Fim">
|
||||
<!ENTITY nav-prev "Anterior">
|
||||
<!ENTITY nav-prev-sibling "In\U-00ED;cio">
|
||||
<!ENTITY nav-up "Acima">
|
||||
434
docs/dsssl/docbook/common/dbl1ro.dsl
Executable file
434
docs/dsssl/docbook/common/dbl1ro.dsl
Executable file
@@ -0,0 +1,434 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % lat1 PUBLIC "ISO 8879:1986//ENTITIES Added Latin 1//EN">
|
||||
%lat1;
|
||||
<!ENTITY % lat2 PUBLIC "ISO 8879:1986//ENTITIES Added Latin 2//EN">
|
||||
%lat2;
|
||||
<!ENTITY % ro.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//RO"
|
||||
"dbl1ro.ent">
|
||||
%ro.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-ro">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; 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
|
||||
|
||||
;; Provided by Dan N. Pomohaci
|
||||
;; Updated by Claudiu Costin
|
||||
|
||||
(define (ro-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 (ro-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"the &appendix; called %t"))
|
||||
(list (normalize "article") (string-append %gentext-ro-start-quote%
|
||||
"%t"
|
||||
%gentext-ro-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"
|
||||
"§ion; numit\U-0103; %t"))
|
||||
(list (normalize "sect1") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"§ion; numit\U-0103; %t"))
|
||||
(list (normalize "sect2") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"§ion; numit\U-0103; %t"))
|
||||
(list (normalize "sect3") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"§ion; numit\U-0103; %t"))
|
||||
(list (normalize "sect4") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"§ion; numit\U-0103; %t"))
|
||||
(list (normalize "sect5") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"§ion; numit\U-0103; %t"))
|
||||
(list (normalize "simplesect") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"§ion; numit\U-0103; %t"))
|
||||
(list (normalize "sidebar") "the &sidebar; %t")
|
||||
(list (normalize "step") "&step; %n")
|
||||
(list (normalize "table") "&Table; %n")))
|
||||
|
||||
(define (gentext-ro-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (ro-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 (ro-auto-xref-indirect-connector before)
|
||||
(literal " ∈ "))
|
||||
|
||||
;; Should the TOC come first or last?
|
||||
;;
|
||||
(define %generate-ro-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (ro-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-ro-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (ro-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-ro-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-ro-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-ro-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (ro-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-ro-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-ro-intra-label-sep)))
|
||||
(sep (assoc name (ro-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-ro-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (ro-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-ro-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-ro-label-title-sep)))
|
||||
(sep (assoc name (ro-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (ro-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 (ro-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (ro-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (ro-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-ro$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (ro-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-ro-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-ro-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-ro-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-ro-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-ro-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-ro-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-ro-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-ro-page% "")
|
||||
|
||||
(define %gentext-ro-and% "∧")
|
||||
|
||||
(define %gentext-ro-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-ro-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-ro-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-ro-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-ro-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-ro-index-see% "&See;")
|
||||
|
||||
(define %gentext-ro-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-ro-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-ro-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-ro-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-ro-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-ro-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-ro-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
146
docs/dsssl/docbook/common/dbl1ro.ent
Executable file
146
docs/dsssl/docbook/common/dbl1ro.ent
Executable file
@@ -0,0 +1,146 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "Rezumat">
|
||||
<!ENTITY abstract "Rezumat">
|
||||
<!ENTITY Answer "A:">
|
||||
<!ENTITY answer "A:">
|
||||
<!ENTITY Appendix "Anexa">
|
||||
<!ENTITY appendix "anexa">
|
||||
<!ENTITY Article "Articol">
|
||||
<!ENTITY article "Articol">
|
||||
<!ENTITY Bibliography "Bibliografie">
|
||||
<!ENTITY bibliography "Bibliografie">
|
||||
<!ENTITY Book "Carte">
|
||||
<!ENTITY book "Carte">
|
||||
<!ENTITY CAUTION "ATEN\U-00DE;IE">
|
||||
<!ENTITY caution "Aten\U-00FE;ie">
|
||||
<!ENTITY Caution "Aten\U-00FE;ie">
|
||||
<!ENTITY Chapter "Cap.">
|
||||
<!ENTITY chapter "cap.">
|
||||
<!ENTITY Colophon "Colophon">
|
||||
<!ENTITY colophon "Colophon">
|
||||
<!ENTITY Copyright "Copyright">
|
||||
<!ENTITY copyright "Copyright">
|
||||
<!ENTITY Dedication "Dedica\U-00FE;ie">
|
||||
<!ENTITY dedication "Dedica\U-00FE;ie">
|
||||
<!ENTITY Edition "Edi\U-00FE;ie">
|
||||
<!ENTITY edition "Edi\U-00FE;ie">
|
||||
<!ENTITY Equation "ecua\U-00FE;ia">
|
||||
<!ENTITY equation "ecua\U-00FE;ia">
|
||||
<!ENTITY Example "Exemplu">
|
||||
<!ENTITY example "Exemplu">
|
||||
<!ENTITY Figure "Fig.">
|
||||
<!ENTITY figure "Fig.">
|
||||
<!ENTITY Glossary "Glosar">
|
||||
<!ENTITY glossary "Glosar">
|
||||
<!ENTITY GlossSee "Vezi">
|
||||
<!ENTITY glosssee "Vezi">
|
||||
<!ENTITY GlossSeeAlso "Vezi \U-015F;i">
|
||||
<!ENTITY glossseealso "Vezi \U-015F;i">
|
||||
<!ENTITY IMPORTANT "IMPORTANT">
|
||||
<!ENTITY Important "Important">
|
||||
<!ENTITY important "Important">
|
||||
<!ENTITY Index "Index">
|
||||
<!ENTITY index "Index">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY LegalNotice "">
|
||||
<!ENTITY legalnotice "">
|
||||
<!ENTITY MsgAud "">
|
||||
<!ENTITY msgaud "">
|
||||
<!ENTITY MsgLevel "Nivel">
|
||||
<!ENTITY msglevel "Nivel">
|
||||
<!ENTITY MsgOrig "Origine">
|
||||
<!ENTITY msgorig "Origine">
|
||||
<!ENTITY NOTE "NOT\U-00C3;">
|
||||
<!ENTITY note "Not\U-00E3;">
|
||||
<!ENTITY Note "Not\U-00E3;">
|
||||
<!ENTITY Part "Parte">
|
||||
<!ENTITY part "Parte">
|
||||
<!ENTITY Preface "Prefa\U-00FE;\U-00E3;">
|
||||
<!ENTITY preface "Prefa\U-00FE;\U-00E3;">
|
||||
<!ENTITY Procedure "Procedur\U-00E3;">
|
||||
<!ENTITY procedure "Procedur\U-00E3;">
|
||||
<!ENTITY Published "Publicat">
|
||||
<!ENTITY published "Publicat">
|
||||
<!ENTITY Question "Q:">
|
||||
<!ENTITY question "Q:">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "Referin\U-00FE;\U-00E3;">
|
||||
<!ENTITY reference "Referin\U-00FE;\U-00E3;">
|
||||
<!ENTITY refname "Nume">
|
||||
<!ENTITY RefName "Nume">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "Rezumat">
|
||||
<!ENTITY refsynopsisdiv "Rezumat">
|
||||
<!ENTITY RevHistory "Istoricul versiunilor">
|
||||
<!ENTITY revhistory "Istoricul versiunilor">
|
||||
<!ENTITY Revision "Versiune">
|
||||
<!ENTITY revision "Versiune">
|
||||
<!ENTITY Section "Sec\U-00FE;iune">
|
||||
<!ENTITY section "sec.">
|
||||
<!ENTITY See "Vezi">
|
||||
<!ENTITY see "Vezi">
|
||||
<!ENTITY SeeAlso "Vezi \U-015F;i">
|
||||
<!ENTITY seealso "Vezi \U-015F;i">
|
||||
<!ENTITY Seealso "Vezi \U-015F;i">
|
||||
<!ENTITY Set "Set">
|
||||
<!ENTITY set "Set">
|
||||
<!ENTITY SetIndex "Index">
|
||||
<!ENTITY setindex "Index">
|
||||
<!ENTITY Sidebar "">
|
||||
<!ENTITY sidebar "sidebar">
|
||||
<!ENTITY Step "Opera\U-00FE;ie">
|
||||
<!ENTITY step "opera\U-00FE;iune">
|
||||
<!ENTITY Table "Tabel">
|
||||
<!ENTITY table "Tabel">
|
||||
<!ENTITY TIP "INDICA\U-00DE;IE">
|
||||
<!ENTITY Tip "Indica\U-00FE;ie">
|
||||
<!ENTITY tip "Indica\U-00FE;ie">
|
||||
<!ENTITY WARNING "AVERTISMENT">
|
||||
<!ENTITY Warning "Avertisment">
|
||||
<!ENTITY warning "Avertisment">
|
||||
<!ENTITY and "\U-015F;i">
|
||||
<!ENTITY by "de">
|
||||
<!ENTITY Edited "Publicat">
|
||||
<!ENTITY edited "Publicat">
|
||||
<!ENTITY Editedby "Publicat de">
|
||||
<!ENTITY editedby "Publicat de">
|
||||
<!ENTITY in "\U-00EE;n">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "element inexistent">
|
||||
<!ENTITY notes "Note">
|
||||
<!ENTITY Notes "Note">
|
||||
<!ENTITY Pgs "Pagini">
|
||||
<!ENTITY pgs "Pagini">
|
||||
<!ENTITY Revisedby "Revised by: ">
|
||||
<!ENTITY revisedby "Revised by: ">
|
||||
<!ENTITY TableNotes "Remarci">
|
||||
<!ENTITY tablenotes "Remarci">
|
||||
<!ENTITY TableofContents "Cuprins">
|
||||
<!ENTITY tableofcontents "Cuprins">
|
||||
<!ENTITY unexpectedelementname "Nume de element nea\U-015F;teptat">
|
||||
<!ENTITY unsupported "nerecunoscut de sisitem">
|
||||
<!ENTITY xrefto "referin\U-00FE;\U-00E3; c\U-00E3;tre">
|
||||
<!ENTITY listofequations "List\U-00E3; de ecua\U-00FE;ii">
|
||||
<!ENTITY ListofEquations "List\U-00E3; de ecua\U-00FE;ii">
|
||||
<!ENTITY ListofExamples "List\U-00E3; de exemple">
|
||||
<!ENTITY listofexamples "List\U-00E3; de exemple">
|
||||
<!ENTITY ListofFigures "List\U-00E3; de figuri">
|
||||
<!ENTITY listoffigures "List\U-00E3; de figuri">
|
||||
<!ENTITY listoftables "List\U-00E3; de tabele">
|
||||
<!ENTITY ListofTables "List\U-00E3; de tabele">
|
||||
<!ENTITY ListofUnknown "List\U-00E3; de necunoscute">
|
||||
<!ENTITY listofunknown "List\U-00E3; de necunoscute">
|
||||
<!ENTITY nav-home "Acas\U-00E3;">
|
||||
<!ENTITY nav-next "\U-00CE;nainte">
|
||||
<!ENTITY nav-next-sibling "Repede \U-00EF;nainte">
|
||||
<!ENTITY nav-prev "\U-00CE;napoi">
|
||||
<!ENTITY nav-prev-sibling "Repede \U-00EE;napoi">
|
||||
<!ENTITY nav-up "Sus">
|
||||
446
docs/dsssl/docbook/common/dbl1ru.dsl
Executable file
446
docs/dsssl/docbook/common/dbl1ru.dsl
Executable file
@@ -0,0 +1,446 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % cyr1 PUBLIC "ISO 8879:1986//ENTITIES Russian Cyrillic//EN">
|
||||
%cyr1;
|
||||
<!ENTITY % ru.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//RU"
|
||||
"dbl1ru.ent">
|
||||
%ru.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-ru">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; 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
|
||||
|
||||
;; This is revised Russian Localization version by Norman Walsh, modified by
|
||||
;; Ilia V. Kouznetsov, ilia@syntext.com
|
||||
|
||||
;; Suggestion of I. Kouznetsov: According to my experience of writing
|
||||
;; documentation, Russian Words for cross references had better be
|
||||
;; abbreviated (just like it is usually done in Russian documents)
|
||||
;; because the ends of not abbreviated cross references may vary from
|
||||
;; place to place due to the cases of Russian language. Due to this reason
|
||||
;; entities with ".abr" syffix are added.
|
||||
|
||||
;; The generated text for cross references to elements. See dblink.dsl
|
||||
;; for a discussion of how substitution is performed on the %x
|
||||
;; keywords.
|
||||
;;
|
||||
|
||||
(define (ru-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 (ru-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix.abr; %n"
|
||||
"&Appendix.abr; %t"))
|
||||
(list (normalize "article") (string-append %gentext-ru-start-quote%
|
||||
"%t"
|
||||
%gentext-ru-end-quote%))
|
||||
(list (normalize "bibliography") "%t")
|
||||
(list (normalize "book") "%t")
|
||||
(list (normalize "chapter") (if %chapter-autolabel%
|
||||
"&Chapter.abr; %n"
|
||||
"&Chapter.abr; %t"))
|
||||
(list (normalize "equation") "&Equation.abr; %n")
|
||||
(list (normalize "example") "&Example.abr; %n")
|
||||
(list (normalize "figure") "&Figure.abr; %n")
|
||||
(list (normalize "glossary") "%t")
|
||||
(list (normalize "index") "%t")
|
||||
(list (normalize "listitem") "%n")
|
||||
(list (normalize "part") "&Part.abr; %n")
|
||||
(list (normalize "preface") "%t")
|
||||
(list (normalize "procedure") "&Procedure.abr; %n, %t")
|
||||
(list (normalize "reference") "&Reference; %n, %t")
|
||||
(list (normalize "section") (if %section-autolabel%
|
||||
"&Section.abr; %n"
|
||||
"&Section.abr; %t"))
|
||||
(list (normalize "sect1") (if %section-autolabel%
|
||||
"&Section.abr; %n"
|
||||
"&Section.abr; %t"))
|
||||
(list (normalize "sect2") (if %section-autolabel%
|
||||
"&Section.abr; %n"
|
||||
"&Section.abr; %t"))
|
||||
(list (normalize "sect3") (if %section-autolabel%
|
||||
"&Section.abr; %n"
|
||||
"&Section.abr; %t"))
|
||||
(list (normalize "sect4") (if %section-autolabel%
|
||||
"&Section.abr; %n"
|
||||
"&Section.abr; %t"))
|
||||
(list (normalize "sect5") (if %section-autolabel%
|
||||
"&Section.abr; %n"
|
||||
"&Section.abr; %t"))
|
||||
(list (normalize "simplesect") (if %section-autolabel%
|
||||
"&Section.abr; %n"
|
||||
"&Section.abr; %t"))
|
||||
(list (normalize "sidebar") "&sidebar; %t")
|
||||
(list (normalize "step") "&step; %n")
|
||||
(list (normalize "table") "&Table.abr; %n")))
|
||||
|
||||
(define (gentext-ru-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (ru-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 (ru-auto-xref-indirect-connector before)
|
||||
(literal " ∈ "))
|
||||
|
||||
;; Should the TOC come first or last?
|
||||
;;
|
||||
(define %generate-ru-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (ru-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-ru-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (ru-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-ru-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-ru-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-ru-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (ru-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-ru-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-ru-intra-label-sep)))
|
||||
(sep (assoc name (ru-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-ru-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (ru-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-ru-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-ru-label-title-sep)))
|
||||
(sep (assoc name (ru-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (ru-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 (ru-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (ru-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (ru-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-ru$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (ru-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-ru-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-ru-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-ru-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-ru-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-ru-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-ru-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-ru-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-ru-page% "")
|
||||
|
||||
(define %gentext-ru-and% "∧")
|
||||
|
||||
(define %gentext-ru-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-ru-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-ru-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-ru-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-ru-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-ru-index-see% "&See;")
|
||||
|
||||
(define %gentext-ru-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-ru-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-ru-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-ru-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-ru-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-ru-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-ru-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
175
docs/dsssl/docbook/common/dbl1ru.ent
Executable file
175
docs/dsssl/docbook/common/dbl1ru.ent
Executable file
@@ -0,0 +1,175 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "\U-0410;\U-043D;\U-043D;\U-043E;\U-0442;\U-0430;\U-0446;\U-0438;\U-044F;">
|
||||
<!ENTITY abstract "\U-0410;\U-043D;\U-043D;\U-043E;\U-0442;\U-0430;\U-0446;\U-0438;\U-044F;">
|
||||
<!ENTITY Answer "A:">
|
||||
<!ENTITY answer "A:">
|
||||
<!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 Appendix.abr "\U-041F;\U-0440;\U-0438;\U-043B;.">
|
||||
<!ENTITY appendix.abr "\U-041F;\U-0440;\U-0438;\U-043B;.">
|
||||
<!ENTITY Article "\U-0421;\U-0442;\U-0430;\U-0442;\U-044C;\U-044F;">
|
||||
<!ENTITY article "\U-0421;\U-0442;\U-0430;\U-0442;\U-044C;\U-044F;">
|
||||
<!ENTITY Audience "\U-0410;\U-0443;\U-0434;\U-0438;\U-0442;\U-043E;\U-0440;\U-0438;\U-044F;">
|
||||
<!ENTITY audience "\U-0410;\U-0443;\U-0434;\U-0438;\U-0442;\U-043E;\U-0440;\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-041F;\U-0440;\U-0435;\U-0434;\U-043E;\U-0441;\U-0442;\U-0435;\U-0440;\U-0435;\U-0436;\U-0435;\U-043D;\U-0438;\U-0435;">
|
||||
<!ENTITY caution "\U-041F;\U-0440;\U-0435;\U-0434;\U-043E;\U-0441;\U-0442;\U-0435;\U-0440;\U-0435;\U-0436;\U-0435;\U-043D;\U-0438;\U-0435;">
|
||||
<!ENTITY CAUTION "\U-041F;\U-0420;\U-0415;\U-0414;\U-041E;\U-0421;\U-0422;\U-0415;\U-0420;\U-0415;\U-0416;\U-0415;\U-041D;\U-0418;\U-0415;">
|
||||
<!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 Chapter.abr "\U-0413;\U-043B;.">
|
||||
<!ENTITY chapter.abr "\U-0413;\U-043B;.">
|
||||
<!ENTITY Colophon "Colophon">
|
||||
<!ENTITY colophon "Colophon">
|
||||
<!ENTITY Copyright "Copyright">
|
||||
<!ENTITY copyright "Copyright">
|
||||
<!ENTITY Dedication "\U-041F;\U-043E;\U-0441;\U-0432;\U-044F;\U-0449;\U-0435;\U-043D;\U-0438;\U-0435;">
|
||||
<!ENTITY dedication "\U-041F;\U-043E;\U-0441;\U-0432;\U-044F;\U-0449;\U-0435;\U-043D;\U-0438;\U-0435;">
|
||||
<!ENTITY Edition "\U-0420;\U-0435;\U-0434;\U-0430;\U-043A;\U-0446;\U-0438;\U-044F;">
|
||||
<!ENTITY edition "\U-0420;\U-0435;\U-0434;\U-0430;\U-043A;\U-0446;\U-0438;\U-044F;">
|
||||
<!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 Equation.abr "\U-0424;.">
|
||||
<!ENTITY equation.abr "\U-0424;.">
|
||||
<!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 Example.abr "\U-041F;\U-0440;\U-0438;\U-043C;.">
|
||||
<!ENTITY example.abr "\U-041F;\U-0440;\U-0438;\U-043C;.">
|
||||
<!ENTITY Figure "\U-0420;\U-0438;\U-0441;\U-0443;\U-043D;\U-043E;\U-043A;">
|
||||
<!ENTITY figure "\U-0420;\U-0438;\U-0441;\U-0443;\U-043D;\U-043E;\U-043A;">
|
||||
<!ENTITY Figure.abr "\U-0420;\U-0438;\U-0441;.">
|
||||
<!ENTITY figure.abr "\U-0420;\U-0438;\U-0441;.">
|
||||
<!ENTITY Glossary "\U-0413;\U-043B;\U-043E;\U-0441;\U-0441;\U-0430;\U-0440;\U-0438;\U-0439;">
|
||||
<!ENTITY glossary "\U-0413;\U-043B;\U-043E;\U-0441;\U-0441;\U-0430;\U-0440;\U-0438;\U-0439;">
|
||||
<!ENTITY GlossSee "See">
|
||||
<!ENTITY glosssee "See">
|
||||
<!ENTITY GlossSeeAlso "See Also">
|
||||
<!ENTITY glossseealso "See Also">
|
||||
<!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 IMPORTANT "\U-0412;\U-0410;\U-0416;\U-041D;\U-041E;">
|
||||
<!ENTITY Index "\U-041F;\U-0440;\U-0435;\U-0434;\U-043C;\U-0435;\U-0442;\U-043D;\U-044B;\U-0439; \U-0443;\U-043A;\U-0430;\U-0437;\U-0430;\U-0442;\U-0435;\U-043B;\U-044C;">
|
||||
<!ENTITY index "\U-041F;\U-0440;\U-0435;\U-0434;\U-043C;\U-0435;\U-0442;\U-043D;\U-044B;\U-0439; \U-0443;\U-043A;\U-0430;\U-0437;\U-0430;\U-0442;\U-0435;\U-043B;\U-044C;">
|
||||
<!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-0435; \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-0435; \U-043F;\U-0440;\U-0430;\U-0432;\U-0430;">
|
||||
<!ENTITY Level "\U-0423;\U-0440;\U-043E;\U-0432;\U-0435;\U-043D;\U-044C;">
|
||||
<!ENTITY level "\U-0423;\U-0440;\U-043E;\U-0432;\U-0435;\U-043D;\U-044C;">
|
||||
<!ENTITY MsgAud "Audience">
|
||||
<!ENTITY msgaud "Audience">
|
||||
<!ENTITY MsgLevel "Level">
|
||||
<!ENTITY msglevel "Level">
|
||||
<!ENTITY MsgOrig "Origin">
|
||||
<!ENTITY msgorig "Origin">
|
||||
<!ENTITY name "\U-0418;\U-043C;\U-044F;">
|
||||
<!ENTITY Name "\U-0418;\U-043C;\U-044F;">
|
||||
<!ENTITY Note "\U-0417;\U-0430;\U-043C;\U-0435;\U-0447;\U-0430;\U-043D;\U-0438;\U-0435;">
|
||||
<!ENTITY note "\U-0417;\U-0430;\U-043C;\U-0435;\U-0447;\U-0430;\U-043D;\U-0438;\U-0435;">
|
||||
<!ENTITY NOTE "\U-0417;\U-0410;\U-041C;\U-0415;\U-0427;\U-0410;\U-041D;\U-0418;\U-0415;">
|
||||
<!ENTITY Origin "\U-0418;\U-0441;\U-0442;\U-043E;\U-0447;\U-043D;\U-0438;\U-043A;">
|
||||
<!ENTITY origin "\U-0418;\U-0441;\U-0442;\U-043E;\U-0447;\U-043D;\U-0438;\U-043A;">
|
||||
<!ENTITY Part "\U-0427;\U-0430;\U-0441;\U-0442;\U-044C;">
|
||||
<!ENTITY part "\U-0427;\U-0430;\U-0441;\U-0442;\U-044C;">
|
||||
<!ENTITY Part.abr "\U-0427;.">
|
||||
<!ENTITY part.abr "\U-0427;.">
|
||||
<!ENTITY Preface "\U-041F;\U-0440;\U-0435;\U-0434;\U-0438;\U-0441;\U-043B;\U-043E;\U-0432;\U-0438;\U-0435;">
|
||||
<!ENTITY preface "\U-041F;\U-0440;\U-0435;\U-0434;\U-0438;\U-0441;\U-043B;\U-043E;\U-0432;\U-0438;\U-0435;">
|
||||
<!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 Procedure.abr "\U-041F;\U-0440;\U-043E;\U-0446;.">
|
||||
<!ENTITY procedure.abr "\U-041F;\U-0440;\U-043E;\U-0446;.">
|
||||
<!ENTITY Published "\U-041E;\U-043F;\U-0443;\U-0431;\U-043B;\U-0438;\U-043A;\U-043E;\U-0432;\U-0430;\U-043D;\U-043E;">
|
||||
<!ENTITY published "\U-041E;\U-043F;\U-0443;\U-0431;\U-043B;\U-0438;\U-043A;\U-043E;\U-0432;\U-0430;\U-043D;\U-043E;">
|
||||
<!ENTITY Question "Q:">
|
||||
<!ENTITY question "Q:">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "\U-0421;\U-0441;\U-044B;\U-043B;\U-043A;\U-0430;">
|
||||
<!ENTITY reference "\U-0421;\U-0441;\U-044B;\U-043B;\U-043A;\U-0430;">
|
||||
<!ENTITY RefName "Name">
|
||||
<!ENTITY refname "Name">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "Synopsis">
|
||||
<!ENTITY refsynopsisdiv "Synopsis">
|
||||
<!ENTITY RevHistory "\U-0418;\U-0441;\U-0442;\U-043E;\U-0440;\U-0438;\U-044F; \U-043F;\U-0435;\U-0440;\U-0435;\U-0438;\U-0437;\U-0434;\U-0430;\U-043D;\U-0438;\U-044F;">
|
||||
<!ENTITY revhistory "\U-0418;\U-0441;\U-0442;\U-043E;\U-0440;\U-0438;\U-044F; \U-043F;\U-0435;\U-0440;\U-0435;\U-0438;\U-0437;\U-0434;\U-0430;\U-043D;\U-0438;\U-044F;">
|
||||
<!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 Section "\U-0420;\U-0430;\U-0437;\U-0434;\U-0435;\U-043B;">
|
||||
<!ENTITY section "\U-0440;\U-0430;\U-0437;\U-0434;\U-0435;\U-043B;">
|
||||
<!ENTITY section.abr "\U-0420;\U-0430;\U-0437;\U-0434;.">
|
||||
<!ENTITY Section.abr "\U-0420;\U-0430;\U-0437;\U-0434;.">
|
||||
<!ENTITY See "\U-0421;\U-043C;.">
|
||||
<!ENTITY see "\U-0421;\U-043C;.">
|
||||
<!ENTITY SeeAlso "\U-0421;\U-043C;. \U-0442;\U-0430;\U-043A;\U-0436;\U-0435;">
|
||||
<!ENTITY seealso "\U-0421;\U-043C;. \U-0442;\U-0430;\U-043A;\U-0436;\U-0435;">
|
||||
<!ENTITY Seealso "\U-0421;\U-043C;. \U-0442;\U-0430;\U-043A;\U-0436;\U-0435;">
|
||||
<!ENTITY set "\U-041F;\U-043E;\U-0434;\U-0431;\U-043E;\U-0440;\U-043A;\U-0430;">
|
||||
<!ENTITY Set "\U-041F;\U-043E;\U-0434;\U-0431;\U-043E;\U-0440;\U-043A;\U-0430;">
|
||||
<!ENTITY setindex "\U-0418;\U-043D;\U-0434;\U-0435;\U-043A;\U-0441; \U-043F;\U-043E;\U-0434;\U-0431;\U-043E;\U-0440;\U-043A;\U-0438;">
|
||||
<!ENTITY SetIndex "\U-0418;\U-043D;\U-0434;\U-0435;\U-043A;\U-0441; \U-043F;\U-043E;\U-0434;\U-0431;\U-043E;\U-0440;\U-043A;\U-0438;">
|
||||
<!ENTITY Sidebar "\U-0412;\U-044B;\U-0434;\U-0435;\U-043B;\U-0435;\U-043D;\U-0438;\U-0435;">
|
||||
<!ENTITY sidebar "\U-0432;\U-044B;\U-0434;\U-0435;\U-043B;\U-0435;\U-043D;\U-0438;\U-0435;">
|
||||
<!ENTITY Step "\U-0428;\U-0430;\U-0433;">
|
||||
<!ENTITY step "\U-0448;\U-0430;\U-0433;">
|
||||
<!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 Table.abr "\U-0422;\U-0430;\U-0431;\U-043B;.">
|
||||
<!ENTITY table.abr "\U-0422;\U-0430;\U-0431;\U-043B;.">
|
||||
<!ENTITY tip "\U-041F;\U-043E;\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-0434;\U-0441;\U-043A;\U-0430;\U-0437;\U-043A;\U-0430;">
|
||||
<!ENTITY WARNING "\U-0412;\U-041D;\U-0418;\U-041C;\U-0410;\U-041D;\U-0418;\U-0415;">
|
||||
<!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 and "">
|
||||
<!ENTITY by "">
|
||||
<!ENTITY called "">
|
||||
<!ENTITY edited "\U-041F;\U-043E;\U-0434; \U-0440;\U-0435;\U-0434;\U-0430;\U-043A;\U-0446;\U-0438;\U-0435;\U-0439;">
|
||||
<!ENTITY Edited "\U-041F;\U-043E;\U-0434; \U-0440;\U-0435;\U-0434;\U-0430;\U-043A;\U-0446;\U-0438;\U-0435;\U-0439;">
|
||||
<!ENTITY Editedby "\U-041F;\U-043E;\U-0434; \U-0440;\U-0435;\U-0434;\U-0430;\U-043A;\U-0446;\U-0438;\U-0435;\U-0439;">
|
||||
<!ENTITY editedby "\U-041F;\U-043E;\U-0434; \U-0440;\U-0435;\U-0434;\U-0430;\U-043A;\U-0446;\U-0438;\U-0435;\U-0439;">
|
||||
<!ENTITY in "\U-0432;">
|
||||
<!ENTITY TableofContents "\U-0421;\U-043E;\U-0434;\U-0435;\U-0440;\U-0436;\U-0430;\U-043D;\U-0438;\U-0435;">
|
||||
<!ENTITY tableofcontents "\U-0421;\U-043E;\U-0434;\U-0435;\U-0440;\U-0436;\U-0430;\U-043D;\U-0438;\U-0435;">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY Notes "\U-041F;\U-0440;\U-0438;\U-043C;\U-0435;\U-0447;\U-0430;\U-043D;\U-0438;\U-044F;">
|
||||
<!ENTITY notes "\U-041F;\U-0440;\U-0438;\U-043C;\U-0435;\U-0447;\U-0430;\U-043D;\U-0438;\U-044F;">
|
||||
<!ENTITY TableNotes "\U-041F;\U-0440;\U-0438;\U-043C;\U-0435;\U-0447;\U-0430;\U-043D;\U-0438;\U-044F;">
|
||||
<!ENTITY tablenotes "\U-041F;\U-0440;\U-0438;\U-043C;\U-0435;\U-0447;\U-0430;\U-043D;\U-0438;\U-044F;">
|
||||
<!ENTITY nonexistantelement "non-existant element">
|
||||
<!ENTITY pgs "\U-0421;\U-0442;\U-0440;.">
|
||||
<!ENTITY Pgs "\U-0421;\U-0442;\U-0440;.">
|
||||
<!ENTITY Revisedby "Revised by: ">
|
||||
<!ENTITY revisedby "Revised by: ">
|
||||
<!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-043E;\U-043A; \U-0444;\U-043E;\U-0440;\U-043C;\U-0443;\U-043B;">
|
||||
<!ENTITY ListofEquations "\U-0421;\U-043F;\U-0438;\U-0441;\U-043E;\U-043A; \U-0444;\U-043E;\U-0440;\U-043C;\U-0443;\U-043B;">
|
||||
<!ENTITY ListofExamples "\U-0421;\U-043F;\U-0438;\U-0441;\U-043E;\U-043A; \U-043F;\U-0440;\U-0438;\U-043C;\U-0435;\U-0440;\U-043E;\U-0432;">
|
||||
<!ENTITY listofexamples "\U-0421;\U-043F;\U-0438;\U-0441;\U-043E;\U-043A; \U-043F;\U-0440;\U-0438;\U-043C;\U-0435;\U-0440;\U-043E;\U-0432;">
|
||||
<!ENTITY ListofFigures "\U-0421;\U-043F;\U-0438;\U-0441;\U-043E;\U-043A; \U-0438;\U-043B;\U-043B;\U-044E;\U-0441;\U-0442;\U-0440;\U-0430;\U-0446;\U-0438;\U-0439;">
|
||||
<!ENTITY listoffigures "\U-0421;\U-043F;\U-0438;\U-0441;\U-043E;\U-043A; \U-0438;\U-043B;\U-043B;\U-044E;\U-0441;\U-0442;\U-0440;\U-0430;\U-0446;\U-0438;\U-0439;">
|
||||
<!ENTITY listoftables "\U-0421;\U-043F;\U-0438;\U-0441;\U-043E;\U-043A; \U-0442;\U-0430;\U-0431;\U-043B;\U-0438;\U-0446;">
|
||||
<!ENTITY ListofTables "\U-0421;\U-043F;\U-0438;\U-0441;\U-043E;\U-043A; \U-0442;\U-0430;\U-0431;\U-043B;\U-0438;\U-0446;">
|
||||
<!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-043D;\U-044B;\U-0439; \U-0441;\U-043F;\U-0438;\U-0441;\U-043E;\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-043D;\U-044B;\U-0439; \U-0441;\U-043F;\U-0438;\U-0441;\U-043E;\U-043A;">
|
||||
<!ENTITY nav-next "\U-0421;\U-043B;\U-0435;\U-0434;.">
|
||||
<!ENTITY nav-next-sibling "\U-0421;\U-043B;\U-0435;\U-0434;. \U-043F;\U-043E;\U-0434;\U-0440;\U-0430;\U-0437;\U-0434;\U-0435;\U-043B;">
|
||||
<!ENTITY nav-prev "\U-041F;\U-0440;\U-0435;\U-0434;.">
|
||||
<!ENTITY nav-prev-sibling "\U-041F;\U-0440;\U-0435;\U-0434;. \U-043F;\U-043E;\U-0434;\U-0440;\U-0430;\U-0437;\U-0434;\U-0435;\U-043B;">
|
||||
<!ENTITY x-nav-next "\U-0421;\U-043B;\U-0435;\U-0434;.">
|
||||
<!ENTITY nav-home "\U-041D;\U-0430;\U-0447;\U-0430;\U-043B;\U-043E;">
|
||||
<!ENTITY nav-up "\U-0423;\U-0440;\U-043E;\U-0432;\U-0435;\U-043D;\U-044C; \U-0432;\U-044B;\U-0448;\U-0435;">
|
||||
442
docs/dsssl/docbook/common/dbl1sk.dsl
Executable file
442
docs/dsssl/docbook/common/dbl1sk.dsl
Executable file
@@ -0,0 +1,442 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % sk.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//SK"
|
||||
"dbl1sk.ent">
|
||||
%sk.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-sk">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; 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 (sk-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 (sk-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"&appendix; nazvan\U-00E1; %t"))
|
||||
(list (normalize "article") (string-append %gentext-sk-start-quote%
|
||||
"%t"
|
||||
%gentext-sk-end-quote%))
|
||||
(list (normalize "bibliography") "%t")
|
||||
(list (normalize "book") "%t")
|
||||
(list (normalize "chapter") (if %chapter-autolabel%
|
||||
"&Chapter; %n"
|
||||
"&chapter; nazvan\U-00E1; %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; nazvan\U-00E1; %t"))
|
||||
(list (normalize "sect1") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"§ion; nazvan\U-00E1; %t"))
|
||||
(list (normalize "sect2") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"§ion; nazvan\U-00E1; %t"))
|
||||
(list (normalize "sect3") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"§ion; nazvan\U-00E1; %t"))
|
||||
(list (normalize "sect4") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"§ion; nazvan\U-00E1; %t"))
|
||||
(list (normalize "sect5") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"§ion; nazvan\U-00E1; %t"))
|
||||
(list (normalize "simplesect") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"§ion; nazvan\U-00E1; %t"))
|
||||
(list (normalize "sidebar") "&sidebar; %t")
|
||||
(list (normalize "step") "&step; %n")
|
||||
(list (normalize "table") "&Table; %n")))
|
||||
|
||||
(define (gentext-sk-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (sk-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 (sk-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-sk-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (sk-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-sk-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (sk-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-sk-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-sk-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-sk-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (sk-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-sk-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-sk-intra-label-sep)))
|
||||
(sep (assoc name (sk-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-sk-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (sk-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-sk-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-sk-label-title-sep)))
|
||||
(sep (assoc name (sk-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (sk-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 (sk-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (sk-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (sk-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-sk$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (sk-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-sk-start-quote% "\U-201E;")
|
||||
|
||||
(define %gentext-sk-end-quote% "\U-201C;")
|
||||
|
||||
(define %gentext-sk-start-nested-quote% "\U-201A;")
|
||||
|
||||
(define %gentext-sk-end-nested-quote% "\U-2018;")
|
||||
|
||||
(define %gentext-sk-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-sk-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-sk-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-sk-page% "")
|
||||
|
||||
(define %gentext-sk-and% "∧")
|
||||
|
||||
(define %gentext-sk-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-sk-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-sk-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-sk-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-sk-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-sk-index-see% "&See;")
|
||||
|
||||
(define %gentext-sk-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-sk-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-sk-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-sk-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-sk-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-sk-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-sk-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
146
docs/dsssl/docbook/common/dbl1sk.ent
Executable file
146
docs/dsssl/docbook/common/dbl1sk.ent
Executable file
@@ -0,0 +1,146 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "Obsah">
|
||||
<!ENTITY abstract "Obsah">
|
||||
<!ENTITY Answer "A:">
|
||||
<!ENTITY answer "A:">
|
||||
<!ENTITY Appendix "Dodatok">
|
||||
<!ENTITY appendix "dodatok">
|
||||
<!ENTITY Article "\U-010C;l\U-00E1;nok">
|
||||
<!ENTITY article "\U-010C;l\U-00E1;nok">
|
||||
<!ENTITY Bibliography "Bibliografia">
|
||||
<!ENTITY bibliography "Bibliografia">
|
||||
<!ENTITY Book "Kniha">
|
||||
<!ENTITY book "Kniha">
|
||||
<!ENTITY CAUTION "V\U-00DD;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 "Venovanie">
|
||||
<!ENTITY dedication "Venovanie">
|
||||
<!ENTITY Edition "Vydanie">
|
||||
<!ENTITY edition "Vydanie">
|
||||
<!ENTITY Equation "Rovnice">
|
||||
<!ENTITY equation "Rovnice">
|
||||
<!ENTITY Example "Pr\U-00ED;klad">
|
||||
<!ENTITY example "Pr\U-00ED;klad">
|
||||
<!ENTITY Figure "Obr\U-00E1;zok">
|
||||
<!ENTITY figure "Obr\U-00E1;zok">
|
||||
<!ENTITY Glossary "Slovn\U-00ED;k">
|
||||
<!ENTITY glossary "Slovn\U-00ED;k">
|
||||
<!ENTITY GlossSee "Pozri">
|
||||
<!ENTITY glosssee "Pozri">
|
||||
<!ENTITY GlossSeeAlso "Pozri tie\U-017E;">
|
||||
<!ENTITY glossseealso "Pozri tie\U-017E;">
|
||||
<!ENTITY IMPORTANT "D\U-00D4;LE\U-017D;IT\U-00C9;">
|
||||
<!ENTITY Important "D\U-00F4;le\U-017E;it\U-00E9;">
|
||||
<!ENTITY important "D\U-00F4;le\U-017E;it\U-00E9;">
|
||||
<!ENTITY Index "Zoznam">
|
||||
<!ENTITY index "Zoznam">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY LegalNotice "Pr\U-00E1;vna pozn\U-00E1;mka">
|
||||
<!ENTITY legalnotice "Pr\U-00E1;vna pozn\U-00E1;mka">
|
||||
<!ENTITY MsgAud "Publikum">
|
||||
<!ENTITY msgaud "Publikum">
|
||||
<!ENTITY MsgLevel "\U-00DA;rove\U-0148;">
|
||||
<!ENTITY msglevel "\U-00DA;rove\U-0148;">
|
||||
<!ENTITY MsgOrig "P\U-00F4;vod">
|
||||
<!ENTITY msgorig "P\U-00F4;vod">
|
||||
<!ENTITY NOTE "POZN\U-00C1;MKA">
|
||||
<!ENTITY Note "Pozn\U-00E1;mka">
|
||||
<!ENTITY note "Pozn\U-00E1;mka">
|
||||
<!ENTITY Part "\U-010C;as\U-0165;">
|
||||
<!ENTITY part "\U-010C;as\U-0165;">
|
||||
<!ENTITY Preface "\U-00DA;vod">
|
||||
<!ENTITY preface "\U-00DA;vod">
|
||||
<!ENTITY Procedure "Postup">
|
||||
<!ENTITY procedure "Postup">
|
||||
<!ENTITY Published "Vydan\U-00E9;">
|
||||
<!ENTITY published "Vydan\U-00E9;">
|
||||
<!ENTITY Question "Q:">
|
||||
<!ENTITY question "Q:">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "Odkaz">
|
||||
<!ENTITY reference "Odkaz">
|
||||
<!ENTITY RefName "Meno">
|
||||
<!ENTITY refname "Meno">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "Preh\U-013E;ad">
|
||||
<!ENTITY refsynopsisdiv "Preh\U-013E;ad">
|
||||
<!ENTITY RevHistory "Preh\U-013E;ad rev\U-00ED;zi\U-00ED;">
|
||||
<!ENTITY revhistory "Preh\U-013E;ad rev\U-00ED;zi\U-00ED;">
|
||||
<!ENTITY Revision "Rev\U-00ED;zia">
|
||||
<!ENTITY revision "Rev\U-00ED;zia">
|
||||
<!ENTITY Section "Oddiel">
|
||||
<!ENTITY section "oddiel">
|
||||
<!ENTITY see "Pozri">
|
||||
<!ENTITY See "Pozri">
|
||||
<!ENTITY seealso "Pozri tie\U-017E;">
|
||||
<!ENTITY SeeAlso "Pozri tie\U-017E;">
|
||||
<!ENTITY Seealso "Pozri tie\U-017E;">
|
||||
<!ENTITY Set "Nastavi\U-0165;">
|
||||
<!ENTITY set "Nastavi\U-0165;">
|
||||
<!ENTITY SetIndex "Nastavi\U-0165; index">
|
||||
<!ENTITY setindex "Nastavi\U-0165; index">
|
||||
<!ENTITY Sidebar "">
|
||||
<!ENTITY sidebar "bo\U-010D;n\U-00ED; li\U-0161;ta">
|
||||
<!ENTITY step "krok">
|
||||
<!ENTITY Step "Krok">
|
||||
<!ENTITY table "Tabu\U-013E;ka">
|
||||
<!ENTITY Table "Tabu\U-013E;ka">
|
||||
<!ENTITY TIP "TIP">
|
||||
<!ENTITY Tip "Tip">
|
||||
<!ENTITY tip "Tip">
|
||||
<!ENTITY WARNING "VAROVANIE">
|
||||
<!ENTITY Warning "Varovanie">
|
||||
<!ENTITY warning "Varovanie">
|
||||
<!ENTITY and "a">
|
||||
<!ENTITY by "">
|
||||
<!ENTITY Edited "Vydan\U-00E9;">
|
||||
<!ENTITY edited "Vydan\U-00E9;">
|
||||
<!ENTITY Editedby "Vydan\U-00E9;">
|
||||
<!ENTITY editedby "Vydan\U-00E9;">
|
||||
<!ENTITY in "v">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "neexistuj\U-00FA;ci prvok">
|
||||
<!ENTITY notes "Pozn\U-00E1;mky">
|
||||
<!ENTITY Notes "Pozn\U-00E1;mky">
|
||||
<!ENTITY Pgs "Str.">
|
||||
<!ENTITY pgs "Str.">
|
||||
<!ENTITY Revisedby "Revised by: ">
|
||||
<!ENTITY revisedby "Revised by: ">
|
||||
<!ENTITY TableNotes "Pozn\U-00E1;mky">
|
||||
<!ENTITY tablenotes "Pozn\U-00E1;mky">
|
||||
<!ENTITY TableofContents "Obsah">
|
||||
<!ENTITY tableofcontents "Obsah">
|
||||
<!ENTITY unexpectedelementname "Neo\U-010D;ak\U-00E1;van\U-00E9; meno prvku">
|
||||
<!ENTITY unsupported "nepodporovan\U-00FD;">
|
||||
<!ENTITY xrefto "xref k">
|
||||
<!ENTITY listofequations "Zoznam rovn\U-00ED;c">
|
||||
<!ENTITY ListofEquations "Zoznam rovn\U-00ED;c">
|
||||
<!ENTITY ListofExamples "Zoznam pr\U-00ED;kladov">
|
||||
<!ENTITY listofexamples "Zoznam pr\U-00ED;kladov">
|
||||
<!ENTITY ListofFigures "Zoznam obr\U-00E1;zkov">
|
||||
<!ENTITY listoffigures "Zoznam obr\U-00E1;zkov">
|
||||
<!ENTITY listoftables "Zoznam tabuliek">
|
||||
<!ENTITY ListofTables "Zoznam tabuliek">
|
||||
<!ENTITY ListofUnknown "Zoznam nezn\U-00E1;meho">
|
||||
<!ENTITY listofunknown "Zoznam nezn\U-00E1;meho">
|
||||
<!ENTITY nav-home "Domov">
|
||||
<!ENTITY nav-next "Nasleduj\U-00FA;ci">
|
||||
<!ENTITY nav-next-sibling "R\U-00FD;chlo dopredu">
|
||||
<!ENTITY nav-prev "Predch\U-00E1;dzaj\U-00FA;ci">
|
||||
<!ENTITY nav-prev-sibling "R\U-00FD;chlo nazp\U-00E4;t">
|
||||
<!ENTITY nav-up "Hore">
|
||||
446
docs/dsssl/docbook/common/dbl1sl.dsl
Executable file
446
docs/dsssl/docbook/common/dbl1sl.dsl
Executable file
@@ -0,0 +1,446 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % lat2 PUBLIC "ISO 8879:1986//ENTITIES Added Latin 2//EN">
|
||||
%lat2;
|
||||
<!ENTITY % sl.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//SL"
|
||||
"dbl1sl.ent">
|
||||
%sl.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-sl">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; 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 (sl-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 (sl-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"the &appendix; called %t"))
|
||||
(list (normalize "article") (string-append %gentext-sl-start-quote%
|
||||
"%t"
|
||||
%gentext-sl-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-sl-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (sl-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 (sl-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-sl-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (sl-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-sl-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (sl-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-sl-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-sl-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-sl-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (sl-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-sl-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-sl-intra-label-sep)))
|
||||
(sep (assoc name (sl-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-sl-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (sl-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-sl-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-sl-label-title-sep)))
|
||||
(sep (assoc name (sl-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (sl-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 (sl-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (sl-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (sl-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-sl$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (sl-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-sl-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-sl-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-sl-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-sl-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-sl-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-sl-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-sl-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-sl-page% "")
|
||||
|
||||
(define %gentext-sl-and% "∧")
|
||||
|
||||
(define %gentext-sl-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-sl-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-sl-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-sl-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-sl-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-sl-index-see% "&See;")
|
||||
|
||||
(define %gentext-sl-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-sl-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-sl-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-sl-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-sl-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-sl-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-sl-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
157
docs/dsssl/docbook/common/dbl1sl.ent
Executable file
157
docs/dsssl/docbook/common/dbl1sl.ent
Executable file
@@ -0,0 +1,157 @@
|
||||
<?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 "Povzetek">
|
||||
<!ENTITY abstract "Povzetek">
|
||||
<!ENTITY Answer "O:">
|
||||
<!ENTITY answer "O:">
|
||||
<!ENTITY Appendix "Dodatek">
|
||||
<!ENTITY appendix "dodatek">
|
||||
<!ENTITY Article "\U-010C;lanek">
|
||||
<!ENTITY article "\U-010C;lanek">
|
||||
<!ENTITY Bibliography "Literatura">
|
||||
<!ENTITY bibliography "Literatura">
|
||||
<!ENTITY Book "Knjiga">
|
||||
<!ENTITY book "Knjiga">
|
||||
<!ENTITY Caution "Opozorilo">
|
||||
<!ENTITY caution "Opozorilo">
|
||||
<!ENTITY CAUTION "OPOZORILO">
|
||||
<!ENTITY Chapter "Poglavje">
|
||||
<!ENTITY chapter "poglavje">
|
||||
<!ENTITY Colophon "Kolofon">
|
||||
<!ENTITY colophon "Kolofon">
|
||||
<!ENTITY Copyright "Pravna za\U-0161;\U-010D;ita">
|
||||
<!ENTITY copyright "Pravna za\U-0161;\U-010D;ita">
|
||||
<!ENTITY Dedication "Posvetilo">
|
||||
<!ENTITY dedication "Posvetilo">
|
||||
<!ENTITY Edition "Izdaja">
|
||||
<!ENTITY edition "Izdaja">
|
||||
<!ENTITY Equation "Ena\U-010D;ba">
|
||||
<!ENTITY equation "Ena\U-010D;ba">
|
||||
<!ENTITY Example "Primer">
|
||||
<!ENTITY example "Primer">
|
||||
<!ENTITY Figure "Slika">
|
||||
<!ENTITY figure "Slika">
|
||||
<!ENTITY Glossary "Slovar\U-010D;ek">
|
||||
<!ENTITY glossary "Slovar\U-010D;ek">
|
||||
<!ENTITY GlossSee "glej">
|
||||
<!ENTITY glosssee "glej">
|
||||
<!ENTITY GlossSeeAlso "glej tudi">
|
||||
<!ENTITY glossseealso "glej tudi">
|
||||
<!ENTITY IMPORTANT "POMEMBNO">
|
||||
<!ENTITY Important "Pomembno">
|
||||
<!ENTITY important "Pomembno">
|
||||
<!ENTITY Index "Stvarno kazalo">
|
||||
<!ENTITY index "Stvarno kazalo">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY LegalNotice "Pravno sporo\U-010D;ilo">
|
||||
<!ENTITY legalnotice "Pravno sporo\U-010D;ilo">
|
||||
<!ENTITY MsgAud "Ob\U-010D;instvo">
|
||||
<!ENTITY msgaud "Ob\U-010D;instvo">
|
||||
<!ENTITY MsgLevel "Raven">
|
||||
<!ENTITY msglevel "Raven">
|
||||
<!ENTITY MsgOrig "Izvor">
|
||||
<!ENTITY msgorig "Izvor">
|
||||
<!ENTITY note "Opomba">
|
||||
<!ENTITY NOTE "OPOMBA">
|
||||
<!ENTITY Note "Opomba">
|
||||
<!ENTITY Part "Del">
|
||||
<!ENTITY part "Del">
|
||||
<!ENTITY Preface "Predgovor">
|
||||
<!ENTITY preface "Predgovor">
|
||||
<!ENTITY Procedure "Postopek">
|
||||
<!ENTITY procedure "Postopek">
|
||||
<!ENTITY ProductionSet "Izdelava">
|
||||
<!ENTITY Published "Izdano">
|
||||
<!ENTITY published "Izdano">
|
||||
<!ENTITY Question "V:">
|
||||
<!ENTITY question "V:">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "Sklic">
|
||||
<!ENTITY reference "Sklic">
|
||||
<!ENTITY RefName "Ime">
|
||||
<!ENTITY refname "Ime">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "Sinopsis">
|
||||
<!ENTITY refsynopsisdiv "Sinopsis">
|
||||
<!ENTITY RevHistory "Zgodovina razli\U-010D;ic">
|
||||
<!ENTITY revhistory "Zgodovina razli\U-010D;ic">
|
||||
<!ENTITY Revision "Razli\U-010D;ica">
|
||||
<!ENTITY revision "Razli\U-010D;ica">
|
||||
<!ENTITY sect1 "Razdelek">
|
||||
<!ENTITY sect2 "Razdelek">
|
||||
<!ENTITY sect3 "Razdelek">
|
||||
<!ENTITY sect4 "Razdelek">
|
||||
<!ENTITY sect5 "Razdelek">
|
||||
<!ENTITY Section "Razdelek">
|
||||
<!ENTITY section "razdelek">
|
||||
<!ENTITY see "glej">
|
||||
<!ENTITY See "glej">
|
||||
<!ENTITY Seealso "Glej tudi">
|
||||
<!ENTITY seealso "glej tudi">
|
||||
<!ENTITY SeeAlso "glej tudi">
|
||||
<!ENTITY Set "Postavi">
|
||||
<!ENTITY set "Postavi">
|
||||
<!ENTITY SetIndex "Postavi stvarno kazalo">
|
||||
<!ENTITY setindex "Postavi stvarno kazalo">
|
||||
<!ENTITY Sidebar "">
|
||||
<!ENTITY sidebar "sidebar">
|
||||
<!ENTITY step "korak">
|
||||
<!ENTITY Step "Korak">
|
||||
<!ENTITY table "Tabela">
|
||||
<!ENTITY Table "Tabela">
|
||||
<!ENTITY TIP "NAMIG">
|
||||
<!ENTITY Tip "Namig">
|
||||
<!ENTITY tip "Namig">
|
||||
<!ENTITY WARNING "POZOR">
|
||||
<!ENTITY Warning "Pozor">
|
||||
<!ENTITY warning "Pozor">
|
||||
<!ENTITY and "in">
|
||||
<!ENTITY by "od">
|
||||
<!ENTITY Edited "Urejeno">
|
||||
<!ENTITY edited "Urejeno">
|
||||
<!ENTITY Editedby "Uredil">
|
||||
<!ENTITY editedby "Uredil">
|
||||
<!ENTITY in "v">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "neobstoje\U-010D;i element">
|
||||
<!ENTITY Notes "Notes">
|
||||
<!ENTITY notes "Notes">
|
||||
<!ENTITY Pgs "Str.">
|
||||
<!ENTITY pgs "Str.">
|
||||
<!ENTITY Revisedby "Pregledal: ">
|
||||
<!ENTITY revisedby "Pregledal: ">
|
||||
<!ENTITY TableNotes "Notes">
|
||||
<!ENTITY tablenotes "Notes">
|
||||
<!ENTITY TableofContents "Kazalo">
|
||||
<!ENTITY tableofcontents "Kazalo">
|
||||
<!ENTITY unexpectedelementname "Nepri\U-010D;akovano ime elementa">
|
||||
<!ENTITY unsupported "nepodprto">
|
||||
<!ENTITY xrefto "xref na">
|
||||
<!ENTITY listofequations "Seznam ena\U-010D;b">
|
||||
<!ENTITY ListofEquations "Seznam ena\U-010D;b">
|
||||
<!ENTITY ListofExamples "Seznam primerov">
|
||||
<!ENTITY listofexamples "Seznam primerov">
|
||||
<!ENTITY ListofFigures "Seznam slik">
|
||||
<!ENTITY listoffigures "Seznam slik">
|
||||
<!ENTITY listoftables "Seznam tabel">
|
||||
<!ENTITY ListofTables "Seznam tabel">
|
||||
<!ENTITY ListofUnknown "Seznam neznanih stvari">
|
||||
<!ENTITY listofunknown "Seznam neznanih stvari">
|
||||
<!ENTITY nav-home "Domov">
|
||||
<!ENTITY nav-next "Naprej">
|
||||
<!ENTITY nav-next-sibling "Hitro naprej">
|
||||
<!ENTITY nav-prev "Nazaj">
|
||||
<!ENTITY nav-prev-sibling "Hitro nazaj">
|
||||
<!ENTITY nav-up "Gor">
|
||||
<!ENTITY sectioncalled "razdelek, imenovan">
|
||||
<!ENTITY lowercase.alpha "abc\U-010D;defghijklmnopqrs\U-0161;tuvwxyz\U-017E;">
|
||||
<!ENTITY uppercase.alpha "ABC\U-010C;DEFGHIJKLMNOPQRS\U-0160;TUVWXYZ\U-017D;">
|
||||
446
docs/dsssl/docbook/common/dbl1sr.dsl
Executable file
446
docs/dsssl/docbook/common/dbl1sr.dsl
Executable file
@@ -0,0 +1,446 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % lat2 PUBLIC "ISO 8879:1986//ENTITIES Added Latin 2//EN">
|
||||
%lat2;
|
||||
<!ENTITY % sr.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//SR"
|
||||
"dbl1sr.ent">
|
||||
%sr.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-sr">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; 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 (sr-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 (sr-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"the &appendix; called %t"))
|
||||
(list (normalize "article") (string-append %gentext-sr-start-quote%
|
||||
"%t"
|
||||
%gentext-sr-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-sr-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (sr-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 (sr-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-sr-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (sr-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-sr-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (sr-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-sr-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-sr-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-sr-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (sr-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-sr-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-sr-intra-label-sep)))
|
||||
(sep (assoc name (sr-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-sr-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (sr-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-sr-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-sr-label-title-sep)))
|
||||
(sep (assoc name (sr-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (sr-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 (sr-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (sr-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (sr-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-sr$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (sr-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-sr-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-sr-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-sr-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-sr-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-sr-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-sr-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-sr-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-sr-page% "")
|
||||
|
||||
(define %gentext-sr-and% "∧")
|
||||
|
||||
(define %gentext-sr-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-sr-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-sr-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-sr-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-sr-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-sr-index-see% "&See;")
|
||||
|
||||
(define %gentext-sr-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-sr-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-sr-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-sr-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-sr-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-sr-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-sr-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
146
docs/dsssl/docbook/common/dbl1sr.ent
Executable file
146
docs/dsssl/docbook/common/dbl1sr.ent
Executable file
@@ -0,0 +1,146 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "Pregled">
|
||||
<!ENTITY abstract "Pregled">
|
||||
<!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 "Upozorenje">
|
||||
<!ENTITY caution "Upozorenje">
|
||||
<!ENTITY CAUTION "UPOZORENJE">
|
||||
<!ENTITY Chapter "Poglavlje">
|
||||
<!ENTITY chapter "poglavlje">
|
||||
<!ENTITY Colophon "Kolofon">
|
||||
<!ENTITY colophon "Kolofon">
|
||||
<!ENTITY Copyright "Pravna za\U-0161;tita">
|
||||
<!ENTITY copyright "Pravna za\U-0161;tita">
|
||||
<!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 "Primer">
|
||||
<!ENTITY example "Primer">
|
||||
<!ENTITY Figure "Slika">
|
||||
<!ENTITY figure "Slika">
|
||||
<!ENTITY Glossary "Re\U-010D;nik">
|
||||
<!ENTITY glossary "Re\U-010D;nik">
|
||||
<!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 "Pravno obave\U-0161;tenje">
|
||||
<!ENTITY legalnotice "Pravno obave\U-0161;tenje">
|
||||
<!ENTITY MsgAud "MsgAud">
|
||||
<!ENTITY msgaud "MsgAud">
|
||||
<!ENTITY MsgLevel "Nivo">
|
||||
<!ENTITY msglevel "Nivo">
|
||||
<!ENTITY MsgOrig "Izvor">
|
||||
<!ENTITY msgorig "Izvor">
|
||||
<!ENTITY note "Primedba">
|
||||
<!ENTITY NOTE "PRIMEDBA">
|
||||
<!ENTITY Note "Primedba">
|
||||
<!ENTITY Part "Deo">
|
||||
<!ENTITY part "Deo">
|
||||
<!ENTITY Preface "Predgovor">
|
||||
<!ENTITY preface "Predgovor">
|
||||
<!ENTITY Procedure "Postupak">
|
||||
<!ENTITY procedure "Postupak">
|
||||
<!ENTITY Published "Izdato">
|
||||
<!ENTITY published "Izdato">
|
||||
<!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 "Sinopsis">
|
||||
<!ENTITY refsynopsisdiv "Sinopsis">
|
||||
<!ENTITY RevHistory "Istorija revizija">
|
||||
<!ENTITY revhistory "Istorija revizija">
|
||||
<!ENTITY Revision "Revizija">
|
||||
<!ENTITY revision "Revizija">
|
||||
<!ENTITY Section "Odeljak">
|
||||
<!ENTITY section "sekcija">
|
||||
<!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 "Postavi">
|
||||
<!ENTITY Set "Postavi">
|
||||
<!ENTITY SetIndex "Postavi indeks">
|
||||
<!ENTITY setindex "Postavi indeks">
|
||||
<!ENTITY Sidebar "">
|
||||
<!ENTITY sidebar "sidebar">
|
||||
<!ENTITY step "korak">
|
||||
<!ENTITY Step "Korak">
|
||||
<!ENTITY table "Tabela">
|
||||
<!ENTITY Table "Tabela">
|
||||
<!ENTITY TIP "SAVET">
|
||||
<!ENTITY Tip "Savet">
|
||||
<!ENTITY tip "Savet">
|
||||
<!ENTITY WARNING "UPOZORENJE">
|
||||
<!ENTITY Warning "Upozorenje">
|
||||
<!ENTITY warning "Upozorenje">
|
||||
<!ENTITY and "i">
|
||||
<!ENTITY by "od">
|
||||
<!ENTITY Edited "Ure\U-0111;eno">
|
||||
<!ENTITY edited "Ure\U-0111;eno">
|
||||
<!ENTITY Editedby "Ure\U-0111;eno od">
|
||||
<!ENTITY editedby "Ure\U-0111;eno od">
|
||||
<!ENTITY in "u">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "nepostoje\U-0107;i element">
|
||||
<!ENTITY notes "Notes">
|
||||
<!ENTITY Notes "Notes">
|
||||
<!ENTITY Pgs "Str.">
|
||||
<!ENTITY pgs "Str.">
|
||||
<!ENTITY Revisedby "Revised by: ">
|
||||
<!ENTITY revisedby "Revised by: ">
|
||||
<!ENTITY TableNotes "Notes">
|
||||
<!ENTITY tablenotes "Notes">
|
||||
<!ENTITY TableofContents "Sadr\U-017E;aj">
|
||||
<!ENTITY tableofcontents "Sadr\U-017E;aj">
|
||||
<!ENTITY unexpectedelementname "Neo\U-010D;ekivano ime elementa">
|
||||
<!ENTITY unsupported "nepodr\U-017E;ano">
|
||||
<!ENTITY xrefto "xref na">
|
||||
<!ENTITY listofequations "Spisak jedna\U-010D;ina">
|
||||
<!ENTITY ListofEquations "Spisak jedna\U-010D;ina">
|
||||
<!ENTITY ListofExamples "Spisak primera">
|
||||
<!ENTITY listofexamples "Spisak primera">
|
||||
<!ENTITY ListofFigures "Spisak slika">
|
||||
<!ENTITY listoffigures "Spisak slika">
|
||||
<!ENTITY listoftables "Spisak tabela">
|
||||
<!ENTITY ListofTables "Spisak tabela">
|
||||
<!ENTITY ListofUnknown "Spisak nepoznanica">
|
||||
<!ENTITY listofunknown "Spisak nepoznanica">
|
||||
<!ENTITY nav-home "Ku\U-0107;i">
|
||||
<!ENTITY nav-next "Napred">
|
||||
<!ENTITY nav-next-sibling "Brzo napred">
|
||||
<!ENTITY nav-prev "Nazad">
|
||||
<!ENTITY nav-prev-sibling "Brzo nazad">
|
||||
<!ENTITY nav-up "Gore">
|
||||
448
docs/dsssl/docbook/common/dbl1sv.dsl
Executable file
448
docs/dsssl/docbook/common/dbl1sv.dsl
Executable file
@@ -0,0 +1,448 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % sv.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//SV"
|
||||
"dbl1sv.ent">
|
||||
%sv.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-sv">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; 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.
|
||||
;;
|
||||
;; Contributors:
|
||||
;; Marcus Better, marcus@dactylis.se
|
||||
;;
|
||||
|
||||
(define (sv-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 (sv-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"&Appendix; som &called; %t"))
|
||||
(list (normalize "article") (string-append %gentext-sv-start-quote%
|
||||
"%t"
|
||||
%gentext-sv-end-quote%))
|
||||
(list (normalize "bibliography") "%t")
|
||||
(list (normalize "book") "%t")
|
||||
(list (normalize "chapter") (if %chapter-autolabel%
|
||||
"&Chapter; %n"
|
||||
"&Chapter; som &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"
|
||||
"&Section; som &called; %t"))
|
||||
(list (normalize "sect1") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"&Section; som &called; %t"))
|
||||
(list (normalize "sect2") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"&Section; som &called; %t"))
|
||||
(list (normalize "sect3") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"&Section; som &called; %t"))
|
||||
(list (normalize "sect4") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"&Section; som &called; %t"))
|
||||
(list (normalize "sect5") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"&Section; som &called; %t"))
|
||||
(list (normalize "simplesect") (if %section-autolabel%
|
||||
"&Section; %n"
|
||||
"&Section; som &called; %t"))
|
||||
(list (normalize "sidebar") "&sidebar; %t")
|
||||
(list (normalize "step") "&step; %n")
|
||||
(list (normalize "table") "&Table; %n")))
|
||||
|
||||
(define (gentext-sv-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (sv-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 (sv-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 " in "))
|
||||
((equal? (gi before) (normalize "chapter"))
|
||||
(literal " in "))
|
||||
((equal? (gi before) (normalize "sect1"))
|
||||
(literal " in "))
|
||||
(else
|
||||
(literal " in "))))
|
||||
|
||||
;; Should the TOC come first or last?
|
||||
;;
|
||||
(define %generate-sv-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (sv-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-sv-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (sv-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-sv-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-sv-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-sv-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (sv-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-sv-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-sv-intra-label-sep)))
|
||||
(sep (assoc name (sv-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-sv-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (sv-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-sv-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-sv-label-title-sep)))
|
||||
(sep (assoc name (sv-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (sv-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 (sv-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (sv-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (sv-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-sv$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (sv-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-sv-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-sv-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-sv-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-sv-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-sv-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-sv-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-sv-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-sv-page% "")
|
||||
|
||||
(define %gentext-sv-and% "∧")
|
||||
|
||||
(define %gentext-sv-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-sv-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-sv-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-sv-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-sv-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-sv-index-see% "&See;")
|
||||
|
||||
(define %gentext-sv-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-sv-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-sv-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-sv-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-sv-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-sv-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-sv-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
147
docs/dsssl/docbook/common/dbl1sv.ent
Executable file
147
docs/dsssl/docbook/common/dbl1sv.ent
Executable file
@@ -0,0 +1,147 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "Sammanfattning">
|
||||
<!ENTITY abstract "Sammanfattning">
|
||||
<!ENTITY Answer "A:">
|
||||
<!ENTITY answer "A:">
|
||||
<!ENTITY Appendix "Appendix">
|
||||
<!ENTITY appendix "appendix">
|
||||
<!ENTITY Article "Artikel">
|
||||
<!ENTITY article "Artikel">
|
||||
<!ENTITY Bibliography "Bibliografi">
|
||||
<!ENTITY bibliography "Bibliografi">
|
||||
<!ENTITY Book "Bok">
|
||||
<!ENTITY book "Bok">
|
||||
<!ENTITY CAUTION "OBSERVERA">
|
||||
<!ENTITY Caution "Observera">
|
||||
<!ENTITY caution "Observera">
|
||||
<!ENTITY Chapter "Kapitel">
|
||||
<!ENTITY chapter "kapitel">
|
||||
<!ENTITY Colophon "Colophon">
|
||||
<!ENTITY colophon "Colophon">
|
||||
<!ENTITY Copyright "Copyright">
|
||||
<!ENTITY copyright "Copyright">
|
||||
<!ENTITY Dedication "Dedikation">
|
||||
<!ENTITY dedication "Dedikation">
|
||||
<!ENTITY Edition "Utg\U-00E5;va">
|
||||
<!ENTITY edition "Utg\U-00E5;va">
|
||||
<!ENTITY Equation "Ekvation">
|
||||
<!ENTITY equation "Ekvation">
|
||||
<!ENTITY Example "Exempel">
|
||||
<!ENTITY example "Exempel">
|
||||
<!ENTITY Figure "Figur">
|
||||
<!ENTITY figure "Figur">
|
||||
<!ENTITY Glossary "Gloslista">
|
||||
<!ENTITY glossary "Gloslista">
|
||||
<!ENTITY GlossSee "Se">
|
||||
<!ENTITY glosssee "Se">
|
||||
<!ENTITY GlossSeeAlso "Se \U-00C4;ven">
|
||||
<!ENTITY glossseealso "Se \U-00C4;ven">
|
||||
<!ENTITY IMPORTANT "VIKTIGT">
|
||||
<!ENTITY Important "Viktigt">
|
||||
<!ENTITY important "Viktigt">
|
||||
<!ENTITY Index "Index">
|
||||
<!ENTITY index "Index">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY LegalNotice "Legal Notice">
|
||||
<!ENTITY legalnotice "Legal Notice">
|
||||
<!ENTITY MsgAud "M\U-00E5;lgrupp">
|
||||
<!ENTITY msgaud "M\U-00E5;lgrupp">
|
||||
<!ENTITY MsgLevel "Niv\U-00E5;">
|
||||
<!ENTITY msglevel "Niv\U-00E5;">
|
||||
<!ENTITY MsgOrig "Ursprung">
|
||||
<!ENTITY msgorig "Ursprung">
|
||||
<!ENTITY note "Not">
|
||||
<!ENTITY NOTE "NOT">
|
||||
<!ENTITY Note "Not">
|
||||
<!ENTITY Part "Del">
|
||||
<!ENTITY part "Del">
|
||||
<!ENTITY Preface "F\U-00F6;retal">
|
||||
<!ENTITY preface "F\U-00F6;retal">
|
||||
<!ENTITY Procedure "Procedur">
|
||||
<!ENTITY procedure "Procedur">
|
||||
<!ENTITY Published "Publicerad">
|
||||
<!ENTITY published "Publicerad">
|
||||
<!ENTITY Question "Fr\U-00E5;ga:">
|
||||
<!ENTITY question "Fr\U-00E5;ga:">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "Referens">
|
||||
<!ENTITY reference "Referens">
|
||||
<!ENTITY RefName "Namn">
|
||||
<!ENTITY refname "Namn">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "Synopsis">
|
||||
<!ENTITY refsynopsisdiv "Synopsis">
|
||||
<!ENTITY RevHistory "Revisions Historik;">
|
||||
<!ENTITY revhistory "Revisions Historik;">
|
||||
<!ENTITY Revision "Revision">
|
||||
<!ENTITY revision "Revision">
|
||||
<!ENTITY Section "Avsnitt">
|
||||
<!ENTITY section "avsnitt">
|
||||
<!ENTITY see "Se">
|
||||
<!ENTITY See "Se">
|
||||
<!ENTITY seealso "Se \U-00C4;ven">
|
||||
<!ENTITY SeeAlso "Se \U-00C4;ven">
|
||||
<!ENTITY Seealso "Se \U-00E4;ven">
|
||||
<!ENTITY set "Set">
|
||||
<!ENTITY Set "Set">
|
||||
<!ENTITY SetIndex "Set Index">
|
||||
<!ENTITY setindex "Set Index">
|
||||
<!ENTITY sidebar "sidebar">
|
||||
<!ENTITY Sidebar "Sidebar">
|
||||
<!ENTITY step "steg">
|
||||
<!ENTITY Step "Steg">
|
||||
<!ENTITY Table "Tabell">
|
||||
<!ENTITY table "Tabell">
|
||||
<!ENTITY tip "Tips">
|
||||
<!ENTITY TIP "TIPS">
|
||||
<!ENTITY Tip "Tips">
|
||||
<!ENTITY warning "Varning">
|
||||
<!ENTITY WARNING "VARNING">
|
||||
<!ENTITY Warning "Varning">
|
||||
<!ENTITY and "och">
|
||||
<!ENTITY by "av">
|
||||
<!ENTITY called "kallas">
|
||||
<!ENTITY edited "Redigerad">
|
||||
<!ENTITY Edited "Redigerad">
|
||||
<!ENTITY Editedby "Redigerad av">
|
||||
<!ENTITY editedby "Redigerad av">
|
||||
<!ENTITY in "i">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "non-existant element">
|
||||
<!ENTITY Notes "Noter">
|
||||
<!ENTITY Pgs "Sid.">
|
||||
<!ENTITY pgs "Sid.">
|
||||
<!ENTITY Revisedby "Reviderad av: ">
|
||||
<!ENTITY revisedby "Reviderad av: ">
|
||||
<!ENTITY TableNotes "Noter">
|
||||
<!ENTITY tablenotes "Noter">
|
||||
<!ENTITY TableofContents "Inneh\U-00E5;llsf\U-00F6;rteckning">
|
||||
<!ENTITY tableofcontents "Inneh\U-00E5;llsf\U-00F6;rteckning">
|
||||
<!ENTITY the "">
|
||||
<!ENTITY unexpectedelementname "Unexpected element name">
|
||||
<!ENTITY unsupported "unsupported">
|
||||
<!ENTITY xrefto "xref till">
|
||||
<!ENTITY listofequations "Ekvationsf\U-00F6;rteckning">
|
||||
<!ENTITY ListofEquations "Ekvationsf\U-00F6;rteckning">
|
||||
<!ENTITY ListofExamples "Exempelf\U-00F6;rteckning">
|
||||
<!ENTITY listofexamples "Exempelf\U-00F6;rteckning">
|
||||
<!ENTITY ListofFigures "Figurf\U-00F6;rteckning">
|
||||
<!ENTITY listoffigures "Figurf\U-00F6;rteckning">
|
||||
<!ENTITY listoftables "Tabellf\U-00F6;rteckning">
|
||||
<!ENTITY ListofTables "Tabellf\U-00F6;rteckning">
|
||||
<!ENTITY ListofUnknown "F\U-00F6;rteckning av ok\U-00E4;nda">
|
||||
<!ENTITY listofunknown "F\U-00F6;rteckning av ok\U-00E4;nda">
|
||||
<!ENTITY nav-home "Hem">
|
||||
<!ENTITY nav-next "N\U-00E4;sta">
|
||||
<!ENTITY nav-next-sibling "Snabbt bak\U-00E5;t">
|
||||
<!ENTITY nav-prev "F\U-00F6;reg\U-00E5;ende">
|
||||
<!ENTITY nav-prev-sibling "Snabbt fram\U-00E5;t">
|
||||
<!ENTITY nav-up "Upp">
|
||||
155
docs/dsssl/docbook/common/dbl1th.ent
Executable file
155
docs/dsssl/docbook/common/dbl1th.ent
Executable file
@@ -0,0 +1,155 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "\U-0E1A;\U-0E17;\U-0E04;\U-0E31;\U-0E14;\U-0E22;\U-0E48;\U-0E2D;">
|
||||
<!ENTITY abstract "\U-0E1A;\U-0E17;\U-0E04;\U-0E31;\U-0E14;\U-0E22;\U-0E48;\U-0E2D;">
|
||||
<!ENTITY Answer "\U-0E15;\U-0E2D;\U-0E1A;:">
|
||||
<!ENTITY answer "\U-0E15;\U-0E2D;\U-0E1A;:">
|
||||
<!ENTITY Appendix "\U-0E20;\U-0E32;\U-0E04;\U-0E1C;\U-0E19;\U-0E27;\U-0E01;">
|
||||
<!ENTITY appendix "\U-0E20;\U-0E32;\U-0E04;\U-0E1C;\U-0E19;\U-0E27;\U-0E01;">
|
||||
<!ENTITY Article "\U-0E1A;\U-0E17;\U-0E04;\U-0E27;\U-0E32;\U-0E21;">
|
||||
<!ENTITY article "\U-0E1A;\U-0E17;\U-0E04;\U-0E27;\U-0E32;\U-0E21;">
|
||||
<!ENTITY Bibliography "\U-0E1A;\U-0E23;\U-0E23;\U-0E13;\U-0E32;\U-0E19;\U-0E38;\U-0E01;\U-0E23;\U-0E21;">
|
||||
<!ENTITY bibliography "\U-0E1A;\U-0E23;\U-0E23;\U-0E13;\U-0E32;\U-0E19;\U-0E38;\U-0E01;\U-0E23;\U-0E21;">
|
||||
<!ENTITY Book "\U-0E2B;\U-0E19;\U-0E31;\U-0E07;\U-0E2A;\U-0E37;\U-0E2D;">
|
||||
<!ENTITY book "\U-0E2B;\U-0E19;\U-0E31;\U-0E07;\U-0E2A;\U-0E37;\U-0E2D;">
|
||||
<!ENTITY CAUTION "\U-0E04;\U-0E33;\U-0E40;\U-0E15;\U-0E37;\U-0E2D;\U-0E19;">
|
||||
<!ENTITY Caution "\U-0E04;\U-0E33;\U-0E40;\U-0E15;\U-0E37;\U-0E2D;\U-0E19;">
|
||||
<!ENTITY caution "\U-0E04;\U-0E33;\U-0E40;\U-0E15;\U-0E37;\U-0E2D;\U-0E19;">
|
||||
<!ENTITY Chapter "\U-0E1A;\U-0E17;\U-0E17;\U-0E35;\U-0E48;">
|
||||
<!ENTITY chapter "\U-0E1A;\U-0E17;\U-0E17;\U-0E35;\U-0E48;">
|
||||
<!ENTITY Colophon "\U-0E40;\U-0E1A;\U-0E37;\U-0E49;\U-0E2D;\U-0E07;\U-0E2B;\U-0E25;\U-0E31;\U-0E07;">
|
||||
<!ENTITY colophon "\U-0E40;\U-0E1A;\U-0E37;\U-0E49;\U-0E2D;\U-0E07;\U-0E2B;\U-0E25;\U-0E31;\U-0E07;">
|
||||
<!ENTITY Copyright "\U-0E2A;\U-0E07;\U-0E27;\U-0E19;\U-0E2A;\U-0E34;\U-0E02;\U-0E2A;\U-0E34;\U-0E17;\U-0E18;\U-0E34;\U-0E4C;">
|
||||
<!ENTITY copyright "\U-0E2A;\U-0E07;\U-0E27;\U-0E19;\U-0E2A;\U-0E34;\U-0E02;\U-0E2A;\U-0E34;\U-0E17;\U-0E18;\U-0E34;\U-0E4C;">
|
||||
<!ENTITY Dedication "\U-0E04;\U-0E33;\U-0E2D;\U-0E38;\U-0E17;\U-0E34;\U-0E28;">
|
||||
<!ENTITY dedication "\U-0E04;\U-0E33;\U-0E2D;\U-0E38;\U-0E17;\U-0E34;\U-0E28;">
|
||||
<!ENTITY Edition "\U-0E09;\U-0E1A;\U-0E31;\U-0E1A;">
|
||||
<!ENTITY edition "\U-0E09;\U-0E1A;\U-0E31;\U-0E1A;">
|
||||
<!ENTITY Equation "\U-0E2A;\U-0E21;\U-0E01;\U-0E32;\U-0E23;">
|
||||
<!ENTITY equation "\U-0E2A;\U-0E21;\U-0E01;\U-0E32;\U-0E23;">
|
||||
<!ENTITY Example "\U-0E15;\U-0E31;\U-0E27;\U-0E2D;\U-0E22;\U-0E48;\U-0E32;\U-0E07;">
|
||||
<!ENTITY example "\U-0E15;\U-0E31;\U-0E27;\U-0E2D;\U-0E22;\U-0E48;\U-0E32;\U-0E07;">
|
||||
<!ENTITY Figure "\U-0E23;\U-0E39;\U-0E1B;">
|
||||
<!ENTITY figure "\U-0E23;\U-0E39;\U-0E1B;">
|
||||
<!ENTITY Glossary "\U-0E2D;\U-0E20;\U-0E34;\U-0E17;\U-0E32;\U-0E19;\U-0E28;\U-0E31;\U-0E1E;\U-0E17;\U-0E4C;">
|
||||
<!ENTITY glossary "\U-0E2D;\U-0E20;\U-0E34;\U-0E17;\U-0E32;\U-0E19;\U-0E28;\U-0E31;\U-0E1E;\U-0E17;\U-0E4C;">
|
||||
<!ENTITY GlossSee "\U-0E14;\U-0E39;">
|
||||
<!ENTITY glosssee "\U-0E14;\U-0E39;">
|
||||
<!ENTITY GlossSeeAlso "\U-0E14;\U-0E39;\U-0E40;\U-0E1E;\U-0E34;\U-0E48;\U-0E21;\U-0E40;\U-0E15;\U-0E34;\U-0E21;">
|
||||
<!ENTITY glossseealso "\U-0E14;\U-0E39;\U-0E40;\U-0E1E;\U-0E34;\U-0E48;\U-0E21;\U-0E40;\U-0E15;\U-0E34;\U-0E21;">
|
||||
<!ENTITY IMPORTANT "\U-0E02;\U-0E49;\U-0E2D;\U-0E04;\U-0E27;\U-0E23;\U-0E08;\U-0E33;">
|
||||
<!ENTITY important "\U-0E02;\U-0E49;\U-0E2D;\U-0E04;\U-0E27;\U-0E23;\U-0E08;\U-0E33;">
|
||||
<!ENTITY Important "\U-0E02;\U-0E49;\U-0E2D;\U-0E04;\U-0E27;\U-0E23;\U-0E08;\U-0E33;">
|
||||
<!ENTITY Index "\U-0E14;\U-0E23;\U-0E23;\U-0E0A;\U-0E19;\U-0E35;">
|
||||
<!ENTITY index "\U-0E14;\U-0E23;\U-0E23;\U-0E0A;\U-0E19;\U-0E35;">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY LegalNotice "\U-0E02;\U-0E49;\U-0E2D;\U-0E1C;\U-0E39;\U-0E01;\U-0E1E;\U-0E31;\U-0E19;\U-0E15;\U-0E32;\U-0E21;\U-0E01;\U-0E0E;\U-0E2B;\U-0E21;\U-0E32;\U-0E22;">
|
||||
<!ENTITY legalnotice "\U-0E02;\U-0E49;\U-0E2D;\U-0E1C;\U-0E39;\U-0E01;\U-0E1E;\U-0E31;\U-0E19;\U-0E15;\U-0E32;\U-0E21;\U-0E01;\U-0E0E;\U-0E2B;\U-0E21;\U-0E32;\U-0E22;">
|
||||
<!ENTITY MsgAud "\U-0E1C;\U-0E39;\U-0E49;\U-0E2D;\U-0E48;\U-0E32;\U-0E19;">
|
||||
<!ENTITY msgaud "\U-0E1C;\U-0E39;\U-0E49;\U-0E2D;\U-0E48;\U-0E32;\U-0E19;">
|
||||
<!ENTITY MsgLevel "\U-0E23;\U-0E30;\U-0E14;\U-0E31;\U-0E1A;">
|
||||
<!ENTITY msglevel "\U-0E23;\U-0E30;\U-0E14;\U-0E31;\U-0E1A;">
|
||||
<!ENTITY MsgOrig "\U-0E17;\U-0E35;\U-0E48;\U-0E21;\U-0E32;">
|
||||
<!ENTITY msgorig "\U-0E17;\U-0E35;\U-0E48;\U-0E21;\U-0E32;">
|
||||
<!ENTITY NOTE "\U-0E2B;\U-0E21;\U-0E32;\U-0E22;\U-0E40;\U-0E2B;\U-0E15;\U-0E38;">
|
||||
<!ENTITY Note "\U-0E2B;\U-0E21;\U-0E32;\U-0E22;\U-0E40;\U-0E2B;\U-0E15;\U-0E38;">
|
||||
<!ENTITY note "\U-0E2B;\U-0E21;\U-0E32;\U-0E22;\U-0E40;\U-0E2B;\U-0E15;\U-0E38;">
|
||||
<!ENTITY Part "\U-0E20;\U-0E32;\U-0E04;">
|
||||
<!ENTITY part "\U-0E20;\U-0E32;\U-0E04;">
|
||||
<!ENTITY Preface "\U-0E04;\U-0E33;\U-0E19;\U-0E33;">
|
||||
<!ENTITY preface "\U-0E04;\U-0E33;\U-0E19;\U-0E33;">
|
||||
<!ENTITY Procedure "\U-0E23;\U-0E30;\U-0E40;\U-0E1A;\U-0E35;\U-0E22;\U-0E1A;\U-0E01;\U-0E32;\U-0E23;">
|
||||
<!ENTITY procedure "\U-0E23;\U-0E30;\U-0E40;\U-0E1A;\U-0E35;\U-0E22;\U-0E1A;\U-0E01;\U-0E32;\U-0E23;">
|
||||
<!ENTITY ProductionSet "\U-0E1C;\U-0E25;\U-0E34;\U-0E15;">
|
||||
<!ENTITY Published "\U-0E15;\U-0E35;\U-0E1E;\U-0E34;\U-0E21;\U-0E1E;\U-0E4C;">
|
||||
<!ENTITY published "\U-0E15;\U-0E35;\U-0E1E;\U-0E34;\U-0E21;\U-0E1E;\U-0E4C;">
|
||||
<!ENTITY Question "\U-0E16;\U-0E32;\U-0E21;:">
|
||||
<!ENTITY question "\U-0E16;\U-0E32;\U-0E21;:">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "\U-0E2B;\U-0E19;\U-0E31;\U-0E07;\U-0E2A;\U-0E37;\U-0E2D;\U-0E2D;\U-0E49;\U-0E32;\U-0E07;\U-0E2D;\U-0E34;\U-0E07;">
|
||||
<!ENTITY reference "\U-0E2B;\U-0E19;\U-0E31;\U-0E07;\U-0E2A;\U-0E37;\U-0E2D;\U-0E2D;\U-0E49;\U-0E32;\U-0E07;\U-0E2D;\U-0E34;\U-0E07;">
|
||||
<!ENTITY RefName "\U-0E0A;\U-0E37;\U-0E48;\U-0E2D;">
|
||||
<!ENTITY refname "\U-0E0A;\U-0E37;\U-0E48;\U-0E2D;">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "\U-0E2A;\U-0E32;\U-0E23;\U-0E30;\U-0E2A;\U-0E33;\U-0E04;\U-0E31;\U-0E0D;">
|
||||
<!ENTITY refsynopsisdiv "\U-0E2A;\U-0E32;\U-0E23;\U-0E30;\U-0E2A;\U-0E33;\U-0E04;\U-0E31;\U-0E0D;">
|
||||
<!ENTITY RevHistory "\U-0E1A;\U-0E31;\U-0E19;\U-0E17;\U-0E36;\U-0E01;\U-0E23;\U-0E38;\U-0E48;\U-0E19;">
|
||||
<!ENTITY revhistory "\U-0E1A;\U-0E31;\U-0E19;\U-0E17;\U-0E36;\U-0E01;\U-0E23;\U-0E38;\U-0E48;\U-0E19;">
|
||||
<!ENTITY revision "\U-0E23;\U-0E38;\U-0E48;\U-0E19;\U-0E17;\U-0E35;\U-0E48;">
|
||||
<!ENTITY Revision "\U-0E23;\U-0E38;\U-0E48;\U-0E19;\U-0E17;\U-0E35;\U-0E48;">
|
||||
<!ENTITY sect1 "\U-0E15;\U-0E2D;\U-0E19;\U-0E17;\U-0E35;\U-0E48;">
|
||||
<!ENTITY sect2 "\U-0E15;\U-0E2D;\U-0E19;\U-0E17;\U-0E35;\U-0E48;">
|
||||
<!ENTITY sect3 "\U-0E15;\U-0E2D;\U-0E19;\U-0E17;\U-0E35;\U-0E48;">
|
||||
<!ENTITY sect4 "\U-0E15;\U-0E2D;\U-0E19;\U-0E17;\U-0E35;\U-0E48;">
|
||||
<!ENTITY sect5 "\U-0E15;\U-0E2D;\U-0E19;\U-0E17;\U-0E35;\U-0E48;">
|
||||
<!ENTITY section "\U-0E15;\U-0E2D;\U-0E19;\U-0E17;\U-0E35;\U-0E48;">
|
||||
<!ENTITY Section "\U-0E15;\U-0E2D;\U-0E19;\U-0E17;\U-0E35;\U-0E48;">
|
||||
<!ENTITY See "\U-0E14;\U-0E39;">
|
||||
<!ENTITY see "\U-0E14;\U-0E39;">
|
||||
<!ENTITY SeeAlso "\U-0E14;\U-0E39;\U-0E40;\U-0E1E;\U-0E34;\U-0E48;\U-0E21;\U-0E40;\U-0E15;\U-0E34;\U-0E21;">
|
||||
<!ENTITY seealso "\U-0E14;\U-0E39;\U-0E40;\U-0E1E;\U-0E34;\U-0E48;\U-0E21;\U-0E40;\U-0E15;\U-0E34;\U-0E21;">
|
||||
<!ENTITY Seealso "\U-0E14;\U-0E39;\U-0E40;\U-0E1E;\U-0E34;\U-0E48;\U-0E21;\U-0E40;\U-0E15;\U-0E34;\U-0E21;">
|
||||
<!ENTITY set "\U-0E0A;\U-0E38;\U-0E14;">
|
||||
<!ENTITY Set "\U-0E0A;\U-0E38;\U-0E14;">
|
||||
<!ENTITY setindex "\U-0E2A;\U-0E32;\U-0E23;\U-0E1A;\U-0E31;\U-0E0D;\U-0E0A;\U-0E38;\U-0E14;">
|
||||
<!ENTITY SetIndex "\U-0E2A;\U-0E32;\U-0E23;\U-0E1A;\U-0E31;\U-0E0D;\U-0E0A;\U-0E38;\U-0E14;">
|
||||
<!ENTITY Sidebar "">
|
||||
<!ENTITY sidebar "sidebar">
|
||||
<!ENTITY step "\U-0E25;\U-0E33;\U-0E14;\U-0E31;\U-0E1A;">
|
||||
<!ENTITY Step "\U-0E25;\U-0E33;\U-0E14;\U-0E31;\U-0E1A;">
|
||||
<!ENTITY Table "\U-0E15;\U-0E32;\U-0E23;\U-0E32;\U-0E07;">
|
||||
<!ENTITY table "\U-0E15;\U-0E32;\U-0E23;\U-0E32;\U-0E07;">
|
||||
<!ENTITY tip "\U-0E04;\U-0E33;\U-0E41;\U-0E19;\U-0E30;\U-0E19;\U-0E33;">
|
||||
<!ENTITY TIP "\U-0E04;\U-0E33;\U-0E41;\U-0E19;\U-0E30;\U-0E19;\U-0E33;">
|
||||
<!ENTITY Tip "\U-0E04;\U-0E33;\U-0E41;\U-0E19;\U-0E30;\U-0E19;\U-0E33;">
|
||||
<!ENTITY Warning "\U-0E42;\U-0E1B;\U-0E23;\U-0E14;\U-0E23;\U-0E30;\U-0E27;\U-0E31;\U-0E07;">
|
||||
<!ENTITY warning "\U-0E42;\U-0E1B;\U-0E23;\U-0E14;\U-0E23;\U-0E30;\U-0E27;\U-0E31;\U-0E07;">
|
||||
<!ENTITY WARNING "\U-0E42;\U-0E1B;\U-0E23;\U-0E14;\U-0E23;\U-0E30;\U-0E27;\U-0E31;\U-0E07;">
|
||||
<!ENTITY and "\U-0E41;\U-0E25;\U-0E30;">
|
||||
<!ENTITY by "\U-0E42;\U-0E14;\U-0E22;">
|
||||
<!ENTITY Edited "\U-0E40;\U-0E23;\U-0E35;\U-0E22;\U-0E1A;\U-0E40;\U-0E23;\U-0E35;\U-0E22;\U-0E07;">
|
||||
<!ENTITY edited "\U-0E40;\U-0E23;\U-0E35;\U-0E22;\U-0E1A;\U-0E40;\U-0E23;\U-0E35;\U-0E22;\U-0E07;">
|
||||
<!ENTITY Editedby "\U-0E40;\U-0E23;\U-0E35;\U-0E22;\U-0E1A;\U-0E40;\U-0E23;\U-0E35;\U-0E22;\U-0E07;\U-0E42;\U-0E14;\U-0E1A;">
|
||||
<!ENTITY editedby "\U-0E40;\U-0E23;\U-0E35;\U-0E22;\U-0E1A;\U-0E40;\U-0E23;\U-0E35;\U-0E22;\U-0E07;\U-0E42;\U-0E14;\U-0E1A;">
|
||||
<!ENTITY in "\U-0E43;\U-0E19;">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "\U-0E44;\U-0E21;\U-0E48;\U-0E1E;\U-0E1A;\U-0E2A;\U-0E48;\U-0E27;\U-0E19;\U-0E17;\U-0E35;\U-0E48;\U-0E15;\U-0E49;\U-0E2D;\U-0E07;\U-0E01;\U-0E32;\U-0E23;">
|
||||
<!ENTITY notes "\U-0E2B;\U-0E21;\U-0E32;\U-0E22;\U-0E40;\U-0E2B;\U-0E15;\U-0E38;">
|
||||
<!ENTITY Notes "\U-0E2B;\U-0E21;\U-0E32;\U-0E22;\U-0E40;\U-0E2B;\U-0E15;\U-0E38;">
|
||||
<!ENTITY Pgs "\U-0E2B;\U-0E19;\U-0E49;\U-0E32;">
|
||||
<!ENTITY pgs "\U-0E2B;\U-0E19;\U-0E49;\U-0E32;">
|
||||
<!ENTITY Revisedby "\U-0E41;\U-0E01;\U-0E49;\U-0E44;\U-0E02;\U-0E1B;\U-0E23;\U-0E31;\U-0E1A;\U-0E1B;\U-0E23;\U-0E38;\U-0E07;\U-0E42;\U-0E14;\U-0E22;: ">
|
||||
<!ENTITY revisedby "\U-0E41;\U-0E01;\U-0E49;\U-0E44;\U-0E02;\U-0E1B;\U-0E23;\U-0E31;\U-0E1A;\U-0E1B;\U-0E23;\U-0E38;\U-0E07;\U-0E42;\U-0E14;\U-0E22;: ">
|
||||
<!ENTITY TableNotes "\U-0E2B;\U-0E21;\U-0E32;\U-0E22;\U-0E40;\U-0E2B;\U-0E15;\U-0E38;">
|
||||
<!ENTITY tablenotes "\U-0E2B;\U-0E21;\U-0E32;\U-0E22;\U-0E40;\U-0E2B;\U-0E15;\U-0E38;">
|
||||
<!ENTITY TableofContents "\U-0E2A;\U-0E32;\U-0E23;\U-0E1A;\U-0E31;\U-0E0D;">
|
||||
<!ENTITY tableofcontents "\U-0E2A;\U-0E32;\U-0E23;\U-0E1A;\U-0E31;\U-0E0D;">
|
||||
<!ENTITY unexpectedelementname "\U-0E1E;\U-0E1A;\U-0E2A;\U-0E48;\U-0E27;\U-0E19;\U-0E17;\U-0E35;\U-0E48;\U-0E44;\U-0E21;\U-0E48;\U-0E15;\U-0E49;\U-0E2D;\U-0E07;\U-0E01;\U-0E32;\U-0E23;">
|
||||
<!ENTITY unsupported "\U-0E44;\U-0E21;\U-0E48;\U-0E2A;\U-0E19;\U-0E31;\U-0E1A;\U-0E2A;\U-0E19;\U-0E38;\U-0E19;">
|
||||
<!ENTITY xrefto "xref to">
|
||||
<!ENTITY listofequations "\U-0E2A;\U-0E32;\U-0E23;\U-0E1A;\U-0E31;\U-0E0D;\U-0E2A;\U-0E21;\U-0E01;\U-0E32;\U-0E23;">
|
||||
<!ENTITY ListofEquations "\U-0E2A;\U-0E32;\U-0E23;\U-0E1A;\U-0E31;\U-0E0D;\U-0E2A;\U-0E21;\U-0E01;\U-0E32;\U-0E23;">
|
||||
<!ENTITY ListofExamples "\U-0E2A;\U-0E32;\U-0E23;\U-0E1A;\U-0E31;\U-0E0D;\U-0E15;\U-0E31;\U-0E27;\U-0E2D;\U-0E22;\U-0E48;\U-0E32;\U-0E07;">
|
||||
<!ENTITY listofexamples "\U-0E2A;\U-0E32;\U-0E23;\U-0E1A;\U-0E31;\U-0E0D;\U-0E15;\U-0E31;\U-0E27;\U-0E2D;\U-0E22;\U-0E48;\U-0E32;\U-0E07;">
|
||||
<!ENTITY ListofFigures "\U-0E2A;\U-0E32;\U-0E23;\U-0E1A;\U-0E31;\U-0E0D;\U-0E23;\U-0E39;\U-0E1B;">
|
||||
<!ENTITY listoffigures "\U-0E2A;\U-0E32;\U-0E23;\U-0E1A;\U-0E31;\U-0E0D;\U-0E23;\U-0E39;\U-0E1B;">
|
||||
<!ENTITY listoftables "\U-0E2A;\U-0E32;\U-0E23;\U-0E1A;\U-0E31;\U-0E0D;\U-0E15;\U-0E32;\U-0E23;\U-0E32;\U-0E07;">
|
||||
<!ENTITY ListofTables "\U-0E2A;\U-0E32;\U-0E23;\U-0E1A;\U-0E31;\U-0E0D;\U-0E15;\U-0E32;\U-0E23;\U-0E32;\U-0E07;">
|
||||
<!ENTITY ListofUnknown "\U-0E2A;\U-0E32;\U-0E23;\U-0E1A;\U-0E31;\U-0E0D;\U-0E2D;\U-0E37;\U-0E48;\U-0E19; \U-0E46;">
|
||||
<!ENTITY listofunknown "\U-0E2A;\U-0E32;\U-0E23;\U-0E1A;\U-0E31;\U-0E0D;\U-0E2D;\U-0E37;\U-0E48;\U-0E19; \U-0E46;">
|
||||
<!ENTITY nav-home "\U-0E2B;\U-0E19;\U-0E49;\U-0E32;\U-0E41;\U-0E23;\U-0E01;">
|
||||
<!ENTITY nav-next "\U-0E15;\U-0E48;\U-0E2D;\U-0E44;\U-0E1B;">
|
||||
<!ENTITY nav-next-sibling "\U-0E15;\U-0E48;\U-0E2D;\U-0E44;\U-0E1B;">
|
||||
<!ENTITY nav-prev "\U-0E01;\U-0E48;\U-0E2D;\U-0E19;\U-0E2B;\U-0E19;\U-0E49;\U-0E32;">
|
||||
<!ENTITY nav-prev-sibling "\U-0E01;\U-0E48;\U-0E2D;\U-0E19;\U-0E2B;\U-0E19;\U-0E49;\U-0E32;">
|
||||
<!ENTITY nav-up "\U-0E01;\U-0E25;\U-0E31;\U-0E1A;">
|
||||
<!ENTITY sectioncalled "\U-0E15;\U-0E2D;\U-0E19;\U-0E19;\U-0E35;\U-0E49;\U-0E40;\U-0E49;\U-0E23;\U-0E35;\U-0E22;\U-0E01;\U-0E27;\U-0E48;\U-0E32;">
|
||||
<!ENTITY lowercase.alpha "abcdefghijklmnopqrstuvwxyz">
|
||||
<!ENTITY uppercase.alpha "ABCDEFGHIJKLMNOPQRSTUVWXYZ">
|
||||
443
docs/dsssl/docbook/common/dbl1tr.dsl
Executable file
443
docs/dsssl/docbook/common/dbl1tr.dsl
Executable file
@@ -0,0 +1,443 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % tr.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//TR"
|
||||
"dbl1tr.ent">
|
||||
%tr.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-tr">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; 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 Turkish by Baurjan Ismagulov, ibr@gantek.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 (tr-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 (tr-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"the &appendix; called %t"))
|
||||
(list (normalize "article") (string-append %gentext-tr-start-quote%
|
||||
"%t"
|
||||
%gentext-tr-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-tr-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (tr-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 (tr-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-tr-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (tr-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-tr-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (tr-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-tr-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-tr-element-name-space giname)
|
||||
(string-with-space (gentext-element-name giname)))
|
||||
|
||||
;; gentext-intra-label-sep returns the separator to be inserted
|
||||
;; between multiple occurrences 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-tr-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (tr-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-tr-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-tr-intra-label-sep)))
|
||||
(sep (assoc name (tr-intra-label-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
;; gentext-label-title-sep returns the separator 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-tr-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (tr-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-tr-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(sep (assoc name (tr-label-title-sep))))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
"")))
|
||||
|
||||
(define (tr-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 (tr-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (tr-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (tr-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-tr$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (tr-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-tr-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-tr-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-tr-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-tr-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-tr-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-tr-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-tr-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-tr-page% "")
|
||||
|
||||
(define %gentext-tr-and% "∧")
|
||||
|
||||
(define %gentext-tr-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-tr-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-tr-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-tr-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-tr-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-tr-index-see% "&See;")
|
||||
|
||||
(define %gentext-tr-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-tr-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-tr-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-tr-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-tr-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-tr-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-tr-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
157
docs/dsssl/docbook/common/dbl1tr.ent
Executable file
157
docs/dsssl/docbook/common/dbl1tr.ent
Executable file
@@ -0,0 +1,157 @@
|
||||
<?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-00D6;zet">
|
||||
<!ENTITY abstract "\U-00D6;zet">
|
||||
<!ENTITY Answer "Cevap:">
|
||||
<!ENTITY answer "Cevap:">
|
||||
<!ENTITY Appendix "Ek">
|
||||
<!ENTITY appendix "ek">
|
||||
<!ENTITY Article "Makale">
|
||||
<!ENTITY article "Makale">
|
||||
<!ENTITY Bibliography "Kaynak\U-00E7;a">
|
||||
<!ENTITY bibliography "Kaynak\U-00E7;a">
|
||||
<!ENTITY Book "Kitap">
|
||||
<!ENTITY book "Kitap">
|
||||
<!ENTITY CAUTION "D\U-0130;KKAT">
|
||||
<!ENTITY Caution "Dikkat">
|
||||
<!ENTITY caution "Dikkat">
|
||||
<!ENTITY Chapter "B\U-00F6;l\U-00FC;m">
|
||||
<!ENTITY chapter "b\U-00F6;l\U-00FC;m">
|
||||
<!ENTITY Colophon "Kitap hakk\U-0131;nda">
|
||||
<!ENTITY colophon "Kitap hakk\U-0131;nda">
|
||||
<!ENTITY Copyright "Telif Hakk\U-0131;">
|
||||
<!ENTITY copyright "Telif Hakk\U-0131;">
|
||||
<!ENTITY Dedication "\U-0130;thaf">
|
||||
<!ENTITY dedication "\U-0130;thaf">
|
||||
<!ENTITY Edition "Bask\U-0131;">
|
||||
<!ENTITY edition "Bask\U-0131;">
|
||||
<!ENTITY Equation "Denklem">
|
||||
<!ENTITY equation "Denklem">
|
||||
<!ENTITY Example "\U-00D6;rnek">
|
||||
<!ENTITY example "\U-00D6;rnek">
|
||||
<!ENTITY Figure "\U-015E;ekil">
|
||||
<!ENTITY figure "\U-015E;ekil">
|
||||
<!ENTITY Glossary "S\U-00F6;zl\U-00FC;k">
|
||||
<!ENTITY glossary "S\U-00F6;zl\U-00FC;k">
|
||||
<!ENTITY GlossSee "Bkz.">
|
||||
<!ENTITY glosssee "Bkz.">
|
||||
<!ENTITY GlossSeeAlso "Bkz.">
|
||||
<!ENTITY glossseealso "Bkz.">
|
||||
<!ENTITY IMPORTANT "\U-00D6;NEML\U-0130;">
|
||||
<!ENTITY important "\U-00D6;nemli">
|
||||
<!ENTITY Important "\U-00D6;nemli">
|
||||
<!ENTITY Index "Dizin">
|
||||
<!ENTITY index "Dizin">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY LegalNotice "Yasal Uyar\U-0131;">
|
||||
<!ENTITY legalnotice "Yasal Uyar\U-0131;">
|
||||
<!ENTITY MsgAud "Hedef Okuyucu">
|
||||
<!ENTITY msgaud "Hedef Okuyucu">
|
||||
<!ENTITY MsgLevel "Level">
|
||||
<!ENTITY msglevel "D\U-00FC;zey">
|
||||
<!ENTITY MsgOrig "D\U-00FC;zey">
|
||||
<!ENTITY msgorig "Kaynak">
|
||||
<!ENTITY NOTE "NOT">
|
||||
<!ENTITY Note "Not">
|
||||
<!ENTITY note "Not">
|
||||
<!ENTITY Part "K\U-0131;s\U-0131;m">
|
||||
<!ENTITY part "K\U-0131;s\U-0131;m">
|
||||
<!ENTITY Preface "\U-00D6;ns\U-00F6;z">
|
||||
<!ENTITY preface "\U-00D6;ns\U-00F6;z">
|
||||
<!ENTITY Procedure "Y\U-00F6;nerge">
|
||||
<!ENTITY procedure "Y\U-00F6;nerge">
|
||||
<!ENTITY ProductionSet "Prod\U-00FC;ksiyon">
|
||||
<!ENTITY Published "Yay\U-0131;mlanma">
|
||||
<!ENTITY published "Yay\U-0131;mlanma">
|
||||
<!ENTITY Question "Soru:">
|
||||
<!ENTITY question "Soru:">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "Referans">
|
||||
<!ENTITY reference "Referans">
|
||||
<!ENTITY RefName "Referans Ad\U-0131;">
|
||||
<!ENTITY refname "Referans Ad\U-0131;">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "Synopsis">
|
||||
<!ENTITY refsynopsisdiv "Synopsis">
|
||||
<!ENTITY RevHistory "Bask\U-0131; Tarih\U-00E7;esi">
|
||||
<!ENTITY revhistory "Bask\U-0131; Tarih\U-00E7;esi">
|
||||
<!ENTITY revision "Bask\U-0131;">
|
||||
<!ENTITY Revision "Bask\U-0131;">
|
||||
<!ENTITY sect1 "K\U-0131;s\U-0131;m">
|
||||
<!ENTITY sect2 "K\U-0131;s\U-0131;m">
|
||||
<!ENTITY sect3 "K\U-0131;s\U-0131;m">
|
||||
<!ENTITY sect4 "K\U-0131;s\U-0131;m">
|
||||
<!ENTITY sect5 "K\U-0131;s\U-0131;m">
|
||||
<!ENTITY section "K\U-0131;s\U-0131;m">
|
||||
<!ENTITY Section "K\U-0131;s\U-0131;m">
|
||||
<!ENTITY See "Bkz.">
|
||||
<!ENTITY see "Bkz.">
|
||||
<!ENTITY SeeAlso "Bkz.">
|
||||
<!ENTITY seealso "Bkz.">
|
||||
<!ENTITY Seealso "Bkz.">
|
||||
<!ENTITY set "Tak\U-0131;m">
|
||||
<!ENTITY Set "Tak\U-0131;m">
|
||||
<!ENTITY setindex "Tak\U-0131;m Dizini">
|
||||
<!ENTITY SetIndex "Tak\U-0131;m Dizini">
|
||||
<!ENTITY Sidebar "">
|
||||
<!ENTITY sidebar "">
|
||||
<!ENTITY step "ad\U-0131;m">
|
||||
<!ENTITY Step "Ad\U-0131;m">
|
||||
<!ENTITY Table "Tablo">
|
||||
<!ENTITY table "Tablo">
|
||||
<!ENTITY tip "\U-0130;pucu">
|
||||
<!ENTITY TIP "\U-0130;PUCU">
|
||||
<!ENTITY Tip "\U-0130;pucu">
|
||||
<!ENTITY Warning "Uyar\U-0131;">
|
||||
<!ENTITY warning "Uyar\U-0131;">
|
||||
<!ENTITY WARNING "UYARI">
|
||||
<!ENTITY and "ve">
|
||||
<!ENTITY by "">
|
||||
<!ENTITY Edited "Yay\U-0131;na haz\U-0131;rlayan">
|
||||
<!ENTITY edited "yay\U-0131;na haz\U-0131;rlayan">
|
||||
<!ENTITY Editedby "Yay\U-0131;na haz\U-0131;rlayan">
|
||||
<!ENTITY editedby "yay\U-0131;na haz\U-0131;rlayan">
|
||||
<!ENTITY in "">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "varolmayan eleman">
|
||||
<!ENTITY notes "Notlar">
|
||||
<!ENTITY Notes "Notlar">
|
||||
<!ENTITY Pgs "Sayfa">
|
||||
<!ENTITY pgs "Sayfa">
|
||||
<!ENTITY Revisedby "D\U-00FC;zeltmeler: ">
|
||||
<!ENTITY revisedby "D\U-00FC;zeltmeler: ">
|
||||
<!ENTITY TableNotes "Notlar">
|
||||
<!ENTITY tablenotes "Notlar">
|
||||
<!ENTITY TableofContents "\U-0130;\U-00E7;indekiler">
|
||||
<!ENTITY tableofcontents "\U-0130;\U-00E7;indekiler">
|
||||
<!ENTITY unexpectedelementname "Beklenmeyen eleman ad\U-0131;">
|
||||
<!ENTITY unsupported "desteklenmiyor">
|
||||
<!ENTITY xrefto "xref to">
|
||||
<!ENTITY listofequations "Denklemler">
|
||||
<!ENTITY ListofEquations "Denklemler">
|
||||
<!ENTITY ListofExamples "\U-00D6;rnekler">
|
||||
<!ENTITY listofexamples "\U-00D6;rnekler">
|
||||
<!ENTITY ListofFigures "\U-015E;ekiller">
|
||||
<!ENTITY listoffigures "\U-015E;ekiller">
|
||||
<!ENTITY listoftables "Tablolar">
|
||||
<!ENTITY ListofTables "Tablolar">
|
||||
<!ENTITY ListofUnknown "Bilinmeyenler">
|
||||
<!ENTITY listofunknown "Bilinmeyenler">
|
||||
<!ENTITY nav-home "Ba\U-015F;lang\U-0131;\U-00E7;">
|
||||
<!ENTITY nav-next "Sonraki">
|
||||
<!ENTITY nav-next-sibling "Sonraki B\U-00F6;l\U-00FC;m">
|
||||
<!ENTITY nav-prev "\U-00D6;nceki">
|
||||
<!ENTITY nav-prev-sibling "\U-00D6;nceki B\U-00F6;l\U-00FC;m">
|
||||
<!ENTITY nav-up "Yukar\U-0131;">
|
||||
<!ENTITY sectioncalled "">
|
||||
<!ENTITY lowercase.alpha "abc\U-00E7;defg\U-011F;h\U-0131;ijklmno\U-00F6;prs\U-015F;tu\U-00FC;vyz">
|
||||
<!ENTITY uppercase.alpha "ABC\U-00C7;DEFG\U-011E;HI\U-0130;JKLMNO\U-00D6;PRS\U-015E;TU\U-00DC;VYZ">
|
||||
444
docs/dsssl/docbook/common/dbl1uk.dsl
Executable file
444
docs/dsssl/docbook/common/dbl1uk.dsl
Executable file
@@ -0,0 +1,444 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % uk.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//UK"
|
||||
"dbl1uk.ent">
|
||||
%uk.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-uk">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; 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 (uk-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 (uk-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"the &appendix; called %t"))
|
||||
(list (normalize "article") (string-append %gentext-uk-start-quote%
|
||||
"%t"
|
||||
%gentext-uk-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-uk-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (uk-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 (uk-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-uk-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (uk-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-uk-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (uk-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-uk-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-uk-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-uk-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (uk-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-uk-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-uk-intra-label-sep)))
|
||||
(sep (assoc name (uk-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-uk-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (uk-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-uk-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-uk-label-title-sep)))
|
||||
(sep (assoc name (uk-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (uk-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 (uk-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (uk-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (uk-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-uk$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (uk-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-uk-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-uk-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-uk-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-uk-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-uk-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-uk-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-uk-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-uk-page% "")
|
||||
|
||||
(define %gentext-uk-and% "∧")
|
||||
|
||||
(define %gentext-uk-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-uk-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-uk-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-uk-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-uk-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-uk-index-see% "&See;")
|
||||
|
||||
(define %gentext-uk-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-uk-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-uk-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-uk-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-uk-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-uk-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-uk-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
175
docs/dsssl/docbook/common/dbl1uk.ent
Executable file
175
docs/dsssl/docbook/common/dbl1uk.ent
Executable file
@@ -0,0 +1,175 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "\U-0410;\U-043D;\U-043E;\U-0442;\U-0430;\U-0446;\U-0456;\U-044F;">
|
||||
<!ENTITY abstract "\U-0410;\U-043D;\U-043E;\U-0442;\U-0430;\U-0446;\U-0456;\U-044F;">
|
||||
<!ENTITY Answer "\U-0412;:">
|
||||
<!ENTITY answer "\U-0432;:">
|
||||
<!ENTITY Appendix "\U-0414;\U-043E;\U-0434;\U-0430;\U-0442;\U-043E;\U-043A;">
|
||||
<!ENTITY appendix "\U-0434;\U-043E;\U-0434;\U-0430;\U-0442;\U-043E;\U-043A;">
|
||||
<!ENTITY Appendix.abr "\U-0414;\U-043E;\U-0434;.">
|
||||
<!ENTITY appendix.abr "\U-0434;\U-043E;\U-0434;.">
|
||||
<!ENTITY Article "\U-0421;\U-0442;\U-0430;\U-0442;\U-0442;\U-044F;">
|
||||
<!ENTITY article "\U-0441;\U-0442;\U-0430;\U-0442;\U-0442;\U-044F;">
|
||||
<!ENTITY Audience "\U-0410;\U-0443;\U-0434;\U-0438;\U-0442;\U-043E;\U-0440;\U-0456;\U-044F;">
|
||||
<!ENTITY audience "\U-0410;\U-0443;\U-0434;\U-0438;\U-0442;\U-043E;\U-0440;\U-0456;\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-043B;\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-043A;\U-043D;\U-0438;\U-0433;\U-0430;">
|
||||
<!ENTITY Caution "\U-0417;\U-0430;\U-0441;\U-0442;\U-0435;\U-0440;\U-0435;\U-0436;\U-0435;\U-043D;\U-043D;\U-044F;">
|
||||
<!ENTITY Caution "\U-0437;\U-0430;\U-0441;\U-0442;\U-0435;\U-0440;\U-0435;\U-0436;\U-0435;\U-043D;\U-043D;\U-044F;">
|
||||
<!ENTITY CAUTION "\U-0417;\U-0410;\U-0421;\U-0422;\U-0415;\U-0420;\U-0415;\U-0416;\U-0415;\U-041D;\U-041D;\U-042F;">
|
||||
<!ENTITY Chapter "\U-0420;\U-043E;\U-0437;\U-0434;\U-0456;\U-043B;">
|
||||
<!ENTITY chapter "\U-0440;\U-043E;\U-0437;\U-0434;\U-0456;\U-043B;">
|
||||
<!ENTITY Chapter.abr "\U-0420;\U-043E;\U-0437;\U-0434;.">
|
||||
<!ENTITY chapter.abr "\U-0440;\U-043E;\U-0437;\U-0434;.">
|
||||
<!ENTITY Colophon "Colophon">
|
||||
<!ENTITY colophon "Colophon">
|
||||
<!ENTITY Copyright "\U-0410;\U-0432;\U-0442;\U-043E;\U-0440;\U-0441;\U-044C;\U-043A;\U-0435; \U-043F;\U-0440;\U-0430;\U-0432;\U-043E;">
|
||||
<!ENTITY copyright "\U-0430;\U-0432;\U-0442;\U-043E;\U-0440;\U-0441;\U-044C;\U-043A;\U-0435; \U-043F;\U-0440;\U-0430;\U-0432;\U-043E;">
|
||||
<!ENTITY Dedication "\U-041F;\U-0440;\U-0438;\U-0441;\U-0432;\U-044F;\U-0447;\U-0435;\U-043D;\U-043D;\U-044F;">
|
||||
<!ENTITY dedication "\U-043F;\U-0440;\U-0438;\U-0441;\U-0432;\U-044F;\U-0447;\U-0435;\U-043D;\U-043D;\U-044F;">
|
||||
<!ENTITY Edition "\U-0412;\U-0438;\U-0434;\U-0430;\U-043D;\U-043D;\U-044F;">
|
||||
<!ENTITY edition "\U-0432;\U-0438;\U-0434;\U-0430;\U-043D;\U-043D;\U-044F;">
|
||||
<!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 Equation.abr "\U-0424;.">
|
||||
<!ENTITY equation.abr "\U-0424;.">
|
||||
<!ENTITY Example "\U-041F;\U-0440;\U-0438;\U-043A;\U-043B;\U-0430;\U-0434;">
|
||||
<!ENTITY example "\U-043F;\U-0440;\U-0438;\U-043A;\U-043B;\U-0430;\U-0434;">
|
||||
<!ENTITY Example.abr "\U-041F;\U-0440;\U-0438;\U-043A;\U-043B;.">
|
||||
<!ENTITY example.abr "\U-043F;\U-0440;\U-0438;\U-043A;\U-043B;.">
|
||||
<!ENTITY Figure "\U-0420;\U-0438;\U-0441;\U-0443;\U-043D;\U-043E;\U-043A;">
|
||||
<!ENTITY figure "\U-0420;\U-0438;\U-0441;\U-0443;\U-043D;\U-043E;\U-043A;">
|
||||
<!ENTITY Figure.abr "\U-0420;\U-0438;\U-0441;.">
|
||||
<!ENTITY figure.abr "\U-0420;\U-0438;\U-0441;.">
|
||||
<!ENTITY Glossary "\U-0413;\U-043B;\U-043E;\U-0441;\U-0430;\U-0440;\U-0456;\U-0439;">
|
||||
<!ENTITY glossary "\U-0433;\U-043B;\U-043E;\U-0441;\U-0430;\U-0440;\U-0456;\U-0439;">
|
||||
<!ENTITY GlossSee "\U-0414;\U-0438;\U-0432;.">
|
||||
<!ENTITY glosssee "\U-0434;\U-0438;\U-0432;.">
|
||||
<!ENTITY GlossSeeAlso "\U-0414;\U-0438;\U-0432;. \U-0442;\U-0430;\U-043A;\U-043E;\U-0436;">
|
||||
<!ENTITY glossSeeAlso "\U-0434;\U-0438;\U-0432;. \U-0442;\U-0430;\U-043A;\U-043E;\U-0436;">
|
||||
<!ENTITY Important "\U-0412;\U-0430;\U-0436;\U-043B;\U-0438;\U-0432;\U-043E;">
|
||||
<!ENTITY important "\U-0432;\U-0430;\U-0436;\U-043B;\U-0438;\U-0432;\U-043E;">
|
||||
<!ENTITY IMPORTANT "\U-0412;\U-0410;\U-0416;\U-041B;\U-0418;\U-0412;\U-041E;">
|
||||
<!ENTITY Index "\U-041F;\U-0440;\U-0435;\U-0434;\U-043C;\U-0435;\U-0442;\U-043D;\U-044B;\U-0439; \U-043F;\U-043E;\U-043A;\U-0430;\U-0436;chcy;\U-0438;\U-043A;">
|
||||
<!ENTITY index "\U-043F;\U-0440;\U-0435;\U-0434;\U-043C;\U-0435;\U-0442;\U-043D;\U-044B;\U-0439; \U-043F;\U-043E;\U-043A;\U-0430;\U-0436;chcy;\U-0438;\U-043A;">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY LegalNotice "\U-041F;\U-0440;\U-0430;\U-0432;\U-043E;\U-0432;\U-0430; \U-043F;\U-0440;\U-0438;\U-043C;\U-0456;\U-0442;\U-043A;\U-0430;">
|
||||
<!ENTITY legalnotice "\U-043F;\U-0440;\U-0430;\U-0432;\U-043E;\U-0432;\U-0430; \U-043F;\U-0440;\U-0438;\U-043C;\U-0456;\U-0442;\U-043A;\U-0430;">
|
||||
<!ENTITY Level "\U-0420;\U-0456;\U-0432;\U-0435;\U-043D;\U-044C;">
|
||||
<!ENTITY level "\U-0440;\U-0456;\U-0432;\U-0435;\U-043D;\U-044C;">
|
||||
<!ENTITY MsgAud "\U-0410;\U-0443;\U-0434;\U-0438;\U-0442;\U-043E;\U-0440;\U-0456;\U-044F;">
|
||||
<!ENTITY msgaud "\U-0430;\U-0443;\U-0434;\U-0438;\U-0442;\U-043E;\U-0440;\U-0456;\U-044F;">
|
||||
<!ENTITY MsgLevel "\U-0420;\U-0456;\U-0432;\U-0435;\U-043D;\U-044C;">
|
||||
<!ENTITY msglevel "\U-0440;\U-0456;\U-0432;\U-0435;\U-043D;\U-044C;">
|
||||
<!ENTITY MsgOrig "\U-0414;\U-0436;\U-0435;\U-0440;\U-0435;\U-043B;\U-043E;">
|
||||
<!ENTITY msgorig "\U-0434;\U-0436;\U-0435;\U-0440;\U-0435;\U-043B;\U-043E;">
|
||||
<!ENTITY Name "\U-0406;\U-043C;';\U-044F;">
|
||||
<!ENTITY name "\U-0456;\U-043C;';\U-044F;">
|
||||
<!ENTITY Note "\U-041F;\U-0440;\U-0438;\U-043C;\U-0456;\U-0442;\U-043A;\U-0430;">
|
||||
<!ENTITY note "\U-043F;\U-0440;\U-0438;\U-043C;\U-0456;\U-0442;\U-043A;\U-0430;">
|
||||
<!ENTITY NOTE "\U-041F;\U-0420;\U-0418;\U-041C;\U-0406;\U-0422;\U-041A;\U-0410;">
|
||||
<!ENTITY Origin "\U-0414;\U-0436;\U-0435;\U-0440;\U-0435;\U-043B;\U-043E;">
|
||||
<!ENTITY origin "\U-0434;\U-0436;\U-0435;\U-0440;\U-0435;\U-043B;\U-043E;">
|
||||
<!ENTITY Part "\U-0427;\U-0430;\U-0441;\U-0442;\U-0438;\U-043D;\U-0430;">
|
||||
<!ENTITY part "\U-0447;\U-0430;\U-0441;\U-0442;\U-0438;\U-043D;\U-0430;">
|
||||
<!ENTITY Part.abr "\U-0427;.">
|
||||
<!ENTITY part.abr "\U-0427;.">
|
||||
<!ENTITY Preface "\U-041F;\U-0435;\U-0440;\U-0435;\U-0434;\U-043C;\U-043E;\U-0432;\U-0430;">
|
||||
<!ENTITY preface "\U-043F;\U-0435;\U-0440;\U-0435;\U-0434;\U-043C;\U-043E;\U-0432;\U-0430;">
|
||||
<!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 Procedure.abr "\U-041F;\U-0440;\U-043E;\U-0446;.">
|
||||
<!ENTITY procedure.abr "\U-041F;\U-0440;\U-043E;\U-0446;.">
|
||||
<!ENTITY Published "\U-041E;\U-043F;\U-0443;\U-0431;\U-043B;\U-0456;\U-043A;\U-043E;\U-0432;\U-0430;\U-043D;\U-043E;">
|
||||
<!ENTITY published "\U-043E;\U-043F;\U-0443;\U-0431;\U-043B;\U-0456;\U-043A;\U-043E;\U-0432;\U-0430;\U-043D;\U-043E;">
|
||||
<!ENTITY Question "\U-041F;">
|
||||
<!ENTITY question "\U-043F;">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "\U-041F;\U-043E;\U-0441;\U-0438;\U-043B;\U-0430;\U-043D;\U-043D;\U-044F;">
|
||||
<!ENTITY reference "\U-043F;\U-043E;\U-0441;\U-0438;\U-043B;\U-0430;\U-043D;\U-043D;\U-044F;">
|
||||
<!ENTITY RefName "Name">
|
||||
<!ENTITY refname "Name">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "\U-041A;\U-043E;\U-0440;\U-043E;\U-0442;\U-043A;\U-0438;\U-0439; \U-043E;\U-0433;\U-043B;\U-044F;\U-0434;">
|
||||
<!ENTITY refsynopsisdiv "\U-043A;\U-043E;\U-0440;\U-043E;\U-0442;\U-043A;\U-0438;\U-0439; \U-043E;\U-0433;\U-043B;\U-044F;\U-0434;">
|
||||
<!ENTITY RevHistory "\U-041E;\U-043F;\U-0438;\U-0441; zcy;\U-043C;\U-0456;\U-043D;">
|
||||
<!ENTITY revhistory "\U-043E;\U-043F;\U-0438;\U-0441; zcy;\U-043C;\U-0456;\U-043D;">
|
||||
<!ENTITY Revision "\U-041F;\U-0435;\U-0440;\U-0435;\U-0433;\U-043B;\U-044F;\U-0434;">
|
||||
<!ENTITY revision "\U-043F;\U-0435;\U-0440;\U-0435;\U-0433;\U-043B;\U-044F;\U-0434;">
|
||||
<!ENTITY Section "\U-041F;\U-0430;\U-0440;\U-0430;\U-0433;\U-0440;\U-0430;\U-0444;">
|
||||
<!ENTITY section "\U-043F;\U-0430;\U-0440;\U-0430;\U-0433;\U-0440;\U-0430;\U-0444;">
|
||||
<!ENTITY section.abr "\U-043F;\U-0430;\U-0440;.">
|
||||
<!ENTITY Section.abr "\U-041F;\U-0430;\U-0440;.">
|
||||
<!ENTITY See "\U-0414;\U-0438;\U-0432;.">
|
||||
<!ENTITY See "\U-0434;\U-0438;\U-0432;.">
|
||||
<!ENTITY SeeAlso "\U-0414;\U-0438;\U-0432;. tcy;\U-0430;\U-043A;\U-043E;\U-0436;">
|
||||
<!ENTITY seealso "\U-0441;\U-0438;\U-0432;. tcy;\U-0430;\U-043A;\U-043E;\U-0436;">
|
||||
<!ENTITY Seealso "\U-0414;\U-0438;\U-0432;. tcy;\U-0430;\U-043A;\U-043E;\U-0436;">
|
||||
<!ENTITY Set "\U-0412;\U-0438;\U-0431;\U-0456;\U-0440;\U-043A;\U-0430;">
|
||||
<!ENTITY set "\U-0432;\U-0438;\U-0431;\U-0456;\U-0440;\U-043A;\U-0430;">
|
||||
<!ENTITY setindex "\U-0438;\U-043D;\U-0434;\U-0435;\U-043A;\U-0441; \U-0432;\U-0438;\U-0431;\U-0456;\U-0440;\U-043A;\U-0438;">
|
||||
<!ENTITY SetIndex "\U-0418;\U-043D;\U-0434;\U-0435;\U-043A;\U-0441; \U-0432;\U-0438;\U-0431;\U-0456;\U-0440;\U-043A;\U-0438;">
|
||||
<!ENTITY Sidebar "\U-0412;\U-044B;\U-0434;\U-0456;\U-043B;\U-0435;\U-043D;\U-043D;\U-044F;">
|
||||
<!ENTITY sidebar "\U-0432;\U-044B;\U-0434;\U-0456;\U-043B;\U-0435;\U-043D;\U-043D;\U-044F;">
|
||||
<!ENTITY Step "\U-041A;\U-0440;\U-043E;\U-043A;">
|
||||
<!ENTITY step "\U-043A;\U-0440;\U-043E;\U-043A;">
|
||||
<!ENTITY Table "\U-0422;\U-0430;\U-0431;\U-043B;\U-0438;\U-0446;\U-044F;">
|
||||
<!ENTITY table "\U-0442;\U-0430;\U-0431;\U-043B;\U-0438;\U-0446;\U-044F;">
|
||||
<!ENTITY Table.abr "\U-0422;\U-0430;\U-0431;\U-043B;.">
|
||||
<!ENTITY table.abr "\U-0442;\U-0430;\U-0431;\U-043B;.">
|
||||
<!ENTITY tip "\U-043F;\U-0456;\U-0434;\U-043A;\U-0430;\U-0437;\U-043A;\U-0430;">
|
||||
<!ENTITY TIP "\U-041F;\U-0406;\U-0414;\U-041A;\U-0410;\U-0417;\U-041A;\U-0410;">
|
||||
<!ENTITY Tip "\U-041F;\U-0456;\U-0434;\U-043A;\U-0430;\U-0437;\U-043A;\U-0430;">
|
||||
<!ENTITY WARNING "\U-0417;\U-0410;\U-0421;\U-0422;\U-0415;\U-0420;\U-0415;\U-0416;\U-0415;\U-041D;\U-041D;\U-042F;">
|
||||
<!ENTITY Warning "\U-0417;\U-0430;\U-0441;\U-0442;\U-0435;\U-0440;\U-0435;\U-0436;\U-0435;\U-043D;\U-043D;\U-044F;">
|
||||
<!ENTITY warning "\U-0437;\U-0430;\U-0441;\U-0442;\U-0435;\U-0440;\U-0435;\U-0436;\U-0435;\U-043D;\U-043D;\U-044F;">
|
||||
<!ENTITY and "">
|
||||
<!ENTITY by "">
|
||||
<!ENTITY called "">
|
||||
<!ENTITY edited "\U-043F;\U-0438;\U-0434; \U-0440;\U-0435;\U-0434;\U-0430;\U-043A;\U-0446;\U-0456;\U-0454;\U-044E;">
|
||||
<!ENTITY Edited "\U-041F;\U-0438;\U-0434; \U-0440;\U-0435;\U-0434;\U-0430;\U-043A;\U-0446;\U-0456;\U-0454;\U-044E;">
|
||||
<!ENTITY Editedby "\U-041F;\U-0438;\U-0434; \U-0440;\U-0435;\U-0434;\U-0430;\U-043A;\U-0446;\U-0456;\U-0454;\U-044E;">
|
||||
<!ENTITY editedby "\U-043F;\U-0438;\U-0434; \U-0440;\U-0435;\U-0434;\U-0430;\U-043A;\U-0446;\U-0456;\U-0454;\U-044E;">
|
||||
<!ENTITY in "\U-0432;">
|
||||
<!ENTITY TableofContents "\U-0417;\U-043C;\U-0456;\U-0441;\U-0442;">
|
||||
<!ENTITY tableofcontents "\U-0437;\U-043C;\U-0456;\U-0441;\U-0442;">
|
||||
<!ENTITY lastlistcomma ".">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY Notes "\U-041F;\U-0440;\U-0438;\U-043C;\U-0456;\U-0442;\U-043A;\U-0438;">
|
||||
<!ENTITY notes "\U-043F;\U-0440;\U-0438;\U-043C;\U-0456;\U-0442;\U-043A;\U-0438;">
|
||||
<!ENTITY TableNotes "\U-041F;\U-0440;\U-0438;\U-043C;\U-0456;\U-0442;\U-043A;\U-0438;">
|
||||
<!ENTITY tablenotes "\U-043F;\U-0440;\U-0438;\U-043C;\U-0456;\U-0442;\U-043A;\U-0438;">
|
||||
<!ENTITY nonexistantelement "non-existant element">
|
||||
<!ENTITY pgs "\U-0441;\U-0442;\U-043E;\U-0440;.">
|
||||
<!ENTITY Pgs "\U-0421;\U-0442;\U-043E;\U-0440;.">
|
||||
<!ENTITY Revisedby "\U-041A;\U-043E;\U-0440;\U-0435;\U-043A;\U-0442;\U-0443;\U-0440;\U-0430;:;">
|
||||
<!ENTITY revisedby "\U-043A;\U-043E;\U-0440;\U-0435;\U-043A;\U-0442;\U-0443;\U-0440;\U-0430;:;">
|
||||
<!ENTITY the "">
|
||||
<!ENTITY unexpectedelementname "unexpected element name">
|
||||
<!ENTITY unsupported "unsupported">
|
||||
<!ENTITY xrefto "xref to">
|
||||
<!ENTITY listofequations "\U-0441;\U-043F;\U-0438;\U-0441;\U-043E;\U-043A; \U-0444;\U-043E;\U-0440;\U-043C;\U-0443;\U-043B;">
|
||||
<!ENTITY ListofEquations "\U-0421;\U-043F;\U-0438;\U-0441;\U-043E;\U-043A; \U-0444;\U-043E;\U-0440;\U-043C;\U-0443;\U-043B;">
|
||||
<!ENTITY ListofExamples "\U-0421;\U-043F;\U-0438;\U-0441;\U-043E;\U-043A; \U-043F;\U-0440;\U-0438;\U-043A;\U-043B;\U-0430;\U-0434;\U-0456;\U-0432;">
|
||||
<!ENTITY listofexamples "\U-0441;\U-043F;\U-0438;\U-0441;\U-043E;\U-043A; \U-043F;\U-0440;\U-0438;\U-043A;\U-043B;\U-0430;\U-0434;\U-0456;\U-0432;">
|
||||
<!ENTITY ListofFigures "\U-0421;\U-043F;\U-0438;\U-0441;\U-043E;\U-043A; \U-0456;\U-043B;\U-044E;\U-0441;\U-0442;\U-0440;\U-0430;\U-0446;\U-0456;\U-0439;">
|
||||
<!ENTITY listoffigures "\U-0421;\U-043F;\U-0438;\U-0441;\U-043E;\U-043A; \U-0456;\U-043B;\U-044E;\U-0441;\U-0442;\U-0440;\U-0430;\U-0446;\U-0456;\U-0439;">
|
||||
<!ENTITY listoftables "\U-0441;\U-043F;\U-0438;\U-0441;\U-043E;\U-043A; \U-0442;\U-0430;\U-0431;\U-043B;\U-0438;\U-0446;\U-044C;">
|
||||
<!ENTITY ListofTables "\U-0421;\U-043F;\U-0438;\U-0441;\U-043E;\U-043A; \U-0442;\U-0430;\U-0431;\U-043B;\U-0438;\U-0446;;\U-044C;">
|
||||
<!ENTITY ListofUnknown "\U-041D;\U-0435;\U-0432;\U-0438;\U-0437;\U-043D;\U-0430;\U-0447;\U-0435;\U-043D;\U-0438;\U-0439; \U-0441;\U-043F;\U-0438;\U-0441;\U-043E;\U-043A;">
|
||||
<!ENTITY listofunknown "\U-043D;\U-0435;\U-0432;\U-0438;\U-0437;\U-043D;\U-0430;\U-0447;\U-0435;\U-043D;\U-0438;\U-0439; \U-0441;\U-043F;\U-0438;\U-0441;\U-043E;\U-043A;">
|
||||
<!ENTITY nav-next "\U-0434;\U-0430;\U-043B;\U-0456;">
|
||||
<!ENTITY nav-next-sibling "\U-0434;\U-0430;\U-043B;\U-0456; \U-043F;\U-043E; \U-0440;\U-0456;\U-0432;\U-043D;\U-044E;">
|
||||
<!ENTITY nav-prev "\U-043D;\U-0430;\U-0437;\U-0430;\U-0434;">
|
||||
<!ENTITY nav-prev-sibling "\U-043D;\U-0430;\U-0437;\U-0430;\U-0434; \U-043F;\U-043E; \U-0440;\U-0456;\U-0432;\U-043D;\U-044E;">
|
||||
<!ENTITY x-nav-next "\U-0434;\U-0430;\U-043B;\U-0456;">
|
||||
<!ENTITY nav-home "\U-041F;\U-043E;\U-0447;\U-0430;\U-0442;\U-043E;\U-043A;">
|
||||
<!ENTITY nav-up "\U-0414;\U-043E;\U-0433;\U-043E;\U-0440;\U-0438;">
|
||||
444
docs/dsssl/docbook/common/dbl1xh.dsl
Executable file
444
docs/dsssl/docbook/common/dbl1xh.dsl
Executable file
@@ -0,0 +1,444 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % xh.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//XH"
|
||||
"dbl1xh.ent">
|
||||
%xh.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-xh">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; 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 (xh-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 (xh-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"the &appendix; called %t"))
|
||||
(list (normalize "article") (string-append %gentext-xh-start-quote%
|
||||
"%t"
|
||||
%gentext-xh-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-xh-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (xh-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 (xh-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-xh-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (xh-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-xh-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (xh-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-xh-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-xh-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-xh-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (xh-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-xh-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-xh-intra-label-sep)))
|
||||
(sep (assoc name (xh-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-xh-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (xh-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-xh-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-xh-label-title-sep)))
|
||||
(sep (assoc name (xh-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (xh-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 (xh-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (xh-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (xh-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-xh$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (xh-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-xh-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-xh-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-xh-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-xh-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-xh-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-xh-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-xh-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-xh-page% "")
|
||||
|
||||
(define %gentext-xh-and% "∧")
|
||||
|
||||
(define %gentext-xh-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-xh-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-xh-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-xh-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-xh-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-xh-index-see% "&See;")
|
||||
|
||||
(define %gentext-xh-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-xh-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-xh-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-xh-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-xh-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-xh-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-xh-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
155
docs/dsssl/docbook/common/dbl1xh.ent
Executable file
155
docs/dsssl/docbook/common/dbl1xh.ent
Executable file
@@ -0,0 +1,155 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "Isiqalo">
|
||||
<!ENTITY abstract "Isiqalo">
|
||||
<!ENTITY Answer "I:">
|
||||
<!ENTITY answer "I:">
|
||||
<!ENTITY Appendix "Isivalo">
|
||||
<!ENTITY appendix "isivalo">
|
||||
<!ENTITY Article "Umba">
|
||||
<!ENTITY article "Umba">
|
||||
<!ENTITY Bibliography "Ezobunzululwazi">
|
||||
<!ENTITY bibliography "Ezobunzululwazi">
|
||||
<!ENTITY Book "Incwadi">
|
||||
<!ENTITY book "Incwadi">
|
||||
<!ENTITY CAUTION "ISILUMKISO">
|
||||
<!ENTITY Caution "Isilumkiso">
|
||||
<!ENTITY caution "Isilumkiso">
|
||||
<!ENTITY Chapter "Isiqendu">
|
||||
<!ENTITY chapter "isiqendu">
|
||||
<!ENTITY Colophon "Ikolophon">
|
||||
<!ENTITY colophon "Ikolophon">
|
||||
<!ENTITY Copyright "Ushicilelo olusemthethweni">
|
||||
<!ENTITY copyright "Ushicilelo olusemthethweni">
|
||||
<!ENTITY Dedication "Ulwaziso">
|
||||
<!ENTITY dedication "Ulwaziso">
|
||||
<!ENTITY Edition "Uhlelo">
|
||||
<!ENTITY edition "Uhlelo">
|
||||
<!ENTITY Equation "Ulinganiselo">
|
||||
<!ENTITY equation "Ulinganiselo">
|
||||
<!ENTITY Example "Umzekelo">
|
||||
<!ENTITY example "Umzekelo">
|
||||
<!ENTITY Figure "Ulungu">
|
||||
<!ENTITY figure "Ulungu">
|
||||
<!ENTITY Glossary "Inkcazelo yamagama">
|
||||
<!ENTITY glossary "Inkcazelo yamagama">
|
||||
<!ENTITY GlossSee "Bona">
|
||||
<!ENTITY glosssee "Bona">
|
||||
<!ENTITY GlossSeeAlso "Bona Kwakhona">
|
||||
<!ENTITY glossseealso "Bona Kwakhona">
|
||||
<!ENTITY IMPORTANT "IBALULEKILE">
|
||||
<!ENTITY important "Ibalulekile">
|
||||
<!ENTITY Important "Ibalulekile">
|
||||
<!ENTITY Index "Isalathiso">
|
||||
<!ENTITY index "Isalathiso">
|
||||
<!ENTITY ISBN "iISBN">
|
||||
<!ENTITY isbn "iISBN">
|
||||
<!ENTITY LegalNotice "Isaziso Esesimthethweni">
|
||||
<!ENTITY legalnotice "Isaziso Esesimthethweni">
|
||||
<!ENTITY MsgAud "Ababhali">
|
||||
<!ENTITY msgaud "Ababhali">
|
||||
<!ENTITY MsgLevel "Umphakamo">
|
||||
<!ENTITY msglevel "Umphakamo">
|
||||
<!ENTITY MsgOrig "Uqobo">
|
||||
<!ENTITY msgorig "Uqobo">
|
||||
<!ENTITY NOTE "QAPHELA">
|
||||
<!ENTITY Note "Qaphela">
|
||||
<!ENTITY note "Qaphela">
|
||||
<!ENTITY Part "Inxenye">
|
||||
<!ENTITY part "Inxenye">
|
||||
<!ENTITY Preface "Isihloko">
|
||||
<!ENTITY preface "Isihloko">
|
||||
<!ENTITY Procedure "Inkqubo">
|
||||
<!ENTITY procedure "Inkqubo">
|
||||
<!ENTITY ProductionSet "Imveliso">
|
||||
<!ENTITY Published "Ipapashwe">
|
||||
<!ENTITY published "Ipapashwe">
|
||||
<!ENTITY Question "U:">
|
||||
<!ENTITY question "U:">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "Uthelekiso">
|
||||
<!ENTITY reference "Uthelekiso">
|
||||
<!ENTITY RefName "Igama lothelekiso">
|
||||
<!ENTITY refname "Igama lothelekiso">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "Isinopsisi">
|
||||
<!ENTITY refsynopsisdiv "Isinopsisi">
|
||||
<!ENTITY RevHistory "Imbali yophindo">
|
||||
<!ENTITY revhistory "Imbali yophindo">
|
||||
<!ENTITY revision "Iphindo">
|
||||
<!ENTITY Revision "Iphindo">
|
||||
<!ENTITY sect1 "Icandelo">
|
||||
<!ENTITY sect2 "Icandelo">
|
||||
<!ENTITY sect3 "Icandelo">
|
||||
<!ENTITY sect4 "Icandelo">
|
||||
<!ENTITY sect5 "Icandelo">
|
||||
<!ENTITY section "Icandelo">
|
||||
<!ENTITY Section "Icandelo">
|
||||
<!ENTITY See "Bona">
|
||||
<!ENTITY see "Bona">
|
||||
<!ENTITY SeeAlso "Bona Kwakhona">
|
||||
<!ENTITY seealso "Bona Kwakhona">
|
||||
<!ENTITY Seealso "Bona Kwakhona">
|
||||
<!ENTITY set "Cwangcisa">
|
||||
<!ENTITY Set "Cwangcisa">
|
||||
<!ENTITY setindex "Cwangcisa Isalathiso">
|
||||
<!ENTITY SetIndex "Cwangcisa Isalathiso">
|
||||
<!ENTITY Sidebar "">
|
||||
<!ENTITY sidebar "ibar esecaleni">
|
||||
<!ENTITY step "inqwanqwa">
|
||||
<!ENTITY Step "Inqwanqwa">
|
||||
<!ENTITY Table "Indlela Yokwenza Imigca">
|
||||
<!ENTITY table "Indlela Yokwenza Imigca">
|
||||
<!ENTITY tip "Incam">
|
||||
<!ENTITY TIP "INCAM">
|
||||
<!ENTITY Tip "Incam">
|
||||
<!ENTITY Warning "Isilumkiso">
|
||||
<!ENTITY warning "Isilumkiso">
|
||||
<!ENTITY WARNING "ISILUMKISO">
|
||||
<!ENTITY and "no">
|
||||
<!ENTITY by "by">
|
||||
<!ENTITY Edited "Ihleliwe">
|
||||
<!ENTITY edited "Ihleliwe">
|
||||
<!ENTITY Editedby "Ihlelwe">
|
||||
<!ENTITY editedby "Ihlelwe">
|
||||
<!ENTITY in "in">
|
||||
<!ENTITY lastlistcomma ", ">
|
||||
<!ENTITY listcomma ", ">
|
||||
<!ENTITY nonexistantelement "isiqalelo esingekhayo">
|
||||
<!ENTITY notes "Iziqaphelo">
|
||||
<!ENTITY Notes "Iziqaphelo">
|
||||
<!ENTITY Pgs "Amaphepha">
|
||||
<!ENTITY pgs "Amaphepha">
|
||||
<!ENTITY Revisedby "Iphindwe ngu: ">
|
||||
<!ENTITY revisedby "Iphindwe ngu:">
|
||||
<!ENTITY TableNotes "Iziqaphelo">
|
||||
<!ENTITY tablenotes "Iziqaphelo">
|
||||
<!ENTITY TableofContents "Imigca Yemixholo">
|
||||
<!ENTITY tableofcontents "Imigca Yemixholo">
|
||||
<!ENTITY unexpectedelementname "Igama lesiqalelo esingalindelwanga">
|
||||
<!ENTITY unsupported "ayixhaswanga">
|
||||
<!ENTITY xrefto "thelekiso ku">
|
||||
<!ENTITY listofequations "Uluhlu Lemilinganiselo">
|
||||
<!ENTITY ListofEquations "Uluhlu Lemilinganiselo">
|
||||
<!ENTITY ListofExamples "Uluhlu Lemizekelo">
|
||||
<!ENTITY listofexamples "Uluhlu Lemizekelo">
|
||||
<!ENTITY ListofFigures "Uluhlu Lamalungu">
|
||||
<!ENTITY listoffigures "Uluhlu Lamalungu">
|
||||
<!ENTITY listoftables "Uluhlu Lendlela Yokwenza Imigca">
|
||||
<!ENTITY ListofTables "Uluhlu Lendlela Yokwenza Imigca">
|
||||
<!ENTITY ListofUnknown "Uluhlu Lokungaziwayo">
|
||||
<!ENTITY listofunknown "Uluhlu Lokungaziwayo">
|
||||
<!ENTITY nav-home "Ikhaya">
|
||||
<!ENTITY nav-next "Elandelayo">
|
||||
<!ENTITY nav-next-sibling "Yisa Phambili">
|
||||
<!ENTITY nav-prev "Edlulileyo">
|
||||
<!ENTITY nav-prev-sibling "Yisa Emva">
|
||||
<!ENTITY nav-up "Phezulu">
|
||||
<!ENTITY sectioncalled "icandelo libizwa ngokuba">
|
||||
<!ENTITY lowercase.alpha "abcdefghijklmnopqrstuvwxyz">
|
||||
<!ENTITY uppercase.alpha "ABCDEFGHIJKLMNOPQRSTUVWXYZ">
|
||||
447
docs/dsssl/docbook/common/dbl1zhcn.dsl
Executable file
447
docs/dsssl/docbook/common/dbl1zhcn.dsl
Executable file
@@ -0,0 +1,447 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % zhcn.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//ZHCN"
|
||||
"dbl1zhcn.ent">
|
||||
%zhcn.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-zhcn">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; 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.
|
||||
;;
|
||||
;; Contributors:
|
||||
;; Frederik Fouvry
|
||||
;;
|
||||
|
||||
(define (zhcn-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 (zhcn-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"the &appendix; called %t"))
|
||||
(list (normalize "article") (string-append %gentext-zhcn-start-quote%
|
||||
"%t"
|
||||
%gentext-zhcn-end-quote%))
|
||||
(list (normalize "bibliography") "%t")
|
||||
(list (normalize "book") "%t")
|
||||
(list (normalize "chapter") (if %chapter-autolabel%
|
||||
"µÚ %n &Chapter;"
|
||||
"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") "µÚ %n &Part;")
|
||||
(list (normalize "preface") "%t")
|
||||
(list (normalize "procedure") "&Procedure; %n, %t")
|
||||
(list (normalize "reference") "&Reference; %n, %t")
|
||||
(list (normalize "section") (if %section-autolabel%
|
||||
"µÚ %n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "sect1") (if %section-autolabel%
|
||||
"µÚ %n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "sect2") (if %section-autolabel%
|
||||
"µÚ %n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "sect3") (if %section-autolabel%
|
||||
"µÚ %n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "sect4") (if %section-autolabel%
|
||||
"µÚ %n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "sect5") (if %section-autolabel%
|
||||
"µÚ %n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "simplesect") (if %section-autolabel%
|
||||
"µÚ %n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "sidebar") "&sidebar; %t")
|
||||
(list (normalize "step") "&step; %n")
|
||||
(list (normalize "table") "&Table; %n")))
|
||||
|
||||
(define (gentext-zhcn-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (zhcn-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 (zhcn-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-zhcn-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (zhcn-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-zhcn-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (zhcn-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-zhcn-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-zhcn-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-zhcn-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (zhcn-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-zhcn-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-zhcn-intra-label-sep)))
|
||||
(sep (assoc name (zhcn-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-zhcn-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (zhcn-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-zhcn-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-zhcn-label-title-sep)))
|
||||
(sep (assoc name (zhcn-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (zhcn-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 (zhcn-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (zhcn-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (zhcn-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-zhcn$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (zhcn-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-zhcn-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-zhcn-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-zhcn-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-zhcn-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-zhcn-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-zhcn-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-zhcn-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-zhcn-page% "")
|
||||
|
||||
(define %gentext-zhcn-and% "∧")
|
||||
|
||||
(define %gentext-zhcn-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-zhcn-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-zhcn-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-zhcn-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-zhcn-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-zhcn-index-see% "&See;")
|
||||
|
||||
(define %gentext-zhcn-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-zhcn-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-zhcn-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-zhcn-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-zhcn-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-zhcn-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-zhcn-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
146
docs/dsssl/docbook/common/dbl1zhcn.ent
Executable file
146
docs/dsssl/docbook/common/dbl1zhcn.ent
Executable file
@@ -0,0 +1,146 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY Abstract "\U-6458;\U-8981;">
|
||||
<!ENTITY abstract "\U-6458;\U-8981;">
|
||||
<!ENTITY Answer "\U-7B54;:">
|
||||
<!ENTITY answer "\U-7B54;:">
|
||||
<!ENTITY Appendix "\U-9644;\U-5F55;">
|
||||
<!ENTITY appendix "\U-9644;\U-5F55;">
|
||||
<!ENTITY Article "\U-6587;\U-7AE0;">
|
||||
<!ENTITY article "\U-6587;\U-7AE0;">
|
||||
<!ENTITY Bibliography "\U-53C2;\U-8003;\U-4E66;\U-76EE;">
|
||||
<!ENTITY bibliography "\U-53C2;\U-8003;\U-4E66;\U-76EE;">
|
||||
<!ENTITY Book "\U-4E66;\U-76EE;">
|
||||
<!ENTITY book "\U-4E66;\U-76EE;">
|
||||
<!ENTITY CAUTION "\U-6CE8;\U-610F;">
|
||||
<!ENTITY Caution "\U-6CE8;\U-610F;">
|
||||
<!ENTITY caution "\U-6CE8;\U-610F;">
|
||||
<!ENTITY Chapter "\U-7AE0;">
|
||||
<!ENTITY chapter "\U-7AE0;">
|
||||
<!ENTITY Colophon "Colophon">
|
||||
<!ENTITY colophon "Colophon">
|
||||
<!ENTITY Copyright "\U-7248;\U-6743;">
|
||||
<!ENTITY copyright "\U-7248;\U-6743;">
|
||||
<!ENTITY Dedication "\U-5949;\U-732E;">
|
||||
<!ENTITY dedication "\U-5949;\U-732E;">
|
||||
<!ENTITY Edition "\U-7248;">
|
||||
<!ENTITY edition "\U-7248;">
|
||||
<!ENTITY Equation "\U-65B9;\U-7A0B;">
|
||||
<!ENTITY equation "\U-65B9;\U-7A0B;">
|
||||
<!ENTITY Example "\U-4F8B;\U-5B50;">
|
||||
<!ENTITY example "\U-4F8B;\U-5B50;">
|
||||
<!ENTITY Figure "\U-56FE;\U-5F62;">
|
||||
<!ENTITY figure "\U-56FE;\U-5F62;">
|
||||
<!ENTITY Glossary "\U-672F;\U-8BED;\U-8868;">
|
||||
<!ENTITY glossary "\U-672F;\U-8BED;\U-8868;">
|
||||
<!ENTITY GlossSee "\U-89C1;">
|
||||
<!ENTITY glosssee "\U-89C1;">
|
||||
<!ENTITY GlossSeeAlso "\U-53E6;\U-89C1;">
|
||||
<!ENTITY glossseealso "\U-53E6;\U-89C1;">
|
||||
<!ENTITY IMPORTANT "\U-91CD;\U-8981;">
|
||||
<!ENTITY Important "\U-91CD;\U-8981;">
|
||||
<!ENTITY important "\U-91CD;\U-8981;">
|
||||
<!ENTITY Index "\U-7D22;\U-5F15;">
|
||||
<!ENTITY index "\U-7D22;\U-5F15;">
|
||||
<!ENTITY ISBN "ISBN">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY LegalNotice "\U-6CD5;\U-5F8B;\U-5E03;\U-544A;">
|
||||
<!ENTITY legalnotice "\U-6CD5;\U-5F8B;\U-5E03;\U-544A;">
|
||||
<!ENTITY MsgAud "\U-8BFB;\U-8005;">
|
||||
<!ENTITY msgaud "\U-8BFB;\U-8005;">
|
||||
<!ENTITY MsgLevel "\U-96BE;\U-5EA6;">
|
||||
<!ENTITY msglevel "\U-96BE;\U-5EA6;">
|
||||
<!ENTITY MsgOrig "\U-51FA;\U-5904;">
|
||||
<!ENTITY msgorig "\U-51FA;\U-5904;">
|
||||
<!ENTITY NOTE "\U-6CE8;">
|
||||
<!ENTITY Note "\U-6CE8;">
|
||||
<!ENTITY note "\U-6CE8;">
|
||||
<!ENTITY Part "\U-90E8;\U-5206;">
|
||||
<!ENTITY part "\U-90E8;\U-5206;">
|
||||
<!ENTITY Preface "\U-524D;\U-8A00;">
|
||||
<!ENTITY preface "\U-524D;\U-8A00;">
|
||||
<!ENTITY Procedure "\U-8FC7;\U-7A0B;">
|
||||
<!ENTITY procedure "\U-8FC7;\U-7A0B;">
|
||||
<!ENTITY Published "\U-51FA;\U-7248;">
|
||||
<!ENTITY published "\U-51FA;\U-7248;">
|
||||
<!ENTITY Question "\U-95EE;:">
|
||||
<!ENTITY question "\U-95EE;:">
|
||||
<!ENTITY RefEntry "">
|
||||
<!ENTITY refentry "">
|
||||
<!ENTITY Reference "\U-53C2;\U-8003;">
|
||||
<!ENTITY reference "\U-53C2;\U-8003;">
|
||||
<!ENTITY RefName "\U-540D;\U-5B57;">
|
||||
<!ENTITY refname "\U-540D;\U-5B57;">
|
||||
<!ENTITY RefSection "">
|
||||
<!ENTITY refsection "">
|
||||
<!ENTITY RefSynopsisDiv "\U-5927;\U-7EB2;">
|
||||
<!ENTITY refsynopsisdiv "\U-5927;\U-7EB2;">
|
||||
<!ENTITY RevHistory "\U-4FEE;\U-8BA2;\U-5386;\U-53F2;">
|
||||
<!ENTITY revhistory "\U-4FEE;\U-8BA2;\U-5386;\U-53F2;">
|
||||
<!ENTITY Revision "\U-4FEE;\U-8BA2;">
|
||||
<!ENTITY revision "\U-4FEE;\U-8BA2;">
|
||||
<!ENTITY Section "\U-8282;">
|
||||
<!ENTITY section "\U-8282;">
|
||||
<!ENTITY See "\U-89C1;">
|
||||
<!ENTITY see "\U-89C1;">
|
||||
<!ENTITY SeeAlso "\U-53E6;\U-89C1;">
|
||||
<!ENTITY Seealso "\U-53E6;\U-89C1;">
|
||||
<!ENTITY seealso "\U-53E6;\U-89C1;">
|
||||
<!ENTITY Set "Set">
|
||||
<!ENTITY set "Set">
|
||||
<!ENTITY SetIndex "Set Index">
|
||||
<!ENTITY setindex "Set Index">
|
||||
<!ENTITY Sidebar "">
|
||||
<!ENTITY sidebar "sidebar">
|
||||
<!ENTITY step "\U-6B65;\U-9AA4;">
|
||||
<!ENTITY Step "\U-6B65;\U-9AA4;">
|
||||
<!ENTITY Table "\U-8868;\U-683C;">
|
||||
<!ENTITY table "\U-8868;\U-683C;">
|
||||
<!ENTITY TIP "\U-63D0;\U-793A;">
|
||||
<!ENTITY Tip "\U-63D0;\U-793A;">
|
||||
<!ENTITY tip "\U-63D0;\U-793A;">
|
||||
<!ENTITY Warning "\U-8B66;\U-544A;">
|
||||
<!ENTITY WARNING "\U-8B66;\U-544A;">
|
||||
<!ENTITY warning "\U-8B66;\U-544A;">
|
||||
<!ENTITY and "\U-548C;">
|
||||
<!ENTITY by "\U-7531;">
|
||||
<!ENTITY Edited "\U-7F16;\U-8F91;">
|
||||
<!ENTITY edited "\U-7F16;\U-8F91;">
|
||||
<!ENTITY Editedby "\U-7F16;\U-8F91;">
|
||||
<!ENTITY editedby "\U-7F16;\U-8F91;">
|
||||
<!ENTITY in "\U-5728;">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "\U-4E0D;\U-5B58;\U-5728;\U-7684;\U-5143;\U-7D20;">
|
||||
<!ENTITY Notes "\U-6CE8;">
|
||||
<!ENTITY notes "\U-6CE8;">
|
||||
<!ENTITY Pgs "\U-9875;">
|
||||
<!ENTITY pgs "\U-9875;">
|
||||
<!ENTITY Revisedby "\U-4FEE;\U-8BA2;">
|
||||
<!ENTITY revisedby "\U-4FEE;\U-8BA2;">
|
||||
<!ENTITY TableNotes "\U-6CE8;">
|
||||
<!ENTITY tablenotes "\U-6CE8;">
|
||||
<!ENTITY TableofContents "\U-76EE;\U-5F55;">
|
||||
<!ENTITY tableofcontents "\U-76EE;\U-5F55;">
|
||||
<!ENTITY unexpectedelementname "\U-672A;\U-9884;\U-6599;\U-5230;\U-7684;\U-5143;\U-7D20;\U-540D;">
|
||||
<!ENTITY unsupported "\U-4E0D;\U-652F;\U-6301;">
|
||||
<!ENTITY xrefto "\U-53C2;\U-7167;">
|
||||
<!ENTITY ListofEquations "\U-65B9;\U-7A0B;\U-5F0F;\U-5217;\U-8868;">
|
||||
<!ENTITY listofequations "\U-65B9;\U-7A0B;\U-5F0F;\U-5217;\U-8868;">
|
||||
<!ENTITY ListofExamples "\U-793A;\U-4F8B;\U-5217;\U-8868;">
|
||||
<!ENTITY listofexamples "\U-793A;\U-4F8B;\U-5217;\U-8868;">
|
||||
<!ENTITY ListofFigures "\U-56FE;\U-5F62;\U-5217;\U-8868;">
|
||||
<!ENTITY listoffigures "\U-56FE;\U-5F62;\U-5217;\U-8868;">
|
||||
<!ENTITY ListofTables "\U-8868;\U-683C;\U-5217;\U-8868;">
|
||||
<!ENTITY listoftables "\U-8868;\U-683C;\U-5217;\U-8868;">
|
||||
<!ENTITY ListofUnknown "\U-5176;\U-4ED6;\U-5185;\U-5BB9;\U-5217;\U-8868;">
|
||||
<!ENTITY listofunknown "\U-5176;\U-4ED6;\U-5185;\U-5BB9;\U-5217;\U-8868;">
|
||||
<!ENTITY nav-home "\U-8D77;\U-70B9;">
|
||||
<!ENTITY nav-next "\U-524D;\U-8FDB;">
|
||||
<!ENTITY nav-next-sibling "\U-5FEB;\U-901F;\U-524D;\U-8FDB;">
|
||||
<!ENTITY nav-prev "\U-540E;\U-9000;">
|
||||
<!ENTITY nav-prev-sibling "\U-5FEB;\U-901F;\U-540E;\U-9000;">
|
||||
<!ENTITY nav-up "\U-4E0A;\U-4E00;\U-7EA7;">
|
||||
435
docs/dsssl/docbook/common/dbl1zhhk.dsl
Executable file
435
docs/dsssl/docbook/common/dbl1zhhk.dsl
Executable file
@@ -0,0 +1,435 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % zhhk.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//ZHHK"
|
||||
"dbl1zhhk.ent">
|
||||
%zhhk.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-zhhk">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; 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.
|
||||
;;
|
||||
;; Contributors:
|
||||
;; Glace Cheung
|
||||
;;
|
||||
|
||||
(define (zhhk-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 (zhhk-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"the &appendix; called %t"))
|
||||
(list (normalize "article") (string-append %gentext-zhhk-start-quote%
|
||||
"%t"
|
||||
%gentext-zhhk-end-quote%))
|
||||
(list (normalize "bibliography") "%t")
|
||||
(list (normalize "book") "%t")
|
||||
(list (normalize "chapter") (if %chapter-autolabel%
|
||||
"%n &Chapter;"
|
||||
"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") "%n &Part;")
|
||||
(list (normalize "preface") "%t")
|
||||
(list (normalize "procedure") "&Procedure; %n, %t")
|
||||
(list (normalize "reference") "&Reference; %n, %t")
|
||||
(list (normalize "section") (if %section-autolabel%
|
||||
"%n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "sect1") (if %section-autolabel%
|
||||
"%n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "sect2") (if %section-autolabel%
|
||||
"%n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "sect3") (if %section-autolabel%
|
||||
"%n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "sect4") (if %section-autolabel%
|
||||
"%n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "sect5") (if %section-autolabel%
|
||||
"%n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "simplesect") (if %section-autolabel%
|
||||
"%n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "sidebar") "&sidebar; %t")
|
||||
(list (normalize "step") "&step; %n")
|
||||
(list (normalize "table") "&Table; %n")))
|
||||
|
||||
(define (gentext-zhhk-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (zhhk-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 (zhhk-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-zhhk-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (zhhk-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-zhhk-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (zhhk-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-zhhk-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-zhhk-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 (zhhk-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-zhhk-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(sep (assoc name (zhhk-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 (zhhk-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-zhhk-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(sep (assoc name (zhhk-label-title-sep))))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
"")))
|
||||
|
||||
(define (zhhk-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 (zhhk-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (zhhk-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (zhhk-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-zhhk$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (zhhk-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-zhhk-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-zhhk-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-zhhk-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-zhhk-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-zhhk-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-zhhk-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-zhhk-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-zhhk-page% "")
|
||||
|
||||
(define %gentext-zhhk-and% "∧")
|
||||
|
||||
(define %gentext-zhhk-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-zhhk-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-zhhk-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-zhhk-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-zhhk-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-zhhk-index-see% "&See;")
|
||||
|
||||
(define %gentext-zhhk-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-zhhk-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-zhhk-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-zhhk-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-zhhk-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-zhhk-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-zhhk-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
88
docs/dsssl/docbook/common/dbl1zhhk.ent
Executable file
88
docs/dsssl/docbook/common/dbl1zhhk.ent
Executable file
@@ -0,0 +1,88 @@
|
||||
<!ENTITY Abstract "\U-6458;\U-8981;">
|
||||
<!ENTITY Answer "\U-7B54;\U-6848;">
|
||||
<!ENTITY Appendix "\U-9644;\U-9304;">
|
||||
<!ENTITY Article "\U-6587;\U-7AE0;">
|
||||
<!ENTITY Bibliography "\U-53C3;\U-8003;\U-6587;\U-737B;">
|
||||
<!ENTITY Book "\U-518A;">
|
||||
<!ENTITY CAUTION "\U-5C0F;\U-5FC3;!">
|
||||
<!ENTITY Caution "\U-5C0F;\U-5FC3;!">
|
||||
<!ENTITY Chapter "\U-7AE0;">
|
||||
<!ENTITY Colophon "\U-4FEE;\U-8A02;\U-8A18;\U-9304;">
|
||||
<!ENTITY Copyright "\U-7248;\U-6B0A;\U-4E8B;\U-9805;">
|
||||
<!ENTITY Dedication "\U-737B;\U-7D66;">
|
||||
<!ENTITY Edition "\U-7248;\U-672C;">
|
||||
<!ENTITY Equation "\U-516C;\U-5F0F;">
|
||||
<!ENTITY Example "\U-793A;\U-7BC4;">
|
||||
<!ENTITY Figure "\U-5716;\U-8868;">
|
||||
<!ENTITY GlossSee "\U-8ACB;\U-67E5;\U-95B1;">
|
||||
<!ENTITY GlossSeeAlso "\U-8ACB;\U-53E6;\U-67E5;\U-95B1;">
|
||||
<!ENTITY Glossary "\U-5C0F;\U-5B57;\U-5178;">
|
||||
<!ENTITY IMPORTANT "\U-91CD;\U-8981;!">
|
||||
<!ENTITY ISBN "\U-570B;\U-969B;\U-66F8;\U-865F; ISBN">
|
||||
<!ENTITY Important "\U-91CD;\U-8981;!">
|
||||
<!ENTITY Index "\U-7D22;\U-5F15;">
|
||||
<!ENTITY LegalNotice "\U-6CD5;\U-5F8B;\U-8072;\U-660E;">
|
||||
<!ENTITY MsgAud "\U-8B80;\U-8005;">
|
||||
<!ENTITY MsgLevel "\U-5C64;\U-6B21;">
|
||||
<!ENTITY MsgOrig "\U-51FA;\U-8655;">
|
||||
<!ENTITY NOTE "\U-5099;\U-6CE8;">
|
||||
<!ENTITY Note "\U-5099;\U-6CE8;">
|
||||
<!ENTITY Part "\U-90E8;\U-4EFD;">
|
||||
<!ENTITY Preface "\U-524D;\U-8A00;">
|
||||
<!ENTITY Procedure "\U-5DE5;\U-5E8F;">
|
||||
<!ENTITY Published "\U-5DF2;\U-51FA;\U-7248;">
|
||||
<!ENTITY Question "\U-554F;\U-984C;">
|
||||
<!ENTITY RefEntry "\U-53C3;\U-8003;\U-9805;\U-76EE;">
|
||||
<!ENTITY Reference "\U-53C3;\U-8003;">
|
||||
<!ENTITY RefName "\U-540D;\U-76EE;">
|
||||
<!ENTITY RefSection "\U-53C3;\U-8003;\U-7AE0;\U-7BC0;">
|
||||
<!ENTITY RefSynopsisDiv "\U-5927;\U-7DB1;">
|
||||
<!ENTITY Revision "\U-4FEE;\U-6B63;">
|
||||
<!ENTITY RevHistory "\U-4FEE;\U-6B63;\U-8A18;\U-9304;">
|
||||
<!ENTITY Section "\U-7BC0;">
|
||||
<!ENTITY See "\U-8ACB;\U-770B;">
|
||||
<!ENTITY SeeAlso "\U-53E6;\U-8ACB;\U-770B;">
|
||||
<!ENTITY Set "\U-5E8F;\U-5217;">
|
||||
<!ENTITY SetIndex "\U-5E8F;\U-865F;">
|
||||
<!ENTITY Sidebar "">
|
||||
<!ENTITY Step "\U-6B65;\U-9A5F;">
|
||||
<!ENTITY TIP "\U-5FC3;\U-5F97;">
|
||||
<!ENTITY Table "\U-8868;\U-683C;">
|
||||
<!ENTITY Tip "\U-5FC3;\U-5F97;">
|
||||
<!ENTITY WARNING "\U-5207;\U-8A18;!">
|
||||
<!ENTITY Warning "\U-5207;\U-8A18;!">
|
||||
<!ENTITY appendix "\U-9644;\U-9304;">
|
||||
<!ENTITY chapter "\U-7AE0;">
|
||||
<!ENTITY section "\U-7BC0;">
|
||||
<!ENTITY sidebar "">
|
||||
<!ENTITY step "\U-6B65;\U-9A5F;">
|
||||
<!ENTITY Seealso "\U-53E6;\U-8ACB;\U-770B;">
|
||||
<!ENTITY TableofContents "\U-76EE;\U-9304;">
|
||||
<!ENTITY in "\U-5728;">
|
||||
<!ENTITY by "\U-7531;">
|
||||
<!ENTITY lastlistcomma "">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY Edited "\U-7DE8;\U-8F2F;">
|
||||
<!ENTITY Editedby "\U-7DE8;\U-8F2F;">
|
||||
<!ENTITY and "\U-540C;\U-6642;">
|
||||
<!ENTITY Notes "\U-5099;\U-6CE8;">
|
||||
<!ENTITY TableNotes "\U-8868;\U-6CE8;">
|
||||
<!ENTITY nonexistantelement "\U-672A;\U-5B9A;\U-7FB2;\U-5143;\U-7D20;">
|
||||
<!ENTITY Pgs "\U-9801;">
|
||||
<!ENTITY unsupported "\U-672A;\U-652F;\U-63F4;">
|
||||
<!ENTITY xrefto "\U-53C3;\U-95B1;">
|
||||
<!ENTITY unexpectedelementname "\U-4E0D;\U-662F;\U-9810;\U-671F;\U-7684;\U-5143;\U-7D20;\U-540D;">
|
||||
<!ENTITY Revisedby "\U-4FEE;\U-8A02;">
|
||||
|
||||
<!ENTITY ListofTables "\U-8868;\U-683C;\U-7E3D;\U-89BD;">
|
||||
<!ENTITY ListofExamples "\U-7BC4;\U-4F8B;\U-7E3D;\U-89BD;">
|
||||
<!ENTITY ListofFigures "\U-9644;\U-5716;\U-7E3D;\U-89BD;">
|
||||
<!ENTITY ListofEquations "\U-516C;\U-5F0F;\U-7E3D;\U-89BD;">
|
||||
<!ENTITY ListofUnknown "\U-96DC;\U-9805;\U-7E3D;\U-89BD;">
|
||||
|
||||
<!ENTITY nav-prev "\U-4E0A;\U-4E00;\U-9801;">
|
||||
<!ENTITY nav-prev-sibling "\U-524D;\U-4E00;\U-7AE0;\U-7BC0;">
|
||||
<!ENTITY nav-next-sibling "\U-5F8C;\U-4E00;\U-7AE0;\U-7BC0;">
|
||||
<!ENTITY nav-next "\U-4E0B;\U-4E00;\U-9801;">
|
||||
<!ENTITY nav-up "\U-4E0A;\U-4E00;\U-5C64;">
|
||||
<!ENTITY nav-home "\U-6700;\U-958B;\U-982D;">
|
||||
447
docs/dsssl/docbook/common/dbl1zhtw.dsl
Executable file
447
docs/dsssl/docbook/common/dbl1zhtw.dsl
Executable file
@@ -0,0 +1,447 @@
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % zhtw.words
|
||||
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//ZHTW"
|
||||
"dbl1zhtw.ent">
|
||||
%zhtw.words;
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification id="docbook-l10n-zhtw">
|
||||
<style-specification-body>
|
||||
|
||||
;; $Id$
|
||||
;;
|
||||
;; 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.
|
||||
;;
|
||||
;; Contributors:
|
||||
;; Frederik Fouvry
|
||||
;;
|
||||
|
||||
(define (zhtw-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 (zhtw-xref-strings)
|
||||
(list (list (normalize "appendix") (if %chapter-autolabel%
|
||||
"&Appendix; %n"
|
||||
"the &appendix; called %t"))
|
||||
(list (normalize "article") (string-append %gentext-zhtw-start-quote%
|
||||
"%t"
|
||||
%gentext-zhtw-end-quote%))
|
||||
(list (normalize "bibliography") "%t")
|
||||
(list (normalize "book") "%t")
|
||||
(list (normalize "chapter") (if %chapter-autolabel%
|
||||
"µÚ %n &Chapter;"
|
||||
"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") "µÚ %n &Part;")
|
||||
(list (normalize "preface") "%t")
|
||||
(list (normalize "procedure") "&Procedure; %n, %t")
|
||||
(list (normalize "reference") "&Reference; %n, %t")
|
||||
(list (normalize "section") (if %section-autolabel%
|
||||
"µÚ %n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "sect1") (if %section-autolabel%
|
||||
"µÚ %n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "sect2") (if %section-autolabel%
|
||||
"µÚ %n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "sect3") (if %section-autolabel%
|
||||
"µÚ %n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "sect4") (if %section-autolabel%
|
||||
"µÚ %n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "sect5") (if %section-autolabel%
|
||||
"µÚ %n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "simplesect") (if %section-autolabel%
|
||||
"µÚ %n §ion;"
|
||||
"the §ion; called %t"))
|
||||
(list (normalize "sidebar") "&sidebar; %t")
|
||||
(list (normalize "step") "&step; %n")
|
||||
(list (normalize "table") "&Table; %n")))
|
||||
|
||||
(define (gentext-zhtw-xref-strings gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(xref (assoc name (zhtw-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 (zhtw-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-zhtw-toc-in-front% #t)
|
||||
|
||||
;; gentext-element-name returns the generated text that should be
|
||||
;; used to make reference to the selected element.
|
||||
;;
|
||||
|
||||
(define (zhtw-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-zhtw-element-name gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(pname (assoc name (zhtw-element-name))))
|
||||
(if pname
|
||||
(car (cdr pname))
|
||||
(let* ((msg (string-append
|
||||
"gentext-zhtw-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-zhtw-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-zhtw-intra-label-sep)
|
||||
(list))
|
||||
|
||||
(define (zhtw-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-zhtw-intra-label-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-zhtw-intra-label-sep)))
|
||||
(sep (assoc name (zhtw-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-zhtw-label-title-sep)
|
||||
(list))
|
||||
|
||||
(define (zhtw-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-zhtw-label-title-sep gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(lsep (assoc name (local-zhtw-label-title-sep)))
|
||||
(sep (assoc name (zhtw-label-title-sep))))
|
||||
(if lsep
|
||||
(car (cdr lsep))
|
||||
(if sep
|
||||
(car (cdr sep))
|
||||
""))))
|
||||
|
||||
(define (zhtw-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 (zhtw-label-number-format gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(format (assoc name (zhtw-label-number-format-list))))
|
||||
(if format
|
||||
(car (cdr format))
|
||||
"1")))
|
||||
|
||||
(define (zhtw-lot-title)
|
||||
(list
|
||||
(list (normalize "table") "&ListofTables;")
|
||||
(list (normalize "example") "&ListofExamples;")
|
||||
(list (normalize "figure") "&ListofFigures;")
|
||||
(list (normalize "equation") "&ListofEquations;")
|
||||
))
|
||||
|
||||
(define ($lot-title-zhtw$ gind)
|
||||
(let* ((giname (if (string? gind) gind (gi gind)))
|
||||
(name (normalize giname))
|
||||
(title (assoc name (zhtw-lot-title))))
|
||||
(if title
|
||||
(car (cdr title))
|
||||
(let* ((msg (string-append "&ListofUnknown;: " name))
|
||||
(err (node-list-error msg (current-node))))
|
||||
msg))))
|
||||
|
||||
(define %gentext-zhtw-start-quote% (dingbat "ldquo"))
|
||||
|
||||
(define %gentext-zhtw-end-quote% (dingbat "rdquo"))
|
||||
|
||||
(define %gentext-zhtw-start-nested-quote% (dingbat "lsquo"))
|
||||
|
||||
(define %gentext-zhtw-end-nested-quote% (dingbat "rsquo"))
|
||||
|
||||
(define %gentext-zhtw-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
||||
;; Authored "by" Jane Doe
|
||||
|
||||
(define %gentext-zhtw-edited-by% "&Editedby;")
|
||||
;; "Edited by" Jane Doe
|
||||
|
||||
(define %gentext-zhtw-revised-by% "&Revisedby;")
|
||||
;; "Revised by" Jane Doe
|
||||
|
||||
(define %gentext-zhtw-page% "")
|
||||
|
||||
(define %gentext-zhtw-and% "∧")
|
||||
|
||||
(define %gentext-zhtw-listcomma% "&listcomma;")
|
||||
|
||||
(define %gentext-zhtw-lastlistcomma% "&lastlistcomma;")
|
||||
|
||||
(define %gentext-zhtw-bibl-pages% "&Pgs;")
|
||||
|
||||
(define %gentext-zhtw-endnotes% "&Notes;")
|
||||
|
||||
(define %gentext-zhtw-table-endnotes% "&TableNotes;:")
|
||||
|
||||
(define %gentext-zhtw-index-see% "&See;")
|
||||
|
||||
(define %gentext-zhtw-index-seealso% "&SeeAlso;")
|
||||
|
||||
|
||||
(define (gentext-zhtw-nav-prev prev)
|
||||
(make sequence (literal "&nav-prev;")))
|
||||
|
||||
(define (gentext-zhtw-nav-prev-sibling prevsib)
|
||||
(make sequence (literal "&nav-prev-sibling;")))
|
||||
|
||||
(define (gentext-zhtw-nav-next-sibling nextsib)
|
||||
(make sequence (literal "&nav-next-sibling;")))
|
||||
|
||||
(define (gentext-zhtw-nav-next next)
|
||||
(make sequence (literal "&nav-next;")))
|
||||
|
||||
(define (gentext-zhtw-nav-up up)
|
||||
(make sequence (literal "&nav-up;")))
|
||||
|
||||
(define (gentext-zhtw-nav-home home)
|
||||
(make sequence (literal "&nav-home;")))
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
|
||||
128
docs/dsssl/docbook/common/dbl1zhtw.ent
Executable file
128
docs/dsssl/docbook/common/dbl1zhtw.ent
Executable file
@@ -0,0 +1,128 @@
|
||||
<?xml version="1.0" encoding="US-ASCII"?>
|
||||
<!-- This file is generated automatically. -->
|
||||
<!-- Do not edit this file by hand! -->
|
||||
<!-- See http://docbook.sourceforge.net/ -->
|
||||
|
||||
<!ENTITY abstract "\U-6458;\U-8981;">
|
||||
<!ENTITY Abstract "\U-6458;\U-8981;">
|
||||
<!ENTITY Answer "\U-7B54;\U-FF1A;">
|
||||
<!ENTITY answer "\U-7B54;\U-FF1A;">
|
||||
<!ENTITY Appendix "\U-9644;\U-9304;">
|
||||
<!ENTITY appendix "\U-9644;\U-9304;">
|
||||
<!ENTITY article "\U-6587;\U-7AE0;">
|
||||
<!ENTITY Article "\U-6587;\U-7AE0;">
|
||||
<!ENTITY Bibliography "\U-53C3;\U-8003;\U-6587;\U-737B;">
|
||||
<!ENTITY bibliography "\U-53C3;\U-8003;\U-6587;\U-737B;">
|
||||
<!ENTITY book "\U-66F8;\U-76EE;">
|
||||
<!ENTITY Book "\U-66F8;\U-76EE;">
|
||||
<!ENTITY caution "\U-6CE8;\U-610F;">
|
||||
<!ENTITY Caution "\U-6CE8;\U-610F;">
|
||||
<!ENTITY Chapter "\U-7AE0;">
|
||||
<!ENTITY chapter "\U-7AE0;">
|
||||
<!ENTITY colophon "\U-7248;\U-672C;\U-8A18;\U-9304;">
|
||||
<!ENTITY Colophon "\U-7248;\U-672C;\U-8A18;\U-9304;">
|
||||
<!ENTITY copyright "\U-7248;\U-6B0A;">
|
||||
<!ENTITY Copyright "\U-7248;\U-6B0A;">
|
||||
<!ENTITY dedication "\U-5949;\U-737B;">
|
||||
<!ENTITY Dedication "\U-5949;\U-737B;">
|
||||
<!ENTITY Edition "\U-7248;">
|
||||
<!ENTITY edition "\U-7248;">
|
||||
<!ENTITY Equation "\U-65B9;\U-7A0B;\U-5F0F;">
|
||||
<!ENTITY equation "\U-65B9;\U-7A0B;\U-5F0F;">
|
||||
<!ENTITY Example "\U-7BC4;\U-4F8B;">
|
||||
<!ENTITY example "\U-7BC4;\U-4F8B;">
|
||||
<!ENTITY Figure "\U-5716;\U-5F62;">
|
||||
<!ENTITY figure "\U-5716;\U-5F62;">
|
||||
<!ENTITY Glossary "\U-5C0F;\U-8FAD;\U-5F59;">
|
||||
<!ENTITY glossary "\U-5C0F;\U-8FAD;\U-5F59;">
|
||||
<!ENTITY GlossSee "\U-53C3;\U-898B;">
|
||||
<!ENTITY glosssee "\U-53C3;\U-898B;">
|
||||
<!ENTITY GlossSeeAlso "\U-53E6;\U-53C3;\U-898B;">
|
||||
<!ENTITY glossseealso "\U-53E6;\U-53C3;\U-898B;">
|
||||
<!ENTITY Important "\U-91CD;\U-8981;">
|
||||
<!ENTITY important "\U-91CD;\U-8981;">
|
||||
<!ENTITY index "\U-7D22;\U-5F15;">
|
||||
<!ENTITY Index "\U-7D22;\U-5F15;">
|
||||
<!ENTITY isbn "ISBN">
|
||||
<!ENTITY legalnotice "\U-6CD5;\U-5F8B;\U-8072;\U-660E;">
|
||||
<!ENTITY LegalNotice "\U-6CD5;\U-5F8B;\U-8072;\U-660E;">
|
||||
<!ENTITY MsgAud "\U-8B80;\U-8005;">
|
||||
<!ENTITY msgaud "\U-8B80;\U-8005;">
|
||||
<!ENTITY MsgLevel "\U-7A0B;\U-5EA6;">
|
||||
<!ENTITY msglevel "\U-7A0B;\U-5EA6;">
|
||||
<!ENTITY MsgOrig "\U-51FA;\U-8655;">
|
||||
<!ENTITY msgorig "\U-51FA;\U-8655;">
|
||||
<!ENTITY Note "\U-6CE8;">
|
||||
<!ENTITY note "\U-6CE8;">
|
||||
<!ENTITY Part "\U-90E8;">
|
||||
<!ENTITY part "\U-90E8;">
|
||||
<!ENTITY preface "\U-5E8F;\U-8A00;">
|
||||
<!ENTITY Preface "\U-5E8F;\U-8A00;">
|
||||
<!ENTITY procedure "\U-904E;\U-7A0B;">
|
||||
<!ENTITY Procedure "\U-904E;\U-7A0B;">
|
||||
<!ENTITY published "\U-51FA;\U-7248;">
|
||||
<!ENTITY Published "\U-51FA;\U-7248;">
|
||||
<!ENTITY Question "\U-554F;\U-FF1A;">
|
||||
<!ENTITY question "\U-554F;\U-FF1A;">
|
||||
<!ENTITY RefEntry "\U-53C3;\U-7167;\U-9805;\U-76EE;">
|
||||
<!ENTITY refentry "\U-53C3;\U-7167;\U-9805;\U-76EE;">
|
||||
<!ENTITY reference "\U-53C3;\U-8003;">
|
||||
<!ENTITY Reference "\U-53C3;\U-8003;">
|
||||
<!ENTITY refname "\U-53C3;\U-8003;\U-540D;">
|
||||
<!ENTITY RefName "\U-53C3;\U-8003;\U-540D;">
|
||||
<!ENTITY refsection "\U-53C3;\U-7167;\U-7AE0;\U-7BC0;">
|
||||
<!ENTITY RefSection "\U-53C3;\U-7167;\U-7AE0;\U-7BC0;">
|
||||
<!ENTITY refsynopsisdiv "\U-5927;\U-7DB1;">
|
||||
<!ENTITY RefSynopsisDiv "\U-5927;\U-7DB1;">
|
||||
<!ENTITY revhistory "\U-4FEE;\U-8A02;\U-8A18;\U-9304;">
|
||||
<!ENTITY RevHistory "\U-4FEE;\U-8A02;\U-8A18;\U-9304;">
|
||||
<!ENTITY revision "\U-4FEE;\U-8A02;">
|
||||
<!ENTITY Revision "\U-4FEE;\U-8A02;">
|
||||
<!ENTITY Section "\U-7BC0;">
|
||||
<!ENTITY section "\U-7BC0;">
|
||||
<!ENTITY See "\U-898B;">
|
||||
<!ENTITY see "\U-898B;">
|
||||
<!ENTITY seealso "\U-53E6;\U-898B;">
|
||||
<!ENTITY SeeAlso "\U-53E6;\U-898B;">
|
||||
<!ENTITY Seealso "\U-53E6;\U-898B;">
|
||||
<!ENTITY set "Set">
|
||||
<!ENTITY Set "Set">
|
||||
<!ENTITY setindex "Set Index">
|
||||
<!ENTITY SetIndex "Set Index">
|
||||
<!ENTITY sidebar "">
|
||||
<!ENTITY Sidebar "">
|
||||
<!ENTITY step "\U-6B65;\U-9A5F;">
|
||||
<!ENTITY Table "\U-8868;\U-683C;">
|
||||
<!ENTITY table "\U-8868;\U-683C;">
|
||||
<!ENTITY tip "\U-63D0;\U-793A;">
|
||||
<!ENTITY Tip "\U-63D0;\U-793A;">
|
||||
<!ENTITY warning "\U-8B66;\U-544A;">
|
||||
<!ENTITY Warning "\U-8B66;\U-544A;">
|
||||
<!ENTITY Edited "\U-7DE8;\U-8F2F;">
|
||||
<!ENTITY Editedby "\U-7DE8;\U-8F2F;">
|
||||
<!ENTITY Notes "\U-6CE8;">
|
||||
<!ENTITY Pgs "\U-9801;">
|
||||
<!ENTITY Revisedby "\U-4FEE;\U-8A02;">
|
||||
<!ENTITY TableNotes "\U-6CE8;\U-91CB;">
|
||||
<!ENTITY TableofContents "\U-5167;\U-5BB9;\U-76EE;\U-9304;">
|
||||
<!ENTITY and "\U-4E14;">
|
||||
<!ENTITY by "\U-7531;">
|
||||
<!ENTITY in "\U-5728;">
|
||||
<!ENTITY lastlistcomma ",">
|
||||
<!ENTITY listcomma ",">
|
||||
<!ENTITY nonexistantelement "\U-4E0D;\U-5B58;\U-5728;\U-7684;\U-5143;\U-7D20;">
|
||||
<!ENTITY page.citation "\U-9801;">
|
||||
<!ENTITY unexpectedelementname "\U-975E;\U-9810;\U-671F;\U-7684;\U-5143;\U-7D20;\U-540D;">
|
||||
<!ENTITY unsupported "\U-672A;\U-652F;\U-63F4;">
|
||||
<!ENTITY xrefto "\U-53C3;\U-7167;">
|
||||
<!ENTITY ListofEquations "\U-516C;\U-5F0F;\U-76EE;\U-9304;">
|
||||
<!ENTITY ListofExamples "\U-7BC4;\U-4F8B;\U-76EE;\U-9304;">
|
||||
<!ENTITY ListofFigures "\U-9644;\U-5716;\U-76EE;\U-9304;">
|
||||
<!ENTITY ListofTables "\U-9644;\U-8868;\U-76EE;\U-9304;">
|
||||
<!ENTITY ListofUnknown "\U-5176;\U-5B83;\U-5167;\U-5BB9;\U-76EE;\U-9304;">
|
||||
<!ENTITY nav-home "\U-5167;\U-5BB9;">
|
||||
<!ENTITY nav-next "\U-4E0B;\U-4E00;\U-9801;">
|
||||
<!ENTITY nav-next-sibling "\U-5FEB;\U-901F;\U-5411;\U-5F8C;">
|
||||
<!ENTITY nav-prev "\U-524D;\U-4E00;\U-9801;">
|
||||
<!ENTITY nav-prev-sibling "\U-5FEB;\U-901F;\U-5411;\U-524D;">
|
||||
<!ENTITY nav-up "\U-4E0A;\U-4E00;\U-5C64;">
|
||||
244
docs/dsssl/docbook/common/dbtable.dsl
Executable file
244
docs/dsssl/docbook/common/dbtable.dsl
Executable file
@@ -0,0 +1,244 @@
|
||||
;; $Id$
|
||||
;;
|
||||
;; This file is part of the Modular DocBook Stylesheet distribution.
|
||||
;; See ../README or http://nwalsh.com/docbook/dsssl/
|
||||
;;
|
||||
;; This file contains table 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-table-version%
|
||||
"Modular DocBook Stylesheet Common Table Functions")
|
||||
|
||||
;; == Table Support =====================================================
|
||||
|
||||
;; ----------------------------------------------------------------------
|
||||
;; Functions for finding/retrieving table attributes
|
||||
|
||||
(define (tgroup-align tgroup)
|
||||
(attribute-string (normalize "align") tgroup))
|
||||
|
||||
(define (tgroup-colsep tgroup)
|
||||
(attribute-string (normalize "colsep") tgroup))
|
||||
|
||||
(define (tgroup-rowsep tgroup)
|
||||
(attribute-string (normalize "rowsep") tgroup))
|
||||
|
||||
;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
|
||||
(define (find-tgroup #!optional (nd (current-node)))
|
||||
;; for our purposes, an entrytbl functions as a tgroup.
|
||||
;; ENTRYTBL IS ONLY SUPPORTED IN THE HTML BACKEND!!!
|
||||
(if (or (equal? (gi nd) (normalize "tgroup"))
|
||||
(equal? (gi nd) (normalize "entrytbl")))
|
||||
nd
|
||||
(if (node-list-empty? (ancestor (normalize "entrytbl") nd))
|
||||
(ancestor (normalize "tgroup") nd)
|
||||
(ancestor (normalize "entrytbl") nd))))
|
||||
|
||||
(define (find-colspec colname)
|
||||
(let* ((tgroup (find-tgroup))
|
||||
(colspecs (select-elements (descendants tgroup)
|
||||
(normalize "colspec"))))
|
||||
(let loop ((nl colspecs))
|
||||
(if (node-list-empty? nl)
|
||||
;; we've run out of places to look, stop looking...
|
||||
(error (string-append "Could not find COLSPEC named " colname))
|
||||
(if (equal? colname
|
||||
(attribute-string (normalize "colname")
|
||||
(node-list-first nl)))
|
||||
(node-list-first nl)
|
||||
(loop (node-list-rest nl)))))))
|
||||
|
||||
(define (find-colspec-by-number colnum)
|
||||
(let* ((tgroup (find-tgroup))
|
||||
(colspecs (select-elements (children tgroup) (normalize "colspec"))))
|
||||
(let loop ((nl colspecs))
|
||||
(if (node-list-empty? nl)
|
||||
;; we've run out of places to look, stop looking...
|
||||
(empty-node-list)
|
||||
(if (equal? (colspec-colnum (node-list-first nl)) colnum)
|
||||
(node-list-first nl)
|
||||
(loop (node-list-rest nl)))))))
|
||||
|
||||
(define (colspec-align colspec)
|
||||
(attribute-string (normalize "align") colspec))
|
||||
|
||||
(define (colspec-char colspec)
|
||||
(attribute-string (normalize "char") colspec))
|
||||
|
||||
(define (colspec-charoff colspec)
|
||||
(let ((charoff (attribute-string (normalize "charoff") colspec)))
|
||||
(if charoff
|
||||
(string->number charoff)
|
||||
#f)))
|
||||
|
||||
(define (colspec-colnum colspec)
|
||||
;; returns the column number of the associated colspec...which is
|
||||
;; either the value of COLNUM or obtained by counting
|
||||
(let* ((tgroup (find-tgroup colspec))
|
||||
(colspecs (select-elements (children tgroup) (normalize "colspec"))))
|
||||
(if (attribute-string (normalize "colnum") colspec)
|
||||
(string->number (attribute-string (normalize "colnum") colspec))
|
||||
(let loop ((nl colspecs) (curcol 1))
|
||||
(let ((colnum (attribute-string (normalize "colnum") (node-list-first nl))))
|
||||
(if (node-list=? (node-list-first nl) colspec)
|
||||
curcol
|
||||
(if colnum
|
||||
(loop (node-list-rest nl) (+ (string->number colnum) 1))
|
||||
(loop (node-list-rest nl) (+ curcol 1)))))))))
|
||||
|
||||
(define (colspec-colname colspec)
|
||||
(attribute-string (normalize "colname") colspec))
|
||||
|
||||
(define (colspec-colsep colspec)
|
||||
(attribute-string (normalize "colsep") colspec))
|
||||
|
||||
(define (colspec-colwidth colspec)
|
||||
(if (attribute-string (normalize "colwidth") colspec)
|
||||
(attribute-string (normalize "colwidth") colspec)
|
||||
"1*"))
|
||||
|
||||
(define (colspec-rowsep colspec)
|
||||
(attribute-string (normalize "rowsep") colspec))
|
||||
|
||||
;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
|
||||
(define (find-spanspec spanname)
|
||||
(let* ((tgroup (find-tgroup))
|
||||
(spanspecs (select-elements (descendants tgroup)
|
||||
(normalize (normalize "spanspec")))))
|
||||
(let loop ((nl spanspecs))
|
||||
(if (node-list-empty? nl)
|
||||
(error (string-append "Could not find SPANSPEC named " spanname))
|
||||
(if (equal? spanname
|
||||
(attribute-string (normalize "spanname")
|
||||
(node-list-first nl)))
|
||||
(node-list-first nl)
|
||||
(loop (node-list-rest nl)))))))
|
||||
|
||||
(define (spanspec-align spanspec)
|
||||
(attribute-string (normalize "align") spanspec))
|
||||
|
||||
(define (spanspec-char spanspec)
|
||||
(attribute-string (normalize "char") spanspec))
|
||||
|
||||
(define (spanspec-charoff spanspec)
|
||||
(let ((charoff (attribute-string (normalize "charoff") spanspec)))
|
||||
(if charoff
|
||||
(string->number charoff)
|
||||
#f)))
|
||||
|
||||
(define (spanspec-colsep spanspec)
|
||||
(attribute-string (normalize "colsep") spanspec))
|
||||
|
||||
(define (spanspec-nameend spanspec)
|
||||
(attribute-string (normalize "nameend") spanspec))
|
||||
|
||||
(define (spanspec-namest spanspec)
|
||||
(attribute-string (normalize "namest") spanspec))
|
||||
|
||||
(define (spanspec-rowsep spanspec)
|
||||
(attribute-string (normalize "rowsep") spanspec))
|
||||
|
||||
(define (spanspec-spanname spanspec)
|
||||
(attribute-string (normalize "spanname") spanspec))
|
||||
|
||||
;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
;; Calculate spans
|
||||
|
||||
(define (hspan entry)
|
||||
;; Returns the horizontal span of an entry
|
||||
(let* ((spanname (attribute-string (normalize "spanname") entry))
|
||||
(namest (if spanname
|
||||
(spanspec-namest (find-spanspec spanname))
|
||||
(attribute-string (normalize "namest") entry)))
|
||||
(nameend (if spanname
|
||||
(spanspec-nameend (find-spanspec spanname))
|
||||
(attribute-string (normalize "nameend") entry)))
|
||||
(colst (if namest
|
||||
(colspec-colnum (find-colspec namest))
|
||||
#f))
|
||||
(colend (if nameend
|
||||
(colspec-colnum (find-colspec nameend))
|
||||
#f)))
|
||||
(if (and namest nameend)
|
||||
(+ (- colend colst) 1)
|
||||
1)))
|
||||
|
||||
(define (vspan entry)
|
||||
;; Returns the vertical span of an entry. Note that this is one more
|
||||
;; than the specified MOREROWS attribute.
|
||||
(let* ((morerows (attribute-string (normalize "morerows") entry)))
|
||||
(if morerows
|
||||
(+ (string->number morerows) 1)
|
||||
1)))
|
||||
|
||||
;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
;; Update the "overhang" list
|
||||
|
||||
(define (adjust-overhang overhang oldoverhang entry)
|
||||
(let* ((colst (cell-column-number entry oldoverhang))
|
||||
(span (hspan entry)))
|
||||
(if (> (vspan entry) 1)
|
||||
(list-put overhang colst (- (vspan entry) 1) span)
|
||||
overhang)))
|
||||
|
||||
(define (overhang-skip overhang startcol)
|
||||
(if (> startcol (length overhang))
|
||||
;; this is a _broken_ table. should I output a debug message!?
|
||||
startcol
|
||||
(let loop ((overtail (list-tail overhang (- startcol 1))) (col startcol))
|
||||
(if (null? overtail)
|
||||
col
|
||||
(if (equal? (car overtail) 0)
|
||||
col
|
||||
(loop (cdr overtail) (+ col 1)))))))
|
||||
|
||||
(define (update-overhang row oldoverhang)
|
||||
(let loop ((overhang (decrement-list-members oldoverhang))
|
||||
(entries (node-list-filter-out-pis (children row))))
|
||||
(if (node-list-empty? entries)
|
||||
overhang
|
||||
(loop (adjust-overhang overhang oldoverhang
|
||||
(node-list-first entries))
|
||||
(node-list-rest entries)))))
|
||||
|
||||
;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
||||
;; Calculate information about cells
|
||||
|
||||
(define (cell-prev-cell entry)
|
||||
;; Return the cell which precedes entry in the current row.
|
||||
(let loop ((nd (ipreced entry)))
|
||||
(if (node-list-empty? nd)
|
||||
nd
|
||||
(if (equal? (node-property 'class-name nd) 'element)
|
||||
nd
|
||||
(loop (ipreced nd))))))
|
||||
|
||||
(define (cell-column-number entry overhang)
|
||||
(let* ((entry (ancestor-member entry (list (normalize "entry") (normalize "entrytbl"))))
|
||||
(row (ancestor (normalize "row") entry))
|
||||
(preventry (cell-prev-cell entry))
|
||||
(prevspan (if (node-list-empty? preventry) 1 (hspan preventry)))
|
||||
(colname (attribute-string (normalize "colname") entry))
|
||||
(namest (attribute-string (normalize "namest") entry))
|
||||
(nameend (attribute-string (normalize "nameend") entry))
|
||||
(spanname (attribute-string (normalize "spanname") entry)))
|
||||
(if colname
|
||||
(colspec-colnum (find-colspec colname))
|
||||
(if spanname
|
||||
(colspec-colnum (find-colspec
|
||||
(spanspec-namest (find-spanspec spanname))))
|
||||
(if namest
|
||||
(colspec-colnum (find-colspec namest))
|
||||
(if (node-list-empty? preventry)
|
||||
(overhang-skip overhang 1)
|
||||
(overhang-skip overhang
|
||||
(+ (cell-column-number preventry overhang)
|
||||
prevspan))))))))
|
||||
|
||||
;; ======================================================================
|
||||
183
docs/dsssl/docbook/html/ChangeLog
Executable file
183
docs/dsssl/docbook/html/ChangeLog
Executable file
@@ -0,0 +1,183 @@
|
||||
2002-06-09 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbbibl.dsl, dbttlpg.dsl: Fix bug #502337: remove 'by' from copyright statements
|
||||
|
||||
2002-05-21 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbttlpg.dsl: Make sure email addresses in info elements are links
|
||||
|
||||
2002-05-12 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbttlpg.dsl: Bug #494693: bad formalpara formatting on title pages
|
||||
|
||||
* dbverb.dsl: Bugs #429663 and #474328 fixed (allow external linespecific content to be indented and numbered). Eight bit or unicode external linespecific content may be problematic though.
|
||||
|
||||
2002-05-09 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbgraph.dsl: Bug #448732: make image-library work with imagedata
|
||||
|
||||
* dblink.dsl: Allow xref to refnamediv
|
||||
|
||||
2002-05-06 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbbibl.dsl: Fix broken style attribute on biblioentries
|
||||
|
||||
2002-04-29 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbefsyn.dsl: Format synopsis elements correctly outside of classsynopsis
|
||||
|
||||
2002-04-21 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* db31.dsl, dbadmon.dsl, dbblock.dsl, dbcompon.dsl, dbdivis.dsl, dbgloss.dsl, dbindex.dsl, dblists.dsl, dbrfntry.dsl, dbsect.dsl, dbtable.dsl, dbttlpg.dsl:
|
||||
Make sure named anchors are closed
|
||||
|
||||
2002-03-24 Adam Di Carlo <adicarlo@users.sourceforge.net>
|
||||
|
||||
* Makefile: add a clean rule here
|
||||
|
||||
2002-03-21 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbfootn.dsl: Fix footnote bugs (Adam, please double-check)
|
||||
|
||||
2002-03-20 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbefsyn.dsl: Support freestanding {method,field,constructor,destructor}synopsis
|
||||
|
||||
2002-03-16 Adam Di Carlo <adicarlo@users.sourceforge.net>
|
||||
|
||||
* dbfootn.dsl: footnotes go in a CSS class "footnote"; reduce code, additional modularity -- to change footnote rendering,
|
||||
you just have to provide a different "$footnote-literal$" procedure
|
||||
|
||||
2002-02-22 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dblink.dsl: Add element-page-number-sosofo back in; always produce "???"
|
||||
|
||||
2002-02-20 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dblink.dsl: Remove bogus page-number rules
|
||||
|
||||
2002-01-03 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbindex.dsl: Wrap DIVs around index lists
|
||||
|
||||
2001-12-06 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* db31.dsl, dbadmon.dsl, dbblock.dsl, dbcompon.dsl, dbdivis.dsl, dbgloss.dsl, dbindex.dsl, dblists.dsl, dbrfntry.dsl, dbsect.dsl, dbttlpg.dsl:
|
||||
Make anchors empty so that they don't imply style for the things they wrap
|
||||
|
||||
2001-12-01 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* docbook.dsl: Bug #462406 legalnotice-link breaks HTML manifest
|
||||
|
||||
2001-11-30 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbsect.dsl: Patch #473116: Section levels
|
||||
|
||||
2001-11-18 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbparam.dsl: Bug #482355: use legalnotice id when use-id-as-filename is true
|
||||
|
||||
2001-11-14 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* docbook.dsl: Added Basque, Nynorsk, Ukranian, and Xhosa
|
||||
|
||||
2001-11-03 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbinline.dsl: Support pubwork=article on citetitle
|
||||
|
||||
2001-10-13 Jirka Kosek <kosek@users.sourceforge.net>
|
||||
|
||||
* dbinline.dsl: Fixed bug #470840 - added support for methodname.
|
||||
|
||||
2001-10-01 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbverb.dsl: Support linenumbering attribute on verbatim environments
|
||||
|
||||
2001-09-29 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbcallou.dsl: Bug #449494: make callouts work even if they appear on the last line of a verbatim environment
|
||||
|
||||
2001-09-23 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* db31.dsl: ImageData should use the image function from dbgraph.dsl
|
||||
|
||||
* dbgraph.dsl: Patch #421990: support width and depth attributes on graphics
|
||||
|
||||
* dbverb.dsl: Patch #461901, make %fix-para-wrappers% affect verbatim
|
||||
|
||||
2001-09-18 Nik Clayton <nikclayton@users.sourceforge.net>
|
||||
|
||||
* dbcompon.dsl, dbparam.dsl: Add $generate-article-lot-list$, initially empty, which controls what
|
||||
whether or not a list of titles is generated for articles.
|
||||
|
||||
Currently HTML only.
|
||||
|
||||
2001-08-30 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* db31.dsl: Fix XML/SGML discrepancy wrt normalization of notation names; move some common stuff into dbcommon
|
||||
|
||||
2001-08-25 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbinline.dsl: Fix erroneous literals
|
||||
|
||||
* dbsect.dsl: Bug #451005: no id anchor for bridgehead
|
||||
|
||||
2001-08-06 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbinline.dsl, dbparam.dsl: Support 'bold' and 'strong' roles on emphasis in the expected way, added %{emphasis,phrase}-propagates-style% parameters
|
||||
|
||||
2001-07-05 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbautoc.dsl, dbhtml.dsl: Patch #420730, use dingbat-sosofo instead of literal to create emdash
|
||||
|
||||
* dbnavig.dsl: Patch #418401, add accesskey attributes to HTML navigation
|
||||
|
||||
* dbparam.dsl: Patch #420012, Add colon to content-title-end-punct
|
||||
|
||||
2001-07-04 <uid48421@users.sourceforge.net>
|
||||
|
||||
* docbook.dsl: Added Afrikaans and Turkish
|
||||
|
||||
2001-05-11 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* docbook.dsl: Support Serbian and Traditional Chinese
|
||||
|
||||
2001-05-04 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbprocdr.dsl: Support links to procedures and steps
|
||||
|
||||
2001-05-03 Jirka Kosek <kosek@users.sourceforge.net>
|
||||
|
||||
* dbinline.dsl: Attributes marked up by <sgmltag> are now in monospace (same as in XSL and print DSSSL).
|
||||
|
||||
2001-04-21 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbblock.dsl: Output anchors for formalparas with IDs
|
||||
|
||||
* dbinline.dsl: Bug #417697: workaround Netscape limitation with trade named entity.
|
||||
|
||||
2001-04-20 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbbibl.dsl: Make sure anchors are produced for bibliomixed elements
|
||||
|
||||
2001-04-18 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbinline.dsl, dbparam.dsl: Bug #413982, easy support for man page CGI links on citerefentry
|
||||
|
||||
2001-04-16 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* dbnavig.dsl: Added summary attribute to navigation tables
|
||||
|
||||
2001-04-04 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* Makefile: New file.
|
||||
|
||||
2001-04-03 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* db31.dsl: Fix bug 412548, allow WMF in media objects
|
||||
|
||||
2001-04-02 Norman Walsh <nwalsh@users.sourceforge.net>
|
||||
|
||||
* .cvsignore, catalog, db31.dsl, dbadmon.dsl, dbautoc.dsl, dbbibl.dsl, dbblock.dsl, dbcallou.dsl, dbchunk.dsl, dbcompon.dsl, dbdivis.dsl, dbefsyn.dsl, dbfootn.dsl, dbgloss.dsl, dbgraph.dsl, dbhtml.dsl, dbindex.dsl, dbinfo.dsl, dbinline.dsl, dblink.dsl, dblists.dsl, dblot.dsl, dbmath.dsl, dbmsgset.dsl, dbnavig.dsl, dbparam.dsl, dbpi.dsl, dbprocdr.dsl, dbrfntry.dsl, dbsect.dsl, dbsynop.dsl, dbtable.dsl, dbtitle.dsl, dbttlpg.dsl, dbverb.dsl, docbook.dsl, version.dsl:
|
||||
New file.
|
||||
|
||||
7931
docs/dsssl/docbook/html/XREF
Executable file
7931
docs/dsssl/docbook/html/XREF
Executable file
File diff suppressed because it is too large
Load Diff
3
docs/dsssl/docbook/html/catalog
Executable file
3
docs/dsssl/docbook/html/catalog
Executable file
@@ -0,0 +1,3 @@
|
||||
CATALOG "../catalog"
|
||||
|
||||
|
||||
301
docs/dsssl/docbook/html/db31.dsl
Executable file
301
docs/dsssl/docbook/html/db31.dsl
Executable file
@@ -0,0 +1,301 @@
|
||||
;; $Id$
|
||||
;;
|
||||
;; This file is part of the Modular DocBook Stylesheet distribution.
|
||||
;; See ../README or http://nwalsh.com/docbook/dsssl/
|
||||
;;
|
||||
|
||||
;; This module implements support for elements introduced in DocBook 3.1.
|
||||
;; When DocBook 3.1 is officially released, these rules will get folded
|
||||
;; into more appropriate modules.
|
||||
|
||||
;; ======================================================================
|
||||
;; MediaObject and friends...
|
||||
|
||||
(define preferred-mediaobject-notations
|
||||
(list "JPG" "JPEG" "PNG" "linespecific"))
|
||||
|
||||
(define preferred-mediaobject-extensions
|
||||
(list "jpeg" "jpg" "png" "avi" "mpg" "mpeg" "qt"))
|
||||
|
||||
(define acceptable-mediaobject-notations
|
||||
(list "GIF" "GIF87a" "GIF89a" "BMP" "WMF"))
|
||||
|
||||
(define acceptable-mediaobject-extensions
|
||||
(list "gif" "bmp" "wmf"))
|
||||
|
||||
(element mediaobject
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
(make element gi: "P"
|
||||
($mediaobject$))))
|
||||
|
||||
(element inlinemediaobject
|
||||
(make element gi: "SPAN"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
($mediaobject$)))
|
||||
|
||||
(element mediaobjectco
|
||||
(process-children))
|
||||
|
||||
(element imageobjectco
|
||||
(process-children))
|
||||
|
||||
(element objectinfo
|
||||
(empty-sosofo))
|
||||
|
||||
(element videoobject
|
||||
(process-children))
|
||||
|
||||
(element videodata
|
||||
(let ((filename (data-filename (current-node))))
|
||||
(make element gi: "EMBED"
|
||||
attributes: (list (list "SRC" filename)))))
|
||||
|
||||
(element audioobject
|
||||
(process-children))
|
||||
|
||||
(element audiodata
|
||||
(let ((filename (data-filename (current-node))))
|
||||
(make element gi: "EMBED"
|
||||
attributes: (list (list "SRC" filename)))))
|
||||
|
||||
(element imageobject
|
||||
(process-children))
|
||||
|
||||
(element imagedata
|
||||
(let* ((filename (data-filename (current-node)))
|
||||
(mediaobj (parent (parent (current-node))))
|
||||
(textobjs (select-elements (children mediaobj)
|
||||
(normalize "textobject")))
|
||||
(alttext (let loop ((nl textobjs) (alttext #f))
|
||||
(if (or alttext (node-list-empty? nl))
|
||||
alttext
|
||||
(let ((phrase (select-elements
|
||||
(children
|
||||
(node-list-first nl))
|
||||
(normalize "phrase"))))
|
||||
(if (node-list-empty? phrase)
|
||||
(loop (node-list-rest nl) #f)
|
||||
(loop (node-list-rest nl)
|
||||
(data (node-list-first phrase))))))))
|
||||
(fileref (attribute-string (normalize "fileref")))
|
||||
(entityref (attribute-string (normalize "entityref")))
|
||||
(format (if (attribute-string (normalize "format"))
|
||||
(attribute-string (normalize "format"))
|
||||
(if entityref
|
||||
(entity-notation entityref)
|
||||
#f))))
|
||||
(if (equal? format (normalize "linespecific"))
|
||||
(if fileref
|
||||
(include-file fileref)
|
||||
(include-file (entity-generated-system-id entityref)))
|
||||
($img$ (current-node) alttext))))
|
||||
|
||||
(element textobject
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
(process-children)))
|
||||
|
||||
(element caption
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
(process-children)))
|
||||
|
||||
;; ======================================================================
|
||||
;; InformalFigure
|
||||
|
||||
(element informalfigure
|
||||
($informal-object$ %informalfigure-rules% %informalfigure-rules%))
|
||||
|
||||
;; ======================================================================
|
||||
;; Colophon
|
||||
|
||||
(element colophon
|
||||
($component$))
|
||||
|
||||
;; ======================================================================
|
||||
;; section
|
||||
;; sectioninfo
|
||||
|
||||
(element section ($section$))
|
||||
(element (section title) (empty-sosofo))
|
||||
|
||||
;; ======================================================================
|
||||
;; QandASet and friends
|
||||
|
||||
(define (qanda-defaultlabel)
|
||||
(normalize "number"))
|
||||
|
||||
(define (qanda-section-level)
|
||||
;; FIXME: what if they nest inside each other?
|
||||
(let* ((enclsect (ancestor-member (current-node)
|
||||
(list (normalize "section")
|
||||
(normalize "simplesect")
|
||||
(normalize "sect5")
|
||||
(normalize "sect4")
|
||||
(normalize "sect3")
|
||||
(normalize "sect2")
|
||||
(normalize "sect1")
|
||||
(normalize "refsect3")
|
||||
(normalize "refsect2")
|
||||
(normalize "refsect1")))))
|
||||
(SECTLEVEL enclsect)))
|
||||
|
||||
(define (qandadiv-section-level)
|
||||
(let ((depth (length (hierarchical-number-recursive
|
||||
(normalize "qandadiv")))))
|
||||
(+ (qanda-section-level) depth)))
|
||||
|
||||
(element qandaset
|
||||
(let ((title (select-elements (children (current-node))
|
||||
(normalize "title")))
|
||||
;; process title and rest separately so that we can put the TOC
|
||||
;; in the rigth place...
|
||||
(rest (node-list-filter-by-not-gi (children (current-node))
|
||||
(list (normalize "title")))))
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
(process-node-list title)
|
||||
(if ($generate-qandaset-toc$)
|
||||
(process-qanda-toc)
|
||||
(empty-sosofo))
|
||||
(process-node-list rest))))
|
||||
|
||||
(element (qandaset title)
|
||||
(let* ((htmlgi (string-append "H" (number->string
|
||||
(+ (qanda-section-level) 1)))))
|
||||
(make element gi: htmlgi
|
||||
attributes: (list (list "CLASS" (gi (current-node))))
|
||||
(process-children))))
|
||||
|
||||
(element qandadiv
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
(process-children)))
|
||||
|
||||
(element (qandadiv title)
|
||||
(let* ((hnr (hierarchical-number-recursive (normalize "qandadiv")
|
||||
(current-node)))
|
||||
(number (let loop ((numlist hnr) (number "") (sep ""))
|
||||
(if (null? numlist)
|
||||
number
|
||||
(loop (cdr numlist)
|
||||
(string-append number
|
||||
sep
|
||||
(number->string (car numlist)))
|
||||
"."))))
|
||||
(htmlgi (string-append "H" (number->string
|
||||
(+ (qandadiv-section-level) 1)))))
|
||||
(make element gi: htmlgi
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME" (element-id
|
||||
(parent (current-node)))))
|
||||
(empty-sosofo))
|
||||
(literal number ". ")
|
||||
(process-children))))
|
||||
|
||||
(element qandaentry
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
(process-children)))
|
||||
|
||||
(element question
|
||||
(let* ((chlist (children (current-node)))
|
||||
(firstch (node-list-first chlist))
|
||||
(restch (node-list-rest chlist)))
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
(make element gi: "P"
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME" (element-id)))
|
||||
(empty-sosofo))
|
||||
(make element gi: "B"
|
||||
(literal (question-answer-label (current-node)) " "))
|
||||
(process-node-list (children firstch)))
|
||||
(process-node-list restch))))
|
||||
|
||||
(element answer
|
||||
(let* ((inhlabel (inherited-attribute-string (normalize "defaultlabel")))
|
||||
(deflabel (if inhlabel inhlabel (qanda-defaultlabel)))
|
||||
(label (attribute-string (normalize "label")))
|
||||
(chlist (children (current-node)))
|
||||
(firstch (node-list-first chlist))
|
||||
(restch (node-list-rest chlist)))
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
(make element gi: "P"
|
||||
(make element gi: "B"
|
||||
(literal (question-answer-label (current-node)) " "))
|
||||
(process-node-list (children firstch)))
|
||||
(process-node-list restch))))
|
||||
|
||||
;; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
|
||||
|
||||
(define (process-qanda-toc #!optional (node (current-node)))
|
||||
(let* ((divs (node-list-filter-by-gi (children node)
|
||||
(list (normalize "qandadiv"))))
|
||||
(entries (node-list-filter-by-gi (children node)
|
||||
(list (normalize "qandaentry"))))
|
||||
(inhlabel (inherited-attribute-string (normalize "defaultlabel")))
|
||||
(deflabel (if inhlabel inhlabel (qanda-defaultlabel))))
|
||||
(make element gi: "DL"
|
||||
(with-mode qandatoc
|
||||
(process-node-list divs))
|
||||
(with-mode qandatoc
|
||||
(process-node-list entries)))))
|
||||
|
||||
(mode qandatoc
|
||||
(element qandadiv
|
||||
(let ((title (select-elements (children (current-node))
|
||||
(normalize "title"))))
|
||||
(make sequence
|
||||
(make element gi: "DT"
|
||||
(process-node-list title))
|
||||
(make element gi: "DD"
|
||||
(process-qanda-toc)))))
|
||||
|
||||
(element (qandadiv title)
|
||||
(let* ((hnr (hierarchical-number-recursive (normalize "qandadiv")
|
||||
(current-node)))
|
||||
(number (let loop ((numlist hnr) (number "") (sep ""))
|
||||
(if (null? numlist)
|
||||
number
|
||||
(loop (cdr numlist)
|
||||
(string-append number
|
||||
sep
|
||||
(number->string (car numlist)))
|
||||
".")))))
|
||||
(make sequence
|
||||
(literal number ". ")
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "HREF"
|
||||
(href-to (parent (current-node)))))
|
||||
(process-children)))))
|
||||
|
||||
(element qandaentry
|
||||
(process-children))
|
||||
|
||||
(element question
|
||||
(let* ((chlist (children (current-node)))
|
||||
(firstch (node-list-first chlist)))
|
||||
(make element gi: "DT"
|
||||
(literal (question-answer-label (current-node)) " ")
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "HREF" (href-to (current-node))))
|
||||
(process-node-list (children firstch))))))
|
||||
|
||||
(element answer
|
||||
(empty-sosofo))
|
||||
)
|
||||
|
||||
;; ======================================================================
|
||||
;; constant
|
||||
|
||||
(element constant
|
||||
($mono-seq$))
|
||||
|
||||
;; ======================================================================
|
||||
;; varname
|
||||
|
||||
(element varname
|
||||
($mono-seq$))
|
||||
171
docs/dsssl/docbook/html/dbadmon.dsl
Executable file
171
docs/dsssl/docbook/html/dbadmon.dsl
Executable file
@@ -0,0 +1,171 @@
|
||||
;; $Id$
|
||||
;;
|
||||
;; This file is part of the Modular DocBook Stylesheet distribution.
|
||||
;; See ../README or http://www.berkshire.net/~norm/dsssl/
|
||||
;;
|
||||
|
||||
;; ============================ ADMONITIONS =============================
|
||||
|
||||
(define ($graphical-admonition$)
|
||||
(let* ((adm (current-node))
|
||||
(id (attribute-string (normalize "id")))
|
||||
(title (select-elements (children adm)
|
||||
(normalize "title")))
|
||||
(title? (not (node-list-empty? title)))
|
||||
(adm-title (if title?
|
||||
(with-mode title-sosofo-mode
|
||||
(process-node-list (node-list-first title)))
|
||||
(literal (gentext-element-name adm))))
|
||||
(gr-cell (make element gi: "TD"
|
||||
attributes: (list
|
||||
(list "WIDTH"
|
||||
($admon-graphic-width$))
|
||||
(list "ALIGN" "CENTER")
|
||||
(list "VALIGN" "TOP"))
|
||||
(make empty-element gi: "IMG"
|
||||
attributes: (list
|
||||
(list "SRC"
|
||||
(root-rel-path
|
||||
($admon-graphic$)))
|
||||
(list "HSPACE" "5")
|
||||
(list "ALT"
|
||||
(gentext-element-name adm))))))
|
||||
(ttl-cell (make element gi: "TH"
|
||||
attributes: '(("ALIGN" "LEFT")
|
||||
("VALIGN" "CENTER"))
|
||||
(make element gi: "B" adm-title)))
|
||||
(body-cell (make element gi: "TD"
|
||||
attributes: '(("ALIGN" "LEFT")
|
||||
("VALIGN" "TOP"))
|
||||
(process-children))))
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" (gi adm)))
|
||||
(if id
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME" id))
|
||||
(empty-sosofo))
|
||||
(empty-sosofo))
|
||||
(if %spacing-paras%
|
||||
(make element gi: "P" (empty-sosofo))
|
||||
(empty-sosofo))
|
||||
(make element gi: "TABLE"
|
||||
attributes: (list (list "CLASS" (gi))
|
||||
(list "WIDTH" ($table-width$))
|
||||
(list "BORDER" "0"))
|
||||
(if title?
|
||||
(make sequence
|
||||
(make element gi: "TR"
|
||||
gr-cell
|
||||
ttl-cell)
|
||||
(make element gi: "TR"
|
||||
(make element gi: "TD"
|
||||
(make entity-ref name: "nbsp"))
|
||||
body-cell))
|
||||
(make sequence
|
||||
(make element gi: "TR"
|
||||
gr-cell
|
||||
body-cell)))))))
|
||||
|
||||
(define ($admonition$)
|
||||
(let ((id (attribute-string (normalize "id"))))
|
||||
(if %admon-graphics%
|
||||
($graphical-admonition$)
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
;; The DIV isn't strictly necessary, of course, but it
|
||||
;; is consistent with the graphical-admonition case.
|
||||
(make element gi: "BLOCKQUOTE"
|
||||
attributes: (list
|
||||
(list "CLASS" (gi)))
|
||||
(if id
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME" id))
|
||||
(empty-sosofo))
|
||||
(empty-sosofo))
|
||||
(process-children))))))
|
||||
|
||||
(define ($admonpara$)
|
||||
(let* ((title (select-elements
|
||||
(children (parent (current-node))) (normalize "title")))
|
||||
(has-title (not (node-list-empty? title)))
|
||||
(adm-title (if has-title
|
||||
(make sequence
|
||||
(with-mode title-sosofo-mode
|
||||
(process-node-list (node-list-first title)))
|
||||
(literal (gentext-label-title-sep
|
||||
(gi (parent (current-node))))))
|
||||
(literal
|
||||
(gentext-element-name
|
||||
(gi (parent (current-node))))
|
||||
(gentext-label-title-sep
|
||||
(gi (parent (current-node))))))))
|
||||
(make element gi: "P"
|
||||
(if (and (not %admon-graphics%) (= (child-number) 1))
|
||||
(make element gi: "B"
|
||||
adm-title)
|
||||
(empty-sosofo))
|
||||
(process-children))))
|
||||
|
||||
(element important ($admonition$))
|
||||
(element (important title) (empty-sosofo))
|
||||
(element (important para) ($admonpara$))
|
||||
(element (important simpara) ($admonpara$))
|
||||
(element note ($admonition$))
|
||||
(element (note title) (empty-sosofo))
|
||||
(element (note para) ($admonpara$))
|
||||
(element (note simpara) ($admonpara$))
|
||||
(element tip ($admonition$))
|
||||
(element (tip title) (empty-sosofo))
|
||||
(element (tip para) ($admonpara$))
|
||||
(element (tip simpara) ($admonpara$))
|
||||
|
||||
;; perils are given special treatment by generating a centered title
|
||||
;; and throwing a box around them
|
||||
;;
|
||||
(define ($peril$)
|
||||
(let* ((title (select-elements
|
||||
(children (current-node)) (normalize "title")))
|
||||
(has-title (not (node-list-empty? title)))
|
||||
(adm-title (if has-title
|
||||
(make sequence
|
||||
(with-mode title-sosofo-mode
|
||||
(process-node-list (node-list-first title))))
|
||||
(literal
|
||||
(gentext-element-name
|
||||
(gi (current-node))))))
|
||||
(id (attribute-string (normalize "id"))))
|
||||
(if %admon-graphics%
|
||||
($graphical-admonition$)
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
;; The DIV isn't strictly necessary, of course, but it
|
||||
;; is consistent with the graphical-admonition case.
|
||||
(if %spacing-paras%
|
||||
(make element gi: "P" (empty-sosofo))
|
||||
(empty-sosofo))
|
||||
(make element gi: "TABLE"
|
||||
attributes: (list
|
||||
(list "CLASS" (gi))
|
||||
(list "BORDER" "1")
|
||||
(list "WIDTH" ($table-width$)))
|
||||
(make element gi: "TR"
|
||||
(make element gi: "TD"
|
||||
attributes: (list
|
||||
(list "ALIGN" "CENTER"))
|
||||
(make element gi: "B"
|
||||
(if id
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME" id))
|
||||
(empty-sosofo))
|
||||
(empty-sosofo))
|
||||
adm-title)))
|
||||
(make element gi: "TR"
|
||||
(make element gi: "TD"
|
||||
attributes: (list
|
||||
(list "ALIGN" "LEFT"))
|
||||
(process-children))))))))
|
||||
|
||||
(element caution ($peril$))
|
||||
(element warning ($peril$))
|
||||
(element (caution title) (empty-sosofo))
|
||||
(element (warning title) (empty-sosofo))
|
||||
128
docs/dsssl/docbook/html/dbautoc.dsl
Executable file
128
docs/dsssl/docbook/html/dbautoc.dsl
Executable file
@@ -0,0 +1,128 @@
|
||||
;; $Id$
|
||||
;;
|
||||
;; This file is part of the Modular DocBook Stylesheet distribution.
|
||||
;; See ../README or http://www.berkshire.net/~norm/dsssl/
|
||||
;;
|
||||
|
||||
;; ========================== TABLE OF CONTENTS =========================
|
||||
|
||||
;; Returns the depth of auto TOC that should be made at the nd-level
|
||||
(define (toc-depth nd)
|
||||
(if (string=? (gi nd) (normalize "book"))
|
||||
3
|
||||
1))
|
||||
|
||||
(define (toc-entry tocentry)
|
||||
(make element gi: "DT"
|
||||
(make sequence
|
||||
(if (equal? (element-label tocentry) "")
|
||||
(empty-sosofo)
|
||||
(make sequence
|
||||
(literal (element-label tocentry))
|
||||
(literal (gentext-label-title-sep
|
||||
(gi tocentry)))))
|
||||
|
||||
;; If the tocentry isn't in its own
|
||||
;; chunk, don't make a link...
|
||||
(if (and #f (not (chunk? tocentry)))
|
||||
(element-title-sosofo tocentry)
|
||||
(make element gi: "A"
|
||||
attributes: (list
|
||||
(list "HREF"
|
||||
(href-to tocentry)))
|
||||
(element-title-sosofo tocentry)))
|
||||
|
||||
;; Maybe annotate...
|
||||
(if (and %annotate-toc%
|
||||
(equal? (gi tocentry) (normalize "refentry")))
|
||||
(make sequence
|
||||
(dingbat-sosofo "nbsp");
|
||||
(dingbat-sosofo "em-dash");
|
||||
(dingbat-sosofo "nbsp");
|
||||
(toc-annotation tocentry))
|
||||
(empty-sosofo)))))
|
||||
|
||||
(define (toc-annotation tocentry)
|
||||
;; only handles refentry at the moment
|
||||
(let* ((refnamediv (select-elements (children tocentry)
|
||||
(normalize "refnamediv")))
|
||||
(refpurpose (select-elements (children refnamediv)
|
||||
(normalize "refpurpose"))))
|
||||
(process-node-list (children refpurpose))))
|
||||
|
||||
(define (build-toc nd depth #!optional (chapter-toc? #f) (first? #t))
|
||||
(let ((toclist (toc-list-filter
|
||||
(node-list-filter-by-gi (children nd)
|
||||
(append (division-element-list)
|
||||
(component-element-list)
|
||||
(section-element-list)))))
|
||||
(wrappergi (if first? "DIV" "DD"))
|
||||
(wrapperattr (if first? '(("CLASS" "TOC")) '())))
|
||||
(if (or (<= depth 0)
|
||||
(node-list-empty? toclist)
|
||||
(and chapter-toc?
|
||||
(not %force-chapter-toc%)
|
||||
(<= (node-list-length toclist) 1)))
|
||||
(empty-sosofo)
|
||||
(make element gi: wrappergi
|
||||
attributes: wrapperattr
|
||||
(make element gi: "DL"
|
||||
(if first?
|
||||
(make element gi: "DT"
|
||||
(make element gi: "B"
|
||||
(literal (gentext-element-name (normalize "toc")))))
|
||||
(empty-sosofo))
|
||||
(let loop ((nl toclist))
|
||||
(if (node-list-empty? nl)
|
||||
(empty-sosofo)
|
||||
(sosofo-append
|
||||
(toc-entry (node-list-first nl))
|
||||
(build-toc (node-list-first nl)
|
||||
(- depth 1) chapter-toc? #f)
|
||||
(loop (node-list-rest nl))))))))))
|
||||
|
||||
;; Print the LOT entry
|
||||
(define (lot-entry tocentry)
|
||||
(make element gi: "DT"
|
||||
(make sequence
|
||||
(if (equal? (element-label tocentry) "")
|
||||
(empty-sosofo)
|
||||
(make sequence
|
||||
(literal (element-label tocentry))
|
||||
(literal (gentext-label-title-sep
|
||||
(gi tocentry)))))
|
||||
|
||||
;; If the tocentry isn't in its own
|
||||
;; chunk, don't make a link...
|
||||
(if (and #f (not (chunk? tocentry)))
|
||||
(element-title-sosofo tocentry)
|
||||
(make element gi: "A"
|
||||
attributes: (list
|
||||
(list "HREF"
|
||||
(href-to tocentry)))
|
||||
(element-title-sosofo tocentry))))))
|
||||
|
||||
;; Build a LOT starting at nd for all the lotgi's it contains.
|
||||
;; The optional arguments are used on recursive calls to build-toc
|
||||
;; and shouldn't be set by the initial caller...
|
||||
;;
|
||||
|
||||
(define (build-lot nd lotgi)
|
||||
(let* ((lotlist (select-elements (descendants nd)
|
||||
(normalize lotgi))))
|
||||
(if (node-list-empty? lotlist)
|
||||
(empty-sosofo)
|
||||
(make element gi: "DIV"
|
||||
attributes: '(("CLASS" "LOT"))
|
||||
(make element gi: "DL"
|
||||
attributes: '(("CLASS" "LOT"))
|
||||
(make element gi: "DT"
|
||||
(make element gi: "B"
|
||||
(literal ($lot-title$
|
||||
(gi (node-list-first lotlist))))))
|
||||
(let loop ((lote lotlist))
|
||||
(if (node-list-empty? lote)
|
||||
(empty-sosofo)
|
||||
(make sequence
|
||||
(lot-entry (node-list-first lote))
|
||||
(loop (node-list-rest lote))))))))))
|
||||
997
docs/dsssl/docbook/html/dbbibl.dsl
Executable file
997
docs/dsssl/docbook/html/dbbibl.dsl
Executable file
@@ -0,0 +1,997 @@
|
||||
;; $Id$
|
||||
;;
|
||||
;; This file is part of the Modular DocBook Stylesheet distribution.
|
||||
;; See ../README or http://www.berkshire.net/~norm/dsssl/
|
||||
;;
|
||||
|
||||
;; ......................... BIBLIOGRAPHY PARAMS .........................
|
||||
|
||||
;; these should be in dbparam...
|
||||
(define %biblsep% ", ")
|
||||
(define %biblend% ".")
|
||||
(define bibltable #f)
|
||||
|
||||
(define (bibliography-table)
|
||||
(let* ((bibliography (ancestor-member (current-node)
|
||||
(list (normalize "bibliography"))))
|
||||
(biblpi (dbhtml-value bibliography "bibliography-format")))
|
||||
(and (or bibltable (equal? biblpi "table"))
|
||||
(not (equal? biblpi "list")))))
|
||||
|
||||
(define %biblioentry-in-entry-order% #t)
|
||||
|
||||
;; .................... BIBLIOGRAPHY and BIBLIODIV ......................
|
||||
|
||||
(define (bibliography-content)
|
||||
;; Note that the code below works for both the case where the bibliography
|
||||
;; has BIBLIODIVs and the case where it doesn't, by the slightly subtle
|
||||
;; fact that if it does, then allentries will be (empty-node-list).
|
||||
(let* ((allbibcontent (children (current-node)))
|
||||
(prebibcontent (node-list-filter-by-not-gi
|
||||
allbibcontent
|
||||
(list (normalize "biblioentry")
|
||||
(normalize "bibliomixed"))))
|
||||
(allentries (node-list-filter-by-gi
|
||||
allbibcontent
|
||||
(list (normalize "biblioentry")
|
||||
(normalize "bibliomixed"))))
|
||||
(entries (if biblio-filter-used
|
||||
(biblio-filter allentries)
|
||||
allentries)))
|
||||
(make sequence
|
||||
(process-node-list prebibcontent)
|
||||
(if (bibliography-table)
|
||||
(make element gi: "TABLE"
|
||||
attributes: '(("BORDER" "0"))
|
||||
(process-node-list entries))
|
||||
(process-node-list entries)))))
|
||||
|
||||
(element (book bibliography)
|
||||
(let ((title (element-title-sosofo (current-node)))
|
||||
(body (make sequence
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME" (element-id)))
|
||||
(empty-sosofo))
|
||||
($component-separator$)
|
||||
($component-title$)
|
||||
(bibliography-content))))
|
||||
(html-document title body)))
|
||||
|
||||
(element (article bibliography)
|
||||
(let ((title (element-title-sosofo (current-node)))
|
||||
(body (make sequence
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME" (element-id)))
|
||||
(empty-sosofo))
|
||||
($component-separator$)
|
||||
($component-title$)
|
||||
(bibliography-content))))
|
||||
(html-document title body)))
|
||||
|
||||
(element bibliography
|
||||
;; A bibliography that's inside something else...or root
|
||||
(if (sgml-root-element? (current-node))
|
||||
(let ((title (element-title-sosofo (current-node)))
|
||||
(body (make sequence
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME"
|
||||
(element-id)))
|
||||
(empty-sosofo))
|
||||
($component-separator$)
|
||||
($component-title$)
|
||||
(bibliography-content))))
|
||||
(html-document title body))
|
||||
(let* ((sect (ancestor-member (current-node)
|
||||
(append (section-element-list)
|
||||
(component-element-list))))
|
||||
(hlevel (+ (SECTLEVEL sect) 1))
|
||||
(helem (string-append "H" (number->string (+ hlevel 1)))))
|
||||
(make sequence
|
||||
(make element gi: helem
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME" (element-id)))
|
||||
(element-title-sosofo (current-node))))
|
||||
(bibliography-content)))))
|
||||
|
||||
(element (bibliography title) (empty-sosofo))
|
||||
|
||||
(element bibliodiv
|
||||
(let* ((allentries (node-list-filter-by-gi (children (current-node))
|
||||
(list (normalize "biblioentry")
|
||||
(normalize "bibliomixed"))))
|
||||
(entries (if biblio-filter-used
|
||||
(biblio-filter allentries)
|
||||
allentries)))
|
||||
(if (and biblio-filter-used (node-list-empty? entries))
|
||||
(empty-sosofo)
|
||||
(make sequence
|
||||
($section-separator$)
|
||||
($section-title$)
|
||||
(if (bibliography-table)
|
||||
(make element gi: "TABLE"
|
||||
attributes: '(("BORDER" "0"))
|
||||
(process-node-list entries))
|
||||
(process-node-list entries))))))
|
||||
|
||||
(element (bibliodiv title) (empty-sosofo))
|
||||
|
||||
;; ..................... BIBLIOGRAPHY ENTRIES .........................
|
||||
|
||||
(define (biblioentry-inline-sep node rest)
|
||||
;; Output the character that should separate inline node from rest
|
||||
(cond
|
||||
((and (equal? (gi node) (normalize "title"))
|
||||
(equal? (gi (node-list-first rest)) (normalize "subtitle")))
|
||||
(make element gi: "I"
|
||||
(literal ": ")))
|
||||
(else
|
||||
(literal %biblsep%))))
|
||||
|
||||
(define (biblioentry-inline-end blocks)
|
||||
;; Output the character that should occur at the end of inline
|
||||
(literal %biblend%))
|
||||
|
||||
(define (biblioentry-block-sep node rest)
|
||||
;; Output the character that should separate block node from rest
|
||||
(empty-sosofo))
|
||||
|
||||
(define (biblioentry-block-end)
|
||||
;; Output the character that should occur at the end of block
|
||||
(empty-sosofo))
|
||||
|
||||
(define (nontable-biblioentry
|
||||
xreflabel leading-abbrev inline-children block-children)
|
||||
(let ((has-leading-abbrev?
|
||||
(not (or (node-list-empty? leading-abbrev) biblio-number))))
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME" (element-id)))
|
||||
(empty-sosofo))
|
||||
(make element gi: "P"
|
||||
(if (or biblio-number xreflabel has-leading-abbrev?)
|
||||
(make sequence
|
||||
(literal "[")
|
||||
|
||||
(if biblio-number
|
||||
(literal (number->string (bibentry-number
|
||||
(current-node))))
|
||||
(empty-sosofo))
|
||||
|
||||
(if xreflabel
|
||||
(literal xreflabel)
|
||||
(empty-sosofo))
|
||||
|
||||
(if has-leading-abbrev?
|
||||
(with-mode biblioentry-inline-mode
|
||||
(process-node-list leading-abbrev))
|
||||
(empty-sosofo))
|
||||
|
||||
(literal "]")
|
||||
(make entity-ref name: "nbsp"))
|
||||
(empty-sosofo))
|
||||
|
||||
(let loop ((nl inline-children))
|
||||
(if (node-list-empty? nl)
|
||||
(empty-sosofo)
|
||||
(make sequence
|
||||
(with-mode biblioentry-inline-mode
|
||||
(process-node-list (node-list-first nl)))
|
||||
(if (node-list-empty? (node-list-rest nl))
|
||||
(biblioentry-inline-end block-children)
|
||||
(biblioentry-inline-sep (node-list-first nl)
|
||||
(node-list-rest nl)))
|
||||
(loop (node-list-rest nl))))))
|
||||
|
||||
(make element gi: "DIV"
|
||||
attributes: '(("CLASS" "BIBLIOENTRYBLOCK")
|
||||
("STYLE" "margin-left: 0.5in"))
|
||||
(let loop ((nl block-children))
|
||||
(if (node-list-empty? nl)
|
||||
(empty-sosofo)
|
||||
(make sequence
|
||||
(with-mode biblioentry-block-mode
|
||||
(process-node-list (node-list-first nl)))
|
||||
(if (node-list-empty? (node-list-rest nl))
|
||||
(biblioentry-block-end)
|
||||
(biblioentry-block-sep (node-list-first nl)
|
||||
(node-list-rest nl)))
|
||||
(loop (node-list-rest nl)))))))))
|
||||
|
||||
(define (table-biblioentry
|
||||
xreflabel leading-abbrev inline-children block-children)
|
||||
(let ((has-leading-abbrev?
|
||||
(not (or (node-list-empty? leading-abbrev) biblio-number))))
|
||||
(make element gi: "TR"
|
||||
(make element gi: "TD"
|
||||
attributes: '(("ALIGN" "LEFT")
|
||||
("VALIGN" "TOP")
|
||||
("WIDTH" "10%"))
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME" (element-id)))
|
||||
(empty-sosofo))
|
||||
|
||||
(if (or biblio-number xreflabel has-leading-abbrev?)
|
||||
(make sequence
|
||||
(literal "[")
|
||||
|
||||
(if biblio-number
|
||||
(literal (number->string (bibentry-number
|
||||
(current-node))))
|
||||
(empty-sosofo))
|
||||
|
||||
(if xreflabel
|
||||
(literal xreflabel)
|
||||
(empty-sosofo))
|
||||
|
||||
(if has-leading-abbrev?
|
||||
(with-mode biblioentry-inline-mode
|
||||
(process-node-list leading-abbrev))
|
||||
(empty-sosofo))
|
||||
|
||||
(literal "]"))
|
||||
(make entity-ref name: "nbsp")))
|
||||
|
||||
(make element gi: "TD"
|
||||
attributes: '(("ALIGN" "LEFT")
|
||||
("VALIGN" "TOP")
|
||||
("WIDTH" "90%"))
|
||||
(make element gi: "P"
|
||||
(let loop ((nl inline-children))
|
||||
(if (node-list-empty? nl)
|
||||
(empty-sosofo)
|
||||
(make sequence
|
||||
(with-mode biblioentry-inline-mode
|
||||
(process-node-list (node-list-first nl)))
|
||||
(if (node-list-empty? (node-list-rest nl))
|
||||
(biblioentry-inline-end block-children)
|
||||
(biblioentry-inline-sep (node-list-first nl)
|
||||
(node-list-rest nl)))
|
||||
(loop (node-list-rest nl))))))
|
||||
|
||||
(let loop ((nl block-children))
|
||||
(if (node-list-empty? nl)
|
||||
(empty-sosofo)
|
||||
(make sequence
|
||||
(with-mode biblioentry-block-mode
|
||||
(process-node-list (node-list-first nl)))
|
||||
(if (node-list-empty? (node-list-rest nl))
|
||||
(biblioentry-block-end)
|
||||
(biblioentry-block-sep (node-list-first nl)
|
||||
(node-list-rest nl)))
|
||||
(loop (node-list-rest nl)))))
|
||||
|
||||
(if (node-list-empty? block-children)
|
||||
(empty-sosofo)
|
||||
(make element gi: "P"
|
||||
;; get the table row spacing right
|
||||
(empty-sosofo)))))))
|
||||
|
||||
(element biblioentry
|
||||
(let* ((expanded-children (expand-children
|
||||
(children (current-node))
|
||||
(biblioentry-flatten-elements)))
|
||||
(all-inline-children (if %biblioentry-in-entry-order%
|
||||
(titlepage-gi-list-by-nodelist
|
||||
(biblioentry-inline-elements)
|
||||
expanded-children)
|
||||
(titlepage-gi-list-by-elements
|
||||
(biblioentry-inline-elements)
|
||||
expanded-children)))
|
||||
(block-children (if %biblioentry-in-entry-order%
|
||||
(titlepage-gi-list-by-nodelist
|
||||
(biblioentry-block-elements)
|
||||
expanded-children)
|
||||
(titlepage-gi-list-by-elements
|
||||
(biblioentry-block-elements)
|
||||
expanded-children)))
|
||||
(leading-abbrev (if (equal? (normalize "abbrev")
|
||||
(gi (node-list-first
|
||||
all-inline-children)))
|
||||
(node-list-first all-inline-children)
|
||||
(empty-node-list)))
|
||||
(inline-children (if (node-list-empty? leading-abbrev)
|
||||
all-inline-children
|
||||
(node-list-rest all-inline-children)))
|
||||
(has-leading-abbrev? (not (node-list-empty? leading-abbrev)))
|
||||
(xreflabel (if (or has-leading-abbrev? biblio-number)
|
||||
#f
|
||||
(attribute-string (normalize "xreflabel")))))
|
||||
(if (bibliography-table)
|
||||
(table-biblioentry xreflabel leading-abbrev inline-children block-children)
|
||||
(nontable-biblioentry xreflabel leading-abbrev inline-children block-children))))
|
||||
|
||||
(mode biblioentry-inline-mode
|
||||
(element abbrev
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element affiliation
|
||||
(let ((inline-children (node-list-filter-by-not-gi
|
||||
(children (current-node))
|
||||
(list (normalize "address")))))
|
||||
(let loop ((nl inline-children))
|
||||
(if (node-list-empty? nl)
|
||||
(empty-sosofo)
|
||||
(make sequence
|
||||
(process-node-list (node-list-first nl))
|
||||
(if (node-list-empty? (node-list-rest nl))
|
||||
(empty-sosofo)
|
||||
(literal ", "))
|
||||
(loop (node-list-rest nl)))))))
|
||||
|
||||
(element artpagenums
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element author
|
||||
(make element gi: "SPAN"
|
||||
attributes: '(("CLASS" "AUTHOR"))
|
||||
(literal (author-list-string))))
|
||||
|
||||
(element authorgroup
|
||||
(process-children))
|
||||
|
||||
(element authorinitials
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element collab
|
||||
(let* ((nl (children (current-node)))
|
||||
(collabname (node-list-first nl))
|
||||
(affil (node-list-rest nl)))
|
||||
(make sequence
|
||||
(process-node-list collabname)
|
||||
(if (node-list-empty? affil)
|
||||
(empty-sosofo)
|
||||
(let loop ((nl affil))
|
||||
(if (node-list-empty? nl)
|
||||
(empty-sosofo)
|
||||
(make sequence
|
||||
(literal ", ")
|
||||
(process-node-list (node-list-first nl))
|
||||
(loop (node-list-rest nl)))))))))
|
||||
|
||||
(element (collab collabname)
|
||||
(process-children))
|
||||
|
||||
(element confgroup
|
||||
(let ((inline-children (node-list-filter-by-not-gi
|
||||
(children (current-node))
|
||||
(list (normalize "address")))))
|
||||
(let loop ((nl inline-children))
|
||||
(if (node-list-empty? nl)
|
||||
(empty-sosofo)
|
||||
(make sequence
|
||||
(process-node-list (node-list-first nl))
|
||||
(if (node-list-empty? (node-list-rest nl))
|
||||
(empty-sosofo)
|
||||
(literal ", "))
|
||||
(loop (node-list-rest nl)))))))
|
||||
|
||||
(element contractnum
|
||||
(process-children))
|
||||
|
||||
(element contractsponsor
|
||||
(process-children))
|
||||
|
||||
(element contrib
|
||||
(process-children))
|
||||
|
||||
(element copyright
|
||||
;; Just print the year(s)
|
||||
(let ((years (select-elements (children (current-node))
|
||||
(normalize "year"))))
|
||||
(process-node-list years)))
|
||||
|
||||
(element (copyright year)
|
||||
(make sequence
|
||||
(process-children)
|
||||
(if (not (last-sibling? (current-node)))
|
||||
(literal ", ")
|
||||
(empty-sosofo))))
|
||||
|
||||
(element corpauthor
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element corpname
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element date
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element edition
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element editor
|
||||
(make element gi: "SPAN"
|
||||
attributes: '(("CLASS" "EDITOR"))
|
||||
(if (first-sibling?)
|
||||
(make sequence
|
||||
(literal (gentext-edited-by))
|
||||
(literal " "))
|
||||
(empty-sosofo))
|
||||
(literal (author-list-string))))
|
||||
|
||||
(element firstname
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element honorific
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element invpartnumber
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element isbn
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element issn
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element issuenum
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element lineage
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element orgname
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element othercredit
|
||||
(make element gi: "SPAN"
|
||||
attributes: '(("CLASS" "OTHERCREDIT"))
|
||||
(literal (author-list-string))))
|
||||
|
||||
(element othername
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element pagenums
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element productname
|
||||
(make sequence
|
||||
($charseq$)
|
||||
; this is actually a problem since "trade" is the default value for
|
||||
; the class attribute. we can put this back in in DocBook 5.0, when
|
||||
; class becomes #IMPLIED
|
||||
; (if (equal? (attribute-string "class") (normalize "trade"))
|
||||
; (dingbat-sosofo "trademark")
|
||||
; (empty-sosofo))
|
||||
))
|
||||
|
||||
(element productnumber
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element pubdate
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element publisher
|
||||
(let ((pubname (select-elements (children (current-node))
|
||||
(normalize "publishername")))
|
||||
(cities (select-elements (descendants (current-node))
|
||||
(normalize "city"))))
|
||||
(make sequence
|
||||
(process-node-list pubname)
|
||||
(if (node-list-empty? cities)
|
||||
(empty-sosofo)
|
||||
(literal ", "))
|
||||
(process-node-list cities))))
|
||||
|
||||
(element publishername
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element (publisher address city)
|
||||
(make sequence
|
||||
(process-children)
|
||||
(if (not (last-sibling? (current-node)))
|
||||
(literal ", ")
|
||||
(empty-sosofo))))
|
||||
|
||||
(element pubsnumber
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element releaseinfo
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element seriesvolnums
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element subtitle
|
||||
(make element gi: "I"
|
||||
(process-children)))
|
||||
|
||||
(element surname
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element title
|
||||
(make element gi: "I"
|
||||
(process-children)))
|
||||
|
||||
(element titleabbrev
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element volumenum
|
||||
(make sequence
|
||||
(process-children)))
|
||||
|
||||
(element (bibliomixed title)
|
||||
(make element gi: "I"
|
||||
(process-children)))
|
||||
|
||||
(element (bibliomixed subtitle)
|
||||
(make element gi: "I"
|
||||
(process-children)))
|
||||
|
||||
(element (biblioset title)
|
||||
(let ((rel (case-fold-up
|
||||
(inherited-attribute-string (normalize "relation")))))
|
||||
(cond
|
||||
((equal? rel "ARTICLE") (make sequence
|
||||
(literal (gentext-start-quote))
|
||||
(process-children)
|
||||
(literal (gentext-end-quote))))
|
||||
(else (make element gi: "I"
|
||||
(process-children))))))
|
||||
|
||||
(element (bibliomset title)
|
||||
(let ((rel (case-fold-up
|
||||
(inherited-attribute-string (normalize "relation")))))
|
||||
(cond
|
||||
((equal? rel "ARTICLE") (make sequence
|
||||
(literal (gentext-start-quote))
|
||||
(process-children)
|
||||
(literal (gentext-end-quote))))
|
||||
(else (make element gi: "I"
|
||||
(process-children))))))
|
||||
)
|
||||
|
||||
(mode biblioentry-block-mode
|
||||
(element abstract
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
(process-children)))
|
||||
|
||||
(element (abstract title)
|
||||
(make element gi: "P"
|
||||
(make element gi: "B"
|
||||
(process-children))))
|
||||
|
||||
(element address
|
||||
($linespecific-display$ %indent-address-lines% %number-address-lines%))
|
||||
|
||||
(element authorblurb
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
(process-children)))
|
||||
|
||||
(element printhistory
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
(process-children)))
|
||||
|
||||
|
||||
(element revhistory
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
(make element gi: "TABLE"
|
||||
attributes: (list
|
||||
(list "WIDTH" ($table-width$))
|
||||
(list "BORDER" "0"))
|
||||
(make sequence
|
||||
(make element gi: "TR"
|
||||
(make element gi: "TH"
|
||||
attributes: '(("ALIGN" "LEFT")
|
||||
("VALIGN" "TOP")
|
||||
("COLSPAN" "3"))
|
||||
(make element gi: "B"
|
||||
(literal (gentext-element-name
|
||||
(gi (current-node)))))))
|
||||
(process-children)))))
|
||||
|
||||
(element (revhistory revision)
|
||||
(let ((revnumber (select-elements (descendants (current-node))
|
||||
(normalize "revnumber")))
|
||||
(revdate (select-elements (descendants (current-node))
|
||||
(normalize "date")))
|
||||
(revauthor (select-elements (descendants (current-node))
|
||||
(normalize "authorinitials")))
|
||||
(revremark (node-list-filter-by-gi
|
||||
(descendants (current-node))
|
||||
(list (normalize "revremark")
|
||||
(normalize "revdescription")))))
|
||||
(make sequence
|
||||
(make element gi: "TR"
|
||||
(make element gi: "TD"
|
||||
attributes: (list
|
||||
(list "ALIGN" "LEFT"))
|
||||
(if (not (node-list-empty? revnumber))
|
||||
(make sequence
|
||||
(literal (gentext-element-name-space
|
||||
(gi (current-node))))
|
||||
(process-node-list revnumber))
|
||||
(empty-sosofo)))
|
||||
(make element gi: "TD"
|
||||
attributes: (list
|
||||
(list "ALIGN" "LEFT"))
|
||||
(if (not (node-list-empty? revdate))
|
||||
(process-node-list revdate)
|
||||
(empty-sosofo)))
|
||||
(make element gi: "TD"
|
||||
attributes: (list
|
||||
(list "ALIGN" "LEFT"))
|
||||
(if (not (node-list-empty? revauthor))
|
||||
(make sequence
|
||||
(literal (gentext-revised-by))
|
||||
(process-node-list revauthor))
|
||||
(empty-sosofo))))
|
||||
(make element gi: "TR"
|
||||
(make element gi: "TD"
|
||||
attributes: (list
|
||||
(list "ALIGN" "LEFT")
|
||||
(list "COLSPAN" "3"))
|
||||
(if (not (node-list-empty? revremark))
|
||||
(process-node-list revremark)
|
||||
(empty-sosofo)))))))
|
||||
|
||||
(element (revision revnumber) (process-children-trim))
|
||||
(element (revision date) (process-children-trim))
|
||||
(element (revision authorinitials) (process-children-trim))
|
||||
(element (revision revremark) (process-children-trim))
|
||||
(element (revision revdescription) (process-children))
|
||||
|
||||
(element seriesinfo
|
||||
;; This is a nearly biblioentry recursively...
|
||||
(let* ((expanded-children (expand-children
|
||||
(children (current-node))
|
||||
(biblioentry-flatten-elements)))
|
||||
(all-inline-children (if %biblioentry-in-entry-order%
|
||||
(titlepage-gi-list-by-nodelist
|
||||
(biblioentry-inline-elements)
|
||||
expanded-children)
|
||||
(titlepage-gi-list-by-elements
|
||||
(biblioentry-inline-elements)
|
||||
expanded-children)))
|
||||
(block-children (if %biblioentry-in-entry-order%
|
||||
(titlepage-gi-list-by-nodelist
|
||||
(biblioentry-block-elements)
|
||||
expanded-children)
|
||||
(titlepage-gi-list-by-elements
|
||||
(biblioentry-block-elements)
|
||||
expanded-children)))
|
||||
(inline-children all-inline-children))
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
(make element gi: "P"
|
||||
(let loop ((nl inline-children))
|
||||
(if (node-list-empty? nl)
|
||||
(empty-sosofo)
|
||||
(make sequence
|
||||
(with-mode biblioentry-inline-mode
|
||||
(process-node-list (node-list-first nl)))
|
||||
(if (node-list-empty? (node-list-rest nl))
|
||||
(biblioentry-inline-end block-children)
|
||||
(biblioentry-inline-sep (node-list-first nl)
|
||||
(node-list-rest nl)))
|
||||
(loop (node-list-rest nl))))))
|
||||
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
(let loop ((nl block-children))
|
||||
(if (node-list-empty? nl)
|
||||
(empty-sosofo)
|
||||
(make sequence
|
||||
(with-mode biblioentry-block-mode
|
||||
(process-node-list (node-list-first nl)))
|
||||
(if (node-list-empty? (node-list-rest nl))
|
||||
(biblioentry-block-end)
|
||||
(biblioentry-block-sep (node-list-first nl)
|
||||
(node-list-rest nl)))
|
||||
(loop (node-list-rest nl)))))))))
|
||||
)
|
||||
|
||||
(define (nontable-bibliomixed
|
||||
xreflabel leading-abbrev inline-children)
|
||||
(let* ((has-leading-abbrev? (not (node-list-empty? leading-abbrev))))
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME" (element-id)))
|
||||
(empty-sosofo))
|
||||
(make element gi: "P"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
|
||||
(if (or biblio-number xreflabel has-leading-abbrev?)
|
||||
(make sequence
|
||||
(literal "[")
|
||||
|
||||
(if biblio-number
|
||||
(literal (number->string (bibentry-number
|
||||
(current-node))))
|
||||
(empty-sosofo))
|
||||
|
||||
(if xreflabel
|
||||
(literal xreflabel)
|
||||
(empty-sosofo))
|
||||
|
||||
(if has-leading-abbrev?
|
||||
(with-mode biblioentry-inline-mode
|
||||
(process-node-list leading-abbrev))
|
||||
(empty-sosofo))
|
||||
|
||||
(literal "]")
|
||||
(make entity-ref name: "nbsp"))
|
||||
(empty-sosofo))
|
||||
|
||||
(with-mode biblioentry-inline-mode
|
||||
(process-node-list inline-children))))))
|
||||
|
||||
(define (table-bibliomixed
|
||||
xreflabel leading-abbrev inline-children)
|
||||
(let* ((has-leading-abbrev? (not (node-list-empty? leading-abbrev))))
|
||||
(make element gi: "TR"
|
||||
(make element gi: "TD"
|
||||
attributes: '(("ALIGN" "LEFT")
|
||||
("VALIGN" "TOP")
|
||||
("WIDTH" "10%"))
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME" (element-id)))
|
||||
(empty-sosofo))
|
||||
|
||||
(if (or biblio-number xreflabel has-leading-abbrev?)
|
||||
(make sequence
|
||||
(literal "[")
|
||||
|
||||
(if biblio-number
|
||||
(literal (number->string (bibentry-number
|
||||
(current-node))))
|
||||
(empty-sosofo))
|
||||
|
||||
(if xreflabel
|
||||
(literal xreflabel)
|
||||
(empty-sosofo))
|
||||
|
||||
(if has-leading-abbrev?
|
||||
(with-mode biblioentry-inline-mode
|
||||
(process-node-list leading-abbrev))
|
||||
(empty-sosofo))
|
||||
|
||||
(literal "]"))
|
||||
(make entity-ref name: "nbsp")))
|
||||
|
||||
(make element gi: "TD"
|
||||
attributes: '(("ALIGN" "LEFT")
|
||||
("VALIGN" "TOP")
|
||||
("WIDTH" "90%"))
|
||||
(with-mode biblioentry-inline-mode
|
||||
(process-node-list inline-children))))))
|
||||
|
||||
(element bibliomixed
|
||||
(let* ((all-inline-children (children (current-node)))
|
||||
(leading-abbrev (if (equal? (normalize "abbrev")
|
||||
(gi (node-list-first
|
||||
all-inline-children)))
|
||||
(node-list-first all-inline-children)
|
||||
(empty-node-list)))
|
||||
(inline-children (if (node-list-empty? leading-abbrev)
|
||||
all-inline-children
|
||||
(node-list-rest all-inline-children)))
|
||||
(has-leading-abbrev? (not (node-list-empty? leading-abbrev)))
|
||||
(xreflabel (if (or has-leading-abbrev? biblio-number)
|
||||
#f
|
||||
(attribute-string (normalize "xreflabel")))))
|
||||
(if (bibliography-table)
|
||||
(table-bibliomixed xreflabel leading-abbrev inline-children)
|
||||
(nontable-bibliomixed xreflabel leading-abbrev inline-children))))
|
||||
|
||||
;; ....................... BIBLIOGRAPHY ELEMENTS .......................
|
||||
|
||||
;; These are element construction rules for bibliography elements that
|
||||
;; may occur outside of a BIBLIOENTRY or BIBLIOMIXED.
|
||||
|
||||
(element bibliomisc (process-children))
|
||||
(element bibliomset (process-children))
|
||||
(element biblioset (process-children))
|
||||
(element bookbiblio (process-children))
|
||||
|
||||
(element street ($charseq$))
|
||||
(element pob ($charseq$))
|
||||
(element postcode ($charseq$))
|
||||
(element city ($charseq$))
|
||||
(element state ($charseq$))
|
||||
(element country ($charseq$))
|
||||
(element phone ($charseq$))
|
||||
(element fax ($charseq$))
|
||||
(element otheraddr ($charseq$))
|
||||
(element affiliation ($charseq$))
|
||||
(element shortaffil ($charseq$))
|
||||
(element jobtitle ($charseq$))
|
||||
(element orgdiv ($charseq$))
|
||||
(element artpagenums ($charseq$))
|
||||
|
||||
(element author
|
||||
(make sequence
|
||||
(literal (author-list-string))))
|
||||
|
||||
(element authorgroup (process-children))
|
||||
|
||||
(element collab (process-children))
|
||||
(element collabname ($charseq$))
|
||||
(element authorinitials ($charseq$))
|
||||
(element confgroup (process-children))
|
||||
(element confdates ($charseq$))
|
||||
(element conftitle ($charseq$))
|
||||
(element confnum ($charseq$))
|
||||
(element confsponsor ($charseq$))
|
||||
(element contractnum ($charseq$))
|
||||
(element contractsponsor ($charseq$))
|
||||
|
||||
(element copyright
|
||||
(make sequence
|
||||
(literal (gentext-element-name (gi (current-node))))
|
||||
(make entity-ref name: "nbsp")
|
||||
(dingbat-sosofo "copyright")
|
||||
(make entity-ref name: "nbsp")
|
||||
(process-children)))
|
||||
|
||||
(element year
|
||||
(make sequence
|
||||
(process-children)
|
||||
(if (not (last-sibling? (current-node)))
|
||||
(literal ", ")
|
||||
(literal " "))))
|
||||
|
||||
(element holder ($charseq$))
|
||||
|
||||
(element corpauthor
|
||||
(make sequence
|
||||
(literal (author-list-string))))
|
||||
|
||||
(element corpname ($charseq$))
|
||||
(element date ($charseq$))
|
||||
(element edition ($charseq$))
|
||||
(element editor ($charseq$))
|
||||
(element isbn ($charseq$))
|
||||
(element issn ($charseq$))
|
||||
(element invpartnumber ($charseq$))
|
||||
(element issuenum ($charseq$))
|
||||
|
||||
(element legalnotice ($semiformal-object$))
|
||||
(element (legalnotice title) (empty-sosofo))
|
||||
|
||||
(element modespec (empty-sosofo))
|
||||
|
||||
(element orgname ($charseq$))
|
||||
|
||||
(element othercredit
|
||||
(make sequence
|
||||
(literal (author-list-string))))
|
||||
|
||||
(element pagenums ($charseq$))
|
||||
(element contrib ($charseq$))
|
||||
|
||||
(element firstname ($charseq$))
|
||||
(element honorific ($charseq$))
|
||||
(element lineage ($charseq$))
|
||||
(element othername ($charseq$))
|
||||
(element surname ($charseq$))
|
||||
|
||||
(element printhistory (empty-sosofo))
|
||||
|
||||
(element productname
|
||||
(make sequence
|
||||
($charseq$)
|
||||
; this is actually a problem since "trade" is the default value for
|
||||
; the class attribute. we can put this back in in DocBook 5.0, when
|
||||
; class becomes #IMPLIED
|
||||
; (if (equal? (attribute-string "class") (normalize "trade"))
|
||||
; (dingbat-sosofo "trademark")
|
||||
; (empty-sosofo))
|
||||
))
|
||||
|
||||
(element productnumber ($charseq$))
|
||||
(element pubdate ($charseq$))
|
||||
(element publisher (process-children))
|
||||
(element publishername ($charseq$))
|
||||
(element pubsnumber ($charseq$))
|
||||
(element releaseinfo (empty-sosofo))
|
||||
(element revision ($charseq$))
|
||||
(element revnumber ($charseq$))
|
||||
(element revremark ($charseq$))
|
||||
(element revdescription ($block-container$))
|
||||
(element seriesvolnums ($charseq$))
|
||||
(element volumenum ($charseq$))
|
||||
|
||||
(element (bookbiblio revhistory) ($book-revhistory$))
|
||||
|
||||
;; The (element (bookinfo revhistory)) construction rule is in dbinfo.dsl
|
||||
;; It calls $book-revhistory$...
|
||||
(define ($book-revhistory$)
|
||||
(make element gi: "DIV"
|
||||
attributes: (list
|
||||
(list "CLASS" (gi)))
|
||||
(make element gi: "TABLE"
|
||||
attributes: (list
|
||||
(list "WIDTH" ($table-width$))
|
||||
(list "BORDER" "0"))
|
||||
(make sequence
|
||||
(make element gi: "TR"
|
||||
(make element gi: "TH"
|
||||
attributes: '(("ALIGN" "LEFT")
|
||||
("VALIGN" "TOP")
|
||||
("COLSPAN" "3"))
|
||||
(make element gi: "B"
|
||||
(literal (gentext-element-name
|
||||
(gi (current-node)))))))
|
||||
(process-children)))))
|
||||
|
||||
(element (revhistory revision)
|
||||
(let ((revnumber (select-elements (descendants (current-node))
|
||||
(normalize "revnumber")))
|
||||
(revdate (select-elements (descendants (current-node))
|
||||
(normalize "date")))
|
||||
(revauthor (select-elements (descendants (current-node))
|
||||
(normalize "authorinitials")))
|
||||
(revremark (node-list-filter-by-gi
|
||||
(descendants (current-node))
|
||||
(list (normalize "revremark")
|
||||
(normalize "revdescription")))))
|
||||
(make sequence
|
||||
(make element gi: "TR"
|
||||
(make element gi: "TD"
|
||||
attributes: (list
|
||||
(list "ALIGN" "LEFT"))
|
||||
(if (not (node-list-empty? revnumber))
|
||||
(make sequence
|
||||
(literal (gentext-element-name-space
|
||||
(gi (current-node))))
|
||||
(process-node-list revnumber))
|
||||
(empty-sosofo)))
|
||||
(make element gi: "TD"
|
||||
attributes: (list
|
||||
(list "ALIGN" "LEFT"))
|
||||
(if (not (node-list-empty? revdate))
|
||||
(process-node-list revdate)
|
||||
(empty-sosofo)))
|
||||
(make element gi: "TD"
|
||||
attributes: (list
|
||||
(list "ALIGN" "LEFT"))
|
||||
(if (not (node-list-empty? revauthor))
|
||||
(make sequence
|
||||
(literal (gentext-revised-by))
|
||||
(process-node-list revauthor))
|
||||
(empty-sosofo))))
|
||||
(make element gi: "TR"
|
||||
(make element gi: "TD"
|
||||
attributes: (list
|
||||
(list "ALIGN" "LEFT")
|
||||
(list "COLSPAN" "3"))
|
||||
(if (not (node-list-empty? revremark))
|
||||
(process-node-list revremark)
|
||||
(empty-sosofo)))))))
|
||||
|
||||
(element (revision revnumber) (process-children-trim))
|
||||
(element (revision date) (process-children-trim))
|
||||
(element (revision authorinitials) (process-children-trim))
|
||||
(element (revision revremark) (process-children-trim))
|
||||
281
docs/dsssl/docbook/html/dbblock.dsl
Executable file
281
docs/dsssl/docbook/html/dbblock.dsl
Executable file
@@ -0,0 +1,281 @@
|
||||
;; $Id$
|
||||
;;
|
||||
;; This file is part of the Modular DocBook Stylesheet distribution.
|
||||
;; See ../README or http://www.berkshire.net/~norm/dsssl/
|
||||
;;
|
||||
|
||||
(element highlights ($block-container$))
|
||||
|
||||
(element revhistory ($book-revhistory$))
|
||||
|
||||
(element blockquote
|
||||
(let ((id (element-id))
|
||||
(attrib (select-elements (children (current-node))
|
||||
(normalize "attribution")))
|
||||
(paras (node-list-filter-by-not-gi
|
||||
(children (current-node))
|
||||
(list (normalize "attribution")))))
|
||||
(make sequence
|
||||
(if id
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME" id))
|
||||
(empty-sosofo))
|
||||
(empty-sosofo))
|
||||
|
||||
(if (node-list-empty? attrib)
|
||||
(make element gi: "BLOCKQUOTE"
|
||||
attributes: '(("CLASS" "BLOCKQUOTE"))
|
||||
(process-children))
|
||||
(make element gi: "TABLE"
|
||||
attributes: '(("BORDER" "0")
|
||||
("WIDTH" "100%")
|
||||
("CELLSPACING" "0")
|
||||
("CELLPADDING" "0")
|
||||
("CLASS" "BLOCKQUOTE"))
|
||||
(make element gi: "TR"
|
||||
(make element gi: "TD"
|
||||
attributes: '(("WIDTH" "10%")
|
||||
("VALIGN" "TOP"))
|
||||
(make entity-ref name: "nbsp"))
|
||||
(make element gi: "TD"
|
||||
attributes: '(("WIDTH" "80%")
|
||||
("VALIGN" "TOP"))
|
||||
(process-node-list paras))
|
||||
(make element gi: "TD"
|
||||
attributes: '(("WIDTH" "10%")
|
||||
("VALIGN" "TOP"))
|
||||
(make entity-ref name: "nbsp")))
|
||||
(make element gi: "TR"
|
||||
(make element gi: "TD"
|
||||
attributes: '(("COLSPAN" "2")
|
||||
("ALIGN" "RIGHT")
|
||||
("VALIGN" "TOP"))
|
||||
(make sequence
|
||||
(literal "--")
|
||||
(process-node-list attrib)))
|
||||
(make element gi: "TD"
|
||||
attributes: '(("WIDTH" "10%"))
|
||||
(make entity-ref name: "nbsp"))))))))
|
||||
|
||||
(element epigraph
|
||||
(let* ((attrib (select-elements (children (current-node))
|
||||
(normalize "attribution")))
|
||||
(paras (node-list-filter-by-not-gi
|
||||
(children (current-node))
|
||||
(list (normalize "attribution")))))
|
||||
(make element gi: "TABLE"
|
||||
attributes: '(("BORDER" "0")
|
||||
("WIDTH" "100%")
|
||||
("CELLSPACING" "0")
|
||||
("CELLPADDING" "0")
|
||||
("CLASS" "EPIGRAPH"))
|
||||
(make element gi: "TR"
|
||||
(make element gi: "TD"
|
||||
attributes: '(("WIDTH" "45%"))
|
||||
(make entity-ref name: "nbsp"))
|
||||
(make element gi: "TD"
|
||||
attributes: '(("WIDTH" "45%")
|
||||
("ALIGN" "LEFT")
|
||||
("VALIGN" "TOP"))
|
||||
(make element gi: "I"
|
||||
(process-node-list paras))))
|
||||
(if (node-list-empty? attrib)
|
||||
(empty-sosofo)
|
||||
(make element gi: "TR"
|
||||
(make element gi: "TD"
|
||||
attributes: '(("WIDTH" "45%"))
|
||||
(make entity-ref name: "nbsp"))
|
||||
(make element gi: "TD"
|
||||
attributes: '(("WIDTH" "45%")
|
||||
("ALIGN" "RIGHT")
|
||||
("VALIGN" "TOP"))
|
||||
(make element gi: "I"
|
||||
(process-node-list attrib))))))))
|
||||
|
||||
(element attribution ($charseq$))
|
||||
|
||||
(element (epigraph para)
|
||||
(make element gi: "P"
|
||||
(make element gi: "I"
|
||||
(process-children-trim))))
|
||||
|
||||
(element para ($paragraph$))
|
||||
(element simpara ($paragraph$))
|
||||
|
||||
(element formalpara
|
||||
(make element gi: "DIV"
|
||||
attributes: (list
|
||||
(list "CLASS" (gi)))
|
||||
(make element gi: "P"
|
||||
(if (attribute-string (normalize "id"))
|
||||
(make element gi: "A"
|
||||
attributes: (list
|
||||
(list "NAME"
|
||||
(attribute-string
|
||||
(normalize "id"))))
|
||||
(empty-sosofo))
|
||||
(empty-sosofo))
|
||||
(process-children))))
|
||||
|
||||
(element (formalpara title) ($runinhead$))
|
||||
|
||||
(element (formalpara para)
|
||||
(process-children))
|
||||
|
||||
(element sidebar
|
||||
(make element gi: "TABLE"
|
||||
attributes: (list
|
||||
(list "CLASS" (gi))
|
||||
(list "BORDER" "1")
|
||||
(list "CELLPADDING" "5"))
|
||||
(make element gi: "TR"
|
||||
(make element gi: "TD"
|
||||
($semiformal-object$)))))
|
||||
|
||||
(element (sidebar title)
|
||||
(empty-sosofo))
|
||||
|
||||
(element abstract
|
||||
(make element gi: "BLOCKQUOTE"
|
||||
attributes: '(("CLASS" "ABSTRACT"))
|
||||
($semiformal-object$)))
|
||||
|
||||
(element (abstract title) (empty-sosofo))
|
||||
|
||||
(element authorblurb ($block-container$))
|
||||
|
||||
(element ackno ($paragraph$))
|
||||
|
||||
(define ($inline-object$)
|
||||
(process-children))
|
||||
|
||||
(define ($informal-object$ #!optional (rule-before? #f) (rule-after? #f))
|
||||
(let ((id (element-id)))
|
||||
(make element gi: "DIV"
|
||||
attributes: (list
|
||||
(list "CLASS" (gi)))
|
||||
(if id
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME" id))
|
||||
(empty-sosofo))
|
||||
(empty-sosofo))
|
||||
|
||||
(if %spacing-paras%
|
||||
(make element gi: "P" (empty-sosofo))
|
||||
(empty-sosofo))
|
||||
|
||||
(if rule-before?
|
||||
(make empty-element gi: "HR")
|
||||
(empty-sosofo))
|
||||
|
||||
(process-children)
|
||||
|
||||
(if rule-after?
|
||||
(make empty-element gi: "HR")
|
||||
(empty-sosofo))
|
||||
|
||||
(if %spacing-paras%
|
||||
(make element gi: "P" (empty-sosofo))
|
||||
(empty-sosofo)))))
|
||||
|
||||
(define (object-title-after #!optional (node (current-node)))
|
||||
(if (member (gi node) ($object-titles-after$))
|
||||
#t
|
||||
#f))
|
||||
|
||||
(define (named-formal-objects)
|
||||
(list (normalize "figure")
|
||||
(normalize "table")
|
||||
(normalize "example")
|
||||
(normalize "equation")))
|
||||
|
||||
(define ($formal-object$ #!optional (rule-before? #f) (rule-after? #f))
|
||||
(let* ((nsep (gentext-label-title-sep (gi)))
|
||||
(id (element-id))
|
||||
(title-inline-sosofo
|
||||
(make sequence
|
||||
(if (member (gi) (named-formal-objects))
|
||||
(make sequence
|
||||
(literal (gentext-element-name (gi)))
|
||||
(if (string=? (element-label) "")
|
||||
(literal nsep)
|
||||
(literal " " (element-label) nsep)))
|
||||
(empty-sosofo))
|
||||
(with-mode title-mode
|
||||
(process-node-list
|
||||
(select-elements (children (current-node))
|
||||
(normalize "title"))))))
|
||||
(title-sosofo (make element gi: "P"
|
||||
(make element gi: "B"
|
||||
title-inline-sosofo)))
|
||||
(object-sosofo (process-children)))
|
||||
(make element gi: "DIV"
|
||||
attributes: (list
|
||||
(list "CLASS" (gi)))
|
||||
|
||||
(if rule-before?
|
||||
(make empty-element gi: "HR")
|
||||
(empty-sosofo))
|
||||
|
||||
(if id
|
||||
(make element gi: "A"
|
||||
attributes: (list
|
||||
(list "NAME" id))
|
||||
(empty-sosofo))
|
||||
(empty-sosofo))
|
||||
|
||||
(if (object-title-after)
|
||||
(make sequence
|
||||
object-sosofo
|
||||
title-sosofo)
|
||||
(make sequence
|
||||
title-sosofo
|
||||
object-sosofo))
|
||||
|
||||
(if rule-after?
|
||||
(make empty-element gi: "HR")
|
||||
(empty-sosofo)))))
|
||||
|
||||
(define ($semiformal-object$)
|
||||
;; semiformal means optional title...
|
||||
(if (node-list-empty? (select-elements (children (current-node))
|
||||
(normalize "title")))
|
||||
($informal-object$)
|
||||
($formal-object$)))
|
||||
|
||||
(element example
|
||||
($formal-object$ %example-rules% %example-rules%))
|
||||
|
||||
(element (example title) (empty-sosofo)) ; don't show caption below example
|
||||
|
||||
(element informalexample
|
||||
($informal-object$ %informalexample-rules% %informalexample-rules%))
|
||||
|
||||
(element (figure title) (empty-sosofo)) ; don't show caption below figure
|
||||
|
||||
(element figure
|
||||
($formal-object$ %figure-rules% %figure-rules%))
|
||||
|
||||
(element informaltable
|
||||
($informal-object$ %informaltable-rules% %informaltable-rules%))
|
||||
|
||||
(element table
|
||||
($formal-object$ %table-rules% %table-rules%))
|
||||
|
||||
(element (table title) (empty-sosofo))
|
||||
|
||||
(element comment
|
||||
(if %show-comments%
|
||||
(make element gi: "P"
|
||||
attributes: '(("CLASS" "COMMENT"))
|
||||
(process-children))
|
||||
(empty-sosofo)))
|
||||
|
||||
;; In DocBook V4.0 comment became remark
|
||||
(element remark
|
||||
(if %show-comments%
|
||||
(make element gi: "P"
|
||||
attributes: '(("CLASS" "COMMENT"))
|
||||
(process-children))
|
||||
(empty-sosofo)))
|
||||
|
||||
206
docs/dsssl/docbook/html/dbcallou.dsl
Executable file
206
docs/dsssl/docbook/html/dbcallou.dsl
Executable file
@@ -0,0 +1,206 @@
|
||||
;; $Id$
|
||||
;;
|
||||
;; This file is part of the Modular DocBook Stylesheet distribution.
|
||||
;; See ../README or http://www.berkshire.net/~norm/dsssl/
|
||||
;;
|
||||
|
||||
;; The support provided below is a little primitive because there's no way
|
||||
;; to do line-addressing in Jade.
|
||||
;;
|
||||
;; CO's are supported with the CO element or, in SCREENCO and
|
||||
;; PROGRAMLISTINGCO only, AREAs.
|
||||
;;
|
||||
;; Notes on the use of AREAs:
|
||||
;;
|
||||
;; - Processing is very slow. Jade loops through each AREA for
|
||||
;; every column on every line.
|
||||
;; - Only the LINECOLUMN units are supported, and they are #IMPLIED
|
||||
;; - If a COORDS only specifies a line, the %callout-default-col% will
|
||||
;; be used for the column.
|
||||
;; - If the column is beyond the end of the line, that will work OK, but
|
||||
;; if more than one callout has to get placed beyond the end of the same
|
||||
;; line, that doesn't work so well.
|
||||
;; - Embedded tabs foul up the column counting.
|
||||
;; - Embedded markup fouls up the column counting.
|
||||
;; - Embedded markup with embedded line breaks fouls up the line counting.
|
||||
;; - The callout bugs occur immediately before the LINE COLUMN specified.
|
||||
;; - You can't point to an AREASET, that doesn't make any sense in HTML
|
||||
;; since it would imply a one-to-many link
|
||||
;;
|
||||
;; There's still no support for a stylesheet drawing the callouts on a
|
||||
;; GRAPHIC, and I don't think there ever will be.
|
||||
;;
|
||||
|
||||
(element areaspec (empty-sosofo))
|
||||
(element area (empty-sosofo))
|
||||
(element areaset (empty-sosofo))
|
||||
|
||||
(element co
|
||||
($callout-mark$ (current-node) #t))
|
||||
|
||||
(element programlistingco (process-children))
|
||||
(element screenco (process-children))
|
||||
(element graphicco (process-children))
|
||||
|
||||
(element (screenco screen)
|
||||
($callout-verbatim-display$ %indent-screen-lines% %number-screen-lines%))
|
||||
|
||||
(element (programlistingco programlisting)
|
||||
($callout-verbatim-display$ %indent-programlisting-lines%
|
||||
%number-programlisting-lines%))
|
||||
|
||||
;; ----------------------------------------------------------------------
|
||||
|
||||
(define ($callout-bug$ conumber)
|
||||
(let ((number (if conumber (format-number conumber "1") "0")))
|
||||
(if conumber
|
||||
(if %callout-graphics%
|
||||
(if (<= conumber %callout-graphics-number-limit%)
|
||||
(make empty-element gi: "IMG"
|
||||
attributes: (list (list "SRC"
|
||||
(root-rel-path
|
||||
(string-append
|
||||
%callout-graphics-path%
|
||||
number
|
||||
%callout-graphics-extension%)))
|
||||
(list "HSPACE" "0")
|
||||
(list "VSPACE" "0")
|
||||
(list "BORDER" "0")
|
||||
(list "ALT"
|
||||
(string-append
|
||||
"(" number ")"))))
|
||||
(make element gi: "B"
|
||||
(literal "(" (format-number conumber "1") ")")))
|
||||
(make element gi: "B"
|
||||
(literal "(" (format-number conumber "1") ")")))
|
||||
(make element gi: "B"
|
||||
(literal "(??)")))))
|
||||
|
||||
(define ($callout-mark$ co anchor?)
|
||||
;; Print the callout mark for co
|
||||
(let* ((id (attribute-string (normalize "id") co))
|
||||
(attr (if anchor?
|
||||
(list (list "NAME" id))
|
||||
(list (list "HREF" (href-to co))))))
|
||||
(make element gi: "A"
|
||||
attributes: attr
|
||||
(if (equal? (gi co) (normalize "co"))
|
||||
($callout-bug$ (if (node-list-empty? co)
|
||||
#f
|
||||
(child-number co)))
|
||||
(let ((areanum (if (node-list-empty? co)
|
||||
0
|
||||
(if (equal? (gi (parent co)) (normalize "areaset"))
|
||||
(absolute-child-number (parent co))
|
||||
(absolute-child-number co)))))
|
||||
($callout-bug$ (if (node-list-empty? co)
|
||||
#f
|
||||
areanum)))))))
|
||||
|
||||
(define ($look-for-callout$ line col #!optional (eol? #f))
|
||||
;; Look to see if a callout should be printed at line col, and print
|
||||
;; it if it should
|
||||
(let* ((areaspec (select-elements (children (parent (current-node)))
|
||||
(normalize "areaspec")))
|
||||
(areas (expand-children (children areaspec)
|
||||
(list (normalize "areaset")))))
|
||||
(let loop ((areanl areas))
|
||||
(if (node-list-empty? areanl)
|
||||
(empty-sosofo)
|
||||
(make sequence
|
||||
(if ($callout-area-match$ (node-list-first areanl) line col eol?)
|
||||
($callout-area-format$ (node-list-first areanl) line col eol?)
|
||||
(empty-sosofo))
|
||||
(loop (node-list-rest areanl)))))))
|
||||
|
||||
(define ($callout-area-match$ area line col eol?)
|
||||
;; Does AREA area match line col?
|
||||
(let* ((coordlist (split (attribute-string (normalize "coords") area)))
|
||||
(aline (string->number (car coordlist)))
|
||||
(acol (if (null? (cdr coordlist))
|
||||
#f
|
||||
(string->number (car (cdr coordlist)))))
|
||||
(units (if (inherited-attribute-string (normalize "units") area)
|
||||
(inherited-attribute-string (normalize "units") area)
|
||||
(normalize "linecolumn"))))
|
||||
(and (equal? units (normalize "linecolumn"))
|
||||
(or
|
||||
(and (equal? line aline)
|
||||
(equal? col acol))
|
||||
(and (equal? line aline)
|
||||
eol?
|
||||
(or (not acol) (> acol col)))))))
|
||||
|
||||
(define ($callout-area-format$ area line col eol?)
|
||||
;; Format AREA area at the appropriate place
|
||||
(let* ((coordlist (split (attribute-string (normalize "coords") area)))
|
||||
(aline (string->number (car coordlist)))
|
||||
(acol (if (null? (cdr coordlist))
|
||||
#f
|
||||
(string->number (car (cdr coordlist))))))
|
||||
(if (and (equal? line aline)
|
||||
eol?
|
||||
(or (not acol) (> acol col)))
|
||||
(make sequence
|
||||
(let loop ((atcol col))
|
||||
(if (>= atcol (if acol acol %callout-default-col%))
|
||||
(empty-sosofo)
|
||||
(make sequence
|
||||
(literal " ")
|
||||
(loop (+ atcol 1)))))
|
||||
($callout-mark$ area #t))
|
||||
($callout-mark$ area #t))))
|
||||
|
||||
(define ($callout-verbatim-display$ indent line-numbers?)
|
||||
(let* ((content (make element gi: "PRE"
|
||||
attributes: (list
|
||||
(list "CLASS" (gi)))
|
||||
($callout-verbatim-content$ indent line-numbers?))))
|
||||
(if %shade-verbatim%
|
||||
(make element gi: "TABLE"
|
||||
attributes: ($shade-verbatim-attr$)
|
||||
(make element gi: "TR"
|
||||
(make element gi: "TD"
|
||||
content)))
|
||||
content)))
|
||||
|
||||
(define ($callout-verbatim-content$ indent line-numbers?)
|
||||
;; Print linespecific content in a callout with line numbers
|
||||
(make sequence
|
||||
($line-start$ indent line-numbers? 1)
|
||||
(let loop ((kl (children (current-node)))
|
||||
(linecount 1)
|
||||
(colcount 1)
|
||||
(res (empty-sosofo)))
|
||||
(if (node-list-empty? kl)
|
||||
(sosofo-append res
|
||||
($look-for-callout$ linecount colcount #t)
|
||||
(empty-sosofo))
|
||||
(loop
|
||||
(node-list-rest kl)
|
||||
(if (char=? (node-property 'char (node-list-first kl)
|
||||
default: #\U-0000) #\U-000D)
|
||||
(+ linecount 1)
|
||||
linecount)
|
||||
(if (char=? (node-property 'char (node-list-first kl)
|
||||
default: #\U-0000) #\U-000D)
|
||||
1
|
||||
(if (char=? (node-property 'char (node-list-first kl)
|
||||
default: #\U-0000) #\U-0000)
|
||||
colcount
|
||||
(+ colcount 1)))
|
||||
(let ((c (node-list-first kl)))
|
||||
(if (char=? (node-property 'char c default: #\U-0000)
|
||||
#\U-000D)
|
||||
(sosofo-append res
|
||||
($look-for-callout$ linecount colcount #t)
|
||||
(process-node-list c)
|
||||
($line-start$ indent
|
||||
line-numbers?
|
||||
(+ linecount 1)))
|
||||
(sosofo-append res
|
||||
($look-for-callout$ linecount colcount)
|
||||
(process-node-list c)))))))))
|
||||
|
||||
;; EOF dbcallout.dsl
|
||||
|
||||
492
docs/dsssl/docbook/html/dbchunk.dsl
Executable file
492
docs/dsssl/docbook/html/dbchunk.dsl
Executable file
@@ -0,0 +1,492 @@
|
||||
;; $Id$
|
||||
;;
|
||||
;; This file is part of the Modular DocBook Stylesheet distribution.
|
||||
;; See ../README or http://nwalsh.com/docbook/dsssl/
|
||||
;;
|
||||
|
||||
(define (chunk-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 "sect1")
|
||||
(normalize "section")
|
||||
(normalize "book") ;; just in case nothing else matches...
|
||||
(normalize "set") ;; sets are definitely chunks...
|
||||
))
|
||||
|
||||
(define (chunk-skip-first-element-list)
|
||||
(list (normalize "sect1")
|
||||
(normalize "section")))
|
||||
|
||||
(define (chunk-section-depth)
|
||||
1)
|
||||
|
||||
(define (section-element-depth #!optional (section (current-node)))
|
||||
(if (node-list-empty? section)
|
||||
0
|
||||
(if (equal? (gi section) (normalize "section"))
|
||||
(length (hierarchical-number-recursive
|
||||
(normalize "section")
|
||||
section))
|
||||
(section-element-depth (parent section)))))
|
||||
|
||||
(define (is-first-element nd)
|
||||
(equal? (child-number nd) 1))
|
||||
|
||||
(define (combined-chunk? #!optional (nd (current-node)))
|
||||
(or
|
||||
;; if it's a section and the parent element is also a section
|
||||
;; and its depth is less than or equal to chunk-section-depth
|
||||
(and (equal? (gi nd) (normalize "section"))
|
||||
(not (node-list-empty? (parent nd)))
|
||||
(equal? (gi (parent nd)) (normalize "section"))
|
||||
(>= (section-element-depth nd) (chunk-section-depth)))
|
||||
;; if it's the first skipped chunk in a chunk
|
||||
(and (not (node-list-empty? nd))
|
||||
(member (gi nd) (chunk-element-list))
|
||||
(is-first-element nd)
|
||||
(member (gi nd) (chunk-skip-first-element-list)))
|
||||
;; or if it's a chunk in a partintro
|
||||
(and (member (gi nd) (chunk-element-list))
|
||||
(has-ancestor-member? nd (list (normalize "partintro"))))))
|
||||
|
||||
(define (chunk? #!optional (nd (current-node)))
|
||||
;; 1. The (sgml-root-element) is always a chunk.
|
||||
;; 2. If nochunks is #t or the dbhtml PI on the root element
|
||||
;; specifies chunk='no', then the root element is the only
|
||||
;; chunk.
|
||||
;; 3. Otherwise, elements in the chunk-element-list are chunks
|
||||
;; unless they're combined with their parent.
|
||||
;; 4. Except for bibliographys, which are only chunks if they
|
||||
;; occur in book or article.
|
||||
;; 5. And except for sections, which are only chunks if they
|
||||
;; are not too deep
|
||||
;;
|
||||
(let* ((notchunk (or (and (equal? (gi nd) (normalize "bibliography"))
|
||||
(not (or (equal? (gi (parent nd)) (normalize "book"))
|
||||
(equal? (gi (parent nd)) (normalize "article")))))
|
||||
(and (equal? (gi nd) (normalize "section"))
|
||||
(equal? (gi (parent nd)) (normalize "section"))
|
||||
(>= (section-element-depth nd)
|
||||
(chunk-section-depth)))))
|
||||
(maybechunk (not notchunk)))
|
||||
(if (node-list=? nd (sgml-root-element))
|
||||
#t
|
||||
(if (or nochunks
|
||||
(equal? (dbhtml-value (sgml-root-element) "chunk") "no"))
|
||||
#f
|
||||
(if (member (gi nd) (chunk-element-list))
|
||||
(if (combined-chunk? nd)
|
||||
#f
|
||||
maybechunk)
|
||||
#f)))))
|
||||
|
||||
(define (html-prefix nd)
|
||||
(let ((dbhtml-prefix (inherited-dbhtml-value nd "prefix")))
|
||||
(if dbhtml-prefix
|
||||
dbhtml-prefix
|
||||
%html-prefix%)))
|
||||
|
||||
(define (id-based-filename nd)
|
||||
(if (and %use-id-as-filename%
|
||||
(attribute-string (normalize "id") nd))
|
||||
(case-fold-down (attribute-string (normalize "id") nd))
|
||||
#f))
|
||||
|
||||
(define (book-html-base nd)
|
||||
(let ((number (number->string (all-element-number nd)))
|
||||
;(number (pad-string (number->string 3) 2 "0"))
|
||||
(prefix (html-prefix nd))
|
||||
(pibase (or
|
||||
(inherited-dbhtml-value nd "basename")
|
||||
(inherited-pi-value nd "html-basename")))
|
||||
(idbase (id-based-filename nd)))
|
||||
(if idbase
|
||||
(string-append (if prefix prefix "") idbase)
|
||||
(string-append (if prefix prefix "")
|
||||
(if pibase pibase "book") number))))
|
||||
|
||||
(define (division-html-base nd)
|
||||
(let* ((number (number->string (all-element-number nd)))
|
||||
(prefix (html-prefix nd))
|
||||
(pibase (or
|
||||
(inherited-dbhtml-value nd "basename")
|
||||
(inherited-pi-value nd "html-basename")))
|
||||
(idbase (id-based-filename nd))
|
||||
(base (cond (pibase pibase)
|
||||
(idbase idbase)
|
||||
((equal? (gi nd) (normalize "set")) "s")
|
||||
((equal? (gi nd) (normalize "preface")) "f")
|
||||
((equal? (gi nd) (normalize "chapter")) "c")
|
||||
((equal? (gi nd) (normalize "article")) "t")
|
||||
((equal? (gi nd) (normalize "appendix")) "a")
|
||||
((equal? (gi nd) (normalize "part")) "p")
|
||||
((equal? (gi nd) (normalize "reference")) "r")
|
||||
((equal? (gi nd) (normalize "glossary")) "g")
|
||||
((equal? (gi nd) (normalize "bibliography")) "b")
|
||||
((equal? (gi nd) (normalize "index")) "i")
|
||||
((equal? (gi nd) (normalize "setindex")) "n")
|
||||
((equal? (gi nd) (normalize "refentry")) "r")
|
||||
;; "x" is section
|
||||
(else "z"))))
|
||||
(if idbase
|
||||
(string-append (if prefix prefix "") idbase)
|
||||
(if pibase
|
||||
(string-append (if prefix prefix "") pibase number)
|
||||
(string-append (if prefix prefix "") base number)))))
|
||||
|
||||
(define (component-html-base nd)
|
||||
(division-html-base nd))
|
||||
|
||||
(define (section-html-base nd)
|
||||
;; Now that I'm using all-element-number, there's no point in basing
|
||||
;; it off the component-html-base at all...
|
||||
(let* ((number (number->string (all-element-number nd)))
|
||||
(prefix (html-prefix nd))
|
||||
(pibase (or
|
||||
(inherited-dbhtml-value nd "basename")
|
||||
(inherited-pi-value nd "html-basename")))
|
||||
(idbase (id-based-filename nd))
|
||||
(base (if pibase
|
||||
(string-append (if prefix prefix "") pibase)
|
||||
(string-append (if prefix prefix "") "x"))))
|
||||
(if idbase
|
||||
(string-append (if prefix prefix "") idbase)
|
||||
(if (chunk? nd)
|
||||
(string-append base number)
|
||||
base))))
|
||||
|
||||
(define (element-html-base nd)
|
||||
(let* ((number (number->string (all-element-number nd)))
|
||||
(prefix (html-prefix nd))
|
||||
(pibase (or
|
||||
(inherited-dbhtml-value nd "basename")
|
||||
(inherited-pi-value nd "html-basename")))
|
||||
(idbase (id-based-filename nd))
|
||||
(base (if pibase
|
||||
(string-append (if prefix prefix "") pibase)
|
||||
(string-append (if prefix prefix "")
|
||||
(case-fold-down (gi nd))))))
|
||||
(if idbase
|
||||
(string-append (if prefix prefix "") idbase)
|
||||
(string-append base number))))
|
||||
|
||||
;; Returns the filename of the html file that contains elemnode, without
|
||||
;; any leading path information
|
||||
(define (html-base-filename #!optional (input_nd (current-node)))
|
||||
(let* ((nd (chunk-parent input_nd))
|
||||
(base (cond ((member (gi nd) (book-element-list))
|
||||
(book-html-base nd))
|
||||
((member (gi nd) (division-element-list))
|
||||
(division-html-base nd))
|
||||
((member (gi nd) (component-element-list))
|
||||
(component-html-base nd))
|
||||
((member (gi nd) (section-element-list))
|
||||
(section-html-base nd))
|
||||
(else (element-html-base input_nd))))
|
||||
;; If this chunk-level element isn't a chunk, get the pifile from
|
||||
;; the parent element.
|
||||
(pifile (if (chunk? nd)
|
||||
(or
|
||||
(dbhtml-value nd "filename")
|
||||
(pi-value nd "html-filename"))
|
||||
(or
|
||||
(dbhtml-value (parent nd) "filename")
|
||||
(pi-value (parent nd) "html-filename"))))
|
||||
(language (if %html-use-lang-in-filename%
|
||||
(if (inherited-attribute-string (normalize "lang") nd)
|
||||
(inherited-attribute-string (normalize "lang") nd)
|
||||
%default-language%)
|
||||
""))
|
||||
(ext (if %html-use-lang-in-filename%
|
||||
(string-append "." language %html-ext%)
|
||||
%html-ext%)))
|
||||
(if (and %root-filename% (node-list=? (sgml-root-element) nd))
|
||||
(string-append %root-filename% ext)
|
||||
(if pifile
|
||||
pifile
|
||||
(string-append base ext)))))
|
||||
|
||||
(define (root-rel-path filename #!optional (node (current-node)))
|
||||
;; Return the filename relative to the root path
|
||||
(string-append (copy-string "../" (directory-depth (html-file node)))
|
||||
filename))
|
||||
|
||||
;; Returns the filename of the html file that contains elemnode
|
||||
;;
|
||||
(define (html-file #!optional (input_nd (current-node)))
|
||||
(let* ((cp-nd (chunk-parent input_nd))
|
||||
;; If the sgml-root-element is at a level below the chunking
|
||||
;; level, then cp-nd will return an empty-node-list. In this
|
||||
;; case, we want to return the root-element.
|
||||
(nd (if (node-list-empty? cp-nd)
|
||||
(sgml-root-element)
|
||||
cp-nd))
|
||||
(base-filename (html-base-filename nd))
|
||||
(pidir (or
|
||||
(inherited-dbhtml-value nd "dir")
|
||||
(inherited-pi-value nd "html-dir"))))
|
||||
(if (and %root-filename% (node-list=? (sgml-root-element) nd))
|
||||
base-filename
|
||||
(if pidir
|
||||
(string-append pidir "/" base-filename)
|
||||
base-filename))))
|
||||
|
||||
(define (href-to target)
|
||||
;; Return the HTML HREF for the given node. If nochunks is true, just
|
||||
;; return the fragment identifier.
|
||||
(let* ((id (element-id target))
|
||||
(curdepth (directory-depth (html-file (current-node))))
|
||||
(entfile (html-file target))
|
||||
(fragid (if (chunk? target)
|
||||
""
|
||||
(string-append "#" id))))
|
||||
(if nochunks
|
||||
fragid
|
||||
(string-append (copy-string "../" curdepth) entfile fragid))))
|
||||
|
||||
(define (html-entity-file htmlfilename)
|
||||
;; Returns the filename that should be used for _writing_ htmlfilename.
|
||||
;; This may differ from the filename used in referencing it. (The point
|
||||
;; is that you can force the stylesheets to write the chunked files
|
||||
;; somewhere else, if you want.)
|
||||
(let* ((pi-outputdir (dbhtml-value (sgml-root-element) "output-dir"))
|
||||
(outputdir (if pi-outputdir
|
||||
pi-outputdir
|
||||
%output-dir%)))
|
||||
(if (and use-output-dir outputdir)
|
||||
(string-append outputdir "/" htmlfilename)
|
||||
htmlfilename)))
|
||||
|
||||
;; Split node list nl at nd; return '(nodes-prev-to-nd nodes-following-nd)
|
||||
;; Note that nd does not appear in either return list.
|
||||
(define (split-node-list nd nodelist)
|
||||
(let loop ((prev (empty-node-list))
|
||||
(nl nodelist))
|
||||
(if (node-list-empty? nl)
|
||||
(list prev (empty-node-list))
|
||||
(if (node-list=? (node-list-first nl) nd)
|
||||
(list prev (node-list-rest nl))
|
||||
(loop (node-list prev (node-list-first nl))
|
||||
(node-list-rest nl))))))
|
||||
|
||||
(define (navigate-to? nd)
|
||||
#t)
|
||||
|
||||
(define (chunk-parent #!optional (nd (current-node)))
|
||||
(let ((cp (let loop ((p (chunk-level-parent nd)))
|
||||
(if (or (node-list-empty? p) (chunk? p))
|
||||
p
|
||||
(chunk-parent (parent p))))))
|
||||
cp))
|
||||
; (if (node-list-empty? cp)
|
||||
; ;; if there's no chunk-parent, return the root node
|
||||
; (sgml-root-element)
|
||||
; ;; otherwise, return the parent that we found
|
||||
; cp)))
|
||||
|
||||
(define (chunk-level-parent #!optional (nd (current-node)))
|
||||
(ancestor-member nd (chunk-element-list)))
|
||||
|
||||
(define (chunk-children #!optional (nd (current-node)))
|
||||
(node-list-filter-by-gi (children nd) (chunk-element-list)))
|
||||
|
||||
(define (ifollow-by-gi nd gilist)
|
||||
(let loop ((next (ifollow nd)))
|
||||
(if (node-list-empty? next)
|
||||
(empty-node-list)
|
||||
(if (member (gi next) gilist)
|
||||
next
|
||||
(loop (ifollow next))))))
|
||||
|
||||
(define (ipreced-by-gi nd gilist)
|
||||
(let loop ((prev (ipreced nd)))
|
||||
(if (node-list-empty? prev)
|
||||
(empty-node-list)
|
||||
(if (member (gi prev) gilist)
|
||||
prev
|
||||
(loop (ipreced prev))))))
|
||||
|
||||
(define (last-chunk-element nd)
|
||||
(let ((clc (node-list-filter-by-gi (children nd) (chunk-element-list))))
|
||||
(if (node-list-empty? clc)
|
||||
nd
|
||||
(last-chunk-element (node-list-last clc)))))
|
||||
|
||||
(define (next-chunk-skip-children #!optional (elem (current-node)))
|
||||
(let* ((nd (chunk-level-parent elem))
|
||||
(psl (node-list-filter-by-gi (children (parent nd))
|
||||
(chunk-element-list)))
|
||||
(nextlist (car (cdr (split-node-list nd psl)))))
|
||||
(if (node-list-empty? nextlist)
|
||||
(if (node-list-empty? (parent nd))
|
||||
(empty-node-list)
|
||||
(next-chunk-skip-children (parent nd)))
|
||||
(node-list-first nextlist))))
|
||||
|
||||
(define (next-chunk-with-children #!optional (elem (current-node)))
|
||||
(let* ((nd (chunk-level-parent elem))
|
||||
(clc (chunk-children nd))
|
||||
(ns (ifollow-by-gi nd (chunk-element-list))))
|
||||
(if (node-list-empty? clc)
|
||||
(if (node-list-empty? ns)
|
||||
(next-chunk-skip-children (parent nd))
|
||||
(node-list-first ns))
|
||||
;; If the first of the chunk-children (clc) of this element
|
||||
;; isn't its own chunk, skip over it, otherwise it's next.
|
||||
(if (chunk? (node-list-first clc))
|
||||
(node-list-first clc)
|
||||
(next-chunk-with-children (node-list-first clc))))))
|
||||
;; (if (> (node-list-length clc) 1)
|
||||
;; (node-list-first (node-list-rest clc))
|
||||
;; (next-chunk-skip-children nd))))))
|
||||
|
||||
(define (abs-prev-chunk #!optional (elem (current-node)))
|
||||
(let* ((nd (chunk-parent elem))
|
||||
(pse (ipreced-by-gi nd (chunk-element-list)))
|
||||
(ps (chunk-parent pse)))
|
||||
(if (node-list-empty? ps)
|
||||
(parent nd)
|
||||
(last-chunk-element ps))))
|
||||
|
||||
(define (prev-chunk-element #!optional (elem (current-node)))
|
||||
(let* ((nd (chunk-parent elem))
|
||||
(prev (chunk-parent (abs-prev-chunk nd))))
|
||||
;; There's a special case here. abs-prev-chunk always returns the last
|
||||
;; chunk element of the preceding element if we walk up the tree. This
|
||||
;; assures that the last section of the preceding chapter is the "prev"
|
||||
;; element of the current chapter.
|
||||
;;
|
||||
;; However, if chunk-skip-first-element is in use, then abs-prev-chunk
|
||||
;; gets fooled when it tries to find the element that precedes the
|
||||
;; second child element that's in chunk-skip-first-element list.
|
||||
;;
|
||||
;; For example, if SECT1 is in chunk-skip-first-element then the
|
||||
;; chunk that precedes the second SECT1 in a CHAPTER is the CHAPTER
|
||||
;; (not the first SECT1 because the first SECT1 is "skipped",
|
||||
;; it's in the CHAPTER chunk). Confused yet?
|
||||
;;
|
||||
;; Ok, now unfortunately, what abs-prev-chunk returns is the last child
|
||||
;; of the CHAPTER, so instead of going from the second SECT1 to the
|
||||
;; CHAPTER, we go from the second SECT1 to the last SECT1 of the CHAPTER.
|
||||
;;
|
||||
;; I can't think of a good way to handle this except to test for it
|
||||
;; right up front. I wonder if all this skip stuff was really worth it?
|
||||
;;
|
||||
(if (and (member (gi elem) (chunk-skip-first-element-list))
|
||||
(equal? (child-number elem) 2))
|
||||
;; this is the second child, the prev node is the parent.
|
||||
(parent elem)
|
||||
;; otherwise, do the "normal" thing to find it:
|
||||
(if (node-list-empty? prev)
|
||||
prev
|
||||
(if (combined-chunk? prev)
|
||||
(parent prev)
|
||||
(if (and (chunk? nd)
|
||||
(chunk? prev)
|
||||
(navigate-to? prev))
|
||||
prev
|
||||
(prev-chunk-element prev)))))))
|
||||
|
||||
(define (abs-prev-peer-chunk-element #!optional (elem (current-node)))
|
||||
;; Returns the previous element that is a sibling or parent of the
|
||||
;; current element. Absolute in this case refers to the fact that
|
||||
;; it returns the immediate predecessor without regard for whether or
|
||||
;; not it is a chunk.
|
||||
(let* ((psibling (if (node-list-empty? (preced elem))
|
||||
(empty-node-list)
|
||||
(node-list-last (preced elem)))))
|
||||
(if (node-list-empty? psibling)
|
||||
(parent elem)
|
||||
psibling)))
|
||||
|
||||
(define (prev-peer-chunk-element #!optional (elem (current-node)))
|
||||
(let loop ((nd (chunk-level-parent elem)))
|
||||
(if (node-list-empty? nd)
|
||||
(empty-node-list)
|
||||
(if (and (chunk? (abs-prev-peer-chunk-element nd))
|
||||
(navigate-to? (abs-prev-peer-chunk-element nd)))
|
||||
(abs-prev-peer-chunk-element nd)
|
||||
(loop (abs-prev-peer-chunk-element nd))))))
|
||||
|
||||
(define (prev-major-component-chunk-element #!optional (elem (current-node)) (in-chain #f))
|
||||
;; Return the prev major component of the document that is a sibling (or
|
||||
;; ancestor) of the starting element. This is essentially 'prev-sibling'
|
||||
;; but skips over things that aren't chunks.
|
||||
(if (or (navigate-to? elem) in-chain)
|
||||
(if (member (gi elem) (major-component-element-list))
|
||||
(if (node-list-empty? (node-list-last-element (preced elem)))
|
||||
(prev-chunk-element elem)
|
||||
(let ((nd (node-list-last-element (preced elem))))
|
||||
(if (navigate-to? nd)
|
||||
nd
|
||||
(prev-major-component-chunk-element nd #t))))
|
||||
(ancestor-member elem (major-component-element-list)))
|
||||
(empty-node-list)))
|
||||
|
||||
(define (abs-next-chunk #!optional (elem (current-node)) (children-ok? #t))
|
||||
(let* ((nd (chunk-level-parent elem))
|
||||
(clc (if children-ok? (chunk-children nd) (empty-node-list)))
|
||||
(ns (ifollow-by-gi nd (chunk-element-list))))
|
||||
(if (node-list-empty? clc)
|
||||
(if (node-list-empty? ns)
|
||||
(if (node-list-empty? (parent nd))
|
||||
(empty-node-list)
|
||||
(abs-next-chunk (parent nd) #f))
|
||||
(node-list-first ns))
|
||||
(node-list-first clc))))
|
||||
|
||||
(define (next-chunk-element #!optional (elem (current-node)))
|
||||
(let ((next (abs-next-chunk elem)))
|
||||
(if (node-list-empty? next)
|
||||
(empty-node-list)
|
||||
(if (chunk? next)
|
||||
(if (navigate-to? next)
|
||||
next
|
||||
(next-chunk-element next))
|
||||
(next-chunk-element next)))))
|
||||
|
||||
(define (abs-next-peer-chunk-element #!optional (elem (current-node)))
|
||||
(let* ((fsibling (if (node-list-empty? (follow elem))
|
||||
(empty-node-list)
|
||||
(node-list-first (follow elem)))))
|
||||
(if (node-list-empty? fsibling)
|
||||
(if (node-list-empty? (parent elem))
|
||||
(empty-node-list)
|
||||
(abs-next-peer-chunk-element (parent elem)))
|
||||
fsibling)))
|
||||
|
||||
(define (next-peer-chunk-element #!optional (elem (current-node)))
|
||||
(let loop ((nd (chunk-level-parent elem)))
|
||||
(if (node-list-empty? nd)
|
||||
(empty-node-list)
|
||||
(if (and (chunk? (abs-next-peer-chunk-element nd))
|
||||
(navigate-to? (abs-next-peer-chunk-element nd)))
|
||||
(abs-next-peer-chunk-element nd)
|
||||
(loop (abs-next-peer-chunk-element nd))))))
|
||||
|
||||
(define (next-major-component-chunk-element #!optional (elem (current-node)) (in-chain #f))
|
||||
;; Return the next major component of the document that is not a descendant
|
||||
;; of the starting element. This is essentially 'next-sibling' but skips
|
||||
;; over things that aren't chunks.
|
||||
(if (or (navigate-to? elem) in-chain)
|
||||
(if (member (gi elem) (major-component-element-list))
|
||||
(if (node-list-empty? (node-list-first-element (follow elem)))
|
||||
(next-major-component-chunk-element (parent elem))
|
||||
(let ((nd (node-list-first-element (follow elem))))
|
||||
(if (navigate-to? nd)
|
||||
nd
|
||||
(next-major-component-chunk-element nd #t))))
|
||||
(ancestor-member elem (major-component-element-list)))
|
||||
(empty-node-list)))
|
||||
|
||||
;; EOF dbchunk.dsl
|
||||
209
docs/dsssl/docbook/html/dbcompon.dsl
Executable file
209
docs/dsssl/docbook/html/dbcompon.dsl
Executable file
@@ -0,0 +1,209 @@
|
||||
;; $Id$
|
||||
;;
|
||||
;; This file is part of the Modular DocBook Stylesheet distribution.
|
||||
;; See ../README or http://www.berkshire.net/~norm/dsssl/
|
||||
;;
|
||||
|
||||
;; ============================= COMPONENTS =============================
|
||||
;;
|
||||
;; in docbook, components are containers at the chapter/appendix level
|
||||
|
||||
(define ($component$)
|
||||
(html-document
|
||||
(with-mode head-title-mode
|
||||
(literal (element-title-string (current-node))))
|
||||
($component-body$)))
|
||||
|
||||
(define ($component-separator$)
|
||||
(if (or (not nochunks) (node-list=? (current-node) (sgml-root-element)))
|
||||
(empty-sosofo)
|
||||
(make empty-element gi: "HR")))
|
||||
|
||||
(define ($component-body$)
|
||||
(let* ((epigraph (let loop ((nl (children (current-node))))
|
||||
(if (node-list-empty? nl)
|
||||
nl
|
||||
(if (equal? (gi (node-list-first nl))
|
||||
(normalize "epigraph"))
|
||||
(node-list-first nl)
|
||||
(if (or (equal? (gi (node-list-first nl))
|
||||
(normalize "title"))
|
||||
(equal? (gi (node-list-first nl))
|
||||
(normalize "subtitle"))
|
||||
(equal? (gi (node-list-first nl))
|
||||
(normalize "titleabbrev"))
|
||||
(equal? (gi (node-list-first nl))
|
||||
(normalize "docinfo"))
|
||||
(equal? (gi (node-list-first nl))
|
||||
(normalize "chapterinfo"))
|
||||
(equal? (gi (node-list-first nl))
|
||||
(normalize "appendixinfo")))
|
||||
(loop (node-list-rest nl))
|
||||
(loop (empty-node-list)))))))
|
||||
(notepigraph (let loop ((nl (children (current-node)))
|
||||
(ch (empty-node-list)))
|
||||
(if (node-list-empty? nl)
|
||||
ch
|
||||
(if (node-list=? (node-list-first nl) epigraph)
|
||||
(loop (node-list-rest nl) ch)
|
||||
(loop (node-list-rest nl)
|
||||
(node-list ch (node-list-first nl))))))))
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" (gi)))
|
||||
($component-separator$)
|
||||
($component-title$)
|
||||
(process-node-list epigraph)
|
||||
(if ($generate-chapter-toc$)
|
||||
($chapter-toc$)
|
||||
(empty-sosofo))
|
||||
(process-node-list notepigraph))))
|
||||
|
||||
(define ($component-title$ #!optional (titlegi "H1") (subtitlegi "H2"))
|
||||
(let* ((info (cond
|
||||
((equal? (gi) (normalize "appendix"))
|
||||
(select-elements (children (current-node)) (normalize "docinfo")))
|
||||
((equal? (gi) (normalize "article"))
|
||||
(node-list-filter-by-gi (children (current-node))
|
||||
(list (normalize "artheader")
|
||||
(normalize "articleinfo"))))
|
||||
((equal? (gi) (normalize "bibliography"))
|
||||
(select-elements (children (current-node)) (normalize "docinfo")))
|
||||
((equal? (gi) (normalize "chapter"))
|
||||
(select-elements (children (current-node)) (normalize "docinfo")))
|
||||
((equal? (gi) (normalize "dedication"))
|
||||
(empty-node-list))
|
||||
((equal? (gi) (normalize "glossary"))
|
||||
(select-elements (children (current-node)) (normalize "docinfo")))
|
||||
((equal? (gi) (normalize "index"))
|
||||
(select-elements (children (current-node)) (normalize "docinfo")))
|
||||
((equal? (gi) (normalize "preface"))
|
||||
(select-elements (children (current-node)) (normalize "docinfo")))
|
||||
((equal? (gi) (normalize "reference"))
|
||||
(select-elements (children (current-node)) (normalize "docinfo")))
|
||||
((equal? (gi) (normalize "setindex"))
|
||||
(select-elements (children (current-node)) (normalize "docinfo")))
|
||||
(else
|
||||
(empty-node-list))))
|
||||
(exp-children (if (node-list-empty? info)
|
||||
(empty-node-list)
|
||||
(expand-children (children info)
|
||||
(list (normalize "bookbiblio")
|
||||
(normalize "bibliomisc")
|
||||
(normalize "biblioset")))))
|
||||
(parent-titles (select-elements (children (current-node)) (normalize "title")))
|
||||
(info-titles (select-elements exp-children (normalize "title")))
|
||||
(titles (if (node-list-empty? parent-titles)
|
||||
info-titles
|
||||
parent-titles))
|
||||
(subtitles (select-elements exp-children (normalize "subtitle"))))
|
||||
(make sequence
|
||||
(make element gi: titlegi
|
||||
(make sequence
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME" (element-id)))
|
||||
(empty-sosofo))
|
||||
(if (and %chapter-autolabel%
|
||||
(or (equal? (gi) (normalize "chapter"))
|
||||
(equal? (gi) (normalize "appendix"))))
|
||||
(literal (gentext-element-name-space (gi))
|
||||
(element-label (current-node))
|
||||
(gentext-label-title-sep (gi)))
|
||||
(empty-sosofo))
|
||||
(if (node-list-empty? titles)
|
||||
(element-title-sosofo) ;; get a default!
|
||||
(with-mode title-mode
|
||||
(process-node-list titles)))))
|
||||
(if (node-list-empty? subtitles)
|
||||
(empty-sosofo)
|
||||
(with-mode subtitle-mode
|
||||
(make element gi: subtitlegi
|
||||
(process-node-list subtitles)))))))
|
||||
|
||||
(define ($chapter-toc$)
|
||||
;; Called by the TITLE element so that it can come after the TITLE
|
||||
(build-toc (ancestor-member (current-node) (component-element-list))
|
||||
(toc-depth
|
||||
(ancestor-member (current-node) (component-element-list)))
|
||||
#t))
|
||||
|
||||
(element appendix ($component$))
|
||||
(element (appendix title) (empty-sosofo))
|
||||
|
||||
(element chapter ($component$))
|
||||
(element (chapter title) (empty-sosofo))
|
||||
|
||||
(element preface ($component$))
|
||||
(element (preface title) (empty-sosofo))
|
||||
|
||||
;; Dedication is empty except in a special mode so that it can be
|
||||
;; reordered (made to come before the TOCs)...see dbttlpg.dsl
|
||||
;; Dedication is empty except in a special mode so that it can be
|
||||
;; reordered (made to come before the TOCs)
|
||||
|
||||
(element dedication (empty-sosofo))
|
||||
|
||||
(mode dedication-page-mode
|
||||
(element dedication
|
||||
(html-document
|
||||
(with-mode head-title-mode
|
||||
(literal (element-title-string (current-node))))
|
||||
(make sequence
|
||||
($component-separator$)
|
||||
($component-title$)
|
||||
(process-children))))
|
||||
(element (dedication title) (empty-sosofo))
|
||||
)
|
||||
|
||||
;; Articles are like components, except that if they may have much
|
||||
;; more formal title pages (created with article-titlepage).
|
||||
;;
|
||||
(element article
|
||||
(let* ((info (node-list-filter-by-gi (children (current-node))
|
||||
(list (normalize "artheader")
|
||||
(normalize "articleinfo"))))
|
||||
(ititle (select-elements (children info) (normalize "title")))
|
||||
(title (if (node-list-empty? ititle)
|
||||
(select-elements (children (current-node))
|
||||
(normalize "title"))
|
||||
(node-list-first ititle)))
|
||||
(tsosofo (with-mode head-title-mode
|
||||
(process-node-list title)))
|
||||
(nl (titlepage-info-elements (current-node) info)))
|
||||
(html-document
|
||||
tsosofo
|
||||
(make element gi: "DIV"
|
||||
attributes: '(("CLASS" "ARTICLE"))
|
||||
(if %generate-article-titlepage%
|
||||
(make sequence
|
||||
(article-titlepage nl 'recto)
|
||||
(article-titlepage nl 'verso))
|
||||
($component-title$))
|
||||
|
||||
(if (not (generate-toc-in-front))
|
||||
(process-children)
|
||||
(empty-sosofo))
|
||||
|
||||
(if %generate-article-toc%
|
||||
(make sequence
|
||||
(build-toc (current-node)
|
||||
(toc-depth (current-node))))
|
||||
(empty-sosofo))
|
||||
|
||||
(let loop ((gilist ($generate-article-lot-list$)))
|
||||
(if (null? gilist)
|
||||
(empty-sosofo)
|
||||
(if (not (node-list-empty?
|
||||
(select-elements (descendants (current-node))
|
||||
(car gilist))))
|
||||
(make sequence
|
||||
(build-lot (current-node) (car gilist))
|
||||
(loop (cdr gilist)))
|
||||
(loop (cdr gilist)))))
|
||||
|
||||
(if (generate-toc-in-front)
|
||||
(process-children)
|
||||
(empty-sosofo))))))
|
||||
|
||||
(element (article title) (empty-sosofo))
|
||||
|
||||
(element (article appendix) ($section$)) ;; this is a special case
|
||||
176
docs/dsssl/docbook/html/dbdivis.dsl
Executable file
176
docs/dsssl/docbook/html/dbdivis.dsl
Executable file
@@ -0,0 +1,176 @@
|
||||
;; $Id$
|
||||
;;
|
||||
;; This file is part of the Modular DocBook Stylesheet distribution.
|
||||
;; See ../README or http://www.berkshire.net/~norm/dsssl/
|
||||
;;
|
||||
|
||||
;; ============================= DIVISIONS ==============================
|
||||
|
||||
(element set
|
||||
(let* ((setinfo (select-elements (children (current-node)) (normalize "setinfo")))
|
||||
(ititle (select-elements (children setinfo) (normalize "title")))
|
||||
(title (if (node-list-empty? ititle)
|
||||
(select-elements (children (current-node)) (normalize "title"))
|
||||
(node-list-first ititle)))
|
||||
(nl (titlepage-info-elements (current-node) setinfo))
|
||||
(tsosofo (with-mode head-title-mode
|
||||
(process-node-list title))))
|
||||
(html-document
|
||||
tsosofo
|
||||
(make element gi: "DIV"
|
||||
attributes: '(("CLASS" "SET"))
|
||||
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME" (element-id)))
|
||||
(empty-sosofo))
|
||||
|
||||
(if %generate-set-titlepage%
|
||||
(make sequence
|
||||
(set-titlepage nl 'recto)
|
||||
(set-titlepage nl 'verso))
|
||||
(empty-sosofo))
|
||||
|
||||
(if (not (generate-toc-in-front))
|
||||
(process-children)
|
||||
(empty-sosofo))
|
||||
|
||||
(if %generate-set-toc%
|
||||
(make sequence
|
||||
(build-toc (current-node) (toc-depth (current-node))))
|
||||
(empty-sosofo))
|
||||
|
||||
(if (generate-toc-in-front)
|
||||
(process-children)
|
||||
(empty-sosofo))))))
|
||||
|
||||
(element (set title) (empty-sosofo))
|
||||
|
||||
(element book
|
||||
(let* ((bookinfo (select-elements (children (current-node)) (normalize "bookinfo")))
|
||||
(ititle (select-elements (children bookinfo) (normalize "title")))
|
||||
(title (if (node-list-empty? ititle)
|
||||
(select-elements (children (current-node)) (normalize "title"))
|
||||
(node-list-first ititle)))
|
||||
(nl (titlepage-info-elements (current-node) bookinfo))
|
||||
(tsosofo (with-mode head-title-mode
|
||||
(process-node-list title)))
|
||||
(dedication (select-elements (children (current-node)) (normalize "dedication"))))
|
||||
(html-document
|
||||
tsosofo
|
||||
(make element gi: "DIV"
|
||||
attributes: '(("CLASS" "BOOK"))
|
||||
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME" (element-id)))
|
||||
(empty-sosofo))
|
||||
|
||||
(if %generate-book-titlepage%
|
||||
(make sequence
|
||||
(book-titlepage nl 'recto)
|
||||
(book-titlepage nl 'verso))
|
||||
(empty-sosofo))
|
||||
|
||||
(if (node-list-empty? dedication)
|
||||
(empty-sosofo)
|
||||
(with-mode dedication-page-mode
|
||||
(process-node-list dedication)))
|
||||
|
||||
(if (not (generate-toc-in-front))
|
||||
(process-children)
|
||||
(empty-sosofo))
|
||||
|
||||
(if %generate-book-toc%
|
||||
(build-toc (current-node) (toc-depth (current-node)))
|
||||
(empty-sosofo))
|
||||
|
||||
(let loop ((gilist ($generate-book-lot-list$)))
|
||||
(if (null? gilist)
|
||||
(empty-sosofo)
|
||||
(if (not (node-list-empty?
|
||||
(select-elements (descendants (current-node))
|
||||
(car gilist))))
|
||||
(make sequence
|
||||
(build-lot (current-node) (car gilist))
|
||||
(loop (cdr gilist)))
|
||||
(loop (cdr gilist)))))
|
||||
|
||||
|
||||
(if (generate-toc-in-front)
|
||||
(process-children)
|
||||
(empty-sosofo))))))
|
||||
|
||||
(element (book title) (empty-sosofo))
|
||||
|
||||
(element part
|
||||
(let* ((partinfo (select-elements (children (current-node))
|
||||
(normalize "docinfo")))
|
||||
(partintro (select-elements (children (current-node))
|
||||
(normalize "partintro")))
|
||||
(nl (titlepage-info-elements
|
||||
(current-node)
|
||||
partinfo
|
||||
(if %generate-partintro-on-titlepage%
|
||||
partintro
|
||||
(empty-node-list))))
|
||||
(ititle (select-elements (children partinfo) (normalize "title")))
|
||||
(title (if (node-list-empty? ititle)
|
||||
(select-elements (children (current-node)) (normalize "title"))
|
||||
(node-list-first ititle)))
|
||||
(tsosofo (with-mode head-title-mode
|
||||
(process-node-list title))))
|
||||
(html-document
|
||||
tsosofo
|
||||
(make element gi: "DIV"
|
||||
attributes: '(("CLASS" "PART"))
|
||||
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME" (element-id)))
|
||||
(empty-sosofo))
|
||||
|
||||
(if %generate-part-titlepage%
|
||||
(make sequence
|
||||
(part-titlepage nl 'recto)
|
||||
(part-titlepage nl 'verso))
|
||||
(empty-sosofo))
|
||||
|
||||
(if (not (generate-toc-in-front))
|
||||
(process-children)
|
||||
(empty-sosofo))
|
||||
|
||||
(if (and (not (node-list-empty? partintro))
|
||||
(not %generate-partintro-on-titlepage%))
|
||||
($process-partintro$ partintro)
|
||||
(empty-sosofo))
|
||||
|
||||
(if (and %generate-part-toc%
|
||||
(not %generate-part-toc-on-titlepage%))
|
||||
(make sequence
|
||||
(build-toc (current-node)
|
||||
(toc-depth (current-node))))
|
||||
(empty-sosofo))
|
||||
|
||||
(if (generate-toc-in-front)
|
||||
(process-children)
|
||||
(empty-sosofo))))))
|
||||
|
||||
(element (part title) (empty-sosofo))
|
||||
|
||||
(element partintro (empty-sosofo))
|
||||
|
||||
(element (partintro title)
|
||||
(make element gi: "H1"
|
||||
(process-children)))
|
||||
|
||||
(element (partintro sect1)
|
||||
($section-body$))
|
||||
|
||||
(define ($process-partintro$ partintro)
|
||||
(make element gi: "DIV"
|
||||
attributes: (list (list "CLASS" "PARTINTRO"))
|
||||
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME" (element-id partintro)))
|
||||
(empty-sosofo))
|
||||
|
||||
(process-node-list (children partintro))
|
||||
(make-endnotes partintro)))
|
||||
824
docs/dsssl/docbook/html/dbefsyn.dsl
Executable file
824
docs/dsssl/docbook/html/dbefsyn.dsl
Executable file
@@ -0,0 +1,824 @@
|
||||
;; $Id$
|
||||
;;
|
||||
;; This file is part of the Modular DocBook Stylesheet distribution.
|
||||
;; See ../README or http://www.berkshire.net/~norm/dsssl/
|
||||
;;
|
||||
|
||||
;; ============================ CLASS SYNOPSIS =============================
|
||||
|
||||
(define %indent-classsynopsisinfo-lines% #f)
|
||||
(define %number-classsynopsisinfo-lines% #f)
|
||||
|
||||
(define %default-classsynopsis-language% "java")
|
||||
|
||||
(element classsynopsis
|
||||
(let ((language (if (attribute-string (normalize "language"))
|
||||
(attribute-string (normalize "language"))
|
||||
%default-classsynopsis-language%)))
|
||||
(case language
|
||||
(("java") (with-mode cs-java-mode
|
||||
(process-node-list (current-node))))
|
||||
(("perl") (with-mode cs-perl-mode
|
||||
(process-node-list (current-node))))
|
||||
(("idl") (with-mode cs-idl-mode
|
||||
(process-node-list (current-node))))
|
||||
(("cpp") (with-mode cs-cpp-mode
|
||||
(process-node-list (current-node))))
|
||||
(("python") (with-mode cs-python-mode
|
||||
(process-node-list (current-node))))
|
||||
(else (with-mode cs-java-mode
|
||||
(process-node-list (current-node)))))))
|
||||
|
||||
(element methodsynopsis
|
||||
(let ((language (if (attribute-string (normalize "language"))
|
||||
(attribute-string (normalize "language"))
|
||||
%default-classsynopsis-language%)))
|
||||
(case language
|
||||
(("java") (with-mode cs-java-mode
|
||||
(process-node-list (current-node))))
|
||||
(("perl") (with-mode cs-perl-mode
|
||||
(process-node-list (current-node))))
|
||||
(("idl") (with-mode cs-idl-mode
|
||||
(process-node-list (current-node))))
|
||||
(("cpp") (with-mode cs-cpp-mode
|
||||
(process-node-list (current-node))))
|
||||
(("python") (with-mode cs-python-mode
|
||||
(process-node-list (current-node))))
|
||||
(else (with-mode cs-java-mode
|
||||
(process-node-list (current-node)))))))
|
||||
|
||||
(element fieldsynopsis
|
||||
(let ((language (if (attribute-string (normalize "language"))
|
||||
(attribute-string (normalize "language"))
|
||||
%default-classsynopsis-language%)))
|
||||
(case language
|
||||
(("java") (with-mode cs-java-mode
|
||||
(process-node-list (current-node))))
|
||||
(("perl") (with-mode cs-perl-mode
|
||||
(process-node-list (current-node))))
|
||||
(("idl") (with-mode cs-idl-mode
|
||||
(process-node-list (current-node))))
|
||||
(("cpp") (with-mode cs-cpp-mode
|
||||
(process-node-list (current-node))))
|
||||
(("python") (with-mode cs-python-mode
|
||||
(process-node-list (current-node))))
|
||||
(else (with-mode cs-java-mode
|
||||
(process-node-list (current-node)))))))
|
||||
|
||||
(element constructorsynopsis
|
||||
(let ((language (if (attribute-string (normalize "language"))
|
||||
(attribute-string (normalize "language"))
|
||||
%default-classsynopsis-language%)))
|
||||
(case language
|
||||
(("java") (with-mode cs-java-mode
|
||||
(process-node-list (current-node))))
|
||||
(("perl") (with-mode cs-perl-mode
|
||||
(process-node-list (current-node))))
|
||||
(("idl") (with-mode cs-idl-mode
|
||||
(process-node-list (current-node))))
|
||||
(("cpp") (with-mode cs-cpp-mode
|
||||
(process-node-list (current-node))))
|
||||
(("python") (with-mode cs-python-mode
|
||||
(process-node-list (current-node))))
|
||||
(else (with-mode cs-java-mode
|
||||
(process-node-list (current-node)))))))
|
||||
|
||||
(element destructorsynopsis
|
||||
(let ((language (if (attribute-string (normalize "language"))
|
||||
(attribute-string (normalize "language"))
|
||||
%default-classsynopsis-language%)))
|
||||
(case language
|
||||
(("java") (with-mode cs-java-mode
|
||||
(process-node-list (current-node))))
|
||||
(("perl") (with-mode cs-perl-mode
|
||||
(process-node-list (current-node))))
|
||||
(("idl") (with-mode cs-idl-mode
|
||||
(process-node-list (current-node))))
|
||||
(("cpp") (with-mode cs-cpp-mode
|
||||
(process-node-list (current-node))))
|
||||
(("python") (with-mode cs-python-mode
|
||||
(process-node-list (current-node))))
|
||||
(else (with-mode cs-java-mode
|
||||
(process-node-list (current-node)))))))
|
||||
|
||||
;; ===== Java ========================================================
|
||||
|
||||
(mode cs-java-mode
|
||||
|
||||
(element classsynopsis
|
||||
(let* ((classes (select-elements (children (current-node))
|
||||
(normalize "ooclass")))
|
||||
(classname (node-list-first classes))
|
||||
(superclasses (node-list-rest classes)))
|
||||
(make element gi: "pre"
|
||||
attributes: '(("class" "classsynopsis"))
|
||||
(process-node-list classname)
|
||||
(process-node-list superclasses)
|
||||
(literal "{&#RE;")
|
||||
(process-node-list
|
||||
(node-list-filter-by-gi
|
||||
(children (current-node))
|
||||
(list (normalize "constructorsynopsis")
|
||||
(normalize "destructorsynopsis")
|
||||
(normalize "fieldsynopsis")
|
||||
(normalize "methodsynopsis")
|
||||
(normalize "classsynopsisinfo"))))
|
||||
(literal "}"))))
|
||||
|
||||
(element classsynopsisinfo
|
||||
($verbatim-display$ %indent-classsynopsisinfo-lines%
|
||||
%number-classsynopsisinfo-lines%))
|
||||
|
||||
(element ooclass
|
||||
(make sequence
|
||||
(if (first-sibling?)
|
||||
(literal " ")
|
||||
(literal ", "))
|
||||
(make element gi: "SPAN"
|
||||
attributes: '(("class" "ooclass"))
|
||||
(process-children))))
|
||||
|
||||
(element oointerface
|
||||
(make sequence
|
||||
(if (first-sibling?)
|
||||
(literal " ")
|
||||
(literal ", "))
|
||||
(make element gi: "SPAN"
|
||||
attributes: '(("class" "oointerface"))
|
||||
(process-children))))
|
||||
|
||||
(element ooexception
|
||||
(make sequence
|
||||
(if (first-sibling?)
|
||||
(literal " ")
|
||||
(literal ", "))
|
||||
(make element gi: "SPAN"
|
||||
attributes: '(("class" "ooexception"))
|
||||
(process-children))))
|
||||
|
||||
(element modifier
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "modifier"))
|
||||
(process-children)
|
||||
(literal " ")))
|
||||
|
||||
(element classname
|
||||
(if (first-sibling?)
|
||||
(make sequence
|
||||
(literal "class ")
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "classname"))
|
||||
(process-children)
|
||||
(literal " "))
|
||||
(if (last-sibling?)
|
||||
(empty-sosofo)
|
||||
(literal "extends ")))
|
||||
(make sequence
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "superclass"))
|
||||
(process-children))
|
||||
(if (last-sibling?)
|
||||
(literal " ")
|
||||
(literal ", ")))))
|
||||
|
||||
(element fieldsynopsis
|
||||
(make element gi: "code"
|
||||
attributes: '(("class" "fieldsynopsis"))
|
||||
(literal " ")
|
||||
(process-children)
|
||||
(literal ";&#RE;")))
|
||||
|
||||
(element type
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "type"))
|
||||
(process-children)
|
||||
(literal " ")))
|
||||
|
||||
(element varname
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "varname"))
|
||||
(process-children)))
|
||||
|
||||
(element initializer
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "initializer"))
|
||||
(literal " = ")
|
||||
(process-children)))
|
||||
|
||||
(element constructorsynopsis
|
||||
(java-method-synopsis))
|
||||
|
||||
(element destructorsynopsis
|
||||
(java-method-synopsis))
|
||||
|
||||
(element methodsynopsis
|
||||
(java-method-synopsis))
|
||||
|
||||
(element void
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "void"))
|
||||
(literal "void ")))
|
||||
|
||||
(element methodname
|
||||
(process-children))
|
||||
|
||||
(element methodparam
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "methodparam"))
|
||||
(if (first-sibling?)
|
||||
(empty-sosofo)
|
||||
(literal ", "))
|
||||
(process-children)))
|
||||
|
||||
(element parameter
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "parameter"))
|
||||
(process-children)))
|
||||
|
||||
(element exceptionname
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "exceptionname"))
|
||||
(if (first-sibling?)
|
||||
(literal "&#RE; throws ")
|
||||
(literal ", "))
|
||||
(process-children)))
|
||||
)
|
||||
|
||||
(define (java-method-synopsis #!optional (nd (current-node)))
|
||||
(let* ((modifiers (select-elements (children nd)
|
||||
(normalize "modifier")))
|
||||
(notmod (node-list-filter-by-not-gi
|
||||
(children nd)
|
||||
(list (normalize "modifier"))))
|
||||
(type (if (equal? (gi (node-list-first notmod))
|
||||
(normalize "methodname"))
|
||||
(empty-node-list)
|
||||
(node-list-first notmod)))
|
||||
(methodname (select-elements (children nd)
|
||||
(normalize "methodname")))
|
||||
(param (node-list-filter-by-gi (node-list-rest notmod)
|
||||
(list (normalize "methodparam"))))
|
||||
(excep (select-elements (children nd)
|
||||
(normalize "exceptionname"))))
|
||||
(make element gi: "code"
|
||||
attributes: (list (list "class" (gi nd)))
|
||||
(if (first-sibling?)
|
||||
(literal "&#RE;")
|
||||
(empty-sosofo))
|
||||
(literal " ")
|
||||
(process-node-list modifiers)
|
||||
(process-node-list type)
|
||||
(process-node-list methodname)
|
||||
(literal "(")
|
||||
(process-node-list param)
|
||||
(literal ")")
|
||||
(process-node-list excep)
|
||||
(literal ";&#RE;"))))
|
||||
|
||||
;; ===== C++ =========================================================
|
||||
|
||||
(mode cs-cpp-mode
|
||||
|
||||
(element classsynopsis
|
||||
(let* ((classes (node-list-filter-by-gi (children (current-node))
|
||||
(list (normalize "classname")
|
||||
(normalize "modifier"))))
|
||||
(classname (let loop ((nl classes) (cn (empty-node-list)))
|
||||
(if (node-list-empty? nl)
|
||||
cn
|
||||
(if (equal? (gi (node-list-first nl))
|
||||
(normalize "classname"))
|
||||
(node-list cn (node-list-first nl))
|
||||
(loop (node-list-rest nl)
|
||||
(node-list cn (node-list-first nl)))))))
|
||||
|
||||
(superclasses (let loop ((nl classes))
|
||||
(if (node-list-empty? nl)
|
||||
(empty-node-list)
|
||||
(if (equal? (gi (node-list-first nl))
|
||||
(normalize "classname"))
|
||||
(node-list-rest nl)
|
||||
(loop (node-list-rest nl)))))))
|
||||
(make element gi: "pre"
|
||||
attributes: '(("class" "classsynopsis"))
|
||||
(process-node-list classname)
|
||||
(process-node-list superclasses)
|
||||
(literal "{&#RE;")
|
||||
(process-node-list
|
||||
(node-list-filter-by-gi
|
||||
(children (current-node))
|
||||
(list (normalize "constructorsynopsis")
|
||||
(normalize "destructorsynopsis")
|
||||
(normalize "fieldsynopsis")
|
||||
(normalize "methodsynopsis")
|
||||
(normalize "classsynopsisinfo"))))
|
||||
(literal "}"))))
|
||||
|
||||
(element classsynopsisinfo
|
||||
($verbatim-display$ %indent-classsynopsisinfo-lines%
|
||||
%number-classsynopsisinfo-lines%))
|
||||
|
||||
(element modifier
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "modifier"))
|
||||
(process-children)
|
||||
(literal " ")))
|
||||
|
||||
(element classname
|
||||
(if (first-sibling?)
|
||||
(make sequence
|
||||
(literal "class ")
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "classname"))
|
||||
(process-children))
|
||||
(if (last-sibling?)
|
||||
(empty-sosofo)
|
||||
(literal ": ")))
|
||||
(make sequence
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "superclass"))
|
||||
(process-children))
|
||||
(if (last-sibling?)
|
||||
(literal " ")
|
||||
(literal ", ")))))
|
||||
|
||||
(element fieldsynopsis
|
||||
(make element gi: "code"
|
||||
attributes: '(("class" "fieldsynopsis"))
|
||||
(literal " ")
|
||||
(process-children)
|
||||
(literal ";&#RE;")))
|
||||
|
||||
(element type
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "type"))
|
||||
(process-children)
|
||||
(literal " ")))
|
||||
|
||||
(element varname
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "varname"))
|
||||
(process-children)))
|
||||
|
||||
(element initializer
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "initializer"))
|
||||
(literal " = ")
|
||||
(process-children)))
|
||||
|
||||
(element constructorsynopsis
|
||||
(cpp-method-synopsis))
|
||||
|
||||
(element destructorsynopsis
|
||||
(cpp-method-synopsis))
|
||||
|
||||
(element methodsynopsis
|
||||
(cpp-method-synopsis))
|
||||
|
||||
(element void
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "void"))
|
||||
(literal "void ")))
|
||||
|
||||
(element methodname
|
||||
(process-children))
|
||||
|
||||
(element methodparam
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "methodparam"))
|
||||
(if (first-sibling?)
|
||||
(empty-sosofo)
|
||||
(literal ", "))
|
||||
(process-children)))
|
||||
|
||||
(element parameter
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "parameter"))
|
||||
(process-children)))
|
||||
|
||||
(element exceptionname
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "exceptionname"))
|
||||
(if (first-sibling?)
|
||||
(literal "&#RE; throws ")
|
||||
(literal ", "))
|
||||
(process-children)))
|
||||
)
|
||||
|
||||
(define (cpp-method-synopsis #!optional (nd (current-node)))
|
||||
(let* ((modifiers (select-elements (children nd)
|
||||
(normalize "modifier")))
|
||||
(notmod (node-list-filter-by-not-gi
|
||||
(children nd)
|
||||
(list (normalize "modifier"))))
|
||||
(type (if (equal? (gi (node-list-first notmod))
|
||||
(normalize "methodname"))
|
||||
(empty-node-list)
|
||||
(node-list-first notmod)))
|
||||
(methodname (select-elements (children nd)
|
||||
(normalize "methodname")))
|
||||
(param (node-list-filter-by-gi (node-list-rest notmod)
|
||||
(list (normalize "methodparam"))))
|
||||
(excep (select-elements (children nd)
|
||||
(normalize "exceptionname"))))
|
||||
(make element gi: "code"
|
||||
attributes: (list (list "class" (gi nd)))
|
||||
(if (first-sibling?)
|
||||
(literal "&#RE;")
|
||||
(empty-sosofo))
|
||||
(literal " ")
|
||||
(process-node-list modifiers)
|
||||
(process-node-list type)
|
||||
(process-node-list methodname)
|
||||
(literal "(")
|
||||
(process-node-list param)
|
||||
(literal ")")
|
||||
(process-node-list excep)
|
||||
(literal ";&#RE;"))))
|
||||
|
||||
;; ===== Perl ========================================================
|
||||
|
||||
(mode cs-perl-mode
|
||||
|
||||
(element classsynopsis
|
||||
(let* ((modifiers (select-elements (children (current-node))
|
||||
(normalize "modifier")))
|
||||
(classes (select-elements (children (current-node))
|
||||
(normalize "classname")))
|
||||
(classname (node-list-first classes))
|
||||
(superclasses (node-list-rest classes)))
|
||||
(make element gi: "pre"
|
||||
attributes: '(("class" "classsynopsis"))
|
||||
(literal "package ")
|
||||
(process-node-list classname)
|
||||
(literal ";&#RE;")
|
||||
(if (node-list-empty? superclasses)
|
||||
(empty-sosofo)
|
||||
(make sequence
|
||||
(literal "@ISA = (");
|
||||
(process-node-list superclasses)
|
||||
(literal ";&#RE;")))
|
||||
(process-node-list
|
||||
(node-list-filter-by-gi
|
||||
(children (current-node))
|
||||
(list (normalize "constructorsynopsis")
|
||||
(normalize "destructorsynopsis")
|
||||
(normalize "fieldsynopsis")
|
||||
(normalize "methodsynopsis")
|
||||
(normalize "classsynopsisinfo")))))))
|
||||
|
||||
(element classsynopsisinfo
|
||||
($verbatim-display$ %indent-classsynopsisinfo-lines%
|
||||
%number-classsynopsisinfo-lines%))
|
||||
|
||||
(element modifier
|
||||
(literal "Perl ClassSynopses don't use Modifiers"))
|
||||
|
||||
(element classname
|
||||
(if (first-sibling?)
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "classname"))
|
||||
(process-children))
|
||||
(make sequence
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "superclass"))
|
||||
(process-children))
|
||||
(if (last-sibling?)
|
||||
(empty-sosofo)
|
||||
(literal ", ")))))
|
||||
|
||||
(element fieldsynopsis
|
||||
(make element gi: "code"
|
||||
attributes: '(("class" "fieldsynopsis"))
|
||||
(literal " ");
|
||||
(process-children)
|
||||
(literal ";&#RE;")))
|
||||
|
||||
(element type
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "type"))
|
||||
(process-children)
|
||||
(literal " ")))
|
||||
|
||||
(element varname
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "varname"))
|
||||
(process-children)))
|
||||
|
||||
(element initializer
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "initializer"))
|
||||
(literal " = ")
|
||||
(process-children)
|
||||
(literal " ")))
|
||||
|
||||
(element constructorsynopsis
|
||||
(perl-method-synopsis))
|
||||
|
||||
(element destructorsynopsis
|
||||
(perl-method-synopsis))
|
||||
|
||||
(element methodsynopsis
|
||||
(perl-method-synopsis))
|
||||
|
||||
(element void
|
||||
(empty-sosofo))
|
||||
|
||||
(element methodname
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "methodname"))
|
||||
(process-children)))
|
||||
|
||||
(element methodparam
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "methodparam"))
|
||||
(if (first-sibling?)
|
||||
(empty-sosofo)
|
||||
(literal ", "))
|
||||
(process-children)))
|
||||
|
||||
(element parameter
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "parameter"))
|
||||
(process-children)))
|
||||
|
||||
(element exceptionname
|
||||
(literal "Perl ClassSynopses don't use Exceptions"))
|
||||
|
||||
)
|
||||
|
||||
(define (perl-method-synopsis #!optional (nd (current-node)))
|
||||
(let* ((modifiers (select-elements (children nd)
|
||||
(normalize "modifier")))
|
||||
(notmod (node-list-filter-by-not-gi
|
||||
(children nd)
|
||||
(list (normalize "modifier"))))
|
||||
(type (if (equal? (gi (node-list-first notmod))
|
||||
(normalize "methodname"))
|
||||
(empty-node-list)
|
||||
(node-list-first notmod)))
|
||||
(methodname (select-elements (children nd)
|
||||
(normalize "methodname")))
|
||||
(param (node-list-filter-by-gi (node-list-rest notmod)
|
||||
(list (normalize "type")
|
||||
(normalize "void"))))
|
||||
(excep (select-elements (children nd)
|
||||
(normalize "exceptionname"))))
|
||||
(make element gi: "code"
|
||||
attributes: (list (list "class" (gi nd)))
|
||||
(literal "sub ")
|
||||
(process-node-list modifiers)
|
||||
(process-node-list type)
|
||||
(process-node-list methodname)
|
||||
(literal " { ... }"))))
|
||||
|
||||
;; ===== IDL =========================================================
|
||||
|
||||
(mode cs-idl-mode
|
||||
|
||||
(element classsynopsis
|
||||
(let* ((modifiers (select-elements (children (current-node))
|
||||
(normalize "modifier")))
|
||||
(classes (select-elements (children (current-node))
|
||||
(normalize "classname")))
|
||||
(classname (node-list-first classes))
|
||||
(superclasses (node-list-rest classes)))
|
||||
(make element gi: "pre"
|
||||
attributes: '(("class" "classsynopsis"))
|
||||
(literal "interface ")
|
||||
(process-node-list modifiers)
|
||||
(process-node-list classname)
|
||||
(if (node-list-empty? superclasses)
|
||||
(literal " ")
|
||||
(make sequence
|
||||
(literal " : ")
|
||||
(process-node-list superclasses)))
|
||||
(literal " {&#RE;")
|
||||
(process-node-list
|
||||
(node-list-filter-by-gi
|
||||
(children (current-node))
|
||||
(list (normalize "constructorsynopsis")
|
||||
(normalize "destructorsynopsis")
|
||||
(normalize "fieldsynopsis")
|
||||
(normalize "methodsynopsis")
|
||||
(normalize "classsynopsisinfo"))))
|
||||
(literal "}"))))
|
||||
|
||||
(element classsynopsisinfo
|
||||
($verbatim-display$ %indent-classsynopsisinfo-lines%
|
||||
%number-classsynopsisinfo-lines%))
|
||||
|
||||
(element modifier
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "modifier"))
|
||||
(process-children)
|
||||
(literal " ")))
|
||||
|
||||
(element classname
|
||||
(if (first-sibling?)
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "classname"))
|
||||
(process-children))
|
||||
(make sequence
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "superclass"))
|
||||
(process-children))
|
||||
(if (last-sibling?)
|
||||
(empty-sosofo)
|
||||
(literal ", ")))))
|
||||
|
||||
(element fieldsynopsis
|
||||
(make element gi: "code"
|
||||
attributes: '(("class" "fieldsynopsis"))
|
||||
(literal " ");
|
||||
(process-children)
|
||||
(literal ";&#RE;")))
|
||||
|
||||
(element type
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "type"))
|
||||
(process-children)
|
||||
(literal " ")))
|
||||
|
||||
(element varname
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "varname"))
|
||||
(process-children)))
|
||||
|
||||
(element initializer
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "initializer"))
|
||||
(literal " = ")
|
||||
(process-children)
|
||||
(literal " ")))
|
||||
|
||||
(element constructorsynopsis
|
||||
(idl-method-synopsis))
|
||||
|
||||
(element destructorsynopsis
|
||||
(idl-method-synopsis))
|
||||
|
||||
(element methodsynopsis
|
||||
(idl-method-synopsis))
|
||||
|
||||
(element void
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "void"))
|
||||
(literal "void ")))
|
||||
|
||||
(element methodname
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "methodname"))
|
||||
(process-children)))
|
||||
|
||||
(element methodparam
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "methodparam"))
|
||||
(if (first-sibling?)
|
||||
(empty-sosofo)
|
||||
(literal ", "))
|
||||
(process-children)))
|
||||
|
||||
(element parameter
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "parameter"))
|
||||
(process-children)))
|
||||
|
||||
(element exceptionname
|
||||
(make element gi: "span"
|
||||
attributes: '(("class" "exceptionname"))
|
||||
(if (first-sibling?)
|
||||
(literal " raises(")
|
||||
(literal ", "))
|
||||
(process-children)
|
||||
(if (last-sibling?)
|
||||
(literal ")")
|
||||
(empty-sosofo))))
|
||||
)
|
||||
|
||||
(define (idl-method-synopsis #!optional (nd (current-node)))
|
||||
(let* ((modifiers (select-elements (children nd)
|
||||
(normalize "modifier")))
|
||||
(notmod (node-list-filter-by-not-gi
|
||||
(children nd)
|
||||
(list (normalize "modifier"))))
|
||||
(type (if (equal? (gi (node-list-first notmod))
|
||||
(normalize "methodname"))
|
||||
(empty-node-list)
|
||||
(node-list-first notmod)))
|
||||
(methodname (select-elements (children nd)
|
||||
(normalize "methodname")))
|
||||
(param (node-list-filter-by-gi (node-list-rest notmod)
|
||||
(list (normalize "methodparam"))))
|
||||
(excep (select-elements (children nd)
|
||||
(normalize "exceptionname"))))
|
||||
(make element gi: "code"
|
||||
attributes: (list (list "class" (gi nd)))
|
||||
(literal " ")
|
||||
(process-node-list modifiers)
|
||||
(process-node-list type)
|
||||
(process-node-list methodname)
|
||||
(literal "(")
|
||||
(process-node-list param)
|
||||
(literal ")")
|
||||
(process-node-list excep)
|
||||
(literal ";&#RE;"))))
|
||||
|
||||
;; ===== Python =======================================================
|
||||
;; Contributed by Lane Stevens, lane@cycletime.com
|
||||
|
||||
(mode cs-python-mode
|
||||
(element classsynopsis
|
||||
(let* ((classes (select-elements (children (current-node))
|
||||
(normalize "ooclass")))
|
||||
(classname (node-list-first classes))
|
||||
(superclasses (node-list-rest classes)))
|
||||
(make element gi: "pre"
|
||||
attributes: '(("class" "classsynopsis"))
|
||||
(literal "class ")
|
||||
(process-node-list classname)
|
||||
(literal "(")
|
||||
(process-node-list superclasses)
|
||||
(literal ") :")
|
||||
(process-node-list
|
||||
(node-list-filter-by-gi
|
||||
(children (current-node))
|
||||
(list (normalize "constructorsynopsis")
|
||||
(normalize "destructorsynopsis")
|
||||
(normalize "fieldsynopsis")
|
||||
(normalize "methodsynopsis")
|
||||
(normalize "classsynopsisinfo"))))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(element ooclass
|
||||
(make sequence
|
||||
(make element gi: "SPAN"
|
||||
attributes: '(("class" "ooclass"))
|
||||
(process-children)
|
||||
(cond
|
||||
((first-sibling?) (literal " "))
|
||||
((last-sibling?) (empty-sosofo))
|
||||
(#t (literal ", "))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(element classname
|
||||
(if (first-sibling?)
|
||||
(make element gi: "SPAN"
|
||||
attributes: '(("class" "classname"))
|
||||
(process-children))
|
||||
(make element gi: "SPAN"
|
||||
attributes: '(("class" "superclass")))
|
||||
)
|
||||
)
|
||||
|
||||
(element methodsynopsis
|
||||
(python-method-synopsis))
|
||||
|
||||
(element initializer
|
||||
(make element gi: "SPAN"
|
||||
attributes: '(("class" "initializer"))
|
||||
(literal " = ")
|
||||
(process-children)))
|
||||
|
||||
(element methodname
|
||||
(process-children))
|
||||
|
||||
(element methodparam
|
||||
(make element gi: "SPAN"
|
||||
attributes: '(("class" "methodparam"))
|
||||
(process-children)
|
||||
(if (last-sibling?)
|
||||
(empty-sosofo)
|
||||
(literal ", "))
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
(element parameter
|
||||
(make element gi: "SPAN"
|
||||
attributes: '(("class" "parameter"))
|
||||
(process-children)))
|
||||
|
||||
|
||||
)
|
||||
|
||||
(define (python-method-synopsis #!optional (nd (current-node)))
|
||||
(let* ((the-method-name (select-elements (children nd) (normalize "methodname")))
|
||||
(the-method-params (select-elements (children nd) (normalize "methodparam"))))
|
||||
(make element gi: "code"
|
||||
attributes: (list (list "class" (gi nd)))
|
||||
(literal " def ")
|
||||
(process-node-list the-method-name)
|
||||
(literal "(")
|
||||
(process-node-list the-method-params)
|
||||
(literal ") :")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; EOF
|
||||
249
docs/dsssl/docbook/html/dbfootn.dsl
Executable file
249
docs/dsssl/docbook/html/dbfootn.dsl
Executable file
@@ -0,0 +1,249 @@
|
||||
;; $Id$
|
||||
;;
|
||||
;; This file is part of the Modular DocBook Stylesheet distribution.
|
||||
;; See ../README or http://www.berkshire.net/~norm/dsssl/
|
||||
;;
|
||||
|
||||
;; ======================================================================
|
||||
;; Handle footnotes in body text
|
||||
|
||||
(element footnote ;; A footnote inserts a reference to itself
|
||||
(let ((id (if (attribute-string (normalize "id"))
|
||||
(attribute-string (normalize "id"))
|
||||
(generate-anchor))))
|
||||
(make element gi: "A"
|
||||
attributes: (list
|
||||
(list "NAME" id)
|
||||
(list "HREF" (string-append "#FTN." id)))
|
||||
($footnote-literal$ (current-node)))))
|
||||
|
||||
(element footnoteref
|
||||
(let* ((target (element-with-id (attribute-string (normalize "linkend"))))
|
||||
(id (if (attribute-string (normalize "id") target)
|
||||
(attribute-string (normalize "id") target)
|
||||
(generate-anchor target)))
|
||||
(curdepth (directory-depth (html-file (current-node))))
|
||||
(entfile (html-file target))
|
||||
;; can't use (href-to) here because we tinker with the fragid
|
||||
(href (if nochunks
|
||||
(string-append "#FTN." id)
|
||||
(string-append (copy-string "../" curdepth)
|
||||
entfile "#FTN." id))))
|
||||
(make element gi: "A"
|
||||
attributes: (list
|
||||
(list "HREF" href))
|
||||
($footnote-literal$ target))))
|
||||
|
||||
(define (count-footnote? footnote)
|
||||
;; don't count footnotes in comments (unless you're showing comments)
|
||||
;; or footnotes in tables which are handled locally in the table
|
||||
(if (or (and (has-ancestor-member? footnote (list (normalize "comment")))
|
||||
(not %show-comments%))
|
||||
(has-ancestor-member? footnote (list (normalize "tgroup"))))
|
||||
#f
|
||||
#t))
|
||||
|
||||
(define ($chunk-footnote-number$ footnote)
|
||||
;; This is more complex than it at first appears because footnotes
|
||||
;; can be in Comments which may be suppressed.
|
||||
(let* ((footnotes (select-elements
|
||||
(descendants (chunk-parent footnote))
|
||||
(normalize "footnote"))))
|
||||
(let loop ((nl footnotes) (num 1))
|
||||
(if (node-list-empty? nl)
|
||||
0
|
||||
(if (node-list=? (node-list-first nl) footnote)
|
||||
num
|
||||
(if (count-footnote? (node-list-first nl))
|
||||
(loop (node-list-rest nl) (+ num 1))
|
||||
(loop (node-list-rest nl) num)))))))
|
||||
|
||||
(define ($footnote-literal$ node)
|
||||
(make element gi: "SPAN"
|
||||
attributes: (list
|
||||
(list "CLASS" "footnote"))
|
||||
(literal
|
||||
(string-append
|
||||
"[" ($footnote-number$ node) "]"))))
|
||||
|
||||
(define ($table-footnote-number$ footnote)
|
||||
(let* ((chunk (ancestor (normalize "tgroup") footnote))
|
||||
(footnotes (select-elements (descendants chunk) (normalize "footnote"))))
|
||||
(let loop ((nl footnotes) (num 1))
|
||||
(if (node-list-empty? nl)
|
||||
0
|
||||
(if (node-list=? footnote (node-list-first nl))
|
||||
num
|
||||
(loop (node-list-rest nl)
|
||||
(+ num 1)))))))
|
||||
|
||||
(define ($footnote-number$ footnote)
|
||||
(if (node-list-empty? (ancestor (normalize "tgroup") footnote))
|
||||
(format-number ($chunk-footnote-number$ footnote) "1")
|
||||
(format-number ($table-footnote-number$ footnote) "a")))
|
||||
|
||||
(mode footnote-mode
|
||||
(element footnote
|
||||
(process-children))
|
||||
|
||||
(element (footnote para)
|
||||
(let ((id (if (attribute-string (normalize "id") (parent (current-node)))
|
||||
(attribute-string (normalize "id") (parent (current-node)))
|
||||
(generate-anchor (parent (current-node))))))
|
||||
(make element gi: "P"
|
||||
(if (= (child-number) 1)
|
||||
(make sequence
|
||||
(make element gi: "A"
|
||||
attributes: (list
|
||||
(list "NAME" (string-append "FTN." id))
|
||||
(list "HREF" (href-to (parent (current-node)))))
|
||||
($footnote-literal$ (parent (current-node))))
|
||||
(literal " "))
|
||||
(literal ""))
|
||||
(process-children))))
|
||||
)
|
||||
|
||||
(define (non-table-footnotes footnotenl)
|
||||
(let loop ((nl footnotenl) (result (empty-node-list)))
|
||||
(if (node-list-empty? nl)
|
||||
result
|
||||
(if (has-ancestor-member? (node-list-first nl)
|
||||
(list (normalize "tgroup")))
|
||||
(loop (node-list-rest nl)
|
||||
result)
|
||||
(loop (node-list-rest nl)
|
||||
(node-list result (node-list-first nl)))))))
|
||||
|
||||
(define (make-endnotes #!optional (node (current-node)))
|
||||
(if %footnotes-at-end%
|
||||
(let* ((allfootnotes (select-elements (descendants node)
|
||||
(normalize "footnote")))
|
||||
(allntfootnotes (non-table-footnotes allfootnotes))
|
||||
(this-chunk (chunk-parent node))
|
||||
(chunkfootnotes (let loop ((fn allntfootnotes)
|
||||
(chunkfn (empty-node-list)))
|
||||
(if (node-list-empty? fn)
|
||||
chunkfn
|
||||
(if (node-list=? this-chunk
|
||||
(chunk-parent
|
||||
(node-list-first fn)))
|
||||
(loop (node-list-rest fn)
|
||||
(node-list chunkfn
|
||||
(node-list-first fn)))
|
||||
(loop (node-list-rest fn)
|
||||
chunkfn)))))
|
||||
(footnotes (let loop ((nl chunkfootnotes)
|
||||
(fnlist (empty-node-list)))
|
||||
(if (node-list-empty? nl)
|
||||
fnlist
|
||||
(if (count-footnote? (node-list-first nl))
|
||||
(loop (node-list-rest nl)
|
||||
(node-list fnlist
|
||||
(node-list-first nl)))
|
||||
(loop (node-list-rest nl)
|
||||
fnlist))))))
|
||||
(if (node-list-empty? footnotes)
|
||||
(empty-sosofo)
|
||||
(if (and #f
|
||||
;; there was a time when make-endnotes was called in
|
||||
;; more places, and this code prevented footnotes from
|
||||
;; being output more than once. now that it's only
|
||||
;; called in footer-navigation, this code isn't necessary
|
||||
;; and does the wrong thing if -V nochunks is specified.
|
||||
(or (equal? (gi node) (normalize "reference"))
|
||||
(equal? (gi node) (normalize "part"))
|
||||
(equal? (gi node) (normalize "set"))
|
||||
(equal? (gi node) (normalize "book"))))
|
||||
(empty-sosofo) ;; Each RefEntry/Component does its own...
|
||||
(make sequence
|
||||
(make-endnote-header)
|
||||
(make element gi: "TABLE"
|
||||
attributes: '(("BORDER" "0")
|
||||
("CLASS" "FOOTNOTES")
|
||||
("WIDTH" "100%"))
|
||||
(with-mode endnote-mode
|
||||
(process-node-list footnotes)))))))
|
||||
(empty-sosofo)))
|
||||
|
||||
(define (make-endnote-header)
|
||||
(let ((headsize (if (equal? (gi) (normalize "refentry")) "H2" "H3")))
|
||||
(make element gi: headsize
|
||||
attributes: '(("CLASS" "FOOTNOTES"))
|
||||
(literal (gentext-endnotes)))))
|
||||
|
||||
(mode endnote-mode
|
||||
(element footnote
|
||||
(let ((id (if (attribute-string (normalize "id") (current-node))
|
||||
(attribute-string (normalize "id") (current-node))
|
||||
(generate-anchor (current-node)))))
|
||||
(make sequence
|
||||
(make element gi: "TR"
|
||||
(make element gi: "TD"
|
||||
attributes: '(("ALIGN" "LEFT")
|
||||
("VALIGN" "TOP")
|
||||
("WIDTH" "5%"))
|
||||
(make element gi: "A"
|
||||
attributes: (list
|
||||
(list "NAME" (string-append "FTN." id))
|
||||
(list "HREF" (href-to (current-node))))
|
||||
($footnote-literal$ (current-node))))
|
||||
(make element gi: "TD"
|
||||
attributes: '(("ALIGN" "LEFT")
|
||||
("VALIGN" "TOP")
|
||||
("WIDTH" "95%"))
|
||||
(process-children))))))
|
||||
)
|
||||
|
||||
;; ======================================================================
|
||||
;; Handle table footnotes
|
||||
|
||||
(define (table-footnote-number footnote)
|
||||
(format-number (component-child-number footnote
|
||||
(list (normalize "table")
|
||||
(normalize "informaltable")))
|
||||
"a"))
|
||||
|
||||
(element (entry para footnote)
|
||||
(make element gi: "SUP"
|
||||
(literal (table-footnote-number (current-node)))))
|
||||
|
||||
(define (make-table-endnote-header)
|
||||
(make sequence
|
||||
(literal (gentext-table-endnotes))
|
||||
(make empty-element gi: "BR")))
|
||||
|
||||
(define (make-table-endnotes)
|
||||
(let* ((footnotes (select-elements (descendants (current-node))
|
||||
(normalize "footnote")))
|
||||
(tgroup (ancestor-member (current-node) (list (normalize "tgroup"))))
|
||||
(cols (string->number (attribute-string (normalize "cols") tgroup))))
|
||||
(if (node-list-empty? footnotes)
|
||||
(empty-sosofo)
|
||||
(make element gi: "TR"
|
||||
(make element gi: "TD"
|
||||
attributes: (list
|
||||
(list "COLSPAN" (number->string cols)))
|
||||
(make-table-endnote-header)
|
||||
(with-mode table-footnote-mode
|
||||
(process-node-list footnotes)))))))
|
||||
|
||||
(mode table-footnote-mode
|
||||
(element footnote
|
||||
(process-children))
|
||||
|
||||
(element (footnote para)
|
||||
(let* ((target (parent (current-node)))
|
||||
(fnnum (table-footnote-number target))
|
||||
(idstr (if (attribute-string (normalize "id") target)
|
||||
(attribute-string (normalize "id") target)
|
||||
(generate-anchor target))))
|
||||
(make sequence
|
||||
(if (= (child-number) 1)
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "NAME" (string-append "FTN." idstr)))
|
||||
(literal fnnum
|
||||
(gentext-label-title-sep (normalize "footnote"))))
|
||||
(empty-sosofo))
|
||||
(process-children)
|
||||
(make empty-element gi: "BR")))))
|
||||
|
||||
193
docs/dsssl/docbook/html/dbgloss.dsl
Executable file
193
docs/dsssl/docbook/html/dbgloss.dsl
Executable file
@@ -0,0 +1,193 @@
|
||||
;; $Id$
|
||||
;;
|
||||
;; This file is part of the Modular DocBook Stylesheet distribution.
|
||||
;; See ../README or http://www.berkshire.net/~norm/dsssl/
|
||||
;;
|
||||
|
||||
;; ========================= GLOSSARY ELEMENTS ==========================
|
||||
|
||||
;; HACK ALERT! There is no top-level wrapper around one or more GLOSSENTRYs,
|
||||
;; so this code has to look around and output the right thing for the
|
||||
;; front matter and then the GLOSSENTRYs. Ugh.
|
||||
|
||||
(define ($glossary-frontmatter$)
|
||||
(let loop ((nl (children (current-node))) (headlist (empty-node-list)))
|
||||
(if (node-list-empty? nl)
|
||||
headlist
|
||||
(if (equal? (gi (node-list-first nl)) (normalize "glossentry"))
|
||||
headlist
|
||||
(loop (node-list-rest nl) (node-list
|
||||
headlist
|
||||
(node-list-first nl)))))))
|
||||
|
||||
(define ($glossary-glossentrys$)
|
||||
(let loop ((nl (children (current-node))) (gelist (empty-node-list)))
|
||||
(if (node-list-empty? nl)
|
||||
gelist
|
||||
(loop (node-list-rest nl)
|
||||
(if (equal? (gi (node-list-first nl)) (normalize "glossentry"))
|
||||
(node-list gelist (node-list-first nl))
|
||||
gelist)))))
|
||||
|
||||
(define ($glossary-body$)
|
||||
(make element gi: "DIV"
|
||||
attributes: '(("CLASS" "GLOSSARY"))
|
||||
($component-title$)
|
||||
(process-node-list ($glossary-frontmatter$))
|
||||
(if (not (node-list-empty? ($glossary-glossentrys$)))
|
||||
(make element gi: "DL"
|
||||
(process-node-list ($glossary-glossentrys$)))
|
||||
(empty-sosofo))))
|
||||
|
||||
(element glossary
|
||||
(html-document (with-mode head-title-mode
|
||||
(literal (element-title-string (current-node))))
|
||||
($glossary-body$)))
|
||||
|
||||
(element (glossary title) (empty-sosofo))
|
||||
|
||||
(element glossdiv
|
||||
(make element gi: "DIV"
|
||||
attributes: (list
|
||||
(list "CLASS" (gi)))
|
||||
($section-title$)
|
||||
(process-node-list ($glossary-frontmatter$))
|
||||
(if (not (node-list-empty? ($glossary-glossentrys$)))
|
||||
(make element gi: "DL"
|
||||
(process-node-list ($glossary-glossentrys$)))
|
||||
(empty-sosofo))))
|
||||
|
||||
(element (glossdiv title) (empty-sosofo))
|
||||
|
||||
(element glosslist
|
||||
(make element gi: "DIV"
|
||||
attributes: (list
|
||||
(list "CLASS" (gi)))
|
||||
(make element gi: "DL"
|
||||
(process-children))))
|
||||
|
||||
(element glossentry (process-children))
|
||||
|
||||
(element (glossentry glossterm)
|
||||
(let ((id (attribute-string (normalize "id") (parent (current-node)))))
|
||||
(make element gi: "DT"
|
||||
(if id
|
||||
(make sequence
|
||||
(make element gi: "A"
|
||||
attributes: (list
|
||||
(list "NAME" id))
|
||||
(empty-sosofo))
|
||||
(make element gi: "B"
|
||||
(process-children)))
|
||||
(make element gi: "B"
|
||||
(process-children))))))
|
||||
|
||||
(element (glossentry acronym)
|
||||
(make sequence
|
||||
(literal " (")
|
||||
(process-children)
|
||||
(literal ")")))
|
||||
|
||||
(element (glossentry abbrev) (empty-sosofo))
|
||||
|
||||
(element (glossentry glossdef)
|
||||
(make element gi: "DD"
|
||||
(process-children)))
|
||||
|
||||
(element (glossterm revhistory)
|
||||
(empty-sosofo))
|
||||
|
||||
(element (glossentry glosssee)
|
||||
(make element gi: "DD"
|
||||
(if (attribute-string (normalize "otherterm"))
|
||||
(make element gi: "P"
|
||||
(make element gi: "EM"
|
||||
(literal (gentext-element-name (gi))
|
||||
(gentext-label-title-sep (gi))))
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "HREF"
|
||||
(link-target
|
||||
(attribute-string
|
||||
(normalize "otherterm")))))
|
||||
(with-mode otherterm
|
||||
(process-element-with-id
|
||||
(attribute-string (normalize "otherterm"))))))
|
||||
(process-children))))
|
||||
|
||||
;; When we hit the first GLOSSSEEALSO, process all of them as a node-list
|
||||
(element glossseealso
|
||||
(if (first-sibling?)
|
||||
(make element gi: "P"
|
||||
(make sequence
|
||||
(make element gi: "EM"
|
||||
(literal (gentext-element-name (gi))
|
||||
(gentext-label-title-sep (gi))))
|
||||
(with-mode glossseealso
|
||||
(process-node-list
|
||||
(select-elements (children (parent)) '(glossseealso))))
|
||||
(literal ".")))
|
||||
(empty-sosofo)))
|
||||
|
||||
(mode glossseealso
|
||||
(element glossseealso
|
||||
(make sequence
|
||||
(if (first-sibling?)
|
||||
(empty-sosofo)
|
||||
(make element gi: "EM"
|
||||
(literal ", ")))
|
||||
(if (attribute-string (normalize "otherterm")) ;; but this should be required...
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "HREF"
|
||||
(link-target
|
||||
(attribute-string
|
||||
(normalize "otherterm")))))
|
||||
(with-mode otherterm
|
||||
(process-element-with-id
|
||||
(attribute-string (normalize "otherterm")))))
|
||||
(process-children)))))
|
||||
|
||||
;; This is referenced within the GLOSSSEE and GLOSSSEEALSO element
|
||||
;; construction expressions. The OTHERTERM attributes on GLOSSSEE and
|
||||
;; GLOSSSEEALSO (should) refer to GLOSSENTRY elements but we're only
|
||||
;; interested in the text within the GLOSSTERM. Discard the revision
|
||||
;; history and the definition from the referenced term.
|
||||
(mode otherterm
|
||||
(element glossterm
|
||||
(process-children))
|
||||
(element glossdef
|
||||
(empty-sosofo))
|
||||
(element revhistory
|
||||
(empty-sosofo))
|
||||
(element glosssee
|
||||
(empty-sosofo))
|
||||
(element (glossentry acronym)
|
||||
(empty-sosofo))
|
||||
(element (glossentry abbrev)
|
||||
(empty-sosofo)))
|
||||
|
||||
;; an inline gloss term
|
||||
(element glossterm
|
||||
(let* ((linkend (attribute-string (normalize "linkend"))))
|
||||
(if linkend
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "HREF" (href-to (element-with-id
|
||||
linkend))))
|
||||
($italic-seq$))
|
||||
($italic-seq$))))
|
||||
|
||||
;; a first glossterm
|
||||
(element firstterm
|
||||
(let* ((linkend (attribute-string (normalize "linkend")))
|
||||
(sosofo (if linkend
|
||||
(make element gi: "A"
|
||||
attributes: (list (list "HREF"
|
||||
(href-to
|
||||
(element-with-id
|
||||
linkend))))
|
||||
($italic-seq$))
|
||||
($italic-seq$))))
|
||||
(if firstterm-bold
|
||||
(make element gi: "B"
|
||||
sosofo)
|
||||
sosofo)))
|
||||
|
||||
124
docs/dsssl/docbook/html/dbgraph.dsl
Executable file
124
docs/dsssl/docbook/html/dbgraph.dsl
Executable file
@@ -0,0 +1,124 @@
|
||||
;; $Id$
|
||||
;;
|
||||
;; This file is part of the Modular DocBook Stylesheet distribution.
|
||||
;; See ../README or http://www.berkshire.net/~norm/dsssl/
|
||||
;;
|
||||
|
||||
;; ==================== GRAPHICS ====================
|
||||
|
||||
(define (graphic-file filename)
|
||||
(let ((ext (file-extension filename)))
|
||||
(if (or (not filename)
|
||||
(not %graphic-default-extension%)
|
||||
(member ext %graphic-extensions%))
|
||||
filename
|
||||
(string-append filename "." %graphic-default-extension%))))
|
||||
|
||||
(define (graphic-attrs imagefile instance-alt)
|
||||
(let* ((grove (sgml-parse image-library-filename))
|
||||
(imagelib (node-property 'document-element
|
||||
(node-property 'grove-root grove)))
|
||||
(images (select-elements (children imagelib) "image"))
|
||||
(image (let loop ((imglist images))
|
||||
(if (node-list-empty? imglist)
|
||||
#f
|
||||
(if (equal? (attribute-string
|
||||
"filename"
|
||||
(node-list-first imglist))
|
||||
imagefile)
|
||||
(node-list-first imglist)
|
||||
(loop (node-list-rest imglist))))))
|
||||
(prop (if image
|
||||
(select-elements (children image) "properties")
|
||||
#f))
|
||||
(metas (if prop
|
||||
(select-elements (children prop) "meta")
|
||||
#f))
|
||||
(attrs (if metas
|
||||
(let loop ((meta metas) (attrlist '()))
|
||||
(if (node-list-empty? meta)
|
||||
attrlist
|
||||
(if (equal? (attribute-string
|
||||
"imgattr"
|
||||
(node-list-first meta))
|
||||
"yes")
|
||||
(loop (node-list-rest meta)
|
||||
(append attrlist
|
||||
(list
|
||||
(list
|
||||
(attribute-string
|
||||
"name"
|
||||
(node-list-first meta))
|
||||
(attribute-string
|
||||
"content"
|
||||
(node-list-first meta))))))
|
||||
(loop (node-list-rest meta) attrlist))))
|
||||
(empty-node-list)))
|
||||
(width (if prop (attribute-string "width" prop) #f))
|
||||
(height (if prop (attribute-string "height" prop) #f))
|
||||
(alttext (if image
|
||||
(select-elements (children image) "alttext")
|
||||
(empty-node-list)))
|
||||
(alt (if instance-alt
|
||||
instance-alt
|
||||
(if (node-list-empty? alttext)
|
||||
#f
|
||||
(data alttext)))))
|
||||
(if (or width height alt (not (null? attrs)))
|
||||
(append
|
||||
attrs
|
||||
(if width (list (list "WIDTH" width)) '())
|
||||
(if height (list (list "HEIGHT" height)) '())
|
||||
(if (not (node-list-empty? alttext)) (list (list "ALT" alt)) '()))
|
||||
'())))
|
||||
|
||||
(define ($graphic$ fileref
|
||||
#!optional (format #f) (alt #f) (align #f) (width #f) (height #f))
|
||||
(let ((img-attr (append
|
||||
(list (list "SRC" (graphic-file fileref)))
|
||||
(if align (list (list "ALIGN" align)) '())
|
||||
(if width (list (list "WIDTH" width)) '())
|
||||
(if height (list (list "HEIGHT" height)) '())
|
||||
(if image-library (graphic-attrs fileref alt) '()))))
|
||||
(make empty-element gi: "IMG"
|
||||
attributes: img-attr)))
|
||||
|
||||
(define ($img$ #!optional (nd (current-node)) (alt #f))
|
||||
;; This function now supports an extension to DocBook. It's
|
||||
;; either a clever trick or an ugly hack, depending on your
|
||||
;; point of view, but it'll hold us until XLink is finalized
|
||||
;; and we can extend DocBook the "right" way.
|
||||
;;
|
||||
;; If the entity passed to GRAPHIC has the FORMAT
|
||||
;; "LINESPECIFIC", either because that's what's specified or
|
||||
;; because it's the notation of the supplied ENTITYREF, then
|
||||
;; the text of the entity is inserted literally (via Jade's
|
||||
;; read-entity external procedure).
|
||||
;;
|
||||
(let* ((fileref (attribute-string (normalize "fileref") nd))
|
||||
(entityref (attribute-string (normalize "entityref") nd))
|
||||
(format (if (attribute-string (normalize "format") nd)
|
||||
(attribute-string (normalize "format") nd)
|
||||
(if entityref
|
||||
(entity-notation entityref)
|
||||
#f)))
|
||||
(align (attribute-string (normalize "align") nd))
|
||||
(width (attribute-string (normalize "width") nd))
|
||||
(height (attribute-string (normalize "depth") nd)))
|
||||
(if (or fileref entityref)
|
||||
(if (equal? format (normalize "linespecific"))
|
||||
(if fileref
|
||||
(include-file fileref)
|
||||
(include-file (entity-generated-system-id entityref)))
|
||||
(if fileref
|
||||
($graphic$ fileref format alt align width height)
|
||||
($graphic$ (system-id-filename entityref)
|
||||
format alt align width height)))
|
||||
(empty-sosofo))))
|
||||
|
||||
(element graphic
|
||||
(make element gi: "P"
|
||||
($img$)))
|
||||
|
||||
(element inlinegraphic
|
||||
($img$))
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user