cvs: phpdoc /dsssl/docbook BUGS PHPDOC-NOTE README VERSION catalog /dsssl/docbook/common ChangeLog catalog cs-hack.pl dbcommon.dsl dbl10n.dsl
dbl10n.ent dbl10n.pl dbl10n.template dbl1af.dsl dbl1af.ent dbl1ca.dsl dbl1ca.ent dbl1cs.dsl dbl1cs.ent dbl1da.dsl dbl1da.ent dbl1de.dsl dbl1de.ent
dbl1el.dsl dbl1el.ent dbl1en.dsl dbl1en.ent dbl1es.dsl dbl1es.ent dbl1et.dsl dbl1et.ent dbl1eu.dsl dbl1eu.ent dbl1fi.dsl dbl1fi.ent dbl1fr.dsl
dbl1fr.ent dbl1he.ent dbl1hu.dsl dbl1hu.ent dbl1id.dsl dbl1id.ent dbl1it.dsl dbl1it.ent dbl1ja.dsl dbl1ja.ent dbl1ko.dsl dbl1ko.ent dbl1nl.dsl
dbl1nl.ent dbl1nn.dsl dbl1nn.ent dbl1no.dsl dbl1no.ent dbl1null.dsl dbl1pl.dsl dbl1pl.ent dbl1pt.dsl dbl1pt.ent dbl1ptbr.dsl dbl1ptbr.ent dbl1ro.dsl
dbl1ro.ent dbl1ru.dsl dbl1ru.ent dbl1sk.dsl dbl1sk.ent dbl1sl.dsl dbl1sl.ent dbl1sr.dsl dbl1sr.ent dbl1sv.dsl dbl1sv.ent dbl1th.ent dbl1tr.dsl
dbl1tr.ent dbl1uk.dsl dbl1uk.ent dbl1xh.dsl dbl1xh.ent dbl1zhcn.dsl dbl1zhcn.ent dbl1zhtw.dsl dbl1zhtw.ent dbtable.dsl

goba Sat Jul 20 07:07:58 2002 EDT Added files: /phpdoc/dsssl/docbook BUGS catalog PHPDOC-NOTE README VERSION /phpdoc/dsssl/docbook/common catalog ChangeLog cs-hack.pl dbcommon.dsl dbl10n.dsl dbl10n.ent dbl10n.pl dbl10n.template dbl1af.dsl dbl1af.ent dbl1ca.dsl dbl1ca.ent dbl1cs.dsl dbl1cs.ent dbl1da.dsl dbl1da.ent dbl1de.dsl dbl1de.ent dbl1el.dsl dbl1el.ent dbl1en.dsl dbl1en.ent dbl1es.dsl dbl1es.ent dbl1et.dsl dbl1et.ent dbl1eu.dsl dbl1eu.ent dbl1fi.dsl dbl1fi.ent dbl1fr.dsl dbl1fr.ent dbl1he.ent dbl1hu.dsl dbl1hu.ent dbl1id.dsl dbl1id.ent dbl1it.dsl dbl1it.ent dbl1ja.dsl dbl1ja.ent dbl1ko.dsl dbl1ko.ent dbl1nl.dsl dbl1nl.ent dbl1nn.dsl dbl1nn.ent dbl1no.dsl dbl1no.ent dbl1null.dsl dbl1pl.dsl dbl1pl.ent dbl1pt.dsl dbl1pt.ent dbl1ptbr.dsl dbl1ptbr.ent dbl1ro.dsl dbl1ro.ent dbl1ru.dsl dbl1ru.ent dbl1sk.dsl dbl1sk.ent dbl1sl.dsl dbl1sl.ent dbl1sr.dsl dbl1sr.ent dbl1sv.dsl dbl1sv.ent dbl1th.ent dbl1tr.dsl dbl1tr.ent dbl1uk.dsl dbl1uk.ent dbl1xh.dsl dbl1xh.ent dbl1zhcn.dsl dbl1zhcn.ent dbl1zhtw.dsl dbl1zhtw.ent dbtable.dsl Log: Adding DocBook DSSSL style sheets, latest 1.77 version (first phase). This sheet distribution is tested to be working with our DSSSL customizations [at least on my computer].

Index: phpdoc/dsssl/docbook/common/cs-hack.pl +++ phpdoc/dsssl/docbook/common/cs-hack.pl #!/bin/perl -- # -*- Perl -*- # Charset hacking... while (<>) { s/\&\#(\d+);/sprintf("\\U-%04X;", $1)/egs; print; } Index: phpdoc/dsssl/docbook/common/dbcommon.dsl +++ phpdoc/dsssl/docbook/common/dbcommon.dsl ;; $Id: dbcommon.dsl,v 1.1 2002/07/20 11:07:53 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; This file contains general functions common to both print and HTML ;; versions of the DocBook stylesheets. ;; ;; If **ANY** change is made to this file, you _MUST_ alter the ;; following definition: (define %docbook-common-version% "Modular DocBook Stylesheet Common Functions") ;; === element lists ==================================================== ;; these have to be functions because they have to be evaluated when ;; there is a current-node so that normalize can know what declaration ;; is in effect (define (set-element-list) (list (normalize "set"))) (define (book-element-list) (list (normalize "book"))) (define (division-element-list) (list (normalize "part"))) (define (component-element-list) (list (normalize "preface") (normalize "chapter") (normalize "appendix") (normalize "article") (normalize "glossary") (normalize "bibliography") (normalize "index") (normalize "colophon") (normalize "setindex") (normalize "reference") (normalize "refentry") (normalize "book"))) ;; just in case nothing else matches... (define (major-component-element-list) (list (normalize "preface") (normalize "chapter") (normalize "appendix") (normalize "article") (normalize "glossary") (normalize "bibliography") (normalize "index") (normalize "colophon") (normalize "setindex") (normalize "reference") (normalize "refentry") (normalize "part") (normalize "book"))) ;; just in case nothing else matches... (define (section-element-list) (list (normalize "sect1") (normalize "sect2") (normalize "sect3") (normalize "sect4") (normalize "sect5") (normalize "section") (normalize "simplesect") (normalize "refsect1") (normalize "refsect2") (normalize "refsect3"))) (define (block-element-list) (list (normalize "example") (normalize "figure") (normalize "table") (normalize "equation") (normalize "procedure"))) (define (outer-parent-list) (list (normalize "toc") (normalize "lot") (normalize "appendix") (normalize "chapter") (normalize "part") (normalize "preface") (normalize "reference") (normalize "bibliography") (normalize "glossary") (normalize "index") (normalize "setindex") (normalize "sect1") (normalize "sect2") (normalize "sect3") (normalize "sect4") (normalize "sect5") (normalize "simplesect") (normalize "partintro") (normalize "bibliodiv") (normalize "glossdiv") (normalize "indexdiv") (normalize "refentry") (normalize "refsect1") (normalize "refsect2") (normalize "refsect3") (normalize "msgtext") (normalize "msgexplan"))) (define (list-element-list) (list (normalize "orderedlist") (normalize "itemizedlist") (normalize "variablelist") (normalize "segmentedlist") (normalize "simplelist") (normalize "calloutlist") (normalize "step"))) (define (info-element-list) (list (normalize "appendixinfo") (normalize "articleinfo") (normalize "bibliographyinfo") (normalize "bookinfo") (normalize "chapterinfo") (normalize "glossaryinfo") (normalize "indexinfo") (normalize "objectinfo") (normalize "partinfo") (normalize "prefaceinfo") (normalize "refentryinfo") (normalize "referenceinfo") (normalize "refsect1info") (normalize "refsect2info") (normalize "refsect3info") (normalize "refsynopsisdivinfo") (normalize "sect1info") (normalize "sect2info") (normalize "sect3info") (normalize "sect4info") (normalize "sect5info") (normalize "sectioninfo") (normalize "setindexinfo") (normalize "setinfo") (normalize "sidebarinfo") ;; historical (normalize "artheader") (normalize "docinfo"))) ;; === automatic TOC ==================================================== ;; Returns #t if nd should appear in the auto TOC (define (appears-in-auto-toc? nd) (if (or (equal? (gi nd) (normalize "refsect1")) (have-ancestor? (normalize "refsect1") nd)) #f #t)) ;; # return elements of nl for which appears-in-auto-toc? is #t (define (toc-list-filter nodelist) (let loop ((toclist (empty-node-list)) (nl nodelist)) (if (node-list-empty? nl) toclist (if (appears-in-auto-toc? (node-list-first nl)) (loop (node-list toclist (node-list-first nl)) (node-list-rest nl)) (loop toclist (node-list-rest nl)))))) ;; === common =========================================================== (define (INLIST?) (has-ancestor-member? (current-node) (list-element-list))) (define (INBLOCK?) (has-ancestor-member? (current-node) (list (normalize "example") (normalize "informalexample") (normalize "figure") (normalize "informalfigure") (normalize "equation") (normalize "informalequation") (normalize "funcsynopsis") (normalize "programlistingco") (normalize "screenco") (normalize "graphicco")))) (define (PARNUM) (child-number (parent (current-node)))) (define (NESTEDFNUM n fmt) (if (number? n) (format-number n fmt) #f)) (define (FNUM n) (NESTEDFNUM n "1")) (define (book-start?) ;; Returns #t if the current-node is in the first division or ;; component of a book. (let ((book (ancestor (normalize "book"))) (nd (ancestor-member (current-node) (append (component-element-list) (division-element-list))))) (let loop ((ch (children book))) (if (node-list-empty? ch) #f (if (member (gi (node-list-first ch)) (append (component-element-list) (division-element-list))) (node-list=? (node-list-first ch) nd) (loop (node-list-rest ch))))))) (define (first-chapter?) ;; Returns #t if the current-node is in the first chapter of a book (let* ((book (ancestor (normalize "book"))) (nd (ancestor-member (current-node) (append (component-element-list) (division-element-list)))) (bookch (children book)) (bookcomp (expand-children bookch (list (normalize "part"))))) (let loop ((nl bookcomp)) (if (node-list-empty? nl) #f (if (equal? (gi (node-list-first nl)) (normalize "chapter")) (if (node-list=? (node-list-first nl) nd) #t #f) (loop (node-list-rest nl))))))) ;; === bibliographic ==================================================== ;; Localized author-string (define (author-list-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of AUTHOR ;; *including appropriate punctuation* if the AUTHOR occurs in a list ;; of AUTHORs in an AUTHORGROUP: ;; ;; John Doe ;; or ;; John Doe and Jane Doe ;; or ;; John Doe, Jane Doe, and A. Nonymous ;; (let* ((author-node-list (select-elements (descendants (ancestor (normalize "authorgroup") author)) (normalize "author"))) (corpauthor-node-list (select-elements (descendants (ancestor (normalize "authorgroup") author)) (normalize "corpauthor"))) (othercredit-node-list (select-elements (descendants (ancestor (normalize "authorgroup") author)) (normalize "othercredit"))) (editor-node-list (select-elements (descendants (ancestor (normalize "authorgroup"))) (normalize "editor"))) (author-count (if (have-ancestor? (normalize "authorgroup") author) (+ (node-list-length author-node-list) (node-list-length corpauthor-node-list) (node-list-length othercredit-node-list) (node-list-length editor-node-list)) 1)) (this-count (if (have-ancestor? (normalize "authorgroup") author) (+ (node-list-length (preced author)) 1) 1))) (string-append (if (and (> author-count 1) (last-sibling? author)) (string-append (gentext-and) " ") "") (author-string author) (if (> author-count 2) (if (> (- author-count this-count) 1) (gentext-listcomma) (if (= (- author-count this-count) 1) (gentext-lastlistcomma) "")) "") (if (and (> author-count 1) (not (last-sibling? author))) " " "")))) ;; === procedures ======================================================= (define ($proc-hierarch-number-format$ depth) (case (modulo depth 5) ((1) "1") ((2) "a") ((3) "i") ((4) "A") (else "I"))) (define ($proc-hierarch-number$ nd seperator) (if (equal? (gi nd) (normalize "step")) (string-append (format-number (child-number nd) ($proc-hierarch-number-format$ ($proc-step-depth$ nd))) seperator) "")) (define ($proc-step-depth$ nd) (let loop ((step nd) (depth 0)) (if (equal? (gi step) (normalize "procedure")) depth (loop (parent step) (if (equal? (gi step) (normalize "step")) (+ depth 1) depth))))) (define ($proc-step-number$ nd) (let* ((step (if (equal? (gi nd) (normalize "step")) nd (parent nd))) (str ($proc-hierarch-number$ step ""))) (string-append str (gentext-label-title-sep (normalize "step"))))) (define ($proc-step-xref-number$ nd) (let loop ((step nd) (str "") (first #t)) (if (equal? (gi step) (normalize "procedure")) str (loop (parent step) (if (equal? (gi step) (normalize "step")) (string-append ($proc-hierarch-number$ step (if first "" (gentext-intra-label-sep (normalize "step")))) str) str) (if (equal? (gi step) (normalize "step")) #f first))))) ;; === sections ========================================================= (define (section-level-by-gi chunked? gi) ;; Figure out the heading level of an element by its name. We need ;; to distinguish between the chunked processing mode (for HTML) and ;; the non-chunked (print or HTML). It is important that no heading ;; level is skipped in a document structure (e.g., sect1 = 2, sect2 ;; = 4); this results in broken PDF bookmarks. (if chunked? (cond ((equal? gi (normalize "sect5")) 5) ((equal? gi (normalize "sect4")) 4) ((equal? gi (normalize "sect3")) 3) ((equal? gi (normalize "sect2")) 2) ((equal? gi (normalize "sect1")) 1) ((equal? gi (normalize "refsect3")) 4) ((equal? gi (normalize "refsect2")) 3) ((equal? gi (normalize "refsect1")) 2) ((equal? gi (normalize "refsynopsisdiv")) 2) ((equal? gi (normalize "bibliography")) 1) ((equal? gi (normalize "bibliodiv")) 2) ((equal? gi (normalize "index")) 1) ((equal? gi (normalize "setindex")) 1) ((equal? gi (normalize "indexdiv")) 2) (else 1)) (cond ((equal? gi (normalize "sect5")) 6) ((equal? gi (normalize "sect4")) 5) ((equal? gi (normalize "sect3")) 4) ((equal? gi (normalize "sect2")) 3) ((equal? gi (normalize "sect1")) 2) ;; The next four are not used by the HTML stylesheets. ((equal? gi (normalize "refsect3")) 5) ((equal? gi (normalize "refsect2")) 4) ((equal? gi (normalize "refsect1")) 3) ((equal? gi (normalize "refsynopsisdiv")) 3) ((equal? gi (normalize "bibliography")) 1) ((equal? gi (normalize "bibliodiv")) 2) ((equal? gi (normalize "index")) 1) ((equal? gi (normalize "setindex")) 1) ((equal? gi (normalize "indexdiv")) 2) (else 1)))) (define (section-level-by-node chunked? sect) (if (equal? (gi sect) (normalize "section")) ;; Section is special, it is recursive. (let ((depth (length (hierarchical-number-recursive (normalize "section"))))) (if (> depth 5) 6 (+ depth 1))) (if (equal? (gi sect) (normalize "simplesect")) ;; SimpleSect is special, it should be level "n+1", where "n" is ;; the level of the numbered section that contains it. If it is ;; the *first* sectioning element in a chapter, make it ;; %default-simplesect-level% (cond ((have-ancestor? (normalize "sect5")) (+ 1 (section-level-by-gi chunked? (normalize "sect5")))) ((have-ancestor? (normalize "sect4")) (+ 1 (section-level-by-gi chunked? (normalize "sect4")))) ((have-ancestor? (normalize "sect3")) (+ 1 (section-level-by-gi chunked? (normalize "sect3")))) ((have-ancestor? (normalize "sect2")) (+ 1 (section-level-by-gi chunked? (normalize "sect2")))) ((have-ancestor? (normalize "sect1")) (+ 1 (section-level-by-gi chunked? (normalize "sect1")))) ((have-ancestor? (normalize "refsect3")) (+ 1 (section-level-by-gi chunked? (normalize "refsect3")))) ((have-ancestor? (normalize "refsect2")) (+ 1 (section-level-by-gi chunked? (normalize "refsect2")))) ((have-ancestor? (normalize "refsect1")) (+ 1 (section-level-by-gi chunked? (normalize "refsect1")))) (else %default-simplesect-level%)) ;; the rest of the section elements can be identified by name (section-level-by-gi chunked? (gi sect))))) ;; === synopsis ========================================================= ;; The following definitions match those given in the reference ;; documentation for DocBook V3.0 (define %arg-choice-opt-open-str% "[") (define %arg-choice-opt-close-str% "]") (define %arg-choice-req-open-str% "{") (define %arg-choice-req-close-str% "}") (define %arg-choice-plain-open-str% " ") (define %arg-choice-plain-close-str% " ") (define %arg-choice-def-open-str% "[") (define %arg-choice-def-close-str% "]") (define %arg-rep-repeat-str% "...") (define %arg-rep-norepeat-str% "") (define %arg-rep-def-str% "") (define %arg-or-sep% " | ") (define %cmdsynopsis-hanging-indent% 4pi) ;; === linking ========================================================== ;; From the DocBook V3.0 Reference entry for element XREF: ;; ;; Description ;; ;; Cross reference link to another part of the document. XRef is empty, ;; and has common, Linkend, and Endterm attributes. ;; ;; Processing Expectations ;; ;; XRef must have a Linkend, but the Endterm is optional. If it is used, ;; the content of the element it points to is displayed as the text of ;; the cross reference; if it is absent, the XRefLabel of the ;; cross-referenced object is displayed. ;; ;; If neither the ENDTERM nor the XREFLABEL is present, then the cross ;; reference text is taken from the (gentext-xref-strings) function ;; in the localization file, like this ;; ;; A cross reference to an element, the target, begins with the ;; text returned by (gentext-xref-strings (gi target)). Within ;; that text, the following substitutions are made: ;; ;; %p is replaced by the number of the page on which target occurs ;; %g is replaced by the (gentext-element-name) ;; %n is replaced by the label ;; %t is replaced by the title ;; ;; After the "direct" cross reference, a number of indirect references ;; are possible. If the target element is in a different block, section, ;; component, division, or book an indirect cross reference may be made. ;; ;; The indirect cross reference will only be made if ;; ;; (auto-xref-indirect? target ancestor) ;; ;; returns #t. The indirect reference is created by appending the ;; connect returned by (auto-xref-indirect-connector) to the direct ;; reference and then adding a direct refernce to the ancestor. ;; The process is repeated for each ancestral element. ;; ;; For example, if a direct reference to a section returns ;; ;; "the section called %t" ;; ;; and a direct reference to a chapter returns ;; ;; "Chapter %n" ;; ;; and (auto-xref-indirect? sect1 chapter) returns #t, and ;; (auto-xref-indirect-connector chapter) returns "in", then ;; an xref to a section in another chapter will be: ;; ;; "the section called %t in Chapter %n" ;; ;; Where %t and %n will be filled in accordingly. ;; ;; ====================================================================== (define (auto-xref-indirect? target ancestor) ;; This function answers the question: should an indirect reference ;; to ancestor be made for target? For example: ;; ;; (auto-xref-indirect? SECT1 CHAP) ;; ;; should return #t iff a reference of the form "in [CHAP-xref]" should ;; be generated for a reference to SECT1 if SECT1 is in a different ;; chapter than the XREF to SECT1. ;; ;; This function _does not_ have to consider the case of whether or ;; not target and the xref are in the same ancestor. ;; (cond ;; Always add indirect references to another book ((member (gi ancestor) (book-element-list)) #t) ;; Add indirect references to the section or component a block ;; is in iff chapters aren't autolabelled. (Otherwise "Figure 1-3" ;; is sufficient) ((and (member (gi target) (block-element-list)) (not %chapter-autolabel%)) #t) ;; Add indirect references to the component a section is in if ;; the sections are not autolabelled ((and (member (gi target) (section-element-list)) (member (gi ancestor) (component-element-list)) (not %section-autolabel%)) #t) (else #f))) (define (auto-xref-direct target #!optional (xref-string (gentext-xref-strings target))) (let* ((substitute (list (list "%g" (element-gi-sosofo target)) (list "%n" (element-label-sosofo target)) (list "%p" (element-page-number-sosofo target)) (list "%t" (element-title-xref-sosofo target)))) (tlist (match-split-list xref-string (assoc-objs substitute)))) (string-list-sosofo tlist substitute))) (define (auto-xref-indirect target #!optional (xref-string (gentext-xref-strings target))) (make sequence (auto-xref-indirect-connector target) (auto-xref-direct target xref-string))) (define (auto-xref target #!optional (xref-string (gentext-xref-strings target))) (let ((source (current-node)) (cont-blok (ancestor-member target (block-element-list))) (cont-sect (ancestor-member target (section-element-list))) (cont-comp (ancestor-member target (component-element-list))) (cont-divn (ancestor-member target (division-element-list))) (cont-book (ancestor-member target (book-element-list)))) (make sequence (auto-xref-direct target xref-string) (if (or (node-list=? cont-blok (ancestor-member source (block-element-list))) (node-list=? cont-blok target) (not (auto-xref-indirect? target cont-blok))) (empty-sosofo) (auto-xref-indirect cont-blok)) (if (or (node-list=? cont-sect (ancestor-member source (section-element-list))) (node-list=? cont-sect target) (not (auto-xref-indirect? target cont-sect))) (empty-sosofo) (auto-xref-indirect cont-sect)) (if (or (node-list=? cont-comp (ancestor-member source (component-element-list))) (node-list=? cont-comp target) (not (auto-xref-indirect? target cont-comp))) (empty-sosofo) (auto-xref-indirect cont-comp)) (if (or (node-list=? cont-divn (ancestor-member source (division-element-list))) (node-list=? cont-divn target) (not (auto-xref-indirect? target cont-divn))) (empty-sosofo) (auto-xref-indirect cont-divn)) (if (or (node-list=? cont-book (ancestor-member source (book-element-list))) (node-list=? cont-book target) (not (auto-xref-indirect? target cont-book))) (empty-sosofo) (auto-xref-indirect cont-book))))) ;; ====================================================================== (define (set-number-restart-list cmp) (list (normalize "set"))) (define (book-number-restart-list cmp) (list (normalize "set"))) (define (part-number-restart-list cmp) (list (normalize "book"))) (define (reference-number-restart-list cmp) (list (normalize "book"))) (define (preface-number-restart-list cmp) (list (normalize "book"))) (define (chapter-number-restart-list cmp) (list (normalize "book"))) (define (appendix-number-restart-list cmp) (list (normalize "book") (normalize "article"))) (define (article-number-restart-list cmp) (list (normalize "book"))) (define (glossary-number-restart-list cmp) (list (normalize "book"))) (define (bibliography-number-restart-list cmp) (list (normalize "book"))) (define (index-number-restart-list cmp) (list (normalize "book"))) (define (setindex-number-restart-list cmp) (list (normalize "set"))) (define (refentry-number-restart-list cmp) (list (normalize "reference"))) (define (default-number-restart-list cmp) (list (normalize "book"))) (define (component-number-restart-list cmp) ;; Return the list of elements at which numbering of 'cmp' should reset. ;; For example, for CHAPTER, it might return '("BOOK") causing chapters ;; to be sequentially numbered across a book. If it returned ;; '("BOOK" "PART") then chapter numbering would restart at each ;; BOOK or PART. (let ((name (gi cmp))) (cond ((equal? name (normalize "set")) (set-number-restart-list cmp)) ((equal? name (normalize "book")) (book-number-restart-list cmp)) ((equal? name (normalize "part")) (part-number-restart-list cmp)) ((equal? name (normalize "reference")) (reference-number-restart-list cmp)) ((equal? name (normalize "preface")) (preface-number-restart-list cmp)) ((equal? name (normalize "chapter")) (chapter-number-restart-list cmp)) ((equal? name (normalize "appendix")) (appendix-number-restart-list cmp)) ((equal? name (normalize "article")) (article-number-restart-list cmp)) ((equal? name (normalize "glossary")) (glossary-number-restart-list cmp)) ((equal? name (normalize "bibliography")) (bibliography-number-restart-list cmp)) ((equal? name (normalize "index")) (index-number-restart-list cmp)) ((equal? name (normalize "setindex")) (setindex-number-restart-list cmp)) ((equal? name (normalize "refentry")) (refentry-number-restart-list cmp)) (else (default-number-restart-list cmp))))) (define (set-number-ignore-list cmp) '()) (define (book-number-ignore-list cmp) '()) (define (part-number-ignore-list cmp) '()) (define (reference-number-ignore-list cmp) (list (normalize "part"))) (define (preface-number-ignore-list cmp) (list (normalize "part"))) (define (chapter-number-ignore-list cmp) (list (normalize "part"))) (define (appendix-number-ignore-list cmp) (list (normalize "part"))) (define (article-number-ignore-list cmp) (list (normalize "part"))) (define (glossary-number-ignore-list cmp) (list (normalize "part"))) (define (bibliography-number-ignore-list cmp) (list (normalize "part"))) (define (index-number-ignore-list cmp) (list (normalize "part"))) (define (setindex-number-ignore-list cmp) (list (normalize "part"))) (define (refentry-number-ignore-list cmp) '()) (define (default-number-ignore-list cmp) '()) (define (component-number-ignore-list cmp) ;; Return the list of elements (inside the restart list) which are ;; hierarchy levels which should be ignored. For example, for CHAPTER, ;; it might return '("PART") causing chapter numbering inside books ;; to ignore parts. ;; ;; Basically, if you skip up past a component/division element in ;; the restart list, you better put the element(s) you skipped in ;; the ignore list or the stylesheet may never see your component ;; when it's trying to do the numbering. (let ((name (gi cmp))) (cond ((equal? name (normalize "set")) (set-number-ignore-list cmp)) ((equal? name (normalize "book")) (book-number-ignore-list cmp)) ((equal? name (normalize "part")) (part-number-ignore-list cmp)) ((equal? name (normalize "reference")) (reference-number-ignore-list cmp)) ((equal? name (normalize "preface")) (preface-number-ignore-list cmp)) ((equal? name (normalize "chapter")) (chapter-number-ignore-list cmp)) ((equal? name (normalize "appendix")) (appendix-number-ignore-list cmp)) ((equal? name (normalize "article")) (article-number-ignore-list cmp)) ((equal? name (normalize "glossary")) (glossary-number-ignore-list cmp)) ((equal? name (normalize "bibliography")) (bibliography-number-ignore-list cmp)) ((equal? name (normalize "index")) (index-number-ignore-list cmp)) ((equal? name (normalize "setindex")) (setindex-number-ignore-list cmp)) ((equal? name (normalize "refentry")) (refentry-number-ignore-list cmp)) (else (default-number-ignore-list cmp))))) (define (set-number-sibling-list cmp) '()) (define (book-number-sibling-list cmp) '()) (define (part-number-sibling-list cmp) '()) (define (reference-number-sibling-list cmp) '()) (define (preface-number-sibling-list cmp) '()) (define (chapter-number-sibling-list cmp) '()) (define (appendix-number-sibling-list cmp) '()) (define (article-number-sibling-list cmp) '()) (define (glossary-number-sibling-list cmp) '()) (define (bibliography-number-sibling-list cmp) '()) (define (index-number-sibling-list cmp) '()) (define (setindex-number-sibling-list cmp) '()) (define (refentry-number-sibling-list cmp) '()) (define (default-number-sibling-list cmp) '()) (define (component-number-sibling-list cmp) ;; Return the list of elements with which 'cmp' should be numbered. ;; For example, for PART it might return '("PART" "REFERENCE") causing ;; sibling parts and references to be numbered together. (let ((name (gi cmp))) (cond ((equal? name (normalize "set")) (set-number-sibling-list cmp)) ((equal? name (normalize "book")) (book-number-sibling-list cmp)) ((equal? name (normalize "part")) (part-number-sibling-list cmp)) ((equal? name (normalize "reference")) (reference-number-sibling-list cmp)) ((equal? name (normalize "preface")) (preface-number-sibling-list cmp)) ((equal? name (normalize "chapter")) (chapter-number-sibling-list cmp)) ((equal? name (normalize "appendix")) (appendix-number-sibling-list cmp)) ((equal? name (normalize "article")) (article-number-sibling-list cmp)) ((equal? name (normalize "glossary")) (glossary-number-sibling-list cmp)) ((equal? name (normalize "bibliography")) (bibliography-number-sibling-list cmp)) ((equal? name (normalize "index")) (index-number-sibling-list cmp)) ((equal? name (normalize "setindex")) (setindex-number-sibling-list cmp)) ((equal? name (normalize "refentry")) (refentry-number-sibling-list cmp)) (else (default-number-sibling-list cmp))))) (define (component-number component-node) (let* ((root (ancestor-member component-node (component-number-restart-list component-node))) (clist (expand-children (children root) (component-number-ignore-list component-node))) (slist (append (list (gi component-node)) (component-number-sibling-list component-node)))) (let loop ((nl clist) (count 1)) (if (node-list-empty? nl) 1 (if (node-list=? (node-list-first nl) component-node) count (if (member (gi (node-list-first nl)) slist) (loop (node-list-rest nl) (+ count 1)) (loop (node-list-rest nl) count))))))) ;; == components and divisions == (define (set-autolabel nd #!optional (force-label? #f)) "") (define (book-autolabel nd #!optional (force-label? #f)) "") (define (part-autolabel nd #!optional (force-label? #f)) (format-number (component-number nd) (label-number-format nd))) (define (reference-autolabel nd #!optional (force-label? #f)) (format-number (component-number nd) (label-number-format nd))) (define (preface-autolabel nd #!optional (force-label? #f)) "") (define (chapter-autolabel nd #!optional (force-label? #f)) (if (or force-label? %chapter-autolabel%) (format-number (component-number nd) (label-number-format nd)) "")) (define (appendix-autolabel nd #!optional (force-label? #f)) ;; Abandoned special processing for appendixes in articles. Maybe ;; it's a good idea, but it can't be done here because it screws ;; up cross references to appendixes. (if (or force-label? %chapter-autolabel%) (format-number (component-number nd) (label-number-format nd)) "")) (define (article-autolabel nd #!optional (force-label? #f)) "") (define (glossary-autolabel nd #!optional (force-label? #f)) "") (define (bibliography-autolabel nd #!optional (force-label? #f)) "") (define (index-autolabel nd #!optional (force-label? #f)) "") (define (indexdiv-autolabel nd #!optional (force-label? #f)) "") (define (colophon-autolabel nd #!optional (force-label? #f)) "") (define (setindex-autolabel nd #!optional (force-label? #f)) "") (define (refentry-autolabel nd #!optional (force-label? #f)) (let* ((isep (gentext-intra-label-sep nd)) (refnamediv (select-elements (children nd) (normalize "refnamediv"))) (refd (select-elements (children refnamediv) (normalize "refdescriptor"))) (refnames (select-elements (children refnamediv) (normalize "refname")))) "")) ;; == /components and divisions == (define (dedication-autolabel nd #!optional (force-label? #f)) "") (define (bibliodiv-autolabel nd #!optional (force-label? #f)) "") (define (glossdiv-autolabel nd #!optional (force-label? #f)) "") (define (section-autolabel-prefix nd) (let* ((isep (gentext-intra-label-sep nd)) (haschn (not (node-list-empty? (ancestor (normalize "chapter") nd)))) (hasapn (not (node-list-empty? (ancestor (normalize "appendix") nd))))) (cond (haschn (string-append (element-label (ancestor (normalize "chapter") nd)) isep)) (hasapn (string-append (element-label (ancestor (normalize "appendix") nd)) isep)) (else "")))) (define (section-autolabel nd #!optional (force-label? #f)) (let* ((isep (gentext-intra-label-sep nd)) (hasprf (not (node-list-empty? (ancestor (normalize "preface") nd)))) (prefix (section-autolabel-prefix nd))) (if (and (or force-label? %section-autolabel%) (or %label-preface-sections% (not hasprf))) (cond ((equal? (gi nd) (normalize "sect1")) (string-append prefix (format-number (child-number nd) (label-number-format nd)))) ((equal? (gi nd) (normalize "sect2")) (string-append (element-label (ancestor (normalize "sect1") nd) force-label?) isep (format-number (child-number nd) (label-number-format nd)))) ((equal? (gi nd) (normalize "sect3")) (string-append (element-label (ancestor (normalize "sect2") nd) force-label?) isep (format-number (child-number nd) (label-number-format nd)))) ((equal? (gi nd) (normalize "sect4")) (string-append (element-label (ancestor (normalize "sect3") nd) force-label?) isep (format-number (child-number nd) (label-number-format nd)))) ((equal? (gi nd) (normalize "sect5")) (string-append (element-label (ancestor (normalize "sect4") nd) force-label?) isep (format-number (child-number nd) (label-number-format nd)))) ((equal? (gi nd) (normalize "simplesect")) (let* ((possible-sect-ancestors (node-list (ancestor (normalize "section") nd) (ancestor (normalize "sect5") nd) (ancestor (normalize "sect4") nd) (ancestor (normalize "sect3") nd) (ancestor (normalize "sect2") nd) (ancestor (normalize "sect1") nd))) (section-ancestor (node-list-first possible-sect-ancestors))) (if (node-list-empty? section-ancestor) (string-append prefix (format-number (child-number nd) (label-number-format nd))) (string-append (element-label section-ancestor force-label?) isep (format-number (child-number nd) (label-number-format nd)))))) ((equal? (gi nd) (normalize "section")) (if (node-list-empty? (ancestor (normalize "section") nd)) (string-append prefix (format-number (child-number nd) (label-number-format nd))) (string-append (element-label (ancestor (normalize "section") nd) force-label?) isep (format-number (child-number nd) (label-number-format nd))))) (else (string-append (gi nd) " IS NOT A SECTION!"))) ""))) (define (refsection-autolabel nd #!optional (force-label? #f)) "") (define (step-autolabel nd #!optional (force-label? #f)) ($proc-step-xref-number$ nd)) (define (listitem-autolabel nd #!optional (force-label? #f)) (if (equal? (gi (parent nd)) (normalize "orderedlist")) (number->string (child-number nd)) "[xref to LISTITEM only supported in ORDEREDLIST]")) (define (sidebar-autolabel nd #!optional (force-label? #f)) "") (define (legalnotice-autolabel nd #!optional (force-label? #f)) "") (define (abstract-autolabel nd #!optional (force-label? #f)) "") (define (block-autolabel nd #!optional (force-label? #f)) (let* ((chn (element-label (ancestor (normalize "chapter") nd))) (apn (element-label (ancestor (normalize "appendix") nd))) (rfn (element-label (ancestor (normalize "refentry") nd))) ;; If the root of this document isn't in component-element-list, these ;; things all wind up being numbered 0. To avoid that, we force the ;; root element to be in the list of components if it isn't already ;; a component. (incomp (member (gi (sgml-root-element)) (component-element-list))) ;; In articles in books, number blocks from book not from article. ;; Otherwise you get 1, 1, 1, 1, etc. for the first figure in each ;; article. (artinbook (and (not (node-list-empty? (ancestor (normalize "article") nd))) (not (node-list-empty? (ancestor (normalize "book") nd))))) (bkn (if artinbook (format-number (component-child-number nd (list (normalize "book"))) (label-number-format nd)) (if incomp (format-number (component-child-number nd (component-element-list)) (label-number-format nd)) (format-number (component-child-number nd (append (component-element-list) (list (gi (sgml-root-element))))) (label-number-format nd)))))) (if (equal? chn "") (if (equal? apn "") (if (equal? rfn "") bkn (string-append rfn (gentext-intra-label-sep nd) bkn)) (string-append apn (gentext-intra-label-sep nd) bkn)) (string-append chn (gentext-intra-label-sep nd) bkn)))) ;; For all elements, if a LABEL attribute is present, that is the label ;; that they get. Otherwise: ;; BOOK gets the Book volume, by book-autolabel ;; PREFACE gets "", by preface-autolabel ;; CHAPTER gets the Chapter number, by chapter-autolabel ;; APPENDIX gets the Appendix letter, by appendix-autolabel ;; REFERENCE gets "", by reference-autolabel ;; REFENTRY gets "", by refentry-autolabel ;; SECT* gets the nested section number (e.g., 1.3.5), by section-autolabel ;; REFSECT* gets the nested section number, by refsection-autolabel ;; everything else gets numbered by block-autolabel ;; (define (element-label #!optional (nd (current-node)) (force-label? #f)) (if (node-list-empty? nd) "" (let ((label (attribute-string (normalize "label") nd))) (if label label (cond ;; Use a seperately defined assoc list? ((equal? (gi nd) (normalize "abstract")) (abstract-autolabel nd force-label?)) ((equal? (gi nd) (normalize "appendix")) (appendix-autolabel nd force-label?)) ((equal? (gi nd) (normalize "article")) (article-autolabel nd force-label?)) ((equal? (gi nd) (normalize "bibliodiv")) (bibliodiv-autolabel nd force-label?)) ((equal? (gi nd) (normalize "bibliography")) (bibliography-autolabel nd force-label?)) ((equal? (gi nd) (normalize "book")) (book-autolabel nd force-label?)) ((equal? (gi nd) (normalize "chapter")) (chapter-autolabel nd force-label?)) ((equal? (gi nd) (normalize "dedication")) (dedication-autolabel nd force-label?)) ((equal? (gi nd) (normalize "glossary")) (glossary-autolabel nd force-label?)) ((equal? (gi nd) (normalize "glossdiv")) (glossdiv-autolabel nd force-label?)) ((equal? (gi nd) (normalize "index")) (index-autolabel nd force-label?)) ((equal? (gi nd) (normalize "colophon")) (colophon-autolabel nd force-label?)) ((equal? (gi nd) (normalize "indexdiv")) (indexdiv-autolabel nd force-label?)) ((equal? (gi nd) (normalize "setindex")) (setindex-autolabel nd force-label?)) ((equal? (gi nd) (normalize "legalnotice")) (legalnotice-autolabel nd force-label?)) ((equal? (gi nd) (normalize "listitem")) (listitem-autolabel nd force-label?)) ((equal? (gi nd) (normalize "part")) (part-autolabel nd force-label?)) ((equal? (gi nd) (normalize "preface")) (preface-autolabel nd force-label?)) ((equal? (gi nd) (normalize "refentry")) (refentry-autolabel nd force-label?)) ((equal? (gi nd) (normalize "reference")) (reference-autolabel nd force-label?)) ((equal? (gi nd) (normalize "refsynopsisdiv")) (refsection-autolabel nd force-label?)) ((equal? (gi nd) (normalize "refsect1")) (refsection-autolabel nd force-label?)) ((equal? (gi nd) (normalize "refsect2")) (refsection-autolabel nd force-label?)) ((equal? (gi nd) (normalize "refsect3")) (refsection-autolabel nd force-label?)) ((equal? (gi nd) (normalize "sect1")) (section-autolabel nd force-label?)) ((equal? (gi nd) (normalize "sect2")) (section-autolabel nd force-label?)) ((equal? (gi nd) (normalize "sect3")) (section-autolabel nd force-label?)) ((equal? (gi nd) (normalize "sect4")) (section-autolabel nd force-label?)) ((equal? (gi nd) (normalize "sect5")) (section-autolabel nd force-label?)) ((equal? (gi nd) (normalize "section")) (section-autolabel nd force-label?)) ((equal? (gi nd) (normalize "simplesect")) (section-autolabel nd force-label?)) ((equal? (gi nd) (normalize "set")) (set-autolabel nd force-label?)) ((equal? (gi nd) (normalize "sidebar")) (sidebar-autolabel nd force-label?)) ((equal? (gi nd) (normalize "step")) (step-autolabel nd force-label?)) (else (block-autolabel nd force-label?))))))) ;; ====================================================================== ;; Returns the element label as a sosofo ;; (define (element-label-sosofo nd #!optional (force-label? #f)) (if (string=? (element-label nd force-label?) "") (empty-sosofo) (make sequence (literal (element-label nd force-label?))))) ;; ====================================================================== (define (set-title nd) (let* ((setinfo (select-elements (children nd) (normalize "setinfo"))) (sititles (select-elements (expand-children (children setinfo) (list (normalize "bookbiblio") (normalize "bibliomisc") (normalize "biblioset"))) (normalize "title"))) (settitles (select-elements (children nd) (normalize "title"))) (titles (if (node-list-empty? settitles) sititles settitles))) (if (node-list-empty? titles) "" (node-list-first titles)))) (define (book-title nd) (let* ((bookinfo (select-elements (children nd) (normalize "bookinfo"))) (bititles (select-elements (expand-children (children bookinfo) (list (normalize "bookbiblio") (normalize "bibliomisc") (normalize "biblioset"))) (normalize "title"))) (chtitles (select-elements (children nd) (normalize "title"))) (titles (if (node-list-empty? chtitles) bititles chtitles))) (if (node-list-empty? titles) "" (node-list-first titles)))) (define (part-title nd) (let* ((docinfo (select-elements (children nd) (normalize "docinfo"))) (dititles (select-elements (expand-children (children docinfo) (list (normalize "bookbiblio") (normalize "bibliomisc") (normalize "biblioset"))) (normalize "title"))) (chtitles (select-elements (children nd) (normalize "title"))) (titles (if (node-list-empty? chtitles) dititles chtitles))) (if (node-list-empty? titles) "" (node-list-first titles)))) (define (article-title nd) (let* ((artchild (children nd)) (artheader (select-elements artchild (normalize "artheader"))) (ahtitles (select-elements (children artheader) (normalize "title"))) (artitles (select-elements artchild (normalize "title"))) (titles (if (node-list-empty? artitles) ahtitles artitles))) (if (node-list-empty? titles) "" (node-list-first titles)))) (define (preface-title nd) (chapter-title nd)) (define (chapter-title nd) (let* ((docinfo (select-elements (children nd) (normalize "docinfo"))) (dititles (select-elements (expand-children (children docinfo) (list (normalize "bookbiblio") (normalize "bibliomisc") (normalize "biblioset"))) (normalize "title"))) (chtitles (select-elements (children nd) (normalize "title"))) (titles (if (node-list-empty? chtitles) dititles chtitles))) (if (node-list-empty? titles) "" (node-list-first titles)))) (define (appendix-title nd) (chapter-title nd)) (define (reference-title nd) (chapter-title nd)) (define (refsynopsisdiv-title nd) (optional-title nd)) ;; Returns either the REFENTRYTITLE or the first REFNAME. ;; (define (refentry-title nd) (let* ((refmeta (select-elements (descendants nd) (normalize "refmeta"))) (refttl (select-elements (descendants refmeta) (normalize "refentrytitle"))) (refndiv (select-elements (descendants nd) (normalize "refnamediv"))) (refname (select-elements (descendants refndiv) (normalize "refname")))) (if (node-list-empty? refttl) (if (node-list-empty? refname) "" (node-list-first refname)) (node-list-first refttl)))) (define (optional-title nd) (let* ((docinfo (select-elements (children nd) (normalize "docinfo"))) (dititles (select-elements (children docinfo) (normalize "title"))) (chtitles (select-elements (children nd) (normalize "title"))) (titles (if (node-list-empty? chtitles) dititles chtitles))) (if (node-list-empty? titles) (gentext-element-name nd) (node-list-first titles)))) (define (glossary-title nd) (optional-title nd)) (define (bibliography-title nd) (optional-title nd)) (define (index-title nd) (optional-title nd)) (define (setindex-title nd) (optional-title nd)) (define (dedication-title nd) (optional-title nd)) (define (colophon-title nd) (gentext-element-name nd)) (define (section-title nd) (let* ((info (select-elements (children nd) (list (normalize "sect1info") (normalize "sect2info") (normalize "sect3info") (normalize "sect4info") (normalize "sect5info") (normalize "section")))) (ititles (select-elements (children info) (normalize "title"))) (ctitles (select-elements (children nd) (normalize "title"))) (titles (if (node-list-empty? ctitles) ititles ctitles))) (if (node-list-empty? titles) "" (node-list-first titles)))) (define (refsection-title nd) (let* ((info (select-elements (children nd) (list (normalize "refsect1info") (normalize "refsect2info") (normalize "refsect3info")))) (ititles (select-elements (children info) (normalize "title"))) (ctitles (select-elements (children nd) (normalize "title"))) (titles (if (node-list-empty? ctitles) ititles ctitles))) (if (node-list-empty? titles) "" (node-list-first titles)))) (define (block-title nd) (let ((titles (select-elements (children nd) (normalize "title")))) (if (node-list-empty? titles) "" (node-list-first titles)))) ;; ====================================================================== (define (set-title-sosofo nd) (let ((title (set-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (book-title-sosofo nd) (let ((title (book-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (part-title-sosofo nd) (let ((title (part-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (article-title-sosofo nd) (let ((title (article-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (preface-title-sosofo nd) (let ((title (preface-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (chapter-title-sosofo nd) (let ((title (chapter-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (appendix-title-sosofo nd) (let ((title (appendix-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (reference-title-sosofo nd) (let ((title (reference-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (refsynopsisdiv-title-sosofo nd) (optional-title-sosofo nd)) (define (refentry-title-sosofo nd) (let ((title (refentry-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (optional-title-sosofo nd) (let ((title (optional-title nd))) (if (string? title) (literal title) (with-mode title-sosofo-mode (process-node-list title))))) (define (glossary-title-sosofo nd) (optional-title-sosofo nd)) (define (bibliography-title-sosofo nd) (optional-title-sosofo nd)) (define (index-title-sosofo nd) (optional-title-sosofo nd)) (define (setindex-title-sosofo nd) (optional-title-sosofo nd)) (define (dedication-title-sosofo nd) (optional-title-sosofo nd)) (define (colophon-title-sosofo nd) (literal (gentext-element-name nd))) (define (section-title-sosofo nd) (let ((title (section-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (refsection-title-sosofo nd) (let ((title (refsection-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (block-title-sosofo nd) (let ((title (block-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (mode title-sosofo-mode (element title (process-children-trim)) (element citetitle (process-children-trim)) (element refname (process-children-trim)) (element refentrytitle (process-children-trim))) ;; Returns the title of the element as a sosofo. ;; (define (element-title-sosofo #!optional (nd (current-node))) (if (node-list-empty? nd) (empty-sosofo) (cond ;; Use a seperately defined assoc list? ((equal? (gi nd) (normalize "appendix")) (appendix-title-sosofo nd)) ((equal? (gi nd) (normalize "article")) (article-title-sosofo nd)) ((equal? (gi nd) (normalize "bibliography")) (bibliography-title-sosofo nd)) ((equal? (gi nd) (normalize "book")) (book-title-sosofo nd)) ((equal? (gi nd) (normalize "chapter")) (chapter-title-sosofo nd)) ((equal? (gi nd) (normalize "dedication")) (dedication-title-sosofo nd)) ((equal? (gi nd) (normalize "glossary")) (glossary-title-sosofo nd)) ((equal? (gi nd) (normalize "index")) (index-title-sosofo nd)) ((equal? (gi nd) (normalize "colophon")) (colophon-title-sosofo nd)) ((equal? (gi nd) (normalize "setindex")) (index-title-sosofo nd)) ((equal? (gi nd) (normalize "part")) (part-title-sosofo nd)) ((equal? (gi nd) (normalize "preface")) (preface-title-sosofo nd)) ((equal? (gi nd) (normalize "refentry")) (refentry-title-sosofo nd)) ((equal? (gi nd) (normalize "reference")) (reference-title-sosofo nd)) ((equal? (gi nd) (normalize "refsect1")) (refsection-title-sosofo nd)) ((equal? (gi nd) (normalize "refsect2")) (refsection-title-sosofo nd)) ((equal? (gi nd) (normalize "refsect3")) (refsection-title-sosofo nd)) ((equal? (gi nd) (normalize "refsynopsisdiv")) (refsynopsisdiv-title-sosofo nd)) ((equal? (gi nd) (normalize "sect1")) (section-title-sosofo nd)) ((equal? (gi nd) (normalize "sect2")) (section-title-sosofo nd)) ((equal? (gi nd) (normalize "sect3")) (section-title-sosofo nd)) ((equal? (gi nd) (normalize "sect4")) (section-title-sosofo nd)) ((equal? (gi nd) (normalize "sect5")) (section-title-sosofo nd)) ((equal? (gi nd) (normalize "set")) (set-title-sosofo nd)) (else (block-title-sosofo nd))))) ;; ====================================================================== ;; Returns the title of the element; returns a node if possible, or a string (define (element-title nd) (if (node-list-empty? nd) "" (cond ;; Use a seperately defined assoc list? ((equal? (gi nd) (normalize "appendix")) (appendix-title nd)) ((equal? (gi nd) (normalize "article")) (article-title nd)) ((equal? (gi nd) (normalize "bibliography")) (bibliography-title nd)) ((equal? (gi nd) (normalize "book")) (book-title nd)) ((equal? (gi nd) (normalize "chapter")) (chapter-title nd)) ((equal? (gi nd) (normalize "dedication")) (dedication-title nd)) ((equal? (gi nd) (normalize "glossary")) (glossary-title nd)) ((equal? (gi nd) (normalize "index")) (index-title nd)) ((equal? (gi nd) (normalize "colophon")) (colophon-title nd)) ((equal? (gi nd) (normalize "setindex")) (setindex-title nd)) ((equal? (gi nd) (normalize "part")) (part-title nd)) ((equal? (gi nd) (normalize "preface")) (preface-title nd)) ((equal? (gi nd) (normalize "refentry")) (refentry-title nd)) ((equal? (gi nd) (normalize "reference")) (reference-title nd)) ((equal? (gi nd) (normalize "refsect1")) (refsection-title nd)) ((equal? (gi nd) (normalize "refsect2")) (refsection-title nd)) ((equal? (gi nd) (normalize "refsect3")) (refsection-title nd)) ((equal? (gi nd) (normalize "refsynopsisdiv")) (refsynopsisdiv-title nd)) ((equal? (gi nd) (normalize "sect1")) (section-title nd)) ((equal? (gi nd) (normalize "sect2")) (section-title nd)) ((equal? (gi nd) (normalize "sect3")) (section-title nd)) ((equal? (gi nd) (normalize "sect4")) (section-title nd)) ((equal? (gi nd) (normalize "sect5")) (section-title nd)) ((equal? (gi nd) (normalize "set")) (set-title nd)) (else (block-title nd))))) ;; ====================================================================== ;; Returns the data of a node, carefully excising INDEXTERMs from ;; the data content ;; (define (data-of node) ;; return the data characters of a node, except for the content of ;; indexterms which are suppressed. (let loop ((nl (children node)) (result "")) (if (node-list-empty? nl) result (if (equal? (node-property 'class-name (node-list-first nl)) 'element) (if (or (equal? (gi (node-list-first nl)) (normalize "indexterm")) (equal? (gi (node-list-first nl)) (normalize "comment")) (equal? (gi (node-list-first nl)) (normalize "remark"))) (loop (node-list-rest nl) result) (loop (node-list-rest nl) (string-append result (data-of (node-list-first nl))))) (if (or (equal? (node-property 'class-name (node-list-first nl)) 'data-char) (equal? (node-property 'class-name (node-list-first nl)) 'sdata)) (loop (node-list-rest nl) (string-append result (data (node-list-first nl)))) (loop (node-list-rest nl) result)))))) ;; ====================================================================== ;; Returns the element title data of nd ;; (define (element-title-string nd) (let ((title (element-title nd))) (if (string? title) title (data-of title)))) ;; ====================================================================== ;; Returns the element gi as a sosofo ;; (define (element-gi-sosofo nd) (if (node-list-empty? nd) (empty-sosofo) (make sequence (literal (gentext-element-name nd))))) ;; ====================================================================== (define (titlepage-info-elements node info #!optional (intro (empty-node-list))) ;; Returns a node-list of the elements that might appear on a title ;; page. This node-list is constructed as follows: ;; ;; 1. The "title" child of node is considered as a possibility ;; 2. If info is not empty, then node-list starts as the children ;; of info. If the children of info don't include a title, then ;; the title from the node is added. ;; 3. If info is empty, then node-list starts as the children of node, ;; but with "partintro" filtered out. (let* ((title (select-elements (children node) (normalize "title"))) (nl (if (node-list-empty? info) (node-list-filter-by-not-gi (children node) (list (normalize "partintro"))) (children info))) (nltitle (node-list-filter-by-gi nl (list (normalize "title"))))) (if (node-list-empty? info) (node-list nl intro) (node-list (if (node-list-empty? nltitle) title (empty-node-list)) nl intro)))) ;; ====================================================================== (define (info-element #!optional (nd (current-node))) ;; Returns the *INFO element for the nd or (empty-node-list) if no ;; such node exists... (cond ((equal? (gi nd) (normalize "set")) (select-elements (children nd) (normalize "setinfo"))) ((equal? (gi nd) (normalize "book")) (select-elements (children nd) (normalize "bookinfo"))) ((equal? (gi nd) (normalize "section")) (select-elements (children nd) (normalize "sectioninfo"))) ((equal? (gi nd) (normalize "sect1")) (select-elements (children nd) (normalize "sect1info"))) ((equal? (gi nd) (normalize "sect2")) (select-elements (children nd) (normalize "sect2info"))) ((equal? (gi nd) (normalize "sect3")) (select-elements (children nd) (normalize "sect3info"))) ((equal? (gi nd) (normalize "sect4")) (select-elements (children nd) (normalize "sect4info"))) ((equal? (gi nd) (normalize "sect5")) (select-elements (children nd) (normalize "sect5info"))) ((equal? (gi nd) (normalize "refsect1")) (select-elements (children nd) (normalize "refsect1info"))) ((equal? (gi nd) (normalize "refsect2")) (select-elements (children nd) (normalize "refsect2info"))) ((equal? (gi nd) (normalize "refsect3")) (select-elements (children nd) (normalize "refsect3info"))) ((equal? (gi nd) (normalize "refsynopsisdiv")) (select-elements (children nd) (normalize "refsynopsisdivinfo"))) ((equal? (gi nd) (normalize "article")) (node-list-filter-by-gi (children nd) (list (normalize "artheader") (normalize "articleinfo")))) (else ;; BIBLIODIV, GLOSSDIV, INDEXDIV, PARTINTRO, SIMPLESECT (select-elements (children nd) (normalize "docinfo"))))) ;; ====================================================================== ;; ;; Bibliography filtering... (define (biblio-filter allentries) (let* ((all (descendants (sgml-root-element))) (link (select-elements all (normalize "link"))) (xref (select-elements all (normalize "xref"))) (cite (select-elements all (normalize "citation"))) (xref-elements (node-list link xref))) (let loop ((entries allentries) (used (empty-node-list))) (if (node-list-empty? entries) used (if (or (cited-by-xref (node-list-first entries) xref-elements) (cited-by-citation (node-list-first entries) cite)) (loop (node-list-rest entries) (node-list used (node-list-first entries))) (loop (node-list-rest entries) used)))))) (define (cited-by-xref bib xref-elements) (let* ((id (attribute-string (normalize "id") bib))) (if id (let loop ((links xref-elements)) (if (node-list-empty? links) #f (if (equal? (attribute-string (normalize "linkend") (node-list-first links)) id) #t (loop (node-list-rest links))))) #f))) (define (cited-by-citation bib citations) (let loop ((links citations)) (if (node-list-empty? links) #f (if (citation-matches-target? (node-list-first links) bib) #t (loop (node-list-rest links)))))) (define (citation-matches-target? citation target) (let* ((fchild (node-list-first (node-list-filter-out-pis (children target)))) (abbrev (if (equal? (gi fchild) (normalize "abbrev")) fchild (empty-node-list))) (cite (data-of citation))) (or (equal? (attribute-string "id" target) (normalize cite)) (equal? (attribute-string "xreflabel" target) (normalize cite)) (equal? (normalize cite) (normalize (data-of abbrev)))))) (define (bibentry-number bibentry) (let* ((bgraphy (ancestor-member bibentry (list (normalize "bibliography")))) (comps (expand-children (children bgraphy) (list (normalize "bibliodiv"))))) (let loop ((nl comps) (count 1)) (if (node-list-empty? nl) 0 (if (node-list=? (node-list-first nl) bibentry) count (if (or (equal? (gi (node-list-first nl)) (normalize "biblioentry")) (equal? (gi (node-list-first nl)) (normalize "bibliomixed"))) (loop (node-list-rest nl) (+ count 1)) (loop (node-list-rest nl) count))))))) ;; ====================================================================== (define (olink-resource-title pubid sysid) ;; This version of olink-resource-title expects public identifiers ;; with the following format: ;; ;; -//owner//TEXT title Vx.x//EN ;; ;; Specifically the title is the description field of the public ;; identifier minus the first word (TEXT, the type) and the last ;; word, in my case a version string. Words are blank delimited. ;; The parsing will fail if a "/" appears anywhere in any field. ;; The system identifier is ignored ;; (let* ((pubidparts (if pubid (split pubid '(#\/)) (split "-//none//type version//la" '(#\/)))) (description (car (cdr (cdr pubidparts)))) (descparts (split description)) (titleparts (list-head (cdr descparts) (- (length descparts) 2)))) (join titleparts))) ;; ====================================================================== (define (orderedlist-listitem-number listitem) ;; return the number of listitem, taking continuation into account (let* ((orderedlist (parent listitem)) (listitems (select-elements (children orderedlist) (normalize "listitem"))) (continue? (equal? (attribute-string (normalize "continuation") orderedlist) (normalize "continues"))) ;; If a list is the continuation of a previous list, we must find the ;; list that is continued in order to calculate the starting ;; item number of this list. ;; ;; Of all the lists in this component, only the following are candidates: ;; 1. Lists which precede this list ;; 2. Lists which are not ancestors of this list ;; 3. Lists that do not have ancestors that are lists which precede this one ;; ;; Of the candidates, the last one, in document order, is the preceding ;; list (all-lists (select-elements (descendants (ancestor-member orderedlist (component-element-list))) (normalize "orderedlist"))) (cand1 (if continue? (let loop ((nl all-lists) (prec (empty-node-list))) (if (node-list-empty? nl) prec (if (node-list=? (node-list-first nl) orderedlist) prec (loop (node-list-rest nl) (node-list prec (node-list-first nl)))))) (empty-node-list))) (cand2 (let loop ((nl cand1) (cand2lists (empty-node-list))) (if (node-list-empty? nl) cand2lists (loop (node-list-rest nl) (if (descendant-of? (node-list-first nl) orderedlist) cand2lists (node-list cand2lists (node-list-first nl))))))) ;; now find the last item of cand2 that is not a descendant ;; of some other element of the cand2 list. (preclist (let loop ((nl (node-list-reverse cand2))) (if (node-list-empty? nl) (empty-node-list) (if (descendant-member-of? (node-list-first nl) (node-list-rest nl)) (loop (node-list-rest nl)) (node-list-first nl))))) (precitem (if (node-list-empty? preclist) (empty-node-list) (node-list-last (children preclist)))) (precitem-number (if (and continue? (not (node-list-empty? precitem))) (orderedlist-listitem-number precitem) 0))) (+ precitem-number (child-number listitem)))) (define (descendant-member-of? node node-list) ;; return true if node is a descedant of any member of node-list (let loop ((nl node-list)) (if (node-list-empty? nl) #f (if (descendant-of? (node-list-first nl) node) #t (loop (node-list-rest nl)))))) ;; ====================================================================== (define (orderedlist-listitem-label listitem) ;; return the formatted number of listitem (let* ((number (orderedlist-listitem-number listitem)) (depth (length (hierarchical-number-recursive (normalize "orderedlist") listitem))) (numeration (inherited-attribute-string (normalize "numeration") listitem)) ;; rawnum allows for numbering to alternate (rawnum (cond ((equal? numeration (normalize "arabic")) 1) ((equal? numeration (normalize "loweralpha")) 2) ((equal? numeration (normalize "lowerroman")) 3) ((equal? numeration (normalize "upperalpha")) 4) ((equal? numeration (normalize "upperroman")) 0) (else (modulo depth 5))))) (case rawnum ((1) (format-number number "1")) ((2) (format-number number "a")) ((3) (format-number number "i")) ((4) (format-number number "A")) ((0) (format-number number "I"))))) (define (orderedlist-listitem-label-recursive listitem) ;; return the recursively formatted number of the listitem. ;; In other words, something of the form 1.2.3 for a third level ;; nested ordered list (let loop ((li (parent listitem)) (label (orderedlist-listitem-label listitem))) (if (or (node-list-empty? li) (node-list-empty? (ancestor (normalize "orderedlist") li))) label (if (and (equal? (gi li) (normalize "listitem")) (equal? (gi (parent li)) (normalize "orderedlist"))) (loop (parent li) (string-append (orderedlist-listitem-label li) (gentext-intra-label-sep li) label)) (loop (parent li) label))))) (define (question-answer-label #!optional (node (current-node))) (let* ((inhlabel (inherited-attribute-string (normalize "defaultlabel") node)) (deflabel (if inhlabel inhlabel (qanda-defaultlabel))) (label (attribute-string (normalize "label") node)) (hnr (hierarchical-number-recursive (normalize "qandadiv") node)) (parsect (ancestor-member node (section-element-list))) (defnum (if (and %qanda-inherit-numeration% %section-autolabel%) (if (node-list-empty? parsect) (section-autolabel-prefix node) (section-autolabel parsect)) "")) (hnumber (let loop ((numlist hnr) (number defnum) (sep (if (equal? defnum "") "" "."))) (if (null? numlist) number (loop (cdr numlist) (string-append number sep (number->string (car numlist))) ".")))) (cnumber (child-number (parent node))) (number (string-append hnumber (if (equal? hnumber "") "" ".") (number->string cnumber)))) (cond ((equal? deflabel (normalize "qanda")) (gentext-element-name node)) ((equal? deflabel (normalize "label")) label) ;; Note: only questions are numbered... ((and (equal? deflabel (normalize "number")) (equal? (gi node) (normalize "question"))) (string-append number ".")) (else "")))) ;; ====================================================================== ;; Calculate term lengths... (define (varlistentry-term-too-long? vle termlength) (let loop ((nl (select-elements (children vle) (normalize "term"))) (too-long? #f)) (if (or too-long? (node-list-empty? nl)) too-long? (loop (node-list-rest nl) (> (string-length (data (node-list-first nl))) termlength))))) (define (variablelist-term-too-long? termlength) (let loop ((nl (select-elements (children (current-node)) (normalize "varlistentry"))) (too-long? #f)) (if (or too-long? (node-list-empty? nl)) too-long? (loop (node-list-rest nl) (varlistentry-term-too-long? (node-list-first nl) termlength))))) ;; ====================================================================== ;; bibliography elements (define (biblioentry-inline-elements) (list (normalize "abbrev") (normalize "affiliation") (normalize "artpagenums") (normalize "author") (normalize "authorgroup") (normalize "authorinitials") (normalize "citetitle") (normalize "collab") (normalize "confgroup") (normalize "contractnum") (normalize "contractsponsor") (normalize "contrib") (normalize "copyright") (normalize "corpauthor") (normalize "corpname") (normalize "date") (normalize "edition") (normalize "editor") (normalize "firstname") (normalize "honorific") (normalize "invpartnumber") (normalize "isbn") (normalize "issn") (normalize "issuenum") (normalize "lineage") (normalize "orgname") (normalize "othercredit") (normalize "othername") (normalize "pagenums") (normalize "productname") (normalize "productnumber") (normalize "pubdate") (normalize "publisher") (normalize "publishername") (normalize "pubsnumber") (normalize "releaseinfo") (normalize "seriesvolnums") (normalize "subtitle") (normalize "surname") (normalize "title") (normalize "titleabbrev") (normalize "volumenum"))) (define (biblioentry-block-elements) (list (normalize "abstract") (normalize "address") (normalize "authorblurb") (normalize "printhistory") (normalize "revhistory") (normalize "seriesinfo"))) (define (biblioentry-flatten-elements) (list (normalize "artheader") (normalize "biblioset") (normalize "bookbiblio"))) ;; === db31 common ====================================================== (define (data-filename dataobj) (let* ((entityref (attribute-string (normalize "entityref") dataobj)) (fileref (attribute-string (normalize "fileref") dataobj)) (filename (if fileref fileref (system-id-filename entityref))) (ext (file-extension filename))) (if (or (not filename) (not %graphic-default-extension%) (member ext %graphic-extensions%)) filename (string-append filename "." %graphic-default-extension%)))) (define (normalized-member string string-list) (if (string? string) (let loop ((sl string-list)) (if (null? sl) #f (if (string=? (normalize string) (normalize (car sl))) #t (loop (cdr sl))))) #f)) (define (find-displayable-object objlist notlist extlist) (let loop ((nl objlist)) (if (node-list-empty? nl) (empty-node-list) (let* ((objdata (node-list-filter-by-gi (children (node-list-first nl)) (list (normalize "videodata") (normalize "audiodata") (normalize "imagedata")))) (filename (data-filename objdata)) (extension (file-extension filename)) (notation (attribute-string (normalize "format") objdata))) (if (or (normalized-member notation notlist) (normalized-member extension extlist) (and notation (string=? notation (normalize "linespecific")))) (node-list-first nl) (loop (node-list-rest nl))))))) (define (select-displayable-object objlist) (let ((pref (find-displayable-object objlist preferred-mediaobject-notations preferred-mediaobject-extensions)) (ok (find-displayable-object objlist acceptable-mediaobject-notations acceptable-mediaobject-extensions))) (if (node-list-empty? pref) ok pref))) (define ($mediaobject$) (let* ((objects (node-list-filter-by-gi (children (current-node)) (list (normalize "videoobject") (normalize "imageobject") (normalize "audioobject")))) (dobject (select-displayable-object objects)) (textobj (select-elements (children (current-node)) (normalize "textobject"))) (caption (select-elements (children (current-node)) (normalize "caption")))) (make sequence (if (node-list-empty? dobject) (if (node-list-empty? textobj) (empty-sosofo) (process-node-list (node-list-first textobj))) (process-node-list dobject)) (process-node-list caption)))) ;; ====================================================================== Index: phpdoc/dsssl/docbook/common/dbl10n.dsl +++ phpdoc/dsssl/docbook/common/dbl10n.dsl ;; $Id: dbl10n.dsl,v 1.1 2002/07/20 11:07:53 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com. Please use the ISO 639 language ;; code to identify the language. Append a subtag as per RFC 1766, ;; if necessary. ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x and #x ;; keywords. ;; ;; The following language codes from ISO 639 are recognized: ;; af - Afrikaans 1.71 ;; ca - Catalan ;; cs - Czech ;; da - Danish (previously dk) ;; de - German (previously dege) ;; el - Greek ;; en - English (previously usen) ;; es - Spanish ;; et - Estonian 1.55 ;; eu - Basque 1.74 ;; fi - Finnish ;; fr - French ;; hu - Hungarian 1.55 ;; id - Indonesian 1.55 ;; it - Italian ;; ja - Japanese ;; ko - Korean 1.59 ;; nl - Dutch ;; nn - Nnyorsk 1.74 ;; no - Norwegian (previously bmno) ??? ;; pl - Polish ;; pt - Portuguese ;; pt_br - Portuguese (Brazil) ;; ro - Romanian ;; ru - Russian ;; sk - Slovak ;; sl - Slovenian 1.55 ;; sr - Serbian 1.70 ;; sv - Swedish (previously svse) ;; tr - Turkish 1.71 ;; uk - Ukranian 1.74 ;; xh - Xhosa 1.74 ;; zh_cn - Chinese (Continental) 1.55 ;; zh_tw - Chinese (Traditional) 1.70 ;; The following language codes are recognized for historical reasons: ;; bmno(no) - Norwegian (Norsk Bokmal) ??? ;; dege(de) - German ;; dk(da) - Danish ;; svse(sv) - Swedish ;; usen(en) - English (define %default-language% "en") (define %gentext-language% #f) (define %gentext-use-xref-lang% #f) (define ($lang$ #!optional (target (current-node)) (xref-context #f)) (if %gentext-language% (lang-fix %gentext-language%) (if (or xref-context %gentext-use-xref-lang%) (let loop ((here target)) (if (node-list-empty? here) (lang-fix %default-language%) (if (attribute-string (normalize "lang") here) (lang-fix (attribute-string (normalize "lang") here)) (loop (parent here))))) (if (inherited-attribute-string (normalize "lang")) (lang-fix (inherited-attribute-string (normalize "lang"))) (lang-fix %default-language%))))) (define (lang-fix language) ;; Lowercase the language ;; Translate 'xx-yy' to 'xx_yy' (let ((fixed-lang (if (> (string-index language "-") 0) (let ((pos (string-index language "-"))) (string-append (substring language 0 pos) "_" (substring language (+ pos 1) (string-length language)))) language))) (case-fold-down fixed-lang))) (define (author-string #!optional (author (current-node))) (let ((lang (if (string? author) ($lang$) ($lang$ author)))) (case lang ;; ISO 639/ISO 3166/RFC 1766 <![%l10n-af[ (("af") (af-author-string author)) ]]> <![%l10n-ca[ (("ca") (ca-author-string author)) ]]> <![%l10n-cs[ (("cs") (cs-author-string author)) ]]> <![%l10n-da[ (("da") (da-author-string author)) ]]> <![%l10n-de[ (("de") (de-author-string author)) ]]> <![%l10n-el[ (("el") (el-author-string author)) ]]> <![%l10n-en[ (("en") (en-author-string author)) ]]> <![%l10n-es[ (("es") (es-author-string author)) ]]> <![%l10n-et[ (("et") (et-author-string author)) ]]> <![%l10n-eu[ (("eu") (eu-author-string author)) ]]> <![%l10n-fi[ (("fi") (fi-author-string author)) ]]> <![%l10n-fr[ (("fr") (fr-author-string author)) ]]> <![%l10n-hu[ (("hu") (hu-author-string author)) ]]> <![%l10n-id[ (("id") (id-author-string author)) ]]> <![%l10n-it[ (("it") (it-author-string author)) ]]> <![%l10n-ja[ (("ja") (ja-author-string author)) ]]> <![%l10n-ko[ (("ko") (ko-author-string author)) ]]> <![%l10n-nl[ (("nl") (nl-author-string author)) ]]> <![%l10n-nn[ (("nn") (nn-author-string author)) ]]> <![%l10n-no[ (("no") (no-author-string author)) ]]> <![%l10n-pl[ (("pl") (pl-author-string author)) ]]> <![%l10n-pt[ (("pt") (pt-author-string author)) ]]> <![%l10n-ptbr[ (("pt_br") (ptbr-author-string author)) ]]> <![%l10n-ro[ (("ro") (ro-author-string author)) ]]> <![%l10n-ru[ (("ru") (ru-author-string author)) ]]> <![%l10n-sk[ (("sk") (sk-author-string author)) ]]> <![%l10n-sl[ (("sl") (sl-author-string author)) ]]> <![%l10n-sr[ (("sr") (sr-author-string author)) ]]> <![%l10n-sv[ (("sv") (sv-author-string author)) ]]> <![%l10n-tr[ (("tr") (tr-author-string author)) ]]> <![%l10n-uk[ (("uk") (uk-author-string author)) ]]> <![%l10n-xh[ (("xh") (xh-author-string author)) ]]> <![%l10n-zhcn[ (("zh_cn") (zhcn-author-string author)) ]]> <![%l10n-zhtw[ (("zh_tw") (zhtw-author-string author)) ]]> <![%l10n-no[ (("bmno") (no-author-string author)) ]]> <![%l10n-de[ (("dege") (de-author-string author)) ]]> <![%l10n-da[ (("dk") (da-author-string author)) ]]> <![%l10n-sv[ (("svse") (sv-author-string author)) ]]> <![%l10n-en[ (("usen") (en-author-string author)) ]]> (else (error (string-append "L10N ERROR: author-string: " lang)))))) (define (gentext-xref-strings target) (let ((giname (if (string? target) (normalize target) (gi target))) (lang (if (string? target) ($lang$) ($lang$ target)))) (case lang <![%l10n-af[ (("af") (gentext-af-xref-strings giname)) ]]> <![%l10n-ca[ (("ca") (gentext-ca-xref-strings giname)) ]]> <![%l10n-cs[ (("cs") (gentext-cs-xref-strings giname)) ]]> <![%l10n-da[ (("da") (gentext-da-xref-strings giname)) ]]> <![%l10n-de[ (("de") (gentext-de-xref-strings giname)) ]]> <![%l10n-el[ (("el") (gentext-el-xref-strings giname)) ]]> <![%l10n-en[ (("en") (gentext-en-xref-strings giname)) ]]> <![%l10n-es[ (("es") (gentext-es-xref-strings giname)) ]]> <![%l10n-et[ (("et") (gentext-et-xref-strings giname)) ]]> <![%l10n-eu[ (("eu") (gentext-eu-xref-strings giname)) ]]> <![%l10n-fi[ (("fi") (gentext-fi-xref-strings giname)) ]]> <![%l10n-fr[ (("fr") (gentext-fr-xref-strings giname)) ]]> <![%l10n-hu[ (("hu") (gentext-hu-xref-strings giname)) ]]> <![%l10n-id[ (("id") (gentext-id-xref-strings giname)) ]]> <![%l10n-it[ (("it") (gentext-it-xref-strings giname)) ]]> <![%l10n-ja[ (("ja") (gentext-ja-xref-strings giname)) ]]> <![%l10n-ko[ (("ko") (gentext-ko-xref-strings giname)) ]]> <![%l10n-nl[ (("nl") (gentext-nl-xref-strings giname)) ]]> <![%l10n-nn[ (("nn") (gentext-nn-xref-strings giname)) ]]> <![%l10n-no[ (("no") (gentext-no-xref-strings giname)) ]]> <![%l10n-pl[ (("pl") (gentext-pl-xref-strings giname)) ]]> <![%l10n-pt[ (("pt") (gentext-pt-xref-strings giname)) ]]> <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-xref-strings giname)) ]]> <![%l10n-ro[ (("ro") (gentext-ro-xref-strings giname)) ]]> <![%l10n-ru[ (("ru") (gentext-ru-xref-strings giname)) ]]> <![%l10n-sk[ (("sk") (gentext-sk-xref-strings giname)) ]]> <![%l10n-sl[ (("sl") (gentext-sl-xref-strings giname)) ]]> <![%l10n-sr[ (("sr") (gentext-sr-xref-strings giname)) ]]> <![%l10n-sv[ (("sv") (gentext-sv-xref-strings giname)) ]]> <![%l10n-tr[ (("tr") (gentext-tr-xref-strings giname)) ]]> <![%l10n-uk[ (("uk") (gentext-uk-xref-strings giname)) ]]> <![%l10n-xh[ (("xh") (gentext-xh-xref-strings giname)) ]]> <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-xref-strings giname)) ]]> <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-xref-strings giname)) ]]> <![%l10n-no[ (("bmno") (gentext-no-xref-strings giname)) ]]> <![%l10n-de[ (("dege") (gentext-de-xref-strings giname)) ]]> <![%l10n-da[ (("dk") (gentext-da-xref-strings giname)) ]]> <![%l10n-sv[ (("svse") (gentext-sv-xref-strings giname)) ]]> <![%l10n-en[ (("usen") (gentext-en-xref-strings giname)) ]]> (else (error (string-append "L10N ERROR: gentext-xref-strings: " lang)))))) (define (auto-xref-indirect-connector before) (case ($lang$) <![%l10n-af[ (("af") (af-auto-xref-indirect-connector before)) ]]> <![%l10n-ca[ (("ca") (ca-auto-xref-indirect-connector before)) ]]> <![%l10n-cs[ (("cs") (cs-auto-xref-indirect-connector before)) ]]> <![%l10n-da[ (("da") (da-auto-xref-indirect-connector before)) ]]> <![%l10n-de[ (("de") (de-auto-xref-indirect-connector before)) ]]> <![%l10n-el[ (("el") (el-auto-xref-indirect-connector before)) ]]> <![%l10n-en[ (("en") (en-auto-xref-indirect-connector before)) ]]> <![%l10n-es[ (("es") (es-auto-xref-indirect-connector before)) ]]> <![%l10n-et[ (("et") (et-auto-xref-indirect-connector before)) ]]> <![%l10n-eu[ (("eu") (eu-auto-xref-indirect-connector before)) ]]> <![%l10n-fi[ (("fi") (fi-auto-xref-indirect-connector before)) ]]> <![%l10n-fr[ (("fr") (fr-auto-xref-indirect-connector before)) ]]> <![%l10n-hu[ (("hu") (hu-auto-xref-indirect-connector before)) ]]> <![%l10n-id[ (("id") (id-auto-xref-indirect-connector before)) ]]> <![%l10n-it[ (("it") (it-auto-xref-indirect-connector before)) ]]> <![%l10n-ja[ (("ja") (ja-auto-xref-indirect-connector before)) ]]> <![%l10n-ko[ (("ko") (ko-auto-xref-indirect-connector before)) ]]> <![%l10n-nl[ (("nl") (nl-auto-xref-indirect-connector before)) ]]> <![%l10n-nn[ (("nn") (nn-auto-xref-indirect-connector before)) ]]> <![%l10n-no[ (("no") (no-auto-xref-indirect-connector before)) ]]> <![%l10n-pl[ (("pl") (pl-auto-xref-indirect-connector before)) ]]> <![%l10n-pt[ (("pt") (pt-auto-xref-indirect-connector before)) ]]> <![%l10n-ptbr[ (("pt_br") (ptbr-auto-xref-indirect-connector before)) ]]> <![%l10n-ro[ (("ro") (ro-auto-xref-indirect-connector before)) ]]> <![%l10n-ru[ (("ru") (ru-auto-xref-indirect-connector before)) ]]> <![%l10n-sk[ (("sk") (sk-auto-xref-indirect-connector before)) ]]> <![%l10n-sl[ (("sl") (sl-auto-xref-indirect-connector before)) ]]> <![%l10n-sr[ (("sr") (sr-auto-xref-indirect-connector before)) ]]> <![%l10n-sv[ (("sv") (sv-auto-xref-indirect-connector before)) ]]> <![%l10n-tr[ (("tr") (tr-auto-xref-indirect-connector before)) ]]> <![%l10n-uk[ (("uk") (uk-auto-xref-indirect-connector before)) ]]> <![%l10n-xh[ (("xh") (xh-auto-xref-indirect-connector before)) ]]> <![%l10n-zhcn[ (("zh_cn") (zhcn-auto-xref-indirect-connector before)) ]]> <![%l10n-zhtw[ (("zh_tw") (zhtw-auto-xref-indirect-connector before)) ]]> <![%l10n-no[ (("bmno") (no-auto-xref-indirect-connector before)) ]]> <![%l10n-de[ (("dege") (de-auto-xref-indirect-connector before)) ]]> <![%l10n-da[ (("dk") (da-auto-xref-indirect-connector before)) ]]> <![%l10n-sv[ (("svse") (sv-auto-xref-indirect-connector before)) ]]> <![%l10n-en[ (("usen") (en-auto-xref-indirect-connector before)) ]]> (else (error "L10N ERROR: auto-xref-indirect-connector")))) (define (generate-toc-in-front) (case ($lang$) <![%l10n-af[ (("af") %generate-af-toc-in-front%) ]]> <![%l10n-ca[ (("ca") %generate-ca-toc-in-front%) ]]> <![%l10n-cs[ (("cs") %generate-cs-toc-in-front%) ]]> <![%l10n-da[ (("da") %generate-da-toc-in-front%) ]]> <![%l10n-de[ (("de") %generate-de-toc-in-front%) ]]> <![%l10n-el[ (("el") %generate-el-toc-in-front%) ]]> <![%l10n-en[ (("en") %generate-en-toc-in-front%) ]]> <![%l10n-es[ (("es") %generate-es-toc-in-front%) ]]> <![%l10n-et[ (("et") %generate-et-toc-in-front%) ]]> <![%l10n-eu[ (("eu") %generate-eu-toc-in-front%) ]]> <![%l10n-fi[ (("fi") %generate-fi-toc-in-front%) ]]> <![%l10n-fr[ (("fr") %generate-fr-toc-in-front%) ]]> <![%l10n-hu[ (("hu") %generate-hu-toc-in-front%) ]]> <![%l10n-id[ (("id") %generate-id-toc-in-front%) ]]> <![%l10n-it[ (("it") %generate-it-toc-in-front%) ]]> <![%l10n-ja[ (("ja") %generate-ja-toc-in-front%) ]]> <![%l10n-ko[ (("ko") %generate-ko-toc-in-front%) ]]> <![%l10n-nl[ (("nl") %generate-nl-toc-in-front%) ]]> <![%l10n-nn[ (("nn") %generate-nn-toc-in-front%) ]]> <![%l10n-no[ (("no") %generate-no-toc-in-front%) ]]> <![%l10n-pl[ (("pl") %generate-pl-toc-in-front%) ]]> <![%l10n-pt[ (("pt") %generate-pt-toc-in-front%) ]]> <![%l10n-ptbr[ (("pt_br") %generate-ptbr-toc-in-front%) ]]> <![%l10n-ro[ (("ro") %generate-ro-toc-in-front%) ]]> <![%l10n-ru[ (("ru") %generate-ru-toc-in-front%) ]]> <![%l10n-sk[ (("sk") %generate-sk-toc-in-front%) ]]> <![%l10n-sl[ (("sl") %generate-sl-toc-in-front%) ]]> <![%l10n-sr[ (("sr") %generate-sr-toc-in-front%) ]]> <![%l10n-sv[ (("sv") %generate-sv-toc-in-front%) ]]> <![%l10n-tr[ (("tr") %generate-tr-toc-in-front%) ]]> <![%l10n-uk[ (("uk") %generate-uk-toc-in-front%) ]]> <![%l10n-xh[ (("xh") %generate-xh-toc-in-front%) ]]> <![%l10n-zhcn[ (("zh_cn") %generate-zhcn-toc-in-front%) ]]> <![%l10n-zhtw[ (("zh_tw") %generate-zhtw-toc-in-front%) ]]> <![%l10n-no[ (("bmno") %generate-no-toc-in-front%) ]]> <![%l10n-de[ (("dege") %generate-de-toc-in-front%) ]]> <![%l10n-da[ (("dk") %generate-da-toc-in-front%) ]]> <![%l10n-sv[ (("svse") %generate-sv-toc-in-front%) ]]> <![%l10n-en[ (("usen") %generate-en-toc-in-front%) ]]> (else (error "L10N ERROR: generate-toc-in-front")))) (define (gentext-element-name target) (let ((giname (if (string? target) (normalize target) (gi target))) (lang (if (string? target) ($lang$) ($lang$ target #t)))) (case lang <![%l10n-af[ (("af") (gentext-af-element-name giname)) ]]> <![%l10n-ca[ (("ca") (gentext-ca-element-name giname)) ]]> <![%l10n-cs[ (("cs") (gentext-cs-element-name giname)) ]]> <![%l10n-da[ (("da") (gentext-da-element-name giname)) ]]> <![%l10n-de[ (("de") (gentext-de-element-name giname)) ]]> <![%l10n-el[ (("el") (gentext-el-element-name giname)) ]]> <![%l10n-en[ (("en") (gentext-en-element-name giname)) ]]> <![%l10n-es[ (("es") (gentext-es-element-name giname)) ]]> <![%l10n-et[ (("et") (gentext-et-element-name giname)) ]]> <![%l10n-eu[ (("eu") (gentext-eu-element-name giname)) ]]> <![%l10n-fi[ (("fi") (gentext-fi-element-name giname)) ]]> <![%l10n-fr[ (("fr") (gentext-fr-element-name giname)) ]]> <![%l10n-hu[ (("hu") (gentext-hu-element-name giname)) ]]> <![%l10n-id[ (("id") (gentext-id-element-name giname)) ]]> <![%l10n-it[ (("it") (gentext-it-element-name giname)) ]]> <![%l10n-ja[ (("ja") (gentext-ja-element-name giname)) ]]> <![%l10n-ko[ (("ko") (gentext-ko-element-name giname)) ]]> <![%l10n-nl[ (("nl") (gentext-nl-element-name giname)) ]]> <![%l10n-nn[ (("nn") (gentext-nn-element-name giname)) ]]> <![%l10n-no[ (("no") (gentext-no-element-name giname)) ]]> <![%l10n-pl[ (("pl") (gentext-pl-element-name giname)) ]]> <![%l10n-pt[ (("pt") (gentext-pt-element-name giname)) ]]> <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-element-name giname)) ]]> <![%l10n-ro[ (("ro") (gentext-ro-element-name giname)) ]]> <![%l10n-ru[ (("ru") (gentext-ru-element-name giname)) ]]> <![%l10n-sk[ (("sk") (gentext-sk-element-name giname)) ]]> <![%l10n-sl[ (("sl") (gentext-sl-element-name giname)) ]]> <![%l10n-sr[ (("sr") (gentext-sr-element-name giname)) ]]> <![%l10n-sv[ (("sv") (gentext-sv-element-name giname)) ]]> <![%l10n-tr[ (("tr") (gentext-tr-element-name giname)) ]]> <![%l10n-uk[ (("uk") (gentext-uk-element-name giname)) ]]> <![%l10n-xh[ (("xh") (gentext-xh-element-name giname)) ]]> <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-element-name giname)) ]]> <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-element-name giname)) ]]> <![%l10n-no[ (("bmno") (gentext-no-element-name giname)) ]]> <![%l10n-de[ (("dege") (gentext-de-element-name giname)) ]]> <![%l10n-da[ (("dk") (gentext-da-element-name giname)) ]]> <![%l10n-sv[ (("svse") (gentext-sv-element-name giname)) ]]> <![%l10n-en[ (("usen") (gentext-en-element-name giname)) ]]> (else (error (string-append "L10N ERROR: gentext-element-name: " lang " (" giname ")")))))) (define (gentext-element-name-space target) (let ((giname (if (string? target) (normalize target) (gi target))) (lang (if (string? target) ($lang$) ($lang$ target)))) (case lang <![%l10n-af[ (("af") (gentext-af-element-name-space giname)) ]]> <![%l10n-ca[ (("ca") (gentext-ca-element-name-space giname)) ]]> <![%l10n-cs[ (("cs") (gentext-cs-element-name-space giname)) ]]> <![%l10n-da[ (("da") (gentext-da-element-name-space giname)) ]]> <![%l10n-de[ (("de") (gentext-de-element-name-space giname)) ]]> <![%l10n-el[ (("el") (gentext-el-element-name-space giname)) ]]> <![%l10n-en[ (("en") (gentext-en-element-name-space giname)) ]]> <![%l10n-es[ (("es") (gentext-es-element-name-space giname)) ]]> <![%l10n-et[ (("et") (gentext-et-element-name-space giname)) ]]> <![%l10n-eu[ (("eu") (gentext-eu-element-name-space giname)) ]]> <![%l10n-fi[ (("fi") (gentext-fi-element-name-space giname)) ]]> <![%l10n-fr[ (("fr") (gentext-fr-element-name-space giname)) ]]> <![%l10n-hu[ (("hu") (gentext-hu-element-name-space giname)) ]]> <![%l10n-id[ (("id") (gentext-id-element-name-space giname)) ]]> <![%l10n-it[ (("it") (gentext-it-element-name-space giname)) ]]> <![%l10n-ja[ (("ja") (gentext-ja-element-name-space giname)) ]]> <![%l10n-ko[ (("ko") (gentext-ko-element-name-space giname)) ]]> <![%l10n-nl[ (("nl") (gentext-nl-element-name-space giname)) ]]> <![%l10n-nn[ (("nn") (gentext-nn-element-name-space giname)) ]]> <![%l10n-no[ (("no") (gentext-no-element-name-space giname)) ]]> <![%l10n-pl[ (("pl") (gentext-pl-element-name-space giname)) ]]> <![%l10n-pt[ (("pt") (gentext-pt-element-name-space giname)) ]]> <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-element-name-space giname)) ]]> <![%l10n-ro[ (("ro") (gentext-ro-element-name-space giname)) ]]> <![%l10n-ru[ (("ru") (gentext-ru-element-name-space giname)) ]]> <![%l10n-sk[ (("sk") (gentext-sk-element-name-space giname)) ]]> <![%l10n-sl[ (("sl") (gentext-sl-element-name-space giname)) ]]> <![%l10n-sr[ (("sr") (gentext-sr-element-name-space giname)) ]]> <![%l10n-sv[ (("sv") (gentext-sv-element-name-space giname)) ]]> <![%l10n-tr[ (("tr") (gentext-tr-element-name-space giname)) ]]> <![%l10n-uk[ (("uk") (gentext-uk-element-name-space giname)) ]]> <![%l10n-xh[ (("xh") (gentext-xh-element-name-space giname)) ]]> <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-element-name-space giname)) ]]> <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-element-name-space giname)) ]]> <![%l10n-no[ (("bmno") (gentext-no-element-name-space giname)) ]]> <![%l10n-de[ (("dege") (gentext-de-element-name-space giname)) ]]> <![%l10n-da[ (("dk") (gentext-da-element-name-space giname)) ]]> <![%l10n-sv[ (("svse") (gentext-sv-element-name-space giname)) ]]> <![%l10n-en[ (("usen") (gentext-en-element-name-space giname)) ]]> (else (error "L10N ERROR: gentext-element-name-space"))))) (define (gentext-intra-label-sep target) (let ((giname (if (string? target) (normalize target) (gi target))) (lang (if (string? target) ($lang$) ($lang$ target)))) (case lang <![%l10n-af[ (("af") (gentext-af-intra-label-sep giname)) ]]> <![%l10n-ca[ (("ca") (gentext-ca-intra-label-sep giname)) ]]> <![%l10n-cs[ (("cs") (gentext-cs-intra-label-sep giname)) ]]> <![%l10n-da[ (("da") (gentext-da-intra-label-sep giname)) ]]> <![%l10n-de[ (("de") (gentext-de-intra-label-sep giname)) ]]> <![%l10n-el[ (("el") (gentext-el-intra-label-sep giname)) ]]> <![%l10n-en[ (("en") (gentext-en-intra-label-sep giname)) ]]> <![%l10n-es[ (("es") (gentext-es-intra-label-sep giname)) ]]> <![%l10n-et[ (("et") (gentext-et-intra-label-sep giname)) ]]> <![%l10n-eu[ (("eu") (gentext-eu-intra-label-sep giname)) ]]> <![%l10n-fi[ (("fi") (gentext-fi-intra-label-sep giname)) ]]> <![%l10n-fr[ (("fr") (gentext-fr-intra-label-sep giname)) ]]> <![%l10n-hu[ (("hu") (gentext-hu-intra-label-sep giname)) ]]> <![%l10n-id[ (("id") (gentext-id-intra-label-sep giname)) ]]> <![%l10n-it[ (("it") (gentext-it-intra-label-sep giname)) ]]> <![%l10n-ja[ (("ja") (gentext-ja-intra-label-sep giname)) ]]> <![%l10n-ko[ (("ko") (gentext-ko-intra-label-sep giname)) ]]> <![%l10n-nl[ (("nl") (gentext-nl-intra-label-sep giname)) ]]> <![%l10n-nn[ (("nn") (gentext-nn-intra-label-sep giname)) ]]> <![%l10n-no[ (("no") (gentext-no-intra-label-sep giname)) ]]> <![%l10n-pl[ (("pl") (gentext-pl-intra-label-sep giname)) ]]> <![%l10n-pt[ (("pt") (gentext-pt-intra-label-sep giname)) ]]> <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-intra-label-sep giname)) ]]> <![%l10n-ro[ (("ro") (gentext-ro-intra-label-sep giname)) ]]> <![%l10n-ru[ (("ru") (gentext-ru-intra-label-sep giname)) ]]> <![%l10n-sk[ (("sk") (gentext-sk-intra-label-sep giname)) ]]> <![%l10n-sl[ (("sl") (gentext-sl-intra-label-sep giname)) ]]> <![%l10n-sr[ (("sr") (gentext-sr-intra-label-sep giname)) ]]> <![%l10n-sv[ (("sv") (gentext-sv-intra-label-sep giname)) ]]> <![%l10n-tr[ (("tr") (gentext-tr-intra-label-sep giname)) ]]> <![%l10n-uk[ (("uk") (gentext-uk-intra-label-sep giname)) ]]> <![%l10n-xh[ (("xh") (gentext-xh-intra-label-sep giname)) ]]> <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-intra-label-sep giname)) ]]> <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-intra-label-sep giname)) ]]> <![%l10n-no[ (("bmno") (gentext-no-intra-label-sep giname)) ]]> <![%l10n-de[ (("dege") (gentext-de-intra-label-sep giname)) ]]> <![%l10n-da[ (("dk") (gentext-da-intra-label-sep giname)) ]]> <![%l10n-sv[ (("svse") (gentext-sv-intra-label-sep giname)) ]]> <![%l10n-en[ (("usen") (gentext-en-intra-label-sep giname)) ]]> (else (error "L10N ERROR: gentext-intra-label-sep"))))) (define (gentext-label-title-sep target) (let ((giname (if (string? target) (normalize target) (gi target))) (lang (if (string? target) ($lang$) ($lang$ target)))) (case lang <![%l10n-af[ (("af") (gentext-af-label-title-sep giname)) ]]> <![%l10n-ca[ (("ca") (gentext-ca-label-title-sep giname)) ]]> <![%l10n-cs[ (("cs") (gentext-cs-label-title-sep giname)) ]]> <![%l10n-da[ (("da") (gentext-da-label-title-sep giname)) ]]> <![%l10n-de[ (("de") (gentext-de-label-title-sep giname)) ]]> <![%l10n-el[ (("el") (gentext-el-label-title-sep giname)) ]]> <![%l10n-en[ (("en") (gentext-en-label-title-sep giname)) ]]> <![%l10n-es[ (("es") (gentext-es-label-title-sep giname)) ]]> <![%l10n-et[ (("et") (gentext-et-label-title-sep giname)) ]]> <![%l10n-eu[ (("eu") (gentext-eu-label-title-sep giname)) ]]> <![%l10n-fi[ (("fi") (gentext-fi-label-title-sep giname)) ]]> <![%l10n-fr[ (("fr") (gentext-fr-label-title-sep giname)) ]]> <![%l10n-hu[ (("hu") (gentext-hu-label-title-sep giname)) ]]> <![%l10n-id[ (("id") (gentext-id-label-title-sep giname)) ]]> <![%l10n-it[ (("it") (gentext-it-label-title-sep giname)) ]]> <![%l10n-ja[ (("ja") (gentext-ja-label-title-sep giname)) ]]> <![%l10n-ko[ (("ko") (gentext-ko-label-title-sep giname)) ]]> <![%l10n-nl[ (("nl") (gentext-nl-label-title-sep giname)) ]]> <![%l10n-nn[ (("nn") (gentext-nn-label-title-sep giname)) ]]> <![%l10n-no[ (("no") (gentext-no-label-title-sep giname)) ]]> <![%l10n-pl[ (("pl") (gentext-pl-label-title-sep giname)) ]]> <![%l10n-pt[ (("pt") (gentext-pt-label-title-sep giname)) ]]> <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-label-title-sep giname)) ]]> <![%l10n-ro[ (("ro") (gentext-ro-label-title-sep giname)) ]]> <![%l10n-ru[ (("ru") (gentext-ru-label-title-sep giname)) ]]> <![%l10n-sk[ (("sk") (gentext-sk-label-title-sep giname)) ]]> <![%l10n-sl[ (("sl") (gentext-sl-label-title-sep giname)) ]]> <![%l10n-sr[ (("sr") (gentext-sr-label-title-sep giname)) ]]> <![%l10n-sv[ (("sv") (gentext-sv-label-title-sep giname)) ]]> <![%l10n-tr[ (("tr") (gentext-tr-label-title-sep giname)) ]]> <![%l10n-uk[ (("uk") (gentext-uk-label-title-sep giname)) ]]> <![%l10n-xh[ (("xh") (gentext-xh-label-title-sep giname)) ]]> <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-label-title-sep giname)) ]]> <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-label-title-sep giname)) ]]> <![%l10n-no[ (("bmno") (gentext-no-label-title-sep giname)) ]]> <![%l10n-de[ (("dege") (gentext-de-label-title-sep giname)) ]]> <![%l10n-da[ (("dk") (gentext-da-label-title-sep giname)) ]]> <![%l10n-sv[ (("svse") (gentext-sv-label-title-sep giname)) ]]> <![%l10n-en[ (("usen") (gentext-en-label-title-sep giname)) ]]> (else (error "L10N ERROR: gentext-label-title-sep"))))) (define (label-number-format target) (let ((giname (if (string? target) (normalize target) (gi target))) (lang (if (string? target) ($lang$) ($lang$ target)))) (case lang <![%l10n-af[ (("af") (af-label-number-format target)) ]]> <![%l10n-ca[ (("ca") (ca-label-number-format target)) ]]> <![%l10n-cs[ (("cs") (cs-label-number-format target)) ]]> <![%l10n-da[ (("da") (da-label-number-format target)) ]]> <![%l10n-de[ (("de") (de-label-number-format target)) ]]> <![%l10n-el[ (("el") (el-label-number-format target)) ]]> <![%l10n-en[ (("en") (en-label-number-format target)) ]]> <![%l10n-es[ (("es") (es-label-number-format target)) ]]> <![%l10n-et[ (("et") (et-label-number-format target)) ]]> <![%l10n-eu[ (("eu") (eu-label-number-format target)) ]]> <![%l10n-fi[ (("fi") (fi-label-number-format target)) ]]> <![%l10n-fr[ (("fr") (fr-label-number-format target)) ]]> <![%l10n-hu[ (("hu") (hu-label-number-format target)) ]]> <![%l10n-id[ (("id") (id-label-number-format target)) ]]> <![%l10n-it[ (("it") (it-label-number-format target)) ]]> <![%l10n-ja[ (("ja") (ja-label-number-format target)) ]]> <![%l10n-ko[ (("ko") (ko-label-number-format target)) ]]> <![%l10n-nl[ (("nl") (nl-label-number-format target)) ]]> <![%l10n-nn[ (("nn") (nn-label-number-format target)) ]]> <![%l10n-no[ (("no") (no-label-number-format target)) ]]> <![%l10n-pl[ (("pl") (pl-label-number-format target)) ]]> <![%l10n-pt[ (("pt") (pt-label-number-format target)) ]]> <![%l10n-ptbr[ (("pt_br") (ptbr-label-number-format target)) ]]> <![%l10n-ro[ (("ro") (ro-label-number-format target)) ]]> <![%l10n-ru[ (("ru") (ru-label-number-format target)) ]]> <![%l10n-sk[ (("sk") (sk-label-number-format target)) ]]> <![%l10n-sl[ (("sl") (sl-label-number-format target)) ]]> <![%l10n-sr[ (("sr") (sr-label-number-format target)) ]]> <![%l10n-sv[ (("sv") (sv-label-number-format target)) ]]> <![%l10n-tr[ (("tr") (tr-label-number-format target)) ]]> <![%l10n-uk[ (("uk") (uk-label-number-format target)) ]]> <![%l10n-xh[ (("xh") (xh-label-number-format target)) ]]> <![%l10n-zhcn[ (("zh_cn") (zhcn-label-number-format target)) ]]> <![%l10n-zhtw[ (("zh_tw") (zhtw-label-number-format target)) ]]> <![%l10n-no[ (("bmno") (no-label-number-format target)) ]]> <![%l10n-de[ (("dege") (de-label-number-format target)) ]]> <![%l10n-da[ (("dk") (da-label-number-format target)) ]]> <![%l10n-sv[ (("svse") (sv-label-number-format target)) ]]> <![%l10n-en[ (("usen") (en-label-number-format target)) ]]> (else (error "L10N ERROR: label-number-format"))))) (define ($lot-title$ lotgi) (case ($lang$) <![%l10n-af[ (("af") ($lot-title-af$ lotgi)) ]]> <![%l10n-ca[ (("ca") ($lot-title-ca$ lotgi)) ]]> <![%l10n-cs[ (("cs") ($lot-title-cs$ lotgi)) ]]> <![%l10n-da[ (("da") ($lot-title-da$ lotgi)) ]]> <![%l10n-de[ (("de") ($lot-title-de$ lotgi)) ]]> <![%l10n-el[ (("el") ($lot-title-el$ lotgi)) ]]> <![%l10n-en[ (("en") ($lot-title-en$ lotgi)) ]]> <![%l10n-es[ (("es") ($lot-title-es$ lotgi)) ]]> <![%l10n-et[ (("et") ($lot-title-et$ lotgi)) ]]> <![%l10n-eu[ (("eu") ($lot-title-eu$ lotgi)) ]]> <![%l10n-fi[ (("fi") ($lot-title-fi$ lotgi)) ]]> <![%l10n-fr[ (("fr") ($lot-title-fr$ lotgi)) ]]> <![%l10n-hu[ (("hu") ($lot-title-hu$ lotgi)) ]]> <![%l10n-id[ (("id") ($lot-title-id$ lotgi)) ]]> <![%l10n-it[ (("it") ($lot-title-it$ lotgi)) ]]> <![%l10n-ja[ (("ja") ($lot-title-ja$ lotgi)) ]]> <![%l10n-ko[ (("ko") ($lot-title-ko$ lotgi)) ]]> <![%l10n-nl[ (("nl") ($lot-title-nl$ lotgi)) ]]> <![%l10n-nn[ (("nn") ($lot-title-nn$ lotgi)) ]]> <![%l10n-no[ (("no") ($lot-title-no$ lotgi)) ]]> <![%l10n-pl[ (("pl") ($lot-title-pl$ lotgi)) ]]> <![%l10n-pt[ (("pt") ($lot-title-pt$ lotgi)) ]]> <![%l10n-ptbr[ (("pt_br") ($lot-title-ptbr$ lotgi)) ]]> <![%l10n-ro[ (("ro") ($lot-title-ro$ lotgi)) ]]> <![%l10n-ru[ (("ru") ($lot-title-ru$ lotgi)) ]]> <![%l10n-sk[ (("sk") ($lot-title-sk$ lotgi)) ]]> <![%l10n-sl[ (("sl") ($lot-title-sl$ lotgi)) ]]> <![%l10n-sr[ (("sr") ($lot-title-sr$ lotgi)) ]]> <![%l10n-sv[ (("sv") ($lot-title-sv$ lotgi)) ]]> <![%l10n-tr[ (("tr") ($lot-title-tr$ lotgi)) ]]> <![%l10n-uk[ (("uk") ($lot-title-uk$ lotgi)) ]]> <![%l10n-xh[ (("xh") ($lot-title-xh$ lotgi)) ]]> <![%l10n-zhcn[ (("zh_cn") ($lot-title-zhcn$ lotgi)) ]]> <![%l10n-zhtw[ (("zh_tw") ($lot-title-zhtw$ lotgi)) ]]> <![%l10n-no[ (("bmno") ($lot-title-no$ lotgi)) ]]> <![%l10n-de[ (("dege") ($lot-title-de$ lotgi)) ]]> <![%l10n-da[ (("dk") ($lot-title-da$ lotgi)) ]]> <![%l10n-sv[ (("svse") ($lot-title-sv$ lotgi)) ]]> <![%l10n-en[ (("usen") ($lot-title-en$ lotgi)) ]]> (else (error "L10N ERROR: $lot-title$")))) (define (gentext-start-quote) (case ($lang$) <![%l10n-af[ (("af") %gentext-af-start-quote%) ]]> <![%l10n-ca[ (("ca") %gentext-ca-start-quote%) ]]> <![%l10n-cs[ (("cs") %gentext-cs-start-quote%) ]]> <![%l10n-da[ (("da") %gentext-da-start-quote%) ]]> <![%l10n-de[ (("de") %gentext-de-start-quote%) ]]> <![%l10n-el[ (("el") %gentext-el-start-quote%) ]]> <![%l10n-en[ (("en") %gentext-en-start-quote%) ]]> <![%l10n-es[ (("es") %gentext-es-start-quote%) ]]> <![%l10n-et[ (("et") %gentext-et-start-quote%) ]]> <![%l10n-eu[ (("eu") %gentext-eu-start-quote%) ]]> <![%l10n-fi[ (("fi") %gentext-fi-start-quote%) ]]> <![%l10n-fr[ (("fr") %gentext-fr-start-quote%) ]]> <![%l10n-hu[ (("hu") %gentext-hu-start-quote%) ]]> <![%l10n-id[ (("id") %gentext-id-start-quote%) ]]> <![%l10n-it[ (("it") %gentext-it-start-quote%) ]]> <![%l10n-ja[ (("ja") %gentext-ja-start-quote%) ]]> <![%l10n-ko[ (("ko") %gentext-ko-start-quote%) ]]> <![%l10n-nl[ (("nl") %gentext-nl-start-quote%) ]]> <![%l10n-nn[ (("nn") %gentext-nn-start-quote%) ]]> <![%l10n-no[ (("no") %gentext-no-start-quote%) ]]> <![%l10n-pl[ (("pl") %gentext-pl-start-quote%) ]]> <![%l10n-pt[ (("pt") %gentext-pt-start-quote%) ]]> <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-start-quote%) ]]> <![%l10n-ro[ (("ro") %gentext-ro-start-quote%) ]]> <![%l10n-ru[ (("ru") %gentext-ru-start-quote%) ]]> <![%l10n-sk[ (("sk") %gentext-sk-start-quote%) ]]> <![%l10n-sl[ (("sl") %gentext-sl-start-quote%) ]]> <![%l10n-sr[ (("sr") %gentext-sr-start-quote%) ]]> <![%l10n-sv[ (("sv") %gentext-sv-start-quote%) ]]> <![%l10n-tr[ (("tr") %gentext-tr-start-quote%) ]]> <![%l10n-uk[ (("uk") %gentext-uk-start-quote%) ]]> <![%l10n-xh[ (("xh") %gentext-xh-start-quote%) ]]> <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-start-quote%) ]]> <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-start-quote%) ]]> <![%l10n-no[ (("bmno") %gentext-no-start-quote%) ]]> <![%l10n-de[ (("dege") %gentext-de-start-quote%) ]]> <![%l10n-da[ (("dk") %gentext-da-start-quote%) ]]> <![%l10n-sv[ (("svse") %gentext-sv-start-quote%) ]]> <![%l10n-en[ (("usen") %gentext-en-start-quote%) ]]> (else (error "L10N ERROR: gentext-start-quote")))) (define (gentext-end-quote) (case ($lang$) <![%l10n-af[ (("af") %gentext-af-end-quote%) ]]> <![%l10n-ca[ (("ca") %gentext-ca-end-quote%) ]]> <![%l10n-cs[ (("cs") %gentext-cs-end-quote%) ]]> <![%l10n-da[ (("da") %gentext-da-end-quote%) ]]> <![%l10n-de[ (("de") %gentext-de-end-quote%) ]]> <![%l10n-el[ (("el") %gentext-el-end-quote%) ]]> <![%l10n-en[ (("en") %gentext-en-end-quote%) ]]> <![%l10n-es[ (("es") %gentext-es-end-quote%) ]]> <![%l10n-et[ (("et") %gentext-et-end-quote%) ]]> <![%l10n-eu[ (("eu") %gentext-eu-end-quote%) ]]> <![%l10n-fi[ (("fi") %gentext-fi-end-quote%) ]]> <![%l10n-fr[ (("fr") %gentext-fr-end-quote%) ]]> <![%l10n-hu[ (("hu") %gentext-hu-end-quote%) ]]> <![%l10n-id[ (("id") %gentext-id-end-quote%) ]]> <![%l10n-it[ (("it") %gentext-it-end-quote%) ]]> <![%l10n-ja[ (("ja") %gentext-ja-end-quote%) ]]> <![%l10n-ko[ (("ko") %gentext-ko-end-quote%) ]]> <![%l10n-nl[ (("nl") %gentext-nl-end-quote%) ]]> <![%l10n-nn[ (("nn") %gentext-nn-end-quote%) ]]> <![%l10n-no[ (("no") %gentext-no-end-quote%) ]]> <![%l10n-pl[ (("pl") %gentext-pl-end-quote%) ]]> <![%l10n-pt[ (("pt") %gentext-pt-end-quote%) ]]> <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-end-quote%) ]]> <![%l10n-ro[ (("ro") %gentext-ro-end-quote%) ]]> <![%l10n-ru[ (("ru") %gentext-ru-end-quote%) ]]> <![%l10n-sk[ (("sk") %gentext-sk-end-quote%) ]]> <![%l10n-sl[ (("sl") %gentext-sl-end-quote%) ]]> <![%l10n-sr[ (("sr") %gentext-sr-end-quote%) ]]> <![%l10n-sv[ (("sv") %gentext-sv-end-quote%) ]]> <![%l10n-tr[ (("tr") %gentext-tr-end-quote%) ]]> <![%l10n-uk[ (("uk") %gentext-uk-end-quote%) ]]> <![%l10n-xh[ (("xh") %gentext-xh-end-quote%) ]]> <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-end-quote%) ]]> <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-end-quote%) ]]> <![%l10n-no[ (("bmno") %gentext-no-end-quote%) ]]> <![%l10n-de[ (("dege") %gentext-de-end-quote%) ]]> <![%l10n-da[ (("dk") %gentext-da-end-quote%) ]]> <![%l10n-sv[ (("svse") %gentext-sv-end-quote%) ]]> <![%l10n-en[ (("usen") %gentext-en-end-quote%) ]]> (else (error "L10N ERROR: gentext-end-quote")))) (define (gentext-start-nested-quote) (case ($lang$) <![%l10n-af[ (("af") %gentext-af-start-nested-quote%) ]]> <![%l10n-ca[ (("ca") %gentext-ca-start-nested-quote%) ]]> <![%l10n-cs[ (("cs") %gentext-cs-start-nested-quote%) ]]> <![%l10n-da[ (("da") %gentext-da-start-nested-quote%) ]]> <![%l10n-de[ (("de") %gentext-de-start-nested-quote%) ]]> <![%l10n-el[ (("el") %gentext-el-start-nested-quote%) ]]> <![%l10n-en[ (("en") %gentext-en-start-nested-quote%) ]]> <![%l10n-es[ (("es") %gentext-es-start-nested-quote%) ]]> <![%l10n-et[ (("et") %gentext-et-start-nested-quote%) ]]> <![%l10n-eu[ (("eu") %gentext-eu-start-nested-quote%) ]]> <![%l10n-fi[ (("fi") %gentext-fi-start-nested-quote%) ]]> <![%l10n-fr[ (("fr") %gentext-fr-start-nested-quote%) ]]> <![%l10n-hu[ (("hu") %gentext-hu-start-nested-quote%) ]]> <![%l10n-id[ (("id") %gentext-id-start-nested-quote%) ]]> <![%l10n-it[ (("it") %gentext-it-start-nested-quote%) ]]> <![%l10n-ja[ (("ja") %gentext-ja-start-nested-quote%) ]]> <![%l10n-ko[ (("ko") %gentext-ko-start-nested-quote%) ]]> <![%l10n-nl[ (("nl") %gentext-nl-start-nested-quote%) ]]> <![%l10n-nn[ (("nn") %gentext-nn-start-nested-quote%) ]]> <![%l10n-no[ (("no") %gentext-no-start-nested-quote%) ]]> <![%l10n-pl[ (("pl") %gentext-pl-start-nested-quote%) ]]> <![%l10n-pt[ (("pt") %gentext-pt-start-nested-quote%) ]]> <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-start-nested-quote%) ]]> <![%l10n-ro[ (("ro") %gentext-ro-start-nested-quote%) ]]> <![%l10n-ru[ (("ru") %gentext-ru-start-nested-quote%) ]]> <![%l10n-sk[ (("sk") %gentext-sk-start-nested-quote%) ]]> <![%l10n-sl[ (("sl") %gentext-sl-start-nested-quote%) ]]> <![%l10n-sr[ (("sr") %gentext-sr-start-nested-quote%) ]]> <![%l10n-sv[ (("sv") %gentext-sv-start-nested-quote%) ]]> <![%l10n-tr[ (("tr") %gentext-tr-start-nested-quote%) ]]> <![%l10n-uk[ (("uk") %gentext-uk-start-nested-quote%) ]]> <![%l10n-xh[ (("xh") %gentext-xh-start-nested-quote%) ]]> <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-start-nested-quote%) ]]> <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-start-nested-quote%) ]]> <![%l10n-no[ (("bmno") %gentext-no-start-nested-quote%) ]]> <![%l10n-de[ (("dege") %gentext-de-start-nested-quote%) ]]> <![%l10n-da[ (("dk") %gentext-da-start-nested-quote%) ]]> <![%l10n-sv[ (("svse") %gentext-sv-start-nested-quote%) ]]> <![%l10n-en[ (("usen") %gentext-en-start-nested-quote%) ]]> (else (error "L10N ERROR: gentext-start-nested-quote")))) (define (gentext-end-nested-quote) (case ($lang$) <![%l10n-af[ (("af") %gentext-af-end-nested-quote%) ]]> <![%l10n-ca[ (("ca") %gentext-ca-end-nested-quote%) ]]> <![%l10n-cs[ (("cs") %gentext-cs-end-nested-quote%) ]]> <![%l10n-da[ (("da") %gentext-da-end-nested-quote%) ]]> <![%l10n-de[ (("de") %gentext-de-end-nested-quote%) ]]> <![%l10n-el[ (("el") %gentext-el-end-nested-quote%) ]]> <![%l10n-en[ (("en") %gentext-en-end-nested-quote%) ]]> <![%l10n-es[ (("es") %gentext-es-end-nested-quote%) ]]> <![%l10n-et[ (("et") %gentext-et-end-nested-quote%) ]]> <![%l10n-eu[ (("eu") %gentext-eu-end-nested-quote%) ]]> <![%l10n-fi[ (("fi") %gentext-fi-end-nested-quote%) ]]> <![%l10n-fr[ (("fr") %gentext-fr-end-nested-quote%) ]]> <![%l10n-hu[ (("hu") %gentext-hu-end-nested-quote%) ]]> <![%l10n-id[ (("id") %gentext-id-end-nested-quote%) ]]> <![%l10n-it[ (("it") %gentext-it-end-nested-quote%) ]]> <![%l10n-ja[ (("ja") %gentext-ja-end-nested-quote%) ]]> <![%l10n-ko[ (("ko") %gentext-ko-end-nested-quote%) ]]> <![%l10n-nl[ (("nl") %gentext-nl-end-nested-quote%) ]]> <![%l10n-nn[ (("nn") %gentext-nn-end-nested-quote%) ]]> <![%l10n-no[ (("no") %gentext-no-end-nested-quote%) ]]> <![%l10n-pl[ (("pl") %gentext-pl-end-nested-quote%) ]]> <![%l10n-pt[ (("pt") %gentext-pt-end-nested-quote%) ]]> <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-end-nested-quote%) ]]> <![%l10n-ro[ (("ro") %gentext-ro-end-nested-quote%) ]]> <![%l10n-ru[ (("ru") %gentext-ru-end-nested-quote%) ]]> <![%l10n-sk[ (("sk") %gentext-sk-end-nested-quote%) ]]> <![%l10n-sl[ (("sl") %gentext-sl-end-nested-quote%) ]]> <![%l10n-sr[ (("sr") %gentext-sr-end-nested-quote%) ]]> <![%l10n-sv[ (("sv") %gentext-sv-end-nested-quote%) ]]> <![%l10n-tr[ (("tr") %gentext-tr-end-nested-quote%) ]]> <![%l10n-uk[ (("uk") %gentext-uk-end-nested-quote%) ]]> <![%l10n-xh[ (("xh") %gentext-xh-end-nested-quote%) ]]> <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-end-nested-quote%) ]]> <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-end-nested-quote%) ]]> <![%l10n-no[ (("bmno") %gentext-no-end-nested-quote%) ]]> <![%l10n-de[ (("dege") %gentext-de-end-nested-quote%) ]]> <![%l10n-da[ (("dk") %gentext-da-end-nested-quote%) ]]> <![%l10n-sv[ (("svse") %gentext-sv-end-nested-quote%) ]]> <![%l10n-en[ (("usen") %gentext-en-end-nested-quote%) ]]> (else (error "L10N ERROR: gentext-end-nested-quote")))) (define (gentext-by) (case ($lang$) <![%l10n-af[ (("af") %gentext-af-by%) ]]> <![%l10n-ca[ (("ca") %gentext-ca-by%) ]]> <![%l10n-cs[ (("cs") %gentext-cs-by%) ]]> <![%l10n-da[ (("da") %gentext-da-by%) ]]> <![%l10n-de[ (("de") %gentext-de-by%) ]]> <![%l10n-el[ (("el") %gentext-el-by%) ]]> <![%l10n-en[ (("en") %gentext-en-by%) ]]> <![%l10n-es[ (("es") %gentext-es-by%) ]]> <![%l10n-et[ (("et") %gentext-et-by%) ]]> <![%l10n-eu[ (("eu") %gentext-eu-by%) ]]> <![%l10n-fi[ (("fi") %gentext-fi-by%) ]]> <![%l10n-fr[ (("fr") %gentext-fr-by%) ]]> <![%l10n-hu[ (("hu") %gentext-hu-by%) ]]> <![%l10n-id[ (("id") %gentext-id-by%) ]]> <![%l10n-it[ (("it") %gentext-it-by%) ]]> <![%l10n-ja[ (("ja") %gentext-ja-by%) ]]> <![%l10n-ko[ (("ko") %gentext-ko-by%) ]]> <![%l10n-nl[ (("nl") %gentext-nl-by%) ]]> <![%l10n-nn[ (("nn") %gentext-nn-by%) ]]> <![%l10n-no[ (("no") %gentext-no-by%) ]]> <![%l10n-pl[ (("pl") %gentext-pl-by%) ]]> <![%l10n-pt[ (("pt") %gentext-pt-by%) ]]> <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-by%) ]]> <![%l10n-ro[ (("ro") %gentext-ro-by%) ]]> <![%l10n-ru[ (("ru") %gentext-ru-by%) ]]> <![%l10n-sk[ (("sk") %gentext-sk-by%) ]]> <![%l10n-sl[ (("sl") %gentext-sl-by%) ]]> <![%l10n-sr[ (("sr") %gentext-sr-by%) ]]> <![%l10n-sv[ (("sv") %gentext-sv-by%) ]]> <![%l10n-tr[ (("tr") %gentext-tr-by%) ]]> <![%l10n-uk[ (("uk") %gentext-uk-by%) ]]> <![%l10n-xh[ (("xh") %gentext-xh-by%) ]]> <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-by%) ]]> <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-by%) ]]> <![%l10n-no[ (("bmno") %gentext-no-by%) ]]> <![%l10n-de[ (("dege") %gentext-de-by%) ]]> <![%l10n-da[ (("dk") %gentext-da-by%) ]]> <![%l10n-sv[ (("svse") %gentext-sv-by%) ]]> <![%l10n-en[ (("usen") %gentext-en-by%) ]]> (else (error "L10N ERROR: gentext-by")))) (define (gentext-edited-by) (case ($lang$) <![%l10n-af[ (("af") %gentext-af-edited-by%) ]]> <![%l10n-ca[ (("ca") %gentext-ca-edited-by%) ]]> <![%l10n-cs[ (("cs") %gentext-cs-edited-by%) ]]> <![%l10n-da[ (("da") %gentext-da-edited-by%) ]]> <![%l10n-de[ (("de") %gentext-de-edited-by%) ]]> <![%l10n-el[ (("el") %gentext-el-edited-by%) ]]> <![%l10n-en[ (("en") %gentext-en-edited-by%) ]]> <![%l10n-es[ (("es") %gentext-es-edited-by%) ]]> <![%l10n-et[ (("et") %gentext-et-edited-by%) ]]> <![%l10n-eu[ (("eu") %gentext-eu-edited-by%) ]]> <![%l10n-fi[ (("fi") %gentext-fi-edited-by%) ]]> <![%l10n-fr[ (("fr") %gentext-fr-edited-by%) ]]> <![%l10n-hu[ (("hu") %gentext-hu-edited-by%) ]]> <![%l10n-id[ (("id") %gentext-id-edited-by%) ]]> <![%l10n-it[ (("it") %gentext-it-edited-by%) ]]> <![%l10n-ja[ (("ja") %gentext-ja-edited-by%) ]]> <![%l10n-ko[ (("ko") %gentext-ko-edited-by%) ]]> <![%l10n-nl[ (("nl") %gentext-nl-edited-by%) ]]> <![%l10n-nn[ (("nn") %gentext-nn-edited-by%) ]]> <![%l10n-no[ (("no") %gentext-no-edited-by%) ]]> <![%l10n-pl[ (("pl") %gentext-pl-edited-by%) ]]> <![%l10n-pt[ (("pt") %gentext-pt-edited-by%) ]]> <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-edited-by%) ]]> <![%l10n-ro[ (("ro") %gentext-ro-edited-by%) ]]> <![%l10n-ru[ (("ru") %gentext-ru-edited-by%) ]]> <![%l10n-sk[ (("sk") %gentext-sk-edited-by%) ]]> <![%l10n-sl[ (("sl") %gentext-sl-edited-by%) ]]> <![%l10n-sr[ (("sr") %gentext-sr-edited-by%) ]]> <![%l10n-sv[ (("sv") %gentext-sv-edited-by%) ]]> <![%l10n-tr[ (("tr") %gentext-tr-edited-by%) ]]> <![%l10n-uk[ (("uk") %gentext-uk-edited-by%) ]]> <![%l10n-xh[ (("xh") %gentext-xh-edited-by%) ]]> <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-edited-by%) ]]> <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-edited-by%) ]]> <![%l10n-no[ (("bmno") %gentext-no-edited-by%) ]]> <![%l10n-de[ (("dege") %gentext-de-edited-by%) ]]> <![%l10n-da[ (("dk") %gentext-da-edited-by%) ]]> <![%l10n-sv[ (("svse") %gentext-sv-edited-by%) ]]> <![%l10n-en[ (("usen") %gentext-en-edited-by%) ]]> (else (error "L10N ERROR: gentext-edited-by")))) (define (gentext-revised-by) (case ($lang$) <![%l10n-af[ (("af") %gentext-af-revised-by%) ]]> <![%l10n-ca[ (("ca") %gentext-ca-revised-by%) ]]> <![%l10n-cs[ (("cs") %gentext-cs-revised-by%) ]]> <![%l10n-da[ (("da") %gentext-da-revised-by%) ]]> <![%l10n-de[ (("de") %gentext-de-revised-by%) ]]> <![%l10n-el[ (("el") %gentext-el-revised-by%) ]]> <![%l10n-en[ (("en") %gentext-en-revised-by%) ]]> <![%l10n-es[ (("es") %gentext-es-revised-by%) ]]> <![%l10n-et[ (("et") %gentext-et-revised-by%) ]]> <![%l10n-eu[ (("eu") %gentext-eu-revised-by%) ]]> <![%l10n-fi[ (("fi") %gentext-fi-revised-by%) ]]> <![%l10n-fr[ (("fr") %gentext-fr-revised-by%) ]]> <![%l10n-hu[ (("hu") %gentext-hu-revised-by%) ]]> <![%l10n-id[ (("id") %gentext-id-revised-by%) ]]> <![%l10n-it[ (("it") %gentext-it-revised-by%) ]]> <![%l10n-ja[ (("ja") %gentext-ja-revised-by%) ]]> <![%l10n-ko[ (("ko") %gentext-ko-revised-by%) ]]> <![%l10n-nl[ (("nl") %gentext-nl-revised-by%) ]]> <![%l10n-nn[ (("nn") %gentext-nn-revised-by%) ]]> <![%l10n-no[ (("no") %gentext-no-revised-by%) ]]> <![%l10n-pl[ (("pl") %gentext-pl-revised-by%) ]]> <![%l10n-pt[ (("pt") %gentext-pt-revised-by%) ]]> <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-revised-by%) ]]> <![%l10n-ro[ (("ro") %gentext-ro-revised-by%) ]]> <![%l10n-ru[ (("ru") %gentext-ru-revised-by%) ]]> <![%l10n-sk[ (("sk") %gentext-sk-revised-by%) ]]> <![%l10n-sl[ (("sl") %gentext-sl-revised-by%) ]]> <![%l10n-sr[ (("sr") %gentext-sr-revised-by%) ]]> <![%l10n-sv[ (("sv") %gentext-sv-revised-by%) ]]> <![%l10n-tr[ (("tr") %gentext-tr-revised-by%) ]]> <![%l10n-uk[ (("uk") %gentext-uk-revised-by%) ]]> <![%l10n-xh[ (("xh") %gentext-xh-revised-by%) ]]> <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-revised-by%) ]]> <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-revised-by%) ]]> <![%l10n-no[ (("bmno") %gentext-no-revised-by%) ]]> <![%l10n-de[ (("dege") %gentext-de-revised-by%) ]]> <![%l10n-da[ (("dk") %gentext-da-revised-by%) ]]> <![%l10n-sv[ (("svse") %gentext-sv-revised-by%) ]]> <![%l10n-en[ (("usen") %gentext-en-revised-by%) ]]> (else (error "L10N ERROR: gentext-revised-by")))) (define (gentext-page) (case ($lang$) <![%l10n-af[ (("af") %gentext-af-page%) ]]> <![%l10n-ca[ (("ca") %gentext-ca-page%) ]]> <![%l10n-cs[ (("cs") %gentext-cs-page%) ]]> <![%l10n-da[ (("da") %gentext-da-page%) ]]> <![%l10n-de[ (("de") %gentext-de-page%) ]]> <![%l10n-el[ (("el") %gentext-el-page%) ]]> <![%l10n-en[ (("en") %gentext-en-page%) ]]> <![%l10n-es[ (("es") %gentext-es-page%) ]]> <![%l10n-et[ (("et") %gentext-et-page%) ]]> <![%l10n-eu[ (("eu") %gentext-eu-page%) ]]> <![%l10n-fi[ (("fi") %gentext-fi-page%) ]]> <![%l10n-fr[ (("fr") %gentext-fr-page%) ]]> <![%l10n-hu[ (("hu") %gentext-hu-page%) ]]> <![%l10n-id[ (("id") %gentext-id-page%) ]]> <![%l10n-it[ (("it") %gentext-it-page%) ]]> <![%l10n-ja[ (("ja") %gentext-ja-page%) ]]> <![%l10n-ko[ (("ko") %gentext-ko-page%) ]]> <![%l10n-nl[ (("nl") %gentext-nl-page%) ]]> <![%l10n-nn[ (("nn") %gentext-nn-page%) ]]> <![%l10n-no[ (("no") %gentext-no-page%) ]]> <![%l10n-pl[ (("pl") %gentext-pl-page%) ]]> <![%l10n-pt[ (("pt") %gentext-pt-page%) ]]> <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-page%) ]]> <![%l10n-ro[ (("ro") %gentext-ro-page%) ]]> <![%l10n-ru[ (("ru") %gentext-ru-page%) ]]> <![%l10n-sk[ (("sk") %gentext-sk-page%) ]]> <![%l10n-sl[ (("sl") %gentext-sl-page%) ]]> <![%l10n-sr[ (("sr") %gentext-sr-page%) ]]> <![%l10n-sv[ (("sv") %gentext-sv-page%) ]]> <![%l10n-tr[ (("tr") %gentext-tr-page%) ]]> <![%l10n-uk[ (("uk") %gentext-uk-page%) ]]> <![%l10n-xh[ (("xh") %gentext-xh-page%) ]]> <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-page%) ]]> <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-page%) ]]> <![%l10n-no[ (("bmno") %gentext-no-page%) ]]> <![%l10n-de[ (("dege") %gentext-de-page%) ]]> <![%l10n-da[ (("dk") %gentext-da-page%) ]]> <![%l10n-sv[ (("svse") %gentext-sv-page%) ]]> <![%l10n-en[ (("usen") %gentext-en-page%) ]]> (else (error "L10N ERROR: gentext-page")))) (define (gentext-and) (case ($lang$) <![%l10n-af[ (("af") %gentext-af-and%) ]]> <![%l10n-ca[ (("ca") %gentext-ca-and%) ]]> <![%l10n-cs[ (("cs") %gentext-cs-and%) ]]> <![%l10n-da[ (("da") %gentext-da-and%) ]]> <![%l10n-de[ (("de") %gentext-de-and%) ]]> <![%l10n-el[ (("el") %gentext-el-and%) ]]> <![%l10n-en[ (("en") %gentext-en-and%) ]]> <![%l10n-es[ (("es") %gentext-es-and%) ]]> <![%l10n-et[ (("et") %gentext-et-and%) ]]> <![%l10n-eu[ (("eu") %gentext-eu-and%) ]]> <![%l10n-fi[ (("fi") %gentext-fi-and%) ]]> <![%l10n-fr[ (("fr") %gentext-fr-and%) ]]> <![%l10n-hu[ (("hu") %gentext-hu-and%) ]]> <![%l10n-id[ (("id") %gentext-id-and%) ]]> <![%l10n-it[ (("it") %gentext-it-and%) ]]> <![%l10n-ja[ (("ja") %gentext-ja-and%) ]]> <![%l10n-ko[ (("ko") %gentext-ko-and%) ]]> <![%l10n-nl[ (("nl") %gentext-nl-and%) ]]> <![%l10n-nn[ (("nn") %gentext-nn-and%) ]]> <![%l10n-no[ (("no") %gentext-no-and%) ]]> <![%l10n-pl[ (("pl") %gentext-pl-and%) ]]> <![%l10n-pt[ (("pt") %gentext-pt-and%) ]]> <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-and%) ]]> <![%l10n-ro[ (("ro") %gentext-ro-and%) ]]> <![%l10n-ru[ (("ru") %gentext-ru-and%) ]]> <![%l10n-sk[ (("sk") %gentext-sk-and%) ]]> <![%l10n-sl[ (("sl") %gentext-sl-and%) ]]> <![%l10n-sr[ (("sr") %gentext-sr-and%) ]]> <![%l10n-sv[ (("sv") %gentext-sv-and%) ]]> <![%l10n-tr[ (("tr") %gentext-tr-and%) ]]> <![%l10n-uk[ (("uk") %gentext-uk-and%) ]]> <![%l10n-xh[ (("xh") %gentext-xh-and%) ]]> <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-and%) ]]> <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-and%) ]]> <![%l10n-no[ (("bmno") %gentext-no-and%) ]]> <![%l10n-de[ (("dege") %gentext-de-and%) ]]> <![%l10n-da[ (("dk") %gentext-da-and%) ]]> <![%l10n-sv[ (("svse") %gentext-sv-and%) ]]> <![%l10n-en[ (("usen") %gentext-en-and%) ]]> (else (error "L10N ERROR: gentext-and")))) (define (gentext-listcomma) (case ($lang$) <![%l10n-af[ (("af") %gentext-af-listcomma%) ]]> <![%l10n-ca[ (("ca") %gentext-ca-listcomma%) ]]> <![%l10n-cs[ (("cs") %gentext-cs-listcomma%) ]]> <![%l10n-da[ (("da") %gentext-da-listcomma%) ]]> <![%l10n-de[ (("de") %gentext-de-listcomma%) ]]> <![%l10n-el[ (("el") %gentext-el-listcomma%) ]]> <![%l10n-en[ (("en") %gentext-en-listcomma%) ]]> <![%l10n-es[ (("es") %gentext-es-listcomma%) ]]> <![%l10n-et[ (("et") %gentext-et-listcomma%) ]]> <![%l10n-eu[ (("eu") %gentext-eu-listcomma%) ]]> <![%l10n-fi[ (("fi") %gentext-fi-listcomma%) ]]> <![%l10n-fr[ (("fr") %gentext-fr-listcomma%) ]]> <![%l10n-hu[ (("hu") %gentext-hu-listcomma%) ]]> <![%l10n-id[ (("id") %gentext-id-listcomma%) ]]> <![%l10n-it[ (("it") %gentext-it-listcomma%) ]]> <![%l10n-ja[ (("ja") %gentext-ja-listcomma%) ]]> <![%l10n-ko[ (("ko") %gentext-ko-listcomma%) ]]> <![%l10n-nl[ (("nl") %gentext-nl-listcomma%) ]]> <![%l10n-nn[ (("nn") %gentext-nn-listcomma%) ]]> <![%l10n-no[ (("no") %gentext-no-listcomma%) ]]> <![%l10n-pl[ (("pl") %gentext-pl-listcomma%) ]]> <![%l10n-pt[ (("pt") %gentext-pt-listcomma%) ]]> <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-listcomma%) ]]> <![%l10n-ro[ (("ro") %gentext-ro-listcomma%) ]]> <![%l10n-ru[ (("ru") %gentext-ru-listcomma%) ]]> <![%l10n-sk[ (("sk") %gentext-sk-listcomma%) ]]> <![%l10n-sl[ (("sl") %gentext-sl-listcomma%) ]]> <![%l10n-sr[ (("sr") %gentext-sr-listcomma%) ]]> <![%l10n-sv[ (("sv") %gentext-sv-listcomma%) ]]> <![%l10n-tr[ (("tr") %gentext-tr-listcomma%) ]]> <![%l10n-uk[ (("uk") %gentext-uk-listcomma%) ]]> <![%l10n-xh[ (("xh") %gentext-xh-listcomma%) ]]> <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-listcomma%) ]]> <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-listcomma%) ]]> <![%l10n-no[ (("bmno") %gentext-no-listcomma%) ]]> <![%l10n-de[ (("dege") %gentext-de-listcomma%) ]]> <![%l10n-da[ (("dk") %gentext-da-listcomma%) ]]> <![%l10n-sv[ (("svse") %gentext-sv-listcomma%) ]]> <![%l10n-en[ (("usen") %gentext-en-listcomma%) ]]> (else (error "L10N ERROR: gentext-listcomma")))) (define (gentext-lastlistcomma) (case ($lang$) <![%l10n-af[ (("af") %gentext-af-lastlistcomma%) ]]> <![%l10n-ca[ (("ca") %gentext-ca-lastlistcomma%) ]]> <![%l10n-cs[ (("cs") %gentext-cs-lastlistcomma%) ]]> <![%l10n-da[ (("da") %gentext-da-lastlistcomma%) ]]> <![%l10n-de[ (("de") %gentext-de-lastlistcomma%) ]]> <![%l10n-el[ (("el") %gentext-el-lastlistcomma%) ]]> <![%l10n-en[ (("en") %gentext-en-lastlistcomma%) ]]> <![%l10n-es[ (("es") %gentext-es-lastlistcomma%) ]]> <![%l10n-et[ (("et") %gentext-et-lastlistcomma%) ]]> <![%l10n-eu[ (("eu") %gentext-eu-lastlistcomma%) ]]> <![%l10n-fi[ (("fi") %gentext-fi-lastlistcomma%) ]]> <![%l10n-fr[ (("fr") %gentext-fr-lastlistcomma%) ]]> <![%l10n-hu[ (("hu") %gentext-hu-lastlistcomma%) ]]> <![%l10n-id[ (("id") %gentext-id-lastlistcomma%) ]]> <![%l10n-it[ (("it") %gentext-it-lastlistcomma%) ]]> <![%l10n-ja[ (("ja") %gentext-ja-lastlistcomma%) ]]> <![%l10n-ko[ (("ko") %gentext-ko-lastlistcomma%) ]]> <![%l10n-nl[ (("nl") %gentext-nl-lastlistcomma%) ]]> <![%l10n-nn[ (("nn") %gentext-nn-lastlistcomma%) ]]> <![%l10n-no[ (("no") %gentext-no-lastlistcomma%) ]]> <![%l10n-pl[ (("pl") %gentext-pl-lastlistcomma%) ]]> <![%l10n-pt[ (("pt") %gentext-pt-lastlistcomma%) ]]> <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-lastlistcomma%) ]]> <![%l10n-ro[ (("ro") %gentext-ro-lastlistcomma%) ]]> <![%l10n-ru[ (("ru") %gentext-ru-lastlistcomma%) ]]> <![%l10n-sk[ (("sk") %gentext-sk-lastlistcomma%) ]]> <![%l10n-sl[ (("sl") %gentext-sl-lastlistcomma%) ]]> <![%l10n-sr[ (("sr") %gentext-sr-lastlistcomma%) ]]> <![%l10n-sv[ (("sv") %gentext-sv-lastlistcomma%) ]]> <![%l10n-tr[ (("tr") %gentext-tr-lastlistcomma%) ]]> <![%l10n-uk[ (("uk") %gentext-uk-lastlistcomma%) ]]> <![%l10n-xh[ (("xh") %gentext-xh-lastlistcomma%) ]]> <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-lastlistcomma%) ]]> <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-lastlistcomma%) ]]> <![%l10n-no[ (("bmno") %gentext-no-lastlistcomma%) ]]> <![%l10n-de[ (("dege") %gentext-de-lastlistcomma%) ]]> <![%l10n-da[ (("dk") %gentext-da-lastlistcomma%) ]]> <![%l10n-sv[ (("svse") %gentext-sv-lastlistcomma%) ]]> <![%l10n-en[ (("usen") %gentext-en-lastlistcomma%) ]]> (else (error "L10N ERROR: gentext-lastlistcomma")))) (define (gentext-bibl-pages) (case ($lang$) <![%l10n-af[ (("af") %gentext-af-bibl-pages%) ]]> <![%l10n-ca[ (("ca") %gentext-ca-bibl-pages%) ]]> <![%l10n-cs[ (("cs") %gentext-cs-bibl-pages%) ]]> <![%l10n-da[ (("da") %gentext-da-bibl-pages%) ]]> <![%l10n-de[ (("de") %gentext-de-bibl-pages%) ]]> <![%l10n-el[ (("el") %gentext-el-bibl-pages%) ]]> <![%l10n-en[ (("en") %gentext-en-bibl-pages%) ]]> <![%l10n-es[ (("es") %gentext-es-bibl-pages%) ]]> <![%l10n-et[ (("et") %gentext-et-bibl-pages%) ]]> <![%l10n-eu[ (("eu") %gentext-eu-bibl-pages%) ]]> <![%l10n-fi[ (("fi") %gentext-fi-bibl-pages%) ]]> <![%l10n-fr[ (("fr") %gentext-fr-bibl-pages%) ]]> <![%l10n-hu[ (("hu") %gentext-hu-bibl-pages%) ]]> <![%l10n-id[ (("id") %gentext-id-bibl-pages%) ]]> <![%l10n-it[ (("it") %gentext-it-bibl-pages%) ]]> <![%l10n-ja[ (("ja") %gentext-ja-bibl-pages%) ]]> <![%l10n-ko[ (("ko") %gentext-ko-bibl-pages%) ]]> <![%l10n-nl[ (("nl") %gentext-nl-bibl-pages%) ]]> <![%l10n-nn[ (("nn") %gentext-nn-bibl-pages%) ]]> <![%l10n-no[ (("no") %gentext-no-bibl-pages%) ]]> <![%l10n-pl[ (("pl") %gentext-pl-bibl-pages%) ]]> <![%l10n-pt[ (("pt") %gentext-pt-bibl-pages%) ]]> <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-bibl-pages%) ]]> <![%l10n-ro[ (("ro") %gentext-ro-bibl-pages%) ]]> <![%l10n-ru[ (("ru") %gentext-ru-bibl-pages%) ]]> <![%l10n-sk[ (("sk") %gentext-sk-bibl-pages%) ]]> <![%l10n-sl[ (("sl") %gentext-sl-bibl-pages%) ]]> <![%l10n-sr[ (("sr") %gentext-sr-bibl-pages%) ]]> <![%l10n-sv[ (("sv") %gentext-sv-bibl-pages%) ]]> <![%l10n-tr[ (("tr") %gentext-tr-bibl-pages%) ]]> <![%l10n-uk[ (("uk") %gentext-uk-bibl-pages%) ]]> <![%l10n-xh[ (("xh") %gentext-xh-bibl-pages%) ]]> <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-bibl-pages%) ]]> <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-bibl-pages%) ]]> <![%l10n-no[ (("bmno") %gentext-no-bibl-pages%) ]]> <![%l10n-de[ (("dege") %gentext-de-bibl-pages%) ]]> <![%l10n-da[ (("dk") %gentext-da-bibl-pages%) ]]> <![%l10n-sv[ (("svse") %gentext-sv-bibl-pages%) ]]> <![%l10n-en[ (("usen") %gentext-en-bibl-pages%) ]]> (else (error "L10N ERROR: gentext-bibl-pages")))) (define (gentext-endnotes) (case ($lang$) <![%l10n-af[ (("af") %gentext-af-endnotes%) ]]> <![%l10n-ca[ (("ca") %gentext-ca-endnotes%) ]]> <![%l10n-cs[ (("cs") %gentext-cs-endnotes%) ]]> <![%l10n-da[ (("da") %gentext-da-endnotes%) ]]> <![%l10n-de[ (("de") %gentext-de-endnotes%) ]]> <![%l10n-el[ (("el") %gentext-el-endnotes%) ]]> <![%l10n-en[ (("en") %gentext-en-endnotes%) ]]> <![%l10n-es[ (("es") %gentext-es-endnotes%) ]]> <![%l10n-et[ (("et") %gentext-et-endnotes%) ]]> <![%l10n-eu[ (("eu") %gentext-eu-endnotes%) ]]> <![%l10n-fi[ (("fi") %gentext-fi-endnotes%) ]]> <![%l10n-fr[ (("fr") %gentext-fr-endnotes%) ]]> <![%l10n-hu[ (("hu") %gentext-hu-endnotes%) ]]> <![%l10n-id[ (("id") %gentext-id-endnotes%) ]]> <![%l10n-it[ (("it") %gentext-it-endnotes%) ]]> <![%l10n-ja[ (("ja") %gentext-ja-endnotes%) ]]> <![%l10n-ko[ (("ko") %gentext-ko-endnotes%) ]]> <![%l10n-nl[ (("nl") %gentext-nl-endnotes%) ]]> <![%l10n-nn[ (("nn") %gentext-nn-endnotes%) ]]> <![%l10n-no[ (("no") %gentext-no-endnotes%) ]]> <![%l10n-pl[ (("pl") %gentext-pl-endnotes%) ]]> <![%l10n-pt[ (("pt") %gentext-pt-endnotes%) ]]> <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-endnotes%) ]]> <![%l10n-ro[ (("ro") %gentext-ro-endnotes%) ]]> <![%l10n-ru[ (("ru") %gentext-ru-endnotes%) ]]> <![%l10n-sk[ (("sk") %gentext-sk-endnotes%) ]]> <![%l10n-sl[ (("sl") %gentext-sl-endnotes%) ]]> <![%l10n-sr[ (("sr") %gentext-sr-endnotes%) ]]> <![%l10n-sv[ (("sv") %gentext-sv-endnotes%) ]]> <![%l10n-tr[ (("tr") %gentext-tr-endnotes%) ]]> <![%l10n-uk[ (("uk") %gentext-uk-endnotes%) ]]> <![%l10n-xh[ (("xh") %gentext-xh-endnotes%) ]]> <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-endnotes%) ]]> <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-endnotes%) ]]> <![%l10n-no[ (("bmno") %gentext-no-endnotes%) ]]> <![%l10n-de[ (("dege") %gentext-de-endnotes%) ]]> <![%l10n-da[ (("dk") %gentext-da-endnotes%) ]]> <![%l10n-sv[ (("svse") %gentext-sv-endnotes%) ]]> <![%l10n-en[ (("usen") %gentext-en-endnotes%) ]]> (else (error "L10N ERROR: gentext-endnotes")))) (define (gentext-table-endnotes) (case ($lang$) <![%l10n-af[ (("af") %gentext-af-table-endnotes%) ]]> <![%l10n-ca[ (("ca") %gentext-ca-table-endnotes%) ]]> <![%l10n-cs[ (("cs") %gentext-cs-table-endnotes%) ]]> <![%l10n-da[ (("da") %gentext-da-table-endnotes%) ]]> <![%l10n-de[ (("de") %gentext-de-table-endnotes%) ]]> <![%l10n-el[ (("el") %gentext-el-table-endnotes%) ]]> <![%l10n-en[ (("en") %gentext-en-table-endnotes%) ]]> <![%l10n-es[ (("es") %gentext-es-table-endnotes%) ]]> <![%l10n-et[ (("et") %gentext-et-table-endnotes%) ]]> <![%l10n-eu[ (("eu") %gentext-eu-table-endnotes%) ]]> <![%l10n-fi[ (("fi") %gentext-fi-table-endnotes%) ]]> <![%l10n-fr[ (("fr") %gentext-fr-table-endnotes%) ]]> <![%l10n-hu[ (("hu") %gentext-hu-table-endnotes%) ]]> <![%l10n-id[ (("id") %gentext-id-table-endnotes%) ]]> <![%l10n-it[ (("it") %gentext-it-table-endnotes%) ]]> <![%l10n-ja[ (("ja") %gentext-ja-table-endnotes%) ]]> <![%l10n-ko[ (("ko") %gentext-ko-table-endnotes%) ]]> <![%l10n-nl[ (("nl") %gentext-nl-table-endnotes%) ]]> <![%l10n-nn[ (("nn") %gentext-nn-table-endnotes%) ]]> <![%l10n-no[ (("no") %gentext-no-table-endnotes%) ]]> <![%l10n-pl[ (("pl") %gentext-pl-table-endnotes%) ]]> <![%l10n-pt[ (("pt") %gentext-pt-table-endnotes%) ]]> <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-table-endnotes%) ]]> <![%l10n-ro[ (("ro") %gentext-ro-table-endnotes%) ]]> <![%l10n-ru[ (("ru") %gentext-ru-table-endnotes%) ]]> <![%l10n-sk[ (("sk") %gentext-sk-table-endnotes%) ]]> <![%l10n-sl[ (("sl") %gentext-sl-table-endnotes%) ]]> <![%l10n-sr[ (("sr") %gentext-sr-table-endnotes%) ]]> <![%l10n-sv[ (("sv") %gentext-sv-table-endnotes%) ]]> <![%l10n-tr[ (("tr") %gentext-tr-table-endnotes%) ]]> <![%l10n-uk[ (("uk") %gentext-uk-table-endnotes%) ]]> <![%l10n-xh[ (("xh") %gentext-xh-table-endnotes%) ]]> <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-table-endnotes%) ]]> <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-table-endnotes%) ]]> <![%l10n-no[ (("bmno") %gentext-no-table-endnotes%) ]]> <![%l10n-de[ (("dege") %gentext-de-table-endnotes%) ]]> <![%l10n-da[ (("dk") %gentext-da-table-endnotes%) ]]> <![%l10n-sv[ (("svse") %gentext-sv-table-endnotes%) ]]> <![%l10n-en[ (("usen") %gentext-en-table-endnotes%) ]]> (else (error "L10N ERROR: gentext-table-endnotes")))) (define (gentext-index-see) (case ($lang$) <![%l10n-af[ (("af") %gentext-af-index-see%) ]]> <![%l10n-ca[ (("ca") %gentext-ca-index-see%) ]]> <![%l10n-cs[ (("cs") %gentext-cs-index-see%) ]]> <![%l10n-da[ (("da") %gentext-da-index-see%) ]]> <![%l10n-de[ (("de") %gentext-de-index-see%) ]]> <![%l10n-el[ (("el") %gentext-el-index-see%) ]]> <![%l10n-en[ (("en") %gentext-en-index-see%) ]]> <![%l10n-es[ (("es") %gentext-es-index-see%) ]]> <![%l10n-et[ (("et") %gentext-et-index-see%) ]]> <![%l10n-eu[ (("eu") %gentext-eu-index-see%) ]]> <![%l10n-fi[ (("fi") %gentext-fi-index-see%) ]]> <![%l10n-fr[ (("fr") %gentext-fr-index-see%) ]]> <![%l10n-hu[ (("hu") %gentext-hu-index-see%) ]]> <![%l10n-id[ (("id") %gentext-id-index-see%) ]]> <![%l10n-it[ (("it") %gentext-it-index-see%) ]]> <![%l10n-ja[ (("ja") %gentext-ja-index-see%) ]]> <![%l10n-ko[ (("ko") %gentext-ko-index-see%) ]]> <![%l10n-nl[ (("nl") %gentext-nl-index-see%) ]]> <![%l10n-nn[ (("nn") %gentext-nn-index-see%) ]]> <![%l10n-no[ (("no") %gentext-no-index-see%) ]]> <![%l10n-pl[ (("pl") %gentext-pl-index-see%) ]]> <![%l10n-pt[ (("pt") %gentext-pt-index-see%) ]]> <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-index-see%) ]]> <![%l10n-ro[ (("ro") %gentext-ro-index-see%) ]]> <![%l10n-ru[ (("ru") %gentext-ru-index-see%) ]]> <![%l10n-sk[ (("sk") %gentext-sk-index-see%) ]]> <![%l10n-sl[ (("sl") %gentext-sl-index-see%) ]]> <![%l10n-sr[ (("sr") %gentext-sr-index-see%) ]]> <![%l10n-sv[ (("sv") %gentext-sv-index-see%) ]]> <![%l10n-tr[ (("tr") %gentext-tr-index-see%) ]]> <![%l10n-uk[ (("uk") %gentext-uk-index-see%) ]]> <![%l10n-xh[ (("xh") %gentext-xh-index-see%) ]]> <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-index-see%) ]]> <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-index-see%) ]]> <![%l10n-no[ (("bmno") %gentext-no-index-see%) ]]> <![%l10n-de[ (("dege") %gentext-de-index-see%) ]]> <![%l10n-da[ (("dk") %gentext-da-index-see%) ]]> <![%l10n-sv[ (("svse") %gentext-sv-index-see%) ]]> <![%l10n-en[ (("usen") %gentext-en-index-see%) ]]> (else (error "L10N ERROR: gentext-index-see")))) (define (gentext-index-seealso) (case ($lang$) <![%l10n-af[ (("af") %gentext-af-index-seealso%) ]]> <![%l10n-ca[ (("ca") %gentext-ca-index-seealso%) ]]> <![%l10n-cs[ (("cs") %gentext-cs-index-seealso%) ]]> <![%l10n-da[ (("da") %gentext-da-index-seealso%) ]]> <![%l10n-de[ (("de") %gentext-de-index-seealso%) ]]> <![%l10n-el[ (("el") %gentext-el-index-seealso%) ]]> <![%l10n-en[ (("en") %gentext-en-index-seealso%) ]]> <![%l10n-es[ (("es") %gentext-es-index-seealso%) ]]> <![%l10n-et[ (("et") %gentext-et-index-seealso%) ]]> <![%l10n-eu[ (("eu") %gentext-eu-index-seealso%) ]]> <![%l10n-fi[ (("fi") %gentext-fi-index-seealso%) ]]> <![%l10n-fr[ (("fr") %gentext-fr-index-seealso%) ]]> <![%l10n-hu[ (("hu") %gentext-hu-index-seealso%) ]]> <![%l10n-id[ (("id") %gentext-id-index-seealso%) ]]> <![%l10n-it[ (("it") %gentext-it-index-seealso%) ]]> <![%l10n-ja[ (("ja") %gentext-ja-index-seealso%) ]]> <![%l10n-ko[ (("ko") %gentext-ko-index-seealso%) ]]> <![%l10n-nl[ (("nl") %gentext-nl-index-seealso%) ]]> <![%l10n-nn[ (("nn") %gentext-nn-index-seealso%) ]]> <![%l10n-no[ (("no") %gentext-no-index-seealso%) ]]> <![%l10n-pl[ (("pl") %gentext-pl-index-seealso%) ]]> <![%l10n-pt[ (("pt") %gentext-pt-index-seealso%) ]]> <![%l10n-ptbr[ (("pt_br") %gentext-ptbr-index-seealso%) ]]> <![%l10n-ro[ (("ro") %gentext-ro-index-seealso%) ]]> <![%l10n-ru[ (("ru") %gentext-ru-index-seealso%) ]]> <![%l10n-sk[ (("sk") %gentext-sk-index-seealso%) ]]> <![%l10n-sl[ (("sl") %gentext-sl-index-seealso%) ]]> <![%l10n-sr[ (("sr") %gentext-sr-index-seealso%) ]]> <![%l10n-sv[ (("sv") %gentext-sv-index-seealso%) ]]> <![%l10n-tr[ (("tr") %gentext-tr-index-seealso%) ]]> <![%l10n-uk[ (("uk") %gentext-uk-index-seealso%) ]]> <![%l10n-xh[ (("xh") %gentext-xh-index-seealso%) ]]> <![%l10n-zhcn[ (("zh_cn") %gentext-zhcn-index-seealso%) ]]> <![%l10n-zhtw[ (("zh_tw") %gentext-zhtw-index-seealso%) ]]> <![%l10n-no[ (("bmno") %gentext-no-index-seealso%) ]]> <![%l10n-de[ (("dege") %gentext-de-index-seealso%) ]]> <![%l10n-da[ (("dk") %gentext-da-index-seealso%) ]]> <![%l10n-sv[ (("svse") %gentext-sv-index-seealso%) ]]> <![%l10n-en[ (("usen") %gentext-en-index-seealso%) ]]> (else (error "L10N ERROR: gentext-index-seealso")))) (define (gentext-nav-prev prev) (case ($lang$) <![%l10n-af[ (("af") (gentext-af-nav-prev prev)) ]]> <![%l10n-ca[ (("ca") (gentext-ca-nav-prev prev)) ]]> <![%l10n-cs[ (("cs") (gentext-cs-nav-prev prev)) ]]> <![%l10n-da[ (("da") (gentext-da-nav-prev prev)) ]]> <![%l10n-de[ (("de") (gentext-de-nav-prev prev)) ]]> <![%l10n-el[ (("el") (gentext-el-nav-prev prev)) ]]> <![%l10n-en[ (("en") (gentext-en-nav-prev prev)) ]]> <![%l10n-es[ (("es") (gentext-es-nav-prev prev)) ]]> <![%l10n-et[ (("et") (gentext-et-nav-prev prev)) ]]> <![%l10n-eu[ (("eu") (gentext-eu-nav-prev prev)) ]]> <![%l10n-fi[ (("fi") (gentext-fi-nav-prev prev)) ]]> <![%l10n-fr[ (("fr") (gentext-fr-nav-prev prev)) ]]> <![%l10n-hu[ (("hu") (gentext-hu-nav-prev prev)) ]]> <![%l10n-id[ (("id") (gentext-id-nav-prev prev)) ]]> <![%l10n-it[ (("it") (gentext-it-nav-prev prev)) ]]> <![%l10n-ja[ (("ja") (gentext-ja-nav-prev prev)) ]]> <![%l10n-ko[ (("ko") (gentext-ko-nav-prev prev)) ]]> <![%l10n-nl[ (("nl") (gentext-nl-nav-prev prev)) ]]> <![%l10n-nn[ (("nn") (gentext-nn-nav-prev prev)) ]]> <![%l10n-no[ (("no") (gentext-no-nav-prev prev)) ]]> <![%l10n-pl[ (("pl") (gentext-pl-nav-prev prev)) ]]> <![%l10n-pt[ (("pt") (gentext-pt-nav-prev prev)) ]]> <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-nav-prev prev)) ]]> <![%l10n-ro[ (("ro") (gentext-ro-nav-prev prev)) ]]> <![%l10n-ru[ (("ru") (gentext-ru-nav-prev prev)) ]]> <![%l10n-sk[ (("sk") (gentext-sk-nav-prev prev)) ]]> <![%l10n-sl[ (("sl") (gentext-sl-nav-prev prev)) ]]> <![%l10n-sr[ (("sr") (gentext-sr-nav-prev prev)) ]]> <![%l10n-sv[ (("sv") (gentext-sv-nav-prev prev)) ]]> <![%l10n-tr[ (("tr") (gentext-tr-nav-prev prev)) ]]> <![%l10n-uk[ (("uk") (gentext-uk-nav-prev prev)) ]]> <![%l10n-xh[ (("xh") (gentext-xh-nav-prev prev)) ]]> <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-nav-prev prev)) ]]> <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-nav-prev prev)) ]]> <![%l10n-no[ (("bmno") (gentext-no-nav-prev prev)) ]]> <![%l10n-de[ (("dege") (gentext-de-nav-prev prev)) ]]> <![%l10n-da[ (("dk") (gentext-da-nav-prev prev)) ]]> <![%l10n-sv[ (("svse") (gentext-sv-nav-prev prev)) ]]> <![%l10n-en[ (("usen") (gentext-en-nav-prev prev)) ]]> (else (error "L10N ERROR: gentext-nav-prev")))) (define (gentext-nav-prev-sibling prevsib) (case ($lang$) <![%l10n-af[ (("af") (gentext-af-nav-prev-sibling prevsib)) ]]> <![%l10n-ca[ (("ca") (gentext-ca-nav-prev-sibling prevsib)) ]]> <![%l10n-cs[ (("cs") (gentext-cs-nav-prev-sibling prevsib)) ]]> <![%l10n-da[ (("da") (gentext-da-nav-prev-sibling prevsib)) ]]> <![%l10n-de[ (("de") (gentext-de-nav-prev-sibling prevsib)) ]]> <![%l10n-el[ (("el") (gentext-el-nav-prev-sibling prevsib)) ]]> <![%l10n-en[ (("en") (gentext-en-nav-prev-sibling prevsib)) ]]> <![%l10n-es[ (("es") (gentext-es-nav-prev-sibling prevsib)) ]]> <![%l10n-et[ (("et") (gentext-et-nav-prev-sibling prevsib)) ]]> <![%l10n-eu[ (("eu") (gentext-eu-nav-prev-sibling prevsib)) ]]> <![%l10n-fi[ (("fi") (gentext-fi-nav-prev-sibling prevsib)) ]]> <![%l10n-fr[ (("fr") (gentext-fr-nav-prev-sibling prevsib)) ]]> <![%l10n-hu[ (("hu") (gentext-hu-nav-prev-sibling prevsib)) ]]> <![%l10n-id[ (("id") (gentext-id-nav-prev-sibling prevsib)) ]]> <![%l10n-it[ (("it") (gentext-it-nav-prev-sibling prevsib)) ]]> <![%l10n-ja[ (("ja") (gentext-ja-nav-prev-sibling prevsib)) ]]> <![%l10n-ko[ (("ko") (gentext-ko-nav-prev-sibling prevsib)) ]]> <![%l10n-nl[ (("nl") (gentext-nl-nav-prev-sibling prevsib)) ]]> <![%l10n-nn[ (("nn") (gentext-nn-nav-prev-sibling prevsib)) ]]> <![%l10n-no[ (("no") (gentext-no-nav-prev-sibling prevsib)) ]]> <![%l10n-pl[ (("pl") (gentext-pl-nav-prev-sibling prevsib)) ]]> <![%l10n-pt[ (("pt") (gentext-pt-nav-prev-sibling prevsib)) ]]> <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-nav-prev-sibling prevsib)) ]]> <![%l10n-ro[ (("ro") (gentext-ro-nav-prev-sibling prevsib)) ]]> <![%l10n-ru[ (("ru") (gentext-ru-nav-prev-sibling prevsib)) ]]> <![%l10n-sk[ (("sk") (gentext-sk-nav-prev-sibling prevsib)) ]]> <![%l10n-sl[ (("sl") (gentext-sl-nav-prev-sibling prevsib)) ]]> <![%l10n-sr[ (("sr") (gentext-sr-nav-prev-sibling prevsib)) ]]> <![%l10n-sv[ (("sv") (gentext-sv-nav-prev-sibling prevsib)) ]]> <![%l10n-tr[ (("tr") (gentext-tr-nav-prev-sibling prevsib)) ]]> <![%l10n-uk[ (("uk") (gentext-uk-nav-prev-sibling prevsib)) ]]> <![%l10n-xh[ (("xh") (gentext-xh-nav-prev-sibling prevsib)) ]]> <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-nav-prev-sibling prevsib)) ]]> <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-nav-prev-sibling prevsib)) ]]> <![%l10n-no[ (("bmno") (gentext-no-nav-prev-sibling prevsib)) ]]> <![%l10n-de[ (("dege") (gentext-de-nav-prev-sibling prevsib)) ]]> <![%l10n-da[ (("dk") (gentext-da-nav-prev-sibling prevsib)) ]]> <![%l10n-sv[ (("svse") (gentext-sv-nav-prev-sibling prevsib)) ]]> <![%l10n-en[ (("usen") (gentext-en-nav-prev-sibling prevsib)) ]]> (else (error "L10N ERROR: gentext-nav-prev-sibling ")))) (define (gentext-nav-next-sibling nextsib) (case ($lang$) <![%l10n-af[ (("af") (gentext-af-nav-next-sibling nextsib)) ]]> <![%l10n-ca[ (("ca") (gentext-ca-nav-next-sibling nextsib)) ]]> <![%l10n-cs[ (("cs") (gentext-cs-nav-next-sibling nextsib)) ]]> <![%l10n-da[ (("da") (gentext-da-nav-next-sibling nextsib)) ]]> <![%l10n-de[ (("de") (gentext-de-nav-next-sibling nextsib)) ]]> <![%l10n-el[ (("el") (gentext-el-nav-next-sibling nextsib)) ]]> <![%l10n-en[ (("en") (gentext-en-nav-next-sibling nextsib)) ]]> <![%l10n-es[ (("es") (gentext-es-nav-next-sibling nextsib)) ]]> <![%l10n-et[ (("et") (gentext-et-nav-next-sibling nextsib)) ]]> <![%l10n-eu[ (("eu") (gentext-eu-nav-next-sibling nextsib)) ]]> <![%l10n-fi[ (("fi") (gentext-fi-nav-next-sibling nextsib)) ]]> <![%l10n-fr[ (("fr") (gentext-fr-nav-next-sibling nextsib)) ]]> <![%l10n-hu[ (("hu") (gentext-hu-nav-next-sibling nextsib)) ]]> <![%l10n-id[ (("id") (gentext-id-nav-next-sibling nextsib)) ]]> <![%l10n-it[ (("it") (gentext-it-nav-next-sibling nextsib)) ]]> <![%l10n-ja[ (("ja") (gentext-ja-nav-next-sibling nextsib)) ]]> <![%l10n-ko[ (("ko") (gentext-ko-nav-next-sibling nextsib)) ]]> <![%l10n-nl[ (("nl") (gentext-nl-nav-next-sibling nextsib)) ]]> <![%l10n-nn[ (("nn") (gentext-nn-nav-next-sibling nextsib)) ]]> <![%l10n-no[ (("no") (gentext-no-nav-next-sibling nextsib)) ]]> <![%l10n-pl[ (("pl") (gentext-pl-nav-next-sibling nextsib)) ]]> <![%l10n-pt[ (("pt") (gentext-pt-nav-next-sibling nextsib)) ]]> <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-nav-next-sibling nextsib)) ]]> <![%l10n-ro[ (("ro") (gentext-ro-nav-next-sibling nextsib)) ]]> <![%l10n-ru[ (("ru") (gentext-ru-nav-next-sibling nextsib)) ]]> <![%l10n-sk[ (("sk") (gentext-sk-nav-next-sibling nextsib)) ]]> <![%l10n-sl[ (("sl") (gentext-sl-nav-next-sibling nextsib)) ]]> <![%l10n-sr[ (("sr") (gentext-sr-nav-next-sibling nextsib)) ]]> <![%l10n-sv[ (("sv") (gentext-sv-nav-next-sibling nextsib)) ]]> <![%l10n-tr[ (("tr") (gentext-tr-nav-next-sibling nextsib)) ]]> <![%l10n-uk[ (("uk") (gentext-uk-nav-next-sibling nextsib)) ]]> <![%l10n-xh[ (("xh") (gentext-xh-nav-next-sibling nextsib)) ]]> <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-nav-next-sibling nextsib)) ]]> <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-nav-next-sibling nextsib)) ]]> <![%l10n-no[ (("bmno") (gentext-no-nav-next-sibling nextsib)) ]]> <![%l10n-de[ (("dege") (gentext-de-nav-next-sibling nextsib)) ]]> <![%l10n-da[ (("dk") (gentext-da-nav-next-sibling nextsib)) ]]> <![%l10n-sv[ (("svse") (gentext-sv-nav-next-sibling nextsib)) ]]> <![%l10n-en[ (("usen") (gentext-en-nav-next-sibling nextsib)) ]]> (else (error "L10N ERROR: gentext-nav-next-sibling")))) (define (gentext-nav-next next) (case ($lang$) <![%l10n-af[ (("af") (gentext-af-nav-next next)) ]]> <![%l10n-ca[ (("ca") (gentext-ca-nav-next next)) ]]> <![%l10n-cs[ (("cs") (gentext-cs-nav-next next)) ]]> <![%l10n-da[ (("da") (gentext-da-nav-next next)) ]]> <![%l10n-de[ (("de") (gentext-de-nav-next next)) ]]> <![%l10n-el[ (("el") (gentext-el-nav-next next)) ]]> <![%l10n-en[ (("en") (gentext-en-nav-next next)) ]]> <![%l10n-es[ (("es") (gentext-es-nav-next next)) ]]> <![%l10n-et[ (("et") (gentext-et-nav-next next)) ]]> <![%l10n-eu[ (("eu") (gentext-eu-nav-next next)) ]]> <![%l10n-fi[ (("fi") (gentext-fi-nav-next next)) ]]> <![%l10n-fr[ (("fr") (gentext-fr-nav-next next)) ]]> <![%l10n-hu[ (("hu") (gentext-hu-nav-next next)) ]]> <![%l10n-id[ (("id") (gentext-id-nav-next next)) ]]> <![%l10n-it[ (("it") (gentext-it-nav-next next)) ]]> <![%l10n-ja[ (("ja") (gentext-ja-nav-next next)) ]]> <![%l10n-ko[ (("ko") (gentext-ko-nav-next next)) ]]> <![%l10n-nl[ (("nl") (gentext-nl-nav-next next)) ]]> <![%l10n-nn[ (("nn") (gentext-nn-nav-next next)) ]]> <![%l10n-no[ (("no") (gentext-no-nav-next next)) ]]> <![%l10n-pl[ (("pl") (gentext-pl-nav-next next)) ]]> <![%l10n-pt[ (("pt") (gentext-pt-nav-next next)) ]]> <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-nav-next next)) ]]> <![%l10n-ro[ (("ro") (gentext-ro-nav-next next)) ]]> <![%l10n-ru[ (("ru") (gentext-ru-nav-next next)) ]]> <![%l10n-sk[ (("sk") (gentext-sk-nav-next next)) ]]> <![%l10n-sl[ (("sl") (gentext-sl-nav-next next)) ]]> <![%l10n-sr[ (("sr") (gentext-sr-nav-next next)) ]]> <![%l10n-sv[ (("sv") (gentext-sv-nav-next next)) ]]> <![%l10n-tr[ (("tr") (gentext-tr-nav-next next)) ]]> <![%l10n-uk[ (("uk") (gentext-uk-nav-next next)) ]]> <![%l10n-xh[ (("xh") (gentext-xh-nav-next next)) ]]> <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-nav-next next)) ]]> <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-nav-next next)) ]]> <![%l10n-no[ (("bmno") (gentext-no-nav-next next)) ]]> <![%l10n-de[ (("dege") (gentext-de-nav-next next)) ]]> <![%l10n-da[ (("dk") (gentext-da-nav-next next)) ]]> <![%l10n-sv[ (("svse") (gentext-sv-nav-next next)) ]]> <![%l10n-en[ (("usen") (gentext-en-nav-next next)) ]]> (else (error "L10N ERROR: gentext-nav-next")))) (define (gentext-nav-up up) (case ($lang$) <![%l10n-af[ (("af") (gentext-af-nav-up up)) ]]> <![%l10n-ca[ (("ca") (gentext-ca-nav-up up)) ]]> <![%l10n-cs[ (("cs") (gentext-cs-nav-up up)) ]]> <![%l10n-da[ (("da") (gentext-da-nav-up up)) ]]> <![%l10n-de[ (("de") (gentext-de-nav-up up)) ]]> <![%l10n-el[ (("el") (gentext-el-nav-up up)) ]]> <![%l10n-en[ (("en") (gentext-en-nav-up up)) ]]> <![%l10n-es[ (("es") (gentext-es-nav-up up)) ]]> <![%l10n-et[ (("et") (gentext-et-nav-up up)) ]]> <![%l10n-eu[ (("eu") (gentext-eu-nav-up up)) ]]> <![%l10n-fi[ (("fi") (gentext-fi-nav-up up)) ]]> <![%l10n-fr[ (("fr") (gentext-fr-nav-up up)) ]]> <![%l10n-hu[ (("hu") (gentext-hu-nav-up up)) ]]> <![%l10n-id[ (("id") (gentext-id-nav-up up)) ]]> <![%l10n-it[ (("it") (gentext-it-nav-up up)) ]]> <![%l10n-ja[ (("ja") (gentext-ja-nav-up up)) ]]> <![%l10n-ko[ (("ko") (gentext-ko-nav-up up)) ]]> <![%l10n-nl[ (("nl") (gentext-nl-nav-up up)) ]]> <![%l10n-nn[ (("nn") (gentext-nn-nav-up up)) ]]> <![%l10n-no[ (("no") (gentext-no-nav-up up)) ]]> <![%l10n-pl[ (("pl") (gentext-pl-nav-up up)) ]]> <![%l10n-pt[ (("pt") (gentext-pt-nav-up up)) ]]> <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-nav-up up)) ]]> <![%l10n-ro[ (("ro") (gentext-ro-nav-up up)) ]]> <![%l10n-ru[ (("ru") (gentext-ru-nav-up up)) ]]> <![%l10n-sk[ (("sk") (gentext-sk-nav-up up)) ]]> <![%l10n-sl[ (("sl") (gentext-sl-nav-up up)) ]]> <![%l10n-sr[ (("sr") (gentext-sr-nav-up up)) ]]> <![%l10n-sv[ (("sv") (gentext-sv-nav-up up)) ]]> <![%l10n-tr[ (("tr") (gentext-tr-nav-up up)) ]]> <![%l10n-uk[ (("uk") (gentext-uk-nav-up up)) ]]> <![%l10n-xh[ (("xh") (gentext-xh-nav-up up)) ]]> <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-nav-up up)) ]]> <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-nav-up up)) ]]> <![%l10n-no[ (("bmno") (gentext-no-nav-up up)) ]]> <![%l10n-de[ (("dege") (gentext-de-nav-up up)) ]]> <![%l10n-da[ (("dk") (gentext-da-nav-up up)) ]]> <![%l10n-sv[ (("svse") (gentext-sv-nav-up up)) ]]> <![%l10n-en[ (("usen") (gentext-en-nav-up up)) ]]> (else (error "L10N ERROR: gentext-nav-up")))) (define (gentext-nav-home home) (case ($lang$) <![%l10n-af[ (("af") (gentext-af-nav-home home)) ]]> <![%l10n-ca[ (("ca") (gentext-ca-nav-home home)) ]]> <![%l10n-cs[ (("cs") (gentext-cs-nav-home home)) ]]> <![%l10n-da[ (("da") (gentext-da-nav-home home)) ]]> <![%l10n-de[ (("de") (gentext-de-nav-home home)) ]]> <![%l10n-el[ (("el") (gentext-el-nav-home home)) ]]> <![%l10n-en[ (("en") (gentext-en-nav-home home)) ]]> <![%l10n-es[ (("es") (gentext-es-nav-home home)) ]]> <![%l10n-et[ (("et") (gentext-et-nav-home home)) ]]> <![%l10n-eu[ (("eu") (gentext-eu-nav-home home)) ]]> <![%l10n-fi[ (("fi") (gentext-fi-nav-home home)) ]]> <![%l10n-fr[ (("fr") (gentext-fr-nav-home home)) ]]> <![%l10n-hu[ (("hu") (gentext-hu-nav-home home)) ]]> <![%l10n-id[ (("id") (gentext-id-nav-home home)) ]]> <![%l10n-it[ (("it") (gentext-it-nav-home home)) ]]> <![%l10n-ja[ (("ja") (gentext-ja-nav-home home)) ]]> <![%l10n-ko[ (("ko") (gentext-ko-nav-home home)) ]]> <![%l10n-nl[ (("nl") (gentext-nl-nav-home home)) ]]> <![%l10n-nn[ (("nn") (gentext-nn-nav-home home)) ]]> <![%l10n-no[ (("no") (gentext-no-nav-home home)) ]]> <![%l10n-pl[ (("pl") (gentext-pl-nav-home home)) ]]> <![%l10n-pt[ (("pt") (gentext-pt-nav-home home)) ]]> <![%l10n-ptbr[ (("pt_br") (gentext-ptbr-nav-home home)) ]]> <![%l10n-ro[ (("ro") (gentext-ro-nav-home home)) ]]> <![%l10n-ru[ (("ru") (gentext-ru-nav-home home)) ]]> <![%l10n-sk[ (("sk") (gentext-sk-nav-home home)) ]]> <![%l10n-sl[ (("sl") (gentext-sl-nav-home home)) ]]> <![%l10n-sr[ (("sr") (gentext-sr-nav-home home)) ]]> <![%l10n-sv[ (("sv") (gentext-sv-nav-home home)) ]]> <![%l10n-tr[ (("tr") (gentext-tr-nav-home home)) ]]> <![%l10n-uk[ (("uk") (gentext-uk-nav-home home)) ]]> <![%l10n-xh[ (("xh") (gentext-xh-nav-home home)) ]]> <![%l10n-zhcn[ (("zh_cn") (gentext-zhcn-nav-home home)) ]]> <![%l10n-zhtw[ (("zh_tw") (gentext-zhtw-nav-home home)) ]]> <![%l10n-no[ (("bmno") (gentext-no-nav-home home)) ]]> <![%l10n-de[ (("dege") (gentext-de-nav-home home)) ]]> <![%l10n-da[ (("dk") (gentext-da-nav-home home)) ]]> <![%l10n-sv[ (("svse") (gentext-sv-nav-home home)) ]]> <![%l10n-en[ (("usen") (gentext-en-nav-home home)) ]]> (else (error "L10N ERROR: gentext-nav-home")))) Index: phpdoc/dsssl/docbook/common/dbl10n.ent +++ phpdoc/dsssl/docbook/common/dbl10n.ent <!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"> <![%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> Index: phpdoc/dsssl/docbook/common/dbl10n.pl +++ phpdoc/dsssl/docbook/common/dbl10n.pl #!/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); Index: phpdoc/dsssl/docbook/common/dbl10n.template +++ phpdoc/dsssl/docbook/common/dbl10n.template ;; $Id: dbl10n.template,v 1.1 2002/07/20 11:07:53 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com. Please use the ISO 639 language ;; code to identify the language. Append a subtag as per RFC 1766, ;; if necessary. ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x and #x ;; keywords. ;; ;; The following language codes from ISO 639 are recognized: ;; %%LANGUAGES%% ;; af - Afrikaans 1.71 ;; 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")))) Index: phpdoc/dsssl/docbook/common/dbl1af.dsl +++ phpdoc/dsssl/docbook/common/dbl1af.dsl <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ <!ENTITY % af.words PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//AF" "dbl1af.ent"> %af.words; ]> <style-sheet> <style-specification id="docbook-l10n-af"> <style-specification-body> ;; $Id: dbl1af.dsl,v 1.1 2002/07/20 11:07:53 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Modified for Afrikaans ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (af-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (af-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "the &appendix; called %t")) (list (normalize "article") (string-append %gentext-af-start-quote% "%t" %gentext-af-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "the &chapter; called %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "the &section; 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 " &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-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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1af.ent +++ phpdoc/dsssl/docbook/common/dbl1af.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1ca.dsl +++ phpdoc/dsssl/docbook/common/dbl1ca.dsl <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ <!ENTITY % ca.words PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//CA" "dbl1ca.ent"> %ca.words; ]> <style-sheet> <style-specification id="docbook-l10n-ca"> <style-specification-body> ;; $Id: dbl1ca.dsl,v 1.1 2002/07/20 11:07:53 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Contributors: ;; Perceval - Marc Huguet Puig, mhp@nil.fut.es ;; marc*, marc.gonzalez-carnicer@european-go.org (define (ca-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (ca-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "l'&appendix; de nom %t")) (list (normalize "article") (string-append %gentext-ca-start-quote% "%t" %gentext-ca-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "el &chapter; de nom %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "la &section; de nom %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "la &section; de nom %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "la &section; de nom %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "la &section; de nom %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "la &section; de nom %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "la &section; de nom %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "la &section; 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 " &in; ")))) ;; 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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1ca.ent +++ phpdoc/dsssl/docbook/common/dbl1ca.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1cs.dsl +++ phpdoc/dsssl/docbook/common/dbl1cs.dsl <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ <!ENTITY % cs.words PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//CS" "dbl1cs.ent"> %cs.words; ]> <style-sheet> <style-specification id="docbook-l10n-cs"> <style-specification-body> ;; $Id: dbl1cs.dsl,v 1.1 2002/07/20 11:07:53 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Contributors: ;; Ralf Schleitzer, ralf.schleitzer@ixos.de (define (cs-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (cs-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "%n" "%n \U-2013; \U-201E;%t\U-201C;")) (list (normalize "article") (string-append %gentext-cs-start-quote% "%t" %gentext-cs-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "%n" "%n \U-2013; \U-201E;%t\U-201C;")) (list (normalize "equation") "%n") (list (normalize "example") "%n") (list (normalize "figure") "%n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "%n \U-2013; \U-201E;%t\U-201C;") (list (normalize "preface") "%t") (list (normalize "procedure") "%n \U-2013; \U-201E;%t\U-201C;") (list (normalize "reference") "%t") (list (normalize "section") (if %section-autolabel% "%n" "\U-201E;%t\U-201C;")) (list (normalize "sect1") (if %section-autolabel% "%n" "\U-201E;%t\U-201C;")) (list (normalize "sect2") (if %section-autolabel% "%n" "\U-201E;%t\U-201C;")) (list (normalize "sect3") (if %section-autolabel% "%n" "\U-201E;%t\U-201C;")) (list (normalize "sect4") (if %section-autolabel% "%n" "\U-201E;%t\U-201C;")) (list (normalize "sect5") (if %section-autolabel% "%n" "\U-201E;%t\U-201C;")) (list (normalize "simplesect") (if %section-autolabel% "%n" "\U-201E;%t\U-201C;")) (list (normalize "sidebar") "%t") (list (normalize "step") "%n") (list (normalize "table") "%n"))) (define (gentext-cs-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (cs-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (cs-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " &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-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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1cs.ent +++ phpdoc/dsssl/docbook/common/dbl1cs.ent <?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;"> Index: phpdoc/dsssl/docbook/common/dbl1da.dsl +++ phpdoc/dsssl/docbook/common/dbl1da.dsl <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ <!ENTITY % da.words PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//DA" "dbl1da.ent"> %da.words; ]> <style-sheet> <style-specification id="docbook-l10n-da"> <style-specification-body> ;; $Id: dbl1da.dsl,v 1.1 2002/07/20 11:07:53 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Contributors: ;; Finn Bock, fbo@dde.dk (define (da-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (da-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "&appendix; med navn %t")) (list (normalize "article") (string-append %gentext-da-start-quote% "%t" %gentext-da-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "kapitlet om %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "sektionen med navn %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "sektionen med navn %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "undersektionen med navn %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "undersektionen med navn %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "undersektionen med navn %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "undersektionen med navn %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "undersektionen med navn %t")) (list (normalize "sidebar") "&sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-da-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (da-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (da-auto-xref-indirect-connector before) (literal " i ")) ;; Should the TOC come first or last? ;; (define %generate-da-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (da-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-da-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (da-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-da-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-da-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-da-intra-label-sep) (list)) (define (da-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-da-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-da-intra-label-sep))) (sep (assoc name (da-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-da-label-title-sep) (list)) (define (da-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-da-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-da-label-title-sep))) (sep (assoc name (da-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (da-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (da-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (da-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (da-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-da$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (da-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-da-start-quote% (dingbat "ldquo")) (define %gentext-da-end-quote% (dingbat "rdquo")) (define %gentext-da-start-nested-quote% (dingbat "lsquo")) (define %gentext-da-end-nested-quote% (dingbat "rsquo")) (define %gentext-da-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-da-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-da-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-da-page% "") (define %gentext-da-and% "&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> Index: phpdoc/dsssl/docbook/common/dbl1da.ent +++ phpdoc/dsssl/docbook/common/dbl1da.ent <?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;"> Index: phpdoc/dsssl/docbook/common/dbl1de.dsl +++ phpdoc/dsssl/docbook/common/dbl1de.dsl <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ <!ENTITY % de.words PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//DE" "dbl1de.ent"> %de.words; ]> <style-sheet> <style-specification id="docbook-l10n-de"> <style-specification-body> ;; $Id: dbl1de.dsl,v 1.1 2002/07/20 11:07:53 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Contributors: ;; Rainer Feuerstein, fire@informatik.uni-wuerzburg.de, ;; Christian Leutloff, leutloff@sundancer.oche.de ;; Ulrich Windl, Ulrich.Windl@rz.uni-regensburg.de ;; Christian Kirsch, ck@held.mind.de ;; Joerg Wittenberger, Joerg.Wittenberger@pobox.com (define (de-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (de-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "&Appendix; namens %t")) (list (normalize "article") (string-append %gentext-de-start-quote% "%t" %gentext-de-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "&Chapter; namens %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "&Section; namens %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "&Section; namens %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "&Section; namens %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "&Section; namens %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "&Section; namens %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "&Section; namens %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "&Section; namens %t")) (list (normalize "sidebar") "&Sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-de-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (de-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (de-auto-xref-indirect-connector before) ;; In German one usually says "... in dem Buch ..." (probably because ;; it's a larger piece of work and more commonly known) (cond ((equal? (gi before) (normalize "book")) (literal " &in; dem ")) ((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-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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1de.ent +++ phpdoc/dsssl/docbook/common/dbl1de.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1el.dsl +++ phpdoc/dsssl/docbook/common/dbl1el.dsl <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ <!ENTITY % el.words PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//EL" "dbl1el.ent"> %el.words; ]> <style-sheet> <style-specification id="docbook-l10n-el"> <style-specification-body> ;; $Id: dbl1el.dsl,v 1.1 2002/07/20 11:07:53 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (el-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (el-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "&#244;&#239; &appendix; &#236;&#229; &#252;&#237;&#239;&#236;&#225; %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" "&#244;&#239; &chapter; &#236;&#229; &#252;&#237;&#239;&#236;&#225; %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" "&#244;&#239; &section; &#236;&#229; &#252;&#237;&#239;&#236;&#225; %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "&#244;&#239; &section; &#236;&#229; &#252;&#237;&#239;&#236;&#225; %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "&#244;&#239; &section; &#236;&#229; &#252;&#237;&#239;&#236;&#225; %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "&#244;&#239; &section; &#236;&#229; &#252;&#237;&#239;&#236;&#225; %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "&#244;&#239; &section; &#236;&#229; &#252;&#237;&#239;&#236;&#225; %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "&#244;&#239; &section; &#236;&#229; &#252;&#237;&#239;&#236;&#225; %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "&#244;&#239; &section; &#236;&#229; &#252;&#237;&#239;&#236;&#225; %t")) (list (normalize "sidebar") "&#244;&#239; &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 " &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-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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1el.ent +++ phpdoc/dsssl/docbook/common/dbl1el.ent <?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;"> Index: phpdoc/dsssl/docbook/common/dbl1en.dsl +++ phpdoc/dsssl/docbook/common/dbl1en.dsl <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ <!ENTITY % en.words PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//EN" "dbl1en.ent"> %en.words; ]> <style-sheet> <style-specification id="docbook-l10n-en"> <style-specification-body> ;; $Id: dbl1en.dsl,v 1.1 2002/07/20 11:07:53 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (en-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (en-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "the &appendix; called %t")) (list (normalize "article") (string-append %gentext-en-start-quote% "%t" %gentext-en-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "the &chapter; called %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "the &section; 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 " &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-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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1en.ent +++ phpdoc/dsssl/docbook/common/dbl1en.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1es.dsl +++ phpdoc/dsssl/docbook/common/dbl1es.dsl <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ <!ENTITY % es.words PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//ES" "dbl1es.ent"> %es.words; ]> <style-sheet> <style-specification id="docbook-l10n-es"> <style-specification-body> ;; $Id: dbl1es.dsl,v 1.1 2002/07/20 11:07:53 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (es-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (es-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "el &appendix; de nombre %t")) (list (normalize "article") (string-append %gentext-es-start-quote% "%t" %gentext-es-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "el &chapter; de nombre %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "la &section; de nombre %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "la &section; de nombre %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "la &section; de nombre %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "la &section; de nombre %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "la &section; de nombre %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "la &section; de nombre %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "la &section; 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 " &in; ")) ;; 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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1es.ent +++ phpdoc/dsssl/docbook/common/dbl1es.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1et.dsl +++ phpdoc/dsssl/docbook/common/dbl1et.dsl <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ <!ENTITY % et.words PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//ET" "dbl1et.ent"> %et.words; ]> <style-sheet> <style-specification id="docbook-l10n-et"> <style-specification-body> ;; $Id: dbl1et.dsl,v 1.1 2002/07/20 11:07:53 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (et-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (et-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "&appendix; %t")) (list (normalize "article") (string-append %gentext-et-start-quote% "%t" %gentext-et-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "&chapter; %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "&section; %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "&section; %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "&section; %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "&section; %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "&section; %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "&section; %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "&section; %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 " &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-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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1et.ent +++ phpdoc/dsssl/docbook/common/dbl1et.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1eu.dsl +++ phpdoc/dsssl/docbook/common/dbl1eu.dsl <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ <!ENTITY % eu.words PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//EU" "dbl1eu.ent"> %eu.words; ]> <style-sheet> <style-specification id="docbook-l10n-eu"> <style-specification-body> ;; $Id: dbl1eu.dsl,v 1.1 2002/07/20 11:07:53 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (eu-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (eu-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "the &appendix; called %t")) (list (normalize "article") (string-append %gentext-eu-start-quote% "%t" %gentext-eu-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "the &chapter; called %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "the &section; 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 " &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-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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1eu.ent +++ phpdoc/dsssl/docbook/common/dbl1eu.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1fi.dsl +++ phpdoc/dsssl/docbook/common/dbl1fi.dsl <!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 " &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-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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1fi.ent +++ phpdoc/dsssl/docbook/common/dbl1fi.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1fr.dsl +++ phpdoc/dsssl/docbook/common/dbl1fr.dsl <!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: dbl1fr.dsl,v 1.1 2002/07/20 11:07:53 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; ;; 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&#233;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&#233; %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&#233;e %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "la section intitul&#233;e %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "la section intitul&#233;e %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "la section intitul&#233;e %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "la section intitul&#233;e %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "la section intitul&#233;e %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "la section intitul&#233;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 " &in; ")) ;; 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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1fr.ent +++ phpdoc/dsssl/docbook/common/dbl1fr.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1he.ent +++ phpdoc/dsssl/docbook/common/dbl1he.ent <?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-05E1;\U-05D9;\U-05DB;\U-05D5;\U-05DD;"> <!ENTITY abstract "\U-05E1;\U-05D9;\U-05DB;\U-05D5;\U-05DD;"> <!ENTITY Answer "\U-05EA;:"> <!ENTITY answer "\U-05EA;:"> <!ENTITY Appendix "\U-05E0;\U-05E1;\U-05E4;\U-05D7;"> <!ENTITY appendix "\U-05E0;\U-05E1;\U-05E4;\U-05D7;"> <!ENTITY Article "\U-05DE;\U-05D0;\U-05DE;\U-05E8;"> <!ENTITY article "\U-05DE;\U-05D0;\U-05DE;\U-05E8;"> <!ENTITY Bibliography "\U-05D1;\U-05D9;\U-05D1;\U-05DC;\U-05D9;\U-05D5;\U-05D2;\U-05E8;\U-05E4;\U-05D9;\U-05D4;"> <!ENTITY bibliography "\U-05D1;\U-05D9;\U-05D1;\U-05DC;\U-05D9;\U-05D5;\U-05D2;\U-05E8;\U-05E4;\U-05D9;\U-05D4;"> <!ENTITY Book "\U-05E1;\U-05E4;\U-05E8;"> <!ENTITY book "\U-05E1;\U-05E4;\U-05E8;"> <!ENTITY CAUTION "\U-05D0;\U-05D6;\U-05D4;\U-05E8;\U-05D4;"> <!ENTITY Caution "\U-05D0;\U-05D6;\U-05D4;\U-05E8;\U-05D4;"> <!ENTITY caution "\U-05D0;\U-05D6;\U-05D4;\U-05E8;\U-05D4;"> <!ENTITY Chapter "\U-05E4;\U-05E8;\U-05E7;"> <!ENTITY chapter "\U-05E4;\U-05E8;\U-05E7;"> <!ENTITY Colophon "\U-05E7;\U-05D5;\U-05DC;\U-05D5;\U-05E4;\U-05D5;\U-05DF;"> <!ENTITY colophon "\U-05E7;\U-05D5;\U-05DC;\U-05D5;\U-05E4;\U-05D5;\U-05DF;"> <!ENTITY Copyright "\U-05D6;\U-05DB;\U-05D5;\U-05D9;\U-05D5;\U-05EA; \U-05D9;\U-05D5;\U-05E6;\U-05E8;\U-05D9;\U-05DD;"> <!ENTITY copyright "\U-05D6;\U-05DB;\U-05D5;\U-05D9;\U-05D5;\U-05EA; \U-05D9;\U-05D5;\U-05E6;\U-05E8;\U-05D9;\U-05DD;"> <!ENTITY Dedication "\U-05D4;\U-05E7;\U-05D3;\U-05E9;\U-05D4;"> <!ENTITY dedication "\U-05D4;\U-05E7;\U-05D3;\U-05E9;\U-05D4;"> <!ENTITY Edition "\U-05DE;\U-05D4;\U-05D3;\U-05D5;\U-05E8;\U-05D4;"> <!ENTITY edition "\U-05DE;\U-05D4;\U-05D3;\U-05D5;\U-05E8;\U-05D4;"> <!ENTITY Equation "\U-05DE;\U-05E9;\U-05D5;\U-05D5;\U-05D0;\U-05D4;"> <!ENTITY equation "\U-05DE;\U-05E9;\U-05D5;\U-05D5;\U-05D0;\U-05D4;"> <!ENTITY Example "\U-05D3;\U-05D5;\U-05D2;\U-05DE;\U-05D4;"> <!ENTITY example "\U-05D3;\U-05D5;\U-05D2;\U-05DE;\U-05D4;"> <!ENTITY Figure "\U-05D0;\U-05D9;\U-05D5;\U-05E8;"> <!ENTITY figure "\U-05D0;\U-05D9;\U-05D5;\U-05E8;"> <!ENTITY Glossary "\U-05DE;\U-05D9;\U-05DC;\U-05D5;\U-05DF; \U-05DE;\U-05D5;\U-05E0;\U-05D7;\U-05D9;\U-05DD;"> <!ENTITY glossary "\U-05DE;\U-05D9;\U-05DC;\U-05D5;\U-05DF; \U-05DE;\U-05D5;\U-05E0;\U-05D7;\U-05D9;\U-05DD;"> <!ENTITY GlossSee "\U-05E8;\U-05D0;\U-05D4;"> <!ENTITY glosssee "\U-05E8;\U-05D0;\U-05D4;"> <!ENTITY GlossSeeAlso "\U-05E8;\U-05D0;\U-05D4; \U-05D2;\U-05DD;"> <!ENTITY glossseealso "\U-05E8;\U-05D0;\U-05D4; \U-05D2;\U-05DD;"> <!ENTITY IMPORTANT "\U-05D7;\U-05E9;\U-05D5;\U-05D1;"> <!ENTITY important "\U-05D7;\U-05E9;\U-05D5;\U-05D1;"> <!ENTITY Important "\U-05D7;\U-05E9;\U-05D5;\U-05D1;"> <!ENTITY Index "\U-05D0;\U-05D9;\U-05E0;\U-05D3;\U-05E7;\U-05E1;"> <!ENTITY index "\U-05D0;\U-05D9;\U-05E0;\U-05D3;\U-05E7;\U-05E1;"> <!ENTITY ISBN "\U-05DE;\U-05E1;\U-05E4;\U-05E8; \U-05E1;\U-05E4;\U-05E8; \U-05E1;\U-05D8;\U-05E0;\U-05D3;\U-05E8;\U-05D8;\U-05D9; \U-05D1;\U-05D9;\U-05E0;\U-05DC;\U-05D0;\U-05D5;\U-05DE;\U-05D9;"> <!ENTITY isbn "\U-05DE;\U-05E1;\U-05E4;\U-05E8; \U-05E1;\U-05E4;\U-05E8; \U-05E1;\U-05D8;\U-05E0;\U-05D3;\U-05E8;\U-05D8;\U-05D9; \U-05D1;\U-05D9;\U-05E0;\U-05DC;\U-05D0;\U-05D5;\U-05DE;\U-05D9;"> <!ENTITY LegalNotice "\U-05D4;\U-05D5;\U-05D3;\U-05E2;\U-05D4; \U-05DE;\U-05E9;\U-05E4;\U-05D8;\U-05D9;\U-05EA;"> <!ENTITY legalnotice "\U-05D4;\U-05D5;\U-05D3;\U-05E2;\U-05D4; \U-05DE;\U-05E9;\U-05E4;\U-05D8;\U-05D9;\U-05EA;"> <!ENTITY MsgAud "\U-05E7;\U-05D4;\U-05DC; \U-05D9;\U-05E2;\U-05D3;"> <!ENTITY msgaud "\U-05E7;\U-05D4;\U-05DC; \U-05D9;\U-05E2;\U-05D3;"> <!ENTITY MsgLevel "\U-05E8;\U-05DE;\U-05D4;"> <!ENTITY msglevel "\U-05E8;\U-05DE;\U-05D4;"> <!ENTITY MsgOrig "\U-05DE;\U-05E7;\U-05D5;\U-05E8;"> <!ENTITY msgorig "\U-05DE;\U-05E7;\U-05D5;\U-05E8;"> <!ENTITY NOTE "\U-05E9;\U-05D9;\U-05DD; \U-05DC;\U-05D1;"> <!ENTITY Note "\U-05E9;\U-05D9;\U-05DD; \U-05DC;\U-05D1;"> <!ENTITY note "\U-05E9;\U-05D9;\U-05DD; \U-05DC;\U-05D1;"> <!ENTITY Part "\U-05D7;\U-05DC;\U-05E7;"> <!ENTITY part "\U-05D7;\U-05DC;\U-05E7;"> <!ENTITY Preface "\U-05DE;\U-05D1;\U-05D5;\U-05D0;"> <!ENTITY preface "\U-05DE;\U-05D1;\U-05D5;\U-05D0;"> <!ENTITY Procedure "\U-05D4;\U-05DC;\U-05D9;\U-05DA;"> <!ENTITY procedure "\U-05D4;\U-05DC;\U-05D9;\U-05DA;"> <!ENTITY ProductionSet "\U-05D9;\U-05D9;\U-05E6;\U-05D5;\U-05E8;"> <!ENTITY Published "\U-05D4;\U-05D5;\U-05E6;\U-05D0; \U-05DC;\U-05D0;\U-05D5;\U-05E8;"> <!ENTITY published "\U-05D4;\U-05D5;\U-05E6;\U-05D0; \U-05DC;\U-05D0;\U-05D5;\U-05E8;"> <!ENTITY Question "\U-05E9;:"> <!ENTITY question "\U-05E9;:"> <!ENTITY RefEntry ""> <!ENTITY refentry ""> <!ENTITY Reference "\U-05DE;\U-05E8;\U-05D0;\U-05D4; \U-05DE;\U-05E7;\U-05D5;\U-05DD;"> <!ENTITY reference "\U-05DE;\U-05E8;\U-05D0;\U-05D4; \U-05DE;\U-05E7;\U-05D5;\U-05DD;"> <!ENTITY RefName "\U-05E9;\U-05DD;"> <!ENTITY refname "\U-05E9;\U-05DD;"> <!ENTITY RefSection ""> <!ENTITY refsection ""> <!ENTITY RefSynopsisDiv "\U-05EA;\U-05DE;\U-05E6;\U-05D9;\U-05EA;"> <!ENTITY refsynopsisdiv "\U-05EA;\U-05DE;\U-05E6;\U-05D9;\U-05EA;"> <!ENTITY RevHistory "\U-05D4;\U-05D9;\U-05E1;\U-05D8;\U-05D5;\U-05E8;\U-05D9;\U-05D9;\U-05EA; \U-05D2;\U-05D9;\U-05E8;\U-05E1;\U-05D0;\U-05D5;\U-05EA;"> <!ENTITY revhistory "\U-05D4;\U-05D9;\U-05E1;\U-05D8;\U-05D5;\U-05E8;\U-05D9;\U-05D9;\U-05EA; \U-05D2;\U-05D9;\U-05E8;\U-05E1;\U-05D0;\U-05D5;\U-05EA;"> <!ENTITY revision "\U-05D2;\U-05D9;\U-05E8;\U-05E1;\U-05D4;"> <!ENTITY Revision "\U-05D2;\U-05D9;\U-05E8;\U-05E1;\U-05D4;"> <!ENTITY sect1 "\U-05E1;\U-05E2;\U-05D9;\U-05E3;"> <!ENTITY sect2 "\U-05E1;\U-05E2;\U-05D9;\U-05E3;"> <!ENTITY sect3 "\U-05E1;\U-05E2;\U-05D9;\U-05E3;"> <!ENTITY sect4 "\U-05E1;\U-05E2;\U-05D9;\U-05E3;"> <!ENTITY sect5 "\U-05E1;\U-05E2;\U-05D9;\U-05E3;"> <!ENTITY section "\U-05E1;\U-05E2;\U-05D9;\U-05E3;"> <!ENTITY Section "\U-05E1;\U-05E2;\U-05D9;\U-05E3;"> <!ENTITY See "\U-05E8;\U-05D0;\U-05D4;"> <!ENTITY see "\U-05E8;\U-05D0;\U-05D4;"> <!ENTITY SeeAlso "\U-05E8;\U-05D0;\U-05D4; \U-05D2;\U-05DD;"> <!ENTITY seealso "\U-05E8;\U-05D0;\U-05D4; \U-05D2;\U-05DD;"> <!ENTITY Seealso "\U-05E8;\U-05D0;\U-05D4; \U-05D2;\U-05DD;"> <!ENTITY set "\U-05E1;\U-05D9;\U-05D3;\U-05E8;\U-05D4;"> <!ENTITY Set "\U-05E1;\U-05D9;\U-05D3;\U-05E8;\U-05D4;"> <!ENTITY setindex "\U-05D0;\U-05D9;\U-05E0;\U-05E7;\U-05D3;\U-05E7;\U-05E1; \U-05E1;\U-05D3;\U-05E8;\U-05D5;\U-05EA;"> <!ENTITY SetIndex "\U-05D0;\U-05D9;\U-05E0;\U-05D3;\U-05E7;\U-05E1; \U-05E1;\U-05D3;\U-05E8;\U-05D5;\U-05EA;"> <!ENTITY Sidebar ""> <!ENTITY sidebar "\U-05E4;\U-05E1; \U-05E6;\U-05D3;\U-05D3;\U-05D9;"> <!ENTITY step "\U-05E6;\U-05E2;\U-05D3;"> <!ENTITY Step "\U-05E6;\U-05E2;\U-05D3;"> <!ENTITY Table "\U-05D8;\U-05D1;\U-05DC;\U-05D4;"> <!ENTITY table "\U-05D8;\U-05D1;\U-05DC;\U-05D4;"> <!ENTITY tip "\U-05E2;\U-05E6;\U-05D4;"> <!ENTITY TIP "\U-05E2;\U-05E6;\U-05D4;"> <!ENTITY Tip "\U-05E2;\U-05E6;\U-05D4;"> <!ENTITY Warning "\U-05D0;\U-05D6;\U-05D4;\U-05E8;\U-05D4;"> <!ENTITY warning "\U-05D0;\U-05D6;\U-05D4;\U-05E8;\U-05D4;"> <!ENTITY WARNING "\U-05D0;\U-05D6;\U-05D4;\U-05E8;\U-05D4;"> <!ENTITY and "\U-05D5;"> <!ENTITY by "\U-05DE;\U-05D0;\U-05EA;"> <!ENTITY Edited "\U-05E0;\U-05E2;\U-05E8;\U-05DA;"> <!ENTITY edited "\U-05E0;\U-05E2;\U-05E8;\U-05DA;"> <!ENTITY Editedby "\U-05E0;\U-05E2;\U-05E8;\U-05DA; \U-05E2;\U-05DC; \U-05D9;\U-05D3;\U-05D9;"> <!ENTITY editedby "\U-05E0;\U-05E2;\U-05E8;\U-05DA; \U-05E2;\U-05DC; \U-05D9;\U-05D3;\U-05D9;"> <!ENTITY in "\U-05D1;"> <!ENTITY lastlistcomma ","> <!ENTITY listcomma ","> <!ENTITY nonexistantelement "\U-05DE;\U-05E8;\U-05DB;\U-05D9;\U-05D1; \U-05E9;\U-05D0;\U-05D9;\U-05E0;\U-05D5; \U-05E7;\U-05D9;\U-05D9;\U-05DD;"> <!ENTITY notes "\U-05D4;\U-05E2;\U-05E8;\U-05D5;\U-05EA;"> <!ENTITY Notes "\U-05D4;\U-05E2;\U-05E8;\U-05D5;\U-05EA;"> <!ENTITY Pgs "\U-05E2;\U-05DE;\U-05D5;\U-05D3;\U-05D9;\U-05DD;"> <!ENTITY pgs "\U-05E2;\U-05DE;\U-05D5;\U-05D3;\U-05D9;\U-05DD;"> <!ENTITY Revisedby "\U-05D4;\U-05D5;\U-05D2;\U-05D4; \U-05E2;\U-05DC; \U-05D9;\U-05D3;\U-05D9;: "> <!ENTITY revisedby "\U-05D4;\U-05D5;\U-05D2;\U-05D4; \U-05E2;\U-05DC; \U-05D9;\U-05D3;\U-05D9;: "> <!ENTITY TableNotes "\U-05D4;\U-05E2;\U-05E8;\U-05D5;\U-05EA;"> <!ENTITY tablenotes "\U-05D4;\U-05E2;\U-05E8;\U-05D5;\U-05EA;"> <!ENTITY TableofContents "\U-05EA;\U-05D5;\U-05DB;\U-05DF; \U-05D4;\U-05E2;\U-05E0;\U-05D9;\U-05D9;\U-05E0;\U-05D9;\U-05DD;"> <!ENTITY tableofcontents "\U-05EA;\U-05D5;\U-05DB;\U-05DF; \U-05D4;\U-05E2;\U-05E0;\U-05D9;\U-05D9;\U-05E0;\U-05D9;\U-05DD;"> <!ENTITY unexpectedelementname "\U-05E9;\U-05DD; \U-05DE;\U-05E8;\U-05DB;\U-05D9;\U-05D1; \U-05D1;\U-05DC;\U-05EA;\U-05D9; \U-05E6;\U-05E4;\U-05D5;\U-05D9;"> <!ENTITY unsupported "\U-05DC;\U-05D0; \U-05E0;\U-05EA;\U-05DE;\U-05DA;"> <!ENTITY xrefto "\U-05D4;\U-05EA;\U-05D9;\U-05D9;\U-05D7;\U-05E1;\U-05D5;\U-05EA; \U-05E6;\U-05D5;\U-05DC;\U-05D1;\U-05EA; \U-05D0;\U-05DC;"> <!ENTITY listofequations "\U-05E8;\U-05E9;\U-05D9;\U-05DE;\U-05EA; \U-05DE;\U-05E9;\U-05D5;\U-05D5;\U-05D0;\U-05D5;\U-05EA;"> <!ENTITY ListofEquations "\U-05E8;\U-05E9;\U-05D9;\U-05DE;\U-05EA; \U-05DE;\U-05E9;\U-05D5;\U-05D5;\U-05D0;\U-05D5;\U-05EA;"> <!ENTITY ListofExamples "\U-05E8;\U-05E9;\U-05D9;\U-05DE;\U-05EA; \U-05D3;\U-05D5;\U-05D2;\U-05DE;\U-05D0;\U-05D5;\U-05EA;"> <!ENTITY listofexamples "\U-05E8;\U-05E9;\U-05D9;\U-05DE;\U-05EA; \U-05D3;\U-05D5;\U-05D2;\U-05DE;\U-05D0;\U-05D5;\U-05EA;"> <!ENTITY ListofFigures "\U-05E8;\U-05E9;\U-05D9;\U-05DE;\U-05EA; \U-05D0;\U-05D9;\U-05D5;\U-05E8;\U-05D9;\U-05DD;"> <!ENTITY listoffigures "\U-05E8;\U-05E9;\U-05D9;\U-05DE;\U-05EA; \U-05D0;\U-05D9;\U-05D5;\U-05E8;\U-05D9;\U-05DD;"> <!ENTITY listoftables "\U-05E8;\U-05E9;\U-05D9;\U-05DE;\U-05EA; \U-05D8;\U-05D1;\U-05DC;\U-05D0;\U-05D5;\U-05EA;"> <!ENTITY ListofTables "\U-05E8;\U-05E9;\U-05D9;\U-05DE;\U-05EA; \U-05D8;\U-05D1;\U-05DC;\U-05D0;\U-05D5;\U-05EA;"> <!ENTITY ListofUnknown "\U-05E8;\U-05E9;\U-05D9;\U-05DE;\U-05D4; \U-05E9;\U-05DC; \U-05DE;\U-05E8;\U-05DB;\U-05D9;\U-05D1;\U-05D9;\U-05DD; \U-05DC;\U-05D0; \U-05D9;\U-05D3;\U-05D5;\U-05E2;\U-05D9;\U-05DD;"> <!ENTITY listofunknown "\U-05E8;\U-05E9;\U-05D9;\U-05DE;\U-05D4; \U-05E9;\U-05DC; \U-05DE;\U-05E8;\U-05DB;\U-05D9;\U-05D1;\U-05D9;\U-05DD; \U-05DC;\U-05D0; \U-05D9;\U-05D3;\U-05D5;\U-05E2;\U-05D9;\U-05DD;"> <!ENTITY nav-home "\U-05E8;\U-05D0;\U-05E9;\U-05D9;"> <!ENTITY nav-next "\U-05D4;\U-05D1;\U-05D0;"> <!ENTITY nav-next-sibling "\U-05D3;\U-05DC;\U-05D2; \U-05DC;\U-05E1;\U-05D5;\U-05E3;"> <!ENTITY nav-prev "\U-05D4;\U-05E7;\U-05D5;\U-05D3;\U-05DD;"> <!ENTITY nav-prev-sibling "\U-05D7;\U-05D6;\U-05D5;\U-05E8; \U-05DC;\U-05D4;\U-05EA;\U-05D7;\U-05DC;\U-05D4;"> <!ENTITY nav-up "\U-05DC;\U-05DE;\U-05E2;\U-05DC;\U-05D4;"> <!ENTITY sectioncalled "\U-05D4;\U-05E1;\U-05E2;\U-05D9;\U-05E3; \U-05E9;\U-05E0;\U-05E7;\U-05E8;\U-05D0;"> <!ENTITY lowercase.alpha "abcdefghijklmnopqrstuvwxyz"> <!ENTITY uppercase.alpha "ABCDEFGHIJKLMNOPQRSTUVWXYZ"> Index: phpdoc/dsssl/docbook/common/dbl1hu.dsl +++ phpdoc/dsssl/docbook/common/dbl1hu.dsl <!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 " &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-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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1hu.ent +++ phpdoc/dsssl/docbook/common/dbl1hu.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1id.dsl +++ phpdoc/dsssl/docbook/common/dbl1id.dsl <!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: dbl1id.dsl,v 1.1 2002/07/20 11:07:54 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; ;; 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" "&section; 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 " &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-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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1id.ent +++ phpdoc/dsssl/docbook/common/dbl1id.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1it.dsl +++ phpdoc/dsssl/docbook/common/dbl1it.dsl <!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: dbl1it.dsl,v 1.1 2002/07/20 11:07:54 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Contributors: ;; 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 &section; %t")) (list (normalize "sect1") (if %section-autolabel% "la &Section; %n" "la &section; %t")) (list (normalize "sect2") (if %section-autolabel% "la &Section; %n" "la &section; %t")) (list (normalize "sect3") (if %section-autolabel% "la &Section; %n" "la &section; %t")) (list (normalize "sect4") (if %section-autolabel% "la &Section; %n" "la &section; %t")) (list (normalize "sect5") (if %section-autolabel% "la &Section; %n" "la &section; %t")) (list (normalize "simplesect") (if %section-autolabel% "la &Section; %n" "la &section; %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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1it.ent +++ phpdoc/dsssl/docbook/common/dbl1it.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1ja.dsl +++ phpdoc/dsssl/docbook/common/dbl1ja.dsl <!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: dbl1ja.dsl,v 1.1 2002/07/20 11:07:54 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Contributors: ;; 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&section;")) (list (normalize "sect1") (if %section-autolabel% "&Section;%n" "%t&section;")) (list (normalize "sect2") (if %section-autolabel% "&Section;%n" "%t&section;")) (list (normalize "sect3") (if %section-autolabel% "&Section;%n" "%t&section;")) (list (normalize "sect4") (if %section-autolabel% "&Section;%n" "%t&section;")) (list (normalize "sect5") (if %section-autolabel% "&Section;%n" "%t&section;")) (list (normalize "simplesect") (if %section-autolabel% "&Section;%n" "%t&section;")) (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 "&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-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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1ja.ent +++ phpdoc/dsssl/docbook/common/dbl1ja.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1ko.dsl +++ phpdoc/dsssl/docbook/common/dbl1ko.dsl <!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' &section;")) (list (normalize "sect1") (if %section-autolabel% "%n\U-C808;" "`%t' &section;")) (list (normalize "sect2") (if %section-autolabel% "%n\U-C808;" "`%t' &section;")) (list (normalize "sect3") (if %section-autolabel% "%n\U-C808;" "`%t' &section;")) (list (normalize "sect4") (if %section-autolabel% "%n\U-C808;" "`%t' &section;")) (list (normalize "sect5") (if %section-autolabel% "%n\U-C808;" "`%t' &section;")) (list (normalize "simplesect") (if %section-autolabel% "%n\U-C808;" "`%t' &section;")) (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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1ko.ent +++ phpdoc/dsssl/docbook/common/dbl1ko.ent <?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;"> Index: phpdoc/dsssl/docbook/common/dbl1nl.dsl +++ phpdoc/dsssl/docbook/common/dbl1nl.dsl <!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: dbl1nl.dsl,v 1.1 2002/07/20 11:07:54 goba Exp $ ;; ;; 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" "&section; %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "&section; %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "&section; %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "&section; %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "&section; %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "&section; %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "&section; %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 " &in; ")) ;; 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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1nl.ent +++ phpdoc/dsssl/docbook/common/dbl1nl.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1nn.dsl +++ phpdoc/dsssl/docbook/common/dbl1nn.dsl <!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: dbl1nn.dsl,v 1.1 2002/07/20 11:07:54 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (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 &section; called %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "the &section; 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 " &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-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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1nn.ent +++ phpdoc/dsssl/docbook/common/dbl1nn.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1no.dsl +++ phpdoc/dsssl/docbook/common/dbl1no.dsl <!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: dbl1no.dsl,v 1.1 2002/07/20 11:07:54 goba Exp $ ;; ;; 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 " &in; ")) ;; 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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1no.ent +++ phpdoc/dsssl/docbook/common/dbl1no.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1null.dsl +++ phpdoc/dsssl/docbook/common/dbl1null.dsl <!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> Index: phpdoc/dsssl/docbook/common/dbl1pl.dsl +++ phpdoc/dsssl/docbook/common/dbl1pl.dsl <!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: dbl1pl.dsl,v 1.1 2002/07/20 11:07:55 goba Exp $ ;; ;; 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&#179; %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 " &in; ")) ;; 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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1pl.ent +++ phpdoc/dsssl/docbook/common/dbl1pl.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1pt.dsl +++ phpdoc/dsssl/docbook/common/dbl1pt.dsl <!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: dbl1pt.dsl,v 1.1 2002/07/20 11:07:55 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (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 &section; %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "o &section; %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "o &section; %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "o &section; %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "o &section; %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "o &section; %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "o &section; %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 " &in; ")) ;; 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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1pt.ent +++ phpdoc/dsssl/docbook/common/dbl1pt.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1ptbr.dsl +++ phpdoc/dsssl/docbook/common/dbl1ptbr.dsl <!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: dbl1ptbr.dsl,v 1.1 2002/07/20 11:07:56 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (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 &section; %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "a &section; %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "a &section; %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "a &section; %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "a &section; %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "a &section; %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "a &section; %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 " &in; ")) ;; 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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1ptbr.ent +++ phpdoc/dsssl/docbook/common/dbl1ptbr.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1ro.dsl +++ phpdoc/dsssl/docbook/common/dbl1ro.dsl <!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: dbl1ro.dsl,v 1.1 2002/07/20 11:07:56 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; 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" "&section; numit\U-0103; %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "&section; numit\U-0103; %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "&section; numit\U-0103; %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "&section; numit\U-0103; %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "&section; numit\U-0103; %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "&section; numit\U-0103; %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "&section; 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 " &in; ")) ;; 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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1ro.ent +++ phpdoc/dsssl/docbook/common/dbl1ro.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1ru.dsl +++ phpdoc/dsssl/docbook/common/dbl1ru.dsl <!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: dbl1ru.dsl,v 1.1 2002/07/20 11:07:56 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; 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 " &in; ")) ;; 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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1ru.ent +++ phpdoc/dsssl/docbook/common/dbl1ru.ent <?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;"> Index: phpdoc/dsssl/docbook/common/dbl1sk.dsl +++ phpdoc/dsssl/docbook/common/dbl1sk.dsl <!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: dbl1sk.dsl,v 1.1 2002/07/20 11:07:56 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Contributors: ;; Ralf Schleitzer, ralf.schleitzer@ixos.de (define (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" "&section; nazvan\U-00E1; %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "&section; nazvan\U-00E1; %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "&section; nazvan\U-00E1; %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "&section; nazvan\U-00E1; %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "&section; nazvan\U-00E1; %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "&section; nazvan\U-00E1; %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "&section; 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 " &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-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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1sk.ent +++ phpdoc/dsssl/docbook/common/dbl1sk.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1sl.dsl +++ phpdoc/dsssl/docbook/common/dbl1sl.dsl <!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: dbl1sl.dsl,v 1.1 2002/07/20 11:07:56 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (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 &section; called %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "the &section; 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 " &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-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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1sl.ent +++ phpdoc/dsssl/docbook/common/dbl1sl.ent <?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;"> Index: phpdoc/dsssl/docbook/common/dbl1sr.dsl +++ phpdoc/dsssl/docbook/common/dbl1sr.dsl <!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: dbl1sr.dsl,v 1.1 2002/07/20 11:07:56 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (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 &section; called %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "the &section; 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 " &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-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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1sr.ent +++ phpdoc/dsssl/docbook/common/dbl1sr.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1sv.dsl +++ phpdoc/dsssl/docbook/common/dbl1sv.dsl <!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: dbl1sv.dsl,v 1.1 2002/07/20 11:07:56 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; ;; 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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1sv.ent +++ phpdoc/dsssl/docbook/common/dbl1sv.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1th.ent +++ phpdoc/dsssl/docbook/common/dbl1th.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1tr.dsl +++ phpdoc/dsssl/docbook/common/dbl1tr.dsl <!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: dbl1tr.dsl,v 1.1 2002/07/20 11:07:56 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Modified for 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 &section; called %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "the &section; 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 " &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-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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1tr.ent +++ phpdoc/dsssl/docbook/common/dbl1tr.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1uk.dsl +++ phpdoc/dsssl/docbook/common/dbl1uk.dsl <!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: dbl1uk.dsl,v 1.1 2002/07/20 11:07:56 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (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 &section; called %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "the &section; 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 " &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-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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1uk.ent +++ phpdoc/dsssl/docbook/common/dbl1uk.ent <?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;"> Index: phpdoc/dsssl/docbook/common/dbl1xh.dsl +++ phpdoc/dsssl/docbook/common/dbl1xh.dsl <!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: dbl1xh.dsl,v 1.1 2002/07/20 11:07:56 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (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 &section; called %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "the &section; called %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "the &section; 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 " &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-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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1xh.ent +++ phpdoc/dsssl/docbook/common/dbl1xh.ent <?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"> Index: phpdoc/dsssl/docbook/common/dbl1zhcn.dsl +++ phpdoc/dsssl/docbook/common/dbl1zhcn.dsl <!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: dbl1zhcn.dsl,v 1.1 2002/07/20 11:07:56 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; ;; 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% "&#181;&#218; %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") "&#181;&#218; %n &Part;") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&#181;&#218; %n &section;" "the &section; called %t")) (list (normalize "sect1") (if %section-autolabel% "&#181;&#218; %n &section;" "the &section; called %t")) (list (normalize "sect2") (if %section-autolabel% "&#181;&#218; %n &section;" "the &section; called %t")) (list (normalize "sect3") (if %section-autolabel% "&#181;&#218; %n &section;" "the &section; called %t")) (list (normalize "sect4") (if %section-autolabel% "&#181;&#218; %n &section;" "the &section; called %t")) (list (normalize "sect5") (if %section-autolabel% "&#181;&#218; %n &section;" "the &section; called %t")) (list (normalize "simplesect") (if %section-autolabel% "&#181;&#218; %n &section;" "the &section; 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 " &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-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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1zhcn.ent +++ phpdoc/dsssl/docbook/common/dbl1zhcn.ent <?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;"> Index: phpdoc/dsssl/docbook/common/dbl1zhtw.dsl +++ phpdoc/dsssl/docbook/common/dbl1zhtw.dsl <!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: dbl1zhtw.dsl,v 1.1 2002/07/20 11:07:56 goba Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; ;; 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% "&#181;&#218; %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") "&#181;&#218; %n &Part;") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&#181;&#218; %n &section;" "the &section; called %t")) (list (normalize "sect1") (if %section-autolabel% "&#181;&#218; %n &section;" "the &section; called %t")) (list (normalize "sect2") (if %section-autolabel% "&#181;&#218; %n &section;" "the &section; called %t")) (list (normalize "sect3") (if %section-autolabel% "&#181;&#218; %n &section;" "the &section; called %t")) (list (normalize "sect4") (if %section-autolabel% "&#181;&#218; %n &section;" "the &section; called %t")) (list (normalize "sect5") (if %section-autolabel% "&#181;&#218; %n &section;" "the &section; called %t")) (list (normalize "simplesect") (if %section-autolabel% "&#181;&#218; %n &section;" "the &section; 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 " &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-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% "&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> Index: phpdoc/dsssl/docbook/common/dbl1zhtw.ent +++ phpdoc/dsssl/docbook/common/dbl1zhtw.ent <?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;"> Index: phpdoc/dsssl/docbook/common/dbtable.dsl +++ phpdoc/dsssl/docbook/common/dbtable.dsl ;; $Id: dbtable.dsl,v 1.1 2002/07/20 11:07:56 goba Exp $ ;; ;; 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)))))))) ;; ======================================================================