mirror of
https://github.com/smarty-php/smarty.git
synced 2025-11-03 22:01:36 +01:00
609 lines
26 KiB
Plaintext
Executable File
609 lines
26 KiB
Plaintext
Executable File
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
|
<!ENTITY % id.words
|
|
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//IN"
|
|
"dbl1id.ent">
|
|
%id.words;
|
|
]>
|
|
|
|
<style-sheet>
|
|
<style-specification id="docbook-l10n-id">
|
|
<style-specification-body>
|
|
|
|
;; $Id$
|
|
;;
|
|
;; This file is part of the Modular DocBook Stylesheet distribution.
|
|
;; See ../README or http://nwalsh.com/docbook/dsssl/
|
|
;;
|
|
|
|
;; ----------------------------- Localization -----------------------------
|
|
|
|
;; If you create a new version of this file, please send it to
|
|
;; Norman Walsh, ndw@nwalsh.com
|
|
|
|
;; The generated text for cross references to elements. See dblink.dsl
|
|
;; for a discussion of how substitution is performed on the %x
|
|
;; keywords.
|
|
;;
|
|
;; Contributors:
|
|
;; Mohammad DAMT, mdamt@cdl2000.com
|
|
;;
|
|
|
|
(define (id-author-string #!optional (author (current-node)))
|
|
;; Return a formatted string representation of the contents of:
|
|
;; AUTHOR:
|
|
;; Handles Honorific, FirstName, SurName, and Lineage.
|
|
;; If %author-othername-in-middle% is #t, also OtherName
|
|
;; Handles *only* the first of each.
|
|
;; Format is "Honorific. FirstName [OtherName] SurName, Lineage"
|
|
;; CORPAUTHOR:
|
|
;; returns (data corpauthor)
|
|
(let* ((h_nl (select-elements (descendants author) (normalize "honorific")))
|
|
(f_nl (select-elements (descendants author) (normalize "firstname")))
|
|
(o_nl (select-elements (descendants author) (normalize "othername")))
|
|
(s_nl (select-elements (descendants author) (normalize "surname")))
|
|
(l_nl (select-elements (descendants author) (normalize "lineage")))
|
|
(has_h (not (node-list-empty? h_nl)))
|
|
(has_f (not (node-list-empty? f_nl)))
|
|
(has_o (and %author-othername-in-middle%
|
|
(not (node-list-empty? o_nl))))
|
|
(has_s (not (node-list-empty? s_nl)))
|
|
(has_l (not (node-list-empty? l_nl))))
|
|
(if (or (equal? (gi author) (normalize "author"))
|
|
(equal? (gi author) (normalize "editor"))
|
|
(equal? (gi author) (normalize "othercredit")))
|
|
(string-append
|
|
(if has_h (string-append (data-of (node-list-first h_nl))
|
|
%honorific-punctuation%) "")
|
|
(if has_f (string-append
|
|
(if has_h " " "")
|
|
(data-of (node-list-first f_nl))) "")
|
|
(if has_o (string-append
|
|
(if (or has_h has_f) " " "")
|
|
(data-of (node-list-first o_nl))) "")
|
|
(if has_s (string-append
|
|
(if (or has_h has_f has_o) " " "")
|
|
(data-of (node-list-first s_nl))) "")
|
|
(if has_l (string-append ", " (data-of (node-list-first l_nl))) ""))
|
|
(data-of author))))
|
|
|
|
(define (id-appendix-xref-string gi-or-name)
|
|
(if %chapter-autolabel%
|
|
"&Appendix; %n"
|
|
"&appendix; berjudul %t"))
|
|
|
|
(define (id-article-xref-string gi-or-name)
|
|
(string-append %gentext-id-start-quote%
|
|
"%t"
|
|
%gentext-id-end-quote%))
|
|
|
|
(define (id-bibliography-xref-string gi-or-name)
|
|
"%t")
|
|
|
|
(define (id-book-xref-string gi-or-name)
|
|
"%t")
|
|
|
|
(define (id-chapter-xref-string gi-or-name)
|
|
(if %chapter-autolabel%
|
|
"&Chapter; %n"
|
|
"&chapter; berjudul %t"))
|
|
|
|
(define (id-equation-xref-string gi-or-name)
|
|
"&Equation; %n")
|
|
|
|
(define (id-example-xref-string gi-or-name)
|
|
"&Example; %n")
|
|
|
|
(define (id-figure-xref-string gi-or-name)
|
|
"&Figure; %n")
|
|
|
|
(define (id-glossary-xref-string gi-or-name)
|
|
"%t")
|
|
|
|
(define (id-index-xref-string gi-or-name)
|
|
"%t")
|
|
|
|
(define (id-listitem-xref-string gi-or-name)
|
|
"%n")
|
|
|
|
(define (id-part-xref-string gi-or-name)
|
|
"&Part; %n")
|
|
|
|
(define (id-preface-xref-string gi-or-name)
|
|
"%t")
|
|
|
|
(define (id-procedure-xref-string gi-or-name)
|
|
"&Procedure; %n, %t")
|
|
|
|
(define (id-reference-xref-string gi-or-name)
|
|
"&Reference; %n, %t")
|
|
|
|
(define (id-sectioning-xref-string gi-or-name)
|
|
(if %section-autolabel%
|
|
"&Section; %n"
|
|
"§ion; berjudul %t"))
|
|
|
|
(define (id-sect1-xref-string gi-or-name)
|
|
(id-sectioning-xref-string gi-or-name))
|
|
|
|
(define (id-sect2-xref-string gi-or-name)
|
|
(id-sectioning-xref-string gi-or-name))
|
|
|
|
(define (id-sect3-xref-string gi-or-name)
|
|
(id-sectioning-xref-string gi-or-name))
|
|
|
|
(define (id-sect4-xref-string gi-or-name)
|
|
(id-sectioning-xref-string gi-or-name))
|
|
|
|
(define (id-sect5-xref-string gi-or-name)
|
|
(id-sectioning-xref-string gi-or-name))
|
|
|
|
(define (id-section-xref-string gi-or-name)
|
|
(id-sectioning-xref-string gi-or-name))
|
|
|
|
(define (id-sidebar-xref-string gi-or-name)
|
|
"the &sidebar; %t")
|
|
|
|
(define (id-step-xref-string gi-or-name)
|
|
"&step; %n")
|
|
|
|
(define (id-table-xref-string gi-or-name)
|
|
"&Table; %n")
|
|
|
|
(define (id-default-xref-string gi-or-name)
|
|
(let* ((giname (if (string? gi-or-name) gi-or-name (gi gi-or-name)))
|
|
(msg (string-append "[&xrefto; "
|
|
(if giname giname "&nonexistantelement;")
|
|
" &unsupported;]"))
|
|
(err (node-list-error msg (current-node))))
|
|
msg))
|
|
|
|
(define (gentext-id-xref-strings gind)
|
|
(let* ((giname (if (string? gind) gind (gi gind)))
|
|
(name (normalize giname)))
|
|
(cond
|
|
((equal? name (normalize "appendix")) (id-appendix-xref-string gind))
|
|
((equal? name (normalize "article")) (id-article-xref-string gind))
|
|
((equal? name (normalize "bibliography")) (id-bibliography-xref-string gind))
|
|
((equal? name (normalize "book")) (id-book-xref-string gind))
|
|
((equal? name (normalize "chapter")) (id-chapter-xref-string gind))
|
|
((equal? name (normalize "equation")) (id-equation-xref-string gind))
|
|
((equal? name (normalize "example")) (id-example-xref-string gind))
|
|
((equal? name (normalize "figure")) (id-figure-xref-string gind))
|
|
((equal? name (normalize "glossary")) (id-glossary-xref-string gind))
|
|
((equal? name (normalize "index")) (id-index-xref-string gind))
|
|
((equal? name (normalize "listitem")) (id-listitem-xref-string gind))
|
|
((equal? name (normalize "part")) (id-part-xref-string gind))
|
|
((equal? name (normalize "preface")) (id-preface-xref-string gind))
|
|
((equal? name (normalize "procedure")) (id-procedure-xref-string gind))
|
|
((equal? name (normalize "reference")) (id-reference-xref-string gind))
|
|
((equal? name (normalize "sect1")) (id-sect1-xref-string gind))
|
|
((equal? name (normalize "sect2")) (id-sect2-xref-string gind))
|
|
((equal? name (normalize "sect3")) (id-sect3-xref-string gind))
|
|
((equal? name (normalize "sect4")) (id-sect4-xref-string gind))
|
|
((equal? name (normalize "sect5")) (id-sect5-xref-string gind))
|
|
((equal? name (normalize "section")) (id-section-xref-string gind))
|
|
((equal? name (normalize "simplesect")) (id-section-xref-string gind))
|
|
((equal? name (normalize "sidebar")) (id-sidebar-xref-string gind))
|
|
((equal? name (normalize "step")) (id-step-xref-string gind))
|
|
((equal? name (normalize "table")) (id-table-xref-string gind))
|
|
(else (id-default-xref-string gind)))))
|
|
|
|
(define (id-auto-xref-indirect-connector before)
|
|
;; In English, the (cond) is unnecessary since the word is always the
|
|
;; same, but in other languages, that's not the case. I've set this
|
|
;; one up with the (cond) so it stands as an example.
|
|
(cond
|
|
((equal? (gi before) (normalize "book"))
|
|
(literal " ∈ "))
|
|
((equal? (gi before) (normalize "chapter"))
|
|
(literal " ∈ "))
|
|
((equal? (gi before) (normalize "sect1"))
|
|
(literal " ∈ "))
|
|
(else
|
|
(literal " ∈ "))))
|
|
|
|
;; Should the TOC come first or last?
|
|
;;
|
|
(define %generate-id-toc-in-front% #t)
|
|
|
|
;; gentext-element-name returns the generated text that should be
|
|
;; used to make reference to the selected element.
|
|
;;
|
|
(define id-abstract-name "&Abstract;")
|
|
(define id-answer-name "&Answer;")
|
|
(define id-appendix-name "&Appendix;")
|
|
(define id-article-name "&Article;")
|
|
(define id-bibliography-name "&Bibliography;")
|
|
(define id-book-name "&Book;")
|
|
(define id-calloutlist-name "")
|
|
(define id-caution-name "&Caution;")
|
|
(define id-chapter-name "&Chapter;")
|
|
(define id-copyright-name "&Copyright;")
|
|
(define id-dedication-name "&Dedication;")
|
|
(define id-edition-name "&Edition;")
|
|
(define id-equation-name "&Equation;")
|
|
(define id-example-name "&Example;")
|
|
(define id-figure-name "&Figure;")
|
|
(define id-glossary-name "&Glossary;")
|
|
(define id-glosssee-name "&GlossSee;")
|
|
(define id-glossseealso-name "&GlossSeeAlso;")
|
|
(define id-important-name "&Important;")
|
|
(define id-index-name "&Index;")
|
|
(define id-colophon-name "&Colophon;")
|
|
(define id-setindex-name "&SetIndex;")
|
|
(define id-isbn-name "&isbn;")
|
|
(define id-legalnotice-name "&LegalNotice;")
|
|
(define id-msgaud-name "&MsgAud;")
|
|
(define id-msglevel-name "&MsgLevel;")
|
|
(define id-msgorig-name "&MsgOrig;")
|
|
(define id-note-name "&Note;")
|
|
(define id-part-name "&Part;")
|
|
(define id-preface-name "&Preface;")
|
|
(define id-procedure-name "&Procedure;")
|
|
(define id-pubdate-name "&Published;")
|
|
(define id-question-name "&Question;")
|
|
(define id-refentry-name "&RefEntry;")
|
|
(define id-reference-name "&Reference;")
|
|
(define id-refname-name "&RefName;")
|
|
(define id-revhistory-name "&RevHistory;")
|
|
(define id-refsect1-name "&RefSection;")
|
|
(define id-refsect2-name "&RefSection;")
|
|
(define id-refsect3-name "&RefSection;")
|
|
(define id-refsynopsisdiv-name "&RefSynopsisDiv;")
|
|
(define id-revision-name "&Revision;")
|
|
(define id-sect1-name "&Section;")
|
|
(define id-sect2-name "&Section;")
|
|
(define id-sect3-name "&Section;")
|
|
(define id-sect4-name "&Section;")
|
|
(define id-sect5-name "&Section;")
|
|
(define id-section-name "&Section;")
|
|
(define id-simplesect-name "&Section;")
|
|
(define id-seeie-name "&See;")
|
|
(define id-seealsoie-name "&Seealso;")
|
|
(define id-set-name "&Set;")
|
|
(define id-sidebar-name "&Sidebar;")
|
|
(define id-step-name "&step;")
|
|
(define id-table-name "&Table;")
|
|
(define id-tip-name "&Tip;")
|
|
(define id-toc-name "&TableofContents;")
|
|
(define id-warning-name "&Warning;")
|
|
|
|
(define (gentext-id-element-name gind)
|
|
(let* ((giname (if (string? gind) gind (gi gind)))
|
|
(name (normalize giname)))
|
|
(cond
|
|
((equal? name (normalize "abstract")) id-abstract-name)
|
|
((equal? name (normalize "answer")) id-answer-name)
|
|
((equal? name (normalize "appendix")) id-appendix-name)
|
|
((equal? name (normalize "article")) id-article-name)
|
|
((equal? name (normalize "bibliography")) id-bibliography-name)
|
|
((equal? name (normalize "book")) id-book-name)
|
|
((equal? name (normalize "calloutlist")) id-calloutlist-name)
|
|
((equal? name (normalize "caution")) id-caution-name)
|
|
((equal? name (normalize "chapter")) id-chapter-name)
|
|
((equal? name (normalize "copyright")) id-copyright-name)
|
|
((equal? name (normalize "dedication")) id-dedication-name)
|
|
((equal? name (normalize "edition")) id-edition-name)
|
|
((equal? name (normalize "equation")) id-equation-name)
|
|
((equal? name (normalize "example")) id-example-name)
|
|
((equal? name (normalize "figure")) id-figure-name)
|
|
((equal? name (normalize "glossary")) id-glossary-name)
|
|
((equal? name (normalize "glosssee")) id-glosssee-name)
|
|
((equal? name (normalize "glossseealso")) id-glossseealso-name)
|
|
((equal? name (normalize "important")) id-important-name)
|
|
((equal? name (normalize "index")) id-index-name)
|
|
((equal? name (normalize "colophon")) id-colophon-name)
|
|
((equal? name (normalize "setindex")) id-setindex-name)
|
|
((equal? name (normalize "isbn")) id-isbn-name)
|
|
((equal? name (normalize "legalnotice")) id-legalnotice-name)
|
|
((equal? name (normalize "msgaud")) id-msgaud-name)
|
|
((equal? name (normalize "msglevel")) id-msglevel-name)
|
|
((equal? name (normalize "msgorig")) id-msgorig-name)
|
|
((equal? name (normalize "note")) id-note-name)
|
|
((equal? name (normalize "part")) id-part-name)
|
|
((equal? name (normalize "preface")) id-preface-name)
|
|
((equal? name (normalize "procedure")) id-procedure-name)
|
|
((equal? name (normalize "pubdate")) id-pubdate-name)
|
|
((equal? name (normalize "question")) id-question-name)
|
|
((equal? name (normalize "refentry")) id-refentry-name)
|
|
((equal? name (normalize "reference")) id-reference-name)
|
|
((equal? name (normalize "refname")) id-refname-name)
|
|
((equal? name (normalize "revhistory")) id-revhistory-name)
|
|
((equal? name (normalize "refsect1")) id-refsect1-name)
|
|
((equal? name (normalize "refsect2")) id-refsect2-name)
|
|
((equal? name (normalize "refsect3")) id-refsect3-name)
|
|
((equal? name (normalize "refsynopsisdiv")) id-refsynopsisdiv-name)
|
|
((equal? name (normalize "revision")) id-revision-name)
|
|
((equal? name (normalize "sect1")) id-sect1-name)
|
|
((equal? name (normalize "sect2")) id-sect2-name)
|
|
((equal? name (normalize "sect3")) id-sect3-name)
|
|
((equal? name (normalize "sect4")) id-sect4-name)
|
|
((equal? name (normalize "sect5")) id-sect5-name)
|
|
((equal? name (normalize "section")) id-section-name)
|
|
((equal? name (normalize "simplesect")) id-simplesect-name)
|
|
((equal? name (normalize "seeie")) id-seeie-name)
|
|
((equal? name (normalize "seealsoie")) id-seealsoie-name)
|
|
((equal? name (normalize "set")) id-set-name)
|
|
((equal? name (normalize "sidebar")) id-sidebar-name)
|
|
((equal? name (normalize "step")) id-step-name)
|
|
((equal? name (normalize "table")) id-table-name)
|
|
((equal? name (normalize "tip")) id-tip-name)
|
|
((equal? name (normalize "toc")) id-toc-name)
|
|
((equal? name (normalize "warning")) id-warning-name)
|
|
(else (let* ((msg (string-append "gentext-id-element-name: &unexpectedelementname;: " name))
|
|
(err (node-list-error msg (current-node))))
|
|
msg)))))
|
|
|
|
;; gentext-element-name-space returns gentext-element-name with a
|
|
;; trailing space, if gentext-element-name isn't "".
|
|
;;
|
|
(define (gentext-id-element-name-space giname)
|
|
(string-with-space (gentext-element-name giname)))
|
|
|
|
;; gentext-intra-label-sep returns the seperator to be inserted
|
|
;; between multiple occurances of a label (or parts of a label)
|
|
;; for the specified element. Most of these are for enumerated
|
|
;; labels like "Figure 2-4", but this function is used elsewhere
|
|
;; (e.g. REFNAME) with a little abuse.
|
|
;;
|
|
|
|
(define id-equation-intra-label-sep "-")
|
|
(define id-informalequation-intra-label-sep "-")
|
|
(define id-example-intra-label-sep "-")
|
|
(define id-figure-intra-label-sep "-")
|
|
(define id-listitem-intra-label-sep ".")
|
|
(define id-procedure-intra-label-sep ".")
|
|
(define id-refentry-intra-label-sep ".")
|
|
(define id-reference-intra-label-sep ".")
|
|
(define id-refname-intra-label-sep ", ")
|
|
(define id-refsect1-intra-label-sep ".")
|
|
(define id-refsect2-intra-label-sep ".")
|
|
(define id-refsect3-intra-label-sep ".")
|
|
(define id-sect1-intra-label-sep ".")
|
|
(define id-sect2-intra-label-sep ".")
|
|
(define id-sect3-intra-label-sep ".")
|
|
(define id-sect4-intra-label-sep ".")
|
|
(define id-sect5-intra-label-sep ".")
|
|
(define id-section-intra-label-sep ".")
|
|
(define id-simplesect-intra-label-sep ".")
|
|
(define id-step-intra-label-sep ".")
|
|
(define id-table-intra-label-sep "-")
|
|
(define id-_pagenumber-intra-label-sep "-")
|
|
(define id-default-intra-label-sep "")
|
|
|
|
(define (gentext-id-intra-label-sep gind)
|
|
(let* ((giname (if (string? gind) gind (gi gind)))
|
|
(name (normalize giname)))
|
|
(cond
|
|
((equal? name (normalize "equation")) id-equation-intra-label-sep)
|
|
((equal? name (normalize "informalequation")) id-informalequation-intra-label-sep)
|
|
((equal? name (normalize "example")) id-example-intra-label-sep)
|
|
((equal? name (normalize "figure")) id-figure-intra-label-sep)
|
|
((equal? name (normalize "listitem")) id-listitem-intra-label-sep)
|
|
((equal? name (normalize "procedure")) id-procedure-intra-label-sep)
|
|
((equal? name (normalize "refentry")) id-refentry-intra-label-sep)
|
|
((equal? name (normalize "reference")) id-reference-intra-label-sep)
|
|
((equal? name (normalize "refname")) id-refname-intra-label-sep)
|
|
((equal? name (normalize "refsect1")) id-refsect1-intra-label-sep)
|
|
((equal? name (normalize "refsect2")) id-refsect2-intra-label-sep)
|
|
((equal? name (normalize "refsect3")) id-refsect3-intra-label-sep)
|
|
((equal? name (normalize "sect1")) id-sect1-intra-label-sep)
|
|
((equal? name (normalize "sect2")) id-sect2-intra-label-sep)
|
|
((equal? name (normalize "sect3")) id-sect3-intra-label-sep)
|
|
((equal? name (normalize "sect4")) id-sect4-intra-label-sep)
|
|
((equal? name (normalize "sect5")) id-sect5-intra-label-sep)
|
|
((equal? name (normalize "section")) id-section-intra-label-sep)
|
|
((equal? name (normalize "simplesect")) id-simplesect-intra-label-sep)
|
|
((equal? name (normalize "step")) id-step-intra-label-sep)
|
|
((equal? name (normalize "table")) id-table-intra-label-sep)
|
|
((equal? name (normalize "_pagenumber")) id-_pagenumber-intra-label-sep)
|
|
(else id-default-intra-label-sep))))
|
|
|
|
;; gentext-label-title-sep returns the seperator to be inserted
|
|
;; between a label and the text following the label for the
|
|
;; specified element. Most of these are for use between
|
|
;; enumerated labels and titles like "1. Chapter One Title", but
|
|
;; this function is used elsewhere (e.g. NOTE) with a little
|
|
;; abuse.
|
|
;;
|
|
|
|
(define id-abstract-label-title-sep ": ")
|
|
(define id-answer-label-title-sep " ")
|
|
(define id-appendix-label-title-sep ". ")
|
|
(define id-caution-label-title-sep "")
|
|
(define id-chapter-label-title-sep ". ")
|
|
(define id-equation-label-title-sep ". ")
|
|
(define id-example-label-title-sep ". ")
|
|
(define id-figure-label-title-sep ". ")
|
|
(define id-footnote-label-title-sep ". ")
|
|
(define id-glosssee-label-title-sep ": ")
|
|
(define id-glossseealso-label-title-sep ": ")
|
|
(define id-important-label-title-sep ": ")
|
|
(define id-note-label-title-sep ": ")
|
|
(define id-orderedlist-label-title-sep ". ")
|
|
(define id-part-label-title-sep ". ")
|
|
(define id-procedure-label-title-sep ". ")
|
|
(define id-prefix-label-title-sep ". ")
|
|
(define id-question-label-title-sep " ")
|
|
(define id-refentry-label-title-sep "")
|
|
(define id-reference-label-title-sep ". ")
|
|
(define id-refsect1-label-title-sep ". ")
|
|
(define id-refsect2-label-title-sep ". ")
|
|
(define id-refsect3-label-title-sep ". ")
|
|
(define id-sect1-label-title-sep ". ")
|
|
(define id-sect2-label-title-sep ". ")
|
|
(define id-sect3-label-title-sep ". ")
|
|
(define id-sect4-label-title-sep ". ")
|
|
(define id-sect5-label-title-sep ". ")
|
|
(define id-section-label-title-sep ". ")
|
|
(define id-simplesect-label-title-sep ". ")
|
|
(define id-seeie-label-title-sep " ")
|
|
(define id-seealsoie-label-title-sep " ")
|
|
(define id-step-label-title-sep ". ")
|
|
(define id-table-label-title-sep ". ")
|
|
(define id-tip-label-title-sep ": ")
|
|
(define id-warning-label-title-sep "")
|
|
(define id-default-label-title-sep "")
|
|
|
|
(define (gentext-id-label-title-sep gind)
|
|
(let* ((giname (if (string? gind) gind (gi gind)))
|
|
(name (normalize giname)))
|
|
(cond
|
|
((equal? name (normalize "abstract")) id-abstract-label-title-sep)
|
|
((equal? name (normalize "answer")) id-answer-label-title-sep)
|
|
((equal? name (normalize "appendix")) id-appendix-label-title-sep)
|
|
((equal? name (normalize "caution")) id-caution-label-title-sep)
|
|
((equal? name (normalize "chapter")) id-chapter-label-title-sep)
|
|
((equal? name (normalize "equation")) id-equation-label-title-sep)
|
|
((equal? name (normalize "example")) id-example-label-title-sep)
|
|
((equal? name (normalize "figure")) id-figure-label-title-sep)
|
|
((equal? name (normalize "footnote")) id-footnote-label-title-sep)
|
|
((equal? name (normalize "glosssee")) id-glosssee-label-title-sep)
|
|
((equal? name (normalize "glossseealso")) id-glossseealso-label-title-sep)
|
|
((equal? name (normalize "important")) id-important-label-title-sep)
|
|
((equal? name (normalize "note")) id-note-label-title-sep)
|
|
((equal? name (normalize "orderedlist")) id-orderedlist-label-title-sep)
|
|
((equal? name (normalize "part")) id-part-label-title-sep)
|
|
((equal? name (normalize "procedure")) id-procedure-label-title-sep)
|
|
((equal? name (normalize "prefix")) id-prefix-label-title-sep)
|
|
((equal? name (normalize "question")) id-question-label-title-sep)
|
|
((equal? name (normalize "refentry")) id-refentry-label-title-sep)
|
|
((equal? name (normalize "reference")) id-reference-label-title-sep)
|
|
((equal? name (normalize "refsect1")) id-refsect1-label-title-sep)
|
|
((equal? name (normalize "refsect2")) id-refsect2-label-title-sep)
|
|
((equal? name (normalize "refsect3")) id-refsect3-label-title-sep)
|
|
((equal? name (normalize "sect1")) id-sect1-label-title-sep)
|
|
((equal? name (normalize "sect2")) id-sect2-label-title-sep)
|
|
((equal? name (normalize "sect3")) id-sect3-label-title-sep)
|
|
((equal? name (normalize "sect4")) id-sect4-label-title-sep)
|
|
((equal? name (normalize "sect5")) id-sect5-label-title-sep)
|
|
((equal? name (normalize "section")) id-section-label-title-sep)
|
|
((equal? name (normalize "simplesect")) id-simplesect-label-title-sep)
|
|
((equal? name (normalize "seeie")) id-seeie-label-title-sep)
|
|
((equal? name (normalize "seealsoie")) id-seealsoie-label-title-sep)
|
|
((equal? name (normalize "step")) id-step-label-title-sep)
|
|
((equal? name (normalize "table")) id-table-label-title-sep)
|
|
((equal? name (normalize "tip")) id-tip-label-title-sep)
|
|
((equal? name (normalize "warning")) id-warning-label-title-sep)
|
|
(else id-default-label-title-sep))))
|
|
|
|
(define (id-set-label-number-format gind) "1")
|
|
(define (id-book-label-number-format gind) "1")
|
|
(define (id-prefix-label-number-format gind) "1")
|
|
(define (id-part-label-number-format gind) "I")
|
|
(define (id-chapter-label-number-format gind) "1")
|
|
(define (id-appendix-label-number-format gind) "A")
|
|
(define (id-reference-label-number-format gind) "I")
|
|
(define (id-example-label-number-format gind) "1")
|
|
(define (id-figure-label-number-format gind) "1")
|
|
(define (id-table-label-number-format gind) "1")
|
|
(define (id-procedure-label-number-format gind) "1")
|
|
(define (id-step-label-number-format gind) "1")
|
|
(define (id-refsect1-label-number-format gind) "1")
|
|
(define (id-refsect2-label-number-format gind) "1")
|
|
(define (id-refsect3-label-number-format gind) "1")
|
|
(define (id-sect1-label-number-format gind) "1")
|
|
(define (id-sect2-label-number-format gind) "1")
|
|
(define (id-sect3-label-number-format gind) "1")
|
|
(define (id-sect4-label-number-format gind) "1")
|
|
(define (id-sect5-label-number-format gind) "1")
|
|
(define (id-section-label-number-format gind) "1")
|
|
(define (id-default-label-number-format gind) "1")
|
|
|
|
(define (id-label-number-format gind)
|
|
(let* ((giname (if (string? gind) gind (gi gind)))
|
|
(name (normalize giname)))
|
|
(cond
|
|
((equal? name (normalize "set")) (id-set-label-number-format gind))
|
|
((equal? name (normalize "book")) (id-book-label-number-format gind))
|
|
((equal? name (normalize "prefix")) (id-prefix-label-number-format gind))
|
|
((equal? name (normalize "part")) (id-part-label-number-format gind))
|
|
((equal? name (normalize "chapter")) (id-chapter-label-number-format gind))
|
|
((equal? name (normalize "appendix")) (id-appendix-label-number-format gind))
|
|
((equal? name (normalize "reference")) (id-reference-label-number-format gind))
|
|
((equal? name (normalize "example")) (id-example-label-number-format gind))
|
|
((equal? name (normalize "figure")) (id-figure-label-number-format gind))
|
|
((equal? name (normalize "table")) (id-table-label-number-format gind))
|
|
((equal? name (normalize "procedure")) (id-procedure-label-number-format gind))
|
|
((equal? name (normalize "step")) (id-step-label-number-format gind))
|
|
((equal? name (normalize "refsect1")) (id-refsect1-label-number-format gind))
|
|
((equal? name (normalize "refsect2")) (id-refsect2-label-number-format gind))
|
|
((equal? name (normalize "refsect3")) (id-refsect3-label-number-format gind))
|
|
((equal? name (normalize "sect1")) (id-sect1-label-number-format gind))
|
|
((equal? name (normalize "sect2")) (id-sect2-label-number-format gind))
|
|
((equal? name (normalize "sect3")) (id-sect3-label-number-format gind))
|
|
((equal? name (normalize "sect4")) (id-sect4-label-number-format gind))
|
|
((equal? name (normalize "sect5")) (id-sect5-label-number-format gind))
|
|
((equal? name (normalize "section")) (id-section-label-number-format gind))
|
|
(else (id-default-label-number-format gind)))))
|
|
|
|
(define ($lot-title-id$ gind)
|
|
(let* ((giname (if (string? gind) gind (gi gind)))
|
|
(name (normalize giname)))
|
|
(cond ((equal? name (normalize "table")) "&ListofTables;")
|
|
((equal? name (normalize "example")) "&ListofExamples;")
|
|
((equal? name (normalize "figure")) "&ListofFigures;")
|
|
((equal? name (normalize "equation")) "&ListofEquations;")
|
|
(else (let* ((msg (string-append "&ListofUnknown;: " name))
|
|
(err (node-list-error msg (current-node))))
|
|
msg)))))
|
|
|
|
(define %gentext-id-start-quote% (dingbat "ldquo"))
|
|
|
|
(define %gentext-id-end-quote% (dingbat "rdquo"))
|
|
|
|
(define %gentext-id-start-nested-quote% (dingbat "lsquo"))
|
|
|
|
(define %gentext-id-end-nested-quote% (dingbat "rsquo"))
|
|
|
|
(define %gentext-id-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
|
;; Authored "by" Jane Doe
|
|
|
|
(define %gentext-id-edited-by% "&Editedby;")
|
|
;; "Edited by" Jane Doe
|
|
|
|
(define %gentext-id-revised-by% "&Revisedby;")
|
|
;; "Revised by" Jane Doe
|
|
|
|
(define %gentext-id-page% "")
|
|
|
|
(define %gentext-id-and% "∧")
|
|
|
|
(define %gentext-id-listcomma% "&listcomma;")
|
|
|
|
(define %gentext-id-lastlistcomma% "&lastlistcomma;")
|
|
|
|
(define %gentext-id-bibl-pages% "&Pgs;")
|
|
|
|
(define %gentext-id-endnotes% "&Notes;")
|
|
|
|
(define %gentext-id-table-endnotes% "&TableNotes;:")
|
|
|
|
(define %gentext-id-index-see% "&See;")
|
|
|
|
(define %gentext-id-index-seealso% "&SeeAlso;")
|
|
|
|
|
|
(define (gentext-id-nav-prev prev)
|
|
(make sequence (literal "&nav-prev;")))
|
|
|
|
(define (gentext-id-nav-prev-sibling prevsib)
|
|
(make sequence (literal "&nav-prev-sibling;")))
|
|
|
|
(define (gentext-id-nav-next-sibling nextsib)
|
|
(make sequence (literal "&nav-next-sibling;")))
|
|
|
|
(define (gentext-id-nav-next next)
|
|
(make sequence (literal "&nav-next;")))
|
|
|
|
(define (gentext-id-nav-up up)
|
|
(make sequence (literal "&nav-up;")))
|
|
|
|
(define (gentext-id-nav-home home)
|
|
(make sequence (literal "&nav-home;")))
|
|
|
|
|
|
</style-specification-body>
|
|
</style-specification>
|
|
</style-sheet>
|