docbook-dsssl-1.79/0000775000175000001440000000000010142575477014716 5ustar msmithusers00000000000000docbook-dsssl-1.79/print/0000755000175000001440000000000010142564561016040 5ustar msmithusers00000000000000docbook-dsssl-1.79/print/ChangeLog0000644000175000001440000003004610142575332017613 0ustar msmithusers000000000000002004-10-10 * dbadmon.dsl: Fix for bug #522140: Keep admonition titles and contents together when graphics are used. * dbcallou.dsl: Synchronized $callout-verbatim-display$ with $verbatim-display$; fixes bug #517520 (callout ignores width of programlisting) * dbttlpg.dsl: Give othercredit some useful rendering in print output, by copying over the author rendering. Fix author-list-string for authorgroups that contain both authors and othercredits. (bug #1038081) 2004-10-09 * dbprint.dsl, dbverb.dsl: Patch #571688: Fixes excessive after spacing when a listitem contains multiple paras or verbatim environments. Patches originally by Tim Waugh and Tammy Fox. * docbook.dsl: New Bulgarian translation by Viktor Vasilev (SF patch #1040075) 2004-09-17 * docbook.dsl: Bosnian translation by Kemal Skripic 2004-09-14 * dbblock.dsl: Fix for bug #502066: Empty ulinks don't generate footnotes, so they should be omitted from the footnote counting. Patch by Bruce A. Mah. * dbprint.dsl: Fix for bug #529969: Make italic monospace and strong monospace inherit verbatim-size-factor. Patch by David Aumueller. 2004-07-11 * version.dsl: Closes Bug 912831: the last character of VERSION was being cut off. 2003-12-05 Adam Di Carlo * dbdivis.dsl: fix a bug when multiple elements in $generate-book-lot-list$ had content; whitespace and comment updates 2003-04-29 Adam Di Carlo * dbcompon.dsl: Finding the subtitle for a component should use the parent title if set; this is consistent with how the title is already set; closes SF bug 613773. * dbcompon.dsl: Suppress some cases where components were restarting page numbering, fix from Ian Castle; closes SF bug 439751. * dbparam.dsl: Correct reference to undefined variable "admon-graphic-default-extension". * dbttlpg.dsl: Add elements to print version of article-titlepage-recto-elements so that it matches the HTML version, fixes SF bug 626909. 2003-04-26 Adam Di Carlo * dbparam.dsl: rename parameter admon-graphic-default-extension to %admon-graphics-extension% for consistency * dbparam.dsl: Note that %admon-graphics-path% requires the trailing directory separator -- * dbparam.dsl: %admon-graphics-extension% will use the old name, admon-graphic-default-extension, if set 2003-03-25 Adam Di Carlo * db31.dsl, dbblock.dsl, dbcompon.dsl, dbgraph.dsl, dbinline.dsl, dbqanda.dsl, dbsect.dsl, docbook.dsl: move data from db31 into its proper component files 2003-03-24 Jirka Kosek * dbttlpg.dsl: Added support for revdescription inside revison on titlepages 2003-03-21 Adam Di Carlo * Makefile: Don't hardcode DSSSL file list, use $(wildcard *.dsl); clean is cleaner 2003-02-17 Adam Di Carlo * dbblock.dsl, dbtitle.dsl: More cases where process-children-trim should be used. * dbcompon.dsl: Add some comments in the ARTICLE element. * dblists.dsl: In process-listitem-content replace (process-node-list (children (current-node))) with (process-children-trim) -- we need to be trimming whitespace. Some retabbing. * dbprint.dsl: $paragraph$ should use (process-children-trim); this fixes a space indent in RTF output on all PARAs marked up like: Content ... * dbtable.dsl: Remove the %cals-cell-before-column-margin% hack for TeX backend, it's not needed anymore. 2003-02-13 Adam Di Carlo * dbblock.dsl: element footnote/para uses default-text-style; set lines: wrap for the case of endnotes within verbatim 'asis' environments, but it doesn't seem to actually help (cf test programlisting.004) 2003-02-07 Adam Di Carlo * dbttlpg.dsl: some space over copyright; fixes Bug #542681 2003-01-21 Adam Di Carlo * dbparam.dsl: correct discussion of possible settings for %paper-type% and %visual-acuity% 2003-01-15 Adam Di Carlo * dbadmon.dsl, dbautoc.dsl, dbblock.dsl, dbcallou.dsl, dbdivis.dsl, dbefsyn.dsl, dbgloss.dsl, dbgraph.dsl, dbindex.dsl, dbinfo.dsl, dbinline.dsl, dblink.dsl, dblists.dsl, dblot.dsl, dbmath.dsl, dbmsgset.dsl, dbprint.dsl, dbprocdr.dsl, dbrfntry.dsl, dbsect.dsl, dbsynop.dsl, dbtable.dsl, dbtitle.dsl, dbverb.dsl, docbook.dsl, notoc.dsl, plain.dsl: update docbook URL to http://docbook.sourceforge.net/projects/dsssl/; N.B.: credit for the group option and repeating goes to John Daily * dbblock.dsl, dbparam.dsl: parameters for %formal-object-title-font-weight% %table-title-font-weight%, reviewed and tested, sourceforge patch #599366 * dblink.dsl: xref to varlistentry using the term, patch from Jens Emmerich; closes bug 520561 * dbsect.dsl: make
appear correctly in the PDF bookmark hierarchy; also fix font size selection for section titles corrects sourceforge bugs 589247 and 524028; patch from Carsten Haese appreciated * dbsynop.dsl: Patch #562401 , elipsis should be outside of group, reference test cmdsynopsis.003 2002-12-16 Adam Di Carlo * dbblock.dsl, dbparam.dsl: %epigraph-start-indent% and %epigraph-end-indent% parameters allows customization of epigraph positioning; %blockquote-start-indent% and %blockquote-end-indent% parameters allows customization control of the blockquote positioning 2002-08-08 Adam Di Carlo * Makefile: clean rule 2002-06-29 Norman Walsh * dbblock.dsl: Patch #473114: Footnote inherit font family 2002-06-09 Norman Walsh * dbbibl.dsl, dbttlpg.dsl: Fix bug #502337: remove 'by' from copyright statements 2002-05-22 Norman Walsh * dbblock.dsl: Support attribution on blockquote * dbinfo.dsl: Support chapterinfo, prefaceinfo, and appendixinfo 2002-05-12 Norman Walsh * dbttlpg.dsl: Bug #494693: bad formalpara formatting on title pages * dbverb.dsl: Bugs #429663 and #474328 fixed (allow external linespecific content to be indented and numbered). Eight bit or unicode external linespecific content may be problematic though. 2002-05-09 Norman Walsh * dblink.dsl: Allow xref to refnamediv * dblists.dsl: Bug #469318: fix variablelist indents 2002-04-29 Norman Walsh * dbefsyn.dsl, dbverb.dsl: Format synopsis elements correctly outside of classsynopsis 2002-03-21 Norman Walsh * dbautoc.dsl: Find titles in any context 2002-03-20 Norman Walsh * dbefsyn.dsl: Support freestanding {method,field,constructor,destructor}synopsis 2002-02-20 Norman Walsh * dbblock.dsl: Bug #429331: center figure title if image is centered 2002-02-11 Norman Walsh * dbdivis.dsl, dbttlpg.dsl: Patch #502637: avoid blank page between title page recto/verso * dbsect.dsl: Add section-info function 2001-12-01 Norman Walsh * dbindex.dsl: Patch #468644: Fix font sizes in index * dbprint.dsl: Bug #465133: Insufficient conditions on is-first-para * dbttlpg.dsl: Bug #465136: Verso authorgroup broken for editors--still broken but a little better * dbttlpg.dsl: Patch #470589: Abstracts indents should be relative 2001-11-30 Norman Walsh * dblink.dsl: Patch #473113: No footnote ulink when text matches * dbsect.dsl: Patch #473116: Section levels * dbttlpg.dsl: Patch #473115: Heading levels for parts * docbook.dsl: Fix typo that causes the print stylesheet to break. * docbook.dsl: New file. 2001-11-27 Norman Walsh * dbgloss.dsl, dbindex.dsl: Attempt to handle glossary and index in article correctly 2001-11-14 Norman Walsh * docbook.dsl: branches: 1.5.2; Added Basque, Nynorsk, Ukranian, and Xhosa 2001-11-03 Norman Walsh * dbinline.dsl: Support pubwork=article on citetitle 2001-10-13 Jirka Kosek * dbinline.dsl: Fixed bug #470840 - added support for methodname. 2001-10-01 Norman Walsh * dbverb.dsl: Support linenumbering attribute on verbatim environments 2001-09-29 Norman Walsh * dbadmon.dsl: Bug #449775: remove broken keep-with-next properties * dbcallou.dsl: Bug #449494: make callouts work even if they appear on the last line of a verbatim environment 2001-09-23 Norman Walsh * dblink.dsl: Patch #461352, fix bug with ulink-footnotes and bop-footnotes simultaneously 2001-08-30 Norman Walsh * db31.dsl: Fix XML/SGML discrepancy wrt normalization of notation names; move some common stuff into dbcommon 2001-08-06 Norman Walsh * dbadmon.dsl: Patches #441806, keep with next in admonitions * dbinline.dsl: Support 'bold' and 'strong' roles on emphasis in the expected way, added %{emphasis,phrase}-propagates-style% parameters * docbook.dsl: Patches #439975, support OpenJade two-sided characteristics 2001-08-01 Norman Walsh * dbttlpg.dsl: Don't suppress keywordset if it's put on the title page 2001-07-07 Norman Walsh * dbdivis.dsl: Don't restart page numbering on ToC pages * notoc.dsl: Bug #439065, use correct parameters 2001-07-05 Norman Walsh * dbparam.dsl: Patch #420012, Add colon to content-title-end-punct 2001-07-04 * db31.dsl: Bug #426745, don't make first para of question and answer bold * dbblock.dsl: Bug #436220, fix table footnotes when bop-footnotes is #t * dbgloss.dsl, dblists.dsl, dbrfntry.dsl, dbtitle.dsl: Bug #420015: set heading-level appropriately in glossary * dblists.dsl: Bug #418633, attempt to fix indentation in variablelists * docbook.dsl: Added Afrikaans and Turkish 2001-05-11 Norman Walsh * docbook.dsl: Support Serbian and Traditional Chinese 2001-05-03 Jirka Kosek * dbinline.dsl: Added support for class="xmlpi" and class="emptytag" in . Element and attribute names displayed in monospace, same way as in HTML by XSL. 2001-04-27 Norman Walsh * db31.dsl: Handle display? property correctly on imagedata graphics 2001-04-24 Norman Walsh * db31.dsl: Bug #418474: only output a space after the qanda label if the label isn't empty 2001-04-21 Norman Walsh * dbautoc.dsl: Make top-level entries in the TOC 'keep-with-next' 2001-04-16 Norman Walsh * dbttlpg.dsl: Bug #414681: add heading-level to set and book titles 2001-04-15 Norman Walsh * dbblock.dsl: Force upright posture and default quadding in footnote text * dblists.dsl: Format variablelist title in the table when a variablelist is formatted with a table 2001-04-04 Norman Walsh * Makefile: New file. 2001-04-03 Norman Walsh * db31.dsl: Fix bug 412548, allow WMF in media objects 2001-04-02 Norman Walsh * .cvsignore, catalog, db31.dsl, dbadmon.dsl, dbautoc.dsl, dbbibl.dsl, dbblock.dsl, dbcallou.dsl, dbcompon.dsl, dbdivis.dsl, dbefsyn.dsl, dbgloss.dsl, dbgraph.dsl, dbindex.dsl, dbinfo.dsl, dbinline.dsl, dblink.dsl, dblists.dsl, dblot.dsl, dbmath.dsl, dbmsgset.dsl, dbparam.dsl, dbprint.dsl, dbprocdr.dsl, dbrfntry.dsl, dbsect.dsl, dbsynop.dsl, dbtable.dsl, dbtitle.dsl, dbttlpg.dsl, dbverb.dsl, docbook.dsl, notoc.dsl, plain.dsl, version.dsl: Initial checkins docbook-dsssl-1.79/print/version.dsl0000644000175000001440000000066610074156114020234 0ustar msmithusers00000000000000;; $Id: version.dsl,v 1.2 2004/07/11 06:21:00 nyraghu Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://www.nwalsh.com/docbook/dsssl/ ;; ;; If **ANY** change is made to this file, you _MUST_ alter the ;; following definition: (define (stylesheet-version) (string-append "Modular DocBook Print Stylesheet Version " ;; Trim off bounding white space. (strip "&VERSION;"))) docbook-dsssl-1.79/print/plain.dsl0000644000175000001440000000222607611215267017654 0ustar msmithusers00000000000000 ]> ;; $Id: plain.dsl,v 1.2 2003/01/15 08:24:23 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; Example of a customization layer on top of the modular docbook style ;; sheet. Definitions inserted in this file take precedence over ;; definitions in the 'use'd stylesheet(s). (define %generate-set-titlepage% #f) (define %generate-book-titlepage% #f) (define %generate-part-titlepage% #f) (define %generate-reference-titlepage% #f) (define %generate-article-titlepage% #f) (define %generate-set-toc% #f) (define %generate-book-toc% #f) (define %generate-part-toc% #f) (define %generate-reference-toc% #f) (define %generate-article-toc% #f) (define %generate-book-lot-list% '()) docbook-dsssl-1.79/print/notoc.dsl0000644000175000001440000000162107611215267017671 0ustar msmithusers00000000000000 ]> ;; $Id: notoc.dsl,v 1.3 2003/01/15 08:24:23 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; Example of a customization layer on top of the modular docbook style ;; sheet. Definitions inserted in this file take precedence over ;; definitions in the 'use'd stylesheet(s). (define %generate-set-toc% #f) (define %generate-book-toc% #f) (define %generate-part-toc% #f) (define %generate-reference-toc% #f) (define %generate-article-toc% #f) docbook-dsssl-1.79/print/docbook.dsl0000644000175000001440000002074210132055415020161 0ustar msmithusers00000000000000 %dbl10n.ent; ]> ;; $Id: docbook.dsl,v 1.10 2004/10/09 21:36:35 petere78 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; (define if-front-page (external-procedure "UNREGISTERED::James Clark//Procedure::if-front-page")) (define if-first-page (external-procedure "UNREGISTERED::James Clark//Procedure::if-first-page")) (declare-characteristic heading-level "UNREGISTERED::James Clark//Characteristic::heading-level" 0) (declare-characteristic page-number-format "UNREGISTERED::James Clark//Characteristic::page-number-format" "1") (declare-characteristic page-number-restart? "UNREGISTERED::James Clark//Characteristic::page-number-restart?" #f) (declare-characteristic page-two-side? "UNREGISTERED::OpenJade//Characteristic::page-two-side?" %two-side%) (declare-characteristic two-side-start-on-right? "UNREGISTERED::OpenJade//Characteristic::two-side-start-on-right?" %two-side%) (declare-characteristic page-n-columns "UNREGISTERED::James Clark//Characteristic::page-n-columns" 1) (declare-characteristic page-column-sep "UNREGISTERED::James Clark//Characteristic::page-column-sep" %page-column-sep%) (declare-characteristic page-balance-columns? "UNREGISTERED::James Clark//Characteristic::page-balance-columns?" %page-balance-columns?%) ;; This allows bottom-of-page footnotes (declare-flow-object-class page-footnote "UNREGISTERED::Sebastian Rahtz//Flow Object Class::page-footnote") ;; This allows formal objects to float (declare-flow-object-class page-float "UNREGISTERED::Sebastian Rahtz//Flow Object Class::page-float") (define read-entity (external-procedure "UNREGISTERED::James Clark//Procedure::read-entity")) (define all-element-number (external-procedure "UNREGISTERED::James Clark//Procedure::all-element-number")) (define debug (external-procedure "UNREGISTERED::James Clark//Procedure::debug")) ;; Make text that comes from unimplemented tags easy to spot (default (let* ((colr-space (color-space "ISO/IEC 10179:1996//Color-Space Family::Device RGB")) (red (color colr-space 1 0 0))) (make sequence color: red (process-children)))) &dbcommon.dsl; &dbctable.dsl; &dbl10n.dsl; &dbadmon.dsl; &dbautoc.dsl; &dbbibl.dsl; &dbblock.dsl; &dbcallou.dsl; &dbcompon.dsl; &dbdivis.dsl; &dbgloss.dsl; &dbgraph.dsl; &dbindex.dsl; &dbinfo.dsl; &dbinline.dsl; &dblink.dsl; &dblists.dsl; &dblot.dsl; &dbmath.dsl; &dbmsgset.dsl; &dbprint.dsl; &dbprocdr.dsl; &dbqanda.dsl; &dbrfntry.dsl; &dbsect.dsl; &dbsynop.dsl; &dbefsyn.dsl; &dbtable.dsl; &dbtitle.dsl; &dbttlpg.dsl; &dbverb.dsl; &version.dsl; docbook-dsssl-1.79/print/dbverb.dsl0000644000175000001440000001607210132041021017772 0ustar msmithusers00000000000000;; $Id: dbverb.dsl,v 1.6 2004/10/09 19:46:33 petere78 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; (define verbatim-style (style font-family-name: %mono-font-family% font-size: (* (inherited-font-size) (if %verbatim-size-factor% %verbatim-size-factor% 1.0)) font-weight: 'medium font-posture: 'upright line-spacing: (* (* (inherited-font-size) (if %verbatim-size-factor% %verbatim-size-factor% 1.0)) %line-spacing-factor%) first-line-start-indent: 0pt lines: 'asis input-whitespace-treatment: 'preserve)) (define inline-verbatim-style (style font-family-name: %mono-font-family% font-size: (* (inherited-font-size) (if %verbatim-size-factor% %verbatim-size-factor% 1.0)) font-weight: 'medium font-posture: 'upright lines: 'asis input-whitespace-treatment: 'preserve)) (define linespecific-style (style first-line-start-indent: 0pt lines: 'asis input-whitespace-treatment: 'preserve)) (define ($format-indent$ indent) (literal indent)) (define ($format-linenumber$ linenumber) ;; A line-field would make more sense here, and allow proportional ;; fonts, but you can't put line-fields in the middle of a paragraph ;; in the current RTF backend of Jade (let ((%factor% (if %verbatim-size-factor% %verbatim-size-factor% 1.0))) (if (equal? (remainder linenumber %linenumber-mod%) 0) (make sequence use: verbatim-style (literal (pad-string (format-number linenumber "1") %linenumber-length% %linenumber-padchar%)) ($linenumber-space$)) (make sequence use: verbatim-style (literal (pad-string "" %linenumber-length% " ")) ($linenumber-space$))))) (define ($line-start$ indent line-numbers? #!optional (line-number 1)) (make sequence (if indent ($format-indent$ indent) (empty-sosofo)) (if line-numbers? ($format-linenumber$ line-number) (empty-sosofo)))) (define ($linespecific-display$ indent line-numbers?) (let ((vspace (if (INBLOCK?) 0pt (if (INLIST?) %para-sep% %block-sep%)))) (make paragraph use: linespecific-style space-before: (if (and (string=? (gi (parent)) (normalize "entry")) (absolute-first-sibling?)) 0pt vspace) space-after: (if (and (string=? (gi (parent)) (normalize "entry")) (absolute-last-sibling?)) 0pt vspace) start-indent: (if (INBLOCK?) (inherited-start-indent) (+ %block-start-indent% (inherited-start-indent))) (if (or indent line-numbers?) ($linespecific-line-by-line$ indent line-numbers?) (process-children))))) (define ($linespecific-line-by-line$ indent line-numbers?) (let ((expanded-content ;; this is the content with ;; inlinemediaobject/imageobject[@format='linespecific'] ;; expanded (let loop ((kl (children (current-node))) (rl (empty-node-list))) (if (node-list-empty? kl) rl (if (equal? (gi (node-list-first kl)) (normalize "inlinemediaobject")) (let* ((imgobj (node-list-filter-by-gi (children (node-list-first kl)) (list (normalize "imageobject")))) (datobj (node-list-filter-by-gi (children imgobj) (list (normalize "imagedata"))))) (if (and (not (node-list-empty? imgobj)) (not (node-list-empty? datobj)) (equal? (attribute-string (normalize "format") datobj) (normalize "linespecific"))) (loop (node-list-rest kl) (node-list rl (string->nodes (include-characters (if (attribute-string (normalize "fileref") datobj) (attribute-string (normalize "fileref") datobj) (entity-generated-system-id (attribute-string (normalize "entityref") datobj))))))) (loop (node-list-rest kl) (node-list rl (node-list-first kl))))) (loop (node-list-rest kl) (node-list rl (node-list-first kl)))))))) (make sequence ($line-start$ indent line-numbers? 1) (let loop ((kl expanded-content) (linecount 1) (res (empty-sosofo))) (if (node-list-empty? kl) res (loop (node-list-rest kl) (if (char=? (node-property 'char (node-list-first kl) default: #\U-0000) #\U-000D) (+ linecount 1) linecount) (let ((c (node-list-first kl))) (if (char=? (node-property 'char c default: #\U-0000) #\U-000D) (sosofo-append res (process-node-list c) ($line-start$ indent line-numbers? (+ linecount 1))) (sosofo-append res (process-node-list c)))))))))) (define ($verbatim-display$ indent line-numbers?) (let* ((width-in-chars (if (attribute-string (normalize "width")) (string->number (attribute-string (normalize "width"))) %verbatim-default-width%)) (fsize (lambda () (if (or (attribute-string (normalize "width")) (not %verbatim-size-factor%)) (/ (/ (- %text-width% (inherited-start-indent)) width-in-chars) 0.7) (* (inherited-font-size) %verbatim-size-factor%)))) (vspace-before (if (INBLOCK?) 0pt (if (INLIST?) %para-sep% %block-sep%))) (vspace-after (if (INBLOCK?) 0pt (if (INLIST?) 0pt %block-sep%)))) (make paragraph use: verbatim-style space-before: (if (and (string=? (gi (parent)) (normalize "entry")) (absolute-first-sibling?)) 0pt vspace-before) space-after: (if (and (string=? (gi (parent)) (normalize "entry")) (absolute-last-sibling?)) 0pt vspace-after) font-size: (fsize) line-spacing: (* (fsize) %line-spacing-factor%) start-indent: (if (INBLOCK?) (inherited-start-indent) (+ %block-start-indent% (inherited-start-indent))) (if (or indent line-numbers?) ($linespecific-line-by-line$ indent line-numbers?) (process-children))))) (element literallayout (if (equal? (attribute-string "class") (normalize "monospaced")) ($verbatim-display$ %indent-literallayout-lines% (or %number-literallayout-lines% (equal? (attribute-string (normalize "linenumbering")) (normalize "numbered")))) ($linespecific-display$ %indent-literallayout-lines% (or %number-literallayout-lines% (equal? (attribute-string (normalize "linenumbering")) (normalize "numbered")))))) (element address ($linespecific-display$ %indent-address-lines% (or %number-address-lines% (equal? (attribute-string (normalize "linenumbering")) (normalize "numbered"))))) (element programlisting ($verbatim-display$ %indent-programlisting-lines% (or %number-programlisting-lines% (equal? (attribute-string (normalize "linenumbering")) (normalize "numbered"))))) (element screen ($verbatim-display$ %indent-screen-lines% (or %number-screen-lines% (equal? (attribute-string (normalize "linenumbering")) (normalize "numbered"))))) (element screenshot (process-children)) (element screeninfo (empty-sosofo)) docbook-dsssl-1.79/print/dbttlpg.dsl0000644000175000001440000065163110132323555020213 0ustar msmithusers00000000000000;; $Id: dbttlpg.dsl,v 1.13 2004/10/10 21:15:06 petere78 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; (define (have-sibling? sibling-gi #!optional (node (current-node))) (let loop ((nl (children (parent node)))) (if (node-list-empty? nl) #f (if (equal? (gi (node-list-first nl)) sibling-gi) #t (loop (node-list-rest nl)))))) (define (titlepage-content? elements gis) (let giloop ((gilist gis)) (if (null? gilist) #f (if (not (node-list-empty? (node-list-filter-by-gi elements (list (car gilist))))) #t (giloop (cdr gilist)))))) (define (titlepage-gi-list-by-elements elements nodelist) ;; Elements is a list of GIs. Nodelist is a list of nodes. ;; This function returns all of the nodes in nodelist that ;; are in elements in the order they occur in elements. (let loop ((gilist elements) (rlist (empty-node-list))) (if (null? gilist) rlist (loop (cdr gilist) (node-list rlist (node-list-filter-by-gi nodelist (list (car gilist)))))))) (define (titlepage-gi-list-by-nodelist elements nodelist) ;; Elements is a list of GIs. Nodelist is a list of nodes. ;; This function returns all of the nodes in nodelist that ;; are in elements in the order they occur in nodelist. (let loop ((nl nodelist) (rlist (empty-node-list))) (if (node-list-empty? nl) rlist (if (member (gi (node-list-first nl)) elements) (loop (node-list-rest nl) (node-list rlist (node-list-first nl))) (loop (node-list-rest nl) rlist))))) (define (titlepage-nodelist elements nodelist) ;; We expand BOOKBIBLIO, BIBLIOMISC, and BIBLIOSET in the element ;; list because that level of wrapper usually isn't significant. (let ((exp-nodelist (expand-children nodelist (list (normalize "bookbiblio") (normalize "bibliomisc") (normalize "biblioset"))))) (if %titlepage-in-info-order% (titlepage-gi-list-by-nodelist elements exp-nodelist) (titlepage-gi-list-by-elements elements exp-nodelist)))) (mode titlepage-address-mode (default (process-children))) ;; == Title pages for SETs ============================================== (define (set-titlepage-recto-elements) (list (normalize "title") (normalize "subtitle") (normalize "graphic") (normalize "mediaobject") (normalize "corpauthor") (normalize "authorgroup") (normalize "author") (normalize "editor"))) (define (set-titlepage-verso-elements) (list (normalize "title") (normalize "subtitle") (normalize "corpauthor") (normalize "authorgroup") (normalize "author") (normalize "editor") (normalize "edition") (normalize "pubdate") (normalize "copyright") (normalize "legalnotice") (normalize "revhistory"))) (define (set-titlepage-content? elements side) (titlepage-content? elements (if (equal? side 'recto) (set-titlepage-recto-elements) (set-titlepage-verso-elements)))) (define (set-titlepage elements #!optional (side 'recto)) (let ((nodelist (titlepage-nodelist (if (equal? side 'recto) (set-titlepage-recto-elements) (set-titlepage-verso-elements)) elements))) ;; (make simple-page-sequence ;; page-n-columns: %titlepage-n-columns% ;; input-whitespace-treatment: 'collapse ;; use: default-text-style (make sequence ;; This hack is required for the RTF backend. If an external-graphic ;; is the first thing on the page, RTF doesn't seem to do the right ;; thing (the graphic winds up on the baseline of the first line ;; of the page, left justified). This "one point rule" fixes ;; that problem. (make paragraph line-spacing: 1pt (literal "")) (let loop ((nl nodelist) (lastnode (empty-node-list))) (if (node-list-empty? nl) (empty-sosofo) (make sequence (if (or (node-list-empty? lastnode) (not (equal? (gi (node-list-first nl)) (gi lastnode)))) (set-titlepage-before (node-list-first nl) side) (empty-sosofo)) (cond ((equal? (gi (node-list-first nl)) (normalize "abbrev")) (set-titlepage-abbrev (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "abstract")) (set-titlepage-abstract (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "address")) (set-titlepage-address (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "affiliation")) (set-titlepage-affiliation (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "artpagenums")) (set-titlepage-artpagenums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "author")) (set-titlepage-author (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorblurb")) (set-titlepage-authorblurb (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorgroup")) (set-titlepage-authorgroup (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorinitials")) (set-titlepage-authorinitials (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "bibliomisc")) (set-titlepage-bibliomisc (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "biblioset")) (set-titlepage-biblioset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "bookbiblio")) (set-titlepage-bookbiblio (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "citetitle")) (set-titlepage-citetitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "collab")) (set-titlepage-collab (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "confgroup")) (set-titlepage-confgroup (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contractnum")) (set-titlepage-contractnum (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contractsponsor")) (set-titlepage-contractsponsor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contrib")) (set-titlepage-contrib (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "copyright")) (set-titlepage-copyright (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "corpauthor")) (set-titlepage-corpauthor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "corpname")) (set-titlepage-corpname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "date")) (set-titlepage-date (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "edition")) (set-titlepage-edition (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "editor")) (set-titlepage-editor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "firstname")) (set-titlepage-firstname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "graphic")) (set-titlepage-graphic (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "honorific")) (set-titlepage-honorific (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "indexterm")) (set-titlepage-indexterm (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "invpartnumber")) (set-titlepage-invpartnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "isbn")) (set-titlepage-isbn (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "issn")) (set-titlepage-issn (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "issuenum")) (set-titlepage-issuenum (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "itermset")) (set-titlepage-itermset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "keywordset")) (set-titlepage-keywordset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "legalnotice")) (set-titlepage-legalnotice (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "lineage")) (set-titlepage-lineage (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "mediaobject")) (set-titlepage-mediaobject (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "modespec")) (set-titlepage-modespec (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "orgname")) (set-titlepage-orgname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "othercredit")) (set-titlepage-othercredit (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "othername")) (set-titlepage-othername (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pagenums")) (set-titlepage-pagenums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "printhistory")) (set-titlepage-printhistory (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "productname")) (set-titlepage-productname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "productnumber")) (set-titlepage-productnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pubdate")) (set-titlepage-pubdate (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "publisher")) (set-titlepage-publisher (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "publishername")) (set-titlepage-publishername (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pubsnumber")) (set-titlepage-pubsnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "releaseinfo")) (set-titlepage-releaseinfo (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "revhistory")) (set-titlepage-revhistory (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "seriesinfo")) (set-titlepage-seriesinfo (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "seriesvolnums")) (set-titlepage-seriesvolnums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "subjectset")) (set-titlepage-subjectset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "subtitle")) (set-titlepage-subtitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "surname")) (set-titlepage-surname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "title")) (set-titlepage-title (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "titleabbrev")) (set-titlepage-titleabbrev (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "volumenum")) (set-titlepage-volumenum (node-list-first nl) side)) (else (set-titlepage-default (node-list-first nl) side))) (loop (node-list-rest nl) (node-list-first nl)))))))) (define (set-titlepage-before node side) (if (equal? side 'recto) (cond ((equal? (gi node) (normalize "corpauthor")) (make paragraph space-after: (* (HSIZE 5) %head-after-factor% 8) (literal "\no-break-space;"))) ((equal? (gi node) (normalize "authorgroup")) (if (have-sibling? (normalize "corpauthor") node) (empty-sosofo) (make paragraph space-after: (* (HSIZE 5) %head-after-factor% 8) (literal "\no-break-space;")))) ((equal? (gi node) (normalize "author")) (if (or (have-sibling? (normalize "corpauthor") node) (have-sibling? (normalize "authorgroup") node)) (empty-sosofo) (make paragraph space-after: (* (HSIZE 5) %head-after-factor% 8) (literal "\no-break-space;")))) (else (empty-sosofo))) (empty-sosofo))) (define (set-titlepage-default node side) (let ((foo (debug (string-append "No set-titlepage-* for " (gi node) "!")))) (empty-sosofo))) (define (set-titlepage-element node side) (if (equal? side 'recto) (with-mode set-titlepage-recto-mode (process-node-list node)) (with-mode set-titlepage-verso-mode (process-node-list node)))) (define (set-titlepage-abbrev node side) (set-titlepage-element node side)) (define (set-titlepage-abstract node side) (set-titlepage-element node side)) (define (set-titlepage-address node side) (set-titlepage-element node side)) (define (set-titlepage-affiliation node side) (set-titlepage-element node side)) (define (set-titlepage-artpagenums node side) (set-titlepage-element node side)) (define (set-titlepage-author node side) (set-titlepage-element node side)) (define (set-titlepage-authorblurb node side) (set-titlepage-element node side)) (define (set-titlepage-authorgroup node side) (set-titlepage-element node side)) (define (set-titlepage-authorinitials node side) (set-titlepage-element node side)) (define (set-titlepage-bibliomisc node side) (set-titlepage-element node side)) (define (set-titlepage-biblioset node side) (set-titlepage node side)) (define (set-titlepage-bookbiblio node side) (set-titlepage node side)) (define (set-titlepage-citetitle node side) (set-titlepage-element node side)) (define (set-titlepage-collab node side) (set-titlepage-element node side)) (define (set-titlepage-confgroup node side) (set-titlepage-element node side)) (define (set-titlepage-contractnum node side) (set-titlepage-element node side)) (define (set-titlepage-contractsponsor node side) (set-titlepage-element node side)) (define (set-titlepage-contrib node side) (set-titlepage-element node side)) (define (set-titlepage-copyright node side) (set-titlepage-element node side)) (define (set-titlepage-corpauthor node side) (if (equal? side 'recto) (set-titlepage-element node side) (if (first-sibling? node) (make paragraph (with-mode set-titlepage-verso-mode (process-node-list (select-elements (children (parent node)) (normalize "corpauthor"))))) (empty-sosofo)))) (define (set-titlepage-corpname node side) (set-titlepage-element node side)) (define (set-titlepage-date node side) (set-titlepage-element node side)) (define (set-titlepage-edition node side) (set-titlepage-element node side)) (define (set-titlepage-editor node side) (set-titlepage-element node side)) (define (set-titlepage-firstname node side) (set-titlepage-element node side)) (define (set-titlepage-graphic node side) (set-titlepage-element node side)) (define (set-titlepage-honorific node side) (set-titlepage-element node side)) (define (set-titlepage-indexterm node side) (set-titlepage-element node side)) (define (set-titlepage-invpartnumber node side) (set-titlepage-element node side)) (define (set-titlepage-isbn node side) (set-titlepage-element node side)) (define (set-titlepage-issn node side) (set-titlepage-element node side)) (define (set-titlepage-issuenum node side) (set-titlepage-element node side)) (define (set-titlepage-itermset node side) (set-titlepage-element node side)) (define (set-titlepage-keywordset node side) (set-titlepage-element node side)) (define (set-titlepage-legalnotice node side) (set-titlepage-element node side)) (define (set-titlepage-lineage node side) (set-titlepage-element node side)) (define (set-titlepage-mediaobject node side) (set-titlepage-element node side)) (define (set-titlepage-modespec node side) (set-titlepage-element node side)) (define (set-titlepage-orgname node side) (set-titlepage-element node side)) (define (set-titlepage-othercredit node side) (set-titlepage-element node side)) (define (set-titlepage-othername node side) (set-titlepage-element node side)) (define (set-titlepage-pagenums node side) (set-titlepage-element node side)) (define (set-titlepage-printhistory node side) (set-titlepage-element node side)) (define (set-titlepage-productname node side) (set-titlepage-element node side)) (define (set-titlepage-productnumber node side) (set-titlepage-element node side)) (define (set-titlepage-pubdate node side) (set-titlepage-element node side)) (define (set-titlepage-publisher node side) (set-titlepage-element node side)) (define (set-titlepage-publishername node side) (set-titlepage-element node side)) (define (set-titlepage-pubsnumber node side) (set-titlepage-element node side)) (define (set-titlepage-releaseinfo node side) (set-titlepage-element node side)) (define (set-titlepage-revhistory node side) (set-titlepage-element node side)) (define (set-titlepage-seriesinfo node side) (set-titlepage-element node side)) (define (set-titlepage-seriesvolnums node side) (set-titlepage-element node side)) (define (set-titlepage-subjectset node side) (set-titlepage-element node side)) (define (set-titlepage-subtitle node side) (set-titlepage-element node side)) (define (set-titlepage-surname node side) (set-titlepage-element node side)) (define (set-titlepage-title node side) (set-titlepage-element node side)) (define (set-titlepage-titleabbrev node side) (set-titlepage-element node side)) (define (set-titlepage-volumenum node side) (set-titlepage-element node side)) (define set-titlepage-recto-style (style font-family-name: %title-font-family% font-weight: 'bold font-size: (HSIZE 1))) (define set-titlepage-verso-style (style font-family-name: %body-font-family%)) (mode set-titlepage-recto-mode (element abbrev (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element abstract (make display-group use: set-titlepage-recto-style quadding: 'start ($semiformal-object$))) (element (abstract title) (empty-sosofo)) (element (abstract para) (make paragraph use: set-titlepage-recto-style quadding: 'start (process-children))) (element address (make display-group use: set-titlepage-recto-style quadding: %division-title-quadding% (with-mode titlepage-address-mode ($linespecific-display$ %indent-address-lines% %number-address-lines%)))) (element affiliation (make display-group use: set-titlepage-recto-style (process-children))) (element artpagenums (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element author (let ((author-name (author-string)) (author-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (make paragraph use: set-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor%) quadding: %division-title-quadding% keep-with-next?: #t (literal author-name)) (process-node-list author-affil)))) (element authorblurb (make display-group use: set-titlepage-recto-style quadding: 'start (process-children))) (element (authorblurb para) (make paragraph use: set-titlepage-recto-style quadding: 'start (process-children))) (element authorgroup (make display-group (process-children))) (element authorinitials (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element bibliomisc (process-children)) (element bibliomset (process-children)) (element collab (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element confgroup (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element contractnum (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element contractsponsor (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element contrib (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element copyright (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% space-before: (* (HSIZE 2) %head-before-factor%) (literal (gentext-element-name (current-node))) (literal "\no-break-space;") (literal (dingbat "copyright")) (literal "\no-break-space;") (process-children))) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (literal " ")))) (element (copyright holder) ($charseq$)) (element corpauthor (make sequence (make paragraph use: set-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor%) quadding: %division-title-quadding% keep-with-next?: #t (process-children)) ;; This paragraph is a hack to get the spacing right. ;; Authors always have an affiliation paragraph below them, even if ;; it's empty, so corpauthors need one too. (make paragraph use: set-titlepage-recto-style font-size: (HSIZE 1) line-spacing: (* (HSIZE 1) %line-spacing-factor%) space-after: (* (HSIZE 2) %head-after-factor% 4) quadding: %division-title-quadding% keep-with-next?: #t (literal "\no-break-space;")))) (element corpname (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element date (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element edition (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children) (literal "\no-break-space;") (literal (gentext-element-name-space (gi (current-node)))))) (element editor (let ((editor-name (author-string))) (make sequence (if (first-sibling?) (make paragraph use: set-titlepage-recto-style font-size: (HSIZE 1) line-spacing: (* (HSIZE 1) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor% 6) quadding: %division-title-quadding% keep-with-next?: #t (literal (gentext-edited-by))) (empty-sosofo)) (make paragraph use: set-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-after: (* (HSIZE 2) %head-after-factor% 4) quadding: %division-title-quadding% keep-with-next?: #t (literal editor-name))))) (element firstname (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element graphic (let* ((nd (current-node)) (fileref (attribute-string "fileref" nd)) (entityref (attribute-string "entityref" nd)) (format (attribute-string "format" nd)) (align (attribute-string "align" nd))) (if (or fileref entityref) (make external-graphic notation-system-id: (if format format "") entity-system-id: (if fileref (graphic-file fileref) (if entityref (entity-generated-system-id entityref) "")) display?: #t display-alignment: 'center) (empty-sosofo)))) (element honorific (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element isbn (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element issn (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element itermset (empty-sosofo)) (element invpartnumber (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element issuenum (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element jobtitle (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element keywordset (make paragraph quadding: 'start (make sequence font-weight: 'bold (literal "Keywords: ")) (process-children))) (element (keyword) (make sequence (process-children) (if (not (last-sibling?)) (literal ", ") (literal "")))) (element legalnotice (make display-group use: set-titlepage-recto-style ($semiformal-object$))) (element (legalnotice title) (empty-sosofo)) (element (legalnotice para) (make paragraph use: set-titlepage-recto-style quadding: 'start line-spacing: (* 0.8 (inherited-line-spacing)) font-size: (* 0.8 (inherited-font-size)) (process-children))) (element lineage (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element modespec (empty-sosofo)) (element orgdiv (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element orgname (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element othercredit (let ((author-name (author-string)) (author-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (make paragraph use: set-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor%) quadding: %division-title-quadding% keep-with-next?: #t (literal author-name)) (process-node-list author-affil)))) (element othername (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element pagenums (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element printhistory (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element productname (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element productnumber (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element pubdate (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element publisher (make display-group use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element publishername (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element pubsnumber (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element releaseinfo (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element revhistory (make sequence (make paragraph use: set-titlepage-recto-style space-before: (* (HSIZE 3) %head-before-factor%) space-after: (/ (* (HSIZE 1) %head-before-factor%) 2) (literal (gentext-element-name (current-node)))) (make table before-row-border: #f (process-children)))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (select-elements (descendants (current-node)) (normalize "revremark"))) (revdescription (select-elements (descendants (current-node)) (normalize "revdescription")))) (make sequence (make table-row (make table-cell column-number: 1 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt (if (not (node-list-empty? revnumber)) (make paragraph use: set-titlepage-recto-style font-size: %bf-size% font-weight: 'medium (literal (gentext-element-name-space (current-node))) (process-node-list revnumber)) (empty-sosofo))) (make table-cell column-number: 2 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt cell-before-column-margin: (if (equal? (print-backend) 'tex) 6pt 0pt) (if (not (node-list-empty? revdate)) (make paragraph use: set-titlepage-recto-style font-size: %bf-size% font-weight: 'medium (process-node-list revdate)) (empty-sosofo))) (make table-cell column-number: 3 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt cell-before-column-margin: (if (equal? (print-backend) 'tex) 6pt 0pt) (if (not (node-list-empty? revauthor)) (make paragraph use: set-titlepage-recto-style font-size: %bf-size% font-weight: 'medium (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make table-row cell-after-row-border: #f (make table-cell column-number: 1 n-columns-spanned: 3 n-rows-spanned: 1 start-indent: 0pt (cond ((not (node-list-empty? revremark)) (make paragraph use: set-titlepage-recto-style font-size: %bf-size% font-weight: 'medium space-after: (if (last-sibling?) 0pt (/ %block-sep% 2)) (process-node-list revremark))) ((not (node-list-empty? revdescription)) (make sequence use: set-titlepage-recto-style font-size: %bf-size% font-weight: 'medium (process-node-list revdescription))) (else (empty-sosofo)))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element (revision revdescription) (process-children)) (element seriesvolnums (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element shortaffil (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element subjectset (empty-sosofo)) (element subtitle (make paragraph use: set-titlepage-recto-style font-size: (HSIZE 4) line-spacing: (* (HSIZE 4) %line-spacing-factor%) space-before: (* (HSIZE 4) %head-before-factor%) quadding: %division-subtitle-quadding% keep-with-next?: #t (process-children-trim))) (element surname (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element title (make paragraph use: set-titlepage-recto-style font-size: (HSIZE 5) line-spacing: (* (HSIZE 5) %line-spacing-factor%) space-before: (* (HSIZE 5) %head-before-factor%) quadding: %division-title-quadding% keep-with-next?: #t heading-level: (if %generate-heading-level% 1 0) (with-mode title-mode (process-children-trim)))) (element formalpara ($para-container$)) (element (formalpara title) ($runinhead$)) (element (formalpara para) (make sequence (process-children))) (element titleabbrev (empty-sosofo)) (element volumenum (make paragraph use: set-titlepage-recto-style quadding: %division-title-quadding% (process-children))) ) (mode set-titlepage-verso-mode (element abbrev (make paragraph use: set-titlepage-verso-style (process-children))) (element abstract ($semiformal-object$)) (element (abstract title) (empty-sosofo)) (element address (make display-group use: set-titlepage-verso-style (with-mode titlepage-address-mode ($linespecific-display$ %indent-address-lines% %number-address-lines%)))) (element affiliation (make paragraph use: set-titlepage-verso-style (process-children))) (element artpagenums (make paragraph use: set-titlepage-verso-style (process-children))) (element author ;; Print the author name. Handle the case where there's no AUTHORGROUP (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (not in-group) (make paragraph ;; Hack to get the spacing right below the author name line... space-after: (* %bf-size% %line-spacing-factor%) (make sequence (literal (gentext-by)) (literal "\no-break-space;") (literal (author-list-string)))) (make sequence (literal (author-list-string)))))) (element authorblurb (make paragraph use: set-titlepage-verso-style (process-children))) (element authorgroup (make paragraph space-after: (* %bf-size% %line-spacing-factor%) (make sequence (literal (gentext-by)) (literal "\no-break-space;") (process-children-trim)))) (element authorinitials (make paragraph use: set-titlepage-verso-style (process-children))) (element bibliomisc (process-children)) (element bibliomset (process-children)) (element collab (make paragraph use: set-titlepage-verso-style (process-children))) (element confgroup (make paragraph use: set-titlepage-verso-style (process-children))) (element contractnum (make paragraph use: set-titlepage-verso-style (process-children))) (element contractsponsor (make paragraph use: set-titlepage-verso-style (process-children))) (element contrib (make paragraph use: set-titlepage-verso-style (process-children))) (element copyright (make paragraph use: set-titlepage-verso-style (literal (gentext-element-name (current-node))) (literal "\no-break-space;") (literal (dingbat "copyright")) (literal "\no-break-space;") (process-children))) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (literal " ")))) (element (copyright holder) ($charseq$)) (element corpauthor ;; note: set-titlepage-corpauthor takes care of wrapping multiple ;; corpauthors (make sequence (if (first-sibling?) (if (equal? (gi (parent (current-node))) (normalize "authorgroup")) (empty-sosofo) (literal (gentext-by) " ")) (literal ", ")) (process-children))) (element corpname (make paragraph use: set-titlepage-verso-style (process-children))) (element date (make paragraph use: set-titlepage-verso-style (process-children))) (element edition (make paragraph (process-children) (literal "\no-break-space;") (literal (gentext-element-name-space (gi (current-node)))))) (element editor ;; Print the editor name. (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (or #t (not in-group)) ; nevermind, always put out the Edited by (make paragraph ;; Hack to get the spacing right below the author name line... space-after: (* %bf-size% %line-spacing-factor%) (make sequence (literal (gentext-edited-by)) (literal "\no-break-space;") (literal (author-string)))) (make sequence (literal (author-string)))))) (element firstname (make paragraph use: set-titlepage-verso-style (process-children))) (element graphic (let* ((nd (current-node)) (fileref (attribute-string "fileref" nd)) (entityref (attribute-string "entityref" nd)) (format (attribute-string "format" nd)) (align (attribute-string "align" nd))) (if (or fileref entityref) (make external-graphic notation-system-id: (if format format "") entity-system-id: (if fileref (graphic-file fileref) (if entityref (entity-generated-system-id entityref) "")) display?: #t display-alignment: 'start) (empty-sosofo)))) (element honorific (make paragraph use: set-titlepage-verso-style (process-children))) (element isbn (make paragraph use: set-titlepage-verso-style (process-children))) (element issn (make paragraph use: set-titlepage-verso-style (process-children))) (element itermset (empty-sosofo)) (element invpartnumber (make paragraph use: set-titlepage-verso-style (process-children))) (element issuenum (make paragraph use: set-titlepage-verso-style (process-children))) (element jobtitle (make paragraph use: set-titlepage-verso-style (process-children))) (element keywordset (make paragraph quadding: 'start (make sequence font-weight: 'bold (literal "Keywords: ")) (process-children))) (element (keyword) (make sequence (process-children) (if (not (last-sibling?)) (literal ", ") (literal "")))) (element legalnotice (make display-group use: set-titlepage-verso-style ($semiformal-object$))) (element (legalnotice title) (empty-sosofo)) (element (legalnotice para) (make paragraph use: set-titlepage-verso-style font-size: (* (inherited-font-size) 0.8) (process-children-trim))) (element lineage (make paragraph use: set-titlepage-verso-style (process-children))) (element modespec (empty-sosofo)) (element orgdiv (make paragraph use: set-titlepage-verso-style (process-children))) (element orgname (make paragraph use: set-titlepage-verso-style (process-children))) (element othercredit ;; Print the author name. Handle the case where there's no AUTHORGROUP (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (not in-group) (make paragraph ;; Hack to get the spacing right below the author name line... space-after: (* %bf-size% %line-spacing-factor%) (make sequence (literal (gentext-by)) (literal "\no-break-space;") (literal (author-list-string)))) (make sequence (literal (author-list-string)))))) (element othername (make paragraph use: set-titlepage-verso-style (process-children))) (element pagenums (make paragraph use: set-titlepage-verso-style (process-children))) (element printhistory (make display-group use: set-titlepage-verso-style (process-children))) (element productname (make paragraph use: set-titlepage-verso-style (process-children))) (element productnumber (make paragraph use: set-titlepage-verso-style (process-children))) (element pubdate (make paragraph (literal (gentext-element-name-space (gi (current-node)))) (process-children))) (element publisher (make paragraph use: set-titlepage-verso-style (process-children))) (element publishername (make paragraph use: set-titlepage-verso-style (process-children))) (element pubsnumber (make paragraph use: set-titlepage-verso-style (process-children))) (element releaseinfo (make paragraph use: set-titlepage-verso-style (process-children))) (element revhistory (make sequence (make paragraph use: set-titlepage-verso-style space-before: (* (HSIZE 3) %head-before-factor%) space-after: (/ (* (HSIZE 1) %head-before-factor%) 2) (literal (gentext-element-name (current-node)))) (make table before-row-border: #f (process-children)))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (select-elements (descendants (current-node)) (normalize "revremark"))) (revdescription (select-elements (descendants (current-node)) (normalize "revdescription")))) (make sequence (make table-row (make table-cell column-number: 1 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt (if (not (node-list-empty? revnumber)) (make paragraph use: set-titlepage-verso-style font-size: %bf-size% font-weight: 'medium (literal (gentext-element-name-space (current-node))) (process-node-list revnumber)) (empty-sosofo))) (make table-cell column-number: 2 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt cell-before-column-margin: (if (equal? (print-backend) 'tex) 6pt 0pt) (if (not (node-list-empty? revdate)) (make paragraph use: set-titlepage-verso-style font-size: %bf-size% font-weight: 'medium (process-node-list revdate)) (empty-sosofo))) (make table-cell column-number: 3 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt cell-before-column-margin: (if (equal? (print-backend) 'tex) 6pt 0pt) (if (not (node-list-empty? revauthor)) (make paragraph use: set-titlepage-verso-style font-size: %bf-size% font-weight: 'medium (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make table-row cell-after-row-border: #f (make table-cell column-number: 1 n-columns-spanned: 3 n-rows-spanned: 1 start-indent: 0pt (cond ((not (node-list-empty? revremark)) (make paragraph use: set-titlepage-verso-style font-size: %bf-size% font-weight: 'medium space-after: (if (last-sibling?) 0pt (/ %block-sep% 2)) ;(process-node-list revremark))) (empty-sosofo))) ((not (node-list-empty? revdescription)) (make sequence use: set-titlepage-verso-style font-size: %bf-size% font-weight: 'medium (process-node-list revdescription))) (else (empty-sosofo)))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element (revision revdescription) (process-children)) (element seriesvolnums (make paragraph use: set-titlepage-verso-style (process-children))) (element shortaffil (make paragraph use: set-titlepage-verso-style (process-children))) (element subjectset (empty-sosofo)) (element subtitle (make sequence font-family-name: %title-font-family% font-weight: 'bold (literal (if (first-sibling?) ": " "; ")) (process-children))) (element surname (make paragraph use: set-titlepage-verso-style (process-children))) (element title (make sequence font-family-name: %title-font-family% font-weight: 'bold (with-mode title-mode (process-children)))) (element formalpara ($para-container$)) (element (formalpara title) ($runinhead$)) (element (formalpara para) (make sequence (process-children))) (element titleabbrev (empty-sosofo)) (element volumenum (make paragraph use: set-titlepage-verso-style (process-children))) ) ;; == Title pages for BOOKs ============================================= (define (book-titlepage-recto-elements) (list (normalize "title") (normalize "subtitle") (normalize "graphic") (normalize "mediaobject") (normalize "corpauthor") (normalize "authorgroup") (normalize "author") (normalize "editor"))) (define (book-titlepage-verso-elements) (list (normalize "title") (normalize "subtitle") (normalize "corpauthor") (normalize "authorgroup") (normalize "author") (normalize "editor") (normalize "edition") (normalize "pubdate") (normalize "copyright") (normalize "abstract") (normalize "legalnotice") (normalize "revhistory"))) (define (book-titlepage-content? elements side) (titlepage-content? elements (if (equal? side 'recto) (book-titlepage-recto-elements) (book-titlepage-verso-elements)))) (define (book-titlepage elements #!optional (side 'recto)) (let ((nodelist (titlepage-nodelist (if (equal? side 'recto) (book-titlepage-recto-elements) (book-titlepage-verso-elements)) elements))) ;; (make simple-page-sequence ;; page-n-columns: %titlepage-n-columns% ;; input-whitespace-treatment: 'collapse ;; use: default-text-style (make sequence ;; This hack is required for the RTF backend. If an external-graphic ;; is the first thing on the page, RTF doesn't seem to do the right ;; thing (the graphic winds up on the baseline of the first line ;; of the page, left justified). This "one point rule" fixes ;; that problem. (make paragraph line-spacing: 1pt (literal "")) (let loop ((nl nodelist) (lastnode (empty-node-list))) (if (node-list-empty? nl) (empty-sosofo) (make sequence (if (or (node-list-empty? lastnode) (not (equal? (gi (node-list-first nl)) (gi lastnode)))) (book-titlepage-before (node-list-first nl) side) (empty-sosofo)) (cond ((equal? (gi (node-list-first nl)) (normalize "abbrev")) (book-titlepage-abbrev (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "abstract")) (book-titlepage-abstract (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "address")) (book-titlepage-address (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "affiliation")) (book-titlepage-affiliation (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "artpagenums")) (book-titlepage-artpagenums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "author")) (book-titlepage-author (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorblurb")) (book-titlepage-authorblurb (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorgroup")) (book-titlepage-authorgroup (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorinitials")) (book-titlepage-authorinitials (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "bibliomisc")) (book-titlepage-bibliomisc (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "biblioset")) (book-titlepage-biblioset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "bookbiblio")) (book-titlepage-bookbiblio (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "citetitle")) (book-titlepage-citetitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "collab")) (book-titlepage-collab (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "confgroup")) (book-titlepage-confgroup (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contractnum")) (book-titlepage-contractnum (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contractsponsor")) (book-titlepage-contractsponsor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contrib")) (book-titlepage-contrib (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "copyright")) (book-titlepage-copyright (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "corpauthor")) (book-titlepage-corpauthor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "corpname")) (book-titlepage-corpname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "date")) (book-titlepage-date (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "edition")) (book-titlepage-edition (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "editor")) (book-titlepage-editor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "firstname")) (book-titlepage-firstname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "graphic")) (book-titlepage-graphic (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "honorific")) (book-titlepage-honorific (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "indexterm")) (book-titlepage-indexterm (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "invpartnumber")) (book-titlepage-invpartnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "isbn")) (book-titlepage-isbn (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "issn")) (book-titlepage-issn (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "issuenum")) (book-titlepage-issuenum (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "itermset")) (book-titlepage-itermset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "keywordset")) (book-titlepage-keywordset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "legalnotice")) (book-titlepage-legalnotice (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "lineage")) (book-titlepage-lineage (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "mediaobject")) (book-titlepage-mediaobject (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "modespec")) (book-titlepage-modespec (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "orgname")) (book-titlepage-orgname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "othercredit")) (book-titlepage-othercredit (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "othername")) (book-titlepage-othername (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pagenums")) (book-titlepage-pagenums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "printhistory")) (book-titlepage-printhistory (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "productname")) (book-titlepage-productname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "productnumber")) (book-titlepage-productnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pubdate")) (book-titlepage-pubdate (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "publisher")) (book-titlepage-publisher (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "publishername")) (book-titlepage-publishername (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pubsnumber")) (book-titlepage-pubsnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "releaseinfo")) (book-titlepage-releaseinfo (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "revhistory")) (book-titlepage-revhistory (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "seriesinfo")) (book-titlepage-seriesinfo (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "seriesvolnums")) (book-titlepage-seriesvolnums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "subjectset")) (book-titlepage-subjectset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "subtitle")) (book-titlepage-subtitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "surname")) (book-titlepage-surname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "title")) (book-titlepage-title (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "titleabbrev")) (book-titlepage-titleabbrev (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "volumenum")) (book-titlepage-volumenum (node-list-first nl) side)) (else (book-titlepage-default (node-list-first nl) side))) (loop (node-list-rest nl) (node-list-first nl)))))))) (define (book-titlepage-before node side) (if (equal? side 'recto) (cond ((equal? (gi node) (normalize "corpauthor")) (make paragraph space-after: (* (HSIZE 5) %head-after-factor% 8) (literal "\no-break-space;"))) ((equal? (gi node) (normalize "authorgroup")) (if (have-sibling? (normalize "corpauthor") node) (empty-sosofo) (make paragraph space-after: (* (HSIZE 5) %head-after-factor% 8) (literal "\no-break-space;")))) ((equal? (gi node) (normalize "author")) (if (or (have-sibling? (normalize "corpauthor") node) (have-sibling? (normalize "authorgroup") node)) (empty-sosofo) (make paragraph space-after: (* (HSIZE 5) %head-after-factor% 8) (literal "\no-break-space;")))) (else (empty-sosofo))) (empty-sosofo))) (define (book-titlepage-default node side) (let ((foo (debug (string-append "No book-titlepage-* for " (gi node) "!")))) (empty-sosofo))) (define (book-titlepage-element node side) (if (equal? side 'recto) (with-mode book-titlepage-recto-mode (process-node-list node)) (with-mode book-titlepage-verso-mode (process-node-list node)))) (define (book-titlepage-abbrev node side) (book-titlepage-element node side)) (define (book-titlepage-abstract node side) (book-titlepage-element node side)) (define (book-titlepage-address node side) (book-titlepage-element node side)) (define (book-titlepage-affiliation node side) (book-titlepage-element node side)) (define (book-titlepage-artpagenums node side) (book-titlepage-element node side)) (define (book-titlepage-author node side) (book-titlepage-element node side)) (define (book-titlepage-authorblurb node side) (book-titlepage-element node side)) (define (book-titlepage-authorgroup node side) (book-titlepage-element node side)) (define (book-titlepage-authorinitials node side) (book-titlepage-element node side)) (define (book-titlepage-bibliomisc node side) (book-titlepage-element node side)) (define (book-titlepage-biblioset node side) (book-titlepage node side)) (define (book-titlepage-bookbiblio node side) (book-titlepage node side)) (define (book-titlepage-citetitle node side) (book-titlepage-element node side)) (define (book-titlepage-collab node side) (book-titlepage-element node side)) (define (book-titlepage-confgroup node side) (book-titlepage-element node side)) (define (book-titlepage-contractnum node side) (book-titlepage-element node side)) (define (book-titlepage-contractsponsor node side) (book-titlepage-element node side)) (define (book-titlepage-contrib node side) (book-titlepage-element node side)) (define (book-titlepage-copyright node side) (book-titlepage-element node side)) (define (book-titlepage-corpauthor node side) (if (equal? side 'recto) (book-titlepage-element node side) (if (first-sibling? node) (make paragraph (with-mode book-titlepage-verso-mode (process-node-list (select-elements (children (parent node)) (normalize "corpauthor"))))) (empty-sosofo)))) (define (book-titlepage-corpname node side) (book-titlepage-element node side)) (define (book-titlepage-date node side) (book-titlepage-element node side)) (define (book-titlepage-edition node side) (book-titlepage-element node side)) (define (book-titlepage-editor node side) (book-titlepage-element node side)) (define (book-titlepage-firstname node side) (book-titlepage-element node side)) (define (book-titlepage-graphic node side) (book-titlepage-element node side)) (define (book-titlepage-honorific node side) (book-titlepage-element node side)) (define (book-titlepage-indexterm node side) (book-titlepage-element node side)) (define (book-titlepage-invpartnumber node side) (book-titlepage-element node side)) (define (book-titlepage-isbn node side) (book-titlepage-element node side)) (define (book-titlepage-issn node side) (book-titlepage-element node side)) (define (book-titlepage-issuenum node side) (book-titlepage-element node side)) (define (book-titlepage-itermset node side) (book-titlepage-element node side)) (define (book-titlepage-keywordset node side) (book-titlepage-element node side)) (define (book-titlepage-legalnotice node side) (book-titlepage-element node side)) (define (book-titlepage-lineage node side) (book-titlepage-element node side)) (define (book-titlepage-mediaobject node side) (book-titlepage-element node side)) (define (book-titlepage-modespec node side) (book-titlepage-element node side)) (define (book-titlepage-orgname node side) (book-titlepage-element node side)) (define (book-titlepage-othercredit node side) (book-titlepage-element node side)) (define (book-titlepage-othername node side) (book-titlepage-element node side)) (define (book-titlepage-pagenums node side) (book-titlepage-element node side)) (define (book-titlepage-printhistory node side) (book-titlepage-element node side)) (define (book-titlepage-productname node side) (book-titlepage-element node side)) (define (book-titlepage-productnumber node side) (book-titlepage-element node side)) (define (book-titlepage-pubdate node side) (book-titlepage-element node side)) (define (book-titlepage-publisher node side) (book-titlepage-element node side)) (define (book-titlepage-publishername node side) (book-titlepage-element node side)) (define (book-titlepage-pubsnumber node side) (book-titlepage-element node side)) (define (book-titlepage-releaseinfo node side) (book-titlepage-element node side)) (define (book-titlepage-revhistory node side) (book-titlepage-element node side)) (define (book-titlepage-seriesinfo node side) (book-titlepage-element node side)) (define (book-titlepage-seriesvolnums node side) (book-titlepage-element node side)) (define (book-titlepage-subjectset node side) (book-titlepage-element node side)) (define (book-titlepage-subtitle node side) (book-titlepage-element node side)) (define (book-titlepage-surname node side) (book-titlepage-element node side)) (define (book-titlepage-title node side) (book-titlepage-element node side)) (define (book-titlepage-titleabbrev node side) (book-titlepage-element node side)) (define (book-titlepage-volumenum node side) (book-titlepage-element node side)) (define book-titlepage-recto-style (style font-family-name: %title-font-family% font-weight: 'bold font-size: (HSIZE 1))) (define book-titlepage-verso-style (style font-family-name: %body-font-family%)) (mode book-titlepage-recto-mode (element abbrev (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element abstract (make display-group use: book-titlepage-recto-style quadding: 'start ($semiformal-object$))) (element (abstract title) (empty-sosofo)) (element (abstract para) (make paragraph use: book-titlepage-recto-style quadding: 'start (process-children))) (element address (make display-group use: book-titlepage-recto-style quadding: %division-title-quadding% (with-mode titlepage-address-mode ($linespecific-display$ %indent-address-lines% %number-address-lines%)))) (element affiliation (make display-group use: book-titlepage-recto-style (process-children))) (element artpagenums (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element author (let ((author-name (author-string)) (author-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (make paragraph use: book-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor%) quadding: %division-title-quadding% keep-with-next?: #t (literal author-name)) (process-node-list author-affil)))) (element authorblurb (make display-group use: book-titlepage-recto-style quadding: 'start (process-children))) (element (authorblurb para) (make paragraph use: book-titlepage-recto-style quadding: 'start (process-children))) (element authorgroup (make display-group (process-children))) (element authorinitials (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element bibliomisc (process-children)) (element bibliomset (process-children)) (element collab (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element confgroup (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element contractnum (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element contractsponsor (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element contrib (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element copyright (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% space-before: (* (HSIZE 2) %head-before-factor%) (literal (gentext-element-name (current-node))) (literal "\no-break-space;") (literal (dingbat "copyright")) (literal "\no-break-space;") (process-children))) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (literal " ")))) (element (copyright holder) ($charseq$)) (element corpauthor (make sequence (make paragraph use: book-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor%) quadding: %division-title-quadding% keep-with-next?: #t (process-children)) ;; This paragraph is a hack to get the spacing right. ;; Authors always have an affiliation paragraph below them, even if ;; it's empty, so corpauthors need one too. (make paragraph use: book-titlepage-recto-style font-size: (HSIZE 1) line-spacing: (* (HSIZE 1) %line-spacing-factor%) space-after: (* (HSIZE 2) %head-after-factor% 4) quadding: %division-title-quadding% keep-with-next?: #t (literal "\no-break-space;")))) (element corpname (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element date (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element edition (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children) (literal "\no-break-space;") (literal (gentext-element-name-space (gi (current-node)))))) (element editor (let ((editor-name (author-string))) (make sequence (if (first-sibling?) (make paragraph use: book-titlepage-recto-style font-size: (HSIZE 1) line-spacing: (* (HSIZE 1) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor% 6) quadding: %division-title-quadding% keep-with-next?: #t (literal (gentext-edited-by))) (empty-sosofo)) (make paragraph use: book-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-after: (* (HSIZE 2) %head-after-factor% 4) quadding: %division-title-quadding% keep-with-next?: #t (literal editor-name))))) (element firstname (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element graphic (let* ((nd (current-node)) (fileref (attribute-string "fileref" nd)) (entityref (attribute-string "entityref" nd)) (format (attribute-string "format" nd)) (align (attribute-string "align" nd))) (if (or fileref entityref) (make external-graphic notation-system-id: (if format format "") entity-system-id: (if fileref (graphic-file fileref) (if entityref (entity-generated-system-id entityref) "")) display?: #t display-alignment: 'center) (empty-sosofo)))) (element honorific (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element isbn (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element issn (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element itermset (empty-sosofo)) (element invpartnumber (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element issuenum (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element jobtitle (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element keywordset (make paragraph quadding: 'start (make sequence font-weight: 'bold (literal "Keywords: ")) (process-children))) (element (keyword) (make sequence (process-children) (if (not (last-sibling?)) (literal ", ") (literal "")))) (element legalnotice (make display-group use: book-titlepage-recto-style ($semiformal-object$))) (element (legalnotice title) (empty-sosofo)) (element (legalnotice para) (make paragraph use: book-titlepage-recto-style quadding: 'start line-spacing: (* 0.8 (inherited-line-spacing)) font-size: (* 0.8 (inherited-font-size)) (process-children))) (element lineage (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element modespec (empty-sosofo)) (element orgdiv (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element orgname (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element othercredit (let ((author-name (author-string)) (author-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (make paragraph use: book-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor%) quadding: %division-title-quadding% keep-with-next?: #t (literal author-name)) (process-node-list author-affil)))) (element othername (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element pagenums (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element printhistory (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element productname (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element productnumber (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element pubdate (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element publisher (make display-group use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element publishername (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element pubsnumber (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element releaseinfo (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element revhistory (make sequence (make paragraph use: book-titlepage-recto-style space-before: (* (HSIZE 3) %head-before-factor%) space-after: (/ (* (HSIZE 1) %head-before-factor%) 2) (literal (gentext-element-name (current-node)))) (make table before-row-border: #f (process-children)))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (select-elements (descendants (current-node)) (normalize "revremark"))) (revdescription (select-elements (descendants (current-node)) (normalize "revdescription")))) (make sequence (make table-row (make table-cell column-number: 1 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt (if (not (node-list-empty? revnumber)) (make paragraph use: book-titlepage-recto-style font-size: %bf-size% font-weight: 'medium (literal (gentext-element-name-space (current-node))) (process-node-list revnumber)) (empty-sosofo))) (make table-cell column-number: 2 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt cell-before-column-margin: (if (equal? (print-backend) 'tex) 6pt 0pt) (if (not (node-list-empty? revdate)) (make paragraph use: book-titlepage-recto-style font-size: %bf-size% font-weight: 'medium (process-node-list revdate)) (empty-sosofo))) (make table-cell column-number: 3 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt cell-before-column-margin: (if (equal? (print-backend) 'tex) 6pt 0pt) (if (not (node-list-empty? revauthor)) (make paragraph use: book-titlepage-recto-style font-size: %bf-size% font-weight: 'medium (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make table-row cell-after-row-border: #f (make table-cell column-number: 1 n-columns-spanned: 3 n-rows-spanned: 1 start-indent: 0pt (cond ((not (node-list-empty? revremark)) (make paragraph use: book-titlepage-recto-style font-size: %bf-size% font-weight: 'medium space-after: (if (last-sibling?) 0pt (/ %block-sep% 2)) (process-node-list revremark))) ((not (node-list-empty? revdescription)) (make sequence use: book-titlepage-recto-style font-size: %bf-size% font-weight: 'medium (process-node-list revremark))) (else (empty-sosofo)))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element (revision revdescription) (process-children)) (element seriesvolnums (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element shortaffil (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element subjectset (empty-sosofo)) (element subtitle (make paragraph use: book-titlepage-recto-style font-size: (HSIZE 4) line-spacing: (* (HSIZE 4) %line-spacing-factor%) space-before: (* (HSIZE 4) %head-before-factor%) quadding: %division-subtitle-quadding% keep-with-next?: #t (process-children-trim))) (element surname (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element title (make paragraph use: book-titlepage-recto-style font-size: (HSIZE 5) line-spacing: (* (HSIZE 5) %line-spacing-factor%) space-before: (* (HSIZE 5) %head-before-factor%) quadding: %division-title-quadding% keep-with-next?: #t heading-level: (if %generate-heading-level% 1 0) (with-mode title-mode (process-children-trim)))) (element formalpara ($para-container$)) (element (formalpara title) ($runinhead$)) (element (formalpara para) (make sequence (process-children))) (element titleabbrev (empty-sosofo)) (element volumenum (make paragraph use: book-titlepage-recto-style quadding: %division-title-quadding% (process-children))) ) (mode book-titlepage-verso-mode (element abbrev (make paragraph use: book-titlepage-verso-style (process-children))) (element abstract ($semiformal-object$)) (element (abstract title) (empty-sosofo)) (element address (make display-group use: book-titlepage-verso-style (with-mode titlepage-address-mode ($linespecific-display$ %indent-address-lines% %number-address-lines%)))) (element affiliation (make paragraph use: book-titlepage-verso-style (process-children))) (element artpagenums (make paragraph use: book-titlepage-verso-style (process-children))) (element author ;; Print the author name. Handle the case where there's no AUTHORGROUP (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (not in-group) (make paragraph ;; Hack to get the spacing right below the author name line... space-after: (* %bf-size% %line-spacing-factor%) (make sequence (literal (gentext-by)) (literal "\no-break-space;") (literal (author-list-string)))) (make sequence (literal (author-list-string)))))) (element authorblurb (make paragraph use: book-titlepage-verso-style (process-children))) (element authorgroup (let* ((editors (select-elements (children (current-node)) (normalize "editor")))) (make paragraph space-after: (* %bf-size% %line-spacing-factor%) (make sequence (if (node-list-empty? editors) (literal (gentext-by)) (literal (gentext-edited-by))) (literal "\no-break-space;") (process-children-trim))))) (element authorinitials (make paragraph use: book-titlepage-verso-style (process-children))) (element bibliomisc (process-children)) (element bibliomset (process-children)) (element collab (make paragraph use: book-titlepage-verso-style (process-children))) (element confgroup (make paragraph use: book-titlepage-verso-style (process-children))) (element contractnum (make paragraph use: book-titlepage-verso-style (process-children))) (element contractsponsor (make paragraph use: book-titlepage-verso-style (process-children))) (element contrib (make paragraph use: book-titlepage-verso-style (process-children))) (element copyright (make paragraph use: book-titlepage-verso-style (literal (gentext-element-name (current-node))) (literal "\no-break-space;") (literal (dingbat "copyright")) (literal "\no-break-space;") (process-children))) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (literal " ")))) (element (copyright holder) ($charseq$)) (element corpauthor ;; note: book-titlepage-corpauthor takes care of wrapping multiple ;; corpauthors (make sequence (if (first-sibling?) (if (equal? (gi (parent (current-node))) (normalize "authorgroup")) (empty-sosofo) (literal (gentext-by) " ")) (literal ", ")) (process-children))) (element corpname (make paragraph use: book-titlepage-verso-style (process-children))) (element date (make paragraph use: book-titlepage-verso-style (process-children))) (element edition (make paragraph (process-children) (literal "\no-break-space;") (literal (gentext-element-name-space (gi (current-node)))))) (element editor ;; Print the editor name. (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (or #f (not in-group)) ; nevermind, always put out the Edited by (make paragraph ;; Hack to get the spacing right below the author name line... space-after: (* %bf-size% %line-spacing-factor%) (make sequence (literal (gentext-edited-by)) (literal "\no-break-space;") (literal (author-string)))) (make sequence (literal (author-list-string)))))) (element firstname (make paragraph use: book-titlepage-verso-style (process-children))) (element graphic (let* ((nd (current-node)) (fileref (attribute-string "fileref" nd)) (entityref (attribute-string "entityref" nd)) (format (attribute-string "format" nd)) (align (attribute-string "align" nd))) (if (or fileref entityref) (make external-graphic notation-system-id: (if format format "") entity-system-id: (if fileref (graphic-file fileref) (if entityref (entity-generated-system-id entityref) "")) display?: #t display-alignment: 'start) (empty-sosofo)))) (element honorific (make paragraph use: book-titlepage-verso-style (process-children))) (element isbn (make paragraph use: book-titlepage-verso-style (process-children))) (element issn (make paragraph use: book-titlepage-verso-style (process-children))) (element itermset (empty-sosofo)) (element invpartnumber (make paragraph use: book-titlepage-verso-style (process-children))) (element issuenum (make paragraph use: book-titlepage-verso-style (process-children))) (element jobtitle (make paragraph use: book-titlepage-verso-style (process-children))) (element keywordset (make paragraph quadding: 'start (make sequence font-weight: 'bold (literal "Keywords: ")) (process-children))) (element (keyword) (make sequence (process-children) (if (not (last-sibling?)) (literal ", ") (literal "")))) (element legalnotice (make display-group use: book-titlepage-verso-style ($semiformal-object$))) (element (legalnotice title) (empty-sosofo)) (element (legalnotice para) (make paragraph use: book-titlepage-verso-style font-size: (* (inherited-font-size) 0.8) (process-children-trim))) (element lineage (make paragraph use: book-titlepage-verso-style (process-children))) (element modespec (empty-sosofo)) (element orgdiv (make paragraph use: book-titlepage-verso-style (process-children))) (element orgname (make paragraph use: book-titlepage-verso-style (process-children))) (element othercredit ;; Print the author name. Handle the case where there's no AUTHORGROUP (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (not in-group) (make paragraph ;; Hack to get the spacing right below the author name line... space-after: (* %bf-size% %line-spacing-factor%) (make sequence (literal (gentext-by)) (literal "\no-break-space;") (literal (author-list-string)))) (make sequence (literal (author-list-string)))))) (element othername (make paragraph use: book-titlepage-verso-style (process-children))) (element pagenums (make paragraph use: book-titlepage-verso-style (process-children))) (element printhistory (make display-group use: book-titlepage-verso-style (process-children))) (element productname (make paragraph use: book-titlepage-verso-style (process-children))) (element productnumber (make paragraph use: book-titlepage-verso-style (process-children))) (element pubdate (make paragraph (literal (gentext-element-name-space (gi (current-node)))) (process-children))) (element publisher (make paragraph use: book-titlepage-verso-style (process-children))) (element publishername (make paragraph use: book-titlepage-verso-style (process-children))) (element pubsnumber (make paragraph use: book-titlepage-verso-style (process-children))) (element releaseinfo (make paragraph use: book-titlepage-verso-style (process-children))) (element revhistory (make sequence (make paragraph use: book-titlepage-verso-style space-before: (* (HSIZE 3) %head-before-factor%) space-after: (/ (* (HSIZE 1) %head-before-factor%) 2) (literal (gentext-element-name (current-node)))) (make table before-row-border: #f (process-children)))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (select-elements (descendants (current-node)) (normalize "revremark"))) (revdescription (select-elements (descendants (current-node)) (normalize "revdescription")))) (make sequence (make table-row (make table-cell column-number: 1 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt (if (not (node-list-empty? revnumber)) (make paragraph use: book-titlepage-verso-style font-size: %bf-size% font-weight: 'medium (literal (gentext-element-name-space (current-node))) (process-node-list revnumber)) (empty-sosofo))) (make table-cell column-number: 2 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt cell-before-column-margin: (if (equal? (print-backend) 'tex) 6pt 0pt) (if (not (node-list-empty? revdate)) (make paragraph use: book-titlepage-verso-style font-size: %bf-size% font-weight: 'medium (process-node-list revdate)) (empty-sosofo))) (make table-cell column-number: 3 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt cell-before-column-margin: (if (equal? (print-backend) 'tex) 6pt 0pt) (if (not (node-list-empty? revauthor)) (make paragraph use: book-titlepage-verso-style font-size: %bf-size% font-weight: 'medium (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make table-row cell-after-row-border: #f (make table-cell column-number: 1 n-columns-spanned: 3 n-rows-spanned: 1 start-indent: 0pt (cond ((not (node-list-empty? revremark)) (make paragraph use: book-titlepage-verso-style font-size: %bf-size% font-weight: 'medium space-after: (if (last-sibling?) 0pt (/ %block-sep% 2)) (process-node-list revremark))) ((not (node-list-empty? revdescription)) (make sequence use: book-titlepage-verso-style font-size: %bf-size% font-weight: 'medium (process-node-list revdescription))) (else (empty-sosofo)))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element (revision revdescription) (process-children)) (element seriesvolnums (make paragraph use: book-titlepage-verso-style (process-children))) (element shortaffil (make paragraph use: book-titlepage-verso-style (process-children))) (element subjectset (empty-sosofo)) (element subtitle (make sequence font-family-name: %title-font-family% font-weight: 'bold (literal (if (first-sibling?) ": " "; ")) (process-children))) (element surname (make paragraph use: book-titlepage-verso-style (process-children))) (element title (make sequence font-family-name: %title-font-family% font-weight: 'bold (with-mode title-mode (process-children)))) (element formalpara ($para-container$)) (element (formalpara title) ($runinhead$)) (element (formalpara para) (make sequence (process-children))) (element titleabbrev (empty-sosofo)) (element volumenum (make paragraph use: book-titlepage-verso-style (process-children))) ) ;; == Title pages for PARTs ============================================= (define (part-titlepage-recto-elements) (list (normalize "title") (normalize "subtitle"))) (define (part-titlepage-verso-elements) '()) (define (part-titlepage-content? elements side) (titlepage-content? elements (if (equal? side 'recto) (part-titlepage-recto-elements) (part-titlepage-verso-elements)))) (define (part-titlepage elements #!optional (side 'recto)) (let ((nodelist (titlepage-nodelist (if (equal? side 'recto) (part-titlepage-recto-elements) (part-titlepage-verso-elements)) elements)) ;; partintro is a special case... (partintro (node-list-first (node-list-filter-by-gi elements (list (normalize "partintro")))))) (if (part-titlepage-content? elements side) ;; (make simple-page-sequence ;; page-n-columns: %titlepage-n-columns% ;; input-whitespace-treatment: 'collapse ;; use: default-text-style (make sequence ;; This hack is required for the RTF backend. If an external-graphic ;; is the first thing on the page, RTF doesn't seem to do the right ;; thing (the graphic winds up on the baseline of the first line ;; of the page, left justified). This "one point rule" fixes ;; that problem. (make paragraph line-spacing: 1pt (literal "")) (let loop ((nl nodelist) (lastnode (empty-node-list))) (if (node-list-empty? nl) (empty-sosofo) (make sequence (if (or (node-list-empty? lastnode) (not (equal? (gi (node-list-first nl)) (gi lastnode)))) (part-titlepage-before (node-list-first nl) side) (empty-sosofo)) (cond ((equal? (gi (node-list-first nl)) (normalize "abbrev")) (part-titlepage-abbrev (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "abstract")) (part-titlepage-abstract (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "address")) (part-titlepage-address (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "affiliation")) (part-titlepage-affiliation (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "artpagenums")) (part-titlepage-artpagenums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "author")) (part-titlepage-author (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorblurb")) (part-titlepage-authorblurb (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorgroup")) (part-titlepage-authorgroup (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorinitials")) (part-titlepage-authorinitials (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "bibliomisc")) (part-titlepage-bibliomisc (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "biblioset")) (part-titlepage-biblioset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "bookbiblio")) (part-titlepage-bookbiblio (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "citetitle")) (part-titlepage-citetitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "collab")) (part-titlepage-collab (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "confgroup")) (part-titlepage-confgroup (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contractnum")) (part-titlepage-contractnum (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contractsponsor")) (part-titlepage-contractsponsor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contrib")) (part-titlepage-contrib (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "copyright")) (part-titlepage-copyright (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "corpauthor")) (part-titlepage-corpauthor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "corpname")) (part-titlepage-corpname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "date")) (part-titlepage-date (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "edition")) (part-titlepage-edition (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "editor")) (part-titlepage-editor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "firstname")) (part-titlepage-firstname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "graphic")) (part-titlepage-graphic (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "honorific")) (part-titlepage-honorific (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "indexterm")) (part-titlepage-indexterm (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "invpartnumber")) (part-titlepage-invpartnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "isbn")) (part-titlepage-isbn (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "issn")) (part-titlepage-issn (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "issuenum")) (part-titlepage-issuenum (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "itermset")) (part-titlepage-itermset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "keywordset")) (part-titlepage-keywordset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "legalnotice")) (part-titlepage-legalnotice (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "lineage")) (part-titlepage-lineage (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "mediaobject")) (part-titlepage-mediaobject (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "modespec")) (part-titlepage-modespec (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "orgname")) (part-titlepage-orgname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "othercredit")) (part-titlepage-othercredit (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "othername")) (part-titlepage-othername (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pagenums")) (part-titlepage-pagenums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "printhistory")) (part-titlepage-printhistory (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "productname")) (part-titlepage-productname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "productnumber")) (part-titlepage-productnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pubdate")) (part-titlepage-pubdate (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "publisher")) (part-titlepage-publisher (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "publishername")) (part-titlepage-publishername (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pubsnumber")) (part-titlepage-pubsnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "releaseinfo")) (part-titlepage-releaseinfo (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "revhistory")) (part-titlepage-revhistory (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "seriesinfo")) (part-titlepage-seriesinfo (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "seriesvolnums")) (part-titlepage-seriesvolnums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "subjectset")) (part-titlepage-subjectset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "subtitle")) (part-titlepage-subtitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "surname")) (part-titlepage-surname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "title")) (part-titlepage-title (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "titleabbrev")) (part-titlepage-titleabbrev (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "volumenum")) (part-titlepage-volumenum (node-list-first nl) side)) (else (part-titlepage-default (node-list-first nl) side))) (loop (node-list-rest nl) (node-list-first nl))))) (if (and %generate-part-toc% %generate-part-toc-on-titlepage% (equal? side 'recto)) (make display-group (build-toc (current-node) (toc-depth (current-node)))) (empty-sosofo)) ;; PartIntro is a special case (if (and (equal? side 'recto) (not (node-list-empty? partintro)) %generate-partintro-on-titlepage%) ($process-partintro$ partintro #f) (empty-sosofo))) (empty-sosofo)))) (define (part-titlepage-before node side) (if (equal? side 'recto) (cond ((equal? (gi node) (normalize "corpauthor")) (make paragraph space-after: (* (HSIZE 5) %head-after-factor% 8) (literal "\no-break-space;"))) ((equal? (gi node) (normalize "authorgroup")) (if (have-sibling? (normalize "corpauthor") node) (empty-sosofo) (make paragraph space-after: (* (HSIZE 5) %head-after-factor% 8) (literal "\no-break-space;")))) ((equal? (gi node) (normalize "author")) (if (or (have-sibling? (normalize "corpauthor") node) (have-sibling? (normalize "authorgroup") node)) (empty-sosofo) (make paragraph space-after: (* (HSIZE 5) %head-after-factor% 8) (literal "\no-break-space;")))) (else (empty-sosofo))) (empty-sosofo))) (define (part-titlepage-default node side) (let ((foo (debug (string-append "No part-titlepage-* for " (gi node) "!")))) (empty-sosofo))) (define (part-titlepage-element node side) (if (equal? side 'recto) (with-mode part-titlepage-recto-mode (process-node-list node)) (with-mode part-titlepage-verso-mode (process-node-list node)))) (define (part-titlepage-abbrev node side) (part-titlepage-element node side)) (define (part-titlepage-abstract node side) (part-titlepage-element node side)) (define (part-titlepage-address node side) (part-titlepage-element node side)) (define (part-titlepage-affiliation node side) (part-titlepage-element node side)) (define (part-titlepage-artpagenums node side) (part-titlepage-element node side)) (define (part-titlepage-author node side) (part-titlepage-element node side)) (define (part-titlepage-authorblurb node side) (part-titlepage-element node side)) (define (part-titlepage-authorgroup node side) (part-titlepage-element node side)) (define (part-titlepage-authorinitials node side) (part-titlepage-element node side)) (define (part-titlepage-bibliomisc node side) (part-titlepage-element node side)) (define (part-titlepage-biblioset node side) (part-titlepage node side)) (define (part-titlepage-bookbiblio node side) (part-titlepage node side)) (define (part-titlepage-citetitle node side) (part-titlepage-element node side)) (define (part-titlepage-collab node side) (part-titlepage-element node side)) (define (part-titlepage-confgroup node side) (part-titlepage-element node side)) (define (part-titlepage-contractnum node side) (part-titlepage-element node side)) (define (part-titlepage-contractsponsor node side) (part-titlepage-element node side)) (define (part-titlepage-contrib node side) (part-titlepage-element node side)) (define (part-titlepage-copyright node side) (part-titlepage-element node side)) (define (part-titlepage-corpauthor node side) (if (equal? side 'recto) (book-titlepage-element node side) (if (first-sibling? node) (make paragraph (with-mode book-titlepage-verso-mode (process-node-list (select-elements (children (parent node)) (normalize "corpauthor"))))) (empty-sosofo)))) (define (part-titlepage-corpname node side) (part-titlepage-element node side)) (define (part-titlepage-date node side) (part-titlepage-element node side)) (define (part-titlepage-edition node side) (part-titlepage-element node side)) (define (part-titlepage-editor node side) (part-titlepage-element node side)) (define (part-titlepage-firstname node side) (part-titlepage-element node side)) (define (part-titlepage-graphic node side) (part-titlepage-element node side)) (define (part-titlepage-honorific node side) (part-titlepage-element node side)) (define (part-titlepage-indexterm node side) (part-titlepage-element node side)) (define (part-titlepage-invpartnumber node side) (part-titlepage-element node side)) (define (part-titlepage-isbn node side) (part-titlepage-element node side)) (define (part-titlepage-issn node side) (part-titlepage-element node side)) (define (part-titlepage-issuenum node side) (part-titlepage-element node side)) (define (part-titlepage-itermset node side) (part-titlepage-element node side)) (define (part-titlepage-keywordset node side) (part-titlepage-element node side)) (define (part-titlepage-legalnotice node side) (part-titlepage-element node side)) (define (part-titlepage-lineage node side) (part-titlepage-element node side)) (define (part-titlepage-mediaobject node side) (part-titlepage-element node side)) (define (part-titlepage-modespec node side) (part-titlepage-element node side)) (define (part-titlepage-orgname node side) (part-titlepage-element node side)) (define (part-titlepage-othercredit node side) (part-titlepage-element node side)) (define (part-titlepage-othername node side) (part-titlepage-element node side)) (define (part-titlepage-pagenums node side) (part-titlepage-element node side)) (define (part-titlepage-printhistory node side) (part-titlepage-element node side)) (define (part-titlepage-productname node side) (part-titlepage-element node side)) (define (part-titlepage-productnumber node side) (part-titlepage-element node side)) (define (part-titlepage-pubdate node side) (part-titlepage-element node side)) (define (part-titlepage-publisher node side) (part-titlepage-element node side)) (define (part-titlepage-publishername node side) (part-titlepage-element node side)) (define (part-titlepage-pubsnumber node side) (part-titlepage-element node side)) (define (part-titlepage-releaseinfo node side) (part-titlepage-element node side)) (define (part-titlepage-revhistory node side) (part-titlepage-element node side)) (define (part-titlepage-seriesinfo node side) (part-titlepage-element node side)) (define (part-titlepage-seriesvolnums node side) (part-titlepage-element node side)) (define (part-titlepage-subjectset node side) (part-titlepage-element node side)) (define (part-titlepage-subtitle node side) (part-titlepage-element node side)) (define (part-titlepage-surname node side) (part-titlepage-element node side)) (define (part-titlepage-title node side) (part-titlepage-element node side)) (define (part-titlepage-titleabbrev node side) (part-titlepage-element node side)) (define (part-titlepage-volumenum node side) (part-titlepage-element node side)) (define part-titlepage-recto-style (style font-family-name: %title-font-family% font-weight: 'bold font-size: (HSIZE 1))) (define part-titlepage-verso-style (style font-family-name: %body-font-family%)) (mode part-titlepage-recto-mode (element abbrev (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element abstract (make display-group use: part-titlepage-recto-style quadding: 'start ($semiformal-object$))) (element (abstract title) (empty-sosofo)) (element (abstract para) (make paragraph use: part-titlepage-recto-style quadding: 'start (process-children))) (element address (make display-group use: part-titlepage-recto-style quadding: %division-title-quadding% (with-mode titlepage-address-mode ($linespecific-display$ %indent-address-lines% %number-address-lines%)))) (element affiliation (make display-group use: part-titlepage-recto-style (process-children))) (element artpagenums (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element author (let ((author-name (author-string)) (author-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (make paragraph use: part-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor%) quadding: %division-title-quadding% keep-with-next?: #t (literal author-name)) (process-node-list author-affil)))) (element authorblurb (make display-group use: part-titlepage-recto-style quadding: 'start (process-children))) (element (authorblurb para) (make paragraph use: part-titlepage-recto-style quadding: 'start (process-children))) (element authorgroup (make display-group (process-children))) (element authorinitials (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element bibliomisc (process-children)) (element bibliomset (process-children)) (element collab (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element confgroup (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element contractnum (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element contractsponsor (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element contrib (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element copyright (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% space-before: (* (HSIZE 2) %head-before-factor%) (literal (gentext-element-name (current-node))) (literal "\no-break-space;") (literal (dingbat "copyright")) (literal "\no-break-space;") (process-children))) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (literal " ")))) (element (copyright holder) ($charseq$)) (element corpauthor (make sequence (make paragraph use: part-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor%) quadding: %division-title-quadding% keep-with-next?: #t (process-children)) ;; This paragraph is a hack to get the spacing right. ;; Authors always have an affiliation paragraph below them, even if ;; it's empty, so corpauthors need one too. (make paragraph use: part-titlepage-recto-style font-size: (HSIZE 1) line-spacing: (* (HSIZE 1) %line-spacing-factor%) space-after: (* (HSIZE 2) %head-after-factor% 4) quadding: %division-title-quadding% keep-with-next?: #t (literal "\no-break-space;")))) (element corpname (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element date (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element edition (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children) (literal "\no-break-space;") (literal (gentext-element-name-space (gi (current-node)))))) (element editor (let ((editor-name (author-string))) (make sequence (if (first-sibling?) (make paragraph use: part-titlepage-recto-style font-size: (HSIZE 1) line-spacing: (* (HSIZE 1) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor% 6) quadding: %division-title-quadding% keep-with-next?: #t (literal (gentext-edited-by))) (empty-sosofo)) (make paragraph use: part-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-after: (* (HSIZE 2) %head-after-factor% 4) quadding: %division-title-quadding% keep-with-next?: #t (literal editor-name))))) (element firstname (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element graphic (let* ((nd (current-node)) (fileref (attribute-string "fileref" nd)) (entityref (attribute-string "entityref" nd)) (format (attribute-string "format" nd)) (align (attribute-string "align" nd))) (if (or fileref entityref) (make external-graphic notation-system-id: (if format format "") entity-system-id: (if fileref (graphic-file fileref) (if entityref (entity-generated-system-id entityref) "")) display?: #t display-alignment: 'center) (empty-sosofo)))) (element honorific (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element isbn (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element issn (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element itermset (empty-sosofo)) (element invpartnumber (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element issuenum (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element jobtitle (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element keywordset (make paragraph quadding: 'start (make sequence font-weight: 'bold (literal "Keywords: ")) (process-children))) (element (keyword) (make sequence (process-children) (if (not (last-sibling?)) (literal ", ") (literal "")))) (element legalnotice (make display-group use: part-titlepage-recto-style ($semiformal-object$))) (element (legalnotice title) (empty-sosofo)) (element (legalnotice para) (make paragraph use: part-titlepage-recto-style quadding: 'start line-spacing: (* 0.8 (inherited-line-spacing)) font-size: (* 0.8 (inherited-font-size)) (process-children))) (element lineage (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element modespec (empty-sosofo)) (element orgdiv (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element orgname (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element othercredit (let ((author-name (author-string)) (author-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (make paragraph use: part-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor%) quadding: %division-title-quadding% keep-with-next?: #t (literal author-name)) (process-node-list author-affil)))) (element othername (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element pagenums (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element printhistory (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element productname (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element productnumber (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element pubdate (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element publisher (make display-group use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element publishername (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element pubsnumber (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element releaseinfo (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element revhistory (make sequence (make paragraph use: part-titlepage-recto-style space-before: (* (HSIZE 3) %head-before-factor%) space-after: (/ (* (HSIZE 1) %head-before-factor%) 2) (literal (gentext-element-name (current-node)))) (make table before-row-border: #f (process-children)))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (select-elements (descendants (current-node)) (normalize "revremark"))) (revdescription (select-elements (descendants (current-node)) (normalize "revdescription")))) (make sequence (make table-row (make table-cell column-number: 1 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt (if (not (node-list-empty? revnumber)) (make paragraph use: part-titlepage-recto-style font-size: %bf-size% font-weight: 'medium (literal (gentext-element-name-space (current-node))) (process-node-list revnumber)) (empty-sosofo))) (make table-cell column-number: 2 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt cell-before-column-margin: (if (equal? (print-backend) 'tex) 6pt 0pt) (if (not (node-list-empty? revdate)) (make paragraph use: part-titlepage-recto-style font-size: %bf-size% font-weight: 'medium (process-node-list revdate)) (empty-sosofo))) (make table-cell column-number: 3 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt cell-before-column-margin: (if (equal? (print-backend) 'tex) 6pt 0pt) (if (not (node-list-empty? revauthor)) (make paragraph use: part-titlepage-recto-style font-size: %bf-size% font-weight: 'medium (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make table-row cell-after-row-border: #f (make table-cell column-number: 1 n-columns-spanned: 3 n-rows-spanned: 1 start-indent: 0pt (cond ((not (node-list-empty? revremark)) (make paragraph use: part-titlepage-recto-style font-size: %bf-size% font-weight: 'medium space-after: (if (last-sibling?) 0pt (/ %block-sep% 2)) (process-node-list revremark))) ((not (node-list-empty? revdescription)) (make sequence use: part-titlepage-recto-style font-size: %bf-size% font-weight: 'medium (process-node-list revdescription))) (else (empty-sosofo)))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element (revision revdescription) (process-children)) (element seriesvolnums (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element shortaffil (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element subjectset (empty-sosofo)) (element subtitle (make paragraph use: part-titlepage-recto-style font-size: (HSIZE 4) line-spacing: (* (HSIZE 4) %line-spacing-factor%) space-before: (* (HSIZE 4) %head-before-factor%) quadding: %division-subtitle-quadding% keep-with-next?: #t (process-children-trim))) (element surname (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element title (let ((division (ancestor-member (current-node) (division-element-list)))) (make paragraph use: part-titlepage-recto-style font-size: (HSIZE 5) line-spacing: (* (HSIZE 5) %line-spacing-factor%) space-before: (* (HSIZE 5) %head-before-factor%) quadding: %division-title-quadding% keep-with-next?: #t heading-level: (if %generate-heading-level% 1 0) (if (string=? (element-label division) "") (empty-sosofo) (literal (element-label division) (gentext-label-title-sep (gi division)))) (with-mode title-mode (process-children))))) (element formalpara ($para-container$)) (element (formalpara title) ($runinhead$)) (element (formalpara para) (make sequence (process-children))) (element titleabbrev (empty-sosofo)) (element volumenum (make paragraph use: part-titlepage-recto-style quadding: %division-title-quadding% (process-children))) ) (mode part-titlepage-verso-mode (element abbrev (make paragraph use: part-titlepage-verso-style (process-children))) (element abstract ($semiformal-object$)) (element (abstract title) (empty-sosofo)) (element address (make display-group use: part-titlepage-verso-style (with-mode titlepage-address-mode ($linespecific-display$ %indent-address-lines% %number-address-lines%)))) (element affiliation (make paragraph use: part-titlepage-verso-style (process-children))) (element artpagenums (make paragraph use: part-titlepage-verso-style (process-children))) (element author ;; Print the author name. Handle the case where there's no AUTHORGROUP (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (not in-group) (make paragraph ;; Hack to get the spacing right below the author name line... space-after: (* %bf-size% %line-spacing-factor%) (make sequence (literal (gentext-by)) (literal "\no-break-space;") (literal (author-list-string)))) (make sequence (literal (author-list-string)))))) (element authorblurb (make paragraph use: part-titlepage-verso-style (process-children))) (element authorgroup (make paragraph space-after: (* %bf-size% %line-spacing-factor%) (make sequence (literal (gentext-by)) (literal "\no-break-space;") (process-children-trim)))) (element authorinitials (make paragraph use: part-titlepage-verso-style (process-children))) (element bibliomisc (process-children)) (element bibliomset (process-children)) (element collab (make paragraph use: part-titlepage-verso-style (process-children))) (element confgroup (make paragraph use: part-titlepage-verso-style (process-children))) (element contractnum (make paragraph use: part-titlepage-verso-style (process-children))) (element contractsponsor (make paragraph use: part-titlepage-verso-style (process-children))) (element contrib (make paragraph use: part-titlepage-verso-style (process-children))) (element copyright (make paragraph use: part-titlepage-verso-style (literal (gentext-element-name (current-node))) (literal "\no-break-space;") (literal (dingbat "copyright")) (literal "\no-break-space;") (process-children))) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (literal " ")))) (element (copyright holder) ($charseq$)) (element corpauthor ;; note: part-titlepage-corpauthor takes care of wrapping multiple ;; corpauthors (make sequence (if (first-sibling?) (if (equal? (gi (parent (current-node))) (normalize "authorgroup")) (empty-sosofo) (literal (gentext-by) " ")) (literal ", ")) (process-children))) (element corpname (make paragraph use: part-titlepage-verso-style (process-children))) (element date (make paragraph use: part-titlepage-verso-style (process-children))) (element edition (make paragraph (process-children) (literal "\no-break-space;") (literal (gentext-element-name-space (gi (current-node)))))) (element editor ;; Print the editor name. (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (or #t (not in-group)) ; nevermind, always put out the Edited by (make paragraph ;; Hack to get the spacing right below the author name line... space-after: (* %bf-size% %line-spacing-factor%) (make sequence (literal (gentext-edited-by)) (literal "\no-break-space;") (literal (author-string)))) (make sequence (literal (author-string)))))) (element firstname (make paragraph use: part-titlepage-verso-style (process-children))) (element graphic (let* ((nd (current-node)) (fileref (attribute-string "fileref" nd)) (entityref (attribute-string "entityref" nd)) (format (attribute-string "format" nd)) (align (attribute-string "align" nd))) (if (or fileref entityref) (make external-graphic notation-system-id: (if format format "") entity-system-id: (if fileref (graphic-file fileref) (if entityref (entity-generated-system-id entityref) "")) display?: #t display-alignment: 'start) (empty-sosofo)))) (element honorific (make paragraph use: part-titlepage-verso-style (process-children))) (element isbn (make paragraph use: part-titlepage-verso-style (process-children))) (element issn (make paragraph use: part-titlepage-verso-style (process-children))) (element itermset (empty-sosofo)) (element invpartnumber (make paragraph use: part-titlepage-verso-style (process-children))) (element issuenum (make paragraph use: part-titlepage-verso-style (process-children))) (element jobtitle (make paragraph use: part-titlepage-verso-style (process-children))) (element keywordset (make paragraph quadding: 'start (make sequence font-weight: 'bold (literal "Keywords: ")) (process-children))) (element (keyword) (make sequence (process-children) (if (not (last-sibling?)) (literal ", ") (literal "")))) (element legalnotice (make display-group use: part-titlepage-verso-style ($semiformal-object$))) (element (legalnotice title) (empty-sosofo)) (element (legalnotice para) (make paragraph use: part-titlepage-verso-style font-size: (* (inherited-font-size) 0.8) (process-children-trim))) (element lineage (make paragraph use: part-titlepage-verso-style (process-children))) (element modespec (empty-sosofo)) (element orgdiv (make paragraph use: part-titlepage-verso-style (process-children))) (element orgname (make paragraph use: part-titlepage-verso-style (process-children))) (element othercredit ;; Print the author name. Handle the case where there's no AUTHORGROUP (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (not in-group) (make paragraph ;; Hack to get the spacing right below the author name line... space-after: (* %bf-size% %line-spacing-factor%) (make sequence (literal (gentext-by)) (literal "\no-break-space;") (literal (author-list-string)))) (make sequence (literal (author-list-string)))))) (element othername (make paragraph use: part-titlepage-verso-style (process-children))) (element pagenums (make paragraph use: part-titlepage-verso-style (process-children))) (element printhistory (make display-group use: part-titlepage-verso-style (process-children))) (element productname (make paragraph use: part-titlepage-verso-style (process-children))) (element productnumber (make paragraph use: part-titlepage-verso-style (process-children))) (element pubdate (make paragraph (literal (gentext-element-name-space (gi (current-node)))) (process-children))) (element publisher (make paragraph use: part-titlepage-verso-style (process-children))) (element publishername (make paragraph use: part-titlepage-verso-style (process-children))) (element pubsnumber (make paragraph use: part-titlepage-verso-style (process-children))) (element releaseinfo (make paragraph use: part-titlepage-verso-style (process-children))) (element revhistory (make sequence (make paragraph use: part-titlepage-verso-style space-before: (* (HSIZE 3) %head-before-factor%) space-after: (/ (* (HSIZE 1) %head-before-factor%) 2) (literal (gentext-element-name (current-node)))) (make table before-row-border: #f (process-children)))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (select-elements (descendants (current-node)) (normalize "revremark"))) (revdescription (select-elements (descendants (current-node)) (normalize "revdescription")))) (make sequence (make table-row (make table-cell column-number: 1 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt (if (not (node-list-empty? revnumber)) (make paragraph use: part-titlepage-verso-style font-size: %bf-size% font-weight: 'medium (literal (gentext-element-name-space (current-node))) (process-node-list revnumber)) (empty-sosofo))) (make table-cell column-number: 2 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt cell-before-column-margin: (if (equal? (print-backend) 'tex) 6pt 0pt) (if (not (node-list-empty? revdate)) (make paragraph use: part-titlepage-verso-style font-size: %bf-size% font-weight: 'medium (process-node-list revdate)) (empty-sosofo))) (make table-cell column-number: 3 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt cell-before-column-margin: (if (equal? (print-backend) 'tex) 6pt 0pt) (if (not (node-list-empty? revauthor)) (make paragraph use: part-titlepage-verso-style font-size: %bf-size% font-weight: 'medium (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make table-row cell-after-row-border: #f (make table-cell column-number: 1 n-columns-spanned: 3 n-rows-spanned: 1 start-indent: 0pt (cond ((not (node-list-empty? revremark)) (make paragraph use: part-titlepage-verso-style font-size: %bf-size% font-weight: 'medium space-after: (if (last-sibling?) 0pt (/ %block-sep% 2)) (process-node-list revremark))) ((not (node-list-empty? revdescription)) (make sequence use: part-titlepage-verso-style font-size: %bf-size% font-weight: 'medium (process-node-list revremark))) (else (empty-sosofo)))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element (revision revdescription) (process-children)) (element seriesvolnums (make paragraph use: part-titlepage-verso-style (process-children))) (element shortaffil (make paragraph use: part-titlepage-verso-style (process-children))) (element subjectset (empty-sosofo)) (element subtitle (make sequence font-family-name: %title-font-family% font-weight: 'bold (literal (if (first-sibling?) ": " "; ")) (process-children))) (element surname (make paragraph use: part-titlepage-verso-style (process-children))) (element title (let ((division (ancestor-member (current-node) (division-element-list)))) (make sequence font-family-name: %title-font-family% font-weight: 'bold (if (string=? (element-label division) "") (empty-sosofo) (literal (element-label division) (gentext-label-title-sep (gi division)))) (with-mode title-mode (process-children))))) (element formalpara ($para-container$)) (element (formalpara title) ($runinhead$)) (element (formalpara para) (make sequence (process-children))) (element titleabbrev (empty-sosofo)) (element volumenum (make paragraph use: part-titlepage-verso-style (process-children))) ) ;; == Title pages for ARTICLEs ========================================== ;; ;; Note: Article title pages are a little different in that they do not ;; create their own simple-page-sequence. ;; (define (article-titlepage-recto-elements) (list (normalize "title") (normalize "subtitle") (normalize "corpauthor") (normalize "authorgroup") (normalize "author") (normalize "releaseinfo") (normalize "copyright") (normalize "pubdate") (normalize "revhistory") (normalize "abstract"))) (define (article-titlepage-verso-elements) '()) (define (article-titlepage-content? elements side) (titlepage-content? elements (if (equal? side 'recto) (article-titlepage-recto-elements) (article-titlepage-verso-elements)))) (define (article-titlepage elements #!optional (side 'recto)) (let* ((nodelist (titlepage-nodelist (if (equal? side 'recto) (article-titlepage-recto-elements) (article-titlepage-verso-elements)) elements))) (if (article-titlepage-content? elements side) (make sequence (let loop ((nl nodelist) (lastnode (empty-node-list))) (if (node-list-empty? nl) (empty-sosofo) (make sequence (if (or (node-list-empty? lastnode) (not (equal? (gi (node-list-first nl)) (gi lastnode)))) (article-titlepage-before (node-list-first nl) side) (empty-sosofo)) (cond ((equal? (gi (node-list-first nl)) (normalize "abbrev")) (article-titlepage-abbrev (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "abstract")) (article-titlepage-abstract (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "address")) (article-titlepage-address (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "affiliation")) (article-titlepage-affiliation (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "artpagenums")) (article-titlepage-artpagenums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "author")) (article-titlepage-author (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorblurb")) (article-titlepage-authorblurb (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorgroup")) (article-titlepage-authorgroup (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorinitials")) (article-titlepage-authorinitials (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "bibliomisc")) (article-titlepage-bibliomisc (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "biblioset")) (article-titlepage-biblioset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "bookbiblio")) (article-titlepage-bookbiblio (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "citetitle")) (article-titlepage-citetitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "collab")) (article-titlepage-collab (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "confgroup")) (article-titlepage-confgroup (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contractnum")) (article-titlepage-contractnum (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contractsponsor")) (article-titlepage-contractsponsor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contrib")) (article-titlepage-contrib (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "copyright")) (article-titlepage-copyright (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "corpauthor")) (article-titlepage-corpauthor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "corpname")) (article-titlepage-corpname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "date")) (article-titlepage-date (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "edition")) (article-titlepage-edition (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "editor")) (article-titlepage-editor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "firstname")) (article-titlepage-firstname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "graphic")) (article-titlepage-graphic (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "honorific")) (article-titlepage-honorific (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "indexterm")) (article-titlepage-indexterm (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "invpartnumber")) (article-titlepage-invpartnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "isbn")) (article-titlepage-isbn (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "issn")) (article-titlepage-issn (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "issuenum")) (article-titlepage-issuenum (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "itermset")) (article-titlepage-itermset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "keywordset")) (article-titlepage-keywordset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "legalnotice")) (article-titlepage-legalnotice (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "lineage")) (article-titlepage-lineage (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "mediaobject")) (article-titlepage-mediaobject (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "modespec")) (article-titlepage-modespec (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "orgname")) (article-titlepage-orgname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "othercredit")) (article-titlepage-othercredit (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "othername")) (article-titlepage-othername (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pagenums")) (article-titlepage-pagenums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "printhistory")) (article-titlepage-printhistory (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "productname")) (article-titlepage-productname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "productnumber")) (article-titlepage-productnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pubdate")) (article-titlepage-pubdate (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "publisher")) (article-titlepage-publisher (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "publishername")) (article-titlepage-publishername (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pubsnumber")) (article-titlepage-pubsnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "releaseinfo")) (article-titlepage-releaseinfo (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "revhistory")) (article-titlepage-revhistory (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "seriesinfo")) (article-titlepage-seriesinfo (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "seriesvolnums")) (article-titlepage-seriesvolnums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "subjectset")) (article-titlepage-subjectset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "subtitle")) (article-titlepage-subtitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "surname")) (article-titlepage-surname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "title")) (article-titlepage-title (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "titleabbrev")) (article-titlepage-titleabbrev (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "volumenum")) (article-titlepage-volumenum (node-list-first nl) side)) (else (article-titlepage-default (node-list-first nl) side))) (loop (node-list-rest nl) (node-list-first nl))))) (if (and %generate-article-toc% %generate-article-toc-on-titlepage% (equal? side 'recto)) (make display-group (build-toc (current-node) (toc-depth (current-node)))) (empty-sosofo))) (empty-sosofo)))) (define (article-titlepage-before node side) (empty-sosofo)) (define (article-titlepage-default node side) (let ((foo (debug (string-append "No article-titlepage-* for " (gi node) "!")))) (empty-sosofo))) (define (article-titlepage-element node side) (if (equal? side 'recto) (with-mode article-titlepage-recto-mode (process-node-list node)) (with-mode article-titlepage-verso-mode (process-node-list node)))) (define (article-titlepage-abbrev node side) (article-titlepage-element node side)) (define (article-titlepage-abstract node side) (article-titlepage-element node side)) (define (article-titlepage-address node side) (article-titlepage-element node side)) (define (article-titlepage-affiliation node side) (article-titlepage-element node side)) (define (article-titlepage-artpagenums node side) (article-titlepage-element node side)) (define (article-titlepage-author node side) (article-titlepage-element node side)) (define (article-titlepage-authorblurb node side) (article-titlepage-element node side)) (define (article-titlepage-authorgroup node side) (article-titlepage-element node side)) (define (article-titlepage-authorinitials node side) (article-titlepage-element node side)) (define (article-titlepage-bibliomisc node side) (article-titlepage-element node side)) (define (article-titlepage-biblioset node side) (article-titlepage node side)) (define (article-titlepage-bookbiblio node side) (article-titlepage node side)) (define (article-titlepage-citetitle node side) (article-titlepage-element node side)) (define (article-titlepage-collab node side) (article-titlepage-element node side)) (define (article-titlepage-confgroup node side) (article-titlepage-element node side)) (define (article-titlepage-contractnum node side) (article-titlepage-element node side)) (define (article-titlepage-contractsponsor node side) (article-titlepage-element node side)) (define (article-titlepage-contrib node side) (article-titlepage-element node side)) (define (article-titlepage-copyright node side) (article-titlepage-element node side)) (define (article-titlepage-corpauthor node side) (if (equal? side 'recto) (book-titlepage-element node side) (if (first-sibling? node) (make paragraph (with-mode book-titlepage-verso-mode (process-node-list (select-elements (children (parent node)) (normalize "corpauthor"))))) (empty-sosofo)))) (define (article-titlepage-corpname node side) (article-titlepage-element node side)) (define (article-titlepage-date node side) (article-titlepage-element node side)) (define (article-titlepage-edition node side) (article-titlepage-element node side)) (define (article-titlepage-editor node side) (article-titlepage-element node side)) (define (article-titlepage-firstname node side) (article-titlepage-element node side)) (define (article-titlepage-graphic node side) (article-titlepage-element node side)) (define (article-titlepage-honorific node side) (article-titlepage-element node side)) (define (article-titlepage-indexterm node side) (article-titlepage-element node side)) (define (article-titlepage-invpartnumber node side) (article-titlepage-element node side)) (define (article-titlepage-isbn node side) (article-titlepage-element node side)) (define (article-titlepage-issn node side) (article-titlepage-element node side)) (define (article-titlepage-issuenum node side) (article-titlepage-element node side)) (define (article-titlepage-itermset node side) (article-titlepage-element node side)) (define (article-titlepage-keywordset node side) (article-titlepage-element node side)) (define (article-titlepage-legalnotice node side) (article-titlepage-element node side)) (define (article-titlepage-lineage node side) (article-titlepage-element node side)) (define (article-titlepage-mediaobject node side) (article-titlepage-element node side)) (define (article-titlepage-modespec node side) (article-titlepage-element node side)) (define (article-titlepage-orgname node side) (article-titlepage-element node side)) (define (article-titlepage-othercredit node side) (article-titlepage-element node side)) (define (article-titlepage-othername node side) (article-titlepage-element node side)) (define (article-titlepage-pagenums node side) (article-titlepage-element node side)) (define (article-titlepage-printhistory node side) (article-titlepage-element node side)) (define (article-titlepage-productname node side) (article-titlepage-element node side)) (define (article-titlepage-productnumber node side) (article-titlepage-element node side)) (define (article-titlepage-pubdate node side) (article-titlepage-element node side)) (define (article-titlepage-publisher node side) (article-titlepage-element node side)) (define (article-titlepage-publishername node side) (article-titlepage-element node side)) (define (article-titlepage-pubsnumber node side) (article-titlepage-element node side)) (define (article-titlepage-releaseinfo node side) (article-titlepage-element node side)) (define (article-titlepage-revhistory node side) (article-titlepage-element node side)) (define (article-titlepage-seriesinfo node side) (article-titlepage-element node side)) (define (article-titlepage-seriesvolnums node side) (article-titlepage-element node side)) (define (article-titlepage-subjectset node side) (article-titlepage-element node side)) (define (article-titlepage-subtitle node side) (article-titlepage-element node side)) (define (article-titlepage-surname node side) (article-titlepage-element node side)) (define (article-titlepage-title node side) (article-titlepage-element node side)) (define (article-titlepage-titleabbrev node side) (article-titlepage-element node side)) (define (article-titlepage-volumenum node side) (article-titlepage-element node side)) (define article-titlepage-recto-style (style font-family-name: %title-font-family% font-weight: 'bold font-size: (HSIZE 1))) (define article-titlepage-verso-style (style font-family-name: %body-font-family%)) (mode article-titlepage-recto-mode (element abbrev (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element abstract (make display-group use: article-titlepage-verso-style ;; EVEN THOUGH IT'S RECTO! quadding: 'start start-indent: (+ (inherited-start-indent) (/ %body-width% 24)) end-indent: (+ (inherited-end-indent) (/ %body-width% 24)) ($semiformal-object$))) (element (abstract title) (empty-sosofo)) (element address (make display-group use: article-titlepage-recto-style quadding: %article-title-quadding% (with-mode titlepage-address-mode ($linespecific-display$ %indent-address-lines% %number-address-lines%)))) (element affiliation (make display-group use: article-titlepage-recto-style (process-children))) (element artpagenums (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element author (let ((author-name (author-string)) (author-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (make paragraph use: article-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor%) quadding: %article-title-quadding% keep-with-next?: #t (literal author-name)) (process-node-list author-affil)))) (element authorblurb (make display-group use: article-titlepage-recto-style quadding: 'start (process-children))) (element (authorblurb para) (make paragraph use: article-titlepage-recto-style quadding: 'start (process-children))) (element authorgroup (make display-group (process-children))) (element authorinitials (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element bibliomisc (process-children)) (element bibliomset (process-children)) (element collab (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element confgroup (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element contractnum (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element contractsponsor (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element contrib (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element copyright (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% space-before: (* (HSIZE 2) %head-before-factor%) (literal (gentext-element-name (current-node))) (literal "\no-break-space;") (literal (dingbat "copyright")) (literal "\no-break-space;") (process-children))) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (literal " ")))) (element (copyright holder) ($charseq$)) (element corpauthor (make sequence (make paragraph use: article-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor%) quadding: %article-title-quadding% keep-with-next?: #t (process-children)) ;; This paragraph is a hack to get the spacing right. ;; Authors always have an affiliation paragraph below them, even if ;; it's empty, so corpauthors need one too. (make paragraph use: article-titlepage-recto-style font-size: (HSIZE 1) line-spacing: (* (HSIZE 1) %line-spacing-factor%) space-after: (* (HSIZE 2) %head-after-factor% 4) quadding: %article-title-quadding% keep-with-next?: #t (literal "\no-break-space;")))) (element corpname (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element date (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element edition (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children) (literal "\no-break-space;") (literal (gentext-element-name-space (gi (current-node)))))) (element editor (let ((editor-name (author-string))) (make sequence (if (first-sibling?) (make paragraph use: article-titlepage-recto-style font-size: (HSIZE 1) line-spacing: (* (HSIZE 1) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor% 6) quadding: %article-title-quadding% keep-with-next?: #t (literal (gentext-edited-by))) (empty-sosofo)) (make paragraph use: article-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-after: (* (HSIZE 2) %head-after-factor% 4) quadding: %article-title-quadding% keep-with-next?: #t (literal editor-name))))) (element firstname (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element graphic (let* ((nd (current-node)) (fileref (attribute-string "fileref" nd)) (entityref (attribute-string "entityref" nd)) (format (attribute-string "format" nd)) (align (attribute-string "align" nd))) (if (or fileref entityref) (make external-graphic notation-system-id: (if format format "") entity-system-id: (if fileref (graphic-file fileref) (if entityref (entity-generated-system-id entityref) "")) display?: #t display-alignment: 'center) (empty-sosofo)))) (element honorific (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element isbn (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element issn (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element itermset (empty-sosofo)) (element invpartnumber (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element issuenum (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element jobtitle (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element keywordset (make paragraph quadding: 'start (make sequence font-weight: 'bold (literal "Keywords: ")) (process-children))) (element keyword (make sequence (process-children) (if (not (last-sibling?)) (literal ", ") (literal "")))) (element legalnotice (make display-group use: article-titlepage-recto-style ($semiformal-object$))) (element (legalnotice title) (empty-sosofo)) (element (legalnotice para) (make paragraph use: article-titlepage-recto-style quadding: 'start line-spacing: (* 0.8 (inherited-line-spacing)) font-size: (* 0.8 (inherited-font-size)) (process-children))) (element lineage (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element modespec (empty-sosofo)) (element orgdiv (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element orgname (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element othercredit (let ((author-name (author-string)) (author-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (make paragraph use: article-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor%) quadding: %article-title-quadding% keep-with-next?: #t (literal author-name)) (process-node-list author-affil)))) (element othername (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element pagenums (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element printhistory (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element productname (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element productnumber (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element pubdate (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element publisher (make display-group use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element publishername (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element pubsnumber (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element releaseinfo (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element revhistory (make sequence (make paragraph use: article-titlepage-recto-style space-before: (* (HSIZE 3) %head-before-factor%) space-after: (/ (* (HSIZE 1) %head-before-factor%) 2) (literal (gentext-element-name (current-node)))) (make table before-row-border: #f (process-children)))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (select-elements (descendants (current-node)) (normalize "revremark"))) (revdescription (select-elements (descendants (current-node)) (normalize "revdescription")))) (make sequence (make table-row (make table-cell column-number: 1 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt (if (not (node-list-empty? revnumber)) (make paragraph use: article-titlepage-recto-style font-size: %bf-size% font-weight: 'medium (literal (gentext-element-name-space (current-node))) (process-node-list revnumber)) (empty-sosofo))) (make table-cell column-number: 2 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt cell-before-column-margin: (if (equal? (print-backend) 'tex) 6pt 0pt) (if (not (node-list-empty? revdate)) (make paragraph use: article-titlepage-recto-style font-size: %bf-size% font-weight: 'medium (process-node-list revdate)) (empty-sosofo))) (make table-cell column-number: 3 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt cell-before-column-margin: (if (equal? (print-backend) 'tex) 6pt 0pt) (if (not (node-list-empty? revauthor)) (make paragraph use: article-titlepage-recto-style font-size: %bf-size% font-weight: 'medium (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make table-row cell-after-row-border: #f (make table-cell column-number: 1 n-columns-spanned: 3 n-rows-spanned: 1 start-indent: 0pt (cond ((not (node-list-empty? revremark)) (make paragraph use: article-titlepage-recto-style font-size: %bf-size% font-weight: 'medium space-after: (if (last-sibling?) 0pt (/ %block-sep% 2)) (process-node-list revremark))) ((not (node-list-empty? revdescription)) (make sequence use: article-titlepage-recto-style font-size: %bf-size% font-weight: 'medium (process-node-list revdescription))) (else (empty-sosofo)))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element (revision revdescription) (process-children)) (element seriesvolnums (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element shortaffil (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element subjectset (empty-sosofo)) (element subtitle (make paragraph use: article-titlepage-recto-style font-size: (HSIZE 4) line-spacing: (* (HSIZE 4) %line-spacing-factor%) space-before: (* (HSIZE 4) %head-before-factor%) quadding: %article-subtitle-quadding% keep-with-next?: #t (process-children-trim))) (element surname (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) (element title (make paragraph use: article-titlepage-recto-style font-size: (HSIZE 5) line-spacing: (* (HSIZE 5) %line-spacing-factor%) space-before: (* (HSIZE 5) %head-before-factor%) quadding: %article-title-quadding% keep-with-next?: #t (with-mode title-mode (process-children-trim)))) (element formalpara ($para-container$)) (element (formalpara title) ($runinhead$)) (element (formalpara para) (make sequence (process-children))) (element titleabbrev (empty-sosofo)) (element volumenum (make paragraph use: article-titlepage-recto-style quadding: %article-title-quadding% (process-children))) ) (mode article-titlepage-verso-mode (element abbrev (make paragraph use: article-titlepage-verso-style (process-children))) (element abstract ($semiformal-object$)) (element (abstract title) (empty-sosofo)) (element address (make display-group use: article-titlepage-verso-style (with-mode titlepage-address-mode ($linespecific-display$ %indent-address-lines% %number-address-lines%)))) (element affiliation (make paragraph use: article-titlepage-verso-style (process-children))) (element artpagenums (make paragraph use: article-titlepage-verso-style (process-children))) (element author ;; Print the author name. Handle the case where there's no AUTHORGROUP (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (not in-group) (make paragraph ;; Hack to get the spacing right below the author name line... space-after: (* %bf-size% %line-spacing-factor%) (make sequence (literal (gentext-by)) (literal "\no-break-space;") (literal (author-list-string)))) (make sequence (literal (author-list-string)))))) (element authorblurb (make paragraph use: article-titlepage-verso-style (process-children))) (element authorgroup (make paragraph space-after: (* %bf-size% %line-spacing-factor%) (make sequence (literal (gentext-by)) (literal "\no-break-space;") (process-children-trim)))) (element authorinitials (make paragraph use: article-titlepage-verso-style (process-children))) (element bibliomisc (process-children)) (element bibliomset (process-children)) (element collab (make paragraph use: article-titlepage-verso-style (process-children))) (element confgroup (make paragraph use: article-titlepage-verso-style (process-children))) (element contractnum (make paragraph use: article-titlepage-verso-style (process-children))) (element contractsponsor (make paragraph use: article-titlepage-verso-style (process-children))) (element contrib (make paragraph use: article-titlepage-verso-style (process-children))) (element copyright (make paragraph use: article-titlepage-verso-style (literal (gentext-element-name (current-node))) (literal "\no-break-space;") (literal (dingbat "copyright")) (literal "\no-break-space;") (process-children))) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (literal " ")))) (element (copyright holder) ($charseq$)) (element corpauthor ;; note: article-titlepage-corpauthor takes care of wrapping multiple ;; corpauthors (make sequence (if (first-sibling?) (if (equal? (gi (parent (current-node))) (normalize "authorgroup")) (empty-sosofo) (literal (gentext-by) " ")) (literal ", ")) (process-children))) (element corpname (make paragraph use: article-titlepage-verso-style (process-children))) (element date (make paragraph use: article-titlepage-verso-style (process-children))) (element edition (make paragraph (process-children) (literal "\no-break-space;") (literal (gentext-element-name-space (gi (current-node)))))) (element editor ;; Print the editor name. (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (or #t (not in-group)) ; nevermind, always put out the Edited by (make paragraph ;; Hack to get the spacing right below the author name line... space-after: (* %bf-size% %line-spacing-factor%) (make sequence (literal (gentext-edited-by)) (literal "\no-break-space;") (literal (author-string)))) (make sequence (literal (author-string)))))) (element firstname (make paragraph use: article-titlepage-verso-style (process-children))) (element graphic (let* ((nd (current-node)) (fileref (attribute-string "fileref" nd)) (entityref (attribute-string "entityref" nd)) (format (attribute-string "format" nd)) (align (attribute-string "align" nd))) (if (or fileref entityref) (make external-graphic notation-system-id: (if format format "") entity-system-id: (if fileref (graphic-file fileref) (if entityref (entity-generated-system-id entityref) "")) display?: #t display-alignment: 'start) (empty-sosofo)))) (element honorific (make paragraph use: article-titlepage-verso-style (process-children))) (element isbn (make paragraph use: article-titlepage-verso-style (process-children))) (element issn (make paragraph use: article-titlepage-verso-style (process-children))) (element itermset (empty-sosofo)) (element invpartnumber (make paragraph use: article-titlepage-verso-style (process-children))) (element issuenum (make paragraph use: article-titlepage-verso-style (process-children))) (element jobtitle (make paragraph use: article-titlepage-verso-style (process-children))) (element keywordset (make paragraph quadding: 'start (make sequence font-weight: 'bold (literal "Keywords: ")) (process-children))) (element (keyword) (make sequence (process-children) (if (not (last-sibling?)) (literal ", ") (literal "")))) (element legalnotice (make display-group use: article-titlepage-verso-style ($semiformal-object$))) (element (legalnotice title) (empty-sosofo)) (element (legalnotice para) (make paragraph use: article-titlepage-verso-style font-size: (* (inherited-font-size) 0.8) (process-children-trim))) (element lineage (make paragraph use: article-titlepage-verso-style (process-children))) (element modespec (empty-sosofo)) (element orgdiv (make paragraph use: article-titlepage-verso-style (process-children))) (element orgname (make paragraph use: article-titlepage-verso-style (process-children))) (element othercredit ;; Print the author name. Handle the case where there's no AUTHORGROUP (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (not in-group) (make paragraph ;; Hack to get the spacing right below the author name line... space-after: (* %bf-size% %line-spacing-factor%) (make sequence (literal (gentext-by)) (literal "\no-break-space;") (literal (author-list-string)))) (make sequence (literal (author-list-string)))))) (element othername (make paragraph use: article-titlepage-verso-style (process-children))) (element pagenums (make paragraph use: article-titlepage-verso-style (process-children))) (element printhistory (make display-group use: article-titlepage-verso-style (process-children))) (element productname (make paragraph use: article-titlepage-verso-style (process-children))) (element productnumber (make paragraph use: article-titlepage-verso-style (process-children))) (element pubdate (make paragraph (literal (gentext-element-name-space (gi (current-node)))) (process-children))) (element publisher (make paragraph use: article-titlepage-verso-style (process-children))) (element publishername (make paragraph use: article-titlepage-verso-style (process-children))) (element pubsnumber (make paragraph use: article-titlepage-verso-style (process-children))) (element releaseinfo (make paragraph use: article-titlepage-verso-style (process-children))) (element revhistory (make sequence (make paragraph use: article-titlepage-verso-style font-family-name: %title-font-family% font-weight: 'bold space-before: (* (HSIZE 3) %head-before-factor%) space-after: (/ (* (HSIZE 1) %head-before-factor%) 2) (literal (gentext-element-name (current-node)))) (make table before-row-border: #f (process-children)))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (select-elements (descendants (current-node)) (normalize "revremark"))) (revdescription (select-elements (descendants (current-node)) (normalize "revdescription")))) (make sequence (make table-row cell-after-row-border: #f (make table-cell column-number: 1 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt (if (node-list-empty? revnumber) (empty-sosofo) (make paragraph use: article-titlepage-verso-style font-size: %bf-size% font-weight: 'medium (literal (gentext-element-name-space (current-node))) (process-node-list revnumber)))) (make table-cell column-number: 2 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt cell-before-column-margin: (if (equal? (print-backend) 'tex) 6pt 0pt) (if (node-list-empty? revdate) (empty-sosofo) (make paragraph use: article-titlepage-verso-style font-size: %bf-size% font-weight: 'medium (process-node-list revdate)))) (make table-cell column-number: 3 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt cell-before-column-margin: (if (equal? (print-backend) 'tex) 6pt 0pt) (if (node-list-empty? revauthor) (empty-sosofo) (make paragraph use: article-titlepage-verso-style font-size: %bf-size% font-weight: 'medium (literal (gentext-revised-by)) (process-node-list revauthor))))) (make table-row cell-after-row-border: #f (make table-cell column-number: 1 n-columns-spanned: 3 n-rows-spanned: 1 start-indent: 0pt (cond ((not (node-list-empty? revremark)) (make paragraph use: article-titlepage-verso-style font-size: %bf-size% font-weight: 'medium space-after: (if (last-sibling?) 0pt (/ %block-sep% 2)) (process-node-list revremark))) ((not (node-list-empty? revdescription)) (make sequence use: article-titlepage-verso-style font-size: %bf-size% font-weight: 'medium (process-node-list revdescription))) (else (empty-sosofo)))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element (revision revdescription) (process-children)) (element seriesvolnums (make paragraph use: article-titlepage-verso-style (process-children))) (element shortaffil (make paragraph use: article-titlepage-verso-style (process-children))) (element subjectset (empty-sosofo)) (element subtitle (make sequence font-family-name: %title-font-family% font-weight: 'bold (literal (if (first-sibling?) ": " "; ")) (process-children))) (element surname (make paragraph use: article-titlepage-verso-style (process-children))) (element title (make sequence font-family-name: %title-font-family% font-weight: 'bold (with-mode title-mode (process-children)))) (element formalpara ($para-container$)) (element (formalpara title) ($runinhead$)) (element (formalpara para) (make sequence (process-children))) (element titleabbrev (empty-sosofo)) (element volumenum (make paragraph use: article-titlepage-verso-style (process-children))) ) ;; == Title pages for REFERENCEs ======================================== (define (reference-titlepage-recto-elements) (list (normalize "title") (normalize "subtitle") (normalize "corpauthor") (normalize "authorgroup") (normalize "author") (normalize "editor"))) (define (reference-titlepage-verso-elements) '()) (define (reference-titlepage-content? elements side) (titlepage-content? elements (if (equal? side 'recto) (reference-titlepage-recto-elements) (reference-titlepage-verso-elements)))) (define (reference-titlepage elements #!optional (side 'recto)) (let ((nodelist (titlepage-nodelist (if (equal? side 'recto) (reference-titlepage-recto-elements) (reference-titlepage-verso-elements)) elements)) ;; partintro is a special case... (partintro (node-list-first (node-list-filter-by-gi elements (list (normalize "partintro")))))) (if (reference-titlepage-content? elements side) (make simple-page-sequence page-n-columns: %titlepage-n-columns% input-whitespace-treatment: 'collapse use: default-text-style ;; This hack is required for the RTF backend. If an external-graphic ;; is the first thing on the page, RTF doesn't seem to do the right ;; thing (the graphic winds up on the baseline of the first line ;; of the page, left justified). This "one point rule" fixes ;; that problem. (make paragraph line-spacing: 1pt (literal "")) (let loop ((nl nodelist) (lastnode (empty-node-list))) (if (node-list-empty? nl) (empty-sosofo) (make sequence (if (or (node-list-empty? lastnode) (not (equal? (gi (node-list-first nl)) (gi lastnode)))) (reference-titlepage-before (node-list-first nl) side) (empty-sosofo)) (cond ((equal? (gi (node-list-first nl)) (normalize "abbrev")) (reference-titlepage-abbrev (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "abstract")) (reference-titlepage-abstract (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "address")) (reference-titlepage-address (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "affiliation")) (reference-titlepage-affiliation (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "artpagenums")) (reference-titlepage-artpagenums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "author")) (reference-titlepage-author (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorblurb")) (reference-titlepage-authorblurb (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorgroup")) (reference-titlepage-authorgroup (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorinitials")) (reference-titlepage-authorinitials (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "bibliomisc")) (reference-titlepage-bibliomisc (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "biblioset")) (reference-titlepage-biblioset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "bookbiblio")) (reference-titlepage-bookbiblio (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "citetitle")) (reference-titlepage-citetitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "collab")) (reference-titlepage-collab (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "confgroup")) (reference-titlepage-confgroup (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contractnum")) (reference-titlepage-contractnum (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contractsponsor")) (reference-titlepage-contractsponsor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contrib")) (reference-titlepage-contrib (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "copyright")) (reference-titlepage-copyright (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "corpauthor")) (reference-titlepage-corpauthor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "corpname")) (reference-titlepage-corpname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "date")) (reference-titlepage-date (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "edition")) (reference-titlepage-edition (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "editor")) (reference-titlepage-editor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "firstname")) (reference-titlepage-firstname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "graphic")) (reference-titlepage-graphic (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "honorific")) (reference-titlepage-honorific (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "indexterm")) (reference-titlepage-indexterm (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "invpartnumber")) (reference-titlepage-invpartnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "isbn")) (reference-titlepage-isbn (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "issn")) (reference-titlepage-issn (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "issuenum")) (reference-titlepage-issuenum (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "itermset")) (reference-titlepage-itermset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "keywordset")) (reference-titlepage-keywordset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "legalnotice")) (reference-titlepage-legalnotice (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "lineage")) (reference-titlepage-lineage (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "mediaobject")) (reference-titlepage-mediaobject (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "modespec")) (reference-titlepage-modespec (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "orgname")) (reference-titlepage-orgname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "othercredit")) (reference-titlepage-othercredit (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "othername")) (reference-titlepage-othername (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pagenums")) (reference-titlepage-pagenums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "printhistory")) (reference-titlepage-printhistory (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "productname")) (reference-titlepage-productname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "productnumber")) (reference-titlepage-productnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pubdate")) (reference-titlepage-pubdate (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "publisher")) (reference-titlepage-publisher (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "publishername")) (reference-titlepage-publishername (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pubsnumber")) (reference-titlepage-pubsnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "releaseinfo")) (reference-titlepage-releaseinfo (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "revhistory")) (reference-titlepage-revhistory (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "seriesinfo")) (reference-titlepage-seriesinfo (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "seriesvolnums")) (reference-titlepage-seriesvolnums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "subjectset")) (reference-titlepage-subjectset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "subtitle")) (reference-titlepage-subtitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "surname")) (reference-titlepage-surname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "title")) (reference-titlepage-title (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "titleabbrev")) (reference-titlepage-titleabbrev (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "volumenum")) (reference-titlepage-volumenum (node-list-first nl) side)) (else (reference-titlepage-default (node-list-first nl) side))) (loop (node-list-rest nl) (node-list-first nl))))) (if (and %generate-reference-toc% %generate-reference-toc-on-titlepage% (equal? side 'recto)) (make display-group (build-toc (current-node) (toc-depth (current-node)))) (empty-sosofo)) ;; PartIntro is a special case (if (and (equal? side 'recto) (not (node-list-empty? partintro)) %generate-partintro-on-titlepage%) ($process-partintro$ partintro #f) (empty-sosofo))) (empty-sosofo)))) (define (reference-titlepage-before node side) (if (equal? side 'recto) (cond ((equal? (gi node) (normalize "corpauthor")) (make paragraph space-after: (* (HSIZE 5) %head-after-factor% 8) (literal "\no-break-space;"))) ((equal? (gi node) (normalize "authorgroup")) (if (have-sibling? (normalize "corpauthor") node) (empty-sosofo) (make paragraph space-after: (* (HSIZE 5) %head-after-factor% 8) (literal "\no-break-space;")))) ((equal? (gi node) (normalize "author")) (if (or (have-sibling? (normalize "corpauthor") node) (have-sibling? (normalize "authorgroup") node)) (empty-sosofo) (make paragraph space-after: (* (HSIZE 5) %head-after-factor% 8) (literal "\no-break-space;")))) (else (empty-sosofo))) (empty-sosofo))) (define (reference-titlepage-default node side) (let ((foo (debug (string-append "No reference-titlepage-* for " (gi node) "!")))) (empty-sosofo))) (define (reference-titlepage-element node side) (if (equal? side 'recto) (with-mode reference-titlepage-recto-mode (process-node-list node)) (with-mode reference-titlepage-verso-mode (process-node-list node)))) (define (reference-titlepage-abbrev node side) (reference-titlepage-element node side)) (define (reference-titlepage-abstract node side) (reference-titlepage-element node side)) (define (reference-titlepage-address node side) (reference-titlepage-element node side)) (define (reference-titlepage-affiliation node side) (reference-titlepage-element node side)) (define (reference-titlepage-artpagenums node side) (reference-titlepage-element node side)) (define (reference-titlepage-author node side) (reference-titlepage-element node side)) (define (reference-titlepage-authorblurb node side) (reference-titlepage-element node side)) (define (reference-titlepage-authorgroup node side) (reference-titlepage-element node side)) (define (reference-titlepage-authorinitials node side) (reference-titlepage-element node side)) (define (reference-titlepage-bibliomisc node side) (reference-titlepage-element node side)) (define (reference-titlepage-biblioset node side) (reference-titlepage node side)) (define (reference-titlepage-bookbiblio node side) (reference-titlepage node side)) (define (reference-titlepage-citetitle node side) (reference-titlepage-element node side)) (define (reference-titlepage-collab node side) (reference-titlepage-element node side)) (define (reference-titlepage-confgroup node side) (reference-titlepage-element node side)) (define (reference-titlepage-contractnum node side) (reference-titlepage-element node side)) (define (reference-titlepage-contractsponsor node side) (reference-titlepage-element node side)) (define (reference-titlepage-contrib node side) (reference-titlepage-element node side)) (define (reference-titlepage-copyright node side) (reference-titlepage-element node side)) (define (reference-titlepage-corpauthor node side) (if (equal? side 'recto) (book-titlepage-element node side) (if (first-sibling? node) (make paragraph (with-mode book-titlepage-verso-mode (process-node-list (select-elements (children (parent node)) (normalize "corpauthor"))))) (empty-sosofo)))) (define (reference-titlepage-corpname node side) (reference-titlepage-element node side)) (define (reference-titlepage-date node side) (reference-titlepage-element node side)) (define (reference-titlepage-edition node side) (reference-titlepage-element node side)) (define (reference-titlepage-editor node side) (reference-titlepage-element node side)) (define (reference-titlepage-firstname node side) (reference-titlepage-element node side)) (define (reference-titlepage-graphic node side) (reference-titlepage-element node side)) (define (reference-titlepage-honorific node side) (reference-titlepage-element node side)) (define (reference-titlepage-indexterm node side) (reference-titlepage-element node side)) (define (reference-titlepage-invpartnumber node side) (reference-titlepage-element node side)) (define (reference-titlepage-isbn node side) (reference-titlepage-element node side)) (define (reference-titlepage-issn node side) (reference-titlepage-element node side)) (define (reference-titlepage-issuenum node side) (reference-titlepage-element node side)) (define (reference-titlepage-itermset node side) (reference-titlepage-element node side)) (define (reference-titlepage-keywordset node side) (reference-titlepage-element node side)) (define (reference-titlepage-legalnotice node side) (reference-titlepage-element node side)) (define (reference-titlepage-lineage node side) (reference-titlepage-element node side)) (define (reference-titlepage-mediaobject node side) (reference-titlepage-element node side)) (define (reference-titlepage-modespec node side) (reference-titlepage-element node side)) (define (reference-titlepage-orgname node side) (reference-titlepage-element node side)) (define (reference-titlepage-othercredit node side) (reference-titlepage-element node side)) (define (reference-titlepage-othername node side) (reference-titlepage-element node side)) (define (reference-titlepage-pagenums node side) (reference-titlepage-element node side)) (define (reference-titlepage-printhistory node side) (reference-titlepage-element node side)) (define (reference-titlepage-productname node side) (reference-titlepage-element node side)) (define (reference-titlepage-productnumber node side) (reference-titlepage-element node side)) (define (reference-titlepage-pubdate node side) (reference-titlepage-element node side)) (define (reference-titlepage-publisher node side) (reference-titlepage-element node side)) (define (reference-titlepage-publishername node side) (reference-titlepage-element node side)) (define (reference-titlepage-pubsnumber node side) (reference-titlepage-element node side)) (define (reference-titlepage-releaseinfo node side) (reference-titlepage-element node side)) (define (reference-titlepage-revhistory node side) (reference-titlepage-element node side)) (define (reference-titlepage-seriesinfo node side) (reference-titlepage-element node side)) (define (reference-titlepage-seriesvolnums node side) (reference-titlepage-element node side)) (define (reference-titlepage-subjectset node side) (reference-titlepage-element node side)) (define (reference-titlepage-subtitle node side) (reference-titlepage-element node side)) (define (reference-titlepage-surname node side) (reference-titlepage-element node side)) (define (reference-titlepage-title node side) (reference-titlepage-element node side)) (define (reference-titlepage-titleabbrev node side) (reference-titlepage-element node side)) (define (reference-titlepage-volumenum node side) (reference-titlepage-element node side)) (define reference-titlepage-recto-style (style font-family-name: %title-font-family% font-weight: 'bold font-size: (HSIZE 1))) (define reference-titlepage-verso-style (style font-family-name: %body-font-family%)) (mode reference-titlepage-recto-mode (element abbrev (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element abstract (make display-group use: reference-titlepage-recto-style quadding: 'start ($semiformal-object$))) (element (abstract title) (empty-sosofo)) (element (abstract para) (make paragraph use: reference-titlepage-recto-style quadding: 'start (process-children))) (element address (make display-group use: reference-titlepage-recto-style quadding: %division-title-quadding% (with-mode titlepage-address-mode ($linespecific-display$ %indent-address-lines% %number-address-lines%)))) (element affiliation (make display-group use: reference-titlepage-recto-style (process-children))) (element artpagenums (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element author (let ((author-name (author-string)) (author-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (make paragraph use: reference-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor%) quadding: %division-title-quadding% keep-with-next?: #t (literal author-name)) (process-node-list author-affil)))) (element authorblurb (make display-group use: reference-titlepage-recto-style quadding: 'start (process-children))) (element (authorblurb para) (make paragraph use: reference-titlepage-recto-style quadding: 'start (process-children))) (element authorgroup (make display-group (process-children))) (element authorinitials (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element bibliomisc (process-children)) (element bibliomset (process-children)) (element collab (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element confgroup (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element contractnum (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element contractsponsor (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element contrib (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element copyright (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% space-before: (* (HSIZE 2) %head-before-factor%) (literal (gentext-element-name (current-node))) (literal "\no-break-space;") (literal (dingbat "copyright")) (literal "\no-break-space;") (process-children))) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (literal " ")))) (element (copyright holder) ($charseq$)) (element corpauthor (make sequence (make paragraph use: reference-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor%) quadding: %division-title-quadding% keep-with-next?: #t (process-children)) ;; This paragraph is a hack to get the spacing right. ;; Authors always have an affiliation paragraph below them, even if ;; it's empty, so corpauthors need one too. (make paragraph use: reference-titlepage-recto-style font-size: (HSIZE 1) line-spacing: (* (HSIZE 1) %line-spacing-factor%) space-after: (* (HSIZE 2) %head-after-factor% 4) quadding: %division-title-quadding% keep-with-next?: #t (literal "\no-break-space;")))) (element corpname (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element date (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element edition (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children) (literal "\no-break-space;") (literal (gentext-element-name-space (gi (current-node)))))) (element editor (let ((editor-name (author-string))) (make sequence (if (first-sibling?) (make paragraph use: reference-titlepage-recto-style font-size: (HSIZE 1) line-spacing: (* (HSIZE 1) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor% 6) quadding: %division-title-quadding% keep-with-next?: #t (literal (gentext-edited-by))) (empty-sosofo)) (make paragraph use: reference-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-after: (* (HSIZE 2) %head-after-factor% 4) quadding: %division-title-quadding% keep-with-next?: #t (literal editor-name))))) (element firstname (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element graphic (let* ((nd (current-node)) (fileref (attribute-string "fileref" nd)) (entityref (attribute-string "entityref" nd)) (format (attribute-string "format" nd)) (align (attribute-string "align" nd))) (if (or fileref entityref) (make external-graphic notation-system-id: (if format format "") entity-system-id: (if fileref (graphic-file fileref) (if entityref (entity-generated-system-id entityref) "")) display?: #t display-alignment: 'center) (empty-sosofo)))) (element honorific (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element isbn (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element issn (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element itermset (empty-sosofo)) (element invpartnumber (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element issuenum (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element jobtitle (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element keywordset (make paragraph quadding: 'start (make sequence font-weight: 'bold (literal "Keywords: ")) (process-children))) (element (keyword) (make sequence (process-children) (if (not (last-sibling?)) (literal ", ") (literal "")))) (element legalnotice (make display-group use: reference-titlepage-recto-style ($semiformal-object$))) (element (legalnotice title) (empty-sosofo)) (element (legalnotice para) (make paragraph use: reference-titlepage-recto-style quadding: 'start line-spacing: (* 0.8 (inherited-line-spacing)) font-size: (* 0.8 (inherited-font-size)) (process-children))) (element lineage (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element modespec (empty-sosofo)) (element orgdiv (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element orgname (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element othercredit (let ((author-name (author-string)) (author-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (make paragraph use: reference-titlepage-recto-style font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor%) quadding: %division-title-quadding% keep-with-next?: #t (literal author-name)) (process-node-list author-affil)))) (element othername (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element pagenums (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element printhistory (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element productname (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element productnumber (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element pubdate (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element publisher (make display-group use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element publishername (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element pubsnumber (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element releaseinfo (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element revhistory (make sequence (make paragraph use: reference-titlepage-recto-style space-before: (* (HSIZE 3) %head-before-factor%) space-after: (/ (* (HSIZE 1) %head-before-factor%) 2) (literal (gentext-element-name (current-node)))) (make table before-row-border: #f (process-children)))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (select-elements (descendants (current-node)) (normalize "revremark"))) (revdescription (select-elements (descendants (current-node)) (normalize "revdescription")))) (make sequence (make table-row (make table-cell column-number: 1 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt (if (not (node-list-empty? revnumber)) (make paragraph use: reference-titlepage-recto-style font-size: %bf-size% font-weight: 'medium (literal (gentext-element-name-space (current-node))) (process-node-list revnumber)) (empty-sosofo))) (make table-cell column-number: 2 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt cell-before-column-margin: (if (equal? (print-backend) 'tex) 6pt 0pt) (if (not (node-list-empty? revdate)) (make paragraph use: reference-titlepage-recto-style font-size: %bf-size% font-weight: 'medium (process-node-list revdate)) (empty-sosofo))) (make table-cell column-number: 3 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt cell-before-column-margin: (if (equal? (print-backend) 'tex) 6pt 0pt) (if (not (node-list-empty? revauthor)) (make paragraph use: reference-titlepage-recto-style font-size: %bf-size% font-weight: 'medium (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make table-row cell-after-row-border: #f (make table-cell column-number: 1 n-columns-spanned: 3 n-rows-spanned: 1 start-indent: 0pt (cond ((not (node-list-empty? revremark)) (make paragraph use: reference-titlepage-recto-style font-size: %bf-size% font-weight: 'medium space-after: (if (last-sibling?) 0pt (/ %block-sep% 2)) (process-node-list revremark))) ((not (node-list-empty? revdescription)) (make sequence use: reference-titlepage-recto-style font-size: %bf-size% font-weight: 'medium (process-node-list revdescription))) (else (empty-sosofo)))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element (revision revdescription) (process-children)) (element seriesvolnums (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element shortaffil (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element subjectset (empty-sosofo)) (element subtitle (make paragraph use: reference-titlepage-recto-style font-size: (HSIZE 4) line-spacing: (* (HSIZE 4) %line-spacing-factor%) space-before: (* (HSIZE 4) %head-before-factor%) quadding: %division-subtitle-quadding% keep-with-next?: #t (process-children-trim))) (element surname (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) (element title (let ((ref (ancestor-member (current-node) (list (normalize "reference"))))) (make paragraph use: reference-titlepage-recto-style font-size: (HSIZE 5) line-spacing: (* (HSIZE 5) %line-spacing-factor%) space-before: (* (HSIZE 5) %head-before-factor%) quadding: %division-title-quadding% keep-with-next?: #t heading-level: (if %generate-heading-level% 1 0) (literal (element-label ref) (gentext-label-title-sep (gi ref))) (with-mode title-mode (process-children))))) (element formalpara ($para-container$)) (element (formalpara title) ($runinhead$)) (element (formalpara para) (make sequence (process-children))) (element titleabbrev (empty-sosofo)) (element volumenum (make paragraph use: reference-titlepage-recto-style quadding: %division-title-quadding% (process-children))) ) (mode reference-titlepage-verso-mode (element abbrev (make paragraph use: reference-titlepage-verso-style (process-children))) (element abstract ($semiformal-object$)) (element (abstract title) (empty-sosofo)) (element address (make display-group use: reference-titlepage-verso-style (with-mode titlepage-address-mode ($linespecific-display$ %indent-address-lines% %number-address-lines%)))) (element affiliation (make paragraph use: reference-titlepage-verso-style (process-children))) (element artpagenums (make paragraph use: reference-titlepage-verso-style (process-children))) (element author ;; Print the author name. Handle the case where there's no AUTHORGROUP (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (not in-group) (make paragraph ;; Hack to get the spacing right below the author name line... space-after: (* %bf-size% %line-spacing-factor%) (make sequence (literal (gentext-by)) (literal "\no-break-space;") (literal (author-list-string)))) (make sequence (literal (author-list-string)))))) (element authorblurb (make paragraph use: reference-titlepage-verso-style (process-children))) (element authorgroup (make paragraph space-after: (* %bf-size% %line-spacing-factor%) (make sequence (literal (gentext-by)) (literal "\no-break-space;") (process-children-trim)))) (element authorinitials (make paragraph use: reference-titlepage-verso-style (process-children))) (element bibliomisc (process-children)) (element bibliomset (process-children)) (element collab (make paragraph use: reference-titlepage-verso-style (process-children))) (element confgroup (make paragraph use: reference-titlepage-verso-style (process-children))) (element contractnum (make paragraph use: reference-titlepage-verso-style (process-children))) (element contractsponsor (make paragraph use: reference-titlepage-verso-style (process-children))) (element contrib (make paragraph use: reference-titlepage-verso-style (process-children))) (element copyright (make paragraph use: reference-titlepage-verso-style (literal (gentext-element-name (current-node))) (literal "\no-break-space;") (literal (dingbat "copyright")) (literal "\no-break-space;") (process-children))) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (literal " ")))) (element (copyright holder) ($charseq$)) (element corpauthor ;; note: reference-titlepage-corpauthor takes care of wrapping multiple ;; corpauthors (make sequence (if (first-sibling?) (if (equal? (gi (parent (current-node))) (normalize "authorgroup")) (empty-sosofo) (literal (gentext-by) " ")) (literal ", ")) (process-children))) (element corpname (make paragraph use: reference-titlepage-verso-style (process-children))) (element date (make paragraph use: reference-titlepage-verso-style (process-children))) (element edition (make paragraph (process-children) (literal "\no-break-space;") (literal (gentext-element-name-space (gi (current-node)))))) (element editor ;; Print the editor name. (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (or #t (not in-group)) ; nevermind, always put out the Edited by (make paragraph ;; Hack to get the spacing right below the author name line... space-after: (* %bf-size% %line-spacing-factor%) (make sequence (literal (gentext-edited-by)) (literal "\no-break-space;") (literal (author-string)))) (make sequence (literal (author-string)))))) (element firstname (make paragraph use: reference-titlepage-verso-style (process-children))) (element graphic (let* ((nd (current-node)) (fileref (attribute-string "fileref" nd)) (entityref (attribute-string "entityref" nd)) (format (attribute-string "format" nd)) (align (attribute-string "align" nd))) (if (or fileref entityref) (make external-graphic notation-system-id: (if format format "") entity-system-id: (if fileref (graphic-file fileref) (if entityref (entity-generated-system-id entityref) "")) display?: #t display-alignment: 'start) (empty-sosofo)))) (element honorific (make paragraph use: reference-titlepage-verso-style (process-children))) (element isbn (make paragraph use: reference-titlepage-verso-style (process-children))) (element issn (make paragraph use: reference-titlepage-verso-style (process-children))) (element itermset (empty-sosofo)) (element invpartnumber (make paragraph use: reference-titlepage-verso-style (process-children))) (element issuenum (make paragraph use: reference-titlepage-verso-style (process-children))) (element jobtitle (make paragraph use: reference-titlepage-verso-style (process-children))) (element keywordset (make paragraph quadding: 'start (make sequence font-weight: 'bold (literal "Keywords: ")) (process-children))) (element (keyword) (make sequence (process-children) (if (not (last-sibling?)) (literal ", ") (literal "")))) (element legalnotice (make display-group use: reference-titlepage-verso-style ($semiformal-object$))) (element (legalnotice title) (empty-sosofo)) (element (legalnotice para) (make paragraph use: reference-titlepage-verso-style font-size: (* (inherited-font-size) 0.8) (process-children-trim))) (element lineage (make paragraph use: reference-titlepage-verso-style (process-children))) (element modespec (empty-sosofo)) (element orgdiv (make paragraph use: reference-titlepage-verso-style (process-children))) (element orgname (make paragraph use: reference-titlepage-verso-style (process-children))) (element othercredit ;; Print the author name. Handle the case where there's no AUTHORGROUP (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (not in-group) (make paragraph ;; Hack to get the spacing right below the author name line... space-after: (* %bf-size% %line-spacing-factor%) (make sequence (literal (gentext-by)) (literal "\no-break-space;") (literal (author-list-string)))) (make sequence (literal (author-list-string)))))) (element othername (make paragraph use: reference-titlepage-verso-style (process-children))) (element pagenums (make paragraph use: reference-titlepage-verso-style (process-children))) (element printhistory (make display-group use: reference-titlepage-verso-style (process-children))) (element productname (make paragraph use: reference-titlepage-verso-style (process-children))) (element productnumber (make paragraph use: reference-titlepage-verso-style (process-children))) (element pubdate (make paragraph (literal (gentext-element-name-space (gi (current-node)))) (process-children))) (element publisher (make paragraph use: reference-titlepage-verso-style (process-children))) (element publishername (make paragraph use: reference-titlepage-verso-style (process-children))) (element pubsnumber (make paragraph use: reference-titlepage-verso-style (process-children))) (element releaseinfo (make paragraph use: reference-titlepage-verso-style (process-children))) (element revhistory (make sequence (make paragraph use: reference-titlepage-verso-style space-before: (* (HSIZE 3) %head-before-factor%) space-after: (/ (* (HSIZE 1) %head-before-factor%) 2) (literal (gentext-element-name (current-node)))) (make table before-row-border: #f (process-children)))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (select-elements (descendants (current-node)) (normalize "revremark"))) (revdescription (select-elements (descendants (current-node)) (normalize "revdescription")))) (make sequence (make table-row (make table-cell column-number: 1 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt (if (not (node-list-empty? revnumber)) (make paragraph use: reference-titlepage-verso-style font-size: %bf-size% font-weight: 'medium (literal (gentext-element-name-space (current-node))) (process-node-list revnumber)) (empty-sosofo))) (make table-cell column-number: 2 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt cell-before-column-margin: (if (equal? (print-backend) 'tex) 6pt 0pt) (if (not (node-list-empty? revdate)) (make paragraph use: reference-titlepage-verso-style font-size: %bf-size% font-weight: 'medium (process-node-list revdate)) (empty-sosofo))) (make table-cell column-number: 3 n-columns-spanned: 1 n-rows-spanned: 1 start-indent: 0pt cell-before-column-margin: (if (equal? (print-backend) 'tex) 6pt 0pt) (if (not (node-list-empty? revauthor)) (make paragraph use: reference-titlepage-verso-style font-size: %bf-size% font-weight: 'medium (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make table-row cell-after-row-border: #f (make table-cell column-number: 1 n-columns-spanned: 3 n-rows-spanned: 1 start-indent: 0pt (cond ((not (node-list-empty? revremark)) (make paragraph use: reference-titlepage-verso-style font-size: %bf-size% font-weight: 'medium space-after: (if (last-sibling?) 0pt (/ %block-sep% 2)) (process-node-list revremark))) ((not (node-list-empty? revdescription)) (make sequence use: reference-titlepage-verso-style font-size: %bf-size% font-weight: 'medium (process-node-list revdescription))) (else (empty-sosofo)))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element (revision revdescription) (process-children)) (element seriesvolnums (make paragraph use: reference-titlepage-verso-style (process-children))) (element shortaffil (make paragraph use: reference-titlepage-verso-style (process-children))) (element subjectset (empty-sosofo)) (element subtitle (make sequence font-family-name: %title-font-family% font-weight: 'bold (literal (if (first-sibling?) ": " "; ")) (process-children))) (element surname (make paragraph use: reference-titlepage-verso-style (process-children))) (element title (let ((ref (ancestor-member (current-node) (list (normalize "reference"))))) (make sequence font-family-name: %title-font-family% font-weight: 'bold (literal (element-label ref) (gentext-label-title-sep (gi ref))) (with-mode title-mode (process-children))))) (element formalpara ($para-container$)) (element (formalpara title) ($runinhead$)) (element (formalpara para) (make sequence (process-children))) (element titleabbrev (empty-sosofo)) (element volumenum (make paragraph use: reference-titlepage-verso-style (process-children))) ) docbook-dsssl-1.79/print/dbtitle.dsl0000644000175000001440000000303307624235465020203 0ustar msmithusers00000000000000;; $Id: dbtitle.dsl,v 1.4 2003/02/17 19:42:45 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; (define title-style (style font-family-name: %title-font-family% font-weight: 'bold quadding: 'start)) ;; So we can pass different sosofo's to this routine and get identical ;; treatment (see REFNAME in dbrfntry.dsl) ;; (define ($lowtitlewithsosofo$ tlevel hlevel sosofo) (let ((hs (HSIZE (- 3 tlevel)))) (make paragraph font-family-name: %title-font-family% font-weight: 'bold font-size: hs line-spacing: (* hs %line-spacing-factor%) space-before: (* hs %head-before-factor%) space-after: (* hs %head-after-factor%) start-indent: %body-start-indent% quadding: 'start keep-with-next?: #t heading-level: (if %generate-heading-level% hlevel 0) sosofo))) (define ($lowtitle$ tlevel hlevel) ($lowtitlewithsosofo$ tlevel hlevel (process-children))) (define ($runinhead$) (let* ((title (data (current-node))) (titlelen (string-length title)) (lastchar (string-ref title (- titlelen 1))) (punct (if (member lastchar %content-title-end-punct%) "" %default-title-end-punct%))) (make sequence font-weight: 'bold (process-children-trim) (literal punct " ")))) (element title ($lowtitle$ 2 4)) ;; the default TITLE format (element titleabbrev (empty-sosofo)) (element subtitle (empty-sosofo)) (mode title-mode (element title (process-children))) docbook-dsssl-1.79/print/dbtable.dsl0000644000175000001440000005347507624121716020161 0ustar msmithusers00000000000000;; $Id: dbtable.dsl,v 1.3 2003/02/17 08:56:46 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; Table support completely reimplemented by norm 15/16 Nov 1997 ;; ;; ====================================================================== ;; ;; This code is intended to implement the SGML Open Exchange Table Model ;; (http://www.sgmlopen.org/sgml/docs/techpubs.htm) as far as is possible ;; in RTF. There are a few areas where this code probably fails to ;; perfectly implement the model: ;; ;; - Mixed column width units (4*+2pi) are not supported. ;; - The behavior that results from mixing relative units with ;; absolute units has not been carefully considered. ;; - TFOOT appears at the bottom of the table, but is not repeated ;; across the bottom of pages (RTF limitation). ;; - ENTRYTBL is not supported. ;; - Rotated tables (e.g. landscape tables in a portrait document) ;; cannot be supported in a simple-page-sequence ;; ;; ====================================================================== ;; ;; My goal in reimplementing the table model was to provide correct ;; formatting in tables that use MOREROWS. The difficulty is that ;; correct formatting depends on calculating the column into which ;; an ENTRY will fall. ;; ;; This is a non-trivial problem because MOREROWS can hang down from ;; preceding rows and ENTRYs may specify starting columns (skipping ;; preceding ones). ;; ;; A simple, elegant recursive algorithm exists. Unfortunately it ;; requires calculating the column number of every preceding cell ;; in the entire table. Without memoization, performance is unacceptable ;; even in relatively small tables (5x5, for example). ;; ;; In order to avoid recursion, the algorithm used below is one that ;; works forward from the beginning of the table and "passes along" ;; the relevant information (column number of the preceding cell and ;; overhang from the MOREROWS in preceding rows). ;; ;; Unfortunately, this means that element construction rules ;; can't always be used to fire the appropriate rule. Instead, ;; each TGROUP has to process each THEAD/BODY/FOOT explicitly. ;; And each of those must process each ROW explicitly, then each ;; ENTRY/ENTRYTBL explicitly. ;; ;; ---------------------------------------------------------------------- ;; ;; I attempted to simplify this code by relying on inheritence from ;; table-column flow objects, but that wasn't entirely successful. ;; Horizontally spanning cells didn't seem to inherit from table-column ;; flow objects that didn't specify equal spanning. There seemed to ;; be other problems as well, but they could have been caused by coding ;; errors on my part. ;; ;; Anyway, by the time I understood how I could use table-column ;; flow objects for inheritence, I'd already implemented all the ;; machinery below to "work it out by hand". ;; ;; ====================================================================== ;; NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE ;; ---------------------------------------------------------------------- ;; A fairly large chunk of this code is in dbcommon.dsl! ;; ====================================================================== ;; ;; Default value for FRAME= on tables (define ($cals-frame-default$) (normalize "all")) ;; Default for COLSEP/ROWSEP if unspecified. (define ($cals-rowsep-default$ #!optional (node (current-node))) ;; Return "0" for #f, "1" for #t ;; Default is to have rules if FRAME=ALL, otherwise not. Except ;; that a separator between HEAD and BODY is controlled by ;; %table-head-body-border%. ;; (let* ((table (ancestor-member node ($table-element-list$))) (frame (if (attribute-string (normalize "frame") table) (attribute-string (normalize "frame") table) ($cals-frame-default$))) (row (ancestor-member node (list (normalize "row"))))) (if (equal? frame (normalize "all")) #t (if (and (equal? (gi (parent row)) (normalize "thead")) (last-sibling? row)) %table-head-body-border% #f)))) (define ($cals-colsep-default$ #!optional (node (current-node))) ;; Default is to have rules if FRAME=ALL, otherwise not. ;; (let* ((table (ancestor-member node ($table-element-list$))) (frame (if (attribute-string (normalize "frame") table) (attribute-string (normalize "frame") table) ($cals-frame-default$)))) (equal? frame (normalize "all")))) ;; Default for VALIGN if unspecified (define ($cals-valign-default$) (normalize "top")) ;; Margins around cell contents (define %cals-cell-before-row-margin% 3pt) (define %cals-cell-after-row-margin% 3pt) (define %cals-cell-before-column-margin% 3pt) (define %cals-cell-after-column-margin% 3pt) ;; Inheritable start and end indent for cell contents (define %cals-cell-content-start-indent% 2pt) (define %cals-cell-content-end-indent% 2pt) ;; How to indent pgwide tables? (Non-pgwide tables get inherited-start-indent (define %cals-pgwide-start-indent% %body-start-indent%) ;; What alignment should tables have on the page (define %cals-display-align% 'start) ;; ---------------------------------------------------------------------- ;; Table rule widths (define %table-before-row-border% #t) (define %table-after-row-border% #t) (define %table-before-column-border% #t) (define %table-after-column-border% #t) (define %table-head-body-border% #t) (define %table-cell-after-column-border% #t) (define %table-cell-after-row-border% #t) ;;(define tbl-color-space ;; (color-space "ISO/IEC 10179:1996//Color-Space Family::Device RGB")) ;; ;;(define tbl-red (color tbl-color-space 1 0 0)) ;;(define tbl-green (color tbl-color-space 0 1 0)) ;;(define tbl-blue (color tbl-color-space 0 0 1)) (define calc-table-before-row-border (if (boolean? %table-before-row-border%) %table-before-row-border% ;; Avoid problems with the DSSSL compiler when ;; %table-before-row-border% is boolean. (let ((border-width %table-before-row-border%)) (make table-border line-thickness: border-width)))) (define calc-table-after-row-border (if (boolean? %table-after-row-border%) %table-after-row-border% (let ((border-width %table-after-row-border%)) (make table-border line-thickness: border-width)))) (define calc-table-before-column-border (if (boolean? %table-before-column-border%) %table-before-column-border% (let ((border-width %table-before-column-border%)) (make table-border line-thickness: border-width)))) (define calc-table-after-column-border (if (boolean? %table-after-column-border%) %table-after-column-border% (let ((border-width %table-after-column-border%)) (make table-border line-thickness: border-width)))) (define calc-table-head-body-border (if (boolean? %table-head-body-border%) %table-head-body-border% (let ((border-width %table-head-body-border%)) (make table-border line-thickness: border-width)))) (define calc-table-cell-after-column-border (if (boolean? %table-cell-after-column-border%) %table-cell-after-column-border% (let ((border-width %table-cell-after-column-border%)) (make table-border line-thickness: border-width)))) (define calc-table-cell-after-row-border (if (boolean? %table-cell-after-row-border%) %table-cell-after-row-border% (let ((border-width %table-cell-after-row-border%)) (make table-border line-thickness: border-width)))) ;; ---------------------------------------------------------------------- ;; Convert colwidth units into table-unit measurements (define (colwidth-unit lenstr) (if (string? lenstr) (let ((number (length-string-number-part lenstr)) (units (length-string-unit-part lenstr))) (if (string=? units "*") (if (string=? number "") (table-unit 1) (table-unit (string->number number))) (if (string=? units "") ;; no units, default to points (* (string->number number) 1pt) (let* ((unum (string->number number)) (uname (case-fold-down units))) (case uname (("mm") (* unum 1mm)) (("cm") (* unum 1cm)) (("in") (* unum 1in)) (("pi") (* unum 1pi)) (("pt") (* unum 1pt)) (("px") (* unum 1px)) ;; unrecognized units; use points (else (* unum 1pt))))))) ;; lenstr is not a string...probably #f (table-unit 1))) (define (cell-align cell colnum) (let* ((entry (ancestor-member cell (list (normalize "entry") (normalize "entrytbl")))) (tgroup (find-tgroup entry)) (spanname (attribute-string (normalize "spanname") entry)) (calsalign (if (attribute-string (normalize "align") entry) (attribute-string (normalize "align") entry) (if (and spanname (spanspec-align (find-spanspec spanname))) (spanspec-align (find-spanspec spanname)) (if (colspec-align (find-colspec-by-number colnum)) (colspec-align (find-colspec-by-number colnum)) (if (tgroup-align tgroup) (tgroup-align tgroup) (normalize "left"))))))) (cond ((equal? calsalign (normalize "left")) 'start) ((equal? calsalign (normalize "center")) 'center) ((equal? calsalign (normalize "right")) 'end) (else 'start)))) (define (cell-valign cell colnum) (let* ((entry (ancestor-member cell (list (normalize "entry") (normalize "entrytbl")))) (row (ancestor (normalize "row") entry)) (tbody (ancestor-member cell (list (normalize "tbody") (normalize "thead") (normalize "tfoot")))) (tgroup (ancestor (normalize "tgroup") entry)) (calsvalign (if (attribute-string (normalize "valign") entry) (attribute-string (normalize "valign") entry) (if (attribute-string (normalize "valign") row) (attribute-string (normalize "valign") row) (if (attribute-string (normalize "valign") tbody) (attribute-string (normalize "valign") tbody) ($cals-valign-default$)))))) (cond ((equal? calsvalign (normalize "top")) 'start) ((equal? calsvalign (normalize "middle")) 'center) ((equal? calsvalign (normalize "bottom")) 'end) (else 'start)))) ;; ====================================================================== ;; Element rules (element tgroup (let ((frame-attribute (if (inherited-attribute-string (normalize "frame")) (inherited-attribute-string (normalize "frame")) ($cals-frame-default$)))) (make table ;; These values are used for the outer edges (well, the top, bottom ;; and left edges for sure; I think the right edge actually comes ;; from the cells in the last column before-row-border: (if (cond ((equal? frame-attribute (normalize "all")) #t) ((equal? frame-attribute (normalize "sides")) #f) ((equal? frame-attribute (normalize "top")) #t) ((equal? frame-attribute (normalize "bottom")) #f) ((equal? frame-attribute (normalize "topbot")) #t) ((equal? frame-attribute (normalize "none")) #f) (else #f)) calc-table-before-row-border #f) after-row-border: (if (cond ((equal? frame-attribute (normalize "all")) #t) ((equal? frame-attribute (normalize "sides")) #f) ((equal? frame-attribute (normalize "top")) #f) ((equal? frame-attribute (normalize "bottom")) #t) ((equal? frame-attribute (normalize "topbot")) #t) ((equal? frame-attribute (normalize "none")) #f) (else #f)) calc-table-after-row-border #f) before-column-border: (if (cond ((equal? frame-attribute (normalize "all")) #t) ((equal? frame-attribute (normalize "sides")) #t) ((equal? frame-attribute (normalize "top")) #f) ((equal? frame-attribute (normalize "bottom")) #f) ((equal? frame-attribute (normalize "topbot")) #f) ((equal? frame-attribute (normalize "none")) #f) (else #f)) calc-table-before-column-border #f) after-column-border: (if (cond ((equal? frame-attribute (normalize "all")) #t) ((equal? frame-attribute (normalize "sides")) #t) ((equal? frame-attribute (normalize "top")) #f) ((equal? frame-attribute (normalize "bottom")) #f) ((equal? frame-attribute (normalize "topbot")) #f) ((equal? frame-attribute (normalize "none")) #f) (else #f)) calc-table-after-column-border #f) display-alignment: %cals-display-align% (make table-part content-map: '((thead header) (tbody #f) (tfoot footer)) ($process-colspecs$ (current-node)) (process-children) (make-table-endnotes))))) (element colspec ;; now handled by $process-colspecs$ at the top of each tgroup... (empty-sosofo)) (element spanspec (empty-sosofo)) (element thead ($process-table-body$ (current-node))) (element tfoot ($process-table-body$ (current-node))) (element tbody ($process-table-body$ (current-node))) (element row (empty-sosofo)) ;; this should never happen, they're processed explicitly (element entry (empty-sosofo)) ;; this should never happen, they're processed explicitly ;; ====================================================================== ;; Functions that handle processing of table bodies, rows, and cells (define ($process-colspecs$ tgroup) (let* ((cols (string->number (attribute-string (normalize "cols"))))) (let loop ((colnum 1)) (if (> colnum cols) (empty-sosofo) (make sequence (let ((colspec (find-colspec-by-number colnum))) (if (node-list-empty? colspec) (make table-column column-number: colnum width: (colwidth-unit "1*")) ($process-colspec$ colspec colnum))) (loop (+ colnum 1))))))) (define ($process-colspec$ colspec colnum) (let* ((colwidth (if (attribute-string (normalize "colwidth") colspec) (attribute-string (normalize "colwidth") colspec) "1*"))) (make table-column column-number: colnum width: (colwidth-unit colwidth)))) (define ($process-table-body$ body) (let* ((tgroup (ancestor (normalize "tgroup") body)) (cols (string->number (attribute-string (normalize "cols") tgroup))) (blabel (cond ((equal? (gi body) (normalize "thead")) 'thead) ((equal? (gi body) (normalize "tbody")) 'tbody) ((equal? (gi body) (normalize "tfoot")) 'tfoot)))) (make sequence label: blabel (let loop ((rows (select-elements (children body) (normalize "row"))) (overhang (constant-list 0 cols))) (if (node-list-empty? rows) (empty-sosofo) (make sequence ($process-row$ (node-list-first rows) overhang) (loop (node-list-rest rows) (update-overhang (node-list-first rows) overhang)))))))) (define ($process-row$ row overhang) (let* ((tgroup (ancestor (normalize "tgroup") row)) (maxcol (string->number (attribute-string (normalize "cols") tgroup))) (lastentry (node-list-last (node-list-filter-out-pis (children row)))) (table (parent tgroup))) ;; there's no point calculating the row or colsep here, each cell ;; specifies it which overrides anything we might say here... (make table-row (let loop ((cells (node-list-filter-out-pis (children row))) (prevcell (empty-node-list))) (if (node-list-empty? cells) (empty-sosofo) (make sequence ($process-cell$ (node-list-first cells) prevcell row overhang) (loop (node-list-rest cells) (node-list-first cells))))) ;; add any necessary empty cells to the end of the row (let loop ((colnum (+ (cell-column-number lastentry overhang) (hspan lastentry)))) (if (> colnum maxcol) (empty-sosofo) (make sequence ($process-empty-cell$ colnum row) (loop (+ colnum 1)))))))) (define ($process-cell$ entry preventry row overhang) (let* ((colnum (cell-column-number entry overhang)) (lastcellcolumn (if (node-list-empty? preventry) 0 (- (+ (cell-column-number preventry overhang) (hspan preventry)) 1))) (lastcolnum (if (> lastcellcolumn 0) (overhang-skip overhang lastcellcolumn) 0)) (font-name (if (have-ancestor? (normalize "thead") entry) %title-font-family% %body-font-family%)) (weight (if (have-ancestor? (normalize "thead") entry) 'bold 'medium)) (align (cell-align entry colnum))) (make sequence ;; This is a little bit complicated. We want to output empty cells ;; to skip over missing data. We start count at the column number ;; arrived at by adding 1 to the column number of the previous entry ;; and skipping over any MOREROWS overhanging entrys. Then for each ;; iteration, we add 1 and skip over any overhanging entrys. (let loop ((count (overhang-skip overhang (+ lastcolnum 1)))) (if (>= count colnum) (empty-sosofo) (make sequence ($process-empty-cell$ count row) (loop (overhang-skip overhang (+ count 1)))))) ;; Now we've output empty cells for any missing entries, so we ;; are ready to output the cell for this entry... (make table-cell column-number: colnum n-columns-spanned: (hspan entry) n-rows-spanned: (vspan entry) cell-row-alignment: (cell-valign entry colnum) cell-after-column-border: (if (cell-colsep entry colnum) calc-table-cell-after-column-border #f) cell-after-row-border: (if (cell-rowsep entry colnum) (if (last-sibling? (parent entry)) calc-table-head-body-border calc-table-cell-after-row-border) #f) cell-before-row-margin: %cals-cell-before-row-margin% cell-after-row-margin: %cals-cell-after-row-margin% cell-before-column-margin: %cals-cell-before-column-margin% cell-after-column-margin: %cals-cell-after-column-margin% ;; If there is some additional indentation (because we're in a list, ;; for example) make sure that gets passed along, but don't add ;; the normal body-start-indent. start-indent: (+ (- (inherited-start-indent) %body-start-indent%) %cals-cell-content-start-indent%) end-indent: %cals-cell-content-end-indent% (if (equal? (gi entry) (normalize "entrytbl")) (make paragraph (literal "ENTRYTBL not supported.")) (make paragraph font-family-name: font-name font-weight: weight quadding: align (process-node-list (children entry)))))))) (define (empty-cell-colsep colnum row) (let* ((tgroup (ancestor (normalize "tgroup") row)) (table (parent tgroup)) (calscolsep (if (tgroup-colsep tgroup) (tgroup-colsep tgroup) (if (attribute-string (normalize "colsep") table) (attribute-string (normalize "colsep") table) (if ($cals-colsep-default$ row) "1" "0"))))) (> (string->number calscolsep) 0))) ;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (cell-colsep cell colnum) (let* ((entry (ancestor-member cell (list (normalize "entry") (normalize "entrytbl")))) (spanname (attribute-string (normalize "spanname") entry)) (tgroup (find-tgroup entry)) (table (parent tgroup)) (calscolsep (if (attribute-string (normalize "colsep") entry) (attribute-string (normalize "colsep") entry) (if (and spanname (spanspec-colsep (find-spanspec spanname))) (spanspec-colsep (find-spanspec spanname)) (if (colspec-colsep (find-colspec-by-number colnum)) (colspec-colsep (find-colspec-by-number colnum)) (if (tgroup-colsep tgroup) (tgroup-colsep tgroup) (if (attribute-string (normalize "colsep") table) (attribute-string (normalize "colsep") table) (if ($cals-colsep-default$ cell) "1" "0")))))))) (> (string->number calscolsep) 0))) (define (cell-rowsep cell colnum) (let* ((entry (ancestor-member cell (list (normalize "entry") (normalize "entrytbl")))) (spanname (attribute-string (normalize "spanname") entry)) (row (ancestor (normalize "row") entry)) (tgroup (find-tgroup entry)) (table (parent tgroup)) (calsrowsep (if (attribute-string (normalize "rowsep") entry) (attribute-string (normalize "rowsep") entry) (if (and spanname (spanspec-rowsep (find-spanspec spanname))) (spanspec-rowsep (find-spanspec spanname)) (if (colspec-rowsep (find-colspec-by-number colnum)) (colspec-rowsep (find-colspec-by-number colnum)) (if (attribute-string (normalize "rowsep") row) (attribute-string (normalize "rowsep") row) (if (tgroup-rowsep tgroup) (tgroup-rowsep tgroup) (if (attribute-string (normalize "rowsep") table) (attribute-string (normalize "rowsep") table) (if ($cals-rowsep-default$ cell) "1" "0"))))))))) (> (string->number calsrowsep) 0))) (define (empty-cell-rowsep colnum row) (let* ((tgroup (ancestor (normalize "tgroup") row)) (table (parent tgroup)) (calsrowsep (if (attribute-string (normalize "rowsep") row) (attribute-string (normalize "rowsep") row) (if (tgroup-rowsep tgroup) (tgroup-rowsep tgroup) (if (attribute-string (normalize "rowsep") table) (attribute-string (normalize "rowsep") table) (if ($cals-rowsep-default$ row) "1" "0")))))) (> (string->number calsrowsep) 0))) ;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define ($process-empty-cell$ colnum row) (make table-cell column-number: colnum n-columns-spanned: 1 n-rows-spanned: 1 cell-after-column-border: (if (empty-cell-colsep colnum row) calc-table-cell-after-column-border #f) cell-after-row-border: (if (empty-cell-rowsep colnum row) (if (last-sibling? row) calc-table-head-body-border calc-table-cell-after-row-border) #f) cell-before-row-margin: %cals-cell-before-row-margin% cell-after-row-margin: %cals-cell-after-row-margin% cell-before-column-margin: %cals-cell-before-column-margin% cell-after-column-margin: %cals-cell-after-column-margin% start-indent: %cals-cell-content-start-indent% end-indent: %cals-cell-content-end-indent% (empty-sosofo))) ;; EOF docbook-dsssl-1.79/print/dbsynop.dsl0000644000175000001440000001664607611215267020242 0ustar msmithusers00000000000000;; $Id: dbsynop.dsl,v 1.3 2003/01/15 08:24:23 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ========================= SYNTAX DEFINITIONS ========================= (element synopsis ($verbatim-display$ %indent-synopsis-lines% %number-synopsis-lines%)) (element cmdsynopsis ;; Can't be an $informal-object$ because it needs the paragraph ;; wrapper around process-children (make display-group start-indent: (+ %block-start-indent% (inherited-start-indent)) space-before: %block-sep% space-after: %block-sep% (make paragraph (process-children)))) ;; Support for ARG provided by James Bostock, augmented by norm ;; (element (cmdsynopsis command) (make sequence (if (first-sibling? (current-node)) (empty-sosofo) (make paragraph-break)) (next-match) (literal " "))) (element group (let ((choice (attribute-string (normalize "choice"))) (rep (attribute-string (normalize "rep"))) (sepchar (if (inherited-attribute-string (normalize "sepchar")) (inherited-attribute-string (normalize "sepchar")) " "))) (make sequence (if (equal? (absolute-child-number (current-node)) 1) (empty-sosofo) (literal sepchar)) (cond ((equal? choice (normalize "plain")) (literal %arg-choice-plain-open-str%)) ((equal? choice (normalize "req")) (literal %arg-choice-req-open-str%)) ((equal? choice (normalize "opt")) (literal %arg-choice-opt-open-str%)) (else (literal %arg-choice-def-open-str%))) (process-children) (cond ((equal? choice (normalize "plain")) (literal %arg-choice-plain-close-str%)) ((equal? choice (normalize "req")) (literal %arg-choice-req-close-str%)) ((equal? choice (normalize "opt")) (literal %arg-choice-opt-close-str%)) (else (literal %arg-choice-def-close-str%))) (cond ((equal? rep (normalize "repeat")) (literal %arg-rep-repeat-str%)) ((equal? rep (normalize "norepeat")) (literal %arg-rep-norepeat-str%)) (else (literal %arg-rep-def-str%)))))) (element arg (let ((choice (attribute-string (normalize "choice"))) (rep (attribute-string (normalize "rep"))) (sepchar (if (inherited-attribute-string (normalize "sepchar")) (inherited-attribute-string (normalize "sepchar")) " "))) (make sequence (if (equal? (absolute-child-number (current-node)) 1) (empty-sosofo) (literal sepchar)) (cond ((equal? choice (normalize "plain")) (literal %arg-choice-plain-open-str%)) ((equal? choice (normalize "req")) (literal %arg-choice-req-open-str%)) ((equal? choice (normalize "opt")) (literal %arg-choice-opt-open-str%)) (else (literal %arg-choice-def-open-str%))) (process-children) (cond ((equal? rep (normalize "repeat")) (literal %arg-rep-repeat-str%)) ((equal? rep (normalize "norepeat")) (literal %arg-rep-norepeat-str%)) (else (literal %arg-rep-def-str%))) (cond ((equal? choice (normalize "plain")) (literal %arg-choice-plain-close-str%)) ((equal? choice (normalize "req")) (literal %arg-choice-req-close-str%)) ((equal? choice (normalize "opt")) (literal %arg-choice-opt-close-str%)) (else (literal %arg-choice-def-close-str%)))))) (element (group arg) (let ((choice (attribute-string (normalize "choice"))) (rep (attribute-string (normalize "rep")))) (make sequence (if (not (first-sibling? (current-node))) (literal %arg-or-sep%) (empty-sosofo)) (process-children)))) (element sbr (make paragraph-break)) ;; ---------------------------------------------------------------------- ;; Syntax highlighting... (define (funcsynopsis-function #!optional (sosofo (process-children))) (make sequence font-weight: 'bold sosofo)) (define (paramdef-parameter #!optional (sosofo (process-children))) (make sequence font-posture: 'italic sosofo)) ;; ---------------------------------------------------------------------- (element synopfragmentref (let* ((target (element-with-id (attribute-string (normalize "linkend")))) (snum (child-number target))) (make sequence font-posture: 'italic (make link destination: (node-list-address target) (make sequence font-posture: 'upright ($callout-bug$ snum))) (process-children)))) (element synopfragment (let ((snum (child-number (current-node)))) (make paragraph ($callout-bug$ snum) (literal " ") (process-children)))) (element funcsynopsis (let* ((width-in-chars (if (attribute-string "width") (string->number (attribute-string "width")) %verbatim-default-width%)) (fsize (lambda () (if (or (attribute-string (normalize "width")) (not %verbatim-size-factor%)) (/ (/ (- %text-width% (inherited-start-indent)) width-in-chars) 0.7) (* (inherited-font-size) %verbatim-size-factor%))))) ;; This used to be a sequence, but that caused the start-indent to be ;; wrong when it was the first element of a RefSect. Making it a ;; paragraph makes the bug go away and doesn't seem to have any ill ;; effects. Need to investigate further... (make paragraph font-family-name: %mono-font-family% font-size: (fsize) font-weight: 'medium font-posture: 'upright line-spacing: (* (fsize) %line-spacing-factor%) ($informal-object$)))) (element funcsynopsisinfo ;; Fake out the font-size so that when verbatim-display calculates the ;; verbatim-size-factor it doesn't get squared. This will fail if the ;; "correct" size isn't bfsize, but what can I do? (make sequence font-size: %bf-size% ($verbatim-display$ %indent-funcsynopsisinfo-lines% %number-funcsynopsisinfo-lines%))) (element funcprototype (let ((paramdefs (select-elements (children (current-node)) (normalize "paramdef")))) (make sequence (make paragraph font-family-name: %mono-font-family% (process-children)) (if (equal? %funcsynopsis-style% 'kr) (with-mode kr-funcsynopsis-mode (process-node-list paramdefs)) (empty-sosofo))))) (element funcdef (process-children)) (element (funcdef function) (if %funcsynopsis-decoration% (funcsynopsis-function) (process-children))) (element void (if (equal? %funcsynopsis-style% 'ansi) (literal "(void);") (literal "();"))) (element varargs (literal "(...);")) (element paramdef (let ((param (select-elements (children (current-node)) (normalize "parameter")))) (make sequence (if (equal? (child-number (current-node)) 1) (literal "(") (empty-sosofo)) (if (equal? %funcsynopsis-style% 'ansi) (process-children) (process-node-list param)) (if (equal? (gi (ifollow (current-node))) (normalize "paramdef")) (literal ", ") (literal ");"))))) (element (paramdef parameter) (make sequence (if %funcsynopsis-decoration% (paramdef-parameter) (process-children)) (if (equal? (gi (ifollow (current-node))) (normalize "parameter")) (literal ", ") (empty-sosofo)))) (element funcparams (make sequence (literal "(") (process-children) (literal ")"))) (mode kr-funcsynopsis-mode (element paramdef (make sequence (make paragraph font-family-name: %mono-font-family% start-indent: (+ (inherited-start-indent) %kr-funcsynopsis-indent%) (make sequence (process-children) (literal ";")))))) docbook-dsssl-1.79/print/dbsect.dsl0000644000175000001440000001505507640131725020017 0ustar msmithusers00000000000000;; $Id: dbsect.dsl,v 1.6 2003/03/25 19:53:57 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ============================== SECTIONS ============================== (define (SECTLEVEL #!optional (sect (current-node))) (section-level-by-node #f sect)) ;; BRIDGEHEAD isn't a proper section, but appears to be a section title (element bridgehead (let* ((renderas (attribute-string "renderas")) ;; the apparent section level (hlevel ;; if not real section level, then get the apparent level ;; from "renderas" (if renderas (section-level-by-gi #f (normalize renderas)) ;; else use the real level (SECTLEVEL))) (hs (HSIZE (- 5 hlevel)))) (make paragraph font-family-name: %title-font-family% font-weight: (if (< hlevel 5) 'bold 'medium) font-posture: (if (< hlevel 5) 'upright 'italic) font-size: hs line-spacing: (* hs %line-spacing-factor%) space-before: (* hs %head-before-factor%) space-after: (* hs %head-after-factor%) start-indent: (if (< hlevel 3) 0pt %body-start-indent%) first-line-start-indent: 0pt quadding: %section-title-quadding% keep-with-next?: #t (process-children)))) (define ($section$) (if (node-list=? (current-node) (sgml-root-element)) (make simple-page-sequence page-n-columns: %page-n-columns% page-number-restart?: (or %page-number-restart% (book-start?) (first-chapter?)) page-number-format: ($page-number-format$) use: default-text-style left-header: ($left-header$) center-header: ($center-header$) right-header: ($right-header$) left-footer: ($left-footer$) center-footer: ($center-footer$) right-footer: ($right-footer$) start-indent: %body-start-indent% input-whitespace-treatment: 'collapse quadding: %default-quadding% (make sequence ($section-title$) (process-children))) (make display-group space-before: %block-sep% space-after: %block-sep% start-indent: %body-start-indent% (make sequence ($section-title$) (process-children))))) (define ($section-title$) (let* ((sect (current-node)) (info (info-element)) (exp-children (if (node-list-empty? info) (empty-node-list) (expand-children (children info) (list (normalize "bookbiblio") (normalize "bibliomisc") (normalize "biblioset"))))) (parent-titles (select-elements (children sect) (normalize "title"))) (info-titles (select-elements exp-children (normalize "title"))) (titles (if (node-list-empty? parent-titles) info-titles parent-titles)) (subtitles (select-elements exp-children (normalize "subtitle"))) (renderas (inherited-attribute-string (normalize "renderas") sect)) ;; the apparent section level (hlevel ;; if not real section level, then get the apparent level ;; from "renderas" (if renderas (section-level-by-gi #f (normalize renderas)) ;; else use the real level (SECTLEVEL))) (hs (HSIZE (- 5 hlevel)))) (make sequence (make paragraph font-family-name: %title-font-family% font-weight: (if (< hlevel 5) 'bold 'medium) font-posture: (if (< hlevel 5) 'upright 'italic) font-size: hs line-spacing: (* hs %line-spacing-factor%) space-before: (* hs %head-before-factor%) space-after: (if (node-list-empty? subtitles) (* hs %head-after-factor%) 0pt) start-indent: (if (or (>= hlevel 3) (member (gi) (list (normalize "refsynopsisdiv") (normalize "refsect1") (normalize "refsect2") (normalize "refsect3")))) %body-start-indent% 0pt) first-line-start-indent: 0pt quadding: %section-title-quadding% keep-with-next?: #t heading-level: (if %generate-heading-level% hlevel 0) ;; SimpleSects are never AUTO numbered...they aren't hierarchical (if (string=? (element-label (current-node)) "") (empty-sosofo) (literal (element-label (current-node)) (gentext-label-title-sep (gi sect)))) (element-title-sosofo (current-node))) (with-mode section-title-mode (process-node-list subtitles)) ($proc-section-info$ info)))) (mode section-title-mode (element subtitle (let* ((sect (parent (parent (current-node)))) ;; parent=>sect*info (renderas (inherited-attribute-string "renderas" sect)) ;; the apparent section level (hlevel ;; if not real section level, then get the apparent level ;; from "renderas" (if renderas (section-level-by-gi #f (normalize renderas)) ;; else use the real level (SECTLEVEL))) (hs (HSIZE (- 4 hlevel)))) ;; one smaller than the title... (make paragraph font-family-name: %title-font-family% font-weight: (if (< hlevel 5) 'bold 'medium) font-posture: (if (< hlevel 5) 'upright 'italic) font-size: hs line-spacing: (* hs %line-spacing-factor%) space-before: 0pt space-after: (* hs %head-after-factor%) start-indent: (if (< hlevel 3) 0pt %body-start-indent%) first-line-start-indent: 0pt quadding: %section-subtitle-quadding% keep-with-next?: #t (process-children)))) ) (define ($proc-section-info$ info) (cond ((equal? (gi) (normalize "sect1")) ($sect1-info$ info)) ((equal? (gi) (normalize "sect2")) ($sect2-info$ info)) ((equal? (gi) (normalize "sect3")) ($sect3-info$ info)) ((equal? (gi) (normalize "sect4")) ($sect4-info$ info)) ((equal? (gi) (normalize "sect5")) ($sect5-info$ info)) ((equal? (gi) (normalize "section")) ($section-info$ info)) ((equal? (gi) (normalize "refsect1")) ($refsect1-info$ info)) ((equal? (gi) (normalize "refsect2")) ($refsect2-info$ info)) ((equal? (gi) (normalize "refsect3")) ($refsect3-info$ info)) (else (empty-sosofo)))) (define ($sect1-info$ info) (empty-sosofo)) (define ($sect2-info$ info) (empty-sosofo)) (define ($sect3-info$ info) (empty-sosofo)) (define ($sect4-info$ info) (empty-sosofo)) (define ($sect5-info$ info) (empty-sosofo)) (define ($section-info$ info) (empty-sosofo)) (define ($refsect1-info$ info) (empty-sosofo)) (define ($refsect2-info$ info) (empty-sosofo)) (define ($refsect3-info$ info) (empty-sosofo)) (element section ($section$)) (element (section title) (empty-sosofo)) (element sect1 ($section$)) (element (sect1 title) (empty-sosofo)) (element sect2 ($section$)) (element (sect2 title) (empty-sosofo)) (element sect3 ($section$)) (element (sect3 title) (empty-sosofo)) (element sect4 ($section$)) (element (sect4 title) (empty-sosofo)) (element sect5 ($section$)) (element (sect5 title) (empty-sosofo)) (element simplesect ($section$)) (element (simplesect title) (empty-sosofo)) docbook-dsssl-1.79/print/dbrfntry.dsl0000644000175000001440000001477307611215267020415 0ustar msmithusers00000000000000;; $Id: dbrfntry.dsl,v 1.3 2003/01/15 08:24:23 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; =========================== REFERENCE PAGES ========================== ;;(element reference ($component$)) (element reference (let* ((refinfo (select-elements (children (current-node)) (normalize "docinfo"))) (refintro (select-elements (children (current-node)) (normalize "partintro"))) (nl (titlepage-info-elements (current-node) refinfo (if %generate-partintro-on-titlepage% refintro (empty-node-list))))) (make sequence (if %generate-reference-titlepage% (make sequence (reference-titlepage nl 'recto) (reference-titlepage nl 'verso)) (empty-sosofo)) (if (not (generate-toc-in-front)) (process-children) (empty-sosofo)) (if (and %generate-reference-toc% (not %generate-reference-toc-on-titlepage%)) (make simple-page-sequence page-n-columns: %page-n-columns% page-number-restart?: #t page-number-format: ($page-number-format$ (normalize "toc")) use: default-text-style left-header: ($left-header$ (normalize "toc")) center-header: ($center-header$ (normalize "toc")) right-header: ($right-header$ (normalize "toc")) left-footer: ($left-footer$ (normalize "toc")) center-footer: ($center-footer$ (normalize "toc")) right-footer: ($right-footer$ (normalize "toc")) input-whitespace-treatment: 'collapse (build-toc (current-node) (toc-depth (current-node)))) (empty-sosofo)) (if (and (not (node-list-empty? refintro)) (not %generate-partintro-on-titlepage%)) ($process-partintro$ refintro #t) (empty-sosofo)) (if (generate-toc-in-front) (if %refentry-new-page% (process-children) (make simple-page-sequence page-n-columns: %page-n-columns% page-number-format: ($page-number-format$) use: default-text-style left-header: ($left-header$) center-header: ($center-header$) right-header: ($right-header$) left-footer: ($left-footer$) center-footer: ($center-footer$) right-footer: ($right-footer$) input-whitespace-treatment: 'collapse quadding: %default-quadding% (process-children))) (empty-sosofo))))) ;; If each RefEntry begins on a new page, this title is going to wind ;; up on its own page, too, so make it a divtitlepage instead. Otherwise, ;; just let it be a component title. (element (reference title) (empty-sosofo)) ;; (if %refentry-new-page% ;; ($divtitlepage$) ;; (empty-sosofo))) (element refentry (make display-group keep: %refentry-keep% (if (or %refentry-new-page% (node-list=? (current-node) (sgml-root-element))) (make simple-page-sequence page-n-columns: %page-n-columns% page-number-format: ($page-number-format$) use: default-text-style left-header: ($left-header$) center-header: ($center-header$) right-header: ($right-header$) left-footer: ($left-footer$) center-footer: ($center-footer$) right-footer: ($right-footer$) input-whitespace-treatment: 'collapse quadding: %default-quadding% ($refentry-title$) (process-children)) (make sequence ($refentry-title$) ($block-container$))) (make-endnotes))) (define ($refentry-title$) (let* ((refmeta (select-elements (children (current-node)) (normalize "refmeta"))) (refentrytitle (select-elements (children refmeta) (normalize "refentrytitle"))) (refnamediv (select-elements (children (current-node)) (normalize "refnamediv"))) (refdescriptor (select-elements (children refnamediv) (normalize "refdescriptor"))) (refname (select-elements (children refnamediv) (normalize "refname"))) (title (if (node-list-empty? refentrytitle) (if (node-list-empty? refdescriptor) (node-list-first refname) refdescriptor) refentrytitle)) (slevel (SECTLEVEL)) ;; the true level in the section hierarchy (hlevel (if (> slevel 2) 2 slevel)) ;; limit to sect2 equiv. (hs (HSIZE (- 4 hlevel)))) (make paragraph font-family-name: %title-font-family% font-weight: 'bold font-size: hs line-spacing: (* hs %line-spacing-factor%) space-before: (* hs %head-before-factor%) space-after: (* hs %head-after-factor%) start-indent: %body-start-indent% first-line-start-indent: (- %body-start-indent%) quadding: 'start heading-level: (if %generate-heading-level% 2 0) keep-with-next?: #t (process-node-list (children title))))) ;; nwalsh, this is wrong, 29 July 1999 ; (if %refentry-function% ; (sosofo-append ; (literal "\no-break-space;") ; (process-first-descendant (normalize "manvolnum"))) ; (empty-sosofo))))) (element refmeta (empty-sosofo)) ;; handled by $refentry-title$ (element manvolnum (if %refentry-xref-manvolnum% (sosofo-append (literal "(") (process-children) (literal ")")) (empty-sosofo))) (element refmiscinfo (empty-sosofo)) (element refentrytitle ($charseq$)) (element refnamediv (make paragraph space-before: %para-sep% start-indent: %body-start-indent% quadding: 'start (process-children))) (element refname (make sequence (if (and %refentry-generate-name% (first-sibling? (current-node))) ($lowtitlewithsosofo$ 1 3 (literal (gentext-element-name (current-node)))) (empty-sosofo)) (make sequence font-weight: 'medium font-family-name: %refentry-name-font-family% (process-children) (if (last-sibling? (current-node)) (empty-sosofo) (literal (gentext-intra-label-sep (gi (current-node)))))))) (element refpurpose (make sequence font-family-name: %body-font-family% (make sequence (literal " \em-dash ") (process-children)) (make paragraph-break))) (element refdescriptor (empty-sosofo)) (element refclass (let ((role (attribute-string "role"))) (make paragraph space-before: %para-sep% start-indent: %body-start-indent% quadding: 'start (make sequence font-weight: 'bold (literal (if role (string-append role ": ") ""))) (process-children-trim)))) (element refsynopsisdiv ($section$)) (element (refsynopsisdiv title) (empty-sosofo)) (element refsect1 ($section$)) (element (refsect1 title) (empty-sosofo)) (element refsect2 ($section$)) (element (refsect2 title) (empty-sosofo)) (element refsect3 ($section$)) (element (refsect3 title) (empty-sosofo)) docbook-dsssl-1.79/print/dbqanda.dsl0000644000175000001440000000745507640131724020151 0ustar msmithusers00000000000000;; $Id: dbqanda.dsl,v 1.1 2003/03/25 19:53:56 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ============================== QANDASET ============================== (define (qanda-defaultlabel) (normalize "number")) (element qandaset (let ((title (select-elements (children (current-node)) (normalize "title")))) (make display-group (process-node-list title) (process-qanda)))) (element (qandaset title) (let* ((enclsect (ancestor-member (current-node) (list (normalize "section") (normalize "simplesect") (normalize "sect5") (normalize "sect4") (normalize "sect3") (normalize "sect2") (normalize "sect1") (normalize "refsect3") (normalize "refsect2") (normalize "refsect1")))) (sectlvl (SECTLEVEL enclsect)) (hs (HSIZE (- 4 (+ sectlvl 1))))) (make paragraph font-family-name: %title-font-family% font-weight: (if (< sectlvl 5) 'bold 'medium) font-posture: (if (< sectlvl 5) 'upright 'italic) font-size: hs line-spacing: (* hs %line-spacing-factor%) space-before: (* hs %head-before-factor%) space-after: (* hs %head-after-factor%) start-indent: %body-start-indent% first-line-start-indent: 0pt quadding: %section-title-quadding% keep-with-next?: #t (process-children)))) (element qandadiv (let ((title (select-elements (children (current-node)) (normalize "title")))) (make sequence (process-node-list title) (make display-group start-indent: (+ (inherited-start-indent) 2pi) (process-qanda))))) (element (qandadiv title) (let* ((hnr (hierarchical-number-recursive (normalize "qandadiv") (current-node))) (number (let loop ((numlist hnr) (number "") (sep "")) (if (null? numlist) number (loop (cdr numlist) (string-append number sep (number->string (car numlist))) "."))))) (make paragraph font-weight: 'bold space-after: %block-sep% (literal number ". ") (process-children)))) (define (process-qanda #!optional (node (current-node))) (let* ((preamble (node-list-filter-by-not-gi (children node) (list (normalize "title") (normalize "qandadiv") (normalize "qandaentry")))) (divs (node-list-filter-by-gi (children node) (list (normalize "qandadiv")))) (entries (node-list-filter-by-gi (children node) (list (normalize "qandaentry")))) (inhlabel (inherited-attribute-string (normalize "defaultlabel"))) (deflabel (if inhlabel inhlabel (qanda-defaultlabel)))) (make sequence (process-node-list preamble) (process-node-list divs) (process-node-list entries)))) (element qandaentry (process-children)) (element question (let* ((chlist (children (current-node))) (firstch (node-list-first chlist)) (restch (node-list-rest chlist)) (label (question-answer-label (current-node)))) (make sequence (make paragraph space-after: (/ %para-sep% 2) keep-with-next?: #t (make sequence (make sequence font-weight: 'bold (if (string=? label "") (empty-sosofo) (literal label " "))) (process-node-list (children firstch))) (process-node-list restch))))) (element answer (let* ((chlist (children (current-node))) (firstch (node-list-first chlist)) (restch (node-list-rest chlist)) (label (question-answer-label (current-node)))) (make display-group space-after: %block-sep% (make paragraph (make sequence (make sequence font-weight: 'bold (if (string=? label "") (empty-sosofo) (literal label " "))) (process-node-list (children firstch)))) (process-node-list restch)))) docbook-dsssl-1.79/print/dbprocdr.dsl0000644000175000001440000000231707611215267020351 0ustar msmithusers00000000000000;; $Id: dbprocdr.dsl,v 1.2 2003/01/15 08:24:23 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ============================= PROCEDURES ============================= (define (PROCSTEP ilvl) (if (> ilvl 1) 2.0em 1.8em)) (element procedure (if (node-list-empty? (select-elements (children (current-node)) (normalize "title"))) ($informal-object$) ($formal-object$))) (element (procedure title) (empty-sosofo)) (element substeps (make display-group space-before: %para-sep% space-after: %para-sep% start-indent: (+ (inherited-start-indent) (PROCSTEP 2)))) (element step (let ((stepcontent (children (current-node))) (ilevel (length (hierarchical-number-recursive (normalize "step"))))) (make sequence start-indent: (+ (inherited-start-indent) (PROCSTEP ilevel)) (make paragraph space-before: %para-sep% first-line-start-indent: (- (PROCSTEP ilevel)) (make line-field field-width: (PROCSTEP ilevel) (literal ($proc-step-number$ (current-node)))) (process-node-list (children (node-list-first stepcontent)))) (process-node-list (node-list-rest stepcontent))))) docbook-dsssl-1.79/print/dbprint.dsl0000644000175000001440000001336710132041021020174 0ustar msmithusers00000000000000;; $Id: dbprint.dsl,v 1.6 2004/10/09 19:46:33 petere78 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; (define (HSIZE n) (let ((m (if (< n 0) 0 n))) (* %bf-size% (expt %hsize-bump-factor% m)))) (define (print-backend) (cond (tex-backend 'tex) (mif-backend 'mif) (rtf-backend 'rtf) (else default-backend))) ;; ====================== COMMON STYLE TEMPLATES ======================= (define ($block-container$) (make display-group space-before: %block-sep% space-after: %block-sep% start-indent: %body-start-indent% (process-children))) (define (is-first-para #!optional (para (current-node))) ;; A paragraph is the first paragraph if it is preceded by a title ;; (or bridgehead) and the only elements that intervene between the ;; title and the paragraph are *info elements, indexterms, and beginpage. ;; (let loop ((nd (ipreced para))) (if (node-list-empty? nd) ;; We've run out of nodes. We still might be the first paragraph ;; preceded by a title if the parent element has an implied ;; title. (if (equal? (element-title-string (parent para)) "") #f ;; nope #t) ;; yep (if (or (equal? (gi nd) (normalize "title")) (equal? (gi nd) (normalize "titleabbrev")) (equal? (gi nd) (normalize "bridgehead"))) #t (if (or (not (equal? (node-property 'class-name nd) 'element)) (member (gi nd) (info-element-list))) (loop (ipreced nd)) #f))))) (define (dsssl-language-code #!optional (node (current-node))) (let* ((lang ($lang$)) (langcode (if (> (string-index lang "_") 0) (substring lang 0 (string-index lang "_")) lang))) (string->symbol (case-fold-up langcode)))) (define (dsssl-country-code #!optional (node (current-node))) (let* ((lang ($lang$)) (ctrycode (if (> (string-index lang "_") 0) (substring lang (+ (string-index lang "_") 1) (string-length lang)) #f))) (if ctrycode (string->symbol (case-fold-up ctrycode)) #f))) (define ($paragraph$) (if (or (equal? (print-backend) 'tex) (equal? (print-backend) #f)) ;; avoid using country: characteristic because of a JadeTeX bug... (make paragraph first-line-start-indent: (if (is-first-para) %para-indent-firstpara% %para-indent%) space-before: %para-sep% space-after: (if (INLIST?) 0pt %para-sep%) quadding: %default-quadding% hyphenate?: %hyphenation% language: (dsssl-language-code) (process-children-trim)) (make paragraph first-line-start-indent: (if (is-first-para) %para-indent-firstpara% %para-indent%) space-before: %para-sep% space-after: (if (INLIST?) 0pt %para-sep%) quadding: %default-quadding% hyphenate?: %hyphenation% language: (dsssl-language-code) country: (dsssl-country-code) (process-children-trim)))) (define ($para-container$) (make paragraph space-before: %para-sep% space-after: %para-sep% start-indent: (if (member (current-node) (outer-parent-list)) %body-start-indent% (inherited-start-indent)) (process-children-trim))) (define ($indent-para-container$) (make paragraph space-before: %para-sep% space-after: %para-sep% start-indent: (+ (inherited-start-indent) (* (ILSTEP) 2)) quadding: %default-quadding% (process-children-trim))) (define nop-style ;; a nop for use: (style font-family-name: (inherited-font-family-name) font-weight: (inherited-font-weight) font-size: (inherited-font-size))) (define default-text-style (style font-size: %bf-size% font-weight: 'medium font-posture: 'upright font-family-name: %body-font-family% line-spacing: (* %bf-size% %line-spacing-factor%))) (define ($bold-seq$ #!optional (sosofo (process-children))) (make sequence font-weight: 'bold sosofo)) (define ($italic-seq$ #!optional (sosofo (process-children))) (make sequence font-posture: 'italic sosofo)) (define ($bold-italic-seq$ #!optional (sosofo (process-children))) (make sequence font-weight: 'bold font-posture: 'italic sosofo)) (define ($mono-seq$ #!optional (sosofo (process-children))) (let ((%factor% (if %verbatim-size-factor% %verbatim-size-factor% 1.0))) (make sequence font-family-name: %mono-font-family% font-size: (* (inherited-font-size) %factor%) sosofo))) (define ($italic-mono-seq$ #!optional (sosofo (process-children))) (let ((%factor% (if %verbatim-size-factor% %verbatim-size-factor% 1.0))) (make sequence font-family-name: %mono-font-family% font-size: (* (inherited-font-size) %factor%) font-posture: 'italic sosofo))) (define ($bold-mono-seq$ #!optional (sosofo (process-children))) (let ((%factor% (if %verbatim-size-factor% %verbatim-size-factor% 1.0))) (make sequence font-family-name: %mono-font-family% font-size: (* (inherited-font-size) %factor%) font-weight: 'bold sosofo))) (define ($score-seq$ stype #!optional (sosofo (process-children))) (make score type: stype sosofo)) (define ($charseq$ #!optional (sosofo (process-children))) (make sequence sosofo)) (define ($guilabel-seq$ #!optional (sosofo (process-children))) (make sequence font-family-name: %guilabel-font-family% sosofo)) ;; Stolen from a posting by James on dssslist (define *small-caps* (letrec ((signature (* #o375 256)) (make-afii (lambda (n) (glyph-id (string-append "ISO/IEC 10036/RA//Glyphs::" (number->string n))))) (gen (lambda (from count) (if (= count 0) '() (cons (cons (make-afii from) (make-afii (+ from signature))) (gen (+ 1 from) (- count 1))))))) (glyph-subst-table (gen #o141 26)))) docbook-dsssl-1.79/print/dbparam.dsl0000644000175000001440000016250107653407252020165 0ustar msmithusers00000000000000 ;; $Id: dbparam.dsl,v 1.9 2003/04/29 05:33:30 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; === Book intro, for dsl2man ========================================== DocBook Print Parameters ;; Part of the Modular DocBook Stylesheet distribution ;; NormanWalsh ;; ;; $Revision: 1.9 $ ;; 199719981999 ;; Norman Walsh ;; ;; ;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES ;; OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ;; NONINFRINGEMENT. IN NO EVENT SHALL NORMAN WALSH OR ANY OTHER ;; CONTRIBUTOR BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, ;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING ;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR ;; OTHER DEALINGS IN THE SOFTWARE. ;; ;; ;; ;; ;; Please direct all questions, bug reports, or suggestions for changes ;; to Norman Walsh, <ndw@nwalsh.com>. ;; ;; ;; See http://nwalsh.com/docbook/dsssl/ for more information. ;; ;; /DOCINFO ]]> ;; REFERENCE TOC/LOT Apparatus (define %generate-set-toc% ;; REFENTRY generate-set-toc ;; PURP Should a Table of Contents be produced for Sets? ;; DESC ;; If true, a Table of Contents will be generated for each 'Set'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %generate-book-toc% ;; REFENTRY generate-book-toc ;; PURP Should a Table of Contents be produced for Books? ;; DESC ;; If true, a Table of Contents will be generated for each 'Book'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define ($generate-book-lot-list$) ;; REFENTRY generate-book-lot-list ;; PURP Which Lists of Titles should be produced for Books? ;; DESC ;; This parameter should be a list (possibly empty) of the elements ;; for which Lists of Titles should be produced for each 'Book'. ;; ;; It is meaningless to put elements that do not have titles in this ;; list. If elements with optional titles are placed in this list, only ;; the instances of those elements that do have titles will appear in ;; the LOT. ;; ;; /DESC ;; AUTHOR N/A ;; /REFENTRY (list (normalize "table") (normalize "figure") (normalize "example") (normalize "equation"))) (define %generate-part-toc% ;; REFENTRY generate-part-toc ;; PURP Should a Table of Contents be produced for Parts? ;; DESC ;; If true, a Table of Contents will be generated for each 'Part'. ;; Note: '%generate-part-toc-on-titlepage%' controls whether the Part TOC ;; is placed on the bottom of the part titlepage or on page(s) of its own. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %generate-part-toc-on-titlepage% ;; REFENTRY generate-part-toc-on-titlepage ;; PURP Should the Part TOC appear on the Part title page? ;; DESC ;; If true, the Part TOC will be placed on the Part title page. If false, ;; the TOC will be placed on separate page(s) after the Part title page. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %generate-reference-toc% ;; REFENTRY generate-reference-toc ;; PURP Should a Table of Contents be produced for References? ;; DESC ;; If true, a Table of Contents will be generated for each 'Reference'. ;; Note: '%generate-reference-toc-on-titlepage%' controls whether the ;; Reference TOC ;; is placed on the bottom of the title page or on page(s) of its own. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %generate-reference-toc-on-titlepage% ;; REFENTRY generate-reference-toc-on-titlepage ;; PURP Should the Reference TOC appear on the Reference title page? ;; DESC ;; If true, the Reference TOC will be placed on the Reference title page. ;; If false, ;; the TOC will be placed on separate page(s) after the title page. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %generate-article-toc% ;; REFENTRY generate-article-toc ;; PURP Should a Table of Contents be produced for Articles? ;; DESC ;; If true, a Table of Contents will be generated for each 'Article'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %generate-article-toc-on-titlepage% ;; REFENTRY generate-article-toc-on-titlepage ;; PURP Should the Article TOC appear on the Article title page? ;; DESC ;; If true, the Article TOC will be placed on the Article title page. ;; If false, ;; the TOC will be placed on separate page(s) after the title page. ;; If false, %generate-article-titlepage-on-separate-page% should be ;; true. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) ;; REFERENCE Titlepages (define %generate-set-titlepage% ;; REFENTRY generate-set-titlepage ;; PURP Should a set title page be produced? ;; DESC ;; If true, a title page will be generated for each 'Set'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %generate-book-titlepage% ;; REFENTRY generate-book-titlepage ;; PURP Should a book title page be produced? ;; DESC ;; If true, a title page will be generated for each 'Book'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %generate-part-titlepage% ;; REFENTRY generate-part-titlepage ;; PURP Should a part title page be produced? ;; DESC ;; If true, a title page will be generated for each 'Part'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %generate-partintro-on-titlepage% ;; REFENTRY generate-partintro-on-titlepage ;; PURP Should the PartIntro appear on the Part/Reference title page? ;; DESC ;; If true, the PartIntro content will appear on the title page of ;; Parts and References. If false, ;; it will be placed on separate page(s) after the title page. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %generate-reference-titlepage% ;; REFENTRY generate-reference-titlepage ;; PURP Should a reference title page be produced? ;; DESC ;; If true, a title page will be generated for each 'Reference'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %generate-article-titlepage% ;; REFENTRY generate-article-titlepage ;; PURP Should an article title page be produced? ;; DESC ;; If true, a title page will be generated for each 'Article'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %generate-article-titlepage-on-separate-page% ;; REFENTRY generate-article-ttlpg-on-sep-page ;; PURP Should the article title page be on a separate page? ;; DESC ;; If true, the title page for each 'Article' will occur on its own page. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %titlepage-in-info-order% ;; REFENTRY titlepage-in-info-order ;; PURP Place elements on title page in document order? ;; DESC ;; If true, the elements on the title page will be set in the order that ;; they appear in the *info element. Otherwise, they will be set in ;; the order specified in the *-titlepage-*-elements list. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %author-othername-in-middle% ;; REFENTRY othername-in-middle ;; PURP Author OTHERNAME appears between FIRSTNAME and SURNAME? ;; DESC ;; If true, the OTHERNAME of an AUTHOR appears between the ;; FIRSTNAME and SURNAME. Otherwise, OTHERNAME is suppressed. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) ;; REFERENCE RefEntries and FuncSynopses (define %refentry-new-page% ;; REFENTRY refentry-new-page ;; PURP 'RefEntry' starts on new page? ;; DESC ;; If true, each 'RefEntry' begins on a new page. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %refentry-keep% ;; REFENTRY refentry-keep ;; PURP Keep RefEntrys together? ;; DESC ;; Refentry keep indicates how the stylesheet should ;; attempt to keep each RefEntry. Common values are '#t', for the ;; smallest possible area, 'page' for the same page, and '#f' to ignore ;; this characteristic. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %refentry-generate-name% ;; REFENTRY refentry-generate-name ;; PURP Output NAME header before 'RefName'(s)? ;; DESC ;; If true, a "NAME" section title is output before the list ;; of 'RefName's. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %refentry-xref-italic% ;; REFENTRY refentry-xref-italic ;; PURP Use italic text when cross-referencing RefEntrys? ;; DESC ;; If true, italics are used when cross-referencing RefEntrys, either ;; with XRef or CiteRefEntry. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %refentry-xref-manvolnum% ;; REFENTRY refentry-xref-manvolnum ;; PURP Output manvolnum as part of RefEntry cross-reference? ;; DESC ;; If true, the manvolnum is used when cross-referencing RefEntrys, either ;; with XRef or CiteRefEntry. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %funcsynopsis-style% ;; REFENTRY funcsynopsis-style ;; PURP What style of 'FuncSynopsis' should be generated? ;; DESC ;; If '%funcsynopsis-style%' is 'ansi', ;; ANSI-style function synopses are generated for a 'FuncSynopsis', ;; otherwise KR-style function synopses are generated. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 'ansi) (define %kr-funcsynopsis-indent% ;; REFENTRY kr-funcsynopsis-indent ;; PURP Indent-depth in KR-style function synopses ;; DESC ;; If the '%funcsynopsis-style%' is 'kr', ;; '%kr-funcsynopsis-indent%' specifies the amount by which parameter ;; definitions should be indented under the function prototype. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 1pi) (define %funcsynopsis-decoration% ;; REFENTRY funcsynopsis-decoration ;; PURP Decorate elements of a FuncSynopsis? ;; DESC ;; If true, elements of the FuncSynopsis will be decorated (e.g. bold or ;; italic). The decoration is controlled by functions that can be redefined ;; in a customization layer. See 'edbsynop.dsl'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) ;; REFERENCE Fonts (define %refentry-name-font-family% ;; REFENTRY refentry-name-font-family ;; PURP The font family used in RefName ;; DESC ;; The name of the font family used in 'RefEntry' ;; 'RefName's. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY %mono-font-family%) (define %title-font-family% ;; REFENTRY title-font-family ;; PURP The font family used in titles ;; DESC ;; The name of the font family used in titles (Arial by default). ;; ;; The values used here are system dependent (you have ;; to have the fonts you select) and backend dependent (the backend has ;; to know how to use them). ;; ;; The values here work for the RTF backend under MS Windows. YMMV. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "Arial") (define %body-font-family% ;; REFENTRY body-font-family ;; PURP The font family used in body text ;; DESC ;; The name of the font family used in body text ;; (Times New Roman by default). ;; ;; The values used here are system dependent (you have ;; to have the fonts you select) and backend dependent (the backend has ;; to know how to use them). ;; ;; The values here work for the RTF backend under MS Windows. YMMV. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "Times New Roman") (define %mono-font-family% ;; REFENTRY mono-font-family ;; PURP The font family used in verbatim environments ;; DESC ;; The name of the font family used in verbatim environments (Courier New ;; by default). ;; ;; The values used here are system dependent (you have ;; to have the fonts you select) and backend dependent (the backend has ;; to know how to use them). ;; ;; The values here work for the RTF backend under MS Windows. YMMV. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "Courier New") (define %admon-font-family% ;; REFENTRY admon-font-family ;; PURP The font family used in admonitions ;; DESC ;; The name of the font family used for body text in admonitions (Arial ;; by default). ;; ;; The values used here are system dependent (you have ;; to have the fonts you select) and backend dependent (the backend has ;; to know how to use them). ;; ;; The values here work for the RTF backend under MS Windows. YMMV. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "Arial") (define %guilabel-font-family% ;; REFENTRY guilabel-font-family ;; PURP The font family used in GUI labels ;; DESC ;; The name of the font family used for text that represents text on a ;; GUI (e.g., text in 'GUILabel', 'GUIMenu', ;; etc.). (Arial by default). ;; ;; The values used here are system dependent (you have ;; to have the fonts you select) and backend dependent (the backend has ;; to know how to use them). ;; ;; The values here work for the RTF backend under MS Windows. YMMV. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "Arial") (define %visual-acuity% ;; REFENTRY visual-acuity ;; PURP General measure of document text size ;; DESC ;; This parameter controls the general size of the text in the document. ;; Several other values (body font size and margins) have default values that ;; vary depending on the setting of '%visual-acuity%'. There ;; are three legal values: 'normal', ;; the normal, standard document size (10pt body text); ;; 'tiny', ;; a small text size (8pt body text); ;; 'presbyopic', ;; a slightly more generous size (12pt body text); and ;; 'large-type', ;; quite large (24pt body text). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY ;; "tiny" ;; "presbyopic" ;; "large-type" "normal") (define %hsize-bump-factor% ;; REFENTRY hsize-bump-factor ;; PURP Font scaling factor ;; DESC ;; Internally, the stylesheet refers to font sizes in purely relative ;; terms. This is done by defining a scaled set of fonts ;; (sizes 1, 2, 3, etc.) ;; based at the default text font size (e.g. 10pt). The '%hsize-bump-factor%' ;; describes the ratio between scaled sizes. The default is 1.2. ;; ;; Each hsize is '%hsize-bump-factor%' times larger than ;; the previous hsize. For example, if the base size is 10pt, and ;; '%hsize-bump-factor%' ;; 1.2, hsize 1 is 12pt, hsize 2 is 14.4pt, hsize 3 is 17.28pt, etc. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 1.2) (define %smaller-size-factor% ;; REFENTRY smaller-size-factor ;; PURP Smaller font scaling factor ;; DESC ;; In environments that are usually set with a slightly smaller font size, ;; for example block quotations, the stylesheet calculates the smaller font ;; size by muliplying the current font size by '%smaller-size-factor%'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 0.9) (define %ss-size-factor% ;; REFENTRY ss-size-factor ;; PURP Super/subscript scaling factor ;; DESC ;; When text is set as a subscript or superscript, the font size of the ;; text is multiplied by '%ss-size-factor%'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 0.6) (define %ss-shift-factor% ;; REFENTRY ss-shift-factor ;; PURP Super/subscript shift factor ;; DESC ;; When text is set as a subscript or superscript, it is set above or below ;; the baseline by a factor of the current font size and '%ss-shift-factor%'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 0.4) (define %verbatim-size-factor% ;; REFENTRY verbatim-size-factor ;; PURP Verbatim font scaling factor ;; DESC ;; When a monospace font is selected, the current font size is multiplied ;; by the '%verbatim-size-factor%'. If '%verbatim-size-factor%' ;; is '#f', no scaling is performed (Well, that's not precisely true. ;; In '$verbatim-display$' ;; environments, the font size is calculated with respect to the longest line ;; in the display, if '%verbatim-size-factor%' is '#f'). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 0.9) (define %bf-size% ;; REFENTRY bf-size ;; PURP Defines the body font size ;; DESC ;; Sets the body font size. This parameter is usually controlled by the ;; '%visual-acuity%' parameter. ;; /DESC ;; /REFENTRY (case %visual-acuity% (("tiny") 8pt) (("normal") 10pt) (("presbyopic") 12pt) (("large-type") 24pt))) (define-unit em %bf-size%) (define %footnote-size-factor% ;; REFENTRY footnote-size-factor ;; PURP Footnote font scaling factor ;; DESC ;; When printing footnotes, the current font size is multiplied by the ;; '%footnote-size-factor%'. ;; /DESC ;; /REFENTRY 0.9) (define %formal-object-title-font-weight% ;; REFENTRY formal-object-title-font-weight ;; PURP Formal object title font weight ;; DESC ;; Specifies the title font weight (i.e., 'bold or 'medium) of ;; formal objects (e.g., figures). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 'bold) (define %table-title-font-weight% ;; REFENTRY table-title-font-weight ;; PURP Table title font weight ;; DESC ;; Specifies the title font weight (i.e., 'bold or 'medium) of the ;; formal tables. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 'bold) ;; REFERENCE Backends (define tex-backend ;; REFENTRY tex-backend ;; PURP Are we using the TeX backend? ;; DESC ;; This parameter exists so that '-V tex-backend' can be used on the ;; command line to explicitly select the TeX backend. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define mif-backend ;; REFENTRY mif-backend ;; PURP Are we using the MIF backend? ;; DESC ;; This parameter exists so that '-V mif-backend' can be used on the ;; command line to explicitly select the MIF backend. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define rtf-backend ;; REFENTRY rtf-backend ;; PURP Are we using the RTF backend? ;; DESC ;; This parameter exists so that '-V rtf-backend' can be used on the ;; command line to explicitly select the RTF backend. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define default-backend ;; REFENTRY default-backend ;; PURP What is the default backend? ;; DESC ;; This parameter sets the default backend. Selecting an explicit ;; backend enables features specific to that backend (if there are any). ;; The legal values are 'rtf', 'tex', 'mif', and '#f'. Using ;; '#f' implies that no special features are used. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define (print-backend) ;; REFENTRY print-backend ;; PURP Returns the backend that is being used to format the document ;; DESC ;; This parameter controls features in the stylesheet that are backend ;; specific. The legal values are 'rtf', 'tex', 'mif', and '#f'. Using ;; '#f' implies that no special features are used. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY (cond (tex-backend 'tex) (mif-backend 'mif) (rtf-backend 'rtf) (else default-backend))) ;; REFERENCE Verbatim Environments (define %verbatim-default-width% ;; REFENTRY verbatim-default-width ;; PURP Default width of verbatim environments ;; DESC ;; If no WIDTH attribute is specified on verbatim environments, ;; '%verbatim-default-width%' is the default. Note: this width only ;; comes into play if '%verbatim-size-factor%' is '#f'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 80) (define %number-synopsis-lines% ;; REFENTRY number-synopsis-lines ;; PURP Enumerate lines in a 'Synopsis'? ;; DESC ;; If true, lines in each 'Synopsis' will be enumerated. ;; See also '%linenumber-mod%', '%linenumber-length%', ;; '%linenumber-padchar%', and '($linenumber-space$)'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %number-funcsynopsisinfo-lines% ;; REFENTRY number-funcsynopsisinfo-lines ;; PURP Enumerate lines in a 'FuncSynopsisInfo'? ;; DESC ;; If true, lines in each 'FuncSynopsisInfo' will be enumerated. ;; See also '%linenumber-mod%', '%linenumber-length%', ;; '%linenumber-padchar%', and '($linenumber-space$)'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %number-literallayout-lines% ;; REFENTRY number-literallayout-lines ;; PURP Enumerate lines in a 'LiteralLayout'? ;; DESC ;; If true, lines in each 'LiteralLayout' will be enumerated. ;; See also '%linenumber-mod%', '%linenumber-length%', ;; '%linenumber-padchar%', and '($linenumber-space$)'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %number-address-lines% ;; REFENTRY number-address-lines ;; PURP Enumerate lines in a 'Address'? ;; DESC ;; If true, lines in each 'Address' will be enumerated. ;; See also '%linenumber-mod%', '%linenumber-length%', ;; '%linenumber-padchar%', and '($linenumber-space$)'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %number-programlisting-lines% ;; REFENTRY number-programlisting-lines ;; PURP Enumerate lines in a 'ProgramListing'? ;; DESC ;; If true, lines in each 'ProgramListing' will be enumerated. ;; See also '%linenumber-mod%', '%linenumber-length%', ;; '%linenumber-padchar%', and '($linenumber-space$)'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %number-screen-lines% ;; REFENTRY number-screen-lines ;; PURP Enumerate lines in a 'Screen'? ;; DESC ;; If true, lines in each 'Screen' will be enumerated. ;; See also '%linenumber-mod%', '%linenumber-length%', ;; '%linenumber-padchar%', and '($linenumber-space$)'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %linenumber-mod% ;; REFENTRY linenumber-mod ;; PURP Controls line-number frequency in enumerated environments. ;; DESC ;; Every '%linenumber-mod%' line will be enumerated. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 5) (define %linenumber-length% ;; REFENTRY linenumber-length ;; PURP Width of line numbers in enumerated environments ;; DESC ;; Line numbers will be padded to '%linenumber-length%' ;; characters. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 3) (define %linenumber-padchar% ;; REFENTRY linenumber-padchar ;; PURP Pad character in line numbers ;; DESC ;; Line numbers will be padded (on the left) with '%linenumber-padchar%'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "\no-break-space;") (define ($linenumber-space$) ;; REFENTRY linenumber-space ;; PURP Returns the sosofo which separates line numbers from the text ;; DESC ;; The sosofo returned by '($linenumber-space$)' is placed ;; between the line number and the corresponding line in ;; enumerated environments. ;; ;; Note: '%linenumber-padchar%'s are separated from lines ;; that are not enumerated (because they don't match '%linenumber-mod%'). ;; In other words, '($linenumber-space$)' occurs ;; on every line. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY (literal "\no-break-space;")) (define %indent-synopsis-lines% ;; REFENTRY indent-synopsis-lines ;; PURP Indent lines in a 'Synopsis'? ;; DESC ;; If not '#f', each line in the display will be indented ;; with the content of this variable. Usually it is set to some number ;; of spaces, but you can indent with any string you wish. ;; /DESC ;; /REFENTRY #f) (define %indent-funcsynopsisinfo-lines% ;; REFENTRY indent-funcsynopsisinfo-lines ;; PURP Indent lines in a 'FuncSynopsisInfo'? ;; DESC ;; If not '#f', each line in the display will be indented ;; with the content of this variable. Usually it is set to some number ;; of spaces, but you can indent with any string you wish. ;; /DESC ;; /REFENTRY #f) (define %indent-literallayout-lines% ;; REFENTRY indent-literallayout-lines ;; PURP Indent lines in a 'LiteralLayout'? ;; DESC ;; If not '#f', each line in the display will be indented ;; with the content of this variable. Usually it is set to some number ;; of spaces, but you can indent with any string you wish. ;; /DESC ;; /REFENTRY #f) (define %indent-address-lines% ;; REFENTRY indent-address-lines ;; PURP Indent lines in a 'Address'? ;; DESC ;; If not '#f', each line in the display will be indented ;; with the content of this variable. Usually it is set to some number ;; of spaces, but you can indent with any string you wish. ;; /DESC ;; /REFENTRY #f) (define %indent-programlisting-lines% ;; REFENTRY indent-programlisting-lines ;; PURP Indent lines in a 'ProgramListing'? ;; DESC ;; If not '#f', each line in the display will be indented ;; with the content of this variable. Usually it is set to some number ;; of spaces, but you can indent with any string you wish. ;; /DESC ;; /REFENTRY #f) (define %indent-screen-lines% ;; REFENTRY indent-screen-lines ;; PURP Indent lines in a 'Screen'? ;; DESC ;; If not '#f', each line in the display will be indented ;; with the content of this variable. Usually it is set to some number ;; of spaces, but you can indent with any string you wish. ;; /DESC ;; /REFENTRY #f) (define %callout-fancy-bug% ;; REFENTRY callout-fancy-bug ;; PURP Use fancy callout bugs? ;; DESC ;; If true, fancy callout bugs will be used. Otherwise, simple ones are ;; used. Fancy callout bugs may require the RTF backend. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %callout-default-col% ;; REFENTRY callout-default-col ;; PURP Default column for callouts ;; DESC ;; If the coordinates of a callout include only a line number, the callout ;; bug will appear in column '%callout-default-col%'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 60) ;; REFERENCE Labelling (define %section-autolabel% ;; REFENTRY section-autolabel ;; PURP Are sections enumerated? ;; DESC ;; If true, unlabeled sections will be enumerated. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %chapter-autolabel% ;; REFENTRY chapter-autolabel ;; PURP Are chapters enumerated? ;; DESC ;; If true, chapters will be enumerated. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %label-preface-sections% ;; REFENTRY label-preface-sections ;; PURP Are sections in the Preface enumerated? ;; DESC ;; If true, unlabeled sections in the Preface will be enumerated ;; if '%section-autolabel%' is true. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %qanda-inherit-numeration% ;; REFENTRY qanda-inherit-numeration ;; PURP Should numbered questions inherit the surrounding numeration? ;; DESC ;; If true, question numbers are prefixed with the surrounding ;; component or section number. Has no effect unless ;; '%section-autolabel%' is also true. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) ;; REFERENCE Running Heads (define %chap-app-running-heads% ;; REFENTRY chap-app-running-heads ;; PURP Generate running headers and footers on chapter-level elements? ;; DESC ;; If true, running headers and footers are produced on chapter-level ;; elements. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %chap-app-running-head-autolabel% ;; REFENTRY chap-app-running-head-autolabel ;; PURP Put chapter labels in running heads? ;; DESC ;; If true, running heads on 'Chapter's and ;; 'Appendix'es will include an automatic label. ;; ;; In other words, if a 'Chapter' has no 'Label' attribute, ;; and '%chap-app-running-head-autolabel%' ;; is true, running heads will include the automatic label for the ;; 'Chapter'. If '%chap-app-running-head-autolabel%' ;; is false, only the 'Title' (or 'TitleAbbrev') ;; will appear in the running head. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) ;; REFERENCE Paper/Page Characteristics (define %paper-type% ;; REFENTRY paper-type ;; PURP Name of paper type ;; DESC ;; The paper type value identifies the sort of paper in use, for example, ;; 'A4' or 'USletter'. Setting the paper type is an ;; easy shortcut for setting the correct paper height and width. ;; ;; See %page-width% and %page-height concerning what other page size ;; are available. Some common examples are 'A4', 'USletter', ;; 'A4landscape', 'USlandscape'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY ;; "A4" "USletter") (define %two-side% ;; REFENTRY two-side ;; PURP Is two-sided output being produced? ;; DESC ;; If '%two-side%' is true, headers and footers are alternated ;; so that the "outer" and "inner" headers will be correctly ;; placed in the bound document. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %writing-mode% ;; REFENTRY writing-mode ;; PURP The writing mode ;; DESC ;; The writing mode is either 'left-to-right', or ;; 'right-to-left'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 'left-to-right) (define %page-n-columns% ;; REFENTRY page-n-columns ;; PURP Sets the number of columns on each page ;; DESC ;; Sets the number of columns on each page ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 1) (define %titlepage-n-columns% ;; REFENTRY titlepage-n-columns ;; PURP Sets the number of columns on the title page ;; DESC ;; Sets the number of columns on the title page ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 1) (define %page-column-sep% ;; REFENTRY page-column-sep ;; PURP Sets the width of the gutter between columns ;; DESC ;; Sets the width of the gutter between columns ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 0.5in) (define %page-balance-columns?% ;; REFENTRY page-balance-columns ;; PURP Balance columns on pages? ;; DESC ;; If true, the columns on the final page of a multiple column layout ;; will be balanced. Otherwise, the columns will be completely filled in the ;; writing direction and the last column may be a different length ;; than the preceding columns. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %left-margin% ;; REFENTRY left-margin ;; PURP Width of left margin ;; DESC ;; The '%left-margin%' parameter specifies the width of the left margin ;; of the page. Note that this setting is relative to the physical page, ;; not the writing direction. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 6pi) (define %right-margin% ;; REFENTRY right-margin ;; PURP Width of the right margin ;; DESC ;; The '%right-margin%' parameter specifies the width of the right margin ;; of the page. Note that this setting is relative to the physical page, ;; not the writing direction. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 6pi) (define %page-width% ;; REFENTRY page-width ;; PURP Specifies the page width ;; DESC ;; Identifies the width of the page (length in the writing direction). ;; It is usually controlled by the '%paper-type%' parameter. ;; /DESC ;; /REFENTRY (case %paper-type% (("A4landscape") 297mm) (("USletter") 8.5in) (("USlandscape") 11in) (("4A0") 1682mm) (("2A0") 1189mm) (("A0") 841mm) (("A1") 594mm) (("A2") 420mm) (("A3") 297mm) (("A4") 210mm) (("A5") 148mm) (("A6") 105mm) (("A7") 74mm) (("A8") 52mm) (("A9") 37mm) (("A10") 26mm) (("B0") 1000mm) (("B1") 707mm) (("B2") 500mm) (("B3") 353mm) (("B4") 250mm) (("B5") 176mm) (("B6") 125mm) (("B7") 88mm) (("B8") 62mm) (("B9") 44mm) (("B10") 31mm) (("C0") 917mm) (("C1") 648mm) (("C2") 458mm) (("C3") 324mm) (("C4") 229mm) (("C5") 162mm) (("C6") 114mm) (("C7") 81mm) (("C8") 57mm) (("C9") 40mm) (("C10") 28mm))) (define %page-height% ;; REFENTRY page-height ;; PURP Specifies the page height ;; DESC ;; Identifies the height of the page (length perpendicular to the ;; writing direction). ;; It is usually controlled by the '%paper-type%' parameter. ;; /DESC ;; /REFENTRY (case %paper-type% (("A4landscape") 210mm) (("USletter") 11in) (("USlandscape") 8.5in) (("4A0") 2378mm) (("2A0") 1682mm) (("A0") 1189mm) (("A1") 841mm) (("A2") 594mm) (("A3") 420mm) (("A4") 297mm) (("A5") 210mm) (("A6") 148mm) (("A7") 105mm) (("A8") 74mm) (("A9") 52mm) (("A10") 37mm) (("B0") 1414mm) (("B1") 1000mm) (("B2") 707mm) (("B3") 500mm) (("B4") 353mm) (("B5") 250mm) (("B6") 176mm) (("B7") 125mm) (("B8") 88mm) (("B9") 62mm) (("B10") 44mm) (("C0") 1297mm) (("C1") 917mm) (("C2") 648mm) (("C3") 458mm) (("C4") 324mm) (("C5") 229mm) (("C6") 162mm) (("C7") 114mm) (("C8") 81mm) (("C9") 57mm) (("C10") 40mm))) (define %text-width% ;; REFENTRY text-width ;; PURP Specifies the width of the body column ;; DESC ;; Identifies the width of the page on which text may occur. ;; /DESC ;; /REFENTRY (- %page-width% (+ %left-margin% %right-margin%))) (define %epigraph-start-indent% ;; REFENTRY epigraph-start-indent ;; PURP Specifies the left indent of epigraphs. ;; DESC ;; The indent of a epigraph. Default 55% of the text width. ;; /DESC ;; /REFENTRY (* %text-width% 0.55)) (define %epigraph-end-indent% ;; REFENTRY epigraph-end-indent ;; PURP Specified the right indent of epigraphs. ;; DESC ;; The right indent of a epigraph. Default none. ;; /DESC ;; /REFENTRY 0pt) (define %body-width% ;; REFENTRY body-width ;; PURP Specifies the width of the text in the body column ;; DESC ;; Identifies the width of the page on which text will occur, after ;; the '%body-start-indent%' is removed. ;; /DESC ;; /REFENTRY (- %text-width% %body-start-indent%)) (define %top-margin% ;; REFENTRY top-margin ;; PURP Height of top margin ;; DESC ;; The '%top-margin%' parameter specifies the height of the ;; top margin ;; of the page. Note that this setting is relative to the physical page, ;; not the writing direction. ;; /DESC ;; /REFENTRY (if (equal? %visual-acuity% "large-type") 7.5pi 6pi)) (define %bottom-margin% ;; REFENTRY bottom-margin ;; PURP Height of bottom margin ;; DESC ;; The '%bottom-margin%' parameter specifies the ;; height of the bottom margin ;; of the page. Note that this setting is relative to the physical page, ;; not the writing direction. ;; /DESC ;; /REFENTRY (if (equal? %visual-acuity% "large-type") 9.5pi 8pi)) (define %header-margin% ;; REFENTRY header-margin ;; PURP Height of header margin ;; DESC ;; The '%header-margin%' parameter specifies the heigth ;; of the header margin ;; of the page. Note that this setting is relative to the physical page, ;; not the writing direction. ;; /DESC ;; /REFENTRY (if (equal? %visual-acuity% "large-type") 5.5pi 4pi)) (define %footer-margin% ;; REFENTRY footer-margin ;; PURP Height of footer margin ;; DESC ;; The '%footer-margin%' parameter specifies the height ;; of the footer margin ;; of the page. Note that this setting is relative to the physical page, ;; not the writing direction. ;; /DESC ;; /REFENTRY 4pi) (define %page-number-restart% ;; REFENTRY page-number-restart ;; PURP Restart page numbers in each component? ;; DESC ;; If true, page numbers are restarted at the beginning of each ;; component-level ;; element ('Chapter', 'Appendix', ;; 'Bibliography', etc.). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %article-page-number-restart% ;; REFENTRY article-page-number-restart ;; PURP Restart page numbers in each article? ;; DESC ;; If true, page numbers are restarted at the beginning of each ;; article. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %generate-heading-level% ;; REFENTRY generate-heading-level ;; PURP Output RTF heading level characteristics? ;; DESC ;; If true, component and section titles will have the heading-level ;; characteristic in the RTF. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) ;; REFERENCE Admonitions (define %admon-graphics% ;; REFENTRY admon-graphics ;; PURP Use graphics in admonitions? ;; DESC ;; If true, admonitions are presented in an alternate style that uses ;; a graphic. Default graphics are provided in the distribution. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %admon-graphics-path% ;; REFENTRY admon-graphics-path ;; PURP Path to admonition graphics ;; DESC ;; Sets the path, probably relative to the directory where the HTML ;; files are created, to the admonition graphics. Must include ;; trailing directory separator. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "../images/") ;; just for back compat, set it false to say its not set (define admon-graphic-default-extension #f) (define %admon-graphics-extension% ;; REFENTRY admon-graphic-extension ;; PURP Admonition graphic file extension ;; DESC ;; Identifies the extension for admonition graphics. This allows ;; backends to select different images (e.g., EPS for print, PNG for ;; PDF, etc.) ;; ;; The older parameter, admon-graphic-default-extension, will be ;; used if it is set, for backwards compatability. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY (if admon-graphic-default-extension admon-graphic-default-extension ".eps")) (define ($admon-graphic$ #!optional (nd (current-node))) ;; REFENTRY admon-graphic ;; PURP Admonition graphic file ;; DESC ;; Given an admonition node, returns the name of the graphic that should ;; be used for that admonition. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY (cond ((equal? (gi nd) (normalize "tip")) (string-append %admon-graphics-path% (string-append "tip" %admon-graphics-extension%))) ((equal? (gi nd) (normalize "note")) (string-append %admon-graphics-path% (string-append "note" %admon-graphics-extension%))) ((equal? (gi nd) (normalize "important")) (string-append %admon-graphics-path% (string-append "important" %admon-graphics-extension%))) ((equal? (gi nd) (normalize "caution")) (string-append %admon-graphics-path% (string-append "caution" %admon-graphics-extension%))) ((equal? (gi nd) (normalize "warning")) (string-append %admon-graphics-path% (string-append "warning" %admon-graphics-extension%))) (else (error (string-append (gi nd) " is not an admonition."))))) (define ($admon-graphic-width$ #!optional (nd (current-node))) ;; REFENTRY admon-graphic-width ;; PURP Admonition graphic file width ;; DESC ;; Given an admonition node, returns the width of the graphic that will ;; be used for that admonition. ;; ;; All of the default graphics in the distribution are 0.3in wide. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 0.3in) ;; REFERENCE Quadding (define %default-quadding% ;; REFENTRY default-quadding ;; PURP The default quadding ;; DESC ;; The default quadding ('start', 'center', 'justify', ;; or 'end'). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 'start) (define %division-title-quadding% ;; REFENTRY division-title-quadding ;; PURP Division title quadding ;; DESC ;; The quadding of division-level titles ('Set', 'Book', and 'Part'). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 'center) (define %division-subtitle-quadding% ;; REFENTRY division-subtitle-quadding ;; PURP Division subtitle quadding ;; DESC ;; The quadding of division-level subtitles ('Set', 'Book', and 'Part'). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 'center) (define %component-title-quadding% ;; REFENTRY component-title-quadding ;; PURP Component title quadding ;; DESC ;; The quadding of component-level titles ('Chapter', ;; 'Appendix', 'Glossary', etc.). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 'start) (define %component-subtitle-quadding% ;; REFENTRY component-subtitle-quadding ;; PURP Component subtitle quadding ;; DESC ;; The quadding of component-level subtitles ('Chapter', ;; 'Appendix', 'Glossary', etc.). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 'start) (define %article-title-quadding% ;; REFENTRY article-title-quadding ;; PURP Article title quadding ;; DESC ;; The quadding of article titles. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 'center) (define %article-subtitle-quadding% ;; REFENTRY article-subtitle-quadding ;; PURP Article subtitle quadding ;; DESC ;; The quadding of article subtitles. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 'center) (define %section-title-quadding% ;; REFENTRY section-title-quadding ;; PURP Section title quadding ;; DESC ;; The quadding of section-level titles. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 'start) (define %section-subtitle-quadding% ;; REFENTRY section-subtitle-quadding ;; PURP Section subtitle quadding ;; DESC ;; The quadding of section-level subtitles. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 'start) ;; REFERENCE Bibliographies (define biblio-citation-check ;; REFENTRY biblio-citation-check ;; PURP Check citations ;; DESC ;; If true, the content of CITATIONs will be checked against possible ;; biblioentries. If the citation cannot be found, an error is issued ;; and the citation is generated. If the citation is found, it is generated ;; with a cross reference to the appropriate biblioentry. ;; ;; A citation matches if the content of the citation element matches the ;; ID, XREFLABEL, or leading ABBREV of a biblioentry. ;; ;; This setting may have significant performance implications on large ;; documents, hence it is false by default. ;; ;; (This option can conveniently be set with '-V biblio-citation-check' ;; on the Jade command line). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define biblio-filter-used ;; REFENTRY filter-used ;; PURP Suppress unreferenced bibliography entries ;; DESC ;; If true, bibliography entries which are not cited are suppressed. ;; A biblioentry is cited if an XREF or LINK matches its ID, or if ;; a CITE element matches its ;; ID, XREFLABEL, or leading ABBREV. ;; ;; A BIBLIOGRAPHY with no entries will still be output (making a whole ;; component conditional would be _A LOT_ of work and seems unnecessary), ;; but BIBLIDIVs with no entries will be suppressed. ;; ;; This setting may have significant performance implications, ;; hence it is false by default. ;; ;; (This option can conveniently be set with '-V biblio-filter-used' on the ;; Jade command line). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define biblio-number ;; REFENTRY biblio-number ;; PURP Enumerate bibliography entries ;; DESC ;; If true, bibliography entries will be numbered. If you cross-reference ;; bibliography entries, you should probably use biblio-number or ;; consistently use XREFLABEL or ABBREV. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define biblio-xref-title ;; REFENTRY biblio-xref-title ;; PURP Use the titles of bibliography entries in XREFs ;; DESC ;; If true, cross references to bibliography entries will use the ;; title of the entry as the cross reference text. Otherwise, either ;; the number (see 'biblio-number') or XREFLABEL/ABBREV will be used. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) ;; REFERENCE OLinks (define %olink-outline-ext% ;; REFENTRY olink-outline-ext ;; PURP Extension for olink outline file ;; DESC ;; The extension used to find the outline information file. When searching ;; for outline information about a document, the extension is discarded ;; from the system ID of the file and '%olinke-outline-ext%' is appended. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY ".olink") ;; REFERENCE Footnotes (define %footnote-ulinks% ;; REFENTRY footnote-ulinks ;; PURP Generate footnotes for ULinks? ;; DESC ;; If true, the URL of each ULink will appear as a footnote. ;; Processing ULinks this way may be very, very slow. It requires ;; walking over every descendant of every component in order to count ;; both ulinks and footnotes. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define bop-footnotes ;; REFENTRY bop-footnotes ;; PURP Make "bottom-of-page" footnotes? ;; DESC ;; If true, footnotes will be done at the bottom of the page instead ;; of collected together as notes at the end of the section. ;; This variable is ignored if the print backend does not support ;; bottom-of-the-page footnotes. At present, only the TeX backend ;; supports them. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) ;; REFERENCE Graphics (define %graphic-default-extension% ;; REFENTRY graphic-default-extension ;; PURP Default extension for graphic FILEREFs ;; DESC ;; The '%graphic-default-extension%' will be ;; added to the end of all 'fileref' filenames on ;; 'Graphic's if they do not end in one of the ;; '%graphic-extensions%'. Set this to '#f' ;; to turn off this feature. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %graphic-extensions% ;; REFENTRY graphic-extensions ;; PURP List of graphic filename extensions ;; DESC ;; The list of extensions which may appear on a 'fileref' ;; on a 'Graphic' which are indicative of graphic formats. ;; ;; Filenames that end in one of these extensions will not have ;; the '%graphic-default-extension%' added to them. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY '("eps" "epsf" "gif" "tif" "tiff" "jpg" "jpeg" "png" "pdf")) (define image-library ;; REFENTRY image-library ;; PURP Load image library database for additional info about images? ;; DESC ;; If true, an image library database is loaded and extra information ;; about web graphics is retrieved from it. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define image-library-filename ;; REFENTRY image-library-filename ;; PURP Name of the image library database ;; DESC ;; If 'image-library' is true, then the database is loaded from ;; 'image-library-filename'. It's a current limitation that only a ;; single database can be loaded. ;; ;; The image library database is stored in a separate directory ;; because it must be parsed with the XML declaration. The only ;; practical way to accomplish this with Jade, if you are processing a ;; document that uses another declaration, is by having a catalog ;; file in the directory that contains the image library that ;; specifies the SGMLDECL. (So if it was in the same directory ;; as your document, your document would also be parsed with the ;; XML declaration, which may not be correct.) ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "imagelib/imagelib.xml") ;; REFERENCE Tables (define ($table-element-list$) ;; REFENTRY table-element-list ;; PURP List of table element names ;; DESC ;; The list of table elements in the DTD. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY (list (normalize "table") (normalize "informaltable"))) (define %simplelist-column-width% ;; REFENTRY simplelist-column-width ;; PURP Width of columns in tabular simple lists ;; DESC ;; If set to '#f', the table will span the entire ;; page width. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) ;; REFERENCE VariableLists (define %default-variablelist-termlength% ;; REFENTRY default-variablelist-termlength ;; PURP Default term length on variablelists ;; DESC ;; When formatting a 'VariableList', this value is used as the ;; default term length, if no 'TermLength' is specified. ;; ;; If all of the terms in a list shorter than the term length, ;; the stylesheet may format them "side-by-side" in a table if ;; 'may-format-variablelist-as-table' is '#t'. ;; /DESC ;; /REFENTRY 20) (define %may-format-variablelist-as-table% ;; REFENTRY may-format-variablelist-as-table ;; PURP Format VariableLists as tables? ;; DESC ;; If '%may-format-variablelist-as-table%' is '#t', a ;; 'VariableList' will be formatted as a table, if *all of* ;; the terms are shorter than the specified 'TermLength'. ;; /DESC ;; /REFENTRY #f) (define %always-format-variablelist-as-table% ;; REFENTRY always-format-variablelist-as-table ;; PURP Always format VariableLists as tables? ;; DESC ;; When a 'VariableList' is formatted, if any of the ;; terms in the list are too long, the whole list is formatted as a ;; list. ;; ;; If '%always-format-variablelist-as-table%' is ;; '#t', the 'VariableList' will be ;; formatted as a table, even if some terms are too long. The terms that ;; are too long will format span above their associated description. ;; /DESC ;; /REFENTRY #f) ;; REFERENCE Vertical Spacing (define %line-spacing-factor% ;; REFENTRY line-spacing-factor ;; PURP Factor used to calculate leading ;; DESC ;; The leading is calculated by multiplying the current font size by the ;; '%line-spacing-factor%'. For example, if the font size is 10pt and ;; the '%line-spacing-factor%' is 1.1, then the text will be ;; printed "10-on-11". ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 1.3) (define %head-before-factor% ;; REFENTRY head-before-factor ;; PURP Factor used to calculate space above a title ;; DESC ;; The space before a title is calculated by multiplying the font size ;; used in the title by the '%head-before-factor%'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 0.75) (define %head-after-factor% ;; REFENTRY head-after-factor ;; PURP Factor used to calculate space below a title ;; DESC ;; The space after a title is calculated by multiplying the font size used ;; in the title by the '%head-after-factor%'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 0.5) (define %body-start-indent% ;; REFENTRY body-start-indent ;; PURP Default indent of body text ;; DESC ;; The default indent of body text. Some elements may have more or less ;; indentation. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 4pi) (define %blockquote-start-indent% ;; PURP Default indent of blockquoted text ;; DESC ;; The default start (usually left) indent of blockquoted text. ;; /DESC ;; AUTHOR Ola Lundqvist ;; /REFENTRY 1em) (define %blockquote-end-indent% ;; PURP Default indent of blockquoted text ;; DESC ;; The default end (usually right) indent of blockquoted text. ;; /DESC ;; AUTHOR Ola Lundqvist ;; /REFENTRY 1em) (define %para-sep% ;; REFENTRY para-sep ;; PURP Distance between paragraphs ;; DESC ;; The '%para-sep%' is the distance between the last line ;; of one paragraph and the first line of the next. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY (/ %bf-size% 2.0)) (define %block-sep% ;; REFENTRY block-sep ;; PURP Distance between block-elements ;; DESC ;; The '%block-sep%' is the vertical distance between ;; block elements (figures, tables, etc.) ;; /DESC ;; AUTHOR N/A ;; /REFENTRY (* %para-sep% 2.0)) ;; REFERENCE Indents (define %para-indent% ;; REFENTRY para-indent ;; PURP First line start-indent for paragraphs (other than the first) ;; DESC ;; The '%para-indent%' is the amount of extra indentation that the ;; first line of a paragraph should receive. This parameter applies ;; only to the second and subsequent paragraphs in a section. See ;; '%para-indent-firstpara%'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 0pt) (define %para-indent-firstpara% ;; REFENTRY para-indent-firstpara ;; PURP First line start-indent for the first paragraph ;; DESC ;; The '%para-indent-firstpara%' is the amount of extra indentation ;; that the first line of the first paragraph of a section should receive. ;; This parameter is frequently '0pt' even when '%para-indent%' is ;; not. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 0pt) (define %block-start-indent% ;; REFENTRY block-start-indent ;; PURP Extra start-indent for block-elements ;; DESC ;; Block elements (tables, figures, verbatim environments, etc.) will ;; be indented by the specified amount. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 0pt) ;; REFERENCE Object Rules (define %example-rules% ;; REFENTRY example-rules ;; PURP Specify rules before and after an Example ;; DESC ;; If '#t', rules will be drawn before and after each ;; 'Example'. ;; /DESC ;; /REFENTRY #f) (define %figure-rules% ;; REFENTRY figure-rules ;; PURP Specify rules before and after an Figure ;; DESC ;; If '#t', rules will be drawn before and after each ;; 'Figure'. ;; /DESC ;; /REFENTRY #f) (define %table-rules% ;; REFENTRY table-rules ;; PURP Specify rules before and after an Table ;; DESC ;; If '#t', rules will be drawn before and after each ;; 'Table'. ;; /DESC ;; /REFENTRY #f) (define %equation-rules% ;; REFENTRY equation-rules ;; PURP Specify rules before and after an Equation ;; DESC ;; If '#t', rules will be drawn before and after each ;; 'Equation'. ;; /DESC ;; /REFENTRY #f) (define %informalexample-rules% ;; REFENTRY informalexample-rules ;; PURP Specify rules before and after an InformalExample ;; DESC ;; If '#t', rules will be drawn before and after each ;; 'InformalExample'. ;; /DESC ;; /REFENTRY #f) (define %informalfigure-rules% ;; REFENTRY informalfigure-rules ;; PURP Specify rules before and after an InformalFigure ;; DESC ;; If '#t', rules will be drawn before and after each ;; 'InformalFigure'. ;; /DESC ;; /REFENTRY #f) (define %informaltable-rules% ;; REFENTRY informaltable-rules ;; PURP Specify rules before and after an InformalTable ;; DESC ;; If '#t', rules will be drawn before and after each ;; 'InformalTable'. ;; /DESC ;; /REFENTRY #f) (define %informalequation-rules% ;; REFENTRY informalequation-rules ;; PURP Specify rules before and after an InformalEquation ;; DESC ;; If '#t', rules will be drawn before and after each ;; 'InformalEquation'. ;; /DESC ;; /REFENTRY #f) (define %object-rule-thickness% ;; REFENTRY object-rule-thickness ;; PURP Width of rules around formal and informal objects ;; DESC ;; Specifies the width of the rules drawn before and after an object. ;; This only applies if the appropriate ;; '%*-rules%' variable ;; is '#t'. ;; /DESC ;; /REFENTRY 2pt) ;; REFERENCE Miscellaneous (define ($object-titles-after$) ;; REFENTRY object-titles-after ;; PURP List of objects who's titles go after the object ;; DESC ;; Titles of formal objects (Figures, Equations, Tables, etc.) ;; in this list will be placed below the object instead of above it. ;; ;; This is a list of element names, for example: ;; '(list (normalize "figure") (normalize "table"))'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY '()) (define formal-object-float ;; REFENTRY formal-object-float ;; PURP Do formal objects float? ;; DESC ;; If '#t', formal objects will float if floating is supported by the ;; backend. At present, only the TeX backend supports floats. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %default-title-end-punct% ;; REFENTRY default-title-end-punct ;; PURP Default punctuation at the end of a run-in head. ;; DESC ;; The punctuation used at the end of a run-in head (e.g. on FORMALPARA). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY ".") (define %content-title-end-punct% ;; REFENTRY content-title-end-punct ;; PURP List of punctuation chars at the end of a run-in head ;; DESC ;; If a run-in head ends in any of these characters, the ;; '%default-title-end-punct%' is not used. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY '(#\. #\! #\? #\:)) (define %honorific-punctuation% ;; REFENTRY honorific-punctuation ;; PURP Punctuation to follow honorifics in names ;; DESC ;; The honorific punctuation is placed after the honorific in ;; a name. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY ".") (define %default-simplesect-level% ;; REFENTRY default-simplesect-level ;; PURP Default section level for 'SimpleSect's. ;; DESC ;; If 'SimpleSect's appear inside other section-level ;; elements, they are rendered at the appropriate section level, but if they ;; appear in a component-level element, they are rendered at ;; '%default-simplesect-level%'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 4) (define %show-ulinks% ;; REFENTRY show-ulinks ;; PURP Display URLs after ULinks? ;; DESC ;; If true, the URL of each ULink will appear in parenthesis after ;; the text of the link. If the text of the link and the URL are ;; identical, the parenthetical URL is suppressed. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %show-comments% ;; REFENTRY show-comments ;; PURP Display Comment elements? ;; DESC ;; If true, comments will be displayed, otherwise they are suppressed. ;; Comments here refers to the 'Comment' element, which will be renamed ;; 'Remark' in DocBook V4.0, not SGML/XML comments which are unavailable. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define firstterm-bold ;; REFENTRY firstterm-bold ;; PURP Make FIRSTTERM elements bold? ;; DESC ;; If '#t', FIRSTTERMs will be bold, to distinguish them from ;; simple GLOSSTERMs. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %min-leading% ;; REFENTRY min-leading ;; PURP Minumum leading between lines ;; DESC ;; The '%min-leading%' parameter specifies the smallest amount of leading ;; to allow between lines. The default value, '#f', has the side-effect ;; that leading cannot change. This means that graphics that appear in ;; a paragraph are truncated if they are taller than the current leading. ;; By setting this parameter to some small value, we get stretchable ;; space between lines. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 2pt) (define %hyphenation% ;; REFENTRY hyphenation ;; PURP Allow automatic hyphenation? ;; DESC ;; The '%hyphenation%' parameter indicates whether or ;; not the backend should allow automatic hyphention of text, for example ;; in paragraphs. The default value, '#f', indicates that ;; it should not. ;; /DESC ;; /REFENTRY #f) (declare-initial-value writing-mode %writing-mode%) (declare-initial-value input-whitespace-treatment 'collapse) (declare-initial-value left-margin %left-margin%) (declare-initial-value right-margin %right-margin%) (declare-initial-value page-width %page-width%) (declare-initial-value page-height %page-height%) (declare-initial-value min-leading %min-leading%) (declare-initial-value top-margin %top-margin%) (declare-initial-value bottom-margin %bottom-margin%) (declare-initial-value header-margin %header-margin%) (declare-initial-value footer-margin %footer-margin%) docbook-dsssl-1.79/print/dbmsgset.dsl0000644000175000001440000000254707611215267020367 0ustar msmithusers00000000000000;; $Id: dbmsgset.dsl,v 1.2 2003/01/15 08:24:23 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ======================== ERROR MESSAGES (ETC.) ======================= (element msgset (process-children)) (element msgentry ($informal-object$)) (element simplemsgentry ($informal-object$)) (element msg (make display-group font-weight: 'bold font-family-name: %mono-font-family% (process-children))) (element msgmain (process-children)) (element msgsub (make display-group start-indent: (+ (inherited-start-indent) (ILSTEP)) (process-children))) (element msgrel (empty-sosofo)) (element msgtext (process-children)) (element msginfo ($indent-para-container$)) (define ($genhead-para$ headtext) (make paragraph space-before: %para-sep% space-after: %para-sep% (make sequence font-weight: 'bold (literal (string-append headtext ": "))) (process-children))) (element msglevel ($genhead-para$ (gentext-element-name (current-node)))) (element msgorig ($genhead-para$ (gentext-element-name (current-node)))) (element msgaud ($genhead-para$ (gentext-element-name (current-node)))) (element msgexplan ($indent-para-container$)) (element (msgexplan title) ($runinhead$)) (element (msgexplan para) (make sequence (process-children))) docbook-dsssl-1.79/print/dbmath.dsl0000644000175000001440000000474507611215267020020 0ustar msmithusers00000000000000;; $Id: dbmath.dsl,v 1.2 2003/01/15 08:24:23 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; (define %equation-autolabel% #f) (element equation ;; derived from $semiformal-object$ (if (node-list-empty? (select-elements (children (current-node)) (normalize "title"))) ($informal-object$ %informalequation-rules% %informalequation-rules%) ($formal-object$ %informalequation-rules% %informalequation-rules%))) (element (equation title) (empty-sosofo)) (element (equation alt) (empty-sosofo)) (element (equation graphic) (make paragraph space-before: 0pt space-after: 0pt ($img$ (current-node) #t))) (element informalequation ;; Derived from informal-object (let ((rule-before? %informalequation-rules%) (rule-after? %informalequation-rules%)) (if %equation-autolabel% (make display-group space-before: %block-sep% space-after: %block-sep% start-indent: (+ %block-start-indent% (inherited-start-indent)) keep-with-next?: (object-title-after) (if rule-before? (make rule orientation: 'horizontal line-thickness: %object-rule-thickness% display-alignment: 'center space-after: (/ %block-sep% 2) keep-with-next?: #t) (empty-sosofo)) (make table (make table-column column-number: 1 width: (- %text-width% (+ (inherited-start-indent) (inherited-end-indent) 1in))) (make table-column column-number: 2 width: 1in) (make table-row (make table-cell cell-row-alignment: 'center start-indent: 0pt end-indent: 0pt (process-children)) (make table-cell cell-row-alignment: 'center quadding: 'end start-indent: 0pt end-indent: 0pt (make paragraph (literal "(" (element-label (current-node)) ")"))))) (if rule-after? (make rule orientation: 'horizontal line-thickness: %object-rule-thickness% display-alignment: 'center space-before: (/ %block-sep% 2) keep-with-previous?: #t) (empty-sosofo))) ($informal-object$ rule-before? rule-after?)))) (element (informalequation alt) (empty-sosofo)) (element (informalequation graphic) (make paragraph space-before: 0pt space-after: 0pt quadding: 'end ($img$ (current-node) #t))) (element inlineequation ($inline-object$)) (element (inlineequation alt) (empty-sosofo)) (element (inlineequation graphic) (make sequence ($img$ (current-node) #f))) docbook-dsssl-1.79/print/dblot.dsl0000644000175000001440000000142107611215267017651 0ustar msmithusers00000000000000;; $Id: dblot.dsl,v 1.2 2003/01/15 08:24:23 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; need test cases to do toc/lot; do these later (element toc (empty-sosofo)) (element (toc title) (empty-sosofo)) (element tocfront ($paragraph$)) (element tocentry ($paragraph$)) (element tocpart (process-children)) (element tocchap (process-children)) (element toclevel1 (process-children)) (element toclevel2 (process-children)) (element toclevel3 (process-children)) (element toclevel4 (process-children)) (element toclevel5 (process-children)) (element tocback ($paragraph$)) (element lot (empty-sosofo)) (element (lot title) (empty-sosofo)) (element lotentry ($paragraph$)) docbook-dsssl-1.79/print/dblists.dsl0000644000175000001440000004022407624046044020214 0ustar msmithusers00000000000000;; $Id: dblists.dsl,v 1.7 2003/02/17 02:42:44 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; =============================== LISTS ================================ (define (BULLTREAT bullfcn ilevel override mark) (cond (override (bullfcn override ilevel)) (mark (bullfcn mark ilevel)) (else (bullfcn "bullet" ilevel)))) (define (BULLSTR m lvl) (dingbat m)) (define (BULLSHIFT m lvl) (let ((md (case-fold-down m))) (case md (("bullet") 0.0em) (("box") (if (= lvl 1) 0.0em 0.1em)) (("checkbox") (if (= lvl 1) 0.0em 0.1em)) (("check") 0.0em) (("checkedbox") 0.0em) (("dash") 0.0em) (("none") 0.0em) (else 0.0em)))) (define (MSIZE m lvl f1 f2) (if (= lvl 1) (* %bf-size% f1) (* %bf-size% f2))) (define (BULLSIZE m lvl) (let ((md (case-fold-down m))) (case md (("bullet") (MSIZE m lvl 0.8 0.72)) (("box") (MSIZE m lvl 0.9 0.72)) (("checkbox") (MSIZE m lvl 0.9 0.72)) (("check") (MSIZE m lvl 1.0 1.0)) (("checkedbox") (MSIZE m lvl 1.0 1.0)) (("dash") (MSIZE m lvl 1.0 1.0)) (("none") (MSIZE m lvl 1.0 1.0)) (else (MSIZE m lvl 1.0 1.0))))) (define (OLSTEP) 0.9em) ;; (case ;; (modulo (length (hierarchical-number-recursive (normalize "orderedlist"))) 4) ;; ((1) 1.4em) ;; ((2) 1.4em) ;; ((3) 1.4em) ;; ((0) 1.4em))) (define (ILSTEP) 1.0em) (define (COSTEP) 1.5pi) ;; Improve spacing on lists, remove extra space before.. ;; Suggested by Adam Di Carlo, adam@onshore.com (define ($list$) (make display-group start-indent: (if (INBLOCK?) (inherited-start-indent) (+ %block-start-indent% (inherited-start-indent))) space-after: (if (INLIST?) %para-sep% %block-sep%))) (element itemizedlist ($list$)) (element (itemizedlist title) (make paragraph use: title-style (process-children))) (define (generic-list-item indent-step line-field) (let* ((itemcontent (children (current-node))) (first-child (node-list-first itemcontent)) (spacing (inherited-attribute-string (normalize "spacing")))) (make display-group start-indent: (+ (inherited-start-indent) indent-step) (make paragraph use: (cond ((equal? (gi first-child) (normalize "programlisting")) verbatim-style) ((equal? (gi first-child) (normalize "screen")) verbatim-style) ((equal? (gi first-child) (normalize "synopsis")) verbatim-style) ((equal? (gi first-child) (normalize "literallayout")) linespecific-style) ((equal? (gi first-child) (normalize "address")) linespecific-style) (else nop-style)) space-before: (if (equal? (normalize "compact") spacing) 0pt %para-sep%) first-line-start-indent: (- indent-step) (make sequence line-field) (with-mode listitem-content-mode (process-node-list first-child))) (process-node-list (node-list-rest itemcontent))))) (define (process-listitem-content) (if (absolute-first-sibling?) (make sequence (process-children-trim)) (next-match))) (mode listitem-content-mode (element (listitem programlisting) (process-listitem-content)) (element (listitem screen) (process-listitem-content)) (element (listitem synopsis) (process-listitem-content)) (element (listitem funcsynopsis) (process-listitem-content)) (element (listitem literallayout) (process-listitem-content)) (element (listitem address) (process-listitem-content)) (element (listitem para) (process-listitem-content)) (element (listitem formalpara) (process-listitem-content)) (element (listitem simpara) (process-listitem-content)) ) (element (itemizedlist listitem) (let ((ilevel (length (hierarchical-number-recursive (normalize "itemizedlist")))) (override (inherited-attribute-string (normalize "override"))) (mark (inherited-attribute-string (normalize "mark")))) (generic-list-item (ILSTEP) (if (or (and override (equal? (normalize override) (normalize "none"))) (and (not override) (equal? (normalize mark) (normalize "none")))) (make line-field font-size: (BULLTREAT BULLSIZE ilevel override mark) position-point-shift: (BULLTREAT BULLSHIFT ilevel override mark) field-width: (ILSTEP) (literal "\no-break-space;")) (make line-field font-size: (BULLTREAT BULLSIZE ilevel override mark) position-point-shift: (BULLTREAT BULLSHIFT ilevel override mark) field-width: (ILSTEP) (literal (BULLTREAT BULLSTR ilevel override mark))))))) (element orderedlist ($list$)) (element (orderedlist title) (make paragraph use: title-style (process-children))) (element (orderedlist listitem) (let* ((listitems (select-elements (children (parent (current-node))) (normalize "listitem"))) (itemnumber (orderedlist-listitem-number (current-node))) (displaynum (if (string=? (inherited-attribute-string (normalize "inheritnum")) (normalize "inherit")) (let loop ((nd (current-node)) (inum "")) (if (node-list-empty? nd) inum (if (and (equal? (gi nd) (normalize "listitem")) (equal? (gi (parent nd)) (normalize "orderedlist"))) (loop (parent nd) (string-append (number-with-numeration nd (inherited-attribute-string (normalize "numeration") nd) (orderedlist-listitem-number nd)) (if (string=? inum "") "" ".") inum)) (loop (parent nd) inum)))) (number-with-numeration (current-node) (inherited-attribute-string (normalize "numeration")) (orderedlist-listitem-number (current-node))))) (listcount (+ (node-list-length listitems) itemnumber)) (factor (cond ((> listcount 999) 4) ((> listcount 99) 3) ((> listcount 9) 2) (else 2)))) (generic-list-item (* (OLSTEP) factor) (make line-field field-width: (* (OLSTEP) factor) field-align: 'end (literal displaynum (gentext-label-title-sep (normalize "orderedlist"))))))) (define (number-with-numeration node numeration number) (let* ((depth (length (hierarchical-number-recursive (normalize "orderedlist") node))) (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)))) (num (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"))))) (if (> depth 5) (string-append "(" num ")") num))) (element variablelist (let* ((termlength (if (attribute-string (normalize "termlength")) (string->number (attribute-string (normalize "termlength"))) %default-variablelist-termlength%)) (maxlen (if (> termlength %default-variablelist-termlength%) termlength %default-variablelist-termlength%)) (too-long? (variablelist-term-too-long? termlength))) (make display-group start-indent: (if (INBLOCK?) (inherited-start-indent) (+ %block-start-indent% (inherited-start-indent))) space-before: (if (INLIST?) %para-sep% %block-sep%) space-after: (if (INLIST?) %para-sep% %block-sep%) (if (and (or (and termlength (not too-long?)) %always-format-variablelist-as-table%) (or %may-format-variablelist-as-table% %always-format-variablelist-as-table%)) (make table space-before: (if (INLIST?) %para-sep% %block-sep%) space-after: (if (INLIST?) %para-sep% %block-sep%) start-indent: (if (INBLOCK?) (inherited-start-indent) (+ %block-start-indent% (inherited-start-indent))) ;; Calculate the width of the column containing the terms... ;; ;; maxlen in (inherited-font-size) 72pt ;; x ---------- x ----------------------- x ------ = width ;; 12 chars 10pt in ;; (make table-column column-number: 1 width: (* (* (/ maxlen 12) (/ (inherited-font-size) 10pt)) 72pt)) (with-mode variablelist-table (process-children))) (process-children))))) (element varlistentry (process-children)) (element (varlistentry term) (make paragraph space-before: (if (first-sibling?) %block-sep% 0pt) keep-with-next?: #t first-line-start-indent: 0pt start-indent: (inherited-start-indent) (process-children))) (element (varlistentry listitem) (let ((vle-indent 2em)) ; this ought to be in dbparam! (generic-list-item vle-indent (make line-field field-width: vle-indent (literal "\no-break-space;"))))) (mode variablelist-table (element varlistentry (let* ((terms (select-elements (children (current-node)) (normalize "term"))) (listitem (select-elements (children (current-node)) (normalize "listitem"))) (termlen (if (attribute-string (normalize "termlength") (parent (current-node))) (string->number (attribute-string (normalize "termlength") (parent (current-node)))) %default-variablelist-termlength%)) (too-long? (varlistentry-term-too-long? (current-node) termlen))) (if too-long? (make sequence (make table-row cell-before-row-margin: %para-sep% (make table-cell column-number: 1 n-columns-spanned: 2 n-rows-spanned: 1 (process-node-list terms))) (make table-row (make table-cell column-number: 1 n-columns-spanned: 1 n-rows-spanned: 1 ;; where terms would have gone (empty-sosofo)) (make table-cell column-number: 2 n-columns-spanned: 1 n-rows-spanned: 1 (process-node-list listitem)))) (make table-row cell-before-row-margin: %para-sep% (make table-cell column-number: 1 n-columns-spanned: 1 n-rows-spanned: 1 (process-node-list terms)) (make table-cell column-number: 2 n-columns-spanned: 1 n-rows-spanned: 1 (process-node-list listitem)))))) (element (varlistentry term) (make sequence (process-children-trim) (if (not (last-sibling?)) (literal ", ") (empty-sosofo)))) (element (varlistentry listitem) (make display-group start-indent: 0pt (process-children))) ;; Suggested by Nick NICHOLAS, nicholas@uci.edu (element (variablelist title) (make table-row cell-before-row-margin: %para-sep% (make table-cell column-number: 1 n-columns-spanned: 2 n-rows-spanned: 1 (make paragraph use: title-style start-indent: 0pt (process-children))))) ) (define (simplelist-table majororder cols members) (let* ((termcount (node-list-length members)) (rows (quotient (+ termcount (- cols 1)) cols))) (make table space-before: (if (INLIST?) %para-sep% %block-sep%) space-after: (if (INLIST?) %para-sep% %block-sep%) start-indent: (if (INBLOCK?) (inherited-start-indent) (+ %block-start-indent% (inherited-start-indent))) (if %simplelist-column-width% (let colloop ((colnum 1)) (if (> colnum cols) (empty-sosofo) (make sequence (make table-column width: %simplelist-column-width%) (colloop (+ colnum 1))))) (empty-sosofo)) (let rowloop ((rownum 1)) (if (> rownum rows) (empty-sosofo) (make sequence (simplelist-row rownum majororder rows cols members) (rowloop (+ rownum 1)))))))) (define (simplelist-row rownum majororder rows cols members) (make table-row (let colloop ((colnum 1)) (if (> colnum cols) (empty-sosofo) (make sequence (simplelist-entry rownum colnum majororder rows cols members) (colloop (+ colnum 1))))))) (define (simplelist-entry rownum colnum majororder rows cols members) (let ((membernum (if (equal? majororder 'row) (+ (* (- rownum 1) cols) colnum) (+ (* (- colnum 1) rows) rownum)))) (let loop ((nl members) (count membernum)) (if (<= count 1) (make table-cell column-number: colnum n-columns-spanned: 1 n-rows-spanned: 1 ;; removed to avoid dependency between dblists and dbtable ;; cell-before-row-margin: %cals-cell-before-row-margin% ;; cell-after-row-margin: %cals-cell-after-row-margin% ;; cell-before-column-margin: %cals-cell-before-column-margin% ;; cell-after-column-margin: %cals-cell-after-column-margin% ;; start-indent: %cals-cell-content-start-indent% ;; end-indent: %cals-cell-content-end-indent% ;; is another variable needed to parameterize these settings, or are ;; constants good enough? cell-before-row-margin: 0pt cell-after-row-margin: 0pt cell-before-column-margin: 3pt cell-after-column-margin: 3pt start-indent: 0pt end-indent: 0pt quadding: 'start (if (node-list-empty? nl) (literal "\no-break-space;") (process-node-list (node-list-first nl)))) (loop (node-list-rest nl) (- count 1)))))) (element (entry simplelist) ;; This is to avoid possibly putting tables inside tables, which don't ;; work in some backends (e.g. RTF) (make paragraph (process-children))) (element (entry simplelist member) ;; This is to avoid possibly putting tables inside tables, which don't ;; work in some backends (e.g. RTF) (let ((type (inherited-attribute-string (normalize "type")))) (if (equal? type (normalize "inline")) (next-match) (make sequence (if (equal? (child-number) 1) (empty-sosofo) (make paragraph-break)) (process-children))))) (element simplelist (let ((type (attribute-string (normalize "type"))) (cols (if (attribute-string (normalize "columns")) (if (> (string->number (attribute-string (normalize "columns"))) 0) (string->number (attribute-string (normalize "columns"))) 1) 1)) (members (select-elements (children (current-node)) (normalize "member")))) (cond ((equal? type (normalize "inline")) (process-children)) ((equal? type (normalize "vert")) (simplelist-table 'column cols members)) ((equal? type (normalize "horiz")) (simplelist-table 'row cols members))))) (element member (let ((type (inherited-attribute-string (normalize "type")))) (if (equal? type (normalize "inline")) (make sequence (process-children) (if (not (last-sibling?)) (literal ", ") (literal ""))) (make paragraph quadding: 'start (process-children))))) (element segmentedlist (process-children)) (element (segmentedlist title) ($lowtitle$ 2 4)) (element segtitle (empty-sosofo)) (mode seglist-in-seg (element segtitle (make sequence font-family-name: %title-font-family% font-weight: 'bold (process-children)))) (element seglistitem ($paragraph$)) (element seg (let* ((seg-num (child-number (current-node))) (seglist (parent (parent (current-node)))) (segtitle (nth-node (select-elements (descendants seglist) (normalize "segtitle")) seg-num))) ;; Note: segtitle is only going to be the right thing in a well formed ;; SegmentedList. If there are too many Segs or too few SegTitles, ;; you'll get something odd...maybe an error (with-mode seglist-in-seg (make paragraph (make sequence font-family-name: %title-font-family% font-weight: 'bold (sosofo-append (process-node-list segtitle)) (literal ": ")) (process-children))))) (element calloutlist ($list$)) (element (calloutlist title) ($lowtitle$ 2 4)) (element callout (let* ((calloutcontent (children (current-node))) (arearefs (inherited-attribute-string (normalize "arearefs"))) (idlist (split arearefs))) (make sequence start-indent: (+ (inherited-start-indent) (COSTEP)) (make paragraph space-before: %para-sep% first-line-start-indent: (- (COSTEP)) (make line-field field-width: (COSTEP) (let loop ((ids idlist)) (if (null? ids) (empty-sosofo) (make sequence ($callout-mark$ (element-with-id (car ids))) (loop (cdr ids)))))) (process-node-list (children (node-list-first calloutcontent)))) (process-node-list (node-list-rest calloutcontent))))) docbook-dsssl-1.79/print/dblink.dsl0000644000175000001440000003450507611215267020021 0ustar msmithusers00000000000000;; $Id: dblink.dsl,v 1.6 2003/01/15 08:24:23 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ========================= LINKS AND ANCHORS ========================== (element link ;; No warnings about missing targets. Jade will do that for us, and ;; this way we can use -wno-idref if we really don't care. (let* ((endterm (attribute-string (normalize "endterm"))) (linkend (attribute-string (normalize "linkend"))) (target (element-with-id linkend)) (etarget (if endterm (element-with-id endterm) (empty-node-list))) (link-cont (if endterm (if (node-list-empty? etarget) (literal (string-append "LINK CONTENT ENDTERM '" endterm "' MISSING")) (with-mode xref-endterm-mode (process-node-list etarget))) (process-children)))) (if (node-list-empty? target) link-cont (make link destination: (node-list-address target) link-cont)))) (element ulink (make sequence (if (node-list-empty? (children (current-node))) (literal (attribute-string (normalize "url"))) (make sequence ($charseq$) (if (not (equal? (attribute-string (normalize "url")) (data-of (current-node)))) (if %footnote-ulinks% (if (and (equal? (print-backend) 'tex) bop-footnotes) (make sequence ($ss-seq$ + (literal (footnote-number (current-node)))) (make page-footnote (make paragraph font-family-name: %body-font-family% font-size: (* %footnote-size-factor% %bf-size%) font-posture: 'upright quadding: %default-quadding% line-spacing: (* (* %footnote-size-factor% %bf-size%) %line-spacing-factor%) space-before: %para-sep% space-after: %para-sep% start-indent: %footnote-field-width% first-line-start-indent: (- %footnote-field-width%) (make line-field field-width: %footnote-field-width% (literal (footnote-number (current-node)) (gentext-label-title-sep (normalize "footnote")))) (literal (attribute-string (normalize "url")))))) ($ss-seq$ + (literal (footnote-number (current-node))))) (if %show-ulinks% (make sequence (literal " (") (literal (attribute-string (normalize "url"))) (literal ")")) (empty-sosofo))) (empty-sosofo)))))) (element footnoteref (process-element-with-id (attribute-string (normalize "linkend")))) (element anchor ;; This is different than (empty-sosofo) alone because the backend ;; will hang an anchor off the empty sequence. (make sequence (empty-sosofo))) (element beginpage (empty-sosofo)) ;; ====================================================================== (define (olink-link) ;; This is an olink without a TARGETDOCENT, treat it as a link within ;; the same document. (let* ((localinfo (attribute-string (normalize "localinfo"))) (target (element-with-id localinfo)) (linkmode (attribute-string (normalize "linkmode"))) (modespec (if linkmode (element-with-id linkmode) (empty-node-list))) (xreflabel (if (node-list-empty? modespec) #f (attribute-string (normalize "xreflabel") modespec))) (linktext (strip (data-of (current-node))))) (if (node-list-empty? target) (make sequence (error (string-append "OLink to missing ID '" localinfo "'")) (if (and (equal? linktext "") xreflabel) (literal xreflabel) (process-children))) (if (equal? linktext "") (if xreflabel (xref-general target xreflabel) (xref-general target)) (process-children))))) (define (olink-simple) ;; Assumptions: ;; - The TARGETDOCENT is identified by a public ID ;; - If the element has no content, the title extracted by ;; (olink-resource-title) should be used ;; - The (olink-resource-title) function can deduce the title from ;; the pubid and the sysid (let* ((target (attribute-string (normalize "targetdocent"))) (pubid (entity-public-id target)) (sysid (system-id-filename target)) (title (olink-resource-title pubid sysid)) (linktext (strip (data-of (current-node))))) (if (equal? linktext "") (make sequence font-posture: 'italic (literal title)) (process-children)))) (define (olink-outline-xref olroot target linktext) (let* ((name (attribute-string (normalize "name") target)) (label (attribute-string (normalize "label") target)) (title (select-elements (children target) (normalize "ttl"))) (substitute (list (list "%g" (if name (literal name) (literal ""))) (list "%n" (if label (literal label) (literal ""))) (list "%t" (with-mode olink-title-mode (process-node-list title))))) (tlist (match-split-list linktext (assoc-objs substitute)))) (string-list-sosofo tlist substitute))) (define (olink-outline) (let* ((target (attribute-string (normalize "targetdocent"))) (linkmode (attribute-string (normalize "linkmode"))) (localinfo (attribute-string (normalize "localinfo"))) (modespec (if linkmode (element-with-id linkmode) (empty-node-list))) (xreflabel (if (node-list-empty? modespec) "" (attribute-string (normalize "xreflabel") modespec))) (pubid (entity-public-id target)) (sysid (system-id-filename target)) (basename (trim-string sysid '(".sgm" ".xml" ".sgml"))) (olinkfile (string-append basename %olink-outline-ext%)) (olinkdoc (sgml-parse olinkfile)) (olinkroot (node-property 'document-element olinkdoc)) (olnode (if localinfo (element-with-id localinfo olinkroot) olinkroot)) (linktext (strip (data-of (current-node))))) (if (equal? linktext "") (olink-outline-xref olinkroot olnode xreflabel) (process-children)))) (element olink (if (not (attribute-string (normalize "targetdocent"))) (olink-link) (if (attribute-string (normalize "linkmode")) (olink-outline) (olink-simple)))) (mode olink-title-mode (default (process-children)) (element ttl (make sequence font-posture: 'italic (process-children))) (element it (make sequence font-posture: 'upright (process-children))) (element tt (make sequence font-family-name: %mono-font-family% (process-children))) (element sub ($ss-seq$ -)) (element sup ($ss-seq$ +)) ) ;; ====================================================================== (element xref (let* ((endterm (attribute-string (normalize "endterm"))) (linkend (attribute-string (normalize "linkend"))) (target (element-with-id linkend)) (xreflabel (if (node-list-empty? target) #f (attribute-string (normalize "xreflabel") target)))) (if (node-list-empty? target) (error (string-append "XRef LinkEnd to missing ID '" linkend "'")) (if xreflabel (make link destination: (node-list-address target) (literal xreflabel)) (if endterm (if (node-list-empty? (element-with-id endterm)) (error (string-append "XRef EndTerm to missing ID '" endterm "'")) (make link destination: (node-list-address (element-with-id endterm)) (with-mode xref-endterm-mode (process-element-with-id endterm)))) (cond ((or (equal? (gi target) (normalize "biblioentry")) (equal? (gi target) (normalize "bibliomixed"))) ;; xref to the bibliography is a special case (xref-biblioentry target)) ((equal? (gi target) (normalize "co")) ;; callouts are a special case (xref-callout target)) ((equal? (gi target) (normalize "listitem")) (xref-listitem target)) ((equal? (gi target) (normalize "varlistentry")) (xref-varlistentry target)) ((equal? (gi target) (normalize "question")) (xref-question target)) ((equal? (gi target) (normalize "answer")) (xref-answer target)) ((equal? (gi target) (normalize "refentry")) (xref-refentry target)) ((equal? (gi target) (normalize "refnamediv")) ;; and refnamedivs (xref-refnamediv target)) ((equal? (gi target) (normalize "glossentry")) ;; as are glossentrys (xref-glossentry target)) ((equal? (gi target) (normalize "author")) ;; and authors (xref-author target)) ((equal? (gi target) (normalize "authorgroup")) ;; and authorgroups (xref-authorgroup target)) (else (xref-general target)))))))) (define (xref-general target #!optional (xref-string #f)) ;; This function is used by both XREF and OLINK (when no TARGETDOCENT ;; is specified). The only case where xref-string is supplied is ;; on OLINK. (let ((label (attribute-string (normalize "xreflabel") target))) (make link destination: (node-list-address target) (if xref-string (auto-xref target xref-string) (if label (xreflabel-sosofo label) (auto-xref target)))))) (define (xref-refentry target) ;; refmeta/refentrytitle, refmeta/manvolnum, refnamediv/refdescriptor, ;; refnamediv/refname (let* ((refmeta (select-elements (children target) (normalize "refmeta"))) (refnamediv (select-elements (children target) (normalize "refnamediv"))) (rfetitle (select-elements (children refmeta) (normalize "refentrytitle"))) (manvolnum (select-elements (children refmeta) (normalize "manvolnum"))) (refdescrip (select-elements (children refnamediv) (normalize "refdescriptor"))) (refname (select-elements (children refnamediv) (normalize "refname"))) (title (if (node-list-empty? rfetitle) (if (node-list-empty? refdescrip) (node-list-first refname) (node-list-first refdescrip)) (node-list-first rfetitle)))) (make link destination: (node-list-address target) (make sequence font-posture: (if %refentry-xref-italic% 'italic (inherited-font-posture)) (process-node-list (children title)) (if (and %refentry-xref-manvolnum% (not (node-list-empty? manvolnum))) (process-node-list manvolnum) (empty-sosofo)))))) (define (xref-refnamediv target) (let* ((refname (select-elements (children target) (normalize "refname"))) (title (node-list-first refname))) (make link destination: (node-list-address target) (make sequence font-posture: (if %refentry-xref-italic% 'italic (inherited-font-posture)) (process-node-list (children title)))))) (define (xref-varlistentry target) (let ((terms (select-elements (children target) (normalize "term")))) (make link destination: (node-list-address target) (with-mode xref-varlistentry-mode (process-node-list (node-list-first terms)))))) (define (xref-glossentry target) (let ((glossterms (select-elements (children target) (normalize "glossterm")))) (make link destination: (node-list-address target) (with-mode xref-glossentry-mode (process-node-list (node-list-first glossterms)))))) (define (xref-author target) (make link destination: (node-list-address target) (literal (author-string target)))) (define (xref-authorgroup target) ;; it's a quirk of author-list-string that it needs to point to ;; one of the authors in the authorgroup, not the authorgroup. ;; go figure. (make link destination: (node-list-address target) (let loop ((author (select-elements (children target) (normalize "author")))) (if (node-list-empty? author) (empty-sosofo) (make sequence (literal (author-list-string (node-list-first author))) (loop (node-list-rest author))))))) (define (xref-biblioentry target) (let* ((abbrev (node-list-first (node-list-filter-out-pis (children target)))) (label (attribute-string (normalize "xreflabel") target))) (make link destination: (node-list-address target) (if biblio-xref-title (let* ((citetitles (select-elements (descendants target) (normalize "citetitle"))) (titles (select-elements (descendants target) (normalize "title"))) (title (if (node-list-empty? citetitles) (node-list-first titles) (node-list-first citetitles)))) (with-mode xref-title-mode (process-node-list title))) (if biblio-number (make sequence (literal "[" (number->string (bibentry-number target)) "]")) (if label (make sequence (literal "[" label "]")) (if (equal? (gi abbrev) (normalize "abbrev")) (make sequence (process-node-list abbrev)) (make sequence (literal "[" (attribute-string (normalize "id") target) "]"))))))))) (define (xref-callout target) (make link destination: (node-list-address target) ($callout-mark$ target))) (define (xref-listitem target) (if (equal? (gi (parent target)) (normalize "orderedlist")) (make link destination: (node-list-address target) (literal (orderedlist-listitem-label-recursive target))) (error (string-append "XRef to LISTITEM only supported in ORDEREDLISTs")))) (define (xref-question target) (make link destination: (node-list-address target) (make sequence (literal (gentext-element-name target)) (literal (gentext-label-title-sep target)) (literal (question-answer-label target))))) (define (xref-answer target) (xref-question target)) (mode xref-endterm-mode (default (make sequence font-posture: 'italic (process-children-trim)))) (define (xreflabel-sosofo xreflabel) (make sequence font-posture: 'italic (literal xreflabel))) ;; ====================================================================== ;; Returns the title of the element as a sosofo, italicized for xref. ;; (define (element-title-xref-sosofo nd) (make sequence font-posture: 'italic (element-title-sosofo nd))) (mode xref-title-mode (element title (make sequence font-posture: 'italic (process-children-trim))) (element citetitle (make sequence font-posture: 'italic (process-children-trim))) (element refname (process-children-trim)) (element refentrytitle (process-children-trim)) ) (mode xref-varlistentry-mode (element term ($italic-seq$))) (mode xref-glossentry-mode (element glossterm ($italic-seq$))) ;; ====================================================================== (define (element-page-number-sosofo target) (with-mode pageno-mode (process-node-list target))) (mode pageno-mode (default (current-node-page-number-sosofo))) ;; ====================================================================== docbook-dsssl-1.79/print/dbinline.dsl0000644000175000001440000002045407640131724020335 0ustar msmithusers00000000000000;; $Id: dbinline.dsl,v 1.7 2003/03/25 19:53:56 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ============================== INLINES =============================== (element abbrev ($charseq$)) (element accel ($score-seq$ 'after)) (element acronym ($charseq$)) (element action ($charseq$)) (element application ($charseq$)) (element classname ($mono-seq$)) (element constant ($mono-seq$)) (element command ($bold-seq$)) (element computeroutput ($mono-seq$)) (element database ($charseq$)) (element email (make sequence (literal "<") ($mono-seq$) (literal ">"))) (element envar ($charseq$)) (element errorcode ($charseq$)) (element errorname ($charseq$)) (element errortype ($charseq$)) (element filename ($mono-seq$)) (element function ($mono-seq$)) (element guibutton ($guilabel-seq$)) (element guiicon ($guilabel-seq$)) (element guilabel ($guilabel-seq$)) (element guimenu ($guilabel-seq$)) (element guimenuitem ($guilabel-seq$)) (element guisubmenu ($guilabel-seq$)) (element hardware ($charseq$)) (element interface ($charseq$)) (element interfacedefinition ($charseq$)) (element keycap ($bold-seq$)) (element keycode ($charseq$)) (element keycombo (let* ((action (attribute-string (normalize "action"))) (joinchar (cond ((equal? action (normalize "seq")) " ") ;; space ((equal? action (normalize "simul")) "+") ;; + ((equal? action (normalize "press")) "-") ;; ? I don't know ((equal? action (normalize "click")) "-") ;; ? what to do ((equal? action (normalize "double-click")) "-") ;; ? about the rest ((equal? action (normalize "other")) "-") ;; ? of these (else "-")))) (let loop ((nl (children (current-node))) (count 1)) (if (node-list-empty? nl) (empty-sosofo) (if (equal? count 1) (make sequence (process-node-list (node-list-first nl)) (loop (node-list-rest nl) (+ count 1))) (make sequence (literal joinchar) (process-node-list (node-list-first nl)) (loop (node-list-rest nl) (+ count 1)))))))) (element keysym ($charseq$)) (element literal ($mono-seq$)) (element medialabel ($italic-seq$)) (element menuchoice (let* ((shortcut (select-elements (children (current-node)) (normalize "shortcut"))) (items (node-list-filter-by-not-gi (children (current-node)) (list (normalize "shortcut"))))) (make sequence (let loop ((nl items) (first? #t)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (if first? (process-node-list (node-list-first nl)) (make sequence (if (or (equal? (gi (node-list-first nl)) (normalize "guimenuitem")) (equal? (gi (node-list-first nl)) (normalize "guisubmenu"))) (literal "\rightwards-arrow;") (literal "+")) (process-node-list (node-list-first nl)))) (loop (node-list-rest nl) #f)))) (if (node-list-empty? shortcut) (empty-sosofo) (make sequence (literal " (") (process-node-list shortcut) (literal ")")))))) (element methodname ($mono-seq$)) (element shortcut ($bold-seq$)) (element mousebutton ($charseq$)) (element option ($mono-seq$)) (element optional (make sequence (literal %arg-choice-opt-open-str%) ($charseq$) (literal %arg-choice-opt-close-str%))) (element parameter ($italic-mono-seq$)) (element property ($charseq$)) (element prompt ($mono-seq$)) (element replaceable ($italic-mono-seq$)) (element returnvalue ($charseq$)) (element structfield ($italic-mono-seq$)) (element structname ($charseq$)) (element symbol ($charseq$)) (element systemitem ($charseq$)) (element token ($charseq$)) (element type ($charseq$)) (element userinput ($bold-mono-seq$)) (element varname ($mono-seq$)) (element citation (if biblio-citation-check (let* ((bgraphies (select-elements (descendants (sgml-root-element)) (normalize "bibliography"))) (bchildren1 (expand-children bgraphies (list (normalize "bibliography")))) (bchildren2 (expand-children bchildren1 (list (normalize "bibliodiv")))) (bibentries (node-list-filter-by-gi bchildren2 (list (normalize "biblioentry") (normalize "bibliomixed"))))) (let loop ((bibs bibentries)) (if (node-list-empty? bibs) (make sequence (error (string-append "Cannot find citation: " (data (current-node)))) (literal "[") ($charseq$) (literal "]")) (if (citation-matches-target? (current-node) (node-list-first bibs)) (make link destination: (node-list-address (node-list-first bibs)) (literal "[") ($charseq$) (literal "]")) (loop (node-list-rest bibs)))))) (make sequence (literal "[") ($charseq$) (literal "]")))) (element citerefentry (if %refentry-xref-italic% ($italic-seq$) ($charseq$))) (element citetitle (if (equal? (attribute-string (normalize "pubwork")) "article") (make sequence (literal (gentext-start-quote)) (process-children) (literal (gentext-end-quote))) ($italic-seq$))) (element emphasis (if (and (attribute-string (normalize "role")) (or (equal? (attribute-string (normalize "role")) "strong") (equal? (attribute-string (normalize "role")) "bold"))) ($bold-seq$) ($italic-seq$))) (element foreignphrase ($italic-seq$)) (element markup ($charseq$)) (element phrase ($charseq$)) (element quote (let* ((hnr (hierarchical-number-recursive (normalize "quote") (current-node))) (depth (length hnr))) (if (equal? (modulo depth 2) 1) (make sequence (literal (gentext-start-nested-quote)) (process-children) (literal (gentext-end-nested-quote))) (make sequence (literal (gentext-start-quote)) (process-children) (literal (gentext-end-quote)))))) (element sgmltag (let ((class (if (attribute-string (normalize "class")) (attribute-string (normalize "class")) (normalize "element")))) (cond ")))) ((equal? class (normalize "endtag")) ($mono-seq$ (make sequence (literal "")))) ((equal? class (normalize "genentity")) ($mono-seq$ (make sequence (literal "&") (process-children) (literal ";")))) ((equal? class (normalize "numcharref")) ($mono-seq$ (make sequence (literal "&#") (process-children) (literal ";")))) ((equal? class (normalize "paramentity")) ($mono-seq$ (make sequence (literal "%") (process-children) (literal ";")))) ((equal? class (normalize "pi")) ($mono-seq$ (make sequence (literal "")))) ((equal? class (normalize "starttag")) ($mono-seq$ (make sequence (literal "<") (process-children) (literal ">")))) ((equal? class (normalize "sgmlcomment")) ($mono-seq$ (make sequence (literal "")))) ((equal? class (normalize "xmlpi")) ($mono-seq$ (make sequence (literal "")))) ]]> (else ($charseq$))))) (element trademark (make sequence ($charseq$) (cond ((equal? (attribute-string "class") (normalize "copyright")) (literal "\copyright-sign;")) ((equal? (attribute-string "class") (normalize "registered")) (literal "\registered-sign;")) ((equal? (attribute-string "class") (normalize "service")) ($ss-seq$ + (literal "SM"))) (else (literal "\trade-mark-sign;"))))) (element wordasword ($italic-seq$)) (element lineannotation (make sequence font-family-name: %body-font-family% font-posture: 'italic (process-children))) (define ($ss-seq$ plus-or-minus #!optional (sosofo (process-children))) (make sequence font-size: (* (inherited-font-size) %ss-size-factor%) position-point-shift: (plus-or-minus (* (inherited-font-size) %ss-shift-factor%)) sosofo)) (element superscript ($ss-seq$ +)) (element subscript ($ss-seq$ -)) docbook-dsssl-1.79/print/dbinfo.dsl0000644000175000001440000013410107611215267020010 0ustar msmithusers00000000000000;; $Id: dbinfo.dsl,v 1.3 2003/01/15 08:24:23 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ................................ INFO ................................ ;; Rather than make the *INFO containers empty-sosofos, we make them ;; process-children and then make all of the elements they may contain ;; empty in this context. The advantage here is that we can then ;; more easily override some of them in stylesheets that use this one. (element setinfo (empty-sosofo)) (element (setinfo abbrev) (empty-sosofo)) (element (setinfo abstract) (empty-sosofo)) (element (setinfo address) (empty-sosofo)) (element (setinfo affiliation) (empty-sosofo)) (element (setinfo artpagenums) (empty-sosofo)) (element (setinfo author) (empty-sosofo)) (element (setinfo authorblurb) (empty-sosofo)) (element (setinfo authorgroup) (empty-sosofo)) (element (setinfo authorinitials) (empty-sosofo)) (element (setinfo bibliomisc) (empty-sosofo)) (element (setinfo biblioset) (empty-sosofo)) (element (setinfo collab) (empty-sosofo)) (element (setinfo confgroup) (empty-sosofo)) (element (setinfo contractnum) (empty-sosofo)) (element (setinfo contractsponsor) (empty-sosofo)) (element (setinfo contrib) (empty-sosofo)) (element (setinfo copyright) (empty-sosofo)) (element (setinfo corpauthor) (empty-sosofo)) (element (setinfo corpname) (empty-sosofo)) (element (setinfo date) (empty-sosofo)) (element (setinfo edition) (empty-sosofo)) (element (setinfo editor) (empty-sosofo)) (element (setinfo firstname) (empty-sosofo)) (element (setinfo graphic) (empty-sosofo)) (element (setinfo honorific) (empty-sosofo)) (element (setinfo invpartnumber) (empty-sosofo)) (element (setinfo isbn) (empty-sosofo)) (element (setinfo issn) (empty-sosofo)) (element (setinfo issuenum) (empty-sosofo)) (element (setinfo itermset) (empty-sosofo)) (element (setinfo keywordset) (empty-sosofo)) (element (setinfo legalnotice) (empty-sosofo)) (element (setinfo lineage) (empty-sosofo)) (element (setinfo modespec) (empty-sosofo)) (element (setinfo orgname) (empty-sosofo)) (element (setinfo othercredit) (empty-sosofo)) (element (setinfo othername) (empty-sosofo)) (element (setinfo pagenums) (empty-sosofo)) (element (setinfo printhistory) (empty-sosofo)) (element (setinfo productname) (empty-sosofo)) (element (setinfo productnumber) (empty-sosofo)) (element (setinfo pubdate) (empty-sosofo)) (element (setinfo publisher) (empty-sosofo)) (element (setinfo publishername) (empty-sosofo)) (element (setinfo pubsnumber) (empty-sosofo)) (element (setinfo releaseinfo) (empty-sosofo)) (element (setinfo revhistory) (empty-sosofo)) (element (setinfo seriesvolnums) (empty-sosofo)) (element (setinfo subjectset) (empty-sosofo)) (element (setinfo subtitle) (empty-sosofo)) (element (setinfo surname) (empty-sosofo)) (element (setinfo title) (empty-sosofo)) (element (setinfo titleabbrev) (empty-sosofo)) (element (setinfo volumenum) (empty-sosofo)) ;; BookInfo is handled differently in dbdivis.dsl by using a ;; special mode... (element bookinfo (empty-sosofo)) (element (bookinfo abbrev) (process-children)) (element (bookinfo abstract) (process-children)) (element (bookinfo address) (process-children)) (element (bookinfo affiliation) (process-children)) (element (bookinfo artpagenums) (process-children)) (element (bookinfo author) (process-children)) (element (bookinfo authorblurb) (process-children)) (element (bookinfo authorgroup) (process-children)) (element (bookinfo authorinitials) (process-children)) (element (bookinfo bibliomisc) (process-children)) (element (bookinfo biblioset) (process-children)) (element (bookinfo bookbiblio) (process-children)) (element (bookinfo collab) (process-children)) (element (bookinfo confgroup) (process-children)) (element (bookinfo contractnum) (process-children)) (element (bookinfo contractsponsor) (process-children)) (element (bookinfo contrib) (process-children)) ;; (element (bookinfo copyright) (process-children)) ;; the default is good (element (bookinfo corpauthor) (process-children)) (element (bookinfo corpname) (process-children)) (element (bookinfo date) (process-children)) (element (bookinfo edition) (process-children)) (element (bookinfo editor) (process-children)) (element (bookinfo firstname) (process-children)) (element (bookinfo graphic) (process-children)) (element (bookinfo honorific) (process-children)) (element (bookinfo invpartnumber) (process-children)) (element (bookinfo isbn) (process-children)) (element (bookinfo issn) (process-children)) (element (bookinfo issuenum) (process-children)) (element (bookinfo itermset) (process-children)) (element (bookinfo keywordset) (process-children)) (element (bookinfo legalnotice) ($semiformal-object$)) (element (bookinfo lineage) (process-children)) (element (bookinfo modespec) (process-children)) (element (bookinfo orgname) (process-children)) (element (bookinfo othercredit) (process-children)) (element (bookinfo othername) (process-children)) (element (bookinfo pagenums) (process-children)) (element (bookinfo printhistory) (process-children)) (element (bookinfo productname) (process-children)) (element (bookinfo productnumber) (process-children)) (element (bookinfo pubdate) (process-children)) (element (bookinfo publisher) (process-children)) (element (bookinfo publishername) (process-children)) (element (bookinfo pubsnumber) (process-children)) (element (bookinfo releaseinfo) (process-children)) (element (bookinfo revhistory) ($book-revhistory$)) (element (bookinfo seriesvolnums) (process-children)) (element (bookinfo subjectset) (process-children)) (element (bookinfo subtitle) (process-children)) (element (bookinfo surname) (process-children)) (element (bookinfo title) (process-children)) (element (bookinfo titleabbrev) (process-children)) (element (bookinfo volumenum) (process-children)) (element docinfo (empty-sosofo)) (element (docinfo abbrev) (empty-sosofo)) (element (docinfo abstract) (empty-sosofo)) (element (docinfo address) (empty-sosofo)) (element (docinfo affiliation) (empty-sosofo)) (element (docinfo artpagenums) (empty-sosofo)) (element (docinfo author) (empty-sosofo)) (element (docinfo authorblurb) (empty-sosofo)) (element (docinfo authorgroup) (empty-sosofo)) (element (docinfo authorinitials) (empty-sosofo)) (element (docinfo bibliomisc) (empty-sosofo)) (element (docinfo biblioset) (empty-sosofo)) (element (docinfo collab) (empty-sosofo)) (element (docinfo confgroup) (empty-sosofo)) (element (docinfo contractnum) (empty-sosofo)) (element (docinfo contractsponsor) (empty-sosofo)) (element (docinfo contrib) (empty-sosofo)) (element (docinfo copyright) (empty-sosofo)) (element (docinfo corpauthor) (empty-sosofo)) (element (docinfo corpname) (empty-sosofo)) (element (docinfo date) (empty-sosofo)) (element (docinfo edition) (empty-sosofo)) (element (docinfo editor) (empty-sosofo)) (element (docinfo firstname) (empty-sosofo)) (element (docinfo graphic) (empty-sosofo)) (element (docinfo honorific) (empty-sosofo)) (element (docinfo invpartnumber) (empty-sosofo)) (element (docinfo isbn) (empty-sosofo)) (element (docinfo issn) (empty-sosofo)) (element (docinfo issuenum) (empty-sosofo)) (element (docinfo itermset) (empty-sosofo)) (element (docinfo keywordset) (empty-sosofo)) (element (docinfo legalnotice) (empty-sosofo)) (element (docinfo lineage) (empty-sosofo)) (element (docinfo modespec) (empty-sosofo)) (element (docinfo orgname) (empty-sosofo)) (element (docinfo othercredit) (empty-sosofo)) (element (docinfo othername) (empty-sosofo)) (element (docinfo pagenums) (empty-sosofo)) (element (docinfo printhistory) (empty-sosofo)) (element (docinfo productname) (empty-sosofo)) (element (docinfo productnumber) (empty-sosofo)) (element (docinfo pubdate) (empty-sosofo)) (element (docinfo publisher) (empty-sosofo)) (element (docinfo publishername) (empty-sosofo)) (element (docinfo pubsnumber) (empty-sosofo)) (element (docinfo releaseinfo) (empty-sosofo)) (element (docinfo revhistory) (empty-sosofo)) (element (docinfo seriesvolnums) (empty-sosofo)) (element (docinfo subjectset) (empty-sosofo)) (element (docinfo subtitle) (empty-sosofo)) (element (docinfo surname) (empty-sosofo)) (element (docinfo title) (empty-sosofo)) (element (docinfo titleabbrev) (empty-sosofo)) (element (docinfo volumenum) (empty-sosofo)) (element sect1info (process-children)) (element (sect1info abbrev) (empty-sosofo)) (element (sect1info abstract) (empty-sosofo)) (element (sect1info address) (empty-sosofo)) (element (sect1info affiliation) (empty-sosofo)) (element (sect1info artpagenums) (empty-sosofo)) (element (sect1info author) (empty-sosofo)) (element (sect1info authorblurb) (empty-sosofo)) (element (sect1info authorgroup) (empty-sosofo)) (element (sect1info authorinitials) (empty-sosofo)) (element (sect1info bibliomisc) (empty-sosofo)) (element (sect1info biblioset) (empty-sosofo)) (element (sect1info collab) (empty-sosofo)) (element (sect1info confgroup) (empty-sosofo)) (element (sect1info contractnum) (empty-sosofo)) (element (sect1info contractsponsor) (empty-sosofo)) (element (sect1info contrib) (empty-sosofo)) (element (sect1info copyright) (empty-sosofo)) (element (sect1info corpauthor) (empty-sosofo)) (element (sect1info corpname) (empty-sosofo)) (element (sect1info date) (empty-sosofo)) (element (sect1info edition) (empty-sosofo)) (element (sect1info editor) (empty-sosofo)) (element (sect1info firstname) (empty-sosofo)) (element (sect1info graphic) (empty-sosofo)) (element (sect1info honorific) (empty-sosofo)) (element (sect1info invpartnumber) (empty-sosofo)) (element (sect1info isbn) (empty-sosofo)) (element (sect1info issn) (empty-sosofo)) (element (sect1info issuenum) (empty-sosofo)) (element (sect1info itermset) (empty-sosofo)) (element (sect1info keywordset) (empty-sosofo)) (element (sect1info legalnotice) (empty-sosofo)) (element (sect1info lineage) (empty-sosofo)) (element (sect1info modespec) (empty-sosofo)) (element (sect1info orgname) (empty-sosofo)) (element (sect1info othercredit) (empty-sosofo)) (element (sect1info othername) (empty-sosofo)) (element (sect1info pagenums) (empty-sosofo)) (element (sect1info printhistory) (empty-sosofo)) (element (sect1info productname) (empty-sosofo)) (element (sect1info productnumber) (empty-sosofo)) (element (sect1info pubdate) (empty-sosofo)) (element (sect1info publisher) (empty-sosofo)) (element (sect1info publishername) (empty-sosofo)) (element (sect1info pubsnumber) (empty-sosofo)) (element (sect1info releaseinfo) (empty-sosofo)) (element (sect1info revhistory) (empty-sosofo)) (element (sect1info seriesvolnums) (empty-sosofo)) (element (sect1info subjectset) (empty-sosofo)) (element (sect1info subtitle) (empty-sosofo)) (element (sect1info surname) (empty-sosofo)) (element (sect1info title) (empty-sosofo)) (element (sect1info titleabbrev) (empty-sosofo)) (element (sect1info volumenum) (empty-sosofo)) (element sect2info (process-children)) (element (sect2info abbrev) (empty-sosofo)) (element (sect2info abstract) (empty-sosofo)) (element (sect2info address) (empty-sosofo)) (element (sect2info affiliation) (empty-sosofo)) (element (sect2info artpagenums) (empty-sosofo)) (element (sect2info author) (empty-sosofo)) (element (sect2info authorblurb) (empty-sosofo)) (element (sect2info authorgroup) (empty-sosofo)) (element (sect2info authorinitials) (empty-sosofo)) (element (sect2info bibliomisc) (empty-sosofo)) (element (sect2info biblioset) (empty-sosofo)) (element (sect2info collab) (empty-sosofo)) (element (sect2info confgroup) (empty-sosofo)) (element (sect2info contractnum) (empty-sosofo)) (element (sect2info contractsponsor) (empty-sosofo)) (element (sect2info contrib) (empty-sosofo)) (element (sect2info copyright) (empty-sosofo)) (element (sect2info corpauthor) (empty-sosofo)) (element (sect2info corpname) (empty-sosofo)) (element (sect2info date) (empty-sosofo)) (element (sect2info edition) (empty-sosofo)) (element (sect2info editor) (empty-sosofo)) (element (sect2info firstname) (empty-sosofo)) (element (sect2info graphic) (empty-sosofo)) (element (sect2info honorific) (empty-sosofo)) (element (sect2info invpartnumber) (empty-sosofo)) (element (sect2info isbn) (empty-sosofo)) (element (sect2info issn) (empty-sosofo)) (element (sect2info issuenum) (empty-sosofo)) (element (sect2info itermset) (empty-sosofo)) (element (sect2info keywordset) (empty-sosofo)) (element (sect2info legalnotice) (empty-sosofo)) (element (sect2info lineage) (empty-sosofo)) (element (sect2info modespec) (empty-sosofo)) (element (sect2info orgname) (empty-sosofo)) (element (sect2info othercredit) (empty-sosofo)) (element (sect2info othername) (empty-sosofo)) (element (sect2info pagenums) (empty-sosofo)) (element (sect2info printhistory) (empty-sosofo)) (element (sect2info productname) (empty-sosofo)) (element (sect2info productnumber) (empty-sosofo)) (element (sect2info pubdate) (empty-sosofo)) (element (sect2info publisher) (empty-sosofo)) (element (sect2info publishername) (empty-sosofo)) (element (sect2info pubsnumber) (empty-sosofo)) (element (sect2info releaseinfo) (empty-sosofo)) (element (sect2info revhistory) (empty-sosofo)) (element (sect2info seriesvolnums) (empty-sosofo)) (element (sect2info subjectset) (empty-sosofo)) (element (sect2info subtitle) (empty-sosofo)) (element (sect2info surname) (empty-sosofo)) (element (sect2info title) (empty-sosofo)) (element (sect2info titleabbrev) (empty-sosofo)) (element (sect2info volumenum) (empty-sosofo)) (element sect3info (process-children)) (element (sect3info abbrev) (empty-sosofo)) (element (sect3info abstract) (empty-sosofo)) (element (sect3info address) (empty-sosofo)) (element (sect3info affiliation) (empty-sosofo)) (element (sect3info artpagenums) (empty-sosofo)) (element (sect3info author) (empty-sosofo)) (element (sect3info authorblurb) (empty-sosofo)) (element (sect3info authorgroup) (empty-sosofo)) (element (sect3info authorinitials) (empty-sosofo)) (element (sect3info bibliomisc) (empty-sosofo)) (element (sect3info biblioset) (empty-sosofo)) (element (sect3info collab) (empty-sosofo)) (element (sect3info confgroup) (empty-sosofo)) (element (sect3info contractnum) (empty-sosofo)) (element (sect3info contractsponsor) (empty-sosofo)) (element (sect3info contrib) (empty-sosofo)) (element (sect3info copyright) (empty-sosofo)) (element (sect3info corpauthor) (empty-sosofo)) (element (sect3info corpname) (empty-sosofo)) (element (sect3info date) (empty-sosofo)) (element (sect3info edition) (empty-sosofo)) (element (sect3info editor) (empty-sosofo)) (element (sect3info firstname) (empty-sosofo)) (element (sect3info graphic) (empty-sosofo)) (element (sect3info honorific) (empty-sosofo)) (element (sect3info invpartnumber) (empty-sosofo)) (element (sect3info isbn) (empty-sosofo)) (element (sect3info issn) (empty-sosofo)) (element (sect3info issuenum) (empty-sosofo)) (element (sect3info itermset) (empty-sosofo)) (element (sect3info keywordset) (empty-sosofo)) (element (sect3info legalnotice) (empty-sosofo)) (element (sect3info lineage) (empty-sosofo)) (element (sect3info modespec) (empty-sosofo)) (element (sect3info orgname) (empty-sosofo)) (element (sect3info othercredit) (empty-sosofo)) (element (sect3info othername) (empty-sosofo)) (element (sect3info pagenums) (empty-sosofo)) (element (sect3info printhistory) (empty-sosofo)) (element (sect3info productname) (empty-sosofo)) (element (sect3info productnumber) (empty-sosofo)) (element (sect3info pubdate) (empty-sosofo)) (element (sect3info publisher) (empty-sosofo)) (element (sect3info publishername) (empty-sosofo)) (element (sect3info pubsnumber) (empty-sosofo)) (element (sect3info releaseinfo) (empty-sosofo)) (element (sect3info revhistory) (empty-sosofo)) (element (sect3info seriesvolnums) (empty-sosofo)) (element (sect3info subjectset) (empty-sosofo)) (element (sect3info subtitle) (empty-sosofo)) (element (sect3info surname) (empty-sosofo)) (element (sect3info title) (empty-sosofo)) (element (sect3info titleabbrev) (empty-sosofo)) (element (sect3info volumenum) (empty-sosofo)) (element sect4info (process-children)) (element (sect4info abbrev) (empty-sosofo)) (element (sect4info abstract) (empty-sosofo)) (element (sect4info address) (empty-sosofo)) (element (sect4info affiliation) (empty-sosofo)) (element (sect4info artpagenums) (empty-sosofo)) (element (sect4info author) (empty-sosofo)) (element (sect4info authorblurb) (empty-sosofo)) (element (sect4info authorgroup) (empty-sosofo)) (element (sect4info authorinitials) (empty-sosofo)) (element (sect4info bibliomisc) (empty-sosofo)) (element (sect4info biblioset) (empty-sosofo)) (element (sect4info collab) (empty-sosofo)) (element (sect4info confgroup) (empty-sosofo)) (element (sect4info contractnum) (empty-sosofo)) (element (sect4info contractsponsor) (empty-sosofo)) (element (sect4info contrib) (empty-sosofo)) (element (sect4info copyright) (empty-sosofo)) (element (sect4info corpauthor) (empty-sosofo)) (element (sect4info corpname) (empty-sosofo)) (element (sect4info date) (empty-sosofo)) (element (sect4info edition) (empty-sosofo)) (element (sect4info editor) (empty-sosofo)) (element (sect4info firstname) (empty-sosofo)) (element (sect4info graphic) (empty-sosofo)) (element (sect4info honorific) (empty-sosofo)) (element (sect4info invpartnumber) (empty-sosofo)) (element (sect4info isbn) (empty-sosofo)) (element (sect4info issn) (empty-sosofo)) (element (sect4info issuenum) (empty-sosofo)) (element (sect4info itermset) (empty-sosofo)) (element (sect4info keywordset) (empty-sosofo)) (element (sect4info legalnotice) (empty-sosofo)) (element (sect4info lineage) (empty-sosofo)) (element (sect4info modespec) (empty-sosofo)) (element (sect4info orgname) (empty-sosofo)) (element (sect4info othercredit) (empty-sosofo)) (element (sect4info othername) (empty-sosofo)) (element (sect4info pagenums) (empty-sosofo)) (element (sect4info printhistory) (empty-sosofo)) (element (sect4info productname) (empty-sosofo)) (element (sect4info productnumber) (empty-sosofo)) (element (sect4info pubdate) (empty-sosofo)) (element (sect4info publisher) (empty-sosofo)) (element (sect4info publishername) (empty-sosofo)) (element (sect4info pubsnumber) (empty-sosofo)) (element (sect4info releaseinfo) (empty-sosofo)) (element (sect4info revhistory) (empty-sosofo)) (element (sect4info seriesvolnums) (empty-sosofo)) (element (sect4info subjectset) (empty-sosofo)) (element (sect4info subtitle) (empty-sosofo)) (element (sect4info surname) (empty-sosofo)) (element (sect4info title) (empty-sosofo)) (element (sect4info titleabbrev) (empty-sosofo)) (element (sect4info volumenum) (empty-sosofo)) (element sect5info (process-children)) (element (sect5info abbrev) (empty-sosofo)) (element (sect5info abstract) (empty-sosofo)) (element (sect5info address) (empty-sosofo)) (element (sect5info affiliation) (empty-sosofo)) (element (sect5info artpagenums) (empty-sosofo)) (element (sect5info author) (empty-sosofo)) (element (sect5info authorblurb) (empty-sosofo)) (element (sect5info authorgroup) (empty-sosofo)) (element (sect5info authorinitials) (empty-sosofo)) (element (sect5info bibliomisc) (empty-sosofo)) (element (sect5info biblioset) (empty-sosofo)) (element (sect5info collab) (empty-sosofo)) (element (sect5info confgroup) (empty-sosofo)) (element (sect5info contractnum) (empty-sosofo)) (element (sect5info contractsponsor) (empty-sosofo)) (element (sect5info contrib) (empty-sosofo)) (element (sect5info copyright) (empty-sosofo)) (element (sect5info corpauthor) (empty-sosofo)) (element (sect5info corpname) (empty-sosofo)) (element (sect5info date) (empty-sosofo)) (element (sect5info edition) (empty-sosofo)) (element (sect5info editor) (empty-sosofo)) (element (sect5info firstname) (empty-sosofo)) (element (sect5info graphic) (empty-sosofo)) (element (sect5info honorific) (empty-sosofo)) (element (sect5info invpartnumber) (empty-sosofo)) (element (sect5info isbn) (empty-sosofo)) (element (sect5info issn) (empty-sosofo)) (element (sect5info issuenum) (empty-sosofo)) (element (sect5info itermset) (empty-sosofo)) (element (sect5info keywordset) (empty-sosofo)) (element (sect5info legalnotice) (empty-sosofo)) (element (sect5info lineage) (empty-sosofo)) (element (sect5info modespec) (empty-sosofo)) (element (sect5info orgname) (empty-sosofo)) (element (sect5info othercredit) (empty-sosofo)) (element (sect5info othername) (empty-sosofo)) (element (sect5info pagenums) (empty-sosofo)) (element (sect5info printhistory) (empty-sosofo)) (element (sect5info productname) (empty-sosofo)) (element (sect5info productnumber) (empty-sosofo)) (element (sect5info pubdate) (empty-sosofo)) (element (sect5info publisher) (empty-sosofo)) (element (sect5info publishername) (empty-sosofo)) (element (sect5info pubsnumber) (empty-sosofo)) (element (sect5info releaseinfo) (empty-sosofo)) (element (sect5info revhistory) (empty-sosofo)) (element (sect5info seriesvolnums) (empty-sosofo)) (element (sect5info subjectset) (empty-sosofo)) (element (sect5info subtitle) (empty-sosofo)) (element (sect5info surname) (empty-sosofo)) (element (sect5info title) (empty-sosofo)) (element (sect5info titleabbrev) (empty-sosofo)) (element (sect5info volumenum) (empty-sosofo)) (element refsect1info (process-children)) (element (refsect1info abbrev) (empty-sosofo)) (element (refsect1info abstract) (empty-sosofo)) (element (refsect1info address) (empty-sosofo)) (element (refsect1info affiliation) (empty-sosofo)) (element (refsect1info artpagenums) (empty-sosofo)) (element (refsect1info author) (empty-sosofo)) (element (refsect1info authorblurb) (empty-sosofo)) (element (refsect1info authorgroup) (empty-sosofo)) (element (refsect1info authorinitials) (empty-sosofo)) (element (refsect1info bibliomisc) (empty-sosofo)) (element (refsect1info biblioset) (empty-sosofo)) (element (refsect1info collab) (empty-sosofo)) (element (refsect1info confgroup) (empty-sosofo)) (element (refsect1info contractnum) (empty-sosofo)) (element (refsect1info contractsponsor) (empty-sosofo)) (element (refsect1info contrib) (empty-sosofo)) (element (refsect1info copyright) (empty-sosofo)) (element (refsect1info corpauthor) (empty-sosofo)) (element (refsect1info corpname) (empty-sosofo)) (element (refsect1info date) (empty-sosofo)) (element (refsect1info edition) (empty-sosofo)) (element (refsect1info editor) (empty-sosofo)) (element (refsect1info firstname) (empty-sosofo)) (element (refsect1info graphic) (empty-sosofo)) (element (refsect1info honorific) (empty-sosofo)) (element (refsect1info invpartnumber) (empty-sosofo)) (element (refsect1info isbn) (empty-sosofo)) (element (refsect1info issn) (empty-sosofo)) (element (refsect1info issuenum) (empty-sosofo)) (element (refsect1info itermset) (empty-sosofo)) (element (refsect1info keywordset) (empty-sosofo)) (element (refsect1info legalnotice) (empty-sosofo)) (element (refsect1info lineage) (empty-sosofo)) (element (refsect1info modespec) (empty-sosofo)) (element (refsect1info orgname) (empty-sosofo)) (element (refsect1info othercredit) (empty-sosofo)) (element (refsect1info othername) (empty-sosofo)) (element (refsect1info pagenums) (empty-sosofo)) (element (refsect1info printhistory) (empty-sosofo)) (element (refsect1info productname) (empty-sosofo)) (element (refsect1info productnumber) (empty-sosofo)) (element (refsect1info pubdate) (empty-sosofo)) (element (refsect1info publisher) (empty-sosofo)) (element (refsect1info publishername) (empty-sosofo)) (element (refsect1info pubsnumber) (empty-sosofo)) (element (refsect1info releaseinfo) (empty-sosofo)) (element (refsect1info revhistory) (empty-sosofo)) (element (refsect1info seriesvolnums) (empty-sosofo)) (element (refsect1info subjectset) (empty-sosofo)) (element (refsect1info subtitle) (empty-sosofo)) (element (refsect1info surname) (empty-sosofo)) (element (refsect1info title) (empty-sosofo)) (element (refsect1info titleabbrev) (empty-sosofo)) (element (refsect1info volumenum) (empty-sosofo)) (element refsect2info (process-children)) (element (refsect2info abbrev) (empty-sosofo)) (element (refsect2info abstract) (empty-sosofo)) (element (refsect2info address) (empty-sosofo)) (element (refsect2info affiliation) (empty-sosofo)) (element (refsect2info artpagenums) (empty-sosofo)) (element (refsect2info author) (empty-sosofo)) (element (refsect2info authorblurb) (empty-sosofo)) (element (refsect2info authorgroup) (empty-sosofo)) (element (refsect2info authorinitials) (empty-sosofo)) (element (refsect2info bibliomisc) (empty-sosofo)) (element (refsect2info biblioset) (empty-sosofo)) (element (refsect2info collab) (empty-sosofo)) (element (refsect2info confgroup) (empty-sosofo)) (element (refsect2info contractnum) (empty-sosofo)) (element (refsect2info contractsponsor) (empty-sosofo)) (element (refsect2info contrib) (empty-sosofo)) (element (refsect2info copyright) (empty-sosofo)) (element (refsect2info corpauthor) (empty-sosofo)) (element (refsect2info corpname) (empty-sosofo)) (element (refsect2info date) (empty-sosofo)) (element (refsect2info edition) (empty-sosofo)) (element (refsect2info editor) (empty-sosofo)) (element (refsect2info firstname) (empty-sosofo)) (element (refsect2info graphic) (empty-sosofo)) (element (refsect2info honorific) (empty-sosofo)) (element (refsect2info invpartnumber) (empty-sosofo)) (element (refsect2info isbn) (empty-sosofo)) (element (refsect2info issn) (empty-sosofo)) (element (refsect2info issuenum) (empty-sosofo)) (element (refsect2info itermset) (empty-sosofo)) (element (refsect2info keywordset) (empty-sosofo)) (element (refsect2info legalnotice) (empty-sosofo)) (element (refsect2info lineage) (empty-sosofo)) (element (refsect2info modespec) (empty-sosofo)) (element (refsect2info orgname) (empty-sosofo)) (element (refsect2info othercredit) (empty-sosofo)) (element (refsect2info othername) (empty-sosofo)) (element (refsect2info pagenums) (empty-sosofo)) (element (refsect2info printhistory) (empty-sosofo)) (element (refsect2info productname) (empty-sosofo)) (element (refsect2info productnumber) (empty-sosofo)) (element (refsect2info pubdate) (empty-sosofo)) (element (refsect2info publisher) (empty-sosofo)) (element (refsect2info publishername) (empty-sosofo)) (element (refsect2info pubsnumber) (empty-sosofo)) (element (refsect2info releaseinfo) (empty-sosofo)) (element (refsect2info revhistory) (empty-sosofo)) (element (refsect2info seriesvolnums) (empty-sosofo)) (element (refsect2info subjectset) (empty-sosofo)) (element (refsect2info subtitle) (empty-sosofo)) (element (refsect2info surname) (empty-sosofo)) (element (refsect2info title) (empty-sosofo)) (element (refsect2info titleabbrev) (empty-sosofo)) (element (refsect2info volumenum) (empty-sosofo)) (element refsect3info (process-children)) (element (refsect3info abbrev) (empty-sosofo)) (element (refsect3info abstract) (empty-sosofo)) (element (refsect3info address) (empty-sosofo)) (element (refsect3info affiliation) (empty-sosofo)) (element (refsect3info artpagenums) (empty-sosofo)) (element (refsect3info author) (empty-sosofo)) (element (refsect3info authorblurb) (empty-sosofo)) (element (refsect3info authorgroup) (empty-sosofo)) (element (refsect3info authorinitials) (empty-sosofo)) (element (refsect3info bibliomisc) (empty-sosofo)) (element (refsect3info biblioset) (empty-sosofo)) (element (refsect3info collab) (empty-sosofo)) (element (refsect3info confgroup) (empty-sosofo)) (element (refsect3info contractnum) (empty-sosofo)) (element (refsect3info contractsponsor) (empty-sosofo)) (element (refsect3info contrib) (empty-sosofo)) (element (refsect3info copyright) (empty-sosofo)) (element (refsect3info corpauthor) (empty-sosofo)) (element (refsect3info corpname) (empty-sosofo)) (element (refsect3info date) (empty-sosofo)) (element (refsect3info edition) (empty-sosofo)) (element (refsect3info editor) (empty-sosofo)) (element (refsect3info firstname) (empty-sosofo)) (element (refsect3info graphic) (empty-sosofo)) (element (refsect3info honorific) (empty-sosofo)) (element (refsect3info invpartnumber) (empty-sosofo)) (element (refsect3info isbn) (empty-sosofo)) (element (refsect3info issn) (empty-sosofo)) (element (refsect3info issuenum) (empty-sosofo)) (element (refsect3info itermset) (empty-sosofo)) (element (refsect3info keywordset) (empty-sosofo)) (element (refsect3info legalnotice) (empty-sosofo)) (element (refsect3info lineage) (empty-sosofo)) (element (refsect3info modespec) (empty-sosofo)) (element (refsect3info orgname) (empty-sosofo)) (element (refsect3info othercredit) (empty-sosofo)) (element (refsect3info othername) (empty-sosofo)) (element (refsect3info pagenums) (empty-sosofo)) (element (refsect3info printhistory) (empty-sosofo)) (element (refsect3info productname) (empty-sosofo)) (element (refsect3info productnumber) (empty-sosofo)) (element (refsect3info pubdate) (empty-sosofo)) (element (refsect3info publisher) (empty-sosofo)) (element (refsect3info publishername) (empty-sosofo)) (element (refsect3info pubsnumber) (empty-sosofo)) (element (refsect3info releaseinfo) (empty-sosofo)) (element (refsect3info revhistory) (empty-sosofo)) (element (refsect3info seriesvolnums) (empty-sosofo)) (element (refsect3info subjectset) (empty-sosofo)) (element (refsect3info subtitle) (empty-sosofo)) (element (refsect3info surname) (empty-sosofo)) (element (refsect3info title) (empty-sosofo)) (element (refsect3info titleabbrev) (empty-sosofo)) (element (refsect3info volumenum) (empty-sosofo)) (element seriesinfo (process-children)) (element (seriesinfo abbrev) (empty-sosofo)) (element (seriesinfo abstract) (empty-sosofo)) (element (seriesinfo address) (empty-sosofo)) (element (seriesinfo affiliation) (empty-sosofo)) (element (seriesinfo artpagenums) (empty-sosofo)) (element (seriesinfo author) (empty-sosofo)) (element (seriesinfo authorblurb) (empty-sosofo)) (element (seriesinfo authorgroup) (empty-sosofo)) (element (seriesinfo authorinitials) (empty-sosofo)) (element (seriesinfo bibliomisc) (empty-sosofo)) (element (seriesinfo biblioset) (empty-sosofo)) (element (seriesinfo collab) (empty-sosofo)) (element (seriesinfo confgroup) (empty-sosofo)) (element (seriesinfo contractnum) (empty-sosofo)) (element (seriesinfo contractsponsor) (empty-sosofo)) (element (seriesinfo contrib) (empty-sosofo)) (element (seriesinfo copyright) (empty-sosofo)) (element (seriesinfo corpauthor) (empty-sosofo)) (element (seriesinfo corpname) (empty-sosofo)) (element (seriesinfo date) (empty-sosofo)) (element (seriesinfo edition) (empty-sosofo)) (element (seriesinfo editor) (empty-sosofo)) (element (seriesinfo firstname) (empty-sosofo)) (element (seriesinfo honorific) (empty-sosofo)) (element (seriesinfo invpartnumber) (empty-sosofo)) (element (seriesinfo isbn) (empty-sosofo)) (element (seriesinfo issn) (empty-sosofo)) (element (seriesinfo issuenum) (empty-sosofo)) (element (seriesinfo lineage) (empty-sosofo)) (element (seriesinfo orgname) (empty-sosofo)) (element (seriesinfo othercredit) (empty-sosofo)) (element (seriesinfo othername) (empty-sosofo)) (element (seriesinfo pagenums) (empty-sosofo)) (element (seriesinfo printhistory) (empty-sosofo)) (element (seriesinfo productname) (empty-sosofo)) (element (seriesinfo productnumber) (empty-sosofo)) (element (seriesinfo pubdate) (empty-sosofo)) (element (seriesinfo publisher) (empty-sosofo)) (element (seriesinfo publishername) (empty-sosofo)) (element (seriesinfo pubsnumber) (empty-sosofo)) (element (seriesinfo releaseinfo) (empty-sosofo)) (element (seriesinfo revhistory) (empty-sosofo)) (element (seriesinfo seriesvolnums) (empty-sosofo)) (element (seriesinfo subtitle) (empty-sosofo)) (element (seriesinfo surname) (empty-sosofo)) (element (seriesinfo title) (empty-sosofo)) (element (seriesinfo titleabbrev) (empty-sosofo)) (element (seriesinfo volumenum) (empty-sosofo)) (element artheader (empty-sosofo)) (element (artheader abbrev) (empty-sosofo)) (element (artheader abstract) (empty-sosofo)) (element (artheader address) (empty-sosofo)) (element (artheader affiliation) (empty-sosofo)) (element (artheader artpagenums) (empty-sosofo)) (element (artheader author) (empty-sosofo)) (element (artheader authorblurb) (empty-sosofo)) (element (artheader authorgroup) (empty-sosofo)) (element (artheader authorinitials) (empty-sosofo)) (element (artheader bibliomisc) (empty-sosofo)) (element (artheader biblioset) (empty-sosofo)) (element (artheader bookbiblio) (empty-sosofo)) (element (artheader collab) (empty-sosofo)) (element (artheader confgroup) (empty-sosofo)) (element (artheader contractnum) (empty-sosofo)) (element (artheader contractsponsor) (empty-sosofo)) (element (artheader contrib) (empty-sosofo)) (element (artheader copyright) (empty-sosofo)) (element (artheader corpauthor) (empty-sosofo)) (element (artheader corpname) (empty-sosofo)) (element (artheader date) (empty-sosofo)) (element (artheader edition) (empty-sosofo)) (element (artheader editor) (empty-sosofo)) (element (artheader firstname) (empty-sosofo)) (element (artheader honorific) (empty-sosofo)) (element (artheader invpartnumber) (empty-sosofo)) (element (artheader isbn) (empty-sosofo)) (element (artheader issn) (empty-sosofo)) (element (artheader issuenum) (empty-sosofo)) (element (artheader keywordset) (empty-sosofo)) (element (artheader lineage) (empty-sosofo)) (element (artheader orgname) (empty-sosofo)) (element (artheader othercredit) (empty-sosofo)) (element (artheader othername) (empty-sosofo)) (element (artheader pagenums) (empty-sosofo)) (element (artheader printhistory) (empty-sosofo)) (element (artheader productname) (empty-sosofo)) (element (artheader productnumber) (empty-sosofo)) (element (artheader pubdate) (empty-sosofo)) (element (artheader publisher) (empty-sosofo)) (element (artheader publishername) (empty-sosofo)) (element (artheader pubsnumber) (empty-sosofo)) (element (artheader releaseinfo) (empty-sosofo)) (element (artheader revhistory) (empty-sosofo)) (element (artheader seriesvolnums) (empty-sosofo)) (element (artheader subtitle) (empty-sosofo)) (element (artheader surname) (empty-sosofo)) (element (artheader title) (empty-sosofo)) (element (artheader titleabbrev) (empty-sosofo)) (element (artheader volumenum) (empty-sosofo)) (element articleinfo (empty-sosofo)) (element (articleinfo abbrev) (empty-sosofo)) (element (articleinfo abstract) (empty-sosofo)) (element (articleinfo address) (empty-sosofo)) (element (articleinfo affiliation) (empty-sosofo)) (element (articleinfo artpagenums) (empty-sosofo)) (element (articleinfo author) (empty-sosofo)) (element (articleinfo authorblurb) (empty-sosofo)) (element (articleinfo authorgroup) (empty-sosofo)) (element (articleinfo authorinitials) (empty-sosofo)) (element (articleinfo bibliomisc) (empty-sosofo)) (element (articleinfo biblioset) (empty-sosofo)) (element (articleinfo bookbiblio) (empty-sosofo)) (element (articleinfo collab) (empty-sosofo)) (element (articleinfo confgroup) (empty-sosofo)) (element (articleinfo contractnum) (empty-sosofo)) (element (articleinfo contractsponsor) (empty-sosofo)) (element (articleinfo contrib) (empty-sosofo)) (element (articleinfo copyright) (empty-sosofo)) (element (articleinfo corpauthor) (empty-sosofo)) (element (articleinfo corpname) (empty-sosofo)) (element (articleinfo date) (empty-sosofo)) (element (articleinfo edition) (empty-sosofo)) (element (articleinfo editor) (empty-sosofo)) (element (articleinfo firstname) (empty-sosofo)) (element (articleinfo honorific) (empty-sosofo)) (element (articleinfo invpartnumber) (empty-sosofo)) (element (articleinfo isbn) (empty-sosofo)) (element (articleinfo issn) (empty-sosofo)) (element (articleinfo issuenum) (empty-sosofo)) (element (articleinfo lineage) (empty-sosofo)) (element (articleinfo orgname) (empty-sosofo)) (element (articleinfo othercredit) (empty-sosofo)) (element (articleinfo othername) (empty-sosofo)) (element (articleinfo pagenums) (empty-sosofo)) (element (articleinfo printhistory) (empty-sosofo)) (element (articleinfo productname) (empty-sosofo)) (element (articleinfo productnumber) (empty-sosofo)) (element (articleinfo pubdate) (empty-sosofo)) (element (articleinfo publisher) (empty-sosofo)) (element (articleinfo publishername) (empty-sosofo)) (element (articleinfo pubsnumber) (empty-sosofo)) (element (articleinfo releaseinfo) (empty-sosofo)) (element (articleinfo revhistory) (empty-sosofo)) (element (articleinfo seriesvolnums) (empty-sosofo)) (element (articleinfo subtitle) (empty-sosofo)) (element (articleinfo surname) (empty-sosofo)) (element (articleinfo title) (empty-sosofo)) (element (articleinfo titleabbrev) (empty-sosofo)) (element (articleinfo volumenum) (empty-sosofo)) (element refsynopsisdivinfo (process-children)) (element (refsynopsisdivinfo graphic) (empty-sosofo)) (element (refsynopsisdivinfo legalnotice) (empty-sosofo)) (element (refsynopsisdivinfo modespec) (empty-sosofo)) (element (refsynopsisdivinfo subjectset) (empty-sosofo)) (element (refsynopsisdivinfo keywordset) (empty-sosofo)) (element (refsynopsisdivinfo itermset) (empty-sosofo)) (element (refsynopsisdivinfo abbrev) (empty-sosofo)) (element (refsynopsisdivinfo abstract) (empty-sosofo)) (element (refsynopsisdivinfo address) (empty-sosofo)) (element (refsynopsisdivinfo artpagenums) (empty-sosofo)) (element (refsynopsisdivinfo author) (empty-sosofo)) (element (refsynopsisdivinfo authorgroup) (empty-sosofo)) (element (refsynopsisdivinfo authorinitials) (empty-sosofo)) (element (refsynopsisdivinfo bibliomisc) (empty-sosofo)) (element (refsynopsisdivinfo biblioset) (empty-sosofo)) (element (refsynopsisdivinfo collab) (empty-sosofo)) (element (refsynopsisdivinfo confgroup) (empty-sosofo)) (element (refsynopsisdivinfo contractnum) (empty-sosofo)) (element (refsynopsisdivinfo contractsponsor) (empty-sosofo)) (element (refsynopsisdivinfo copyright) (empty-sosofo)) (element (refsynopsisdivinfo corpauthor) (empty-sosofo)) (element (refsynopsisdivinfo corpname) (empty-sosofo)) (element (refsynopsisdivinfo date) (empty-sosofo)) (element (refsynopsisdivinfo edition) (empty-sosofo)) (element (refsynopsisdivinfo editor) (empty-sosofo)) (element (refsynopsisdivinfo invpartnumber) (empty-sosofo)) (element (refsynopsisdivinfo isbn) (empty-sosofo)) (element (refsynopsisdivinfo issn) (empty-sosofo)) (element (refsynopsisdivinfo issuenum) (empty-sosofo)) (element (refsynopsisdivinfo orgname) (empty-sosofo)) (element (refsynopsisdivinfo othercredit) (empty-sosofo)) (element (refsynopsisdivinfo pagenums) (empty-sosofo)) (element (refsynopsisdivinfo printhistory) (empty-sosofo)) (element (refsynopsisdivinfo productname) (empty-sosofo)) (element (refsynopsisdivinfo productnumber) (empty-sosofo)) (element (refsynopsisdivinfo pubdate) (empty-sosofo)) (element (refsynopsisdivinfo publisher) (empty-sosofo)) (element (refsynopsisdivinfo publishername) (empty-sosofo)) (element (refsynopsisdivinfo pubsnumber) (empty-sosofo)) (element (refsynopsisdivinfo releaseinfo) (empty-sosofo)) (element (refsynopsisdivinfo revhistory) (empty-sosofo)) (element (refsynopsisdivinfo seriesvolnums) (empty-sosofo)) (element (refsynopsisdivinfo subtitle) (empty-sosofo)) (element (refsynopsisdivinfo title) (empty-sosofo)) (element (refsynopsisdivinfo titleabbrev) (empty-sosofo)) (element (refsynopsisdivinfo volumenum) (empty-sosofo)) (element (refsynopsisdivinfo honorific) (empty-sosofo)) (element (refsynopsisdivinfo firstname) (empty-sosofo)) (element (refsynopsisdivinfo surname) (empty-sosofo)) (element (refsynopsisdivinfo lineage) (empty-sosofo)) (element (refsynopsisdivinfo othername) (empty-sosofo)) (element (refsynopsisdivinfo affiliation) (empty-sosofo)) (element (refsynopsisdivinfo authorblurb) (empty-sosofo)) (element (refsynopsisdivinfo contrib) (empty-sosofo)) (element prefaceinfo (empty-sosofo)) (element (prefaceinfo abbrev) (empty-sosofo)) (element (prefaceinfo abstract) (empty-sosofo)) (element (prefaceinfo address) (empty-sosofo)) (element (prefaceinfo affiliation) (empty-sosofo)) (element (prefaceinfo artpagenums) (empty-sosofo)) (element (prefaceinfo author) (empty-sosofo)) (element (prefaceinfo authorblurb) (empty-sosofo)) (element (prefaceinfo authorgroup) (empty-sosofo)) (element (prefaceinfo authorinitials) (empty-sosofo)) (element (prefaceinfo bibliomisc) (empty-sosofo)) (element (prefaceinfo biblioset) (empty-sosofo)) (element (prefaceinfo bookbiblio) (empty-sosofo)) (element (prefaceinfo collab) (empty-sosofo)) (element (prefaceinfo confgroup) (empty-sosofo)) (element (prefaceinfo contractnum) (empty-sosofo)) (element (prefaceinfo contractsponsor) (empty-sosofo)) (element (prefaceinfo contrib) (empty-sosofo)) (element (prefaceinfo copyright) (empty-sosofo)) (element (prefaceinfo corpauthor) (empty-sosofo)) (element (prefaceinfo corpname) (empty-sosofo)) (element (prefaceinfo date) (empty-sosofo)) (element (prefaceinfo edition) (empty-sosofo)) (element (prefaceinfo editor) (empty-sosofo)) (element (prefaceinfo firstname) (empty-sosofo)) (element (prefaceinfo honorific) (empty-sosofo)) (element (prefaceinfo invpartnumber) (empty-sosofo)) (element (prefaceinfo isbn) (empty-sosofo)) (element (prefaceinfo issn) (empty-sosofo)) (element (prefaceinfo issuenum) (empty-sosofo)) (element (prefaceinfo lineage) (empty-sosofo)) (element (prefaceinfo orgname) (empty-sosofo)) (element (prefaceinfo othercredit) (empty-sosofo)) (element (prefaceinfo othername) (empty-sosofo)) (element (prefaceinfo pagenums) (empty-sosofo)) (element (prefaceinfo printhistory) (empty-sosofo)) (element (prefaceinfo productname) (empty-sosofo)) (element (prefaceinfo productnumber) (empty-sosofo)) (element (prefaceinfo pubdate) (empty-sosofo)) (element (prefaceinfo publisher) (empty-sosofo)) (element (prefaceinfo publishername) (empty-sosofo)) (element (prefaceinfo pubsnumber) (empty-sosofo)) (element (prefaceinfo releaseinfo) (empty-sosofo)) (element (prefaceinfo revhistory) (empty-sosofo)) (element (prefaceinfo seriesvolnums) (empty-sosofo)) (element (prefaceinfo subtitle) (empty-sosofo)) (element (prefaceinfo surname) (empty-sosofo)) (element (prefaceinfo title) (empty-sosofo)) (element (prefaceinfo titleabbrev) (empty-sosofo)) (element (prefaceinfo volumenum) (empty-sosofo)) (element chapterinfo (empty-sosofo)) (element (chapterinfo abbrev) (empty-sosofo)) (element (chapterinfo abstract) (empty-sosofo)) (element (chapterinfo address) (empty-sosofo)) (element (chapterinfo affiliation) (empty-sosofo)) (element (chapterinfo artpagenums) (empty-sosofo)) (element (chapterinfo author) (empty-sosofo)) (element (chapterinfo authorblurb) (empty-sosofo)) (element (chapterinfo authorgroup) (empty-sosofo)) (element (chapterinfo authorinitials) (empty-sosofo)) (element (chapterinfo bibliomisc) (empty-sosofo)) (element (chapterinfo biblioset) (empty-sosofo)) (element (chapterinfo bookbiblio) (empty-sosofo)) (element (chapterinfo collab) (empty-sosofo)) (element (chapterinfo confgroup) (empty-sosofo)) (element (chapterinfo contractnum) (empty-sosofo)) (element (chapterinfo contractsponsor) (empty-sosofo)) (element (chapterinfo contrib) (empty-sosofo)) (element (chapterinfo copyright) (empty-sosofo)) (element (chapterinfo corpauthor) (empty-sosofo)) (element (chapterinfo corpname) (empty-sosofo)) (element (chapterinfo date) (empty-sosofo)) (element (chapterinfo edition) (empty-sosofo)) (element (chapterinfo editor) (empty-sosofo)) (element (chapterinfo firstname) (empty-sosofo)) (element (chapterinfo honorific) (empty-sosofo)) (element (chapterinfo invpartnumber) (empty-sosofo)) (element (chapterinfo isbn) (empty-sosofo)) (element (chapterinfo issn) (empty-sosofo)) (element (chapterinfo issuenum) (empty-sosofo)) (element (chapterinfo lineage) (empty-sosofo)) (element (chapterinfo orgname) (empty-sosofo)) (element (chapterinfo othercredit) (empty-sosofo)) (element (chapterinfo othername) (empty-sosofo)) (element (chapterinfo pagenums) (empty-sosofo)) (element (chapterinfo printhistory) (empty-sosofo)) (element (chapterinfo productname) (empty-sosofo)) (element (chapterinfo productnumber) (empty-sosofo)) (element (chapterinfo pubdate) (empty-sosofo)) (element (chapterinfo publisher) (empty-sosofo)) (element (chapterinfo publishername) (empty-sosofo)) (element (chapterinfo pubsnumber) (empty-sosofo)) (element (chapterinfo releaseinfo) (empty-sosofo)) (element (chapterinfo revhistory) (empty-sosofo)) (element (chapterinfo seriesvolnums) (empty-sosofo)) (element (chapterinfo subtitle) (empty-sosofo)) (element (chapterinfo surname) (empty-sosofo)) (element (chapterinfo title) (empty-sosofo)) (element (chapterinfo titleabbrev) (empty-sosofo)) (element (chapterinfo volumenum) (empty-sosofo)) (element appendixinfo (empty-sosofo)) (element (appendixinfo abbrev) (empty-sosofo)) (element (appendixinfo abstract) (empty-sosofo)) (element (appendixinfo address) (empty-sosofo)) (element (appendixinfo affiliation) (empty-sosofo)) (element (appendixinfo artpagenums) (empty-sosofo)) (element (appendixinfo author) (empty-sosofo)) (element (appendixinfo authorblurb) (empty-sosofo)) (element (appendixinfo authorgroup) (empty-sosofo)) (element (appendixinfo authorinitials) (empty-sosofo)) (element (appendixinfo bibliomisc) (empty-sosofo)) (element (appendixinfo biblioset) (empty-sosofo)) (element (appendixinfo bookbiblio) (empty-sosofo)) (element (appendixinfo collab) (empty-sosofo)) (element (appendixinfo confgroup) (empty-sosofo)) (element (appendixinfo contractnum) (empty-sosofo)) (element (appendixinfo contractsponsor) (empty-sosofo)) (element (appendixinfo contrib) (empty-sosofo)) (element (appendixinfo copyright) (empty-sosofo)) (element (appendixinfo corpauthor) (empty-sosofo)) (element (appendixinfo corpname) (empty-sosofo)) (element (appendixinfo date) (empty-sosofo)) (element (appendixinfo edition) (empty-sosofo)) (element (appendixinfo editor) (empty-sosofo)) (element (appendixinfo firstname) (empty-sosofo)) (element (appendixinfo honorific) (empty-sosofo)) (element (appendixinfo invpartnumber) (empty-sosofo)) (element (appendixinfo isbn) (empty-sosofo)) (element (appendixinfo issn) (empty-sosofo)) (element (appendixinfo issuenum) (empty-sosofo)) (element (appendixinfo lineage) (empty-sosofo)) (element (appendixinfo orgname) (empty-sosofo)) (element (appendixinfo othercredit) (empty-sosofo)) (element (appendixinfo othername) (empty-sosofo)) (element (appendixinfo pagenums) (empty-sosofo)) (element (appendixinfo printhistory) (empty-sosofo)) (element (appendixinfo productname) (empty-sosofo)) (element (appendixinfo productnumber) (empty-sosofo)) (element (appendixinfo pubdate) (empty-sosofo)) (element (appendixinfo publisher) (empty-sosofo)) (element (appendixinfo publishername) (empty-sosofo)) (element (appendixinfo pubsnumber) (empty-sosofo)) (element (appendixinfo releaseinfo) (empty-sosofo)) (element (appendixinfo revhistory) (empty-sosofo)) (element (appendixinfo seriesvolnums) (empty-sosofo)) (element (appendixinfo subtitle) (empty-sosofo)) (element (appendixinfo surname) (empty-sosofo)) (element (appendixinfo title) (empty-sosofo)) (element (appendixinfo titleabbrev) (empty-sosofo)) (element (appendixinfo volumenum) (empty-sosofo)) docbook-dsssl-1.79/print/dbindex.dsl0000644000175000001440000001124207611215267020164 0ustar msmithusers00000000000000;; $Id: dbindex.dsl,v 1.4 2003/01/15 08:24:23 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ................... INDEX TERMS (EMBEDDED MARKERS) ................... (element indexterm ;; This is different than (empty-sosofo) alone because the backend ;; will hang an anchor off the empty sequence. This allows the index ;; to point to the indexterm (but only if the indexterm has an ID). (make sequence (empty-sosofo))) (element primary (empty-sosofo)) (element secondary (empty-sosofo)) (element tertiary (empty-sosofo)) (element see (empty-sosofo)) (element seealso (empty-sosofo)) ;; =========================== INDEX ELEMENTS =========================== (element setindex ($component$)) (element (setindex title) (empty-sosofo)) (element index (make simple-page-sequence page-number-restart?: (or %page-number-restart% (book-start?) (first-chapter?)) page-number-format: ($page-number-format$) use: default-text-style left-header: ($left-header$) center-header: ($center-header$) right-header: ($right-header$) left-footer: ($left-footer$) center-footer: ($center-footer$) right-footer: ($right-footer$) start-indent: %body-start-indent% input-whitespace-treatment: 'collapse quadding: %default-quadding% page-n-columns: 2 (make sequence ($component-title$) (process-children)) (make-endnotes))) ;; this is a special case. this prevents the index from causing an error but ;; will make the index a single column. c'est la vie. (element (article index) ($section$)) (element (index title) (empty-sosofo)) (element indexdiv ($section$)) (element (indexdiv title) (empty-sosofo)) (element indexentry (process-children)) (element primaryie (make paragraph font-size: (* (inherited-font-size) %smaller-size-factor%) (process-children))) (element secondaryie (make paragraph font-size: (* (inherited-font-size) %smaller-size-factor%) start-indent: (+ (inherited-start-indent) 1em) (process-children))) (element tertiaryie (make paragraph font-size: (* (inherited-font-size) %smaller-size-factor%) start-indent: (+ (inherited-start-indent) 2em) (process-children))) (define (find-indexterm id) ;; If you have a lot of indexterms that don't have IDs, this could ;; be incredibly slow. So don't do that. (let* ((idtarget (element-with-id id))) (if (node-list-empty? idtarget) (let loop ((idnodes (select-elements (descendants (sgml-root-element)) (normalize "indexterm")))) (if (node-list-empty? idnodes) (empty-node-list) (if (equal? id (string-append "AEN" (number->string (all-element-number (node-list-first idnodes))))) (node-list-first idnodes) (loop (node-list-rest idnodes))))) idtarget))) (define (indexentry-link nd) (let* ((id (attribute-string (normalize "role") nd)) (target (find-indexterm id)) (preferred (not (node-list-empty? (select-elements (children (current-node)) (normalize "emphasis"))))) (sosofo (if (node-list-empty? target) (literal "?") (make link destination: (node-list-address target) (with-mode toc-page-number-mode (process-node-list target)))))) (if preferred (make sequence font-weight: 'bold sosofo) sosofo))) (element (primaryie ulink) (indexentry-link (current-node))) (element (secondaryie ulink) (indexentry-link (current-node))) (element (tertiaryie ulink) (indexentry-link (current-node))) (element seeie (let ((indent (cond ((node-list-empty? (select-elements (children (parent (current-node))) (normalize "secondaryie"))) 1em) ((node-list-empty? (select-elements (children (parent (current-node))) (normalize "tertiaryie"))) 2em) (else 3em)))) (make paragraph font-size: (* (inherited-font-size) %smaller-size-factor%) start-indent: (+ (inherited-start-indent) indent) (literal "(" (gentext-index-see) " ") (process-children) (literal ")")))) (element seealsoie (let ((indent (cond ((node-list-empty? (select-elements (children (parent (current-node))) (normalize "secondaryie"))) 1em) ((node-list-empty? (select-elements (children (parent (current-node))) (normalize "tertiaryie"))) 2em) (else 3em)))) (make paragraph font-size: (* (inherited-font-size) %smaller-size-factor%) start-indent: (+ (inherited-start-indent) indent) (literal "(" (gentext-index-seealso) " ") (process-children) (literal ")")))) docbook-dsssl-1.79/print/dbgraph.dsl0000644000175000001440000000745007640131723020160 0ustar msmithusers00000000000000;; $Id: dbgraph.dsl,v 1.3 2003/03/25 19:53:55 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ==================== GRAPHICS ==================== ;; NOTE: display #f doesn't seem to work right in the RTF back end... (define (graphic-file filename) (let ((ext (file-extension filename))) (if (or (not filename) (not %graphic-default-extension%) (member ext %graphic-extensions%)) filename (string-append filename "." %graphic-default-extension%)))) (define ($graphic$ fileref #!optional (display #f) (format #f) (scale #f) (align #f)) (let ((graphic-format (if format format "")) (graphic-scale (if scale (/ (string->number scale) 100) 1)) (graphic-align (cond ((equal? align (normalize "center")) 'center) ((equal? align (normalize "right")) 'end) (else 'start)))) (make external-graphic entity-system-id: (graphic-file fileref) notation-system-id: graphic-format scale: graphic-scale display?: display display-alignment: graphic-align))) (define ($img$ #!optional (nd (current-node)) (display #f)) ;; This function now supports an extension to DocBook. It's ;; either a clever trick or an ugly hack, depending on your ;; point of view, but it'll hold us until XLink is finalized ;; and we can extend DocBook the "right" way. ;; ;; If the entity passed to GRAPHIC has the FORMAT ;; "LINESPECIFIC", either because that's what's specified or ;; because it's the notation of the supplied ENTITYREF, then ;; the text of the entity is inserted literally (via Jade's ;; read-entity external procedure). ;; (let* ((fileref (attribute-string (normalize "fileref") nd)) (entityref (attribute-string (normalize "entityref") nd)) (format (if (attribute-string (normalize "format") nd) (attribute-string (normalize "format") nd) (if entityref (entity-notation entityref) #f))) (align (attribute-string (normalize "align") nd)) (scale (attribute-string (normalize "scale") nd))) (if (or fileref entityref) (if (equal? format (normalize "linespecific")) (if fileref (include-file fileref) (include-file (entity-generated-system-id entityref))) (if fileref ($graphic$ fileref display format scale align) ($graphic$ (entity-generated-system-id entityref) display format scale align))) (empty-sosofo)))) (element graphic (make paragraph space-before: %block-sep% space-after: %block-sep% ($img$ (current-node) #t))) (element inlinegraphic ($img$)) ;; ====================================================================== ;; MediaObject and friends... (define preferred-mediaobject-notations (list "EPS" "PS" "JPG" "JPEG" "PNG" "linespecific")) (define preferred-mediaobject-extensions (list "eps" "ps" "jpg" "jpeg" "png")) (define acceptable-mediaobject-notations (list "GIF" "GIF87a" "GIF89a" "BMP" "WMF")) (define acceptable-mediaobject-extensions (list "gif" "bmp" "wmf")) (element mediaobject (make paragraph ($mediaobject$))) (element inlinemediaobject (make sequence ($mediaobject$))) (element mediaobjectco (error "MediaObjectCO is not supported yet.")) (element imageobjectco (error "ImageObjectCO is not supported yet.")) (element objectinfo (empty-sosofo)) (element videoobject (process-children)) (element videodata (empty-sosofo)) (element audioobject (process-children)) (element audiodata (empty-sosofo)) (element imageobject (process-children)) (element imagedata (if (have-ancestor? (normalize "mediaobject")) ($img$ (current-node) #t) ($img$ (current-node) #f))) (element textobject (make display-group (process-children))) (element caption (process-children)) docbook-dsssl-1.79/print/dbgloss.dsl0000644000175000001440000000673607611215267020220 0ustar msmithusers00000000000000;; $Id: dbgloss.dsl,v 1.4 2003/01/15 08:24:23 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ========================= GLOSSARY ELEMENTS ========================== (element glossary ($component$)) (element (article glossary) ($section$)) ;; this is a special case (element (glossary title) (empty-sosofo)) (element glossdiv ($section$)) (element (glossdiv title) (empty-sosofo)) (element glosslist ($block-container$)) (element glossentry (process-children)) ;; a glossentry glossterm (element (glossentry glossterm) ($lowtitle$ 3 2)) (element (glossdiv glossentry glossterm) ($lowtitle$ 3 3)) (element (glossentry acronym) (empty-sosofo)) (element (glossentry abbrev) (empty-sosofo)) (element glossdef ($indent-para-container$)) (element glosssee ($italic-seq$)) (element (glossentry glosssee) (let ((otherterm (attribute-string (normalize "otherterm")))) (make paragraph space-before: %para-sep% space-after: %para-sep% start-indent: (+ (inherited-start-indent) (* (ILSTEP) 2)) quadding: %default-quadding% ($italic-seq$ (literal (gentext-element-name (current-node)) (gentext-label-title-sep (gi)))) (if otherterm (make link destination: (node-list-address (element-with-id otherterm)) (with-mode otherterm (process-element-with-id otherterm))) (process-children))))) ;; When we hit the first GLOSSSEEALSO, process all of them as a node-list (element glossseealso (if (first-sibling?) (make paragraph ($italic-seq$ (literal (gentext-element-name (current-node)) (gentext-label-title-sep (gi)))) (with-mode glossseealso (process-node-list (select-elements (children (parent)) '(glossseealso)))) (literal ".")) (empty-sosofo))) (mode glossseealso (element glossseealso (let ((otherterm (attribute-string (normalize "otherterm")))) (make sequence (if (first-sibling?) (empty-sosofo) ($italic-seq$ (literal ", "))) (if otherterm ;; but this should be required... (make link destination: (node-list-address (element-with-id otherterm)) (with-mode otherterm (process-element-with-id otherterm))) (process-children))))) ) ;; This is referenced within the GLOSSSEE and GLOSSSEEALSO element ;; construction expressions. The OTHERTERM attributes on GLOSSSEE and ;; GLOSSSEEALSO (should) refer to GLOSSENTRY elements but we're only ;; interested in the text within the GLOSSTERM. Discard the revision ;; history and the definition from the referenced term. (mode otherterm (element glossentry (process-children)) (element glossterm (process-children)) (element glossdef (empty-sosofo)) (element revhistory (empty-sosofo)) (element glosssee (empty-sosofo)) (element (glossentry acronym) (empty-sosofo)) (element (glossentry abbrev) (empty-sosofo))) ;; an inline gloss term (element glossterm (let* ((linkend (attribute-string (normalize "linkend")))) (if linkend (make link destination: (node-list-address (element-with-id linkend)) ($italic-seq$)) ($italic-seq$)))) ;; a first glossterm (element firstterm (let* ((linkend (attribute-string (normalize "linkend"))) (sosofo (if linkend (make link destination: (node-list-address (element-with-id linkend)) ($italic-seq$)) ($italic-seq$)))) (if firstterm-bold (make sequence font-weight: 'bold sosofo) sosofo))) docbook-dsssl-1.79/print/dbefsyn.dsl0000644000175000001440000003572007611215267020210 0ustar msmithusers00000000000000;; $Id: dbefsyn.dsl,v 1.4 2003/01/15 08:24:23 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ============================ CLASS SYNOPSIS ============================= (define %indent-classsynopsisinfo-lines% #f) (define %number-classsynopsisinfo-lines% #f) (define %default-classsynopsis-language% "java") (element classsynopsis (let ((language (if (attribute-string (normalize "language")) (attribute-string (normalize "language")) %default-classsynopsis-language%))) (case language (("java") (with-mode cs-java-mode (process-node-list (current-node)))) (("perl") (with-mode cs-perl-mode (process-node-list (current-node)))) (("idl") (with-mode cs-idl-mode (process-node-list (current-node)))) (("python") (with-mode cs-python-mode (process-node-list (current-node)))) (else (with-mode cs-java-mode (process-node-list (current-node))))))) (element methodsynopsis (let ((language (if (attribute-string (normalize "language")) (attribute-string (normalize "language")) %default-classsynopsis-language%))) (case language (("java") (with-mode cs-java-mode (process-node-list (current-node)))) (("perl") (with-mode cs-perl-mode (process-node-list (current-node)))) (("idl") (with-mode cs-idl-mode (process-node-list (current-node)))) (("python") (with-mode cs-python-mode (process-node-list (current-node)))) (else (with-mode cs-java-mode (process-node-list (current-node))))))) (element fieldsynopsis (let ((language (if (attribute-string (normalize "language")) (attribute-string (normalize "language")) %default-classsynopsis-language%))) (case language (("java") (with-mode cs-java-mode (process-node-list (current-node)))) (("perl") (with-mode cs-perl-mode (process-node-list (current-node)))) (("idl") (with-mode cs-idl-mode (process-node-list (current-node)))) (("python") (with-mode cs-python-mode (process-node-list (current-node)))) (else (with-mode cs-java-mode (process-node-list (current-node))))))) (element constructorynopsis (let ((language (if (attribute-string (normalize "language")) (attribute-string (normalize "language")) %default-classsynopsis-language%))) (case language (("java") (with-mode cs-java-mode (process-node-list (current-node)))) (("perl") (with-mode cs-perl-mode (process-node-list (current-node)))) (("idl") (with-mode cs-idl-mode (process-node-list (current-node)))) (("python") (with-mode cs-python-mode (process-node-list (current-node)))) (else (with-mode cs-java-mode (process-node-list (current-node))))))) (element destructorsynopsis (let ((language (if (attribute-string (normalize "language")) (attribute-string (normalize "language")) %default-classsynopsis-language%))) (case language (("java") (with-mode cs-java-mode (process-node-list (current-node)))) (("perl") (with-mode cs-perl-mode (process-node-list (current-node)))) (("idl") (with-mode cs-idl-mode (process-node-list (current-node)))) (("python") (with-mode cs-python-mode (process-node-list (current-node)))) (else (with-mode cs-java-mode (process-node-list (current-node))))))) ;; ===== Java ======================================================== (mode cs-java-mode (element classsynopsis (let* ((classes (select-elements (children (current-node)) (normalize "ooclass"))) (classname (node-list-first classes)) (superclasses (node-list-rest classes))) (make display-group use: verbatim-style (make paragraph (process-node-list classname) (process-node-list superclasses) (literal "{")) (process-node-list (node-list-filter-by-gi (children (current-node)) (list (normalize "constructorsynopsis") (normalize "destructorsynopsis") (normalize "fieldsynopsis") (normalize "methodsynopsis") (normalize "classsynopsisinfo")))) (make paragraph (literal "}"))))) (element classsynopsisinfo ($verbatim-display$ %indent-classsynopsisinfo-lines% %number-classsynopsisinfo-lines%)) (element ooclass (make sequence (if (first-sibling?) (literal " ") (literal ", ")) (process-children))) (element oointerface (make sequence (if (first-sibling?) (literal " ") (literal ", ")) (process-children))) (element ooexception (make sequence (if (first-sibling?) (literal " ") (literal ", ")) (process-children))) (element modifier (make sequence (process-children) (literal " "))) (element classname (if (first-sibling?) (make sequence (literal "class ") (process-children) (literal " ") (if (last-sibling?) (empty-sosofo) (literal "extends "))) (make sequence (process-children) (if (last-sibling?) (literal " ") (literal ", "))))) (element fieldsynopsis (make paragraph use: inline-verbatim-style (literal " ") (process-children) (literal ";"))) (element type (make sequence (process-children) (literal " "))) (element varname (make sequence (process-children))) (element initializer (make sequence (literal " = ") (process-children))) (element constructorsynopsis (java-method-synopsis)) (element destructorsynopsis (java-method-synopsis)) (element methodsynopsis (java-method-synopsis)) (element void (literal "void ")) (element methodname (process-children)) (element methodparam (make sequence (if (first-sibling?) (empty-sosofo) (literal ", ")) (process-children))) (element parameter (process-children)) (element exceptionname (make sequence (if (first-sibling?) (literal " throws ") (literal ", ")) (process-children))) ) (define (java-method-synopsis #!optional (nd (current-node))) (let* ((modifiers (select-elements (children nd) (normalize "modifier"))) (notmod (node-list-filter-by-not-gi (children nd) (list (normalize "modifier")))) (type (if (equal? (gi (node-list-first notmod)) (normalize "methodname")) (empty-node-list) (node-list-first notmod))) (methodname (select-elements (children nd) (normalize "methodname"))) (param (node-list-filter-by-gi (node-list-rest notmod) (list (normalize "methodparam")))) (excep (select-elements (children nd) (normalize "exceptionname")))) (make paragraph use: inline-verbatim-style (literal " ") (process-node-list modifiers) (process-node-list type) (process-node-list methodname) (literal "(") (process-node-list param) (literal ")") (process-node-list excep) (literal ";")))) ;; ===== Perl ======================================================== (mode cs-perl-mode (element classsynopsis (let* ((modifiers (select-elements (children (current-node)) (normalize "modifier"))) (classes (select-elements (children (current-node)) (normalize "classname"))) (classname (node-list-first classes)) (superclasses (node-list-rest classes))) (make display-group use: verbatim-style; (make paragraph (literal "package ") (process-node-list classname) (literal ";")) (if (node-list-empty? superclasses) (empty-sosofo) (make sequence (literal "@ISA = ("); (process-node-list superclasses) (literal ";"))) (process-node-list (node-list-filter-by-gi (children (current-node)) (list (normalize "constructorsynopsis") (normalize "destructorsynopsis") (normalize "fieldsynopsis") (normalize "methodsynopsis") (normalize "classsynopsisinfo"))))))) (element classsynopsisinfo ($verbatim-display$ %indent-classsynopsisinfo-lines% %number-classsynopsisinfo-lines%)) (element modifier (literal "Perl ClassSynopses don't use Modifiers")) (element classname (if (first-sibling?) (process-children) (make sequence (process-children) (if (last-sibling?) (empty-sosofo) (literal ", "))))) (element fieldsynopsis (make paragraph use: inline-verbatim-style (literal " "); (process-children) (literal ";"))) (element type (make sequence (process-children) (literal " "))) (element varname (make sequence (process-children))) (element initializer (make sequence (literal " = ") (process-children))) (element constructorsynopsis (perl-method-synopsis)) (element destructorsynopsis (perl-method-synopsis)) (element methodsynopsis (perl-method-synopsis)) (element void (empty-sosofo)) (element methodname (process-children)) (element methodparam (make sequence (if (first-sibling?) (empty-sosofo) (literal ", ")) (process-children))) (element parameter (process-children)) (element exceptionname (literal "Perl ClassSynopses don't use Exceptions")) ) (define (perl-method-synopsis #!optional (nd (current-node))) (let* ((modifiers (select-elements (children nd) (normalize "modifier"))) (notmod (node-list-filter-by-not-gi (children nd) (list (normalize "modifier")))) (type (if (equal? (gi (node-list-first notmod)) (normalize "methodname")) (empty-node-list) (node-list-first notmod))) (methodname (select-elements (children nd) (normalize "methodname"))) (param (node-list-filter-by-gi (node-list-rest notmod) (list (normalize "type") (normalize "void")))) (excep (select-elements (children nd) (normalize "exceptionname")))) (make paragraph use: inline-verbatim-style (literal "sub ") (process-node-list modifiers) (process-node-list type) (process-node-list methodname) (literal " { ... }")))) ;; ===== IDL ========================================================= (mode cs-idl-mode (element classsynopsis (let* ((modifiers (select-elements (children (current-node)) (normalize "modifier"))) (classes (select-elements (children (current-node)) (normalize "classname"))) (classname (node-list-first classes)) (superclasses (node-list-rest classes))) (make display-group use: verbatim-style; (make paragraph (literal "interface ") (process-node-list modifiers) (process-node-list classname) (if (node-list-empty? superclasses) (literal " ") (make sequence (literal " : ") (process-node-list superclasses))) (literal "{")) (process-node-list (node-list-filter-by-gi (children (current-node)) (list (normalize "constructorsynopsis") (normalize "destructorsynopsis") (normalize "fieldsynopsis") (normalize "methodsynopsis") (normalize "classsynopsisinfo")))) (make paragraph (literal "}"))))) (element classsynopsisinfo ($verbatim-display$ %indent-classsynopsisinfo-lines% %number-classsynopsisinfo-lines%)) (element modifier (make sequence (process-children) (literal " "))) (element classname (if (first-sibling?) (process-children) (make sequence (process-children) (if (last-sibling?) (empty-sosofo) (literal ", "))))) (element fieldsynopsis (make paragraph use: inline-verbatim-style (literal " "); (process-children) (literal ";"))) (element type (make sequence (process-children) (literal " "))) (element varname (make sequence (process-children))) (element initializer (make sequence (literal " = ") (process-children))) (element constructorsynopsis (idl-method-synopsis)) (element destructorsynopsis (idl-method-synopsis)) (element methodsynopsis (idl-method-synopsis)) (element void (literal "void ")) (element methodname (process-children)) (element methodparam (make sequence (if (first-sibling?) (empty-sosofo) (literal ", ")) (process-children))) (element parameter (process-children)) (element exceptionname (make sequence (if (first-sibling?) (literal " raises(") (literal ", ")) (process-children) (if (last-sibling?) (literal ")") (empty-sosofo)))) ) (define (idl-method-synopsis #!optional (nd (current-node))) (let* ((modifiers (select-elements (children nd) (normalize "modifier"))) (notmod (node-list-filter-by-not-gi (children nd) (list (normalize "modifier")))) (type (if (equal? (gi (node-list-first notmod)) (normalize "methodname")) (empty-node-list) (node-list-first notmod))) (methodname (select-elements (children nd) (normalize "methodname"))) (param (node-list-filter-by-gi (node-list-rest notmod) (list (normalize "methodparam")))) (excep (select-elements (children nd) (normalize "exceptionname")))) (make paragraph use: inline-verbatim-style (process-node-list modifiers) (process-node-list type) (process-node-list methodname) (literal "(") (process-node-list param) (literal ")") (process-node-list excep) (literal ";")))) ;; ===== Python ====================================================== ;; Contributed by Lane Stevens, lane@cycletime.com (mode cs-python-mode (element classsynopsis (let* ((classes (select-elements (children (current-node)) (normalize "ooclass"))) (classname (node-list-first classes)) (superclasses (node-list-rest classes))) (make display-group use: verbatim-style (make paragraph (literal "class ") (process-node-list classname) (literal "(") (process-node-list superclasses) (literal ") :")) (process-node-list (node-list-filter-by-gi (children (current-node)) (list (normalize "constructorsynopsis") (normalize "destructorsynopsis") (normalize "fieldsynopsis") (normalize "methodsynopsis") (normalize "classsynopsisinfo")))) ) ) ) (element ooclass (make sequence (process-children) (cond ((first-sibling?) (literal " ")) ((last-sibling?) (empty-sosofo)) (#t (literal ", ")) ) ) ) (element methodsynopsis (python-method-synopsis)) (element classname (process-children)) (element initializer (make sequence (literal " = ") (process-children))) (element methodname (process-children)) (element methodparam (make sequence (process-children) (if (last-sibling?) (empty-sosofo) (literal ", ")) ) ) (element parameter (process-children)) ) (define (python-method-synopsis #!optional (nd (current-node))) (let* ((the-method-name (select-elements (children nd) (normalize "methodname"))) (the-method-params (select-elements (children nd) (normalize "methodparam"))) ) (make paragraph use: inline-verbatim-style (literal " def ") (process-node-list the-method-name) (literal "(") (process-node-list the-method-params) (literal ") :")) ) ) ;; EOF docbook-dsssl-1.79/print/dbdivis.dsl0000644000175000001440000001653607764010325020203 0ustar msmithusers00000000000000;; $Id: dbdivis.dsl,v 1.5 2003/12/05 05:00:05 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ============================= DIVISIONS ============================== (element set (let* ((setinfo (select-elements (children (current-node)) (normalize "setinfo"))) (nl (titlepage-info-elements (current-node) setinfo))) (make sequence (if %generate-set-titlepage% (make simple-page-sequence page-n-columns: %titlepage-n-columns% input-whitespace-treatment: 'collapse use: default-text-style (set-titlepage nl 'recto) (make display-group break-before: 'page (set-titlepage nl 'verso))) (empty-sosofo)) (if (not (generate-toc-in-front)) (process-children) (empty-sosofo)) (if %generate-set-toc% (make simple-page-sequence page-n-columns: %page-n-columns% page-number-format: ($page-number-format$ (normalize "toc")) use: default-text-style left-header: ($left-header$ (normalize "toc")) center-header: ($center-header$ (normalize "toc")) right-header: ($right-header$ (normalize "toc")) left-footer: ($left-footer$ (normalize "toc")) center-footer: ($center-footer$ (normalize "toc")) right-footer: ($right-footer$ (normalize "toc")) input-whitespace-treatment: 'collapse (build-toc (current-node) (toc-depth (current-node)))) (empty-sosofo)) (if (generate-toc-in-front) (process-children) (empty-sosofo))))) (element (set title) (empty-sosofo)) (element book (let* ((bookinfo (select-elements (children (current-node)) (normalize "bookinfo"))) (dedication (select-elements (children (current-node)) (normalize "dedication"))) (nl (titlepage-info-elements (current-node) bookinfo))) (make sequence (if %generate-book-titlepage% (make simple-page-sequence page-n-columns: %titlepage-n-columns% input-whitespace-treatment: 'collapse use: default-text-style (book-titlepage nl 'recto) (make display-group break-before: 'page (book-titlepage nl 'verso))) (empty-sosofo)) (if (node-list-empty? dedication) (empty-sosofo) (with-mode dedication-page-mode (process-node-list dedication))) (if (not (generate-toc-in-front)) (process-children) (empty-sosofo)) (if %generate-book-toc% (make simple-page-sequence page-n-columns: %page-n-columns% page-number-format: ($page-number-format$ (normalize "toc")) use: default-text-style left-header: ($left-header$ (normalize "toc")) center-header: ($center-header$ (normalize "toc")) right-header: ($right-header$ (normalize "toc")) left-footer: ($left-footer$ (normalize "toc")) center-footer: ($center-footer$ (normalize "toc")) right-footer: ($right-footer$ (normalize "toc")) input-whitespace-treatment: 'collapse (build-toc (current-node) (toc-depth (current-node)))) (empty-sosofo)) (let loop ((gilist ($generate-book-lot-list$))) (if (null? gilist) (empty-sosofo) (if (not (node-list-empty? (select-elements (descendants (current-node)) (car gilist)))) (make simple-page-sequence page-n-columns: %page-n-columns% page-number-format: ($page-number-format$ (normalize "lot")) use: default-text-style left-header: ($left-header$ (normalize "lot")) center-header: ($center-header$ (normalize "lot")) right-header: ($right-header$ (normalize "lot")) left-footer: ($left-footer$ (normalize "lot")) center-footer: ($center-footer$ (normalize "lot")) right-footer: ($right-footer$ (normalize "lot")) input-whitespace-treatment: 'collapse (build-lot (current-node) (car gilist))) (loop (cdr gilist))))) (if (generate-toc-in-front) (process-children) (empty-sosofo))))) (element (book title) (empty-sosofo)) (element part (let* ((partinfo (select-elements (children (current-node)) (normalize "docinfo"))) (partintro (select-elements (children (current-node)) (normalize "partintro"))) (nl (titlepage-info-elements (current-node) partinfo (if %generate-partintro-on-titlepage% partintro (empty-node-list))))) (make sequence (if %generate-part-titlepage% (make simple-page-sequence page-n-columns: %titlepage-n-columns% input-whitespace-treatment: 'collapse use: default-text-style (part-titlepage nl 'recto) (make display-group break-before: 'page (part-titlepage nl 'verso))) (empty-sosofo)) (if (not (generate-toc-in-front)) (process-children) (empty-sosofo)) ;; generate a part TOC on a separate page (if (and %generate-part-toc% (not %generate-part-toc-on-titlepage%)) (make simple-page-sequence page-n-columns: %page-n-columns% page-number-format: ($page-number-format$ (normalize "toc")) use: default-text-style left-header: ($left-header$ (normalize "toc")) center-header: ($center-header$ (normalize "toc")) right-header: ($right-header$ (normalize "toc")) left-footer: ($left-footer$ (normalize "toc")) center-footer: ($center-footer$ (normalize "toc")) right-footer: ($right-footer$ (normalize "toc")) input-whitespace-treatment: 'collapse (build-toc (current-node) (toc-depth (current-node)))) (empty-sosofo)) ;; this seems wrong relative to generate-toc-in-front, ;; goes *after* the content ??! (if (and (not (node-list-empty? partintro)) (not %generate-partintro-on-titlepage%)) ($process-partintro$ partintro #t) (empty-sosofo)) (if (generate-toc-in-front) (process-children) (empty-sosofo))))) (element (part title) (empty-sosofo)) (element partintro (empty-sosofo)) (element (partintro title) (let* ((hlevel 1) (hs (HSIZE (- 4 hlevel)))) (make paragraph font-family-name: %title-font-family% font-weight: (if (< hlevel 5) 'bold 'medium) font-posture: (if (< hlevel 5) 'upright 'italic) font-size: hs line-spacing: (* hs %line-spacing-factor%) space-before: (* hs %head-before-factor%) space-after: (* hs %head-after-factor%) start-indent: 0pt first-line-start-indent: 0pt quadding: %section-title-quadding% keep-with-next?: #t heading-level: (if %generate-heading-level% (+ hlevel 1) 0) (element-title-sosofo (parent (current-node)))))) (define ($process-partintro$ partintro make-page-seq?) (if make-page-seq? (make simple-page-sequence page-n-columns: %page-n-columns% page-number-restart?: (or %page-number-restart% (book-start?) (first-chapter?)) page-number-format: ($page-number-format$) use: default-text-style left-header: ($left-header$) center-header: ($center-header$) right-header: ($right-header$) left-footer: ($left-footer$) center-footer: ($center-footer$) right-footer: ($right-footer$) start-indent: %body-start-indent% input-whitespace-treatment: 'collapse quadding: %default-quadding% (make sequence (process-node-list (children partintro)) (make-endnotes partintro))) (make sequence start-indent: %body-start-indent% (process-node-list (children partintro)) (make-endnotes partintro)))) docbook-dsssl-1.79/print/dbcompon.dsl0000644000175000001440000004101507653416246020357 0ustar msmithusers00000000000000;; $Id: dbcompon.dsl,v 1.5 2003/04/29 06:33:10 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ============================= COMPONENTS ============================= ;; ;; in docbook, components are containers at the chapter/appendix level (define ($title-header-footer-element$) (let* ((firstchild (node-list-first (children (current-node)))) (metainfo (if (node-list-empty? firstchild) (empty-node-list) (if (member (gi firstchild) (info-element-list)) firstchild (empty-node-list)))) (metatitle (select-elements (children metainfo) (normalize "title"))) (metatabb (select-elements (children metainfo) (normalize "titleabbrev"))) (title (select-elements (children (current-node)) (normalize "title"))) (titleabb (select-elements (children (current-node)) (normalize "titleabbrev")))) (if (node-list-empty? metatabb) (if (node-list-empty? titleabb) (if (node-list-empty? metatitle) title metatitle) titleabb) metatabb))) (define ($refentry-header-footer-element$) (let* ((refdescriptor (node-list-first (select-elements (descendants (current-node)) (normalize "refdescriptor")))) (refname (node-list-first (select-elements (descendants (current-node)) (normalize "refname")))) (refentrytitle (node-list-first (select-elements (descendants (current-node)) (normalize "refentrytitle"))))) (if (node-list-empty? refentrytitle) (if (node-list-empty? refdescriptor) refname refdescriptor) refentrytitle))) (define ($title-header-footer$) (let* ((title (if (equal? (gi) (normalize "refentry")) ($refentry-header-footer-element$) ($title-header-footer-element$)))) (make sequence font-posture: 'italic (with-mode hf-mode (process-node-list title))))) (define ($page-number-header-footer$) (let ((component (ancestor-member (current-node) (append (division-element-list) (component-element-list))))) (make sequence font-posture: 'italic (literal (gentext-page) (if %page-number-restart% (if (or (equal? (gi component) (normalize "chapter")) (equal? (gi component) (normalize "appendix"))) (string-append (element-label component #t) (gentext-intra-label-sep "_pagenumber")) "") "")) (page-number-sosofo)))) (define (first-page-inner-header gi) (empty-sosofo)) (define (first-page-center-header gi) (empty-sosofo)) (define (first-page-outer-header gi) (empty-sosofo)) (define (page-inner-header gi) (empty-sosofo)) (define (page-center-header gi) (empty-sosofo)) (define (page-outer-header gi) (cond ((equal? (normalize gi) (normalize "dedication")) (empty-sosofo)) ((equal? (normalize gi) (normalize "lot")) (empty-sosofo)) ((equal? (normalize gi) (normalize "part")) (empty-sosofo)) ((equal? (normalize gi) (normalize "toc")) (empty-sosofo)) (else ($title-header-footer$)))) (define (first-page-inner-footer gi) (empty-sosofo)) (define (first-page-center-footer gi) (empty-sosofo)) (define (first-page-outer-footer gi) (cond ((equal? (normalize gi) (normalize "dedication")) (empty-sosofo)) ((equal? (normalize gi) (normalize "part")) (empty-sosofo)) (else ($page-number-header-footer$)))) (define (page-inner-footer gi) (empty-sosofo)) (define (page-center-footer gi) (empty-sosofo)) (define (page-outer-footer gi) ($page-number-header-footer$)) (define ($page-number-format$ #!optional (gi (gi))) (cond ((equal? (normalize gi) (normalize "toc")) "i") ((equal? (normalize gi) (normalize "lot")) "i") ((equal? (normalize gi) (normalize "preface")) "i") (else "1"))) (define ($left-header$ #!optional (gi (gi))) (if-first-page (if (equal? %writing-mode% 'left-to-right) (first-page-inner-header gi) (first-page-outer-header gi)) (if %two-side% (if-front-page (if (equal? %writing-mode% 'left-to-right) (page-inner-header gi) (page-outer-header gi)) (if (equal? %writing-mode% 'left-to-right) (page-outer-header gi) (page-inner-header gi))) (if (equal? %writing-mode% 'left-to-right) (page-inner-header gi) (page-outer-header gi))))) (define ($center-header$ #!optional (gi (gi))) (if-first-page (first-page-center-header gi) (page-center-header gi))) (define ($right-header$ #!optional (gi (gi))) (if-first-page (if (equal? %writing-mode% 'left-to-right) (first-page-outer-header gi) (first-page-inner-header gi)) (if %two-side% (if-front-page (if (equal? %writing-mode% 'left-to-right) (page-outer-header gi) (page-inner-header gi)) (if (equal? %writing-mode% 'left-to-right) (page-inner-header gi) (page-outer-header gi))) (if (equal? %writing-mode% 'left-to-right) (page-outer-header gi) (page-inner-header gi))))) (define ($left-footer$ #!optional (gi (gi))) (if-first-page (if (equal? %writing-mode% 'left-to-right) (first-page-inner-footer gi) (first-page-outer-footer gi)) (if %two-side% (if-front-page (if (equal? %writing-mode% 'left-to-right) (page-inner-footer gi) (page-outer-footer gi)) (if (equal? %writing-mode% 'left-to-right) (page-outer-footer gi) (page-inner-footer gi))) (if (equal? %writing-mode% 'left-to-right) (page-inner-footer gi) (page-outer-footer gi))))) (define ($center-footer$ #!optional (gi (gi))) (if-first-page (first-page-center-footer gi) (page-center-footer gi))) (define ($right-footer$ #!optional (gi (gi))) (if-first-page (if (equal? %writing-mode% 'left-to-right) (first-page-outer-footer gi) (first-page-inner-footer gi)) (if %two-side% (if-front-page (if (equal? %writing-mode% 'left-to-right) (page-outer-footer gi) (page-inner-footer gi)) (if (equal? %writing-mode% 'left-to-right) (page-inner-footer gi) (page-outer-footer gi))) (if (equal? %writing-mode% 'left-to-right) (page-outer-footer gi) (page-inner-footer gi))))) (define ($component$) (make simple-page-sequence page-n-columns: %page-n-columns% page-number-restart?: (or %page-number-restart% (first-chapter?)) page-number-format: ($page-number-format$) use: default-text-style left-header: ($left-header$) center-header: ($center-header$) right-header: ($right-header$) left-footer: ($left-footer$) center-footer: ($center-footer$) right-footer: ($right-footer$) start-indent: %body-start-indent% input-whitespace-treatment: 'collapse quadding: %default-quadding% (make sequence ($component-title$) (process-children)) (make-endnotes))) (define ($component-title$) (let* ((info (cond ((equal? (gi) (normalize "appendix")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "article")) (node-list-filter-by-gi (children (current-node)) (list (normalize "artheader") (normalize "articleinfo")))) ((equal? (gi) (normalize "bibliography")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "chapter")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "dedication")) (empty-node-list)) ((equal? (gi) (normalize "glossary")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "index")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "preface")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "reference")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "setindex")) (select-elements (children (current-node)) (normalize "docinfo"))) (else (empty-node-list)))) (exp-children (if (node-list-empty? info) (empty-node-list) (expand-children (children info) (list (normalize "bookbiblio") (normalize "bibliomisc") (normalize "biblioset"))))) (parent-titles (select-elements (children (current-node)) (normalize "title"))) (titles (if (node-list-empty? parent-titles) (select-elements exp-children (normalize "title")) parent-titles)) (parent-subttl (select-elements (children (current-node)) (normalize "subtitle"))) (subtitles (if (node-list-empty? parent-subttl) (select-elements exp-children (normalize "subtitle")) parent-subttl))) (make sequence (make paragraph font-family-name: %title-font-family% font-weight: 'bold font-size: (HSIZE 4) line-spacing: (* (HSIZE 4) %line-spacing-factor%) space-before: (* (HSIZE 4) %head-before-factor%) start-indent: 0pt first-line-start-indent: 0pt quadding: %component-title-quadding% heading-level: (if %generate-heading-level% 1 0) keep-with-next?: #t (if (string=? (element-label) "") (empty-sosofo) (literal (gentext-element-name-space (current-node)) (element-label) (gentext-label-title-sep (gi)))) (if (node-list-empty? titles) (element-title-sosofo) ;; get a default! (with-mode component-title-mode (make sequence (process-node-list titles))))) (make paragraph font-family-name: %title-font-family% font-weight: 'bold font-posture: 'italic font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-before: (* 0.5 (* (HSIZE 3) %head-before-factor%)) space-after: (* (HSIZE 4) %head-after-factor%) start-indent: 0pt first-line-start-indent: 0pt quadding: %component-subtitle-quadding% keep-with-next?: #t (with-mode component-title-mode (make sequence (process-node-list subtitles))))))) (mode component-title-mode (element title (process-children)) (element subtitle (process-children)) ) ;; this is how we prevent the title in the header from acquiring the ;; display treatment that it receives in the body of the document ;; (mode hf-mode (element title (let* ((component (ancestor-member (current-node) (component-element-list))) (chaporapp (or (equal? (gi component) (normalize "chapter")) (equal? (gi component) (normalize "appendix"))))) (if %chap-app-running-heads% (make sequence (if (and chaporapp %chapter-autolabel% (or %chap-app-running-head-autolabel% (attribute-string (normalize "label") component))) (literal (gentext-element-name-space component) (element-label component) (gentext-label-title-sep (gi component))) (empty-sosofo)) (process-children-trim)) (empty-sosofo)))) (element titleabbrev (if %chap-app-running-heads% (make sequence (if (or (have-ancestor? (normalize "chapter")) (have-ancestor? (normalize "appendix"))) (literal (gentext-element-name-space (parent)) (element-label (parent)) (gentext-label-title-sep (gi (parent)))) (empty-sosofo)) (process-children-trim)) (empty-sosofo))) (element refentrytitle (if %chap-app-running-heads% (process-children-trim) (empty-sosofo))) (element refdescriptor (if %chap-app-running-heads% (process-children-trim) (empty-sosofo))) (element refname (if %chap-app-running-heads% (process-children-trim) (empty-sosofo))) ;; Graphics aren't allowed in headers and footers... (element graphic (empty-sosofo)) (element inlinegraphic (empty-sosofo)) ) (element appendix ($component$)) (element (article appendix) ($section$)) ;; this is a special case (element (appendix title) (empty-sosofo)) (element chapter ($component$)) (element (chapter title) (empty-sosofo)) (element preface ($component$)) (element (preface title) (empty-sosofo)) (element colophon ($component$)) ;; Dedication is empty except in a special mode so that it can be ;; reordered (made to come before the TOCs) (element dedication (empty-sosofo)) (mode dedication-page-mode (element dedication ($component$)) (element (dedication title) (empty-sosofo)) ) ;; Articles are like components, except that if they may have much ;; more formal title pages (created with article-titlepage). ;; (element article (let* ((info (node-list-filter-by-gi (children (current-node)) (list (normalize "artheader") (normalize "articleinfo")))) (nl (titlepage-info-elements (current-node) info)) (article-titlepage (if %generate-article-titlepage-on-separate-page% (make sequence (if (article-titlepage-content? nl 'recto) (make simple-page-sequence page-n-columns: %page-n-columns% use: default-text-style quadding: %default-quadding% (article-titlepage nl 'recto)) (empty-sosofo)) (if (article-titlepage-content? nl 'verso) (make simple-page-sequence page-n-columns: %page-n-columns% use: default-text-style quadding: %default-quadding% (article-titlepage nl 'verso)) (empty-sosofo))) (make sequence (article-titlepage nl 'recto) (article-titlepage nl 'verso))))) (make sequence ;; make the titlepage first if its on a separate page (if (and %generate-article-titlepage% %generate-article-titlepage-on-separate-page%) article-titlepage (empty-sosofo)) ;; make the TOC on a separate page if requested and it's not ;; already on the title page and it's supposed to be in front (if (and %generate-article-toc% (not %generate-article-toc-on-titlepage%) %generate-article-titlepage-on-separate-page% (generate-toc-in-front)) (make simple-page-sequence page-n-columns: %page-n-columns% ;; FIXME: page restarting here and below is ill-considered page-number-restart?: %article-page-number-restart% page-number-format: ($page-number-format$ (normalize "toc")) left-header: ($left-header$ (normalize "toc")) center-header: ($center-header$ (normalize "toc")) right-header: ($right-header$ (normalize "toc")) left-footer: ($left-footer$ (normalize "toc")) center-footer: ($center-footer$ (normalize "toc")) right-footer: ($right-footer$ (normalize "toc")) input-whitespace-treatment: 'collapse use: default-text-style quadding: %default-quadding% (build-toc (current-node) (toc-depth (current-node)))) (empty-sosofo)) ;; start a new page for the article itself (make simple-page-sequence page-n-columns: %page-n-columns% page-number-restart?: (or %article-page-number-restart% (book-start?)) page-number-format: ($page-number-format$) use: default-text-style left-header: ($left-header$) center-header: ($center-header$) right-header: ($right-header$) left-footer: ($left-footer$) center-footer: ($center-footer$) right-footer: ($right-footer$) start-indent: %body-start-indent% input-whitespace-treatment: 'collapse quadding: %default-quadding% ;; ... and include the titlepage if there is one and it's not ;; already generated on a separate page (if (and %generate-article-titlepage% (not %generate-article-titlepage-on-separate-page%)) article-titlepage (empty-sosofo)) ;; ... and include the TOC if it is in front and not already ;; generated (if (and %generate-article-toc% (generate-toc-in-front) (not %generate-article-toc-on-titlepage%) (not %generate-article-titlepage-on-separate-page%)) (make display-group space-after: (* (HSIZE 3) %head-after-factor%) (build-toc (current-node) (toc-depth (current-node)))) (empty-sosofo)) ;; .. and the contents of the article (process-children) ;; ... and the endnotes (make-endnotes) ;; ... and the TOC if it is supposed to be on the back and not ;; on the titlepage nor on a separate pagee (if (and %generate-article-toc% (not (generate-toc-in-front)) (not %generate-article-toc-on-titlepage%) (not %generate-article-titlepage-on-separate-page%)) (make display-group space-after: (* (HSIZE 3) %head-after-factor%) (build-toc (current-node) (toc-depth (current-node)))) (empty-sosofo))) ;; finally, produce the TOC if it is supposed to be at the end ;; and on its own page (if (and %generate-article-toc% (not %generate-article-toc-on-titlepage%) %generate-article-titlepage-on-separate-page% (not (generate-toc-in-front))) (make simple-page-sequence page-n-columns: %page-n-columns% use: default-text-style quadding: %default-quadding% (build-toc (current-node) (toc-depth (current-node)))) (empty-sosofo))))) (element (article title) (empty-sosofo)) docbook-dsssl-1.79/print/dbcallou.dsl0000644000175000001440000001717510132241166020334 0ustar msmithusers00000000000000;; $Id: dbcallou.dsl,v 1.4 2004/10/10 14:04:48 petere78 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; The support provided below is a little primitive because there's no way ;; to do line-addressing in Jade. ;; ;; CO's are supported with the CO element or, in SCREENCO and ;; PROGRAMLISTINGCO only, AREAs. ;; ;; Notes on the use of AREAs: ;; ;; - Processing is very slow. Jade loops through each AREA for ;; every column on every line. ;; - Only the LINECOLUMN units are supported, and they are #IMPLIED ;; - If a COORDS only specifies a line, the %callout-default-col% will ;; be used for the column. ;; - If the column is beyond the end of the line, that will work OK, but ;; if more than one callout has to get placed beyond the end of the same ;; line, that doesn't work so well. ;; - Embedded tabs foul up the column counting. ;; - Embedded markup fouls up the column counting. ;; - Embedded markup with embedded line breaks fouls up the line counting. ;; - The callout bugs occur immediately before the LINE COLUMN specified. ;; - You can't point to an AREASET, that doesn't make any sense ;; since it would imply a one-to-many link ;; ;; There's still no support for a stylesheet drawing the callouts on a ;; GRAPHIC, and I don't think there ever will be. ;; (element areaspec (empty-sosofo)) (element area (empty-sosofo)) (element areaset (empty-sosofo)) (element co ($callout-mark$ (current-node))) (element programlistingco ($informal-object$)) (element screenco ($informal-object$)) (element graphicco ($informal-object$)) (element (screenco screen) ($callout-verbatim-display$ %indent-screen-lines% %number-screen-lines%)) (element (programlistingco programlisting) ($callout-verbatim-display$ %indent-programlisting-lines% %number-programlisting-lines%)) ;; ---------------------------------------------------------------------- (define ($callout-bug$ conumber) (if (and conumber %callout-fancy-bug%) (case conumber ((1) (literal "\dingbat-negative-circled-sans-serif-digit-one;")) ((2) (literal "\dingbat-negative-circled-sans-serif-digit-two;")) ((3) (literal "\dingbat-negative-circled-sans-serif-digit-three;")) ((4) (literal "\dingbat-negative-circled-sans-serif-digit-four;")) ((5) (literal "\dingbat-negative-circled-sans-serif-digit-five;")) ((6) (literal "\dingbat-negative-circled-sans-serif-digit-six;")) ((7) (literal "\dingbat-negative-circled-sans-serif-digit-seven;")) ((8) (literal "\dingbat-negative-circled-sans-serif-digit-eight;")) ((9) (literal "\dingbat-negative-circled-sans-serif-digit-nine;")) (else (make sequence font-weight: 'bold (literal "(" (format-number conumber "1") ")")))) (make sequence font-weight: 'bold (if conumber (literal "(" (format-number conumber "1") ")") (literal "(??)"))))) (define ($callout-mark$ co) ;; Print the callout mark for co (if (equal? (gi co) (normalize "co")) ($callout-bug$ (if (node-list-empty? co) #f (child-number co))) (let ((areanum (if (node-list-empty? co) #f (if (equal? (gi (parent co)) (normalize "areaset")) (absolute-child-number (parent co)) (absolute-child-number co))))) ($callout-bug$ (if (node-list-empty? co) #f areanum))))) (define ($look-for-callout$ line col #!optional (eol? #f)) ;; Look to see if a callout should be printed at line col, and print ;; it if it should (let* ((areaspec (select-elements (children (parent (current-node))) (normalize "areaspec"))) (areas (expand-children (children areaspec) (list (normalize "areaset"))))) (let loop ((areanl areas)) (if (node-list-empty? areanl) (empty-sosofo) (make sequence (if ($callout-area-match$ (node-list-first areanl) line col eol?) ($callout-area-format$ (node-list-first areanl) line col eol?) (empty-sosofo)) (loop (node-list-rest areanl))))))) (define ($callout-area-match$ area line col eol?) ;; Does AREA area match line col? (let* ((coordlist (split (attribute-string (normalize "coords") area))) (aline (string->number (car coordlist))) (acol (if (null? (cdr coordlist)) #f (string->number (car (cdr coordlist))))) (units (if (inherited-attribute-string (normalize "units") area) (inherited-attribute-string (normalize "units") area) (normalize "linecolumn")))) (and (equal? units (normalize "linecolumn")) (or (and (equal? line aline) (equal? col acol)) (and (equal? line aline) eol? (or (not acol) (> acol col))))))) (define ($callout-area-format$ area line col eol?) ;; Format AREA area at the appropriate place (let* ((coordlist (split (attribute-string (normalize "coords") area))) (aline (string->number (car coordlist))) (acol (if (null? (cdr coordlist)) #f (string->number (car (cdr coordlist)))))) (if (and (equal? line aline) eol? (or (not acol) (> acol col))) (make sequence (let loop ((atcol col)) (if (>= atcol (if acol acol %callout-default-col%)) (empty-sosofo) (make sequence (literal "\no-break-space;") (loop (+ atcol 1))))) ($callout-mark$ area)) ($callout-mark$ area)))) (define ($callout-linespecific-content$ indent line-numbers?) ;; Print linespecific content in a callout with line numbers (make sequence ($line-start$ indent line-numbers? 1) (let loop ((kl (children (current-node))) (linecount 1) (colcount 1) (res (empty-sosofo))) (if (node-list-empty? kl) (sosofo-append res ($look-for-callout$ linecount colcount #t) (empty-sosofo)) (loop (node-list-rest kl) (if (char=? (node-property 'char (node-list-first kl) default: #\U-0000) #\U-000D) (+ linecount 1) linecount) (if (char=? (node-property 'char (node-list-first kl) default: #\U-0000) #\U-000D) 1 (if (char=? (node-property 'char (node-list-first kl) default: #\U-0000) #\U-0000) colcount (+ colcount 1))) (let ((c (node-list-first kl))) (if (char=? (node-property 'char c default: #\U-0000) #\U-000D) (sosofo-append res ($look-for-callout$ linecount colcount #t) (process-node-list c) ($line-start$ indent line-numbers? (+ linecount 1))) (sosofo-append res ($look-for-callout$ linecount colcount) (process-node-list c))))))))) (define ($callout-verbatim-display$ indent line-numbers?) (let* ((width-in-chars (if (attribute-string "width") (string->number (attribute-string "width")) %verbatim-default-width%)) (fsize (lambda () (if (or (attribute-string (normalize "width")) (not %verbatim-size-factor%)) (/ (/ (- %text-width% (inherited-start-indent)) width-in-chars) 0.7) (* (inherited-font-size) %verbatim-size-factor%)))) (vspace-before (if (INBLOCK?) 0pt (if (INLIST?) %para-sep% %block-sep%))) (vspace-after (if (INBLOCK?) 0pt (if (INLIST?) 0pt %block-sep%)))) (make paragraph use: verbatim-style space-before: (if (and (string=? (gi (parent)) (normalize "entry")) (absolute-first-sibling?)) 0pt vspace-before) space-after: (if (and (string=? (gi (parent)) (normalize "entry")) (absolute-last-sibling?)) 0pt vspace-after) font-size: (fsize) line-spacing: (* (fsize) %line-spacing-factor%) start-indent: (if (INBLOCK?) (inherited-start-indent) (+ %block-start-indent% (inherited-start-indent))) quadding: 'start ($callout-linespecific-content$ indent line-numbers?)))) ;; EOF dbcallout.dsl docbook-dsssl-1.79/print/dbblock.dsl0000644000175000001440000005262510121537306020150 0ustar msmithusers00000000000000;; $Id: dbblock.dsl,v 1.13 2004/09/14 09:49:58 petere78 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; (element revhistory ($book-revhistory$)) (element highlights ($block-container$)) (element (para blockquote) (let* ((attrib (select-elements (children (current-node)) (normalize "attribution"))) (paras (node-list-filter-by-not-gi (children (current-node)) (list (normalize "attribution"))))) (make sequence (make paragraph first-line-start-indent: 0pt ;; workaround a bug/feature? ;; W/o the preceding line, the first-line-start-indent of the enclosing ;; paragraph will apply to the paragraphs in this blockquote which is ;; probably not wanted.. font-size: (* %bf-size% %smaller-size-factor%) line-spacing: (* %bf-size% %line-spacing-factor% %smaller-size-factor%) space-before: %para-sep% start-indent: (+ (inherited-start-indent) %blockquote-start-indent%) end-indent: %blockquote-end-indent% (process-node-list paras)) (if (node-list-empty? attrib) (empty-sosofo) (make paragraph font-size: (* %bf-size% %smaller-size-factor%) line-spacing: (* %bf-size% %line-spacing-factor% %smaller-size-factor%) space-before: 0pt end-indent: 1em quadding: 'end (make sequence (literal "\em-dash;") (process-node-list attrib))))))) (element blockquote (let* ((attrib (select-elements (children (current-node)) (normalize "attribution"))) (paras (node-list-filter-by-not-gi (children (current-node)) (list (normalize "attribution"))))) (make sequence (make paragraph font-size: (* %bf-size% %smaller-size-factor%) line-spacing: (* %bf-size% %line-spacing-factor% %smaller-size-factor%) space-before: %para-sep% start-indent: (+ (inherited-start-indent) %blockquote-start-indent%) end-indent: %blockquote-end-indent% (process-node-list paras)) (if (node-list-empty? attrib) (empty-sosofo) (make paragraph font-size: (* %bf-size% %smaller-size-factor%) line-spacing: (* %bf-size% %line-spacing-factor% %smaller-size-factor%) space-before: 0pt end-indent: 1em quadding: 'end (make sequence (literal "\em-dash;") (process-node-list attrib))))))) (element (blockquote para) (if (absolute-last-sibling? (current-node)) (make paragraph space-before: %para-sep% space-after: 0pt quadding: %default-quadding% (process-children-trim)) ($paragraph$))) (element epigraph (let* ((addln-indent %epigraph-start-indent%) (attrib (select-elements (children (current-node)) (normalize "attribution"))) (paras (node-list-filter-by-not-gi (children (current-node)) (list (normalize "attribution"))))) (make display-group start-indent: (+ %body-start-indent% addln-indent) end-indent: %epigraph-end-indent% font-posture: 'italic (process-node-list paras) (if (node-list-empty? attrib) (empty-sosofo) (make paragraph space-before: 0pt quadding: 'end (process-node-list attrib)))))) (element attribution ($charseq$)) (element (epigraph para) (if (absolute-last-sibling? (current-node)) (make paragraph space-before: %para-sep% space-after: 0pt quadding: %default-quadding% (process-children-trim)) ($paragraph$))) (element para ($paragraph$)) (element simpara ($paragraph$)) (element formalpara ($para-container$)) (element (formalpara title) ($runinhead$)) (element (formalpara para) (make sequence (process-children-trim))) (element sidebar (make box display?: #t box-type: 'border line-thickness: 1pt start-indent: (inherited-start-indent) end-indent: (inherited-end-indent) (if (node-list-empty? (select-elements (children (current-node)) (normalize "title"))) (make display-group start-indent: 2pt end-indent: 2pt space-before: %block-sep% space-after: %block-sep% (process-children)) (make display-group start-indent: 2pt end-indent: 2pt space-before: 0pt space-after: %block-sep% (make sequence (let* ((object (current-node)) (title (select-elements (children object) (normalize "title"))) (nsep (gentext-label-title-sep (gi object)))) (make paragraph font-weight: 'bold space-before: %block-sep% space-after: %para-sep% keep-with-next?: #t (literal (gentext-element-name object)) (if (string=? (element-label object) "") (literal nsep) (literal " " (element-label object) nsep)) (process-node-list (children title)))) (process-children)))))) (element (sidebar title) (empty-sosofo)) (element abstract (make display-group space-before: %block-sep% space-after: %block-sep% start-indent: %body-start-indent% (process-children))) (element authorblurb ($block-container$)) (element ackno ($paragraph$)) (define ($inline-object$) (process-children)) (define ($informal-object$ #!optional (rule-before? #f) (rule-after? #f)) (make display-group start-indent: (+ %block-start-indent% (inherited-start-indent)) space-before: %block-sep% space-after: %block-sep% (if rule-before? (make rule orientation: 'horizontal line-thickness: %object-rule-thickness% display-alignment: 'center space-after: (/ %block-sep% 2) keep-with-next?: #t) (empty-sosofo)) (process-children) (if rule-after? (make rule orientation: 'horizontal line-thickness: %object-rule-thickness% display-alignment: 'center space-before: (/ %block-sep% 2) keep-with-previous?: #t) (empty-sosofo)))) (define (object-title-after #!optional (node (current-node))) (if (member (gi node) ($object-titles-after$)) #t #f)) (define (float-object node) ;; you could redefine this to make only figures float, or only tables, ;; or whatever... #t) (define (named-formal-objects) (list (normalize "figure") (normalize "table") (normalize "example") (normalize "equation"))) (define ($formal-object$ #!optional (rule-before? #f) (rule-after? #f)) (let* ((object-sosofo (make paragraph space-before: 0pt space-after: 0pt start-indent: (+ %block-start-indent% (inherited-start-indent)) keep-with-next?: (object-title-after) (process-children))) (title-sosofo (with-mode formal-object-title-mode (process-node-list (select-elements (children (current-node)) (normalize "title"))))) (sosofo (make display-group space-before: %block-sep% space-after: %block-sep% (if rule-before? (make rule orientation: 'horizontal line-thickness: %object-rule-thickness% display-alignment: 'center space-after: (/ %block-sep% 2) keep-with-next?: #t) (empty-sosofo)) (if (object-title-after) (make sequence object-sosofo title-sosofo) (make sequence title-sosofo object-sosofo)) (if rule-after? (make rule orientation: 'horizontal line-thickness: %object-rule-thickness% display-alignment: 'center space-before: (/ %block-sep% 2) keep-with-previous?: #t) (empty-sosofo))))) (if (and (equal? (print-backend) 'tex) formal-object-float (float-object (current-node))) (make page-float sosofo) sosofo))) (define ($semiformal-object$) (if (node-list-empty? (select-elements (children (current-node)) (normalize "title"))) ($informal-object$) ($formal-object$))) (mode formal-object-title-mode (element title (let* ((object (parent (current-node))) (nsep (gentext-label-title-sep (gi object)))) (make paragraph font-weight: %formal-object-title-font-weight% space-before: (if (object-title-after (parent (current-node))) %para-sep% 0pt) space-after: (if (object-title-after (parent (current-node))) 0pt %para-sep%) start-indent: (+ %block-start-indent% (inherited-start-indent)) keep-with-next?: (not (object-title-after (parent (current-node)))) (if (member (gi object) (named-formal-objects)) (make sequence (literal (gentext-element-name object)) (if (string=? (element-label object) "") (literal nsep) (literal " " (element-label object) nsep))) (empty-sosofo)) (process-children)))) ) (element example ($formal-object$ %example-rules% %example-rules%)) (element (example title) (empty-sosofo)) ; don't show caption below example (element informalexample ($informal-object$ %informalexample-rules% %informalexample-rules%)) (element informalfigure ($informal-object$ %informalfigure-rules% %informalfigure-rules%)) (element (figure title) (empty-sosofo)) ; don't show caption below figure (element figure ;; FIXME: this is a bit crude... (let* ((mediaobj (select-elements (children (current-node)) (normalize "mediaobject"))) (imageobj (select-elements (children mediaobj) (normalize "imageobject"))) (image (select-elements (children imageobj) (normalize "imagedata"))) (graphic (select-elements (children (current-node)) (normalize "graphic"))) (align (if (node-list-empty? image) (if (node-list-empty? graphic) #f (attribute-string (normalize "align") (node-list-first graphic))) (attribute-string (normalize "align") (node-list-first image)))) (dalign (cond ((equal? align (normalize "center")) 'center) ((equal? align (normalize "right")) 'end) (else 'start)))) (if align (make display-group quadding: dalign ($formal-object$ %figure-rules% %figure-rules%)) ($formal-object$ %figure-rules% %figure-rules%)))) (element informaltable ($informal-object$ %informaltable-rules% %informaltable-rules%)) (element table ;; can't be a "formal-object" because it requires special handling for ;; the PGWIDE attribute (let* ((nsep (gentext-label-title-sep (gi))) (pgwide (attribute-string (normalize "pgwide"))) (indent (lambda () (if (not (equal? pgwide "1")) (+ %block-start-indent% (inherited-start-indent)) %cals-pgwide-start-indent%))) (rule-before? %table-rules%) (rule-after? %table-rules%) (title-sosofo (make paragraph font-weight: %table-title-font-weight% space-before: (if (object-title-after) %para-sep% 0pt) space-after: (if (object-title-after) 0pt %para-sep%) start-indent: (indent) keep-with-next?: (not (object-title-after)) (literal (gentext-element-name (current-node))) (if (string=? (element-label) "") (literal nsep) (literal " " (element-label) nsep)) (element-title-sosofo))) (table-sosofo (make display-group font-weight: 'bold space-before: 0pt space-after: 0pt start-indent: (indent) keep-with-next?: (object-title-after) (process-children))) (table (make display-group start-indent: (+ %block-start-indent% (inherited-start-indent)) space-before: %block-sep% space-after: %block-sep% (if rule-before? (make rule orientation: 'horizontal line-thickness: %object-rule-thickness% display-alignment: 'center space-after: (/ %block-sep% 2) keep-with-next?: #t) (empty-sosofo)) (if (object-title-after) (make sequence table-sosofo title-sosofo) (make sequence title-sosofo table-sosofo)) (if rule-after? (make rule orientation: 'horizontal line-thickness: %object-rule-thickness% display-alignment: 'center space-before: (/ %block-sep% 2) keep-with-previous?: #t) (empty-sosofo))))) (if (and (equal? (print-backend) 'tex) formal-object-float (float-object (current-node))) (make page-float table) table))) (element (table title) (empty-sosofo)) (element comment (if %show-comments% (make paragraph start-indent: 0pt first-line-start-indent: -10pt font-posture: 'italic font-size: (* (inherited-font-size) 0.9) (make sequence (make line-field field-width: 10pt quadding: 'end (literal "*")) (process-children))) (empty-sosofo))) ;; In DocBook V4.0 comment became remark (element remark (if %show-comments% (make paragraph start-indent: 0pt first-line-start-indent: -10pt font-posture: 'italic font-size: (* (inherited-font-size) 0.9) (make sequence (make line-field field-width: 10pt quadding: 'end (literal "*")) (process-children))) (empty-sosofo))) ;; ====================================================================== ;; Handle footnotes in the body... (define %footnote-field-width% 1.6em) (define %footnote-number-restarts% #t) (define %footnote-endnote-break% #f) (define (count-footnote? footnote) ;; don't count footnotes in comments (unless you're showing comments) ;; or footnotes in tables which are handled locally in the table ;; or footnotes for empty ulinks which don't need a footnote (if (or (and (has-ancestor-member? footnote (list (normalize "comment"))) (not %show-comments%)) (has-ancestor-member? footnote (list (normalize "tgroup"))) (and (has-ancestor-member? footnote (list (normalize "ulink"))) (node-list-empty? (children footnote)) %footnote-ulinks%)) #f #t)) (define (footnote-number footnote) ;; This is more complex than it at first appears because footnotes ;; can be in Comments which may be suppressed. (let* ((root-list (if %footnote-number-restarts% (component-element-list) (list (normalize "book")))) (footnotes (if %footnote-ulinks% (component-list-descendant-node-list footnote (list (normalize "ulink") (normalize "footnote")) root-list) (component-descendant-node-list footnote root-list))) (fn-number (let loop ((nl footnotes) (num 1)) (if (node-list-empty? nl) 0 (if (node-list=? (node-list-first nl) footnote) num (if (count-footnote? (node-list-first nl)) (loop (node-list-rest nl) (+ num 1)) (loop (node-list-rest nl) num))))))) (format-number fn-number "1"))) (element footnote (if (and (equal? (print-backend) 'tex) bop-footnotes) (make sequence ($ss-seq$ + (literal (footnote-number (current-node)))) (make page-footnote (process-children))) ($ss-seq$ + (literal (footnote-number (current-node)))))) (element (footnote para) ;; Note: this can only get called if the backend is 'tex ;; If the backend is anything else, footnote never calls process ;; children except in endnote-mode, so this doesn't get called. (let ((fnnum (footnote-number (parent (current-node))))) (if (= (child-number) 1) (make paragraph use: default-text-style font-size: (* %footnote-size-factor% %bf-size%) quadding: %default-quadding% line-spacing: (* (* %footnote-size-factor% %bf-size%) %line-spacing-factor%) space-before: %para-sep% space-after: %para-sep% start-indent: %footnote-field-width% first-line-start-indent: (- %footnote-field-width%) lines: 'wrap ; doesn't seem to work (make line-field field-width: %footnote-field-width% (literal fnnum (gentext-label-title-sep (normalize "footnote")))) (process-children-trim)) (make paragraph use: default-text-style font-size: (* %footnote-size-factor% %bf-size%) quadding: %default-quadding% line-spacing: (* (* %footnote-size-factor% %bf-size%) %line-spacing-factor%) space-before: %para-sep% space-after: %para-sep% start-indent: %footnote-field-width% lines: 'wrap ; doesn't seem to work (process-children-trim))))) (define (non-table-footnotes footnotenl) (let loop ((nl footnotenl) (result (empty-node-list))) (if (node-list-empty? nl) result (if (has-ancestor-member? (node-list-first nl) (list (normalize "tgroup"))) (loop (node-list-rest nl) result) (loop (node-list-rest nl) (node-list result (node-list-first nl))))))) (define (make-endnote-header) (let ((headsize (if (equal? (gi) (normalize "refentry")) (HSIZE 2) (HSIZE 3))) (indent (lambda () (if (equal? (gi) (normalize "refentry")) %body-start-indent% 0pt)))) (make paragraph break-before: %footnote-endnote-break% font-family-name: %title-font-family% font-weight: 'bold font-size: headsize line-spacing: (* headsize %line-spacing-factor%) space-before: (* headsize %head-before-factor%) space-after: (* headsize %head-after-factor%) start-indent: (indent) quadding: 'start keep-with-next?: #t (literal (gentext-endnotes))))) (define (make-endnotes #!optional (node (current-node))) (let* ((allfootnotes (if %footnote-ulinks% (node-list-filter-by-gi (descendants node) (list (normalize "footnote") (normalize "ulink"))) (select-elements (descendants node) (normalize "footnote")))) (footnotes (let loop ((nl (non-table-footnotes allfootnotes)) (fnlist (empty-node-list))) (if (node-list-empty? nl) fnlist (if (count-footnote? (node-list-first nl)) (loop (node-list-rest nl) (node-list fnlist (node-list-first nl))) (loop (node-list-rest nl) fnlist)))))) (if (or (node-list-empty? footnotes) (and (equal? (print-backend) 'tex) bop-footnotes)) (empty-sosofo) (if (or (equal? (gi node) (normalize "reference")) (equal? (gi node) (normalize "part"))) (empty-sosofo) ;; Each RefEntry/Component does its own... (make sequence (make-endnote-header) (with-mode endnote-mode (process-node-list footnotes))))))) (mode endnote-mode (element footnote (make sequence start-indent: %body-start-indent% (process-children))) (element (footnote para) (let ((fnnum (footnote-number (parent (current-node))))) (if (= (child-number) 1) (make paragraph ; I'm not sure this really makes sense in the endnote case... ; font-size: (* %footnote-size-factor% %bf-size%) ; line-spacing: (* (* %footnote-size-factor% %bf-size%) ; %line-spacing-factor%) space-before: %para-sep% start-indent: (+ (inherited-start-indent) %footnote-field-width%) first-line-start-indent: (- %footnote-field-width%) (make line-field field-width: %footnote-field-width% (literal fnnum (gentext-label-title-sep (normalize "footnote")))) (process-children-trim)) (make paragraph font-size: (* %footnote-size-factor% %bf-size%) line-spacing: (* (* %footnote-size-factor% %bf-size%) %line-spacing-factor%) start-indent: (+ (inherited-start-indent) %footnote-field-width%) space-before: %para-sep% (process-children-trim))))) (element ulink (if %footnote-ulinks% (let ((fnnum (footnote-number (current-node)))) (make paragraph ; font-size: (* %footnote-size-factor% %bf-size%) ; line-spacing: (* (* %footnote-size-factor% %bf-size%) ; %line-spacing-factor%) space-before: %para-sep% start-indent: (+ (inherited-start-indent) %footnote-field-width%) first-line-start-indent: (- %footnote-field-width%) (make line-field field-width: %footnote-field-width% (literal fnnum (gentext-label-title-sep (normalize "footnote")))) (literal (attribute-string "url")))) (next-match)))) ;; ====================================================================== ;; Handle table footnotes (define (table-footnote-number footnote) (format-number (component-child-number footnote ($table-element-list$)) "a")) (element (entry footnote) ($ss-seq$ + (literal (table-footnote-number (current-node))))) (element (entry para footnote) ($ss-seq$ + (literal (table-footnote-number (current-node))))) (define (make-table-endnote-header) (make paragraph font-family-name: %body-font-family% font-weight: 'medium font-size: %bf-size% start-indent: 0pt quadding: 'start (literal (gentext-table-endnotes)))) (define (make-table-endnotes) (let* ((footnotes (select-elements (descendants (current-node)) (normalize "footnote"))) (headsize (HSIZE 3)) (tgroup (ancestor-member (current-node) (list (normalize "tgroup")))) (cols (string->number (attribute-string (normalize "cols") tgroup)))) (if (node-list-empty? footnotes) (empty-sosofo) (make table-row (make table-cell n-columns-spanned: cols cell-before-row-margin: %cals-cell-before-row-margin% cell-after-row-margin: %cals-cell-after-row-margin% cell-before-column-margin: %cals-cell-before-column-margin% cell-after-column-margin: %cals-cell-after-column-margin% start-indent: %cals-cell-content-start-indent% end-indent: %cals-cell-content-end-indent% (make-table-endnote-header) (with-mode table-footnote-mode (process-node-list footnotes))))))) (mode table-footnote-mode (element footnote (make display-group font-family-name: %body-font-family% font-weight: 'medium font-size: %bf-size% start-indent: 0pt quadding: 'start (process-children))) (element (footnote para) (let ((fnnum (table-footnote-number (parent (current-node))))) (if (= (child-number) 1) (make paragraph start-indent: %footnote-field-width% first-line-start-indent: (- %footnote-field-width%) (make line-field field-width: %footnote-field-width% (literal fnnum (gentext-label-title-sep (normalize "footnote")))) (process-children-trim)) (make paragraph start-indent: %footnote-field-width% (process-children-trim)))))) docbook-dsssl-1.79/print/dbbibl.dsl0000644000175000001440000005753107500642071017772 0ustar msmithusers00000000000000;; $Id: dbbibl.dsl,v 1.2 2002/06/09 12:04:09 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ......................... BIBLIOGRAPHY PARAMS ......................... ;; these should be in dbparam... (define %biblsep% ", ") (define %biblend% ".") (define %biblioentry-in-entry-order% #t) ;; .................... BIBLIOGRAPHY and BIBLIODIV ...................... (define (bibliography-content) ;; Note that the code below works for both the case where the bibliography ;; has BIBLIODIVs and the case where it doesn't, by the slightly subtle ;; fact that if it does, then allentries will be (empty-node-list). (let* ((allbibcontent (children (current-node))) (prebibcontent (node-list-filter-by-not-gi allbibcontent (list (normalize "biblioentry") (normalize "bibliomixed")))) (allentries (node-list-filter-by-gi allbibcontent (list (normalize "biblioentry") (normalize "bibliomixed")))) (entries (if biblio-filter-used (biblio-filter allentries) allentries))) (make sequence (process-node-list prebibcontent) (process-node-list entries)))) (element (book bibliography) (make simple-page-sequence page-n-columns: %page-n-columns% page-number-restart?: (or %page-number-restart% (book-start?) (first-chapter?)) page-number-format: ($page-number-format$) use: default-text-style left-header: ($left-header$) center-header: ($center-header$) right-header: ($right-header$) left-footer: ($left-footer$) center-footer: ($center-footer$) right-footer: ($right-footer$) start-indent: %body-start-indent% input-whitespace-treatment: 'collapse quadding: %default-quadding% (make sequence ($component-title$) (bibliography-content)) (make-endnotes))) (element bibliography ;; A bibliography that's inside something else... (let* ((sect (ancestor-member (current-node) (append (section-element-list) (component-element-list)))) (hlevel (+ (SECTLEVEL sect) 1)) (hs (HSIZE (- 4 hlevel)))) (make sequence (make paragraph font-family-name: %title-font-family% font-weight: (if (< hlevel 5) 'bold 'medium) font-posture: (if (< hlevel 5) 'upright 'italic) font-size: hs line-spacing: (* hs %line-spacing-factor%) space-before: (* hs %head-before-factor%) space-after: (* hs %head-after-factor%) start-indent: (if (or (>= hlevel 3) (member (gi) (list (normalize "refsect1") (normalize "refsect2") (normalize "refsect3")))) %body-start-indent% 0pt) first-line-start-indent: 0pt quadding: %section-title-quadding% keep-with-next?: #t heading-level: (if %generate-heading-level% (+ hlevel 1) 0) (element-title-sosofo (current-node))) (bibliography-content)))) (element (bibliography title) (empty-sosofo)) (element bibliodiv (let* ((allentries (node-list-filter-by-gi (children (current-node)) (list (normalize "biblioentry") (normalize "bibliomixed")))) (entries (if biblio-filter-used (biblio-filter allentries) allentries))) (if (and biblio-filter-used (node-list-empty? entries)) (empty-sosofo) (make display-group space-before: %block-sep% space-after: %block-sep% start-indent: %body-start-indent% (make sequence ($section-title$) (process-node-list entries)))))) (element (bibliodiv title) (empty-sosofo)) ;; ..................... BIBLIOGRAPHY ENTRIES ......................... (define (biblioentry-inline-sep node rest) ;; Output the character that should separate inline node from rest (cond ((and (equal? (gi node) (normalize "title")) (equal? (gi (node-list-first rest)) (normalize "subtitle"))) (make sequence font-posture: 'italic (literal ": "))) (else (literal %biblsep%)))) (define (biblioentry-inline-end blocks) ;; Output the character that should occur at the end of inline (literal %biblend%)) (define (biblioentry-block-sep node rest) ;; Output the character that should separate block node from rest (empty-sosofo)) (define (biblioentry-block-end) ;; Output the character that should occur at the end of block (empty-sosofo)) (element biblioentry (let* ((expanded-children (expand-children (children (current-node)) (biblioentry-flatten-elements))) (all-inline-children (if %biblioentry-in-entry-order% (titlepage-gi-list-by-nodelist (biblioentry-inline-elements) expanded-children) (titlepage-gi-list-by-elements (biblioentry-inline-elements) expanded-children))) (block-children (if %biblioentry-in-entry-order% (titlepage-gi-list-by-nodelist (biblioentry-block-elements) expanded-children) (titlepage-gi-list-by-elements (biblioentry-block-elements) expanded-children))) (leading-abbrev (if (equal? (normalize "abbrev") (gi (node-list-first all-inline-children))) (node-list-first all-inline-children) (empty-node-list))) (inline-children (if (node-list-empty? leading-abbrev) all-inline-children (node-list-rest all-inline-children))) (has-leading-abbrev? (not (node-list-empty? leading-abbrev))) (xreflabel (if (or has-leading-abbrev? biblio-number) #f (attribute-string (normalize "xreflabel"))))) (make display-group (make paragraph space-before: %para-sep% space-after: %para-sep% start-indent: (+ (inherited-start-indent) 2pi) first-line-start-indent: -2pi (if (or biblio-number xreflabel has-leading-abbrev?) (make sequence (literal "[") (if biblio-number (literal (number->string (bibentry-number (current-node)))) (empty-sosofo)) (if xreflabel (literal xreflabel) (empty-sosofo)) (if has-leading-abbrev? (with-mode biblioentry-inline-mode (process-node-list leading-abbrev)) (empty-sosofo)) (literal "]\no-break-space;")) (empty-sosofo)) (let loop ((nl inline-children)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (with-mode biblioentry-inline-mode (process-node-list (node-list-first nl))) (if (node-list-empty? (node-list-rest nl)) (biblioentry-inline-end block-children) (biblioentry-inline-sep (node-list-first nl) (node-list-rest nl))) (loop (node-list-rest nl)))))) (make display-group start-indent: (+ (inherited-start-indent) 2pi) (let loop ((nl block-children)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (with-mode biblioentry-block-mode (process-node-list (node-list-first nl))) (if (node-list-empty? (node-list-rest nl)) (biblioentry-block-end) (biblioentry-block-sep (node-list-first nl) (node-list-rest nl))) (loop (node-list-rest nl))))))))) (mode biblioentry-inline-mode (element abbrev (make sequence (process-children))) (element affiliation (let ((inline-children (node-list-filter-by-not-gi (children (current-node)) (list (normalize "address"))))) (let loop ((nl inline-children)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (process-node-list (node-list-first nl)) (if (node-list-empty? (node-list-rest nl)) (empty-sosofo) (literal ", ")) (loop (node-list-rest nl))))))) (element artpagenums (make sequence (process-children))) (element author (literal (author-list-string))) (element authorgroup (process-children)) (element authorinitials (make sequence (process-children))) (element collab (let* ((nl (children (current-node))) (collabname (node-list-first nl)) (affil (node-list-rest nl))) (make sequence (process-node-list collabname) (if (node-list-empty? affil) (empty-sosofo) (let loop ((nl affil)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (literal ", ") (process-node-list (node-list-first nl)) (loop (node-list-rest nl))))))))) (element (collab collabname) (process-children)) (element confgroup (let ((inline-children (node-list-filter-by-not-gi (children (current-node)) (list (normalize "address"))))) (let loop ((nl inline-children)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (process-node-list (node-list-first nl)) (if (node-list-empty? (node-list-rest nl)) (empty-sosofo) (literal ", ")) (loop (node-list-rest nl))))))) (element contractnum (process-children)) (element contractsponsor (process-children)) (element contrib (process-children)) (element copyright ;; Just print the year(s) (let ((years (select-elements (children (current-node)) (normalize "year")))) (process-node-list years))) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (empty-sosofo)))) (element corpauthor (make sequence (process-children))) (element corpname (make sequence (process-children))) (element date (make sequence (process-children))) (element edition (make sequence (process-children))) (element editor (make sequence (literal (gentext-edited-by)) (literal " ") (literal (author-list-string)))) (element firstname (make sequence (process-children))) (element honorific (make sequence (process-children))) (element invpartnumber (make sequence (process-children))) (element isbn (make sequence (process-children))) (element issn (make sequence (process-children))) (element issuenum (make sequence (process-children))) (element lineage (make sequence (process-children))) (element orgname (make sequence (process-children))) (element othercredit (literal (author-list-string))) (element othername (make sequence (process-children))) (element pagenums (make sequence (process-children))) (element productname (make sequence ($charseq$) ; this is actually a problem since "trade" is the default value for ; the class attribute. we can put this back in in DocBook 5.0, when ; class becomes #IMPLIED ; (if (equal? (attribute-string "class") (normalize "trade")) ; (literal "\trade-mark-sign;") ; (empty-sosofo)) )) (element productnumber (make sequence (process-children))) (element pubdate (make sequence (process-children))) (element publisher (let ((pubname (select-elements (children (current-node)) (normalize "publishername"))) (cities (select-elements (descendants (current-node)) (normalize "city")))) (make sequence (process-node-list pubname) (if (node-list-empty? cities) (empty-sosofo) (literal ", ")) (process-node-list cities)))) (element publishername (make sequence (process-children))) (element (publisher address city) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (empty-sosofo)))) (element pubsnumber (make sequence (process-children))) (element releaseinfo (make sequence (process-children))) (element seriesvolnums (make sequence (process-children))) (element subtitle (make sequence font-posture: 'italic (process-children))) (element surname (make sequence (process-children))) (element title (make sequence font-posture: 'italic (process-children))) (element titleabbrev (make sequence (process-children))) (element volumenum (make sequence (process-children))) (element (bibliomixed title) (make sequence font-posture: 'italic (process-children))) (element (bibliomixed subtitle) (make sequence font-posture: 'italic (process-children))) (element (biblioset title) (let ((rel (case-fold-up (inherited-attribute-string (normalize "relation"))))) (cond ((equal? rel "ARTICLE") (make sequence (literal (gentext-start-quote)) (process-children) (literal (gentext-end-quote)))) (else (make sequence font-posture: 'italic (process-children)))))) (element (bibliomset title) (let ((rel (case-fold-up (inherited-attribute-string (normalize "relation"))))) (cond ((equal? rel "ARTICLE") (make sequence (literal (gentext-start-quote)) (process-children) (literal (gentext-end-quote)))) (else (make sequence font-posture: 'italic (process-children)))))) ) (mode biblioentry-block-mode (element abstract (make display-group (process-children))) (element (abstract title) (make paragraph font-weight: 'bold (process-children))) (element address ($linespecific-display$ %indent-address-lines% %number-address-lines%)) (element authorblurb (make display-group (process-children))) (element printhistory (make display-group (process-children))) (element revhistory (make sequence (make paragraph font-weight: 'bold (literal (gentext-element-name (current-node)))) (make table before-row-border: #f (make table-column column-number: 1 width: (/ (- %body-width% (inherited-start-indent)) 3)) (make table-column column-number: 2 width: (/ (- %body-width% (inherited-start-indent)) 3)) (make table-column column-number: 3 width: (/ (- %body-width% (inherited-start-indent)) 3)) (process-children)))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (node-list-filter-by-gi (descendants (current-node)) (list (normalize "revremark") (normalize "revdescription"))))) (make sequence (make table-row (make table-cell column-number: 1 n-columns-spanned: 1 n-rows-spanned: 1 (if (not (node-list-empty? revnumber)) (make paragraph (make sequence (literal (gentext-element-name-space (current-node))) (process-node-list revnumber))) (empty-sosofo))) (make table-cell column-number: 2 n-columns-spanned: 1 n-rows-spanned: 1 (if (not (node-list-empty? revdate)) (make paragraph (process-node-list revdate)) (empty-sosofo))) (make table-cell column-number: 3 n-columns-spanned: 1 n-rows-spanned: 1 (if (not (node-list-empty? revauthor)) (make paragraph (make sequence (literal (gentext-revised-by)) (process-node-list revauthor))) (empty-sosofo)))) (make table-row cell-after-row-border: #f (make table-cell column-number: 1 n-columns-spanned: 3 n-rows-spanned: 1 (if (not (node-list-empty? revremark)) (make paragraph space-after: %block-sep% (process-node-list revremark)) (empty-sosofo))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element (revision revdescription) (process-children)) (element seriesinfo ;; This is a nearly biblioentry recursively... (let* ((expanded-children (expand-children (children (current-node)) (biblioentry-flatten-elements))) (all-inline-children (if %biblioentry-in-entry-order% (titlepage-gi-list-by-nodelist (biblioentry-inline-elements) expanded-children) (titlepage-gi-list-by-elements (biblioentry-inline-elements) expanded-children))) (block-children (if %biblioentry-in-entry-order% (titlepage-gi-list-by-nodelist (biblioentry-block-elements) expanded-children) (titlepage-gi-list-by-elements (biblioentry-block-elements) expanded-children))) (inline-children all-inline-children)) (make display-group (make paragraph space-before: %para-sep% space-after: %para-sep% start-indent: (+ (inherited-start-indent) 2pi) first-line-start-indent: -2pi (let loop ((nl inline-children)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (with-mode biblioentry-inline-mode (process-node-list (node-list-first nl))) (if (node-list-empty? (node-list-rest nl)) (biblioentry-inline-end block-children) (biblioentry-inline-sep (node-list-first nl) (node-list-rest nl))) (loop (node-list-rest nl)))))) (make display-group start-indent: (+ (inherited-start-indent) 2pi) (let loop ((nl block-children)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (with-mode biblioentry-block-mode (process-node-list (node-list-first nl))) (if (node-list-empty? (node-list-rest nl)) (biblioentry-block-end) (biblioentry-block-sep (node-list-first nl) (node-list-rest nl))) (loop (node-list-rest nl))))))))) ) (element bibliomixed (let* ((all-inline-children (children (current-node))) (leading-abbrev (if (equal? (normalize "abbrev") (gi (node-list-first all-inline-children))) (node-list-first all-inline-children) (empty-node-list))) (inline-children (if (node-list-empty? leading-abbrev) all-inline-children (node-list-rest all-inline-children))) (has-leading-abbrev? (not (node-list-empty? leading-abbrev))) (xreflabel (if (or has-leading-abbrev? biblio-number) #f (attribute-string (normalize "xreflabel"))))) (make paragraph space-before: %para-sep% space-after: %para-sep% start-indent: (+ (inherited-start-indent) 2pi) first-line-start-indent: -2pi (if (or biblio-number xreflabel has-leading-abbrev?) (make sequence (literal "[") (if biblio-number (literal (number->string (bibentry-number (current-node)))) (empty-sosofo)) (if xreflabel (literal xreflabel) (empty-sosofo)) (if has-leading-abbrev? (with-mode biblioentry-inline-mode (process-node-list leading-abbrev)) (empty-sosofo)) (literal "]\no-break-space;")) (empty-sosofo)) (with-mode biblioentry-inline-mode (process-children))))) ;; ....................... BIBLIOGRAPHY ELEMENTS ....................... ;; These are element construction rules for bibliography elements that ;; may occur outside of a BIBLIOENTRY or BIBLIOMIXED. (element bibliomisc (process-children)) (element bibliomset (process-children)) (element biblioset (process-children)) (element bookbiblio (process-children)) (element street ($charseq$)) (element pob ($charseq$)) (element postcode ($charseq$)) (element city ($charseq$)) (element state ($charseq$)) (element country ($charseq$)) (element phone ($charseq$)) (element fax ($charseq$)) (element otheraddr ($charseq$)) (element affiliation ($charseq$)) (element shortaffil ($charseq$)) (element jobtitle ($charseq$)) (element orgdiv ($charseq$)) (element artpagenums ($charseq$)) (element author (make sequence (literal (author-list-string)))) (element authorgroup (process-children)) (element collab (process-children)) (element collabname ($charseq$)) (element authorinitials ($charseq$)) (element confgroup (process-children)) (element confdates ($charseq$)) (element conftitle ($charseq$)) (element confnum ($charseq$)) (element confsponsor ($charseq$)) (element contractnum ($charseq$)) (element contractsponsor ($charseq$)) (element copyright (make paragraph (make sequence (literal (gentext-element-name (current-node))) (literal "\no-break-space;") (literal (dingbat "copyright")) (literal "\no-break-space;") (process-children-trim)))) (element year (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (literal " ")))) (element holder ($charseq$)) (element corpauthor (make sequence (literal (author-list-string)))) (element corpname ($charseq$)) (element date ($charseq$)) (element edition ($charseq$)) (element editor ($charseq$)) (element isbn ($charseq$)) (element issn ($charseq$)) (element invpartnumber ($charseq$)) (element issuenum ($charseq$)) (element legalnotice ($semiformal-object$)) (element (legalnotice title) (empty-sosofo)) (element modespec (empty-sosofo)) (element orgname ($charseq$)) (element othercredit (make sequence (literal (author-list-string)))) (element pagenums ($charseq$)) (element contrib ($charseq$)) (element firstname ($charseq$)) (element honorific ($charseq$)) (element lineage ($charseq$)) (element othername ($charseq$)) (element surname ($charseq$)) (element printhistory (empty-sosofo)) (element productname (make sequence ($charseq$) ; this is actually a problem since "trade" is the default value for ; the class attribute. we can put this back in in DocBook 5.0, when ; class becomes #IMPLIED ; (if (equal? (attribute-string "class") (normalize "trade")) ; (literal "\trade-mark-sign;") ; (empty-sosofo)) )) (element productnumber ($charseq$)) (element pubdate ($charseq$)) (element publisher (process-children)) (element publishername ($charseq$)) (element pubsnumber ($charseq$)) (element releaseinfo (empty-sosofo)) (element revision ($charseq$)) (element revnumber ($charseq$)) (element revremark ($charseq$)) (element revdescription ($block-container$)) (element seriesvolnums ($charseq$)) (element volumenum ($charseq$)) ;; The (element (bookinfo revhistory)) construction rule is in dbinfo.dsl ;; It calls $book-revhistory$... (define ($book-revhistory$) (make sequence (make paragraph use: title-style font-family-name: %title-font-family% font-weight: 'bold space-before: (* (HSIZE 3) %head-before-factor%) space-after: (* (HSIZE 1) %head-before-factor%) (literal (gentext-element-name (current-node)))) (make table before-row-border: #f (process-children)))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (node-list-filter-by-gi (descendants (current-node)) (list (normalize "revremark") (normalize "revdescription"))))) (make sequence (make table-row (make table-cell column-number: 1 n-columns-spanned: 1 n-rows-spanned: 1 (if (not (node-list-empty? revnumber)) (make paragraph (make sequence (literal (gentext-element-name-space (current-node))) (process-node-list revnumber))) (empty-sosofo))) (make table-cell column-number: 2 n-columns-spanned: 1 n-rows-spanned: 1 (if (not (node-list-empty? revdate)) (make paragraph (process-node-list revdate)) (empty-sosofo))) (make table-cell column-number: 3 n-columns-spanned: 1 n-rows-spanned: 1 (if (not (node-list-empty? revauthor)) (make paragraph (make sequence (literal (gentext-revised-by)) (process-node-list revauthor))) (empty-sosofo)))) (make table-row cell-after-row-border: #f (make table-cell column-number: 1 n-columns-spanned: 3 n-rows-spanned: 1 (if (not (node-list-empty? revremark)) (make paragraph space-after: %block-sep% (process-node-list revremark)) (empty-sosofo))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element (revision revdescription) (process-children)) docbook-dsssl-1.79/print/dbautoc.dsl0000644000175000001440000001332107611215267020170 0ustar msmithusers00000000000000;; $Id: dbautoc.dsl,v 1.4 2003/01/15 08:24:23 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ========================== TABLE OF CONTENTS ========================= (define %toc-indent% 2pi) (define %toc-spacing-factor% 0.4) ;; Returns the depth of auto TOC that should be made at the nd-level (define (toc-depth nd) (if (string=? (gi nd) (normalize "book")) 7 1)) (define (format-page-number) (current-node-page-number-sosofo)) ;; Prints the TOC title if first? is true, otherwise does nothing (define (toc-title first?) (let ((hsize (if (or (equal? (gi (current-node)) (normalize "article")) (equal? (gi (current-node)) (normalize "part"))) (HSIZE 3) (HSIZE 4)))) (if first? (make paragraph font-family-name: %title-font-family% font-weight: 'bold font-size: hsize line-spacing: (* hsize %line-spacing-factor%) space-before: (* hsize %head-before-factor%) space-after: (* hsize %head-after-factor%) start-indent: 0pt first-line-start-indent: 0pt quadding: %component-title-quadding% heading-level: (if %generate-heading-level% 1 0) keep-with-next?: #t (literal (gentext-element-name (normalize "toc")))) (empty-sosofo)))) ;; Prints the TOC title if first? is true, otherwise does nothing (define (lot-title first? lotgi) (if first? (make paragraph font-family-name: %title-font-family% font-weight: 'bold font-size: (HSIZE 4) line-spacing: (* (HSIZE 4) %line-spacing-factor%) space-before: (* (HSIZE 4) %head-before-factor%) space-after: (* (HSIZE 4) %head-after-factor%) start-indent: 0pt first-line-start-indent: 0pt quadding: %component-title-quadding% heading-level: (if %generate-heading-level% 1 0) keep-with-next?: #t (literal ($lot-title$ lotgi))) (empty-sosofo))) ;; Print the TOC entry for tocentry (define ($toc-entry$ tocentry level) (make paragraph start-indent: (+ %body-start-indent% (* %toc-indent% level)) first-line-start-indent: (* -1 %toc-indent%) font-weight: (if (= level 1) 'bold 'medium) space-before: (if (= level 1) (* %toc-spacing-factor% 6pt) 0pt) space-after: (if (= level 1) (* %toc-spacing-factor% 6pt) 0pt) keep-with-next?: (if (= level 1) #t #f) quadding: 'start (make link destination: (node-list-address tocentry) (make sequence (if (equal? (element-label tocentry) "") (empty-sosofo) (make sequence (element-label-sosofo tocentry) (literal (gentext-label-title-sep (gi tocentry))))) (element-title-sosofo tocentry))) (if (and (= level 1) ;; ??? %chapter-title-page-separate% %page-number-restart%) (empty-sosofo) ;; Don't need the leader etc then (make sequence (make leader (literal ".")) (make link destination: (node-list-address tocentry) (make sequence (if %page-number-restart% (literal (string-append (if (= level 1) (element-label tocentry #t) (substring (element-label tocentry #t) 0 (string-index (element-label tocentry #t) "."))) (gentext-intra-label-sep "_pagenumber"))) (empty-sosofo)) (with-mode toc-page-number-mode (process-node-list tocentry)))))))) ;; Build a TOC starting at nd reaching down depth levels. ;; The optional arguments are used on recursive calls to build-toc ;; and shouldn't be set by the initial caller... ;; (define (build-toc nd depth #!optional (first? #t) (level 1)) (let* ((toclist (toc-list-filter (node-list-filter-by-gi (children nd) (append (division-element-list) (component-element-list) (section-element-list)))))) (if (or (<= depth 0) (node-list-empty? toclist)) (empty-sosofo) (make sequence (toc-title first?) (let loop ((nl toclist)) (if (node-list-empty? nl) (empty-sosofo) (sosofo-append ($toc-entry$ (node-list-first nl) level) (build-toc (node-list-first nl) (- depth 1) #f (+ level 1)) (loop (node-list-rest nl))))))))) ;; Print the LOT entry (define ($lot-entry$ tocentry) (make paragraph start-indent: (+ %body-start-indent% %toc-indent%) first-line-start-indent: (* -1 %toc-indent%) font-weight: 'medium space-before: 0pt space-after: 0pt quadding: 'start (make link destination: (node-list-address tocentry) (make sequence (if (equal? (element-label tocentry) "") (empty-sosofo) (make sequence (element-label-sosofo tocentry #t) (literal (gentext-label-title-sep (gi tocentry))))) (element-title-sosofo tocentry))) (make leader (literal ".")) (make link destination: (node-list-address tocentry) (make sequence (if %page-number-restart% (make sequence (literal (substring (element-label tocentry #t) 0 (string-index (element-label tocentry #t) "-"))) (literal (gentext-intra-label-sep "_pagenumber"))) (empty-sosofo)) (with-mode toc-page-number-mode (process-node-list tocentry)))))) ;; Build a LOT starting at nd for all the lotgi's it contains. ;; The optional arguments are used on recursive calls to build-toc ;; and shouldn't be set by the initial caller... ;; (define (build-lot nd lotgi #!optional (first? #t)) (let* ((lotlist (select-elements (descendants nd) (normalize lotgi)))) (if (node-list-empty? lotlist) (empty-sosofo) (make sequence (lot-title first? lotgi) (let loop ((nl lotlist)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (if (string=? (gi (node-list-first nl)) lotgi) ($lot-entry$ (node-list-first nl)) (empty-sosofo)) (build-lot (node-list-first nl) lotgi #f) (loop (node-list-rest nl))))))))) (mode toc-page-number-mode (default (format-page-number))) docbook-dsssl-1.79/print/dbadmon.dsl0000644000175000001440000001167410132242724020152 0ustar msmithusers00000000000000;; $Id: dbadmon.dsl,v 1.5 2004/10/10 14:18:40 petere78 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ============================ ADMONITIONS ============================= (define ($graphical-admonition$) (let* ((adm (current-node)) (title (select-elements (children adm) (normalize "title"))) (title? (not (node-list-empty? title))) (adm-title (if title? (with-mode title-sosofo-mode (process-node-list (node-list-first title))) (literal (gentext-element-name adm)))) (graphic (make external-graphic display?: #f entity-system-id: ($admon-graphic$))) (f-child (node-list-first (children (current-node)))) (r-child (node-list-rest (children (current-node))))) (make display-group space-before: %block-sep% space-after: %block-sep% start-indent: (+ (inherited-start-indent) ($admon-graphic-width$)) font-family-name: %admon-font-family% font-size: (- %bf-size% 1pt) font-weight: 'medium font-posture: 'upright line-spacing: (* (- %bf-size% 1pt) %line-spacing-factor%) (if title? (make display-group (make paragraph first-line-start-indent: (- ($admon-graphic-width$)) keep-with-next?: #t (make line-field field-width: ($admon-graphic-width$) graphic) (make sequence font-family-name: %title-font-family% font-weight: 'bold adm-title)) (process-children)) (make display-group (make paragraph first-line-start-indent: (- ($admon-graphic-width$)) (make line-field field-width: ($admon-graphic-width$) graphic) (process-node-list (children f-child))) (process-node-list r-child)))))) (define ($admonition$) (if %admon-graphics% ($graphical-admonition$) (make display-group space-before: %block-sep% space-after: %block-sep% start-indent: (if %admon-graphics% (inherited-start-indent) (+ (inherited-start-indent) (* (ILSTEP) 2))) font-size: (- %bf-size% 1pt) font-weight: 'medium font-posture: 'upright font-family-name: %admon-font-family% line-spacing: (* (- %bf-size% 1pt) %line-spacing-factor%) (process-children)))) (define ($admonpara$) (let* ((title (select-elements (children (parent (current-node))) (normalize "title"))) (has-title (not (node-list-empty? title))) (adm-title (if has-title (make sequence (with-mode title-sosofo-mode (process-node-list (node-list-first title))) (literal (gentext-label-title-sep (gi (parent (current-node)))))) (literal (gentext-element-name (parent (current-node))) (gentext-label-title-sep (gi (parent (current-node)))))))) (make paragraph space-before: %para-sep% space-after: %para-sep% (if (and (not %admon-graphics%) (= (child-number) 1)) (make sequence font-family-name: %title-font-family% font-weight: 'bold adm-title) (empty-sosofo)) (process-children-trim)))) (element important ($admonition$)) (element (important title) (empty-sosofo)) (element (important para) ($admonpara$)) (element (important simpara) ($admonpara$)) (element note ($admonition$)) (element (note title) (empty-sosofo)) (element (note para) ($admonpara$)) (element (note simpara) ($admonpara$)) (element tip ($admonition$)) (element (tip title) (empty-sosofo)) (element (tip para) ($admonpara$)) (element (tip simpara) ($admonpara$)) ;; perils are given special treatment by generating a centered title ;; and throwing a box around them ;; note that the paragraph indents are set by the box characteristics ;; (define ($peril$) (let* ((title (select-elements (children (current-node)) (normalize "title"))) (has-title (not (node-list-empty? title))) (adm-title (if has-title (make sequence (with-mode title-sosofo-mode (process-node-list (node-list-first title)))) (literal (gentext-element-name (current-node))))) (hs (HSIZE 2))) (if %admon-graphics% ($graphical-admonition$) (make display-group space-before: %block-sep% space-after: %block-sep% font-family-name: %admon-font-family% font-size: (- %bf-size% 1pt) font-weight: 'medium font-posture: 'upright line-spacing: (* (- %bf-size% 1pt) %line-spacing-factor%) (make box display?: #t box-type: 'border line-thickness: 2pt start-indent: (+ (inherited-start-indent) (* 2 (ILSTEP)) 2pt) end-indent: (inherited-end-indent) (make paragraph space-before: %para-sep% space-after: %para-sep% start-indent: 1em end-indent: 1em font-family-name: %title-font-family% font-weight: 'bold font-size: hs line-spacing: (* hs %line-spacing-factor%) quadding: 'center keep-with-next?: #t adm-title) (process-children)))))) (element caution ($peril$)) (element (caution title) (empty-sosofo)) (element warning ($peril$)) (element (warning title) (empty-sosofo)) docbook-dsssl-1.79/print/catalog0000644000175000001440000000002707262170714017376 0ustar msmithusers00000000000000CATALOG "../catalog" docbook-dsssl-1.79/print/XREF0000644000175000001440000000023710142564530016525 0ustar msmithusers00000000000000Symbol Defined In Used In ================== ============================= ============================= docbook-dsssl-1.79/olink/0000755000175000001440000000000010142564561016020 5ustar msmithusers00000000000000docbook-dsssl-1.79/olink/olink.dsl0000644000175000001440000001116207262170714017643 0ustar msmithusers00000000000000 ]> ;; $Id: olink.dsl,v 1.1 2001/04/02 21:40:28 nwalsh Exp $ (define %doctype-pubid% "-//Norman Walsh//DTD DocBook OLink Summary V1.1//EN") (root (make sequence (make document-type name: "div" public-id: %doctype-pubid%) (with-mode olink-mode (process-children)))) (define (attrs #!optional (nd (current-node))) (let* ((id (attribute-string (normalize "id") nd)) (arch (inherited-attribute-string (normalize "arch") nd)) (conformance (inherited-attribute-string (normalize "conformance") nd)) (os (inherited-attribute-string (normalize "os") nd)) (revision (inherited-attribute-string (normalize "revision") nd)) (userlevel (inherited-attribute-string (normalize "userlevel") nd)) (vendor (inherited-attribute-string (normalize "vendor") nd)) (label (element-label nd #t)) (gielem (case-fold-down (gi nd))) (giname (gentext-element-name (gi nd))) (href (href-to nd))) (append (list (list "type" gielem)) (list (list "name" giname)) (list (list "href" href)) (if id (list (list "id" id)) '()) (if (equal? label "") '() (list (list "label" label))) (if arch (list (list "arch" arch)) '()) (if conformance (list (list "conformance" conformance)) '()) (if os (list (list "os" os)) '()) (if revision (list (list "revision" revision)) '()) (if userlevel (list (list "userlevel" userlevel)) '()) (if vendor (list (list "vendor" vendor)) '())))) (define (div #!optional (nd (current-node))) (let* ((attributes (attrs nd)) (xreflabel (attribute-string (normalize "xreflabel") nd)) (title (if xreflabel xreflabel (element-title nd)))) (make element gi: "div" attributes: attributes (make element gi: "ttl" (if (string? title) (literal title) (with-mode olink-title-mode (process-node-list title)))) (process-children)))) (define (obj #!optional (nd (current-node))) (let* ((attributes (attrs nd)) (title (element-title nd))) (make sequence (make element gi: "obj" attributes: attributes (make element gi: "ttl" (if (string? title) (literal title) (with-mode olink-title-mode (process-node-list title)))) (process-children))))) (mode olink-mode (default ;; process only the element children (let ((elem (let loop ((nl (children (current-node))) (elem (empty-node-list))) (if (node-list-empty? nl) elem (if (equal? (node-property 'class-name (node-list-first nl)) 'element) (loop (node-list-rest nl) (node-list elem (node-list-first nl))) (loop (node-list-rest nl) elem)))))) (if (node-list-empty? elem) (empty-sosofo) (process-node-list elem)))) (element set (div)) (element book (div)) (element preface (div)) (element chapter (div)) (element appendix (div)) (element part (div)) (element reference (div)) (element article (div)) (element refentry (div)) (element section (div)) (element sect1 (div)) (element sect2 (div)) (element sect3 (div)) (element sect4 (div)) (element sect5 (div)) (element refsect1 (div)) (element refsect2 (div)) (element refsect3 (div)) (element figure (obj)) (element example (obj)) (element table (obj)) (element equation (if (node-list-empty? (select-elements (children (current-node)) (normalize "title"))) (empty-sosofo) (obj))) ) (mode olink-title-mode (default (process-children)) (element computeroutput (make element gi: "tt" (process-children))) (element emphasis (make element gi: "it" (process-children))) (element filename (make element gi: "it" (process-children))) (element function (make element gi: "it" (process-children))) (element literal (make element gi: "tt" (process-children))) (element markup (make element gi: "tt" (process-children))) (element quote (make element gi: "qt" (process-children))) (element replaceable (make element gi: "it" (process-children))) (element subscript (make element gi: "sub" (process-children))) (element superscript (make element gi: "sup" (process-children))) (element userinput (make element gi: "tt" (process-children))) ) docbook-dsssl-1.79/olink/ChangeLog0000644000175000001440000000012210142575332017563 0ustar msmithusers000000000000002001-04-02 Norman Walsh * olink.dsl: New file. docbook-dsssl-1.79/lib/0000755000175000001440000000000010142564561015452 5ustar msmithusers00000000000000docbook-dsssl-1.79/lib/dblib.dsl0000644000175000001440000016406110142350772017237 0ustar msmithusers00000000000000 ;; $Id: dblib.dsl,v 1.8 2004/10/24 01:09:35 petere78 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; This file contains a general library of DSSSL functions. ;; ;; If **ANY** change is made to this file, you _MUST_ alter the ;; following definition: ;; REFERENCE Library Version (define %library-version% ;; REFENTRY version ;; PURP Defines the library version string ;; DESC ;; Defines the library version string. ;; /DESC ;; /REFENTRY "Modular DocBook Stylesheet Library") ;; === Book intro, for dsl2man ========================================== DSSSL Library ;; Part of the Modular DocBook Stylesheet distribution ;; NormanWalsh ;; ;; $Revision: 1.8 $ ;; 199719981999 ;; Norman Walsh ;; ;; ;; This software may be distributed under the same terms as Jade: ;; ;; ;; Permission is hereby granted, free of charge, to any person ;; obtaining a copy of this software and associated documentation ;; files (the “Software”), to deal in the Software without ;; restriction, including without limitation the rights to use, ;; copy, modify, merge, publish, distribute, sublicense, and/or ;; sell copies of the Software, and to permit persons to whom the ;; Software is furnished to do so, subject to the following ;; conditions: ;; ;; ;; The above copyright notice and this permission notice shall be ;; included in all copies or substantial portions of the Software. ;; ;; ;; Except as contained in this notice, the names of individuals ;; credited with contribution to this software shall not be used in ;; advertising or otherwise to promote the sale, use or other ;; dealings in this Software without prior written authorization ;; from the individuals in question. ;; ;; ;; Any stylesheet derived from this Software that is publically ;; distributed will be identified with a different name and the ;; version strings in any derived Software will be changed so that ;; no possibility of confusion between the derived package and this ;; Software will exist. ;; ;; ;; ;; ;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES ;; OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ;; NONINFRINGEMENT. IN NO EVENT SHALL NORMAN WALSH OR ANY OTHER ;; CONTRIBUTOR BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, ;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING ;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR ;; OTHER DEALINGS IN THE SOFTWARE. ;; ;; ;; ;; Please direct all questions, bug reports, or suggestions for changes ;; to Norman Walsh, <ndw@nwalsh.com>. ;; ;; ;; See http://nwalsh.com/docbook/dsssl/ for more information. ;; ;; /DOCINFO ]]> ;; === Some additional units ============================================ (define-unit pi (/ 1in 6)) ;pica (define-unit pc (/ 1in 6)) ;pica, another name (define-unit pt (/ 1in 72)) ;point (define-unit px (/ 1in 96)) ;pixel ;; REFERENCE ISO/IEC 10179 (define (node-list-reduce nl proc init) ;; REFENTRY node-list-reduce ;; PURP Implements node-list-reduce as per ISO/IEC 10179:1996 ;; DESC ;; Implements 'node-list-reduce' as per ISO/IEC 10179:1996 ;; /DESC ;; AUTHOR From ISO/IEC 10179:1996 ;; /REFENTRY (if (node-list-empty? nl) init (node-list-reduce (node-list-rest nl) proc (proc init (node-list-first nl))))) (define (node-list-last nl) ;; REFENTRY node-list-last ;; PURP Implements node-list-last as per ISO/IEC 10179:1996 ;; DESC ;; Implements 'node-list-last' as per ISO/IEC 10179:1996 ;; /DESC ;; AUTHOR From ISO/IEC 10179:1996 ;; /REFENTRY (node-list-ref nl (- (node-list-length nl) 1))) (define (node-list-first-element nodelist) ;; REFENTRY node-list-first-element ;; PURP Return the first element node in a node list ;; DESC ;; This function returns the first node in a node list which is ;; an element (as opposed to a PI or anything else that might appear ;; in a node list). ;; /DESC ;; /REFENTRY (let loop ((nl nodelist)) (if (node-list-empty? nl) (empty-node-list) (if (gi (node-list-first nl)) (node-list-first nl) (loop (node-list-rest nl)))))) (define (node-list-last-element nodelist) ;; REFENTRY node-list-last-element ;; PURP Return the last element node in a node list ;; DESC ;; This function returns the last node in a node list which is ;; an element (as opposed to a PI or anything else that might appear ;; in a node list). ;; /DESC ;; /REFENTRY (let loop ((el (empty-node-list)) (nl nodelist)) (if (node-list-empty? nl) el (if (gi (node-list-first nl)) (loop (node-list-first nl) (node-list-rest nl)) (loop el (node-list-rest nl)))))) (define (ipreced nl) ;; REFENTRY ipreced ;; PURP Implements ipreced as per ISO/IEC 10179:1996 ;; DESC ;; Implements 'ipreced' as per ISO/IEC 10179:1996 ;; /DESC ;; AUTHOR From ISO/IEC 10179:1996 ;; /REFENTRY (node-list-map (lambda (snl) (let loop ((prev (empty-node-list)) (rest (siblings snl))) (cond ((node-list-empty? rest) (empty-node-list)) ((node-list=? (node-list-first rest) snl) prev) (else (loop (node-list-first rest) (node-list-rest rest)))))) nl)) (define (ifollow nl) ;; REFENTRY ifollow ;; PURP Implements ifollow as per ISO/IEC 10179:1996 ;; DESC ;; Implements 'ifollow' as per ISO/IEC 10179:1996 ;; /DESC ;; AUTHOR From ISO/IEC 10179:1996 ;; /REFENTRY (node-list-map (lambda (snl) (let loop ((rest (siblings snl))) (cond ((node-list-empty? rest) (empty-node-list)) ((node-list=? (node-list-first rest) snl) (node-list-first (node-list-rest rest))) (else (loop (node-list-rest rest)))))) nl)) (define (siblings snl) ;; REFENTRY siblings ;; PURP Implements siblings as per ISO/IEC 10179:1996 ;; DESC ;; Implements 'siblings' as per ISO/IEC 10179:1996 ;; /DESC ;; AUTHOR From ISO/IEC 10179:1996 ;; /REFENTRY (children (parent snl))) (define (string->list str) ;; REFENTRY string-2-list ;; PURP Converts a string into a list of characters. ;; DESC ;; Implements 'string->list' as per ISO/IEC 10179:1996 ;; (clause 8.5.9.9). ;; /DESC ;; AUTHOR David Megginson ;; EMAIL dmeggins@uottawa.ca ;; /REFENTRY (let loop ((chars '()) (k (- (string-length str) 1))) (if (< k 0) chars (loop (cons (string-ref str k) chars) (- k 1))))) (define (list->string chars) ;; REFENTRY list-2-string ;; PURP Converts a list of characters into a string ;; DESC ;; Implements 'list->string' as per ISO/IEC 10179:1996 ;; (clause 8.5.9.9). ;; /DESC ;; AUTHOR David Megginson ;; EMAIL dmeggins@uottawa.ca ;; /REFENTRY (let loop ((cl chars) (str "")) (if (null? cl) str (loop (cdr cl) (string-append str (string (car cl))))))) ;; ====================================================================== (define (map f #!rest xs) ;; REFENTRY map ;; PURP Implements map ;; DESC ;; Implements map ;; /DESC ;; AUTHOR From Mulberry Tech. site (need better attribution) ;; /REFENTRY (let ((map1 (lambda (f xs) ; bootstrap version for unary F (let loop ((xs xs)) (if (null? xs) '() (cons (f (car xs)) (loop (cdr xs)))))))) (cond ((null? xs) '()) ((null? (cdr xs)) (map1 f (car xs))) (else (let loop ((xs xs)) (if (null? (car xs)) '() (cons (apply f (map1 car xs)) (loop (map1 cdr xs))))))))) (define (absolute-child-number #!optional (nd (current-node))) ;; REFENTRY absolute-child-number ;; PURP Returns the absolute child number of the specified node ;; DESC ;; Returns the child number, regardless of gi, of 'snl' within its ;; parent. ;; ;; Isn't there a better way to get this? ;; ARGS ;; ARG snl ;; The node (singleton node list) whose child number is desired. ;; /ARG ;; /ARGS ;; /DESC ;; /REFENTRY (+ (node-list-length (preced nd)) 1)) ;; REFERENCE Debug (define (my-debug x #!optional return-value) ;; REFENTRY my-debug ;; PURP A debugging function more helpful than (debug) ;; DESC ;; A version of debug that tries to print information more helpful ;; than "unknown object ...". Will need extending for any further ;; types added to Jade which don't have useful print methods. ;; (Should yield more information extracted from each type.) ;; ARGS ;; ARG x ;; The object about which debugging information is desired. ;; /ARG ;; /ARGS ;; /DESC ;; AUTHOR Tony Graham ;; /REFENTRY (let ((msg (debug (cond ((node-list? x) (if (node-list-empty? x) (list 'empty-node-list x) (list (if (named-node-list? x) 'named-node-list 'node-list) (node-list-length x) x))) ((sosofo? x) (list 'sosofo x)) ((procedure? x) (list 'procedure x)) ((style? x) (list 'style x)) ((address? x) (list 'address x)) ((color? x) (list 'color x)) ((color-space? x) (list 'color-space x)) ((display-space? x) (list 'display-space x)) ((inline-space? x) (list 'inline-space x)) ((glyph-id? x) (list 'glyph-id x)) ((glyph-subst-table? x) (list 'glyph-subst-table x)) (else x))))) return-value)) ;; REFERENCE Miscellaneous (define (string-with-space string #!optional (space " ")) ;; REFENTRY string-with-space ;; PURP Returns string with a space appended or the empty string ;; DESC ;; If 'string' is not the empty string, returns 'string' with a ;; 'space' appended. If 'string' is empty, or is not a '(string?)', ;; returns 'string' unmodified. ;; ARGS ;; ARG 'string' ;; The string onto which a space should be appended. ;; /ARG ;; ARG 'space' o ;; If specified, the space to append. Defaults to a single space. ;; /ARG ;; /ARGS ;; /DESC ;; /REFENTRY (if (string? string) (if (equal? string "") string (string-append string space)) string)) ;; ====================================================================== (define (split str #!optional (whitespace '(#\space))) ;; REFENTRY split ;; PURP Splits string at whitespace and returns the resulting list of tokens ;; DESC ;; Given a string containing delimited tokens, return a list ;; of the tokens in string form. ;; ARGS ;; ARG 'str' ;; The string to split. ;; /ARG ;; ARG 'whitespace' o ;; A list of characters that should ;; be treated as whitespace. ;; /ARG ;; /ARGS ;; /DESC ;; AUTHOR David Megginson ;; EMAIL dmeggins@uottawa.ca ;; /REFENTRY (let loop ((characters (string->list str)) ; Top-level recursive loop. (current-word '()) (tokens '())) ; If there are no characters left, ; then we're done! (cond ((null? characters) ; Is there a token in progress? (if (null? current-word) (reverse tokens) (reverse (cons (list->string (reverse current-word)) tokens)))) ; If there are characters left, ; then keep going. (#t (let ((c (car characters)) (rest (cdr characters))) ; Are we reading a space? (cond ((member c whitespace) (if (null? current-word) (loop rest '() tokens) (loop rest '() (cons (list->string (reverse current-word)) tokens)))) ; We are reading a non-space (#t (loop rest (cons c current-word) tokens)))))))) ;; ====================================================================== (define (strip str #!optional (stripchars '(#\space #\&#RE #\U-0009))) ;; REFENTRY strip ;; PURP Strip leading and trailing characters off of a string ;; DESC ;; Strips leading and trailing characters in the 'stripchars' list ;; off of a string and returns the stripped string. ;; ARGS ;; ARG 'str' ;; The string to strip ;; /ARG ;; ARG 'stripchars' o ;; A list of characters that should ;; be stripped. ;; /ARG ;; /ARGS ;; /DESC ;; /REFENTRY (let* ((startpos (let loop ((count 0)) (if (>= count (string-length str)) (string-length str) (if (member (string-ref str count) stripchars) (loop (+ count 1)) count)))) (tailstr (substring str startpos (string-length str))) (endpos (let loop ((count (- (string-length tailstr) 1))) (if (< count 1) 0 (if (member (string-ref tailstr count) stripchars) (loop (- count 1)) count))))) (if (or (< endpos 0) (string=? tailstr "")) "" (substring tailstr 0 (+ endpos 1))))) ;; ====================================================================== (define (join slist #!optional (space " ")) ;; REFENTRY join ;; PURP Joins a list of strings together ;; DESC ;; Given a list of strings and a space string, returns the string ;; that results from joining all the strings in the list together, ;; separated by space. ;; ARGS ;; ARG 'slist' ;; The list of strings. ;; /ARG ;; ARG 'space' o ;; The string to place between each member of the list. Defaults to ;; a single space. ;; /ARG ;; /ARGS ;; /DESC ;; AUTHOR David Carlisle ;; /REFENTRY (letrec ((loop (lambda (l result) (if (null? l) result (loop (cdr l) (cons space (cons (car l) result))))))) (if (null? slist) "" (apply string-append (cons (car slist) (loop (reverse (cdr slist)) '() )))))) ;; ====================================================================== (define (pad-string string length padchar) ;; REFENTRY pad-string ;; PURP Pads a string, in front, to the specified length ;; DESC ;; Returns 'string', padded in front with 'padchar' to at least 'length' ;; Returns 'string' unmodified if 'string' is not a '(string?)', ;; 'padchar' is not a '(string?)', 'padchar' is the empty string, or if ;; 'string' is already greater than or equal to 'length' in length. ;; ARGS ;; ARG 'string' ;; The string to pad. ;; /ARG ;; ARG 'length' ;; The desired length. ;; /ARG ;; ARG 'padchar' ;; The character (string, actually) to use as padding. If 'padchar' is ;; longer than 1 character, the resulting string may be longer than ;; 'length' when returned. ;; /ARG ;; /ARGS ;; /DESC ;; /REFENTRY (if (and (string? string) (string? padchar) (> (string-length padchar) 0)) (let loop ((s string) (count (- length (string-length string)))) (if (<= count 0) s (loop (string-append padchar s) (- count (string-length padchar))))) string)) ;; ====================================================================== (define (match-split string target) ;; REFENTRY match-split ;; PURP Splits string at target and returns the resulting list of tokens ;; DESC ;; Splits string at every occurance of target and returns the result ;; as a list. Note that 'match-split' returns the occurances of 'target' ;; in the list of tokens. ;; ARGS ;; ARG 'string' ;; The string to split. ;; /ARG ;; ARG 'target' ;; The string which is a delimiter between tokens ;; /ARG ;; /ARGS ;; /DESC ;; EXAMPLE ;; '"this is a test"' split at '"is"' returns ;; '("th" "is" " " "is" " a test")' ;; /EXAMPLE ;; /REFENTRY (if (string? string) (let loop ((result '()) (current "") (rest string)) (if (< (string-length rest) (string-length target)) (append result (if (equal? (string-append current rest) "") '() (list (string-append current rest)))) (if (equal? target (substring rest 0 (string-length target))) (loop (append result (if (equal? current "") '() (list current)) (list target)) "" (substring rest (string-length target) (string-length rest))) (loop result (string-append current (substring rest 0 1)) (substring rest 1 (string-length rest)))))) (list string))) (define (match-split-string-list string-list target) ;; REFENTRY match-split-string-list ;; PURP Splits each string in a list of strings and returns the concatenated result list ;; DESC ;; Splits each string in 'string-list' at 'target' with '(match-split)', ;; concatenates the results, and returns a single list of tokens. ;; ARGS ;; ARG string-list ;; The list of strings to split. ;; /ARG ;; ARG target ;; The string which is a delimiter between tokens. ;; /ARG ;; /ARGS ;; /DESC ;; /REFENTRY (let loop ((result '()) (sl string-list)) (if (null? sl) result (loop (append result (match-split (car sl) target)) (cdr sl))))) (define (match-split-list string target-list) ;; REFENTRY match-split-list ;; PURP Splits a string at a list of targets and returns the resulting list of tokens ;; DESC ;; Splits 'string' at every target in 'target-list' with '(match-split)', ;; returning the whole collection of tokens as a list. ;; ARGS ;; ARG string ;; The string to split. ;; /ARG ;; ARG target-list ;; A list of target strings which are the delimters between tokens. ;; /ARG ;; /ARGS ;; /DESC ;; /REFENTRY (let loop ((result (list string)) (tlist target-list)) (if (null? tlist) result (loop (match-split-string-list result (car tlist)) (cdr tlist))))) ;; ====================================================================== (define (assoc-objs alist) ;; REFENTRY assoc-objs ;; PURP Returns a list of the objects in an associative list ;; DESC ;; Returns a list of the objects in an associative list. ;; ARGS ;; ARG alist ;; The associative list. An associative list is a list of lists ;; where each interior list is a pair of elements. ;; /ARG ;; /ARGS ;; /DESC ;; EXAMPLE ;; '(assoc-objs (("a" "b") ("c" "d")))' returns '("a" "c")' ;; /EXAMPLE ;; /REFENTRY (let loop ((result '()) (al alist)) (if (null? al) result (loop (append result (list (car (car al)))) (cdr al))))) (define (assoc obj alist) ;; REFENTRY assoc ;; PURP Returns the association of an object in an associative list ;; DESC ;; Given an associative list, returns the pair that has 'obj' as a 'car' ;; or '#f' if no such pair exists. ;; ARGS ;; ARG obj ;; The associative key to locate. ;; /ARG ;; ARG alist ;; The associative list. ;; /ARG ;; /ARGS ;; /DESC ;; EXAMPLE ;; '(assoc "a" (("a" "b") ("c" "d")))' returns '("a" "b")' ;; /EXAMPLE ;; /REFENTRY (let loop ((al alist)) (if (null? al) #f (if (equal? obj (car (car al))) (car al) (loop (cdr al)))))) (define (match-substitute-sosofo string assoc-list) ;; REFENTRY match-substitute-sosofo ;; PURP Return matching sosofo from associative list ;; DESC ;; Given a string and an associative list of strings and sosofos, ;; return the sosofo of the matching string, or return the literal ;; string as a sosofo. ;; ;; (This function is used for a particular task in the DocBook stylesheets. ;; It may not be particularly general, but it's in 'dblib.dsl' because ;; there is nothing DTD-specific about it.) ;; /DESC ;; /REFENTRY (if (assoc string assoc-list) (car (cdr (assoc string assoc-list))) (literal string))) (define (string-list-sosofo string-list assoc-list) ;; REFENTRY string-list-sosofo ;; PURP Build sosofo from a list of strings and an associative list ;; DESC ;; Take a list of strings and an associative list that maps strings ;; to sosofos and return an appended sosofo. ;; ;; (This function is used for a particular task in the DocBook stylesheets. ;; It may not be particularly general, but it's in 'dblib.dsl' because ;; there is nothing DTD-specific about it.) ;; /DESC ;; EXAMPLE ;; Given the string list '("what is " "1" " " "+" " " "1")' ;; and the associative list ;; '(("1" (literal "one")) ("2" (literal "two")) ("+" (literal "plus")))', ;; '(string-list-sosofo)' returns the sequence of sosofos ;; equivalent to '(literal "what is one plus one")'. ;; /EXAMPLE ;; /REFENTRY (if (null? string-list) (empty-sosofo) (sosofo-append (match-substitute-sosofo (car string-list) assoc-list) (string-list-sosofo (cdr string-list) assoc-list)))) ;; ====================================================================== (define (repl-substring? string target pos) ;; REFENTRY repl-substring-p ;; PURP Returns true if the specified substring can be replaced ;; DESC ;; Returns '#t' if 'target' occurs at 'pos' in 'string'. ;; /DESC ;; /REFENTRY (let* ((could-match (<= (+ pos (string-length target)) (string-length string))) (match (if could-match (substring string pos (+ pos (string-length target))) ""))) (and could-match (string=? match target)))) (define (repl-substring string target repl pos) ;; REFENTRY repl-substring ;; PURP Replace substring in a string ;; DESC ;; Replaces 'target' with 'repl' in 'string' at 'pos'. ;; /DESC ;; /REFENTRY (let ((matches (repl-substring? string target pos))) (if matches (string-append (substring string 0 pos) repl (substring string (+ pos (string-length target)) (string-length string))) string))) (define (repl-substring-list? string replace-list pos) ;; REFENTRY repl-substring-list-p ;; PURP Perform repl-substring? with a list of target/replacement pairs ;; DESC ;; Returns '#t' if any target in 'replace-list' occurs at 'pos' in 'string'. ;; ARGS ;; ARG 'string' ;; The string in which replacement should be tested. ;; /ARG ;; ARG 'replace-list' ;; A list of target/replacement pairs. This list is just a list of ;; strings, treated as pairs. For example, '("was" "x" "is" "y")'. ;; In this example, 'was' may be replaced by 'x' and 'is' may be ;; replaced by 'y'. ;; /ARG ;; ARG 'pos' ;; The location within 'string' where the test will occur. ;; /ARG ;; /ARGS ;; /DESC ;; EXAMPLE ;; '(repl-substring-list? "this is it" ("was" "x" "is" "y") 2)' ;; returns '#t': "is" could be replaced by "y". ;; /EXAMPLE ;; /REFENTRY (let loop ((list replace-list)) (let ((target (car list)) (repl (car (cdr list))) (rest (cdr (cdr list)))) (if (repl-substring? string target pos) #t (if (null? rest) #f (loop rest)))))) (define (repl-substring-list-target string replace-list pos) ;; REFENTRY repl-substring-list-target ;; PURP Return the target that matches in a string ;; DESC ;; Returns the target in 'replace-list' that matches in 'string' at 'pos' ;; See also 'repl-substring-list?'. ;; /DESC ;; /REFENTRY (let loop ((list replace-list)) (let ((target (car list)) (repl (car (cdr list))) (rest (cdr (cdr list)))) (if (repl-substring? string target pos) target (if (null? rest) #f (loop rest)))))) (define (repl-substring-list-repl string replace-list pos) ;; REFENTRY repl-substring-list-repl ;; PURP Return the replacement that would be used in the string ;; DESC ;; Returns the replacement in 'replace-list' that would be used for the ;; target that matches in 'string' at 'pos' ;; See also 'repl-substring-list?'. ;; /DESC ;; /REFENTRY (let loop ((list replace-list)) (let ((target (car list)) (repl (car (cdr list))) (rest (cdr (cdr list)))) (if (repl-substring? string target pos) repl (if (null? rest) #f (loop rest)))))) (define (repl-substring-list string replace-list pos) ;; REFENTRY repl-substring-list ;; PURP Replace the first target in the replacement list that matches ;; DESC ;; Replaces the first target in 'replace-list' that matches in 'string' ;; at 'pos' with its replacement. ;; See also 'repl-substring-list?'. ;; /DESC ;; /REFENTRY (if (repl-substring-list? string replace-list pos) (let ((target (repl-substring-list-target string replace-list pos)) (repl (repl-substring-list-repl string replace-list pos))) (repl-substring string target repl pos)) string)) (define (string-replace string target repl) ;; REFENTRY string-replace ;; PURP Replace all occurances of a target substring in a string ;; DESC ;; Replaces all occurances of 'target' in 'string' with 'repl'. ;; /DESC ;; /REFENTRY (let loop ((str string) (pos 0)) (if (>= pos (string-length str)) str (loop (repl-substring str target repl pos) (if (repl-substring? str target pos) (+ (string-length repl) pos) (+ 1 pos)))))) (define (string-replace-list string replace-list) ;; REFENTRY string-replace-list ;; PURP Replace a list of target substrings in a string ;; DESC ;; Replaces, in 'string', all occurances of each target in ;; 'replace-list' with its replacement. ;; /DESC ;; /REFENTRY (let loop ((str string) (pos 0)) (if (>= pos (string-length str)) str (loop (repl-substring-list str replace-list pos) (if (repl-substring-list? str replace-list pos) (+ (string-length (repl-substring-list-repl str replace-list pos)) pos) (+ 1 pos)))))) ;; ====================================================================== (define (ancestor-member nd gilist) ;; REFENTRY ancestor-member ;; PURP Returns the first ancestor in a list of GIs ;; DESC ;; Returns the first ancestor of 'nd' whose GI is a member of 'gilist'. ;; /DESC ;; /REFENTRY (if (node-list-empty? nd) (empty-node-list) (if (member (gi nd) gilist) nd (ancestor-member (parent nd) gilist)))) (define (has-ancestor-member? nd gilist) ;; REFENTRY has-ancestor-member-p ;; PURP Returns true if the specified node has one of a set of GIs as an ancestor ;; DESC ;; Returns '#t' if 'nd' has an ancestor whose GI is a member of 'gilist'. ;; /DESC ;; /REFENTRY (not (node-list-empty? (ancestor-member nd gilist)))) ;; ====================================================================== (define (descendant-of? ancestor child) ;; REFENTRY descendant-of-p ;; PURP Returns true if the child is some descendant of the specified node ;; DESC ;; Returns '#t' if 'child' is a descendant of 'ancestor'. ;; /DESC ;; /REFENTRY (let loop ((c child)) (if (node-list-empty? c) #f (if (node-list=? ancestor c) #t (loop (parent c)))))) ;; ====================================================================== (define (expand-children nodelist gilist) ;; REFENTRY expand-children ;; PURP Expand selected nodes in a node list ;; DESC ;; Given a node-list, 'expand-children' replaces all of the members ;; of the node-list whose GIs are members of 'gilist' with ;; '(children)'. ;; ;; This function can be used to selectively ;; flatten the hierarchy of a document. ;; /DESC ;; EXAMPLE ;; Suppose that the node list is '(BOOKINFO PREFACE PART APPENDIX)'. ;; '(expand-children nl ("PART"))' might return ;; '(BOOKINFO PREFACE CHAPTER CHAPTER APPENDIX)'. ;; /EXAMPLE ;; /REFENTRY (let loop ((nl nodelist) (result (empty-node-list))) (if (node-list-empty? nl) result (if (member (gi (node-list-first nl)) gilist) (loop (node-list-rest nl) (node-list result (children (node-list-first nl)))) (loop (node-list-rest nl) (node-list result (node-list-first nl))))))) ;; ====================================================================== (define (directory-depth pathname) ;; REFENTRY directory-depth ;; PURP Count the directory depth of a path name ;; DESC ;; Returns the number of directory levels in 'pathname' ;; ;; The pathname must end in a filename. ;; Further, this function assumes that directories in a pathname are ;; separated by forward slashes ("/"). ;; /DESC ;; EXAMPLE ;; "filename" => 0, ;; "foo/filename" => 1, ;; "foo/bar/filename => 2, ;; "foo/bar/../filename => 1. ;; /EXAMPLE ;; /REFENTRY (let loop ((count 0) (pathlist (match-split pathname "/"))) (if (null? pathlist) (- count 1) ;; pathname should always end in a filename (if (or (equal? (car pathlist) "/") (equal? (car pathlist) ".")) (loop count (cdr pathlist)) (if (equal? (car pathlist) "..") (loop (- count 1) (cdr pathlist)) (loop (+ count 1) (cdr pathlist))))))) (define (file-extension filespec) ;; REFENTRY file-extension ;; PURP Return the extension of a filename ;; DESC ;; Returns the extension of a filename. The extension is the last ;; "."-delimited part of the name. Returns "" if there is no period ;; in the filename. ;; /DESC ;; /REFENTRY (if (string? filespec) (let* ((pathparts (match-split filespec "/")) (filename (list-ref pathparts (- (length pathparts) 1))) (fileparts (match-split filename ".")) (extension (list-ref fileparts (- (length fileparts) 1)))) (if (> (length fileparts) 1) extension "")) "")) ;; ====================================================================== (define (copy-string string num) ;; REFENTRY copy-string ;; PURP Return a string duplicated a specified number of times ;; DESC ;; Copies 'string' 'num' times and returns the result. ;; /DESC ;; EXAMPLE ;; (copy-string "x" 3) returns "xxx" ;; /EXAMPLE ;; /REFENTRY (if (<= num 0) "" (let loop ((str string) (count (- num 1))) (if (<= count 0) str (loop (string-append str string) (- count 1)))))) ;; ====================================================================== (define (node-list-filter-by-gi nodelist gilist) ;; REFENTRY node-list-filter-by-gi ;; PURP Returns selected elements from a node list ;; DESC ;; Returns a node list containing all the nodes from 'nodelist' whose ;; GIs are members of 'gilist'. The order of nodes in the node list ;; is preserved. ;; /DESC ;; /REFENTRY (let loop ((result (empty-node-list)) (nl nodelist)) (if (node-list-empty? nl) result (if (member (gi (node-list-first nl)) gilist) (loop (node-list result (node-list-first nl)) (node-list-rest nl)) (loop result (node-list-rest nl)))))) ;; ====================================================================== (define (node-list-filter-by-not-gi nodelist gilist) ;; REFENTRY node-list-filter-by-not-gi ;; PURP Returns selected elements from a node list ;; DESC ;; Returns a node list containing all the nodes from 'nodelist' whose ;; GIs are NOT members of 'gilist'. The order of nodes in the node list ;; is preserved. ;; /DESC ;; /REFENTRY (let loop ((result (empty-node-list)) (nl nodelist)) (if (node-list-empty? nl) result (if (member (gi (node-list-first nl)) gilist) (loop result (node-list-rest nl)) (loop (node-list result (node-list-first nl)) (node-list-rest nl)))))) ;; ====================================================================== (define (node-list-filter-out-pis nodelist) ;; REFENTRY node-list-filter-out-pis ;; PURP Returns the nodelist with all PIs removed ;; DESC ;; Returns a node list containing all the nodes from 'nodelist' that ;; are not PIs. The order of nodes in the node list is preserved. ;; /DESC ;; /REFENTRY (let loop ((result (empty-node-list)) (nl nodelist)) (if (node-list-empty? nl) result (if (equal? (node-property 'class-name (node-list-first nl)) 'pi) (loop result (node-list-rest nl)) (loop (node-list result (node-list-first nl)) (node-list-rest nl)))))) ;; ====================================================================== (define (node-list-filter-elements nodelist) ;; REFENTRY node-list-filter-elements ;; PURP Returns the elements in 'nodelist' ;; DESC ;; Returns the elements in 'nodelist' ;; /DESC ;; /REFENTRY (let loop ((result (empty-node-list)) (nl nodelist)) (if (node-list-empty? nl) result (if (equal? (node-property 'class-name (node-list-first nl)) 'element) (loop (node-list result (node-list-first nl)) (node-list-rest nl)) (loop result (node-list-rest nl)))))) ;; ====================================================================== (define (component-descendant-node-list inputnd complist) ;; REFENTRY component-descendant-node-list ;; PURP Find all 'inputnd's within an ancestor element ;; DESC ;; Finds the first ancestor of 'inputnd' in 'complist' and then returns ;; a node list of all the 'inputnd's within (that are descendants of) ;; that ancestor. ;; /DESC ;; /REFENTRY (let ((nd (ancestor-member inputnd complist))) (select-elements (descendants nd) (gi inputnd)))) (define (component-child-number inputnd complist) ;; REFENTRY component-child-number ;; PURP Find child-number within a component ;; DESC ;; Finds the first ancestor of 'inputnd' in 'complist' and then counts ;; all the elements of type 'inputnd' from that point on and returns ;; the number of 'inputnd'. (This is like a 'recursive-child-number' ;; starting at the first parent of 'inputnd' in 'complist'.) ;; /DESC ;; /REFENTRY (let loop ((nl (component-descendant-node-list inputnd complist)) (num 1)) (if (node-list-empty? nl) 0 (if (node-list=? (node-list-first nl) inputnd) num (if (string=? (gi (node-list-first nl)) (gi inputnd)) (loop (node-list-rest nl) (+ num 1)) (loop (node-list-rest nl) num)))))) (define (component-list-descendant-node-list inputnd inputlist complist) ;; REFENTRY component-descendant-list-node-list ;; PURP Find all elements of a list of elements in a component ;; DESC ;; Finds the first ancestor of 'inputnd' in 'complist' and ;; then returns a list of all the elements in 'inputlist' ;; within that component. ;; ;; WARNING: this requires walking over *all* the descendants ;; of the ancestor node. This may be *slow*. ;; /DESC ;; /REFENTRY (let ((nd (ancestor-member inputnd complist))) (let loop ((nl (descendants nd)) (result (empty-node-list))) (if (node-list-empty? nl) result (if (member (gi (node-list-first nl)) inputlist) (loop (node-list-rest nl) (node-list result (node-list-first nl))) (loop (node-list-rest nl) result)))))) (define (component-list-child-number inputnd inputlist complist) ;; REFENTRY component-list-child-number ;; PURP Find child-number of a list of children within a component ;; DESC ;; Finds the first ancestor of 'inputnd' in 'complist' and ;; then counts all the elements of the types in 'inputlist' ;; from that point on and returns the number of 'inputnd'. ;; ;; If the node is not found, 0 is returned. ;; ;; WARNING: this requires walking over *all* the descendants ;; of the ancestor node. This may be *slow*. ;; /DESC ;; /REFENTRY (let loop ((nl (component-list-descendant-node-list inputnd inputlist complist)) (num 1)) (if (node-list-empty? nl) 0 (if (node-list=? (node-list-first nl) inputnd) num (loop (node-list-rest nl) (+ num 1)))))) ;; ====================================================================== (define (expt b n) ;; REFENTRY expt ;; PURP Exponentiation ;; DESC ;; Returns 'b' raised to the 'n'th power for integer 'n' >= 0. ;; /DESC ;; /REFENTRY ;; (if (<= n 0) 1 (* b (expt b (- n 1))))) ;; ====================================================================== (define (list-member-find element elementlist) ;; REFENTRY list-member-find ;; PURP Returns the index of an element in a list ;; DESC ;; Returns the index of 'element' in the list 'elementlist'. The ;; first element in a list has index 0. ;; /DESC ;; /REFENTRY (let loop ((elemlist elementlist) (count 0)) (if (null? elemlist) -1 (if (equal? element (car elemlist)) count (loop (cdr elemlist) (+ count 1)))))) ;; ====================================================================== (define default-uppercase-list ;; REFENTRY ;; PURP The default list of uppercase characters ;; DESC ;; The default list of uppercase characters. The order and sequence ;; of characters ;; in this list must match the order and sequence in ;; 'default-lowercase-list'. ;; /DESC ;; /REFENTRY '(#\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z)) (define default-lowercase-list ;; REFENTRY ;; PURP The default list of lowercase characters ;; DESC ;; The default list of lowercase characters. The order and sequence ;; of characters ;; in this list must match the order and sequence in ;; 'default-uppercase-list'. ;; /DESC ;; /REFENTRY '(#\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z)) (define (case-fold-down-char ch #!optional (uc-list default-uppercase-list) (lc-list default-lowercase-list)) ;; REFENTRY ;; PURP Return the lowercase form of a single character ;; DESC ;; Returns the lowercase form of 'ch' if 'ch' is a member of ;; the uppercase list, otherwise return 'ch'. ;; ;; The implied mapping from uppercase to lowercase in the two lists is ;; one-to-one. The first element of the uppercase list is the uppercase ;; form of the first element of the lowercase list, and vice versa. ;; ARGS ;; ARG 'ch' ;; The character to fold down. ;; /ARG ;; ARG 'uc-list' o ;; The list of uppercase letters. The default is the list of English ;; uppercase letters. ;; /ARG ;; ARG 'lc-list' o ;; The list of lowercase letters. The default is the list of English ;; lowercase letters. ;; /ARG ;; /ARGS ;; /DESC ;; /REFENTRY (let ((idx (list-member-find ch uc-list))) (if (>= idx 0) (list-ref lc-list idx) ch))) (define (case-fold-up-char ch #!optional (uc-list default-uppercase-list) (lc-list default-lowercase-list)) ;; REFENTRY ;; PURP Return the uppercase form of a single character ;; DESC ;; Returns the uppercase form of 'ch' if 'ch' is a member of ;; 'lowercase-list', otherwise return 'ch'. ;; ;; The implied mapping from uppercase to lowercase in the two lists is ;; one-to-one. The first element of the uppercase list is the uppercase ;; form of the first element of the lowercase list, and vice versa. ;; ARGS ;; ARG 'ch' ;; The character to fold down. ;; /ARG ;; ARG 'uc-list' o ;; The list of uppercase letters. The default is the list of English ;; uppercase letters. ;; /ARG ;; ARG 'lc-list' o ;; The list of lowercase letters. The default is the list of English ;; lowercase letters. ;; /ARG ;; /ARGS ;; /DESC ;; /REFENTRY (let ((idx (list-member-find ch lc-list))) (if (>= idx 0) (list-ref uc-list idx) ch))) (define (case-fold-down-charlist charlist) ;; REFENTRY case-fold-down-charlist ;; PURP Return the list of characters, shifted to lowercase ;; DESC ;; Shifts all of the characters in 'charlist' to lowercase with ;; 'case-fold-down-char'. ;; /DESC ;; /REFENTRY (if (null? charlist) '() (cons (case-fold-down-char (car charlist)) (case-fold-down-charlist (cdr charlist))))) (define (case-fold-up-charlist charlist) ;; REFENTRY case-fold-up-charlist ;; PURP Return the list of characters, shifted to uppercase ;; DESC ;; Shifts all of the characters in 'charlist' to uppercase with ;; 'case-fold-up-char'. ;; /DESC ;; /REFENTRY (if (null? charlist) '() (cons (case-fold-up-char (car charlist)) (case-fold-up-charlist (cdr charlist))))) (define (case-fold-down str) ;; REFENTRY case-fold-down ;; PURP Shift a string to lowercase ;; DESC ;; Returns 'str' in lowercase. ;; /REFENTRY (if (string? str) (apply string (case-fold-down-charlist (string->list str))) str)) (define (case-fold-up str) ;; REFENTRY case-fold-up ;; PURP Shift a string to uppercase ;; DESC ;; Returns 'str' in uppercase. ;; /REFENTRY (if (string? str) (apply string (case-fold-up-charlist (string->list str))) str)) ;; ====================================================================== (define (find-first-char string skipchars findchars #!optional (pos 0)) ;; REFENTRY find-first-char ;; PURP Find the first occurance of a character in a string ;; DESC ;; Finds first character in 'string' that is in 'findchars', skipping all ;; occurances of characters in 'skipchars'. Search begins at 'pos'. If ;; no such characters are found, returns -1. ;; ;; If skipchars is empty, skip anything not in findchars ;; If skipchars is #f, skip nothing ;; If findchars is empty, the first character not in skipchars is matched ;; It is an error if findchars is not a string. ;; It is an error if findchars is empty and skipchars is not a non-empty ;; string. ;; /DESC ;; /REFENTRY (let ((skiplist (if (string? skipchars) (string->list skipchars) '())) (findlist (string->list findchars))) (if (and (null? skiplist) (null? findlist)) ;; this is an error -2 (if (or (>= pos (string-length string)) (< pos 0)) -1 (let ((ch (string-ref string pos))) (if (null? skiplist) ;; try to find first (if (member ch findlist) pos (if (string? skipchars) (find-first-char string skipchars findchars (+ 1 pos)) -1)) ;; try to skip first (if (member ch skiplist) (find-first-char string skipchars findchars (+ 1 pos)) (if (or (member ch findlist) (null? findlist)) pos -1)))))))) ;; ====================================================================== (define (parse-measurement measure) ;; REFENTRY parse-measurement ;; PURP Parse a string containing a measurement and return the magnitude and units ;; DESC ;; Parse a string containing a measurement, e.g., '"3pi"' or '"2.5in"', ;; and return the magnitude and units: '(3 "pi")' or '(2.5 "in")'. ;; ;; Either element of the list may be '#f' if the string cannot reasonably ;; be parsed as a measurement. Leading and trailing spaces are ignored. ;; /DESC ;; /REFENTRY (let* ((magstart (find-first-char measure " " "0123456789.")) (unitstart (find-first-char measure " 0123456789." "")) (unitend (find-first-char measure "" " " unitstart)) (magnitude (if (< magstart 0) #f (if (< unitstart 0) (substring measure magstart (string-length measure)) (substring measure magstart unitstart)))) (unit (if (< unitstart 0) #f (if (< unitend 0) (substring measure unitstart (string-length measure)) (substring measure unitstart unitend))))) (list magnitude unit))) (define unit-conversion-alist ;; REFENTRY ;; PURP Defines the base length of specific unit names ;; DESC ;; This list identifies the length of each unit. ;; /DESC ;; /REFENTRY (list '("default" 1pi) '("mm" 1mm) '("cm" 1cm) '("in" 1in) '("pi" 1pi) '("pc" 1pi) '("pt" 1pt) '("px" 1px) '("barleycorn" 2pi))) (define (measurement-to-length measure) ;; REFENTRY measurement-to-length ;; PURP Convert a measurement to a length ;; DESC ;; Given a string containing a measurement, return that measurement ;; as a length. ;; /DESC ;; EXAMPLES ;; '"2.5cm"' returns 2.5cm as a length. '"3.4barleycorn"' returns ;; 6.8pi. ;; /EXAMPLES ;; /REFENTRY (let* ((pm (car (parse-measurement measure))) (pu (car (cdr (parse-measurement measure)))) (magnitude (if pm pm "1")) (units (if pu pu (if pm "pt" "default"))) (unitconv (assoc units unit-conversion-alist)) (factor (if unitconv (car (cdr unitconv)) 1pt))) (* (string->number magnitude) factor))) ;; ====================================================================== (define (dingbat usrname) ;; REFENTRY dingbat ;; PURP Map dingbat names to Unicode characters ;; DESC ;; Map a dingbat name to the appropriate Unicode character. ;; /DESC ;; /REFENTRY ;; Print dingbats and other characters selected by name (let ((name (case-fold-down usrname))) (case name ;; For backward compatibility (("box") "\white-square;") (("checkbox") "\white-square;") ;; \check-mark prints the wrong symbol (in Jade 0.8 RTF backend) (("check") "\heavy-check-mark;") (("checkedbox") "\ballot-box-with-check;") (("dash") "\em-dash;") (("copyright") "\copyright-sign") ;; Straight out of Unicode (("raquo") "\U-00BB;") (("laquo") "\U-00AB;") (("rsaquo") "\U-203A;") (("lsaquo") "\U-2039;") (("lsquo") "\U-2018;") (("rsquo") "\U-2019;") (("ldquo") "\U-201C;") (("rdquo") "\U-201D;") (("ldquor") "\U-201E;") (("rdquor") "\U-201D;") (("en-dash") "\en-dash;") (("em-dash") "\em-dash;") (("en-space") "\U-2002;") (("em-space") "\U-2003;") (("bullet") "\bullet;") (("black-square") "\black-square;") (("white-square") "\white-square;") ;; \ballot-box name doesn't work (in Jade 0.8 RTF backend) ;; and \white-square looks better than \U-2610; anyway (("ballot-box") "\white-square;") (("ballot-box-with-check") "\ballot-box-with-check;") (("ballot-box-with-x") "\ballot-box-with-x;") ;; \check-mark prints the wrong symbol (in Jade 0.8 RTF backend) (("check-mark") "\heavy-check-mark;") ;; \ballot-x prints out the wrong symbol (in Jade 0.8 RTF backend) (("ballot-x") "\heavy-check-mark;") (("copyright-sign") "\copyright-sign;") (("registered-sign") "\registered-sign;") (else "\bullet;")))) ;; ====================================================================== (define (nth-node nl k) ;; REFENTRY nth-node ;; PURP Return a specific node in a node list (by numeric index) ;; DESC ;; Returns the 'k'th node in 'nl'. The first node in the node list ;; has the index "1". ;; /DESC ;; /REFENTRY (if (equal? k 1) (node-list-first nl) (nth-node (node-list-rest nl) (- k 1)))) ;; ====================================================================== (define (constant-list value length) ;; REFENTRY constant-list ;; PURP Returns a list of the specified value ;; DESC ;; Return a list containing 'length' elements, each of 'value'. ;; /DESC ;; AUTHOR David Carlisle ;; EXAMPLE ;; '(constant-list 0 4)' returns '(0 0 0 0)' ;; /EXAMPLE ;; /REFENTRY (let loop ((count (abs length)) (result '())) (if (equal? count 0) result (loop (- count 1) (cons value result))))) (define (list-head inputlist k) ;; REFENTRY list-head ;; PURP Return the head of a list ;; DESC ;; Returns the list that contains the first 'k' elements of 'inputlist'. ;; /DESC ;; EXAMPLE ;; '(list-head (1 2 3 4) 2)' returns '(1 2)'. ;; /EXAMPLE ;; /REFENTRY (let loop ((l inputlist) (count k) (result '())) (if (<= count 0) result (loop (cdr l) (- count 1) (append result (list (car l))))))) (define (list-put vlist ordinal value #!optional (span 1)) ;; REFENTRY list-put ;; PURP Replace a specific member of a list ;; DESC ;; Replaces the 'ordinal'th value of 'vlist' with 'value'. If 'span' > 1, ;; replaces 'ordinal' to 'ordinal+span-1' values starting at 'ordinal'. ;; /DESC ;; EXAMPLE ;; '(list-put (1 2 3 4 5) 2 0 2)' returns '(1 0 0 4 5)'. ;; /EXAMPLE ;; /REFENTRY (let loop ((result vlist) (count span) (k ordinal)) (if (equal? count 0) result (let ((head (list-head result (- k 1))) (tail (list-tail result k))) (loop (append head (list value) tail) (- count 1) (+ k 1)))))) (define (decrement-list-members vlist #!optional (decr 1) (floor 0)) ;; REFENTRY decrement-list-members ;; PURP Decrement each member of a list ;; DESC ;; Decrement all the values of a list by 'decr', not to fall below 'floor'. ;; ARGS ;; ARG 'vlist' ;; The list of values. All the values of this list should be numeric. ;; /ARG ;; ARG 'decr' o ;; The amount by which each element of the list should be decremented. ;; The default is 1. ;; /ARG ;; ARG 'floor' o ;; The value below which each member of the list is not allowed to fall. ;; The default is 0. ;; /ARG ;; /ARGS ;; /DESC ;; AUTHOR David Carlisle ;; EXAMPLE ;; '(decrement-list-members (0 1 2 3 4 5))' => '(0 0 1 2 3 4)'. ;; /EXAMPLE ;; /REFENTRY (map (lambda (a) (if (<= a (+ decr floor)) floor (- a decr))) vlist)) ;; ====================================================================== (define (sgml-root-element #!optional (grove-node (current-node))) ;; REFENTRY ;; PURP Returns the node that is the root element of the current document ;; DESC ;; Returns the node that is the root element of the current document ;; /DESC ;; /REFENTRY (node-property 'document-element (node-property 'grove-root grove-node))) (define (sgml-root-element? node) ;; REFENTRY ;; PURP Test if a node is the root element ;; DESC ;; Returns '#t' if node is the root element of the current document. ;; /DESC ;; /REFENTRY (node-list=? node (sgml-root-element node))) ;; ====================================================================== (define (length-string-number-part lenstr) ;; REFENTRY length-string-number-part ;; PURP Returns the numeric part of a length string ;; DESC ;; Given a length as a string, return the numeric part. ;; /DESC ;; EXAMPLE ;; '"100pt"' returns '"100"'. '"30"' returns '"30"'. ;; '"in"' returns '""'. ;; /EXAMPLE ;; /REFENTRY (let ((digits '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9 #\.))) (let loop ((chars (string->list lenstr)) (number-part "")) (if (or (null? chars) (not (member (car chars) digits))) number-part (loop (cdr chars) (string-append number-part (string (car chars)))))))) (define (length-string-unit-part lenstr) ;; REFENTRY length-string-unit-part ;; PURP Returns the unit part of a length string ;; DESC ;; Given a length as a string, return the units part. ;; /DESC ;; EXAMPLE ;; '"100pt"' returns '"pt"'. '"30"' returns '""'. ;; '"in"' returns '"in"'. ;; /EXAMPLE ;; /REFENTRY (let ((number-part (length-string-number-part lenstr)) (strlen (string-length lenstr))) (if (equal? (string-length number-part) strlen) "" (substring lenstr (string-length number-part) strlen)))) ;; ====================================================================== (define (normalize str) ;; REFENTRY normalize ;; PURP Normalize the str according to the SGML declaration in effect ;; DESC ;; Performs SGML general name normalization on the string; ;; used to compare attribute names and generic identifiers correctly ;; according to the SGML declaration in effect; this is necessary ;; since XML is case-sensitive but the reference concrete syntax and ;; many SGML DTDs are not. ;; /DESC ;; AUTHOR Chris Maden ;; /REFENTRY (if (string? str) (general-name-normalize str (current-node)) str)) ;; ====================================================================== (define (node-list->string nodelist) ;; REFENTRY node-2-string ;; PURP Return a string representation of the node list ;; DESC ;; Builds a string representation of the node list and returns it. ;; The representation is ;; ;; "gi(firstchildgi()secondchildgi(firstgrandchildgi())) secondgi()..." ;; ;; This is a debugging function, in case that wasn't obvious... ;; /DESC ;; /REFENTRY (let loop ((nl nodelist) (res "")) (if (node-list-empty? nl) res (loop (node-list-rest nl) (string-append res (if (gi (node-list-first nl)) (string-append (gi (node-list-first nl)) "(" (node-list->string (children (node-list-first nl))) ")") "")))))) ;; ====================================================================== (define (include-file fileref) ;; REFENTRY include-file ;; PURP Return the literal content of fileref ;; DESC ;; Opens and loads fileref with (read-entity); returns the content ;; of fileref as a (literal). Trims the last trailing newline off ;; the file so that "the right thing" happens in asis environments. ;; /DESC ;; /REFENTRY (literal (include-characters fileref))) ;; ====================================================================== (define (include-characters fileref) ;; REFENTRY include-characters ;; PURP Return the character content of fileref ;; DESC ;; Opens and loads fileref with (read-entity); returns the content ;; of fileref as characters. Trims the last trailing newline off ;; the file so that "the right thing" happens in asis environments. ;; /DESC ;; /REFENTRY (let* ((newline #\U-000D) (file-content (read-entity fileref)) (file-length (string-length file-content)) ;; If the last char is a newline, drop it, otherwise print it... (content (if (equal? newline (string-ref file-content (- file-length 1))) (substring file-content 0 (- file-length 1)) file-content))) content)) ;; ====================================================================== (define (url-encode-char ch) ;; REFENTRY url-encode-char ;; PURP Returns the url-encoded equivalent of a character ;; DESC ;; Converts 'ch' to a properly encoded URL character. ;; /DESC ;; /REFENTRY (cond ((char=? ch #\space) "%20") ; space ((char=? ch #\U-0026) "%26") ; ampersand ((char=? ch #\?) "%3F") ; question ((char=? ch #\{) "%7B") ; open curly ((char=? ch #\}) "%7D") ; close curly ((char=? ch #\|) "%7C") ; vertical bar ((char=? ch #\\) "%5C") ; backslash ((char=? ch #\/) "%2F") ; slash ((char=? ch #\^) "%5E") ; caret ((char=? ch #\~) "%7E") ; tilde ((char=? ch #\[) "%5B") ; open square ((char=? ch #\]) "%5D") ; close square ((char=? ch #\`) "%60") ; backtick ((char=? ch #\%) "%25") ; percent ((char=? ch #\+) "%2B") ; plus (else (string ch)))) (define (url-encode-string str) ;; REFENTRY url-encode-string ;; PURP Returns str with all special characters %-encoded ;; DESC ;; Converts 'str' to a properly encoded URL string. Returns str unchanged ;; if it is not a string. ;; /DESC ;; /REFENTRY (if (string? str) (let loop ((charlist (string->list str)) (url "")) (if (null? charlist) url (loop (cdr charlist) (string-append url (url-encode-char (car charlist)))))) str)) ;; ====================================================================== (define (system-id-filename target) ;; REFENTRY system-id-filename ;; PURP Returns the filename part of the system id of target ;; DESC ;; The entity-generated-system-id of target seems to begin with a ;; keyword, usually OSFILE on my system, in angle brackets. ;; This function removes the leading OSFILE bit. ;; /DESC ;; /REFENTRY (let* ((sysid (entity-generated-system-id target)) (fnbits (split sysid '(#\>))) (fntail (cdr fnbits))) (join fntail "\U-0061;"))) ;; ====================================================================== (define (trim-string str string-list) ;; REFENTRY trim-string ;; PURP Trims the tail off of a string ;; DESC ;; If 'str' ends with any of the strings in 'string-list', trim that ;; string off and return the base string. ;; E.g., '(trim-string "filename.sgm" '(".sgm" ".xml" ".sgml")) ;; returns "filename". ;; /DESC ;; /REFENTRY (let ((strlen (string-length str))) (let loop ((sl string-list)) (if (null? sl) str (if (equal? (substring str (- strlen (string-length (car sl))) strlen) (car sl)) (substring str 0 (- strlen (string-length (car sl)))) (loop (cdr sl))))))) ;; ====================================================================== (define (string-index source target) ;; REFENTRY string-index ;; PURP Finds first occurance of 'target' in 'source' ;; DESC ;; Returns the position of the first occurance of 'target' in 'source', ;; or -1 if it does not occur. ;; /DESC ;; /REFENTRY (let loop ((str source) (pos 0)) (if (< (string-length str) (string-length target)) -1 (if (string=? (substring str 0 (string-length target)) target) pos (loop (substring str 1 (string-length str)) (+ pos 1)))))) ;; ====================================================================== (define (parse-pi-attribute pivalues #!optional (skip #f)) (let* ((equalpos (string-index pivalues "=")) (name (substring pivalues 0 equalpos)) (quotchar (substring pivalues (+ equalpos 1) (+ equalpos 2))) (rest (substring pivalues (+ equalpos 2) (string-length pivalues))) (quotpos (string-index rest quotchar)) (value (substring rest 0 quotpos)) (morevals (strip (substring rest (+ quotpos 1) (string-length rest))))) (if skip morevals (list name value)))) (define (parse-skip-pi-attribute pivalues) (parse-pi-attribute pivalues #t)) (define (parse-starttag-pi pi) ;; REFENTRY parse-starttag-pi ;; PURP Parses a structured PI and returns a list of values ;; DESC ;; It has become common practice to give PIs structured values. The ;; result is a PI that looks a lot like a start tag with attributes: ;; ;; <?pitarget name1="value1" name2='value2' name3="value '3'"> ;; ;; This function parses a PI with this form and returns a list. The ;; list contains the pitarget and each of the name/value pairs: ;; ;; ("pitarget" "name1" "value1" "name2" "value2" "name3" "value '3'") ;; /DESC ;; /REFENTRY (let* ((strippi (strip pi)) (spacepos (string-index strippi " "))) (if (< spacepos 0) (list strippi) (let* ((pitarget (substring strippi 0 spacepos)) (pivalues (strip (substring strippi (+ spacepos 1) (string-length strippi))))) (let loop ((values pivalues) (result (list pitarget))) (if (string=? values "") result (loop (parse-skip-pi-attribute values) (append result (parse-pi-attribute values))))))))) ;; ====================================================================== (define (string->nodes s) ;; Escape XML characters... (let* ((achars (string-replace s "&" "&#38;#38;")) (bchars (string-replace achars "<" "&#38;#60;")) (cchars (string-replace bchars ">" "&#38;#62;"))) (let ((doc (string-append "<literal><!DOCTYPE doc [ <!ELEMENT " "doc - - (#PCDATA)> ]><doc>" cchars ";</doc>"))) (children (node-property 'docelem (sgml-parse doc)))))) ;; ====================================================================== docbook-dsssl-1.79/lib/ChangeLog0000644000175000001440000000253010142575332017222 0ustar msmithusers000000000000002004-10-24 * dblib.dsl: Revision 1.6 completely broke PI processing, so back that out for now. 2003-04-29 Adam Di Carlo * dblib.dsl: Fix my-debug so it actually returns what you ask it to. 2003-04-28 Adam Di Carlo * dblib.dsl: Make PI parsing more robust by rewriting parse-pi-attribute and a fix in parse-starttag-pi. I'm still not entirely happy with the PI parsing, its probably a little flakey, but it shouldn't completely bail out when it hits data its not expecting. Closes Debian Bug#186886. 2003-04-26 Adam Di Carlo * dblib.dsl: Fix a typo in the param docs 2003-04-05 Adam Di Carlo * dblib.dsl: xsl stylesheet refers to pica as "pc" rather than "pi", so we allow either one as a pica 2002-05-12 Norman Walsh * dblib.dsl: Bugs #429663 and #474328 fixed (allow external linespecific content to be indented and numbered). Eight bit or unicode external linespecific content may be problematic though. 2001-07-10 Norman Walsh * dblib.dsl: Bug fix: (strip) was returning the empty string for any string one character long 2001-04-02 Norman Walsh * dblib.dsl: New file. docbook-dsssl-1.79/images/0000755000175000001440000000000010142564561016151 5ustar msmithusers00000000000000docbook-dsssl-1.79/images/ChangeLog0000644000175000001440000000106110142575332017717 0ustar msmithusers000000000000002001-12-06 Adam Di Carlo * Make.images, Makefile: image converstion make improvements; if you want to tweak the image conversion stuff, do that in Make.images and that will affect the subdirs too; also, a clean rule 2001-12-01 Norman Walsh * .cvsignore, Makefile: New file. 2001-04-02 Norman Walsh * caution.gif, home.gif, important.gif, next.gif, note.gif, prev.gif, tip.gif, toc-blank.gif, toc-minus.gif, toc-plus.gif, up.gif, warning.gif: New file. docbook-dsssl-1.79/images/warning.pdf0000644000175000001440000000346610142564524020321 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`d–ƒÒºz `nh RçäÉ¥ï¬äîÄ¥TÂ¥ï&œ,¸ôÝôÝr¸ô]llôŠRS2“Kò‹ MzòsJsóŠÁjìü¢bc;;.O…Š9K§(4ˆ´ÕÇ<·2WÚ¹Ó7Ì­)[eÒ.¥‰'®Šn?uÊOIy¥ôºBײ¾»Þ šírôªÞ®^£÷ýãÿú¸y¥Vs/¬Þ¤Ó<¹~¿æímǦ_~Õ¼íöÛw_¯Nûd!ÕÛñ½|­?ËÁ–Ï|«¹OmòYª)œTøñCAÇc¾× y%´ÙÃÛS$XÏÒ€™9hnùü«ORß~¯t­›&)»¶!¢þÆc*«C»[·Þ~«ò<唄 [ Ã߇œ—wÔú¯yþY*ä×?/厎ß:•ò–?ÃAP±F¶ŒA嘰¹VÔÄ×K­^ÀèzáÚ æ ¿û•VyÜ_•ükºÒ§­W‹zÊëW+ÊàôÈýÐ¥”uâÐwö_ä™kUbÃÛ†††î»yçøÇÇÏÓÿO¸à¿„)®dzùrÉÒ¶×Ïæ™s6ýZ{‘A2MôÖôìE"sìý—÷=®Ù_—Ôùõ–Ú´ ñE/¦Í9[rª©Aã‡mÆ.Åw–û[]£ZžÔ0âÙ¶yŠa•‰U–ùnãÝgO‡®2ÿñúë‚˹²±,¦rŸu´íízŠÞåüž¹‘¯õ·LVd;—«§B B. ,endstream endobj 6 0 obj 627 endobj 4 0 obj <> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000928 00000 n 0000001389 00000 n 0000000869 00000 n 0000000731 00000 n 0000000015 00000 n 0000000712 00000 n 0000001242 00000 n 0000001094 00000 n 0000000976 00000 n 0000001064 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1548 %%EOF docbook-dsssl-1.79/images/up.pdf0000644000175000001440000000313210142564524017266 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`l –S0Óºz `naRçäÉ¥ï¬äîÄ¥TÊ¥ïTÈ¥ïà¬`Á¥ï¦ï–Ã¥ï`c£P”š’™\’_–wÎÏ)ÍÍ+ë²ó‹€L;;.O…Š9g§(Nn6h=(.sâÄ %eí—þ±¯”6º*iOôð{Ôž®´—Å=¦°ä½Õå•/¾ìˆ{ù¥óŒ÷‘ºÏiåÉ|‡ö¸>cŸu7,6Uz›éæί·½ó¯M/9“zÂi½JcXüêEšß’øã¾ÏR·‰Ta™øqÆÆ%üÅSßOÛýÚôãŒf;‡kËòcN—N0å4x]Ò›û&Øþ”òɧ2ç—ŸbaóûpÁ[lób?¿_z"³œ?¬¸b¼dEÏuõ“,­>FöŸ7„¯Útiê‚GN^¡³t7ùnTÔÛió¯;åOyÌñ ž2Åb7k­58$rùøãì—bï~{nëߤy_,Ú ©Ó0úçÿ{«KØŽ¥Ìåê©È‚Xk§lendstream endobj 6 0 obj 412 endobj 4 0 obj <> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000713 00000 n 0000001174 00000 n 0000000654 00000 n 0000000516 00000 n 0000000015 00000 n 0000000497 00000 n 0000001027 00000 n 0000000879 00000 n 0000000761 00000 n 0000000849 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1328 %%EOF docbook-dsssl-1.79/images/toc-plus.pdf0000644000175000001440000000254610142564523020417 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`h –S°ºz``fRæäÉ¥ï¬ïÎ¥TÇ¥ï¡`É¥ïà¬`Á¥ï¦ï–Ã¥ï`c£P”š’™\’_V䜟Sš›W dÛÙqyº(TÌIÎIlhÊ28yƒi¡dÔÄ=ÿ?~”tüòÿZ–Š“í¬Ÿ+¾13ÊoãrõTäA;³3Èendstream endobj 6 0 obj 163 endobj 4 0 obj <> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000463 00000 n 0000000924 00000 n 0000000404 00000 n 0000000267 00000 n 0000000015 00000 n 0000000248 00000 n 0000000777 00000 n 0000000629 00000 n 0000000511 00000 n 0000000599 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1084 %%EOF docbook-dsssl-1.79/images/toc-minus.pdf0000644000175000001440000000254010142564523020561 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`h –S°ºz``fRæäÉ¥ï¬ïÎ¥TÇ¥ï¡`É¥ïà¬`Á¥ï¦ï–Ã¥ï`c£P”š’™\’_V䜟Sš›W dÛÙqyº(TÌIÎIlhÊ28yƒi¡dTç3ã¦ÿ×^MðØUò›qV„p—«§B ±o/¼endstream endobj 6 0 obj 156 endobj 4 0 obj <> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000456 00000 n 0000000917 00000 n 0000000397 00000 n 0000000260 00000 n 0000000015 00000 n 0000000241 00000 n 0000000770 00000 n 0000000622 00000 n 0000000504 00000 n 0000000592 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1078 %%EOF docbook-dsssl-1.79/images/toc-blank.pdf0000644000175000001440000000255410142564523020522 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`h –S°ºz``fRæäÉ¥ï¬äîÄ¥TÉ¥ï¡`É¥ïà¬`Á¥ï¦ï–Ã¥ï`c£P”š’™\’_V䜟Sš›W cç+ÛÙqyº(TÌIþóÿ¿=3‰™Ùµë×°õœXÅÉäökVo»Ì•wÇK1°f˜q¹z*r àZ4Ùendstream endobj 6 0 obj 168 endobj 4 0 obj <> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000468 00000 n 0000000929 00000 n 0000000409 00000 n 0000000272 00000 n 0000000015 00000 n 0000000253 00000 n 0000000782 00000 n 0000000634 00000 n 0000000516 00000 n 0000000604 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1090 %%EOF docbook-dsssl-1.79/images/tip.pdf0000644000175000001440000000315110142564523017436 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`d –S02‘ºz `nh RçäÉ¥ï¬ïÎ¥TÈ¥ïTÆ¥ïà¬`Á¥ï¦ï–Ã¥ï`c£P”š’™\’_¤`T土Sš›W ÔagÇåé¢P1§t’bu³@›~Ÿå£®71)¯”&®}¬¿a~ÙMB–1Ú= \•ü…ÜSc¦ép¾ 6cñ/zwúû"E®?êgò·çu*3.dàNÕ©PÛ4_£ûPuÅqi•?ŽGZU¯7úfòÝåšgX­@ìŒÈEŽ¯œVš˜1ú{ù#ZÑ~öš;7Etý®ÌÒY– ï¼þÇzc*#—«§B ,ɪ3endstream endobj 6 0 obj 426 endobj 4 0 obj <> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000727 00000 n 0000001188 00000 n 0000000668 00000 n 0000000530 00000 n 0000000015 00000 n 0000000511 00000 n 0000001041 00000 n 0000000893 00000 n 0000000775 00000 n 0000000863 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1343 %%EOF docbook-dsssl-1.79/images/prev.pdf0000644000175000001440000000323510142564522017620 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`l –S0Óºz `naRçäÉ¥ï¬äîÄ¥TÊ¥ïTÈ¥ïà¬`Á¥ï¦ï–Ã¥ï`c£P”š’™\’_–wÎÏ)ÍÍ+ë²ó‹€L;;.O…Š9O§è—28v0•/F»›yº•’²úĵ=.ÛÖM}à ¤|°‘Ù=µpõâ¾׶æ•ÞÝþ´÷íÞÇ/Hú=‰]÷ý×éòrÏÝë^_ÛñÛÒ£ræj§¹Û³oˆp>sÿ§w÷døΰ׾›:]sJzÜ<.gH­ÌÐÿö½»ñv9³œÌÆ__º*&©G¬t”w{u¶ZîûŒ“9™þm“Swµ„­©Ý/––ªÈ=3EÙjÖGɉ"Jóy×MJQb-”3nv¼þjK,»é.Žùú? kZ.Ï-ç^¡ª½aû91¾í?ŽÝ¿þeò/צf¦]ÒâÏ/Öò)O> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000778 00000 n 0000001239 00000 n 0000000719 00000 n 0000000581 00000 n 0000000015 00000 n 0000000562 00000 n 0000001092 00000 n 0000000944 00000 n 0000000826 00000 n 0000000914 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1395 %%EOF docbook-dsssl-1.79/images/note.pdf0000644000175000001440000000322610142564522017611 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`d–ƒÒºz `nh RçäÉ¥ï¬ïÎ¥TÀ¥ï&œ,¸ôÝôÝr¸ô]llôŠRS2“Kò‹ M:òsJsóŠjíì¸<]*æÄNR¬>¬ ÐÆ?Ýâ‘TgŠ^áJ·uzS'ÿæþÍ=yòäÞÓ1O픞´ãAÓé¾»…mø¿’½S¾€u›ÄáM·Ë2˜“æ5h.>ª¼aÕùnÆ‚_L¿•š6žÖÚtu‚íÊðËu妽¿!zC8õƒH¼ÝÃƳÅ÷²µ9V¯—ÈvÐ`÷U•½¦—¶l Msš•ü¼…û'ßtɃV •Œ‹_ž~Rýèˆ\1?Wá·“çä:¿Rð\ùúÂûf'žË»Š1¿X°¢®ÏZÿB‹ŠQ|¼]cÁç ÃìvVåuÑñv\[ œ_ÿý¾ÚdÛM ͨ)9{v§»v¤†æìå›Û.ø¢Äïù‹†û 'Ý1sÏ’Éyþm~÷ü5;x½V(×Yè×ÔÉê^W½Xq1•õ£±Fæ'®K7µœO¿îý8=ãöoÓÅ)¡ÿõg/,ärõTäAb»¾xendstream endobj 6 0 obj 470 endobj 4 0 obj <> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000771 00000 n 0000001232 00000 n 0000000712 00000 n 0000000574 00000 n 0000000015 00000 n 0000000555 00000 n 0000001085 00000 n 0000000937 00000 n 0000000819 00000 n 0000000907 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1388 %%EOF docbook-dsssl-1.79/images/next.pdf0000644000175000001440000000331110142564522017615 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`l –S0Óºz `naRçäÉ¥ï¬äîÄ¥TÊ¥ïTÈ¥ïà¬`Á¥ï¦ï–Ã¥ï`c£P”š’™\’_–wÎÏ)ÍÍ+ë²ó‹€L;;.O…Š9OC 9øļê`þiQP9ýă}}Jòì|ž)WãŦ[Ĺ5yÇ(lj’ôº)QVK}¢wÎ>ý÷î»ûqBŸK¬$ÿ'=“5x{e‘VÖå²Õ½Ç7é½^•—V×Ëy!QhUÔÔ=W.tç0Ú~?É÷é”àw[殞aR²HˆÅòüÃ¥“¶%î>bzNùÕͼG¾=^ï§oü0kÞ‡ˆþµ7¼^Ÿä`^ªÁR^1ÅÕhÂäœI+×Ì }\òF€}»£œ£CÓDã]Ó8£DÛÕcž–úræŠ KvüþTÈ9uãºÂkߦÍ,IZSdrYÌuÿNƒdók¦ÎVo¶VI\®¾}1lñýs,Ü—j¤Vÿ¾r÷/Ǭ©"VÝ{q~ßWÆb—¼/÷:/ôÛ2š¯ÿœ2ãÅ÷¤ú;ÎO¾žiÍ<Ù¿æZºxüþ~Ÿˆó¿ÞøÓp€wýãÒaS™d6r2½>ø*B–e—ÜO®¾<ŠøþÁü—u5³Ã’o¹\=¹@bKáendstream endobj 6 0 obj 521 endobj 4 0 obj <> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000822 00000 n 0000001283 00000 n 0000000763 00000 n 0000000625 00000 n 0000000015 00000 n 0000000606 00000 n 0000001136 00000 n 0000000988 00000 n 0000000870 00000 n 0000000958 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1439 %%EOF docbook-dsssl-1.79/images/important.pdf0000644000175000001440000000374510142564521020666 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`d–ƒÒºz `nh RçäÉ¥ï¬äîÄ¥TÂ¥ï&œ,¸ôÝôÝr¸ô]llôŠRS2“Kò‹ MzòsJsóŠÁjìü¢bc;;.O…Š9s§*Ö¬6h·ž¾óƒ[ÚºÒ· q™©g¾î¼ÊûóÕ½»ÜŒÂïL˜x¦1;EeÇöÛÖ/®­s¸ÿ­:PqgÍŸ÷Eå;+ëëçÇȇ†Öþ5ñý<ëéY Žs¯óöìÛ'ÕVcs.Ó\Àé~ìe'7­Ñà:•S/ñëuÞ¼v‡õÙ͆fsýÖ79œ¨ãoç>v€»ð,÷ÒŠi oßf}þGå-“®‡×ë›:Gvìs³ìÛu,hÀ,ë¾bF«@ n=~Ÿ– §/E­rúe¡Xsú‘û5vŽ¦E[tÞev*Uï­kì|~ñí¶7o›Ö™”æþž(p©IÁ$ÈÎø›QÏé¿{ù½“n—ɘ·ˆ®Ð|Zôn뿾'5¶=GÓ>[sD¥+®sÊèù½àÜÁãG…sWUUmzkß²‡§wRËŽ¼ÙŒûòß•ñV§ Ê;µiJÕ¹¬/Ë–¸¬ë~µ‹ÏùóÃ…RR>·–8þ®ýÁë¡y¹”wC£öÓ—OþŽQ“Ÿ^ ñ:j¸Äç×ÿ«^Zj!³$&ÀjÞk{¦«¦Â‡q1åÌš­ éZ9+HŠ§x‰ñ¬c†Mg¾ýí¹TOªAÅubEœ WÓñ³ËD™*·Üͺüæ?ÊrÍô3¹ŽžBþËh¿¼¹öºM×-× éݱ¾ûî°/¯¸¬³ðŽ]ÖZaQËsûÄ5×.¼q9á¼·dvÕþÀ¬P‘\æóos<1wb?×.¨0gñQAׇ+Çš˜%ìÝëyýík)ž%S櫈eX~=Y·úmÄùòra/힧/ž5Zc:ûlÚ!¿×Êg÷w‡Ncwêùù§fjêÎSÅ+vs*nþYs¯:ðXüÄ“Ï'=ÿ™ùôGKÄ4Ó_YMo¯“àrõTäARÅ`¤endstream endobj 6 0 obj 800 endobj 4 0 obj <> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000001101 00000 n 0000001562 00000 n 0000001042 00000 n 0000000904 00000 n 0000000015 00000 n 0000000885 00000 n 0000001415 00000 n 0000001267 00000 n 0000001149 00000 n 0000001237 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1723 %%EOF docbook-dsssl-1.79/images/home.pdf0000644000175000001440000000335010142564521017571 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`l –S0Óºz `naRçäÉ¥ï¬äîÄ¥TÊ¥ïTÈ¥ïà¬`Á¥ï¦ï–Ã¥ï`c£P”š’™\’_–wÎÏ)ÍÍ+ë²ó‹€L;;.O…Š9wC'49ˆ\}fš!Ñycƒ¬ ôÇ¡ëm¼³Ür³?ÏrÉ‘Øîy„Í÷ѱֳ͎¾Ï±?üâÎœróÇwüÙÿÿíï{ÿ½—Xm•Ûtë|wÉš¾È™+u·~¾dhjlÿìkzì¶Sûn]y;Ï#âñ[‹¿ü÷ËBÃÃ2,ÛçÖ‰ÏÐ^âºÉ#eS²uûÃ×Þ®´U×ùÈz÷ØUÑØ°IfžBîå]Ý.…]²:õBÂf»æƒÆó6òOº)ü¿WnÃ>†LŽŸ¸\=¹@Þé£endstream endobj 6 0 obj 552 endobj 4 0 obj <> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000853 00000 n 0000001314 00000 n 0000000794 00000 n 0000000656 00000 n 0000000015 00000 n 0000000637 00000 n 0000001167 00000 n 0000001019 00000 n 0000000901 00000 n 0000000989 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1470 %%EOF docbook-dsssl-1.79/images/caution.pdf0000644000175000001440000000346310142564521020310 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`d–ƒÒºz `nh RçäÉ¥ï¬äîÄ¥TÂ¥ï&œ,¸ôÝôÝr¸ô]llôŠRS2“Kò‹ MzòsJsóŠÁjìü¢bc;;.O…Š9k§è4ˆ—5*VОx…Wr殣¼–‘7Ož:u5”¯sɺ‰}”´µWF§Ä~wÒhØõv[ùÞ¸ß|ußÿsøèMçþsܧŽÉj®ß¼ç‚NÿX´NuäXñJ>.¸ß0!HD2ùéÃá¡g*ŽíbwrÏüõíO [#ˇ¥s´]%“ý®iœ°ˆÒ Üæ­?¥ª¤ª¤y]_—Âû½Ÿ¿ô_Û­e*ÿª¨!ËëÜ ÍÄ­M7y®e¨Þh«xcBjsØ9n'»3lš³yØ-Ñ XeÞ:åóìãr+æëõ4¾Ú¸y㜗R$÷ì;T²ªþAyù®›æ Úwÿ] b¥Ì»kWêzG?÷·2|f˜µ²Å²Ÿ¸ÿöY‹Mæ„ /Çó‚Xæ®áÞø[ƒé\iöWξ¡¶\Žg˜_Ë ëó œÅç8£\âPRbð”®O2šž"®Û7¬ß¥²ô÷ºu— ³D…\— Ú¤³pŠëš_@‰äG5ai(½yýWöÑŽ×fQgŽÙMÈÓÍÞžíp;7Ø>lßýË7{¶‹°¯8µÙ½œŸ¿WÿJÓÔhsŽc›ß/˾kôKJ2-éï`/›í圵ïÆ7DÅþ˜SS÷«âÕ1ûÍ<«5>Hò¼ (ØÇ°¬¡ÒžËÕS!  .endstream endobj 6 0 obj 624 endobj 4 0 obj <> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000925 00000 n 0000001386 00000 n 0000000866 00000 n 0000000728 00000 n 0000000015 00000 n 0000000709 00000 n 0000001239 00000 n 0000001091 00000 n 0000000973 00000 n 0000001061 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1545 %%EOF docbook-dsssl-1.79/images/warning.eps0000644000175000001440000002077710142564520020337 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (warning.eps) %%CreationDate: (Fri Nov 5 11:45:36 2004) %%BoundingBox: 0 0 24 24 %%HiResBoundingBox: 0 0 24 24 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 24 24 userdict begin DisplayImage 0 0 24 24 12.000000 24 24 1 0 0 256 080000 100000 180000 210000 290000 310000 420000 4A0000 520000 5A0000 6B0000 730000 7B0000 840000 8C0000 940000 947B7B 9C5252 9C5A5A 9C7B7B A50000 A53939 A54A4A A58484 A59494 A5A5A5 AD0000 AD3131 AD9494 B50000 B52929 B58C8C B59C9C B5A5A5 B5B5B5 BD0000 BDADAD BDB5B5 C60000 C61010 C61818 C6C6C6 CE0000 CE1010 CE1818 CE2929 D60000 D62929 D6D6D6 DE0000 DEDEDE E70000 E72121 E7E7E7 EF0000 EF0808 EFEFEF F70000 F7F7F7 FF0000 FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF 3C3C3C3C3C3C3C32303030303030303030383C3C3C3C3C3C3C3C3C3C3C3C29111E1B1E1B 1E1B1E1B1B1C383C3C3C3C3C3C3C3C3C3C221637393939393939393939281C383C3C3C3C 3C3C3C3829153739393939393939393939392817383C3C3C3C3C3C291237393939393939 393939393939392819383C3C3C3C2215373939393939391D0F2E3939393939392817383C 3C2916373939393939392304010937393939393939281C38321137393939393939390F01 01042E393939393939392821301B39393939393939391A02010631393939393939393710 301E39393939393939392603000837393939393939393710301B39393939393939393105 010B39393939393939393710301E39393939393939393307010E39393939393939393710 301B39393939393939393908011439393939393939393710301E3939393939393939390A 021A39393939393939393710301B393939393939393939230D2E39393939393939393710 301E3939393939393939330C081A39393939393939393710321B39393939393939391A01 010631393939393939392D18382028393939393939391D030107333939393939392F1332 3C382028393939393939391D0D2A3939393939392F17323C3C3C381C2739393939393939 393939393939393410323C3C3C3C3C3A22273939393939393939393939392F10383C3C3C 3C3C3C3C381C28393939393939393939392F17323C3C3C3C3C3C3C3C3C38202837333733 373337332D10323C3C3C3C3C3C3C3C3C3C3C3A24131313131313131318323C3C3C3C3C3C end %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/up.eps0000644000175000001440000002062210142564520017303 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (up.eps) %%CreationDate: (Fri Nov 5 11:45:36 2004) %%BoundingBox: 0 0 35 15 %%HiResBoundingBox: 0 0 35 15 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 35 15 userdict begin DisplayImage 0 0 35 15 12.000000 35 15 1 0 0 256 008400 108C10 218C21 299429 319C31 429C42 63AD63 6BB56B 84BD84 8CC68C 94CE94 B5DEB5 C6DEC6 CEE7CE D6EFD6 E7EFE7 EFF7EF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF 111111111111111111111111111111111111111111111111111111111111111111111111 111111111111111111111111111111111111111111111111111111111111111111111111 1111111111111111110F0B0C0D110D0C0B10111111111111111111111111111111111111 1111111111111111110603111110040E1111111111111111111111111111111111111111 111111111111111108051111110811110E0F0D0F11111111111111111111111111111111 11111111111111080511111108110E05060B050B11111111111111111111111111111111 11111111111108051111110811110808110F021111111111111111111111111111111111 111111111108051111110811110808111100111111111111111111111111111111111111 1111111108051111110911110808110F0211111111111111111111111111111111111111 1111110F010C110C0A111108040F070A1111111111111111111111111111111111111111 1111111009080C1111110806080B11111111111111111111111111111111111111111111 111111111111111111080811111111111111111111111111111111111111111111111111 111111111111110E07070E11111111111111111111111111111111111111111111111111 111111111111111111111111111111111111111111111111111111111111111111111111 111111111111111111111111111111111111111111 end %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/toc-plus.eps0000644000175000001440000001357110142564520020432 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (toc-plus.eps) %%CreationDate: (Fri Nov 5 11:45:36 2004) %%BoundingBox: 0 0 15 9 %%HiResBoundingBox: 0 0 15 9 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 15 9 userdict begin DisplayImage 0 0 15 9 12.000000 15 9 1 1 1 8 848484848484848484FFFFFFFFFFFF84FFFFFFFFFFFFFF84FFFFFFFFFFFF84FFFFFF00 FFFFFF84FFFFFFFFFFFF84FFFFFF00FFFFFF84FFFFFFFFFFFF84FF0000000000FF84FF84 FF84FF8484FFFFFF00FFFFFF84FFFFFFFFFFFF84FFFFFF00FFFFFF84FFFFFFFFFFFF84FF FFFFFFFFFFFF84FFFFFFFFFFFF848484848484848484FFFFFFFFFFFFend %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/toc-minus.eps0000644000175000001440000001357210142564520020603 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (toc-minus.eps) %%CreationDate: (Fri Nov 5 11:45:36 2004) %%BoundingBox: 0 0 15 9 %%HiResBoundingBox: 0 0 15 9 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 15 9 userdict begin DisplayImage 0 0 15 9 12.000000 15 9 1 1 1 8 848484848484848484FFFFFFFFFFFF84FFFFFFFFFFFFFF84FFFFFFFFFFFF84FFFFFFFF FFFFFF84FFFFFFFFFFFF84FFFFFFFFFFFFFF84FFFFFFFFFFFF84FF0000000000FF84FF84 FF84FF8484FFFFFFFFFFFFFF84FFFFFFFFFFFF84FFFFFFFFFFFFFF84FFFFFFFFFFFF84FF FFFFFFFFFFFF84FFFFFFFFFFFF848484848484848484FFFFFFFFFFFFend %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/toc-blank.eps0000644000175000001440000001375410142564520020541 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (toc-blank.eps) %%CreationDate: (Fri Nov 5 11:45:36 2004) %%BoundingBox: 0 0 15 9 %%HiResBoundingBox: 0 0 15 9 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 15 9 userdict begin DisplayImage 0 0 15 9 12.000000 15 9 1 0 0 16 000000 800000 008000 808000 000080 800080 008080 C0C0C0 808080 FF0000 00FF00 FFFF00 0000FF FF00FF 00FFFF FFFFFF 0F0F0F0F080F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F080F 0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F080F080F080F080F 080F080F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F080F0F0F0F0F0F0F0F0F0F0F0F0F 0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F080F0F0F0F0F0F0F0F0F0F end %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/tip.eps0000644000175000001440000001545010142564517017464 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (tip.eps) %%CreationDate: (Fri Nov 5 11:45:35 2004) %%BoundingBox: 0 0 25 24 %%HiResBoundingBox: 0 0 25 24 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 25 24 userdict begin DisplayImage 0 0 25 24 12.000000 25 24 1 1 1 8 FFFFFFFFFFFFFFFFFFFFE7E7E7E7E7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7C6A5 94A5A5A594A5CEF7FFFFFFFFFFFFFFFFFFFFFFFFF7BD94A5CEE7F7E7F7E7C69494CEFFFF FFFFFFFFFFFFFFFFE794A5DEFFFFFFFFFFFFFFFFFFCE94A5FFFFFFFFFFFFFFFFF794BDF7 FFFFFFFFFFFFFFFFFFFFFFE7A5B5FFFFFFFFFFFFF794BDFFFFFFFFFFFFE7A5E7FFFFFFFF FFFF94BDFFFFFFFFFFCEA5F7FFFFFFFFFFF77B216BE7FFFFFFFFFFE7A5DEFFFFFFE7A5E7 FFFFFFFFFFFFF773105AE7FFFFFFFFFFFFCEA5FFFFFFCEB5FFFFFFFFFFFFFFFFDEA5DEFF FFFFFFFFFFFFF794E7FFFFA5DEFFFFFFFFFFFFFF8C7B7BB5FFFFFFFFFFFFFFFFB5CEFFE7 A5F7FFFFFFFFFFFFFF2100006BF7FFFFFFFFFFFFFFE794FFE7A5F7FFFFFFFFFFFFFF9439 006BF7FFFFFFFFFFFFFFE794FFE7A5E7FFFFFFFFFFFFFFF763006BF7FFFFFFFFFFFFFFE7 94FFE7A5F7FFFFFFFFFFFFFFF763006BF7FFFFFFFFFFFFFFE794FFE7A5E7FFFFFFFFFFFF FFF763006BF7FFFFFFFFFFFFFFDE94FFFFB5CEFFFFFFFFFFFFFFF763006BF7FFFFFFFFFF FFFFA5CEFFFFDEA5FFFFFFFFFFFFFFF763006BF7FFFFFFFFFFFFE7A5E7FFFFF7A5CEFFFF FFFFFFFFF763006BF7FFFFFFFFFFFFBDBDFFFFFFFFDEA5E7FFFFFFFFFFF773217BF7FFFF FFFFFFCEA5E7FFFFFFFFFFA5A5FFFFFFFFFFFFDEC6CEFFFFFFFFFFFF8CCEFFFFFFFFFFFF FFB594E7FFFFFFFFFFFFFFFFFFFFFFCE8CCEFFFFFFFFFFFFFFFFFFA594C6F7FFFFFFFFFF FFFFE7B594C6FFFFFFFFFFFFFFFFFFFFFFDE948CA5DEE7E7E7CE9494A5E7FFFFFFFFFFFF FFFFFFFFFFFFFFFFE7CE94949494A5CEE7FFFFFFFFFFFFFFFFend %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/prev.eps0000644000175000001440000002062410142564517017643 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (prev.eps) %%CreationDate: (Fri Nov 5 11:45:35 2004) %%BoundingBox: 0 0 35 15 %%HiResBoundingBox: 0 0 35 15 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 35 15 userdict begin DisplayImage 0 0 35 15 12.000000 35 15 1 0 0 256 008400 108C10 218C21 299429 319C31 429C42 4AA54A 52AD52 6BB56B 73BD73 84BD84 8CC68C 94CE94 A5CEA5 ADD6AD C6DEC6 CEE7CE D6EFD6 E7EFE7 EFF7EF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF 141414141414141414141414141414141414141414141414141414141414141414141414 141414141414141414141414141414141414141414141414141414141414141414141414 141414141414141414141414141414141414141414141414141414141414141414141414 141414120F0F0F0F14141414141414141414141414141414141414141414141414141414 14141409030F090212141414141414141414141414141414141414141414141414141414 14140A051414030A140F140F141410101414141414141414141414141414141414141414 140A051414020C10000A030F080C0A081202091410061214141414141414141414141414 0A020A060A14140014121203141401140D06140D1214141414141414141414141414140A 0514141414140014140F020A0A0A141401120A1414141414141414141414141414140A05 14141414140014141202141414141409070F141414141414141414141414141414090314 1414141200121414040D140F12141202141414141414141414141414141414120F0F1014 1414100F0F1414120B0A1213141410141414141414141414141414141414141414141414 141414141414141414141414141414141414141414141414141414141414141414141414 141414141414141414141414141414141414141414141414141414141414141414141414 141414141414141414141414141414141414141414 end %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/note.eps0000644000175000001440000001537110142564517017637 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (note.eps) %%CreationDate: (Fri Nov 5 11:45:35 2004) %%BoundingBox: 0 0 24 24 %%HiResBoundingBox: 0 0 24 24 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 24 24 userdict begin DisplayImage 0 0 24 24 12.000000 24 24 1 1 1 8 FFFFFFFFFFFFFFFFFFFFE7E7E7E7E7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBDA594 A5A5A594A5CEFFFFFFFFFFFFFFFFFFFFFFFFEFC68CA5D6E7EFEFEFE7C69494CEFFFFFFFF FFFFFFFFFFE794A5DEFFFFFFFFFFFFFFFFFFCE94B5FFFFFFFFFFFFFFEFA5B5FFFFFFFFFF FFFFFFFFFFFFFFEFA5BDFFFFFFFFFFEF94BDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF94BDFF FFFFFFCEA5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFA5DEFFFFFFA5DEFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFCEA5FFFFCEA5FFFFFFFFFFC6BDB5BDB5BDDEE7E7E7E7E7FFFFA5 E7FFA5DEEFD6D6A58CB5CEDED6CE8C84A5A5A5A59494E7B5CEE7A5E79494B5CEFFFFE7CE 94C6CE73BDDEDEDED694CEDE94E7A5D694E7FFFFFFEF94635A4A527B94BDB5B5BDC6EFE7 94DEA5D694E7FFFFFFBD7BCEDEDEA594FFEFFFEFFFFFFFDE94E7A5DE8CE7FFFFEF947394 B5BD8CA5FFFFFFFFFFFFFFE794E7A5DE947BA5EFEF6B7BD6CEC67BDEFFFFFFFFFFFFFFE7 A5FFB5D6FFFFB594CE6BBD8C7363BDFFFFFFFFFFFFFFFFA5CEFFD6A5FFFFEFC67B527394 84C6FFFFFFFFFFFFFFFFEFA5EFFFFFA5CEFFFFFFDEE7DEE7DEFFFFFFFFFFFFFFFFFFBDBD FFFFFFD6A5E7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCEA5EFFFFFFFFFB5A5FFFFFFFFFFFF FFFFFFFFFFFFFFFFFF8CCEFFFFFFFFFFFFBD94EFFFFFFFFFFFFFFFFFFFFFFFCE8CCEFFFF FFFFFFFFFFFFB594C6EFFFFFFFFFFFFFFFE7B594C6FFFFFFFFFFFFFFFFFFFFD6A58CA5DE DEE7DECEA58CB5E7FFFFFFFFFFFFFFFFFFFFFFFFFFDECE94949494A5CEEFFFFFFFFFFFFF FFend %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/next.eps0000644000175000001440000002062410142564517017645 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (next.eps) %%CreationDate: (Fri Nov 5 11:45:35 2004) %%BoundingBox: 0 0 35 15 %%HiResBoundingBox: 0 0 35 15 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 35 15 userdict begin DisplayImage 0 0 35 15 12.000000 35 15 1 0 0 256 008400 108C10 218C21 299429 319C31 429C42 4AA54A 52AD52 63AD63 6BB56B 84BD84 8CC68C 94CE94 A5CEA5 ADD6AD B5DEB5 C6DEC6 CEE7CE D6EFD6 E7EFE7 EFF7EF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF 151515151515151515151515151515151515151515151515151515151515151515151515 151515151515151515151515151515151515151515151515151515151515151515151515 151515151515151515151515151515151515151515151515151515151515151515151515 1515100F13151512100F1315151515151515151515151515151515151515151515151515 151204011315150A0A151515151515151515151515091115151515151515151515151515 150A040415150F1015151210151515151515151505101515151515151515151515151515 0A13020915100F150F070F0413070115080C0D02070D151515151515151515151515150A 1511010E0F1015041315051115040A0A1515051015151515151515151515151515150A15 150E010C1015000A0A0A12151000101515051015151515151515151515151515150A1515 15070010150212151515150A0A0415150510151515151515151515151515151306101515 15040F150A071512100E0F15040B15050A1115151515151515151515151511100F131515 131315150D0A1013101113100F13110A1015151515151515151515151515151515151515 151515151515151515151515151515151515151515151515151515151515151515151515 151515151515151515151515151515151515151515151515151515151515151515151515 151515151515151515151515151515151515151515 end %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/important.eps0000644000175000001440000002100110142564517020672 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (important.eps) %%CreationDate: (Fri Nov 5 11:45:35 2004) %%BoundingBox: 0 0 24 24 %%HiResBoundingBox: 0 0 24 24 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 24 24 userdict begin DisplayImage 0 0 24 24 12.000000 24 24 1 0 0 256 000000 080808 101010 181818 292929 393939 424231 424242 4A4A4A 525252 5A5A29 636318 636352 636363 6B6B42 6B6B6B 737352 7B7B7B 848484 8C8C18 8C8C39 8C8C7B 8C8C8C 94945A 94948C 949494 9C9C5A 9C9C63 9C9C7B 9C9C9C A5A563 A5A584 A5A594 A5A59C A5A5A5 ADAD21 ADAD39 ADAD6B ADAD7B ADAD84 ADAD8C ADADA5 ADADAD B5B54A B5B552 B5B58C B5B5B5 BDBD08 BDBD5A BDBD84 BDBD9C BDBDBD C6C608 C6C65A C6C6C6 CECE73 CECECE D6D618 D6D652 D6D663 D6D66B D6D6D6 DEDE00 DEDE21 DEDE31 DEDE39 DEDE52 DEDEDE E7E708 E7E721 E7E729 E7E731 E7E75A E7E763 E7E77B E7E7E7 EFEF00 EFEF10 EFEF31 EFEF42 EFEFEF F7F710 F7F718 F7F731 F7F739 F7F74A F7F7F7 FFFF00 FFFF08 FFFF10 FFFF21 FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF 5B5B5B5B5B5B5B5B5B5B4B4B4B4B4B5B5B5B5B5B5B5B5B5B5B5B5B5B5B5B5B4B36221922 2222192238565B5B5B5B5B5B5B5B5B5B5B5633161F404D4D4D4D4D321C16385B5B5B5B5B 5B5B5B5B4B191E495757575757575757573A1A22565B5B5B5B5B5B5619314D5757575757 5757575757574D262E5B5B5B5B5B56193157575757574C14103E5757575757571B2E5B5B 5B5B38254D57575757571400000A4D57575757574D1E435B5B4B21495757575757570D00 0005405757575757573A295B5B382857575757575757120000094E575757575757571C4B 5B2241575757575757572300000B595757575757575728384B224D575757575757572F02 0013575757575757575744194B224D575757575757573904022457575757575757574419 4B224D575757575757573F05022B575757575757575744194B224D575757575757574607 033B575757575757575744194B224D575757575757574F160F4A57575757575757574422 5B2E405757575757575747141039595757575757575728385B3D1F575757575757571100 0009475757575757574F204B5B56213A575757575757100000063F575757575758302E5B 5B5B3D1E4D57575757573E0E0C2F5757575757573C22505B5B5B5B22265757575757575A 4E5757575757575716385B5B5B5B5B5B221B4D57575757575757575757583C12385B5B5B 5B5B5B5B5B221A354F575757575757574F2C19365B5B5B5B5B5B5B5B5B5B3D2215284444 4444371C152A4B5B5B5B5B5B5B5B5B5B5B5B5B5B4B361919191922384B5B5B5B5B5B5B5B end %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/home.eps0000644000175000001440000002062410142564517017617 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (home.eps) %%CreationDate: (Fri Nov 5 11:45:35 2004) %%BoundingBox: 0 0 35 15 %%HiResBoundingBox: 0 0 35 15 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 35 15 userdict begin DisplayImage 0 0 35 15 12.000000 35 15 1 0 0 256 108C10 218C21 299429 319C31 429C42 4AA54A 63AD63 73BD73 84BD84 8CC68C 94CE94 A5CEA5 B5DEB5 C6DEC6 CEE7CE D6EFD6 E7EFE7 EFF7EF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF 121212121212121212121212121212121212121212121212121212121212121212121212 121212121212121212121212121212121212121212121212121212121212121212121212 121212121212121212121212121212121212121212121212121212121212121212121210 0C0D0E120E0D0C1012121212121212121212121212121212121212121212121212121206 021212110207121212121212121212121212121212121212121212121212121212120804 12121204081212120E0E1212120E110E0E12100C121212110C1112121212121212080412 121204081212040B0B0312100105080008070208120F040D031012121212121208010808 080108120C061212060B12040C120808120C0412070C1208091212121212120804121212 04081208081212080812040C120808120D0412040608080C121212121212080412121204 08120B071212070B12040C120808120C0412060B12121212121212121207021112120207 1210040F10041012020C120707120C02120D0211100A1212121212100C0D0E120E0D0C10 1210090910120F0D0C110C0D100D0C10120D080B12121212121212121212121212121212 121212121212121212121212121212121212121212121212121212121212121212121212 121212121212121212121212121212121212121212121212121212121212121212121212 121212121212121212121212121212121212121212 end %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/caution.eps0000644000175000001440000002077710142564517020342 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (caution.eps) %%CreationDate: (Fri Nov 5 11:45:35 2004) %%BoundingBox: 0 0 24 24 %%HiResBoundingBox: 0 0 24 24 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 24 24 userdict begin DisplayImage 0 0 24 24 12.000000 24 24 1 0 0 256 000000 080800 101000 181800 212100 313100 424200 5A5A00 636300 6B6B00 737300 7B7B00 848400 848473 8C8C00 8C8C73 8C8C8C 949400 949473 94947B 9C9C00 9C9C73 9C9C7B 9C9C94 9C9C9C A5A500 A5A563 A5A59C A5A5A5 B5B500 B5B55A B5B563 B5B5B5 BDBD00 BDBD63 CECE00 CECECE D6D600 D6D6CE D6D6D6 DEDE00 DEDE31 DEDE39 DEDE42 E7E700 E7E731 E7E739 E7E7E7 EFEF00 EFEFEF F7F700 F7F710 F7F718 F7F731 F7F7F7 FFFF00 FFFF10 FFFF18 FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF FFFFFF 3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A 2F313A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A240D1B313A3A3A3A3A3A3A3A3A 3A3A3A3A3A3A3A3A3A3A24122B1E17313A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A2F0D2B 32341F1C313A3A3A3A3A3A3A3A3A3A3A3A3A3A3A240D35323232321F1B313A3A3A3A3A3A 3A3A3A3A3A3A3A24122A32322C3032341E1C313A3A3A3A3A3A3A3A3A3A3A24132A32321D 05082C32381E1C313A3A3A3A3A3A3A3A3A24122E3232320A00031D3232381E18313A3A3A 3A3A3A3A2F0D2B323232320A00031D323232341F1C313A3A3A3A3A240D35323232323214 02052532323232321F1B313A3A3A24122A3232323232321D02062C3232323232341E1C31 3A2F0D2B323232323232322303072C323232323232341A203A311C1E343232323232322C 0309303232323232322A13243A3A311B1F3232323232322C080E3232323232322D12243A 3A3A3A311C1F3432323232250B112C323232322D10243A3A3A3A3A3A311B1E383232320C 0004213232322A12243A3A3A3A3A3A3A3A311C1E3832321904062532322E16243A3A3A3A 3A3A3A3A3A3A311C1E343232252C32322A16243A3A3A3A3A3A3A3A3A3A3A3A311B1F3232 3232322D12243A3A3A3A3A3A3A3A3A3A3A3A3A3A311C1F3432322D10243A3A3A3A3A3A3A 3A3A3A3A3A3A3A3A3A311B1E382A12243A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A311C 1A13243A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3A3120243A3A3A3A3A3A3A3A3A3A end %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/warning.gif0000644000175000001440000000203407262170714020306 0ustar msmithusers00000000000000GIF87a÷!)1BJRZks{„Œ””{{œRRœZZœ{{¥¥99¥JJ¥„„¥””¥¥¥­­11­””µµ))µŒŒµœœµ¥¥µµµ½½­­½µµÆÆÆÆÆÆÎÎÎÎ))ÖÖ))ÖÖÖÞÞÞÞçç!!çççïïïïï÷÷÷÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ,þyÈCŒƒâ Èp`Š6Dœ¸a‡… Š°p#‡ÇQ\̈#E…Ž Sæ@q#ÁPªL‰"ƒK"NªìðÀ…J–SpT9‚@€2C^”!éÇðù3Œ 3shÀ@Œ™7 ÀðÕÄœz {5kŒdeKvæŒÌ‹5+‚öŽÍšC ‚ûÎÑ€ªJºYg0@€,ŠSjˆêuf 8@ ˜Ùa@€3T¾˜ ƒGèÑ;¨P}¡µ@NNIã2C"tïÎñÂ͸ag}Q;ãmÑ7fDŸ>£…oçu˜À½;w ¶ ;docbook-dsssl-1.79/images/up.gif0000644000175000001440000000163207262170714017270 0ustar msmithusers00000000000000GIF87a#÷„Œ!Œ!)”)1œ1BœBc­ckµk„½„ŒÆŒ”ΔµÞµÆÞÆÎçÎÖïÖçïçï÷ïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ,##H° Áƒ*\Èpàƒ DhÀ`„† €Œˆ@ ƒ €D(’d ,(°`¥Á–KF@Pò›qîÌ©P‚Bàó¨Ã "0P“ÀƒTrL€ jNjjMÈs¬B|4˶m€;docbook-dsssl-1.79/images/toc-plus.gif0000644000175000001440000000151607262170714020413 0ustar msmithusers00000000000000GIF89a ÷„„„ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ, 38P€Áƒ*L¨PC6tx0¢Á‡hÔH1¡Ç‡)6)qäD‘ œ;docbook-dsssl-1.79/images/toc-minus.gif0000644000175000001440000000151307262170714020560 0ustar msmithusers00000000000000GIF89a ÷„„„ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ, 08P€Áƒ*L¨PÆ64‘¢1:ܘPàÄ?V"A‚;docbook-dsssl-1.79/images/toc-blank.gif0000644000175000001440000000013707262170714020515 0ustar msmithusers00000000000000GIF89a ³€€€€€€€€€ÀÀÀ€€€ÿÿÿÿÿÿÿÿÿÿÿÿ, ðɇ¦½8Ûª»§`%‚_Æ•¨tf;docbook-dsssl-1.79/images/tip.gif0000644000175000001440000000200507262170714017433 0ustar msmithusers00000000000000GIF87a÷  !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~€€€‚‚‚ƒƒƒ„„„………†††‡‡‡ˆˆˆ‰‰‰ŠŠŠ‹‹‹ŒŒŒŽŽŽ‘‘‘’’’“““”””•••–––———˜˜˜™™™ššš›››œœœžžžŸŸŸ   ¡¡¡¢¢¢£££¤¤¤¥¥¥¦¦¦§§§¨¨¨©©©ªªª«««¬¬¬­­­®®®¯¯¯°°°±±±²²²³³³´´´µµµ¶¶¶···¸¸¸¹¹¹ººº»»»¼¼¼½½½¾¾¾¿¿¿ÀÀÀÁÁÁÂÂÂÃÃÃÄÄÄÅÅÅÆÆÆÇÇÇÈÈÈÉÉÉÊÊÊËËËÌÌÌÍÍÍÎÎÎÏÏÏÐÐÐÑÑÑÒÒÒÓÓÓÔÔÔÕÕÕÖÖÖ×××ØØØÙÙÙÚÚÚÛÛÛÜÜÜÝÝÝÞÞÞßßßàààáááâââãããäääåååæææçççèèèéééêêêëëëìììíííîîîïïïðððñññòòòóóóôôôõõõööö÷÷÷øøøùùùúúúûûûüüüýýýþþþÿÿÿ,êÿ HðœAƒ*xÎX)J¥"BtvoaÂ{½&ž»·±!%JÎ,2„èM¤3ˆïQêUQä¿s¥j)TÙK!Ìs W&tVªåÀ{{B¬ÁY°TI†¥ˆ¼7‚¥yF•¹Ð›Ñ…*‰^UÈhϪ k…„é“`Ö”xŽÒËž )åH»vä[¨?ÇÐ]ØömÝ÷ôªåëö&VÁ½¹ý'öð^…¥Bþ³êxpBÀ#ÏD¬°WÍVñ2 ±g-O¼z3&™ £ÖkQ«ÐÙk‘ý='Û˜ËÉ”=x"m‹çŠŒ|ü_@;docbook-dsssl-1.79/images/prev.gif0000644000175000001440000000166007262170714017621 0ustar msmithusers00000000000000GIF87a#÷„Œ!Œ!)”)1œ1BœBJ¥JR­Rkµks½s„½„ŒÆŒ”Δ¥Î¥­Ö­ÆÞÆÎçÎÖïÖçïçï÷ïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ,#•)H° Áƒ*\È°¡CƒH|ð°b‚P±¡‚( @‘":ü(P`DÀ@ œ4À‘¡ Œ¤€‚  ÐÀÓž>A,J¨‚¡$ õ(u Uœ0Ùð"A zh@’#X‡¤A¢@ H˜@W¥ß¿€; ;docbook-dsssl-1.79/images/note.gif0000644000175000001440000000205607262170714017612 0ustar msmithusers00000000000000GIF87a÷  !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~€€€‚‚‚ƒƒƒ„„„………†††‡‡‡ˆˆˆ‰‰‰ŠŠŠ‹‹‹ŒŒŒŽŽŽ‘‘‘’’’“““”””•••–––———˜˜˜™™™ššš›››œœœžžžŸŸŸ   ¡¡¡¢¢¢£££¤¤¤¥¥¥¦¦¦§§§¨¨¨©©©ªªª«««¬¬¬­­­®®®¯¯¯°°°±±±²²²³³³´´´µµµ¶¶¶···¸¸¸¹¹¹ººº»»»¼¼¼½½½¾¾¾¿¿¿ÀÀÀÁÁÁÂÂÂÃÃÃÄÄÄÅÅÅÆÆÆÇÇÇÈÈÈÉÉÉÊÊÊËËËÌÌÌÍÍÍÎÎÎÏÏÏÐÐÐÑÑÑÒÒÒÓÓÓÔÔÔÕÕÕÖÖÖ×××ØØØÙÙÙÚÚÚÛÛÛÜÜÜÝÝÝÞÞÞßßßàààáááâââãããäääåååæææçççèèèéééêêêëëëìììíííîîîïïïðððñññòòòóóóôôôõõõööö÷÷÷øøøùùùúúúûûûüüüýýýþþþÿÿÿ,þÿ HðœAƒ*Ø«¥R:[˜ð1F¥¬{Çñœ1J”&R<÷ÐÅÎ(ÕZø®ÔÊ“[öªHi&L‚5 :+u³b)“öL¸S`Q‚ÆzÕRÚËÛA„ÿJ‹êí5k¥ÕræÍš3F„ F¤tnë9© · <—Ò˜³9M½u élF²ßQ£E‰”=5k-5öŽ¤·»Sîáz˜Ò¿wÖ=ëQb½sTö¸$eJ{Jq\³Ç«±=@žýWËšÀZ!×lž3ƦÂR±Æ<-%3!c[BŽ*òŸÓã'{ÙÆšxèÎá¯yýǨøÀ^” Süj l¿ÃÄŠQî9o;µ6‡‰$HÜÚ;docbook-dsssl-1.79/images/next.gif0000644000175000001440000000170407262170714017622 0ustar msmithusers00000000000000GIF87a#÷„Œ!Œ!)”)1œ1BœBJ¥JR­Rc­ckµk„½„ŒÆŒ”Δ¥Î¥­Ö­µÞµÆÞÆÎçÎÖïÖçïçï÷ïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ,#©+H° Áƒ*\È°¡Ã‚L(!âć %pQ† "8T@€€À(¦pиña (e|ˆ¸QGE(YÀéaäD`ÊèP 8j’,XÑEJt@ÃP?MºeH›œL)ƒ‚€%¸ªd)ð¥Ø üäJC¨Ž¨geŒp`-[ tÄààÆYÌ«b 16|ø‹ÀÁÙÜûÁoÊ "Ø•Ñ‚d‚‰=àHÉ)UDF¸W4Ê  „•áÂÂ热-—X«ÂöÆÄ‹¹B¾Ý²åÎÄ'†Æ¡:ùo ·Ä ÂùÀ€;docbook-dsssl-1.79/images/Make.images0000644000175000001440000000021707403715247020222 0ustar msmithusers00000000000000GIF := $(wildcard *.gif) EPS := $(GIF:.gif=.eps) PDF := $(GIF:.gif=.pdf) %.eps: %.gif convert $< $@ %.pdf: %.eps epstopdf --outfile=$@ $< docbook-dsssl-1.79/images/callouts/0000755000175000001440000000000010142564561017777 5ustar msmithusers00000000000000docbook-dsssl-1.79/images/callouts/ChangeLog0000644000175000001440000000073510142575332021554 0ustar msmithusers000000000000002001-12-06 Adam Di Carlo * Makefile: image converstion make improvements; if you want to tweak the image conversion stuff, do that in Make.images and that will affect the subdirs too; also, a clean rule 2001-12-01 Norman Walsh * .cvsignore, Makefile: New file. 2001-04-02 Norman Walsh * 1.gif, 10.gif, 2.gif, 3.gif, 4.gif, 5.gif, 6.gif, 7.gif, 8.gif, 9.gif: New file. docbook-dsssl-1.79/images/callouts/9.pdf0000644000175000001440000000272010142564530020637 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`h–ƒÒºz `ljRçäÉ¥ï¬ïÎ¥TÀ¥ï&œ,¸ôÝôÝr¸ô]llôŠRS2“Kò‹ M:òsJsóŠjíì¸<]*戞S”n2q{ø~›túf)÷Ãm…fBâ7z~ ÷õ.>ËV(eÒ¢|v«åãÊ{E üŸ¿­<')RóPaƒÂkÖÖEéÊá~ÊÅ)Þs^¹œ í–~jË3½ÂwbÆ߃;»>Ýiþ¯øæZ²N’»Á.å #©UÞ)Û¥ –®—Jà?½´QFS'‹©Za«t—õÙÚoA×{ä>4ŸÈåê©È‚“lb(endstream endobj 6 0 obj 275 endobj 4 0 obj <> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000576 00000 n 0000001037 00000 n 0000000517 00000 n 0000000379 00000 n 0000000015 00000 n 0000000360 00000 n 0000000890 00000 n 0000000742 00000 n 0000000624 00000 n 0000000712 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1190 %%EOF docbook-dsssl-1.79/images/callouts/8.pdf0000644000175000001440000000271710142564527020652 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`h–ƒÒºz `ljRçäÉ¥ï¬ïÎ¥TÀ¥ï&œ,¸ôÝôÝr¸ô]llôŠRS2“Kò‹ M:òsJsóŠjíì¸<]*æÈö-”jrhI¿}t³ìE÷†¶‹Ù!R.òŽÊý ¾Ê…¹vx<ípë¹~§­ûò³Ù?ÿIÞjh÷<͵@÷ã·nv·þ°œKÕM¶¾®ñKeÝ[Y~-¦sÉJÙŸ]¼Þ1÷Ü 7j¼é{õê¡Y3ö;·x{\6×3õ™»Ý»Ìr3¨uýëwªYuïçG¬Ç»ïýdÌ> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000575 00000 n 0000001036 00000 n 0000000516 00000 n 0000000378 00000 n 0000000015 00000 n 0000000359 00000 n 0000000889 00000 n 0000000741 00000 n 0000000623 00000 n 0000000711 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1189 %%EOF docbook-dsssl-1.79/images/callouts/7.pdf0000644000175000001440000000270710142564527020650 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`h–ƒÒºz `ljRçäÉ¥ï¬ïÎ¥TÀ¥ï&œ,¸ôÝôÝr¸ô]llôŠRS2“Kò‹ M:òsJsóŠjíì¸<]*æ¨ö-:d àòýNdŒ®ÑŽI…W¶öy¥¨îììUéÛuE0ò¦…ÖOÖ”;…’WÞݾ¹ÓV(¡LúÛuãf•ïÓg¬Tzùw3ëÙ7Në'[…¼|V¸¼[_ b󬜠ûv}ZÚ¿/wl Z==/hƒˆ‰t{l˜„ç,IÆ¥©a“òÅOÛÎX±¸¡Ø󾤄ý݉\®ž \ ƒ@`Øendstream endobj 6 0 obj 266 endobj 4 0 obj <> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000567 00000 n 0000001028 00000 n 0000000508 00000 n 0000000370 00000 n 0000000015 00000 n 0000000351 00000 n 0000000881 00000 n 0000000733 00000 n 0000000615 00000 n 0000000703 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1181 %%EOF docbook-dsssl-1.79/images/callouts/6.pdf0000644000175000001440000000271510142564527020646 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`h–ƒÒºz `ljRçäÉ¥ï¬ïÎ¥TÀ¥ï&œ,¸ôÝôÝr¸ô]llôŠRS2“Kò‹ M:òsJsóŠjíì¸<]*æˆö*Š4ˆ0¼ßîšòx‘‰– òYWå‹^*^›¥:/Å\^Á;ˤS sÝYÉ÷{«Ë-Ìe3Kã›×yÙSºó~ä¬3½+½åŠÎZN›¥X]8íÌ'™Õ¡ï´/žYâæ!~EÞÎ{ͲU|[~ç¼È‘Ür, Äð½ÅIsޙ̥ïŽè+®*xqÛÍfÝÎ/Áuqë­;¹\=¹@¬b#endstream endobj 6 0 obj 272 endobj 4 0 obj <> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000573 00000 n 0000001034 00000 n 0000000514 00000 n 0000000376 00000 n 0000000015 00000 n 0000000357 00000 n 0000000887 00000 n 0000000739 00000 n 0000000621 00000 n 0000000709 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1187 %%EOF docbook-dsssl-1.79/images/callouts/5.pdf0000644000175000001440000000271510142564527020645 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`h–ƒÒºz `ljRçäÉ¥ï¬ïÎ¥TÀ¥ï&œ,¸ôÝôÝr¸ô]llôŠRS2“Kò‹ M:òsJsóŠjíì¸<]*æˆö)Š70´äçšåJ‰‹wþ6ßxv~·+;:|¥²¯]TZyìèÖʸß÷v¿ÛÉc±]-6šsbòV •¯¦ ý´˜ªÈtìuä¶Ô*sWØ$ìóÕ8òÏ{«ù<Åÿ fiïJsOȶ-\Ï¿&0àÌòó·ã5H­ÚÜR\ÒäÒ$gÉeó‹õÖ‡sü [,¹\=¹@C6ayendstream endobj 6 0 obj 272 endobj 4 0 obj <> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000573 00000 n 0000001034 00000 n 0000000514 00000 n 0000000376 00000 n 0000000015 00000 n 0000000357 00000 n 0000000887 00000 n 0000000739 00000 n 0000000621 00000 n 0000000709 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1187 %%EOF docbook-dsssl-1.79/images/callouts/4.pdf0000644000175000001440000000271210142564526020640 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`h–ƒÒºz `ljRçäÉ¥ï¬ïÎ¥TÀ¥ï&œ,¸ôÝôÝr¸ô]llôŠRS2“Kò‹ M:òsJsóŠjíì¸<]*戞9l ÂzáûZ‹¶æï G5~Y‘“³13m­©Å\×lémÙ:¿~yWù~Ž¿¤Ä_žÌ¨†¢,¦ÓÖʱ>5N·½«óÊœ—·`+3ÿ¥ÏòåNѵ¡§ç¦¼q*ù{êÂÃO,÷O83[è»ÑëLûZ‰ø× ”žúŠ¼ïäöéÝô);Ã~0ï05ëärõTäA!cþendstream endobj 6 0 obj 269 endobj 4 0 obj <> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000570 00000 n 0000001031 00000 n 0000000511 00000 n 0000000373 00000 n 0000000015 00000 n 0000000354 00000 n 0000000884 00000 n 0000000736 00000 n 0000000618 00000 n 0000000706 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1184 %%EOF docbook-dsssl-1.79/images/callouts/3.pdf0000644000175000001440000000271310142564526020640 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`h–ƒÒºz `ljRçäÉ¥ï¬ïÎ¥TÀ¥ï&œ,¸ôÝôÝr¸ô]llôŠRS2“Kò‹ M:òsJsóŠjíì¸<]*æ¨ö) 2q1wÚcÂÔAî©)ÕÌZÉ….E-JÚÚ-™6M´d*]«¬÷‡çÓÙ7ûb',·|˜âÖ¤‘-縉&Ê÷è¶ëΔ[_×Ý;y'×ùöÙÃœ¢ŠýžaMF áÛ·J~i?ý3Ó–ùøºµG?IZcJ7aýŸàêo{hFdlØÜ€îÒ)ïX&ó> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000571 00000 n 0000001032 00000 n 0000000512 00000 n 0000000374 00000 n 0000000015 00000 n 0000000355 00000 n 0000000885 00000 n 0000000737 00000 n 0000000619 00000 n 0000000707 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1185 %%EOF docbook-dsssl-1.79/images/callouts/2.pdf0000644000175000001440000000271310142564526020637 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`h–ƒÒºz `ljRçäÉ¥ï¬ïÎ¥TÀ¥ï&œ,¸ôÝôÝr¸ô]llôŠRS2“Kò‹ M:òsJsóŠjíì¸<]*æ$ÿ9ÿ!ùÝ¥×<³N^”áéù_17ýŸÂù f³<._ý¹+šÕr]u­Í±Á‡6\ ðþxëŠP›œÛáÏ<¶ï£%ßÅ~O3Hyòã KÛñ¬*I ™õ;Ÿ7Õ3X:¤òØÞÔ]«9ñ¦­ås‰yû¤LªúÌ*¼´/dlXš`Ü0i®±è ™Ã/RøØŸZ4r¹z*r ocendstream endobj 6 0 obj 270 endobj 4 0 obj <> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000571 00000 n 0000001032 00000 n 0000000512 00000 n 0000000374 00000 n 0000000015 00000 n 0000000355 00000 n 0000000885 00000 n 0000000737 00000 n 0000000619 00000 n 0000000707 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1185 %%EOF docbook-dsssl-1.79/images/callouts/10.pdf0000644000175000001440000000272610142564526020722 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`h–ƒÒºz `ljRçäÉ¥ï¬ïÎ¥TÀ¥ï&œ,¸ôÝôÝr¸ô]llôŠRS2“Kò‹ M:òsJsóŠjíì¸<]*樞Ui2i}øû–’࣌[~.*tS¾h1Ûe‘àâ‰-n­fJg öšÌ9þcnñù¿™Ì=…Ùe™¶Ô^ÑSÜ›£’kcªµýò楻¶²ÏyoµÖ£4éÃ%›ïf½q _¦%¿,#ñó™á¦Iëlø,亞ü¾«-vß­ø…kkx„úOø¥õõÑ_çJ.WO…@.Öçibendstream endobj 6 0 obj 280 endobj 4 0 obj <> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000581 00000 n 0000001042 00000 n 0000000522 00000 n 0000000384 00000 n 0000000015 00000 n 0000000365 00000 n 0000000895 00000 n 0000000747 00000 n 0000000629 00000 n 0000000717 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1196 %%EOF docbook-dsssl-1.79/images/callouts/1.pdf0000644000175000001440000000265610142564525020643 0ustar msmithusers00000000000000%PDF-1.3 %Çì¢ 5 0 obj <> stream xœ+T0Ð3T0A(œËUÈ¥d©^ÌU¨`h–ƒÒºz `ljRçäÉ¥ï¬ïÎ¥TÀ¥ï&œ,¸ôÝôÝr¸ô]llôŠRS2“Kò‹ M:òsJsóŠjíì¸<]*æ$ÿ9ÿ!ùÝ¥×<³N^”áéù_17ýAÀžs ;|›>î¾ZÉÖ&§®ÌÆv8¹ÇV•'®˜u³%mO›gÛÒY }ŠÊÇùLsyèð´aª£E›s¹gÝKXüÁ®s L Þçfr•ô%–±33Øh6r¹z*r ‚ŠRyendstream endobj 6 0 obj 241 endobj 4 0 obj <> /Contents 5 0 R >> endobj 3 0 obj << /Type /Pages /Kids [ 4 0 R ] /Count 1 >> endobj 1 0 obj <> endobj 9 0 obj <> endobj 10 0 obj <> endobj 8 0 obj <>stream xœkhÙDÀ€ endstream endobj 7 0 obj <>stream xœc`Ù endstream endobj 2 0 obj <>endobj xref 0 11 0000000000 65535 f 0000000542 00000 n 0000001003 00000 n 0000000483 00000 n 0000000345 00000 n 0000000015 00000 n 0000000326 00000 n 0000000856 00000 n 0000000708 00000 n 0000000590 00000 n 0000000678 00000 n trailer << /Size 11 /Root 1 0 R /Info 2 0 R >> startxref 1156 %%EOF docbook-dsssl-1.79/images/callouts/9.eps0000644000175000001440000001361210142564525020663 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (9.eps) %%CreationDate: (Fri Nov 5 11:45:41 2004) %%BoundingBox: 0 0 12 12 %%HiResBoundingBox: 0 0 12 12 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 12 12 userdict begin DisplayImage 0 0 12 12 12.000000 12 12 1 1 1 8 FFFFFFAD52292152ADF7FFFFFFF74200001010000039EFFFFF4A0008ADD6E7A5000039 F7AD000073DE0818F75A0000944A0000A5AD0000D6A50000391800007BDE0818F7BD0000 0818000010BDEFE7E7B500000842000000080808D694000031A5000042F7214AFF390000 8CF7390000ADFFEF6B000029F7FFEF3100000800000031DEFFFFFFFF94311008318CF7FF FFend %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/callouts/8.eps0000644000175000001440000001361210142564525020662 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (8.eps) %%CreationDate: (Fri Nov 5 11:45:41 2004) %%BoundingBox: 0 0 12 12 %%HiResBoundingBox: 0 0 12 12 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 12 12 userdict begin DisplayImage 0 0 12 12 12.000000 12 12 1 1 1 8 FFFFFFAD52292152A5FFFFFFFFEF4A00001021000039E7FFFF420000A5DED6BD100031 F7A500004AF71000E7730000944A000042F71008EF6B00003118000000B5E7DED6080000 081800005AF7524AEF6B0000084A0000A5BD0000ADBD000031A5000073EF2921E7840000 94FF42000894E7EF94080031F7FFEF4A00000000000039EFFFFFFFFFA54A212142A5FFFF FFend %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/callouts/7.eps0000644000175000001440000001361210142564525020661 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (7.eps) %%CreationDate: (Fri Nov 5 11:45:41 2004) %%BoundingBox: 0 0 12 12 %%HiResBoundingBox: 0 0 12 12 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 12 12 userdict begin DisplayImage 0 0 12 12 12.000000 12 12 1 1 1 8 FFFFFFB55229294AADF7FFFFFFF75210181018101039E7FFFF5A00ADFFFFFFFFD60031 F7BD000000000018E75A0000945A0000000000B5BD00000039310000000052F731000000 083100000000D6B500000000085A00000039FF520000000031B50000008CF70800000000 8CFF4A0000B5B50000000029F7FFEF4200000000000029E7FFFFFFFF9C390808298CF7FF FFend %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/callouts/6.eps0000644000175000001440000001361210142564525020660 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (6.eps) %%CreationDate: (Fri Nov 5 11:45:41 2004) %%BoundingBox: 0 0 12 12 %%HiResBoundingBox: 0 0 12 12 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 12 12 userdict begin DisplayImage 0 0 12 12 12.000000 12 12 1 1 1 8 FFFFFFAD5229294AA5FFFFFFFFF74A00001829000039E7FFFF4A0000A5EFE7C6080039 F7AD000073EF1818EF390000944A0000C6A529390800000031180000E7EFCECECE100000 08180000DECE0008EF730000084A0000BDA50000CE84000031A500006BEF2121F74A0000 8CF739000094F7F784000029F7FFEF3900000808000029DEFFFFFFF79C390808318CF7FF FFend %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/callouts/5.eps0000644000175000001440000001361210142564524020656 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (5.eps) %%CreationDate: (Fri Nov 5 11:45:40 2004) %%BoundingBox: 0 0 12 12 %%HiResBoundingBox: 0 0 12 12 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 12 12 userdict begin DisplayImage 0 0 12 12 12.000000 12 12 1 1 1 8 FFFFFF9C391810398CF7FFFFFFEF3908292921290831DEFFFF390039FFEFEFEF4A0029 F7A5000039FF0800000000008C4A000039FFADCE840800003118000039FF844AE79C0000 08180000218400008CEF0000084A0000105A000094E7000031A5000031FF4A21DE940000 8CFF39000084EFF7A5100029F7FFEF3900000808000029DEFFFFFFFF94390808318CF7FF FFend %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/callouts/4.eps0000644000175000001440000001361210142564524020655 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (4.eps) %%CreationDate: (Fri Nov 5 11:45:40 2004) %%BoundingBox: 0 0 12 12 %%HiResBoundingBox: 0 0 12 12 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 12 12 userdict begin DisplayImage 0 0 12 12 12.000000 12 12 1 1 1 8 FFFFFFAD5229294AA5FFFFFFFFF74A00000029100039E7FFFF4A0000004AFF73000039 F7AD00000010E7FF73000000944A000000ADA5EF73000000311800005AE710F773000000 08180021EF7329F78C180000084A0063FFFFFFFFFFA5000031A50000000000F773000000 8CF73900000000DE6B000029F7FFEF3900000000000029DEFFFFFFF79C311008318CF7FF FFend %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/callouts/3.eps0000644000175000001440000001361210142564524020654 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (3.eps) %%CreationDate: (Fri Nov 5 11:45:40 2004) %%BoundingBox: 0 0 12 12 %%HiResBoundingBox: 0 0 12 12 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 12 12 userdict begin DisplayImage 0 0 12 12 12.000000 12 12 1 1 1 8 FFFFF794391010399CF7FFFFFFE73100083939080031E7FFF7310010DED6DECE100031 F78C000073E70810FF6B00008C31000010290010FF6B0000310800000000ADE7D6080000 0808000000003963F76B0000083100005A8C0000CEB50000318C00008CEF3139EF840000 8CF7310010ADF7F7AD080031F7FFE72900000800000031E7FFFFFFF78C3108103194F7FF FFend %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/callouts/2.eps0000644000175000001440000001361210142564524020653 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (2.eps) %%CreationDate: (Fri Nov 5 11:45:40 2004) %%BoundingBox: 0 0 12 12 %%HiResBoundingBox: 0 0 12 12 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 12 12 userdict begin DisplayImage 0 0 12 12 12.000000 12 12 1 1 1 8 FFFFF794391010399CF7FFFFFFE73100002921000031E7FFF7310021D6E7EFC6100031 F78C0000A5D60021F78C00008C3100008C7B0000DEB500003108000000000031F7730000 0808000000004AE7B508000008310000008CF77B00000000318C00006BF7633131180000 8CF731009CE7E7E7E77B0031F7FFE73100000000000031E7FFFFFFF78C3108083994F7FF FFend %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/callouts/10.eps0000644000175000001440000001361310142564524020733 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (10.eps) %%CreationDate: (Fri Nov 5 11:45:40 2004) %%BoundingBox: 0 0 12 12 %%HiResBoundingBox: 0 0 12 12 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 12 12 userdict begin DisplayImage 0 0 12 12 12.000000 12 12 1 1 1 8 FFFFFF9C391810398CF7FFFFFFEF3910180008291031DEFFFF3908B5B529DEBDE75229 F7A521EFFFB5B5B50073DE008C4A0008CEB5D6730031FF2131180000CEB5F7630018FF39 08180000CEB5EF630021FF39004A0000CEB5CE840039FF1831A50000CEB58CD61094CE00 8CFF3900BD9C10BDF7D63129F7FFEF3900000000080029DEFFFFFFFF943908082994F7FF FFend %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/images/callouts/9.gif0000644000175000001440000000162707262170714020646 0ustar msmithusers00000000000000GIF89a ÷!!!)))111999BBBJJJRRRZZZkkksss{{{ŒŒŒ”””¥¥¥­­­µµµ½½½ÖÖÖÞÞÞçççïïï÷÷÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ, |5”  2Ô<<€A`$T¸ab X0 ‡.ˆ@…Ž xè`dI I>@Ã… r:Ì @ ÀD@ >È€ <, ƒœ°°P˜*0 ;docbook-dsssl-1.79/images/callouts/8.gif0000644000175000001440000000162307262170714020641 0ustar msmithusers00000000000000GIF89a ÷!!!)))111999BBBJJJRRRZZZkkksss„„„”””¥¥¥­­­µµµ½½½ÆÆÆÖÖÖÞÞÞçççïïï÷÷÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ, x5Œ   ĸ C*LÀ@dàx¡Ã  ‡8 áBÆÈ° ƒ‚.s¦„0Áa„¢Ah€Áà'5X ðà†8=j`8sæ 5@H@€‚„;docbook-dsssl-1.79/images/callouts/7.gif0000644000175000001440000000160707262170714020642 0ustar msmithusers00000000000000GIF89a ÷!!!)))111999BBBJJJRRRZZZŒŒŒ”””œœœ­­­µµµ½½½ÖÖÖçççïïï÷÷÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ, l-„  @*´PA€80AàZÀ@…B†0á"€&EBò€‘Tx2Í À ò€0 è É B˜ ,$ ahÈ ) €ù´âB(PT`@;docbook-dsssl-1.79/images/callouts/6.gif0000644000175000001440000000162507262170714020641 0ustar msmithusers00000000000000GIF89a ÷!!!)))111999BBBJJJRRRkkksss„„„ŒŒŒ”””œœœ¥¥¥­­­µµµ½½½ÆÆÆÎÎÎÖÖÖÞÞÞçççïïï÷÷÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ, z9”  @ Ü€È °!€2TàÀ h0@Ç,VˆPàG‡8Ì Á‚MÈ€Á€ä´H!‚C `°@ :ØpÀƒ ’(°ƒÉœ/ `P¸‚˦ ;docbook-dsssl-1.79/images/callouts/5.gif0000644000175000001440000000162007262170714020633 0ustar msmithusers00000000000000GIF89a ÷!!!)))111999BBBJJJZZZ„„„ŒŒŒ”””œœœ¥¥¥­­­ÎÎÎÞÞÞçççïïï÷÷÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ, u-tp`€€ *´@á@€`@‚À0¤@!€Èh!ÀÈ“ <’„aIŒÔ¸ Á#È@`ÁHrª `dƒ # ˆ„i! ~ZÀ`…>*l˜óe‹ 8¤˜P`@;docbook-dsssl-1.79/images/callouts/4.gif0000644000175000001440000000161307262170714020634 0ustar msmithusers00000000000000GIF89a ÷!!!)))111999BBBJJJRRRZZZccckkksssŒŒŒ”””œœœ¥¥¥­­­µµµÞÞÞçççïïï÷÷÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ, p3œ  @ Āð °¡Ã8<€a‚C(jtÁ"€ .Œ``€Ã`XÀ%•0

Àpàh…1d¸Ðô(€bˆ`@@K;docbook-dsssl-1.79/images/callouts/3.gif0000644000175000001440000000162207262170714020633 0ustar msmithusers00000000000000GIF89a ÷)))111999ZZZccckkksss„„„ŒŒŒ”””œœœ­­­µµµÎÎÎÖÖÖÞÞÞçççïïï÷÷÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ, w-X¨À €Tha €À„Hˆ ‚€Š`BŒ\ð€€.SŽ$@q$"Ô PsdTBli@$f]@@ VVÈè B ,œ¢M‹ CÒ@€ÁB ;docbook-dsssl-1.79/images/callouts/2.gif0000644000175000001440000000161307262170714020632 0ustar msmithusers00000000000000GIF89a ÷!!!)))111999JJJccckkksss{{{„„„ŒŒŒ”””œœœ¥¥¥­­­µµµÆÆÆÖÖÖÞÞÞçççïïï÷÷÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ, p5hÈðà€ d¨á‚ €hàÂÀ‡*\À@A@ŒP<à€D (€HäˆfÒDpa‚Î+YfpYS$00 e†‡.H½àdà5- i ç 5;docbook-dsssl-1.79/images/callouts/10.gif0000644000175000001440000000163607262170714020716 0ustar msmithusers00000000000000GIF89a ÷!!!)))111999BBBJJJRRRcccsss„„„ŒŒŒ”””œœœ¥¥¥µµµ½½½ÎÎÎÖÖÖÞÞÞçççïïï÷÷÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ, ƒ5„p`€€2Ԁက`À‚À$H(`aÂ2D €AƒF Xà AD *0`@ÀÌ°À sÂÄГP.uJ ÐÀ  D ÔA(°<:‚€ *ÉðUªp\¨áF‰j;docbook-dsssl-1.79/images/callouts/1.gif0000644000175000001440000000157207262170714020635 0ustar msmithusers00000000000000GIF89a ÷)))111999JJJŒŒŒ”””œœœ¥¥¥µµµÎÎÎçççïïï÷÷÷ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ, _#D€À€@ÁA€XÀÁÀ‡4€ 8€°‘#Œ”¤€#+#¶äÓe”/cI3&(0àè±áD—- üX @ F;docbook-dsssl-1.79/images/callouts/1.eps0000644000175000001440000001361210142564524020652 0ustar msmithusers00000000000000%!PS-Adobe-3.0 EPSF-3.0 %%Creator: (ImageMagick) %%Title: (1.eps) %%CreationDate: (Fri Nov 5 11:45:40 2004) %%BoundingBox: 0 0 12 12 %%HiResBoundingBox: 0 0 12 12 %%DocumentData: Clean7Bit %%LanguageLevel: 1 %%Pages: 1 %%EndComments %%BeginDefaults %%EndDefaults %%BeginProlog % % Display a color image. The image is displayed in color on % Postscript viewers or printers that support color, otherwise % it is displayed as grayscale. % /DirectClassPacket { % % Get a DirectClass packet. % % Parameters: % red. % green. % blue. % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /DirectClassImage { % % Display a DirectClass image. % systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { DirectClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayDirectClassPacket } image } ifelse } bind def /GrayDirectClassPacket { % % Get a DirectClass packet; convert to grayscale. % % Parameters: % red % green % blue % length: number of pixels minus one of this color (optional). % currentfile color_packet readhexstring pop pop color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /GrayPseudoClassPacket { % % Get a PseudoClass packet; convert to grayscale. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def color_packet 0 get 0.299 mul color_packet 1 get 0.587 mul add color_packet 2 get 0.114 mul add cvi /gray_packet exch def compression 0 eq { /number_pixels 1 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add def } ifelse 0 1 number_pixels 1 sub { pixels exch gray_packet put } for pixels 0 number_pixels getinterval } bind def /PseudoClassPacket { % % Get a PseudoClass packet. % % Parameters: % index: index into the colormap. % length: number of pixels minus one of this color (optional). % currentfile byte readhexstring pop 0 get /offset exch 3 mul def /color_packet colormap offset 3 getinterval def compression 0 eq { /number_pixels 3 def } { currentfile byte readhexstring pop 0 get /number_pixels exch 1 add 3 mul def } ifelse 0 3 number_pixels 1 sub { pixels exch color_packet putinterval } for pixels 0 number_pixels getinterval } bind def /PseudoClassImage { % % Display a PseudoClass image. % % Parameters: % class: 0-PseudoClass or 1-Grayscale. % currentfile buffer readline pop token pop /class exch def pop class 0 gt { currentfile buffer readline pop token pop /depth exch def pop /grays columns 8 add depth sub depth mul 8 idiv string def columns rows depth [ columns 0 0 rows neg 0 rows ] { currentfile grays readhexstring pop } image } { % % Parameters: % colors: number of colors in the colormap. % colormap: red, green, blue color packets. % currentfile buffer readline pop token pop /colors exch def pop /colors colors 3 mul def /colormap colors string def currentfile colormap readhexstring pop pop systemdict /colorimage known { columns rows 8 [ columns 0 0 rows neg 0 rows ] { PseudoClassPacket } false 3 colorimage } { % % No colorimage operator; convert to grayscale. % columns rows 8 [ columns 0 0 rows neg 0 rows ] { GrayPseudoClassPacket } image } ifelse } ifelse } bind def /DisplayImage { % % Display a DirectClass or PseudoClass image. % % Parameters: % x & y translation. % x & y scale. % label pointsize. % image label. % image columns & rows. % class: 0-DirectClass or 1-PseudoClass. % compression: 0-none or 1-RunlengthEncoded. % hex color packets. % gsave /buffer 512 string def /byte 1 string def /color_packet 3 string def /pixels 768 string def currentfile buffer readline pop token pop /x exch def token pop /y exch def pop x y translate currentfile buffer readline pop token pop /x exch def token pop /y exch def pop currentfile buffer readline pop token pop /pointsize exch def pop /Times-Roman findfont pointsize scalefont setfont x y scale currentfile buffer readline pop token pop /columns exch def token pop /rows exch def pop currentfile buffer readline pop token pop /class exch def pop currentfile buffer readline pop token pop /compression exch def pop class 0 gt { PseudoClassImage } { DirectClassImage } ifelse grestore } bind def %%EndProlog %%Page: 1 1 %%PageBoundingBox: 0 0 12 12 userdict begin DisplayImage 0 0 12 12 12.000000 12 12 1 1 1 8 FFFFF794391010399CF7FFFFFFE73100000829000031E7FFF7310000008CCE00000031 F78C00004AE7F7CE000000008C3100000000A5CE000000003108000000009CCE00000000 0808000000009CCE000000000831000000009CCE00000000318C000000009CCE00000000 8CF7310000008CB500000031F7FFE72900000000000031E7FFFFFFF78C3108083994F7FF FFend %%PageTrailer %%Trailer %%EOF docbook-dsssl-1.79/html/0000755000175000001440000000000010142564561015650 5ustar msmithusers00000000000000docbook-dsssl-1.79/html/ChangeLog0000644000175000001440000003214310142575332017423 0ustar msmithusers000000000000002004-10-10 * dbhtml.dsl, dbparam.dsl, dbttlpg.dsl: Support for specifying a system ID for the HTML output documents, required for better parsing in contemporary browsers. A default system ID is set if %html40% is true. 2004-10-09 * docbook.dsl: New Bulgarian translation by Viktor Vasilev (SF patch #1040075) 2004-09-23 * dbprocdr.dsl: Add CSS decoration of procedure steps (RFE #1033197) 2004-09-17 * docbook.dsl: Bosnian translation by Kemal Skripic 2004-09-14 * dbinline.dsl: Fix for bug #860398: Change uses of $var-seq$ to something more appropriate. 2004-07-11 * version.dsl: Closes Bug 912831: the last character of VERSION was being cut off. 2003-05-28 Adam Di Carlo * dbblock.dsl: HTML attribs for comments variablized for maintenance. 2003-04-29 Adam Di Carlo * dbcompon.dsl: Finding the subtitle for a component should use the parent title if set; this is consistent with how the title is already set; closes SF bug 613773. 2003-04-28 Adam Di Carlo * dbpi.dsl: Ensure dbhtml-findvalue can handle the pi-field-list being a non-pair, which may occur in some poorly formed dbhtml PIs; returns #f in this case. 2003-04-27 Adam Di Carlo * dbcompon.dsl: Simplify some code, no functional changes 2003-04-26 Adam Di Carlo * dbcallou.dsl, dbparam.dsl: callout graphics and admonition graphics, if needed, share a single variable, %stock-graphics-extension% -- "stock" here referring to standard, stock images, e.g., not per document images; this closes Debian Bug#187429 2003-04-12 Adam Di Carlo * dbadmon.dsl: VALIGN should be MIDDLE, not CENTER; closes Debian Bug#187569 2003-04-05 Adam Di Carlo * dblists.dsl: back out my last change; there are 4 places taht use this and until I understand how varlistentry-term-too-long? is supposed to work at all I better not mess with it * dblists.dsl: termlength in varlist is measurement-to-length, not string->number 2003-03-25 Adam Di Carlo * db31.dsl, dbblock.dsl, dbcompon.dsl, dbgraph.dsl, dbqanda.dsl, dbsect.dsl, docbook.dsl: move data from db31 into its proper component files 2003-03-21 Adam Di Carlo * Makefile: Don't hardcode DSSSL file list, use $(wildcard *.dsl); clean is cleaner 2003-02-12 Adam Di Carlo * db31.dsl, dbhtml.dsl, dbinline.dsl, dbttlpg.dsl: Deprecate TT; use CODE, KBD, SAMP, or VAR instead. acronym make's use of HTML4's ACRONYM element if %html40% abbrev make's use of HTML4's ABBR element if %html40% * dbparam.dsl: Emit a HTML 4.0.1 doctype by default if %html40%, this seems like a good idea. Update %spacing-paras% and %html40% docs a bit, without changing their settings. 2003-02-11 Adam Di Carlo * dbtable.dsl: If %html40%, create col elements representing colspecs (implied or explicit), and don't emit widths on each and every cell. If %html40%, set the tbody valign properly. If %html40%, allow relative column sizes such as "1*", thus we're not emitting 50% when we mean 1* (out of 1*, 1*); the effect is that we're not forcing pgwide if it's not turned on. Don't set valign on entries, set them on rows (unless they really are set on the entries). Some rewriting for speed/efficiency (doens't seem to make much difference in my timing testing though) 2003-02-09 Adam Di Carlo * dbtable.dsl: Improve table rendering using frame and border attributes on HTML tables, conditional on HTML4 support being on. The following cases in table.006.xml are now fixed: outer edit (table frame but no rowsep nor colseps); rows (frame is topbot, rowsep but no colsep); columns; tic tac toc (no frame, colsep and rowsep). Note we still have no way (yet) to override colsep/rowsep in either colspec or in the individual rows, but I'm working on colspec -> colgroup. 2003-02-07 Adam Di Carlo * dbblock.dsl: move the anchor closer to the content in informal-objects; no way to get around empty A element in this case * dbsect.dsl, dbttlpg.dsl: "title" changes to "title" -- weblint says we should avoid empty A elements * dbtable.dsl: fix a div-by-zero error identified in informaltable.015.xml; would cause loss of a table header column in some cases 2003-01-21 Adam Di Carlo * dbblock.dsl: formal and informal objects reset the processing mode, this closes Debian#79432f; so is still in special mode, but is not; test is legalnotice.001.xml 2003-01-20 Adam Di Carlo * dbgraph.dsl: correct this error: html/dbgraph.dsl:68:1:E: 1st argument for primitive "append" of wrong type: "#" not a list, fix and report from Christopher B. Browne 2003-01-15 Adam Di Carlo * dbadmon.dsl, dbautoc.dsl, dbbibl.dsl, dbblock.dsl, dbcallou.dsl, dbcompon.dsl, dbdivis.dsl, dbefsyn.dsl, dbfootn.dsl, dbgloss.dsl, dbgraph.dsl, dbhtml.dsl, dbindex.dsl, dbinfo.dsl, dbinline.dsl, dblink.dsl, dblists.dsl, dblot.dsl, dbmath.dsl, dbmsgset.dsl, dbprocdr.dsl, dbrfntry.dsl, dbsect.dsl, dbsynop.dsl, dbtable.dsl, dbtitle.dsl, dbttlpg.dsl, dbverb.dsl, docbook.dsl: update docbook URL to http://docbook.sourceforge.net/projects/dsssl/; N.B.: credit for the group option and repeating goes to John Daily * dblink.dsl: xref to varlistentry using the term, patch from Jens Emmerich; closes bug 520561 * dbsynop.dsl: Patch #562401 , elipsis should be outside of group, reference test cmdsynopsis.003 2003-01-14 Adam Di Carlo * dbblock.dsl: define a $remark$ function, unifying comment and remark element rendering; remarks within paras are now rendering using a span rather than p so they mark up as inline text decoration 2002-12-16 Adam Di Carlo * dbblock.dsl, dbparam.dsl: %epigraph-start-col% and %epigraph-content-col% allows customization of epigraph positioning; %blockquote-start-col% and %blockquote-end-col% parameters allows customization of the whitespace around blockquote 2002-06-09 Norman Walsh * dbbibl.dsl, dbttlpg.dsl: Fix bug #502337: remove 'by' from copyright statements 2002-05-21 Norman Walsh * dbttlpg.dsl: Make sure email addresses in info elements are links 2002-05-12 Norman Walsh * dbttlpg.dsl: Bug #494693: bad formalpara formatting on title pages * dbverb.dsl: Bugs #429663 and #474328 fixed (allow external linespecific content to be indented and numbered). Eight bit or unicode external linespecific content may be problematic though. 2002-05-09 Norman Walsh * dbgraph.dsl: Bug #448732: make image-library work with imagedata * dblink.dsl: Allow xref to refnamediv 2002-05-06 Norman Walsh * dbbibl.dsl: Fix broken style attribute on biblioentries 2002-04-29 Norman Walsh * dbefsyn.dsl: Format synopsis elements correctly outside of classsynopsis 2002-04-21 Norman Walsh * db31.dsl, dbadmon.dsl, dbblock.dsl, dbcompon.dsl, dbdivis.dsl, dbgloss.dsl, dbindex.dsl, dblists.dsl, dbrfntry.dsl, dbsect.dsl, dbtable.dsl, dbttlpg.dsl: Make sure named anchors are closed 2002-03-24 Adam Di Carlo * Makefile: add a clean rule here 2002-03-21 Norman Walsh * dbfootn.dsl: Fix footnote bugs (Adam, please double-check) 2002-03-20 Norman Walsh * dbefsyn.dsl: Support freestanding {method,field,constructor,destructor}synopsis 2002-03-16 Adam Di Carlo * dbfootn.dsl: footnotes go in a CSS class "footnote"; reduce code, additional modularity -- to change footnote rendering, you just have to provide a different "$footnote-literal$" procedure 2002-02-22 Norman Walsh * dblink.dsl: Add element-page-number-sosofo back in; always produce "???" 2002-02-20 Norman Walsh * dblink.dsl: Remove bogus page-number rules 2002-01-03 Norman Walsh * dbindex.dsl: Wrap DIVs around index lists 2001-12-06 Norman Walsh * db31.dsl, dbadmon.dsl, dbblock.dsl, dbcompon.dsl, dbdivis.dsl, dbgloss.dsl, dbindex.dsl, dblists.dsl, dbrfntry.dsl, dbsect.dsl, dbttlpg.dsl: Make anchors empty so that they don't imply style for the things they wrap 2001-12-01 Norman Walsh * docbook.dsl: Bug #462406 legalnotice-link breaks HTML manifest 2001-11-30 Norman Walsh * dbsect.dsl: Patch #473116: Section levels 2001-11-18 Norman Walsh * dbparam.dsl: Bug #482355: use legalnotice id when use-id-as-filename is true 2001-11-14 Norman Walsh * docbook.dsl: Added Basque, Nynorsk, Ukranian, and Xhosa 2001-11-03 Norman Walsh * dbinline.dsl: Support pubwork=article on citetitle 2001-10-13 Jirka Kosek * dbinline.dsl: Fixed bug #470840 - added support for methodname. 2001-10-01 Norman Walsh * dbverb.dsl: Support linenumbering attribute on verbatim environments 2001-09-29 Norman Walsh * dbcallou.dsl: Bug #449494: make callouts work even if they appear on the last line of a verbatim environment 2001-09-23 Norman Walsh * db31.dsl: ImageData should use the image function from dbgraph.dsl * dbgraph.dsl: Patch #421990: support width and depth attributes on graphics * dbverb.dsl: Patch #461901, make %fix-para-wrappers% affect verbatim 2001-09-18 Nik Clayton * dbcompon.dsl, dbparam.dsl: Add $generate-article-lot-list$, initially empty, which controls what whether or not a list of titles is generated for articles. Currently HTML only. 2001-08-30 Norman Walsh * db31.dsl: Fix XML/SGML discrepancy wrt normalization of notation names; move some common stuff into dbcommon 2001-08-25 Norman Walsh * dbinline.dsl: Fix erroneous literals * dbsect.dsl: Bug #451005: no id anchor for bridgehead 2001-08-06 Norman Walsh * dbinline.dsl, dbparam.dsl: Support 'bold' and 'strong' roles on emphasis in the expected way, added %{emphasis,phrase}-propagates-style% parameters 2001-07-05 Norman Walsh * dbautoc.dsl, dbhtml.dsl: Patch #420730, use dingbat-sosofo instead of literal to create emdash * dbnavig.dsl: Patch #418401, add accesskey attributes to HTML navigation * dbparam.dsl: Patch #420012, Add colon to content-title-end-punct 2001-07-04 * docbook.dsl: Added Afrikaans and Turkish 2001-05-11 Norman Walsh * docbook.dsl: Support Serbian and Traditional Chinese 2001-05-04 Norman Walsh * dbprocdr.dsl: Support links to procedures and steps 2001-05-03 Jirka Kosek * dbinline.dsl: Attributes marked up by are now in monospace (same as in XSL and print DSSSL). 2001-04-21 Norman Walsh * dbblock.dsl: Output anchors for formalparas with IDs * dbinline.dsl: Bug #417697: workaround Netscape limitation with trade named entity. 2001-04-20 Norman Walsh * dbbibl.dsl: Make sure anchors are produced for bibliomixed elements 2001-04-18 Norman Walsh * dbinline.dsl, dbparam.dsl: Bug #413982, easy support for man page CGI links on citerefentry 2001-04-16 Norman Walsh * dbnavig.dsl: Added summary attribute to navigation tables 2001-04-04 Norman Walsh * Makefile: New file. 2001-04-03 Norman Walsh * db31.dsl: Fix bug 412548, allow WMF in media objects 2001-04-02 Norman Walsh * .cvsignore, catalog, db31.dsl, dbadmon.dsl, dbautoc.dsl, dbbibl.dsl, dbblock.dsl, dbcallou.dsl, dbchunk.dsl, dbcompon.dsl, dbdivis.dsl, dbefsyn.dsl, dbfootn.dsl, dbgloss.dsl, dbgraph.dsl, dbhtml.dsl, dbindex.dsl, dbinfo.dsl, dbinline.dsl, dblink.dsl, dblists.dsl, dblot.dsl, dbmath.dsl, dbmsgset.dsl, dbnavig.dsl, dbparam.dsl, dbpi.dsl, dbprocdr.dsl, dbrfntry.dsl, dbsect.dsl, dbsynop.dsl, dbtable.dsl, dbtitle.dsl, dbttlpg.dsl, dbverb.dsl, docbook.dsl, version.dsl: New file. docbook-dsssl-1.79/html/version.dsl0000644000175000001440000000066510074156115020044 0ustar msmithusers00000000000000;; $Id: version.dsl,v 1.2 2004/07/11 06:21:01 nyraghu Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://www.nwalsh.com/docbook/dsssl/ ;; ;; If **ANY** change is made to this file, you _MUST_ alter the ;; following definition: (define (stylesheet-version) (string-append "Modular DocBook HTML Stylesheet Version " ;; Trim off bounding white space. (strip "&VERSION;"))) docbook-dsssl-1.79/html/docbook.dsl0000644000175000001440000002362610132055414017774 0ustar msmithusers00000000000000 %dbl10n.ent; ]> ;; $Id: docbook.dsl,v 1.9 2004/10/09 21:36:35 petere78 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; (declare-flow-object-class element "UNREGISTERED::James Clark//Flow Object Class::element") (declare-flow-object-class empty-element "UNREGISTERED::James Clark//Flow Object Class::empty-element") (declare-flow-object-class document-type "UNREGISTERED::James Clark//Flow Object Class::document-type") (declare-flow-object-class processing-instruction "UNREGISTERED::James Clark//Flow Object Class::processing-instruction") (declare-flow-object-class entity "UNREGISTERED::James Clark//Flow Object Class::entity") (declare-flow-object-class entity-ref "UNREGISTERED::James Clark//Flow Object Class::entity-ref") (declare-flow-object-class formatting-instruction "UNREGISTERED::James Clark//Flow Object Class::formatting-instruction") (declare-characteristic preserve-sdata? "UNREGISTERED::James Clark//Characteristic::preserve-sdata?" #t) (define debug (external-procedure "UNREGISTERED::James Clark//Procedure::debug")) (define read-entity (external-procedure "UNREGISTERED::James Clark//Procedure::read-entity")) (define all-element-number (external-procedure "UNREGISTERED::James Clark//Procedure::all-element-number")) (root (make sequence ; (literal ; (debug (node-property 'gi ; (node-property 'document-element (current-node))))) ;(define (docelem node) ; (node-propety 'document-element ; (node-property 'grove-root node))) (process-children) (with-mode manifest (process-children)) (if html-index (with-mode htmlindex (process-children)) (empty-sosofo)))) (mode manifest ;; this mode is really just a hack to get at the root element (root (process-children)) (default (if (node-list=? (current-node) (sgml-root-element)) (if html-manifest (make entity system-id: (html-entity-file html-manifest-filename) (make sequence (let loop ((node (current-node))) (if (node-list-empty? node) (empty-sosofo) (make sequence (make formatting-instruction data: (html-file node)) (make formatting-instruction data: " ") (loop (next-chunk-element node))))) (let loop ((nl (select-elements (descendants (current-node)) (normalize "legalnotice")))) (if (node-list-empty? nl) (empty-sosofo) (make sequence (if (and %generate-legalnotice-link% (not nochunks) (first-sibling? (node-list-first nl)) ;; Hack: only book legal notices are diverted (have-ancestor? (normalize "bookinfo") (node-list-first nl))) (make sequence (make formatting-instruction data: ($legalnotice-link-file$ (node-list-first nl))) (make formatting-instruction data: " ")) (empty-sosofo)) (loop (node-list-rest nl))))))) (empty-sosofo)) (empty-sosofo)))) ;; Make text that comes from unimplemented tags easy to spot (default (make element gi: "FONT" attributes: '(("COLOR" "RED")) (process-children))) &dbcommon.dsl; &dbctable.dsl; &dbl10n.dsl; &dbadmon.dsl; &dbautoc.dsl; &dbbibl.dsl; &dbblock.dsl; &dbcallou.dsl; &dbcompon.dsl; &dbdivis.dsl; &dbfootn.dsl; &dbgloss.dsl; &dbgraph.dsl; &dbhtml.dsl; &dbindex.dsl; &dbinfo.dsl; &dbinline.dsl; &dblink.dsl; &dblists.dsl; &dblot.dsl; &dbmath.dsl; &dbmsgset.dsl; &dbnavig.dsl; &dbchunk.dsl; &dbpi.dsl; &dbprocdr.dsl; &dbqanda.dsl; &dbrfntry.dsl; &dbsect.dsl; &dbsynop.dsl; &dbefsyn.dsl; &dbtable.dsl; &dbtitle.dsl; &dbttlpg.dsl; &dbverb.dsl; &version.dsl; docbook-dsssl-1.79/html/dbverb.dsl0000644000175000001440000001561107611215256017625 0ustar msmithusers00000000000000;; $Id: dbverb.dsl,v 1.5 2003/01/15 08:24:14 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; (define ($inpre$) (let ((wrapper (ancestor-member (current-node) (list (normalize "address") (normalize "funcsynopsisinfo") (normalize "literallayout") (normalize "programlisting") (normalize "screen") (normalize "synopsis"))))) (if (or (and (equal? wrapper "literallayout") (not (equal? (attribute-string "class" wrapper) (normalize "monospaced")))) (equal? wrapper "address")) #f #t))) (define ($format-indent$ indent) ;; This code is made complex by the fact that we need an additional ;; wrapper and we have to translate spaces into nbsp entity-refs, ;; if we aren't in a PRE. ;; (if ($inpre$) (literal indent) (make element gi: "CODE" ($sp-to-nbsp-sosofo$ indent)))) (define ($format-linenumber$ linenumber) ;; This code is made complex by the fact that we need an additional ;; wrapper and we have to translate spaces into nbsp entity-refs, ;; if we aren't in a PRE. ;; (if (equal? (remainder linenumber %linenumber-mod%) 0) (if ($inpre$) (make sequence (literal (pad-string (format-number linenumber "1") %linenumber-length% %linenumber-padchar%)) ($linenumber-space$)) (make element gi: "CODE" ($sp-to-nbsp-sosofo$ (pad-string (format-number linenumber "1") %linenumber-length% %linenumber-padchar%)) ($linenumber-space$))) (if ($inpre$) (make sequence (literal (pad-string "" %linenumber-length% " ")) ($linenumber-space$)) (make element gi: "CODE" ($sp-to-nbsp-sosofo$ (pad-string "" %linenumber-length% " ")) ($linenumber-space$))))) (define ($line-start$ indent line-numbers? #!optional (line-number 1)) (make sequence (if indent ($format-indent$ indent) (empty-sosofo)) (if line-numbers? ($format-linenumber$ line-number) (empty-sosofo)))) (define ($sp-to-nbsp-sosofo$ string) ;; Given a string, return it as a sosofo, but replace spaces with ;; nbsp entity-refs. (make sequence (let loop ((charlist (string->list string)) (res (empty-sosofo))) (if (null? charlist) res (loop (cdr charlist) (let ((c (car charlist))) (if (equal? c #\ ) (sosofo-append res (make entity-ref name: "nbsp")) (sosofo-append res (literal (list->string (list c))))))))))) (define ($verbatim-display$ indent line-numbers?) (let ((content (make element gi: "PRE" attributes: (list (list "CLASS" (gi))) (if (or indent line-numbers?) ($verbatim-line-by-line$ indent line-numbers?) (process-children))))) (if %shade-verbatim% (make element gi: "TABLE" attributes: ($shade-verbatim-attr$) (make element gi: "TR" (make element gi: "TD" content))) (make sequence (para-check) content (para-check 'restart))))) (define ($verbatim-line-by-line$ indent line-numbers?) (let ((expanded-content ;; this is the content with ;; inlinemediaobject/imageobject[@format='linespecific'] ;; expanded (let loop ((kl (children (current-node))) (rl (empty-node-list))) (if (node-list-empty? kl) rl (if (equal? (gi (node-list-first kl)) (normalize "inlinemediaobject")) (let* ((imgobj (node-list-filter-by-gi (children (node-list-first kl)) (list (normalize "imageobject")))) (datobj (node-list-filter-by-gi (children imgobj) (list (normalize "imagedata"))))) (if (and (not (node-list-empty? imgobj)) (not (node-list-empty? datobj)) (equal? (attribute-string (normalize "format") datobj) (normalize "linespecific"))) (loop (node-list-rest kl) (node-list rl (string->nodes (include-characters (if (attribute-string (normalize "fileref") datobj) (attribute-string (normalize "fileref") datobj) (entity-generated-system-id (attribute-string (normalize "entityref") datobj))))))) (loop (node-list-rest kl) (node-list rl (node-list-first kl))))) (loop (node-list-rest kl) (node-list rl (node-list-first kl)))))))) (make sequence ($line-start$ indent line-numbers? 1) (let loop ((kl expanded-content) (linecount 1) (res (empty-sosofo))) (if (node-list-empty? kl) res (loop (node-list-rest kl) (if (char=? (node-property 'char (node-list-first kl) default: #\U-0000) #\U-000D) (+ linecount 1) linecount) (let ((c (node-list-first kl))) (if (char=? (node-property 'char c default: #\U-0000) #\U-000D) (sosofo-append res (process-node-list c) ($line-start$ indent line-numbers? (+ linecount 1))) (sosofo-append res (process-node-list c)))))))))) (define ($linespecific-display$ indent line-numbers?) (make element gi: "P" attributes: (list (list "CLASS" (gi))) (make sequence ($line-start$ indent line-numbers? 1) (let loop ((kl (children (current-node))) (linecount 1) (res (empty-sosofo))) (if (node-list-empty? kl) res (loop (node-list-rest kl) (if (char=? (node-property 'char (node-list-first kl) default: #\U-0000) #\U-000D) (+ linecount 1) linecount) (let ((c (node-list-first kl))) (if (char=? (node-property 'char c default: #\U-0000) #\U-000D) (sosofo-append res (make empty-element gi: "br") (process-node-list c) ($line-start$ indent line-numbers? (+ linecount 1))) (if (char=? (node-property 'char c default: #\U-0000) #\U-0020) (sosofo-append res (make entity-ref name: "nbsp")) (sosofo-append res (process-node-list c))))))))))) (element literallayout (if (equal? (attribute-string "class") (normalize "monospaced")) ($verbatim-display$ %indent-literallayout-lines% (or %number-literallayout-lines% (equal? (attribute-string (normalize "linenumbering")) (normalize "numbered")))) ($linespecific-display$ %indent-literallayout-lines% (or %number-literallayout-lines% (equal? (attribute-string (normalize "linenumbering")) (normalize "numbered")))))) (element address ($linespecific-display$ %indent-address-lines% (or %number-address-lines% (equal? (attribute-string (normalize "linenumbering")) (normalize "numbered"))))) (element programlisting ($verbatim-display$ %indent-programlisting-lines% (or %number-programlisting-lines% (equal? (attribute-string (normalize "linenumbering")) (normalize "numbered"))))) (element screen ($verbatim-display$ %indent-screen-lines% (or %number-screen-lines% (equal? (attribute-string (normalize "linenumbering")) (normalize "numbered"))))) (element screenshot (process-children)) (element screeninfo (empty-sosofo)) docbook-dsssl-1.79/html/dbttlpg.dsl0000644000175000001440000046724310132222013020012 0ustar msmithusers00000000000000;; $Id: dbttlpg.dsl,v 1.10 2004/10/10 11:55:10 petere78 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; (define (have-sibling? sibling-gi #!optional (node (current-node))) (let loop ((nl (children (parent node)))) (if (node-list-empty? nl) #f (if (equal? (gi (node-list-first nl)) sibling-gi) #t (loop (node-list-rest nl)))))) (define (titlepage-content? elements gis) (let giloop ((gilist gis)) (if (null? gilist) #f (if (not (node-list-empty? (node-list-filter-by-gi elements (list (car gilist))))) #t (giloop (cdr gilist)))))) (define (titlepage-gi-list-by-elements elements nodelist) ;; Elements is a list of GIs. Nodelist is a list of nodes. ;; This function returns all of the nodes in nodelist that ;; are in elements in the order they occur in elements. (let loop ((gilist elements) (rlist (empty-node-list))) (if (null? gilist) rlist (loop (cdr gilist) (node-list rlist (node-list-filter-by-gi nodelist (list (car gilist)))))))) (define (titlepage-gi-list-by-nodelist elements nodelist) ;; Elements is a list of GIs. Nodelist is a list of nodes. ;; This function returns all of the nodes in nodelist that ;; are in elements in the order they occur in nodelist. (let loop ((nl nodelist) (rlist (empty-node-list))) (if (node-list-empty? nl) rlist (if (member (gi (node-list-first nl)) elements) (loop (node-list-rest nl) (node-list rlist (node-list-first nl))) (loop (node-list-rest nl) rlist))))) (define (titlepage-nodelist elements nodelist) ;; We expand BOOKBIBLIO, BIBLIOMISC, and BIBLIOSET in the element ;; list because that level of wrapper usually isn't significant. (let ((exp-nodelist (expand-children nodelist (list (normalize "bookbiblio") (normalize "bibliomisc") (normalize "biblioset"))))) (if %titlepage-in-info-order% (titlepage-gi-list-by-nodelist elements exp-nodelist) (titlepage-gi-list-by-elements elements exp-nodelist)))) (define (titlepage-recto-legalnotice #!optional (node (current-node))) (let ((notices (select-elements (children (parent node)) (normalize "legalnotice"))) (copyrights (select-elements (children (parent node)) (normalize "copyright")))) (if (and %generate-legalnotice-link% (not nochunks)) ;; Divert the contents of legal to another file. It will be xref'd ;; from the Copyright. (if (first-sibling? node) (make sequence (make entity system-id: (html-entity-file ($legalnotice-link-file$ node)) (html-doctype) (make element gi: "HTML" (make element gi: "HEAD" ($standard-html-header$)) (make element gi: "BODY" attributes: %body-attr% (header-navigation node) ($semiformal-object$) (with-mode legal-notice-link-mode (process-node-list (node-list-rest notices))) (footer-navigation node)))) (if (node-list-empty? copyrights) (make element gi: "A" attributes: (list (list "HREF" ($legalnotice-link-file$ node))) (literal (gentext-element-name node))) (empty-sosofo))) (empty-sosofo)) ($semiformal-object$)))) (define (titlepage-recto-copyright #!optional (node (current-node))) (let ((years (select-elements (descendants node) (normalize "year"))) (holders (select-elements (descendants node) (normalize "holder"))) (legalnotice (select-elements (children (parent node)) (normalize "legalnotice")))) (make element gi: "P" attributes: (list (list "CLASS" (gi))) (if (and %generate-legalnotice-link% (not nochunks) (not (node-list-empty? legalnotice))) (make sequence (make element gi: "A" attributes: (list (list "HREF" ($legalnotice-link-file$ (node-list-first legalnotice)))) (literal (gentext-element-name (gi node)))) (literal " ") (dingbat-sosofo "copyright") (literal " ") (process-node-list years) (literal " ") (process-node-list holders)) (make sequence (literal (gentext-element-name (gi node))) (literal " ") (dingbat-sosofo "copyright") (literal " ") (process-node-list years) (literal " ") (process-node-list holders)))))) ;; == Title pages for SETs ============================================== (define (set-titlepage-recto-elements) (list (normalize "title") (normalize "subtitle") (normalize "graphic") (normalize "mediaobject") (normalize "corpauthor") (normalize "authorgroup") (normalize "author") (normalize "editor") (normalize "copyright") (normalize "legalnotice"))) (define (set-titlepage-verso-elements) '()) (define (set-titlepage-content? elements side) (titlepage-content? elements (if (equal? side 'recto) (set-titlepage-recto-elements) (set-titlepage-verso-elements)))) (define (set-titlepage elements #!optional (side 'recto)) (let ((nodelist (titlepage-nodelist (if (equal? side 'recto) (set-titlepage-recto-elements) (set-titlepage-verso-elements)) elements))) (if (set-titlepage-content? elements side) (make element gi: "DIV" attributes: '(("CLASS" "TITLEPAGE")) (let loop ((nl nodelist) (lastnode (empty-node-list))) (if (node-list-empty? nl) (empty-sosofo) (make sequence (if (or (node-list-empty? lastnode) (not (equal? (gi (node-list-first nl)) (gi lastnode)))) (set-titlepage-before (node-list-first nl) side) (empty-sosofo)) (cond ((equal? (gi (node-list-first nl)) (normalize "abbrev")) (set-titlepage-abbrev (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "abstract")) (set-titlepage-abstract (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "address")) (set-titlepage-address (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "affiliation")) (set-titlepage-affiliation (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "artpagenums")) (set-titlepage-artpagenums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "author")) (set-titlepage-author (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorblurb")) (set-titlepage-authorblurb (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorgroup")) (set-titlepage-authorgroup (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorinitials")) (set-titlepage-authorinitials (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "bibliomisc")) (set-titlepage-bibliomisc (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "biblioset")) (set-titlepage-biblioset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "bookbiblio")) (set-titlepage-bookbiblio (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "citetitle")) (set-titlepage-citetitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "collab")) (set-titlepage-collab (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "confgroup")) (set-titlepage-confgroup (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contractnum")) (set-titlepage-contractnum (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contractsponsor")) (set-titlepage-contractsponsor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contrib")) (set-titlepage-contrib (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "copyright")) (set-titlepage-recto-copyright (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "corpauthor")) (set-titlepage-corpauthor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "corpname")) (set-titlepage-corpname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "date")) (set-titlepage-date (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "edition")) (set-titlepage-edition (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "editor")) (set-titlepage-editor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "firstname")) (set-titlepage-firstname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "graphic")) (set-titlepage-graphic (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "honorific")) (set-titlepage-honorific (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "indexterm")) (set-titlepage-indexterm (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "invpartnumber")) (set-titlepage-invpartnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "isbn")) (set-titlepage-isbn (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "issn")) (set-titlepage-issn (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "issuenum")) (set-titlepage-issuenum (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "itermset")) (set-titlepage-itermset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "keywordset")) (set-titlepage-keywordset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "legalnotice")) (set-titlepage-recto-legalnotice (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "lineage")) (set-titlepage-lineage (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "mediaobject")) (set-titlepage-modespec (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "modespec")) (set-titlepage-modespec (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "orgname")) (set-titlepage-orgname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "othercredit")) (set-titlepage-othercredit (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "othername")) (set-titlepage-othername (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pagenums")) (set-titlepage-pagenums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "printhistory")) (set-titlepage-printhistory (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "productname")) (set-titlepage-productname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "productnumber")) (set-titlepage-productnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pubdate")) (set-titlepage-pubdate (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "publisher")) (set-titlepage-publisher (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "publishername")) (set-titlepage-publishername (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pubsnumber")) (set-titlepage-pubsnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "releaseinfo")) (set-titlepage-releaseinfo (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "revhistory")) (set-titlepage-revhistory (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "seriesinfo")) (set-titlepage-seriesinfo (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "seriesvolnums")) (set-titlepage-seriesvolnums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "subjectset")) (set-titlepage-subjectset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "subtitle")) (set-titlepage-subtitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "surname")) (set-titlepage-surname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "title")) (set-titlepage-title (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "titleabbrev")) (set-titlepage-titleabbrev (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "volumenum")) (set-titlepage-volumenum (node-list-first nl) side)) (else (set-titlepage-default (node-list-first nl) side))) (loop (node-list-rest nl) (node-list-first nl))))) (set-titlepage-separator side)) (empty-sosofo)))) (define (set-titlepage-separator side) (empty-sosofo)) (define (set-titlepage-before node side) (empty-sosofo)) (define (set-titlepage-default node side) (let ((foo (debug (string-append "No set-titlepage-* for " (gi node) "!")))) (empty-sosofo))) (define (set-titlepage-element node side) (if (equal? side 'recto) (with-mode set-titlepage-recto-mode (process-node-list node)) (with-mode set-titlepage-verso-mode (process-node-list node)))) (define (set-titlepage-abbrev node side) (set-titlepage-element node side)) (define (set-titlepage-abstract node side) (set-titlepage-element node side)) (define (set-titlepage-address node side) (set-titlepage-element node side)) (define (set-titlepage-affiliation node side) (set-titlepage-element node side)) (define (set-titlepage-artpagenums node side) (set-titlepage-element node side)) (define (set-titlepage-author node side) (set-titlepage-element node side)) (define (set-titlepage-authorblurb node side) (set-titlepage-element node side)) (define (set-titlepage-authorgroup node side) (set-titlepage-element node side)) (define (set-titlepage-authorinitials node side) (set-titlepage-element node side)) (define (set-titlepage-bibliomisc node side) (set-titlepage-element node side)) (define (set-titlepage-biblioset node side) (set-titlepage node side)) (define (set-titlepage-bookbiblio node side) (set-titlepage node side)) (define (set-titlepage-citetitle node side) (set-titlepage-element node side)) (define (set-titlepage-collab node side) (set-titlepage-element node side)) (define (set-titlepage-confgroup node side) (set-titlepage-element node side)) (define (set-titlepage-contractnum node side) (set-titlepage-element node side)) (define (set-titlepage-contractsponsor node side) (set-titlepage-element node side)) (define (set-titlepage-contrib node side) (set-titlepage-element node side)) (define (set-titlepage-recto-copyright node side) (set-titlepage-element node side)) (define (set-titlepage-corpauthor node side) (if (equal? side 'recto) (set-titlepage-element node side) (if (first-sibling? node) (make element gi: "P" attributes: (list (list "CLASS" (gi node))) (with-mode set-titlepage-verso-mode (process-node-list (select-elements (children (parent node)) (normalize "corpauthor"))))) (empty-sosofo)))) (define (set-titlepage-corpname node side) (set-titlepage-element node side)) (define (set-titlepage-date node side) (set-titlepage-element node side)) (define (set-titlepage-edition node side) (set-titlepage-element node side)) (define (set-titlepage-editor node side) (set-titlepage-element node side)) (define (set-titlepage-firstname node side) (set-titlepage-element node side)) (define (set-titlepage-graphic node side) (set-titlepage-element node side)) (define (set-titlepage-honorific node side) (set-titlepage-element node side)) (define (set-titlepage-indexterm node side) (set-titlepage-element node side)) (define (set-titlepage-invpartnumber node side) (set-titlepage-element node side)) (define (set-titlepage-isbn node side) (set-titlepage-element node side)) (define (set-titlepage-issn node side) (set-titlepage-element node side)) (define (set-titlepage-issuenum node side) (set-titlepage-element node side)) (define (set-titlepage-itermset node side) (set-titlepage-element node side)) (define (set-titlepage-keywordset node side) (set-titlepage-element node side)) (define (set-titlepage-recto-legalnotice node side) (set-titlepage-element node side)) (define (set-titlepage-lineage node side) (set-titlepage-element node side)) (define (set-titlepage-mediaobject node side) (set-titlepage-element node side)) (define (set-titlepage-modespec node side) (set-titlepage-element node side)) (define (set-titlepage-orgname node side) (set-titlepage-element node side)) (define (set-titlepage-othercredit node side) (set-titlepage-element node side)) (define (set-titlepage-othername node side) (set-titlepage-element node side)) (define (set-titlepage-pagenums node side) (set-titlepage-element node side)) (define (set-titlepage-printhistory node side) (set-titlepage-element node side)) (define (set-titlepage-productname node side) (set-titlepage-element node side)) (define (set-titlepage-productnumber node side) (set-titlepage-element node side)) (define (set-titlepage-pubdate node side) (set-titlepage-element node side)) (define (set-titlepage-publisher node side) (set-titlepage-element node side)) (define (set-titlepage-publishername node side) (set-titlepage-element node side)) (define (set-titlepage-pubsnumber node side) (set-titlepage-element node side)) (define (set-titlepage-releaseinfo node side) (set-titlepage-element node side)) (define (set-titlepage-revhistory node side) (set-titlepage-element node side)) (define (set-titlepage-seriesinfo node side) (set-titlepage-element node side)) (define (set-titlepage-seriesvolnums node side) (set-titlepage-element node side)) (define (set-titlepage-subjectset node side) (set-titlepage-element node side)) (define (set-titlepage-subtitle node side) (set-titlepage-element node side)) (define (set-titlepage-surname node side) (set-titlepage-element node side)) (define (set-titlepage-title node side) (set-titlepage-element node side)) (define (set-titlepage-titleabbrev node side) (set-titlepage-element node side)) (define (set-titlepage-volumenum node side) (set-titlepage-element node side)) (mode set-titlepage-recto-mode (element para (make element gi: "P" attributes: (list (list "CLASS" (gi))) (process-children))) (element abstract (make element gi: "DIV" ($semiformal-object$))) (element (abstract title) (empty-sosofo)) (element address (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (with-mode titlepage-address-mode ($linespecific-display$ %indent-address-lines% %number-address-lines%)))) (element author (let ((author-name (author-string)) (author-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (literal author-name))) (process-node-list author-affil)))) (element authorblurb (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element authorgroup (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (process-children)))) (element copyright (titlepage-recto-copyright)) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (empty-sosofo)))) (element (copyright holder) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (empty-sosofo)))) (element corpauthor (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (process-children))) (element edition (make element gi: "P" attributes: (list (list "CLASS" (gi))) (process-children) (make entity-ref name: "nbsp") (literal (gentext-element-name-space (gi (current-node)))))) (element editor (let ((editor-name (author-string))) (make sequence (if (first-sibling?) (make element gi: "H4" attributes: (list (list "CLASS" "EDITEDBY")) (literal (gentext-edited-by))) (empty-sosofo)) (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (literal editor-name))))) (element graphic (let* ((nd (current-node)) (fileref (attribute-string (normalize "fileref") nd)) (entattr (attribute-string (normalize "entityref") nd)) (entityref (if entattr (entity-system-id entattr) #f)) (format (attribute-string (normalize "format"))) (align (attribute-string (normalize "align"))) (attr (append (if align (list (list "ALIGN" align)) '()) (if entityref (list (list "SRC" (graphic-file entityref))) (list (list "SRC" (graphic-file fileref)))) (list (list "ALT" "")) ))) (if (or fileref entityref) (make empty-element gi: "IMG" attributes: attr) (empty-sosofo)))) (element legalnotice (titlepage-recto-legalnotice)) (element (legalnotice title) (empty-sosofo)) (element pubdate (make element gi: "P" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element publisher (make element gi: "P" attributes: (list (list "CLASS" (gi))) (process-children))) (element publishername (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element pubsnumber (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element releaseinfo (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element revhistory (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "TABLE" attributes: (list (list "WIDTH" ($table-width$)) (list "BORDER" "0")) (make sequence (make element gi: "TR" (make element gi: "TH" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("COLSPAN" "3")) (make element gi: "B" (literal (gentext-element-name (gi (current-node))))))) (process-children))))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (select-elements (descendants (current-node)) (normalize "revremark")))) (make sequence (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revnumber)) (make sequence (literal (gentext-element-name-space (gi (current-node)))) (process-node-list revnumber)) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revdate)) (process-node-list revdate) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revauthor)) (make sequence (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT") (list "COLSPAN" "3")) (if (not (node-list-empty? revremark)) (process-node-list revremark) (empty-sosofo))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element subtitle (make element gi: "H2" attributes: (list (list "CLASS" (gi))) (process-children-trim))) (element title (make element gi: "H1" attributes: (list (list "CLASS" (gi))) (make element gi: "A" attributes: (list (list "NAME" (element-id))) (with-mode title-mode (process-children-trim))))) (element (formalpara title) ($runinhead$)) ) (mode set-titlepage-verso-mode (element abstract ($semiformal-object$)) (element (abstract title) (empty-sosofo)) (element address (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (with-mode titlepage-address-mode ($linespecific-display$ %indent-address-lines% %number-address-lines%)))) (element author ;; Print the author name. Handle the case where there's no AUTHORGROUP (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (not in-group) (make element gi: "P" attributes: (list (list "CLASS" (gi))) (literal (gentext-by)) (make entity-ref name: "nbsp") (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (literal (author-list-string)))) (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (literal (author-list-string)))))) (element authorgroup (make element gi: "P" attributes: (list (list "CLASS" (gi))) (literal (gentext-by)) (make entity-ref name: "nbsp") (process-children-trim))) (element copyright (make element gi: "P" attributes: (list (list "CLASS" (gi))) (literal (gentext-element-name (current-node))) (make entity-ref name: "nbsp") (dingbat-sosofo "copyright") (make entity-ref name: "nbsp") (process-children))) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (literal " ")))) (element (copyright holder) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (empty-sosofo)))) (element corpauthor (make sequence (if (first-sibling?) (if (equal? (gi (parent (current-node))) (normalize "authorgroup")) (empty-sosofo) (literal (gentext-by) " ")) (literal ", ")) (process-children))) (element edition (make element gi: "P" (process-children) (make entity-ref name: "nbsp") (literal (gentext-element-name-space (gi (current-node)))))) (element editor ;; Print the editor name. (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (or #t (not in-group)) ; nevermind, always put out the Edited by (make element gi: "P" attributes: (list (list "CLASS" (gi))) (make sequence (literal (gentext-edited-by)) (make entity-ref name: "nbsp") (literal (author-string)))) (literal (author-string))))) (element legalnotice (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) ($semiformal-object$))) (element (legalnotice title) (empty-sosofo)) (element pubdate (make element gi: "P" attributes: (list (list "CLASS" (gi))) (literal (gentext-element-name-space (gi (current-node)))) (process-children))) (element revhistory (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "TABLE" attributes: (list (list "WIDTH" ($table-width$)) (list "BORDER" "0")) (make sequence (make element gi: "TR" (make element gi: "TH" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("COLSPAN" "3")) (make element gi: "B" (literal (gentext-element-name (gi (current-node))))))) (process-children))))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (select-elements (descendants (current-node)) (normalize "revremark")))) (make sequence (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revnumber)) (make sequence (literal (gentext-element-name-space (gi (current-node)))) (process-node-list revnumber)) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revdate)) (process-node-list revdate) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revauthor)) (make sequence (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT") (list "COLSPAN" "3")) (if (not (node-list-empty? revremark)) (process-node-list revremark) (empty-sosofo))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element subtitle (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (process-children))) (element title (make element gi: "H2" attributes: (list (list "CLASS" (gi))) (with-mode title-mode (process-children)))) (element (formalpara title) ($runinhead$)) ) ;; == Title pages for BOOKs ============================================= (define (book-titlepage-recto-elements) (list (normalize "title") (normalize "subtitle") (normalize "graphic") (normalize "mediaobject") (normalize "corpauthor") (normalize "authorgroup") (normalize "author") (normalize "editor") (normalize "copyright") (normalize "abstract") (normalize "legalnotice"))) (define (book-titlepage-verso-elements) '()) (define (book-titlepage-content? elements side) (titlepage-content? elements (if (equal? side 'recto) (book-titlepage-recto-elements) (book-titlepage-verso-elements)))) (define (book-titlepage elements #!optional (side 'recto)) (let ((nodelist (titlepage-nodelist (if (equal? side 'recto) (book-titlepage-recto-elements) (book-titlepage-verso-elements)) elements))) (if (book-titlepage-content? elements side) (make element gi: "DIV" attributes: '(("CLASS" "TITLEPAGE")) (let loop ((nl nodelist) (lastnode (empty-node-list))) (if (node-list-empty? nl) (empty-sosofo) (make sequence (if (or (node-list-empty? lastnode) (not (equal? (gi (node-list-first nl)) (gi lastnode)))) (book-titlepage-before (node-list-first nl) side) (empty-sosofo)) (cond ((equal? (gi (node-list-first nl)) (normalize "abbrev")) (book-titlepage-abbrev (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "abstract")) (book-titlepage-abstract (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "address")) (book-titlepage-address (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "affiliation")) (book-titlepage-affiliation (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "artpagenums")) (book-titlepage-artpagenums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "author")) (book-titlepage-author (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorblurb")) (book-titlepage-authorblurb (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorgroup")) (book-titlepage-authorgroup (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorinitials")) (book-titlepage-authorinitials (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "bibliomisc")) (book-titlepage-bibliomisc (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "biblioset")) (book-titlepage-biblioset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "bookbiblio")) (book-titlepage-bookbiblio (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "citetitle")) (book-titlepage-citetitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "collab")) (book-titlepage-collab (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "confgroup")) (book-titlepage-confgroup (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contractnum")) (book-titlepage-contractnum (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contractsponsor")) (book-titlepage-contractsponsor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contrib")) (book-titlepage-contrib (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "copyright")) (book-titlepage-recto-copyright (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "corpauthor")) (book-titlepage-corpauthor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "corpname")) (book-titlepage-corpname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "date")) (book-titlepage-date (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "edition")) (book-titlepage-edition (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "editor")) (book-titlepage-editor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "firstname")) (book-titlepage-firstname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "graphic")) (book-titlepage-graphic (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "honorific")) (book-titlepage-honorific (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "indexterm")) (book-titlepage-indexterm (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "invpartnumber")) (book-titlepage-invpartnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "isbn")) (book-titlepage-isbn (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "issn")) (book-titlepage-issn (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "issuenum")) (book-titlepage-issuenum (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "itermset")) (book-titlepage-itermset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "keywordset")) (book-titlepage-keywordset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "legalnotice")) (book-titlepage-recto-legalnotice (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "lineage")) (book-titlepage-lineage (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "mediaobject")) (book-titlepage-mediaobject (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "modespec")) (book-titlepage-modespec (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "orgname")) (book-titlepage-orgname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "othercredit")) (book-titlepage-othercredit (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "othername")) (book-titlepage-othername (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pagenums")) (book-titlepage-pagenums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "printhistory")) (book-titlepage-printhistory (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "productname")) (book-titlepage-productname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "productnumber")) (book-titlepage-productnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pubdate")) (book-titlepage-pubdate (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "publisher")) (book-titlepage-publisher (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "publishername")) (book-titlepage-publishername (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pubsnumber")) (book-titlepage-pubsnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "releaseinfo")) (book-titlepage-releaseinfo (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "revhistory")) (book-titlepage-revhistory (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "seriesinfo")) (book-titlepage-seriesinfo (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "seriesvolnums")) (book-titlepage-seriesvolnums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "subjectset")) (book-titlepage-subjectset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "subtitle")) (book-titlepage-subtitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "surname")) (book-titlepage-surname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "title")) (book-titlepage-title (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "titleabbrev")) (book-titlepage-titleabbrev (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "volumenum")) (book-titlepage-volumenum (node-list-first nl) side)) (else (book-titlepage-default (node-list-first nl) side))) (loop (node-list-rest nl) (node-list-first nl))))) (book-titlepage-separator side)) (empty-sosofo)))) (define (book-titlepage-separator side) (if (equal? side 'recto) (make empty-element gi: "HR") (empty-sosofo))) (define (book-titlepage-before node side) (empty-sosofo)) (define (book-titlepage-default node side) (let ((foo (debug (string-append "No book-titlepage-* for " (gi node) "!")))) (empty-sosofo))) (define (book-titlepage-element node side) (if (equal? side 'recto) (with-mode book-titlepage-recto-mode (process-node-list node)) (with-mode book-titlepage-verso-mode (process-node-list node)))) (define (book-titlepage-abbrev node side) (book-titlepage-element node side)) (define (book-titlepage-abstract node side) (book-titlepage-element node side)) (define (book-titlepage-address node side) (book-titlepage-element node side)) (define (book-titlepage-affiliation node side) (book-titlepage-element node side)) (define (book-titlepage-artpagenums node side) (book-titlepage-element node side)) (define (book-titlepage-author node side) (book-titlepage-element node side)) (define (book-titlepage-authorblurb node side) (book-titlepage-element node side)) (define (book-titlepage-authorgroup node side) (book-titlepage-element node side)) (define (book-titlepage-authorinitials node side) (book-titlepage-element node side)) (define (book-titlepage-bibliomisc node side) (book-titlepage-element node side)) (define (book-titlepage-biblioset node side) (book-titlepage node side)) (define (book-titlepage-bookbiblio node side) (book-titlepage node side)) (define (book-titlepage-citetitle node side) (book-titlepage-element node side)) (define (book-titlepage-collab node side) (book-titlepage-element node side)) (define (book-titlepage-confgroup node side) (book-titlepage-element node side)) (define (book-titlepage-contractnum node side) (book-titlepage-element node side)) (define (book-titlepage-contractsponsor node side) (book-titlepage-element node side)) (define (book-titlepage-contrib node side) (book-titlepage-element node side)) (define (book-titlepage-recto-copyright node side) (book-titlepage-element node side)) (define (book-titlepage-corpauthor node side) (if (equal? side 'recto) (book-titlepage-element node side) (if (first-sibling? node) (make element gi: "P" attributes: (list (list "CLASS" (gi node))) (with-mode book-titlepage-verso-mode (process-node-list (select-elements (children (parent node)) (normalize "corpauthor"))))) (empty-sosofo)))) (define (book-titlepage-corpname node side) (book-titlepage-element node side)) (define (book-titlepage-date node side) (book-titlepage-element node side)) (define (book-titlepage-edition node side) (book-titlepage-element node side)) (define (book-titlepage-editor node side) (book-titlepage-element node side)) (define (book-titlepage-firstname node side) (book-titlepage-element node side)) (define (book-titlepage-graphic node side) (book-titlepage-element node side)) (define (book-titlepage-honorific node side) (book-titlepage-element node side)) (define (book-titlepage-indexterm node side) (book-titlepage-element node side)) (define (book-titlepage-invpartnumber node side) (book-titlepage-element node side)) (define (book-titlepage-isbn node side) (book-titlepage-element node side)) (define (book-titlepage-issn node side) (book-titlepage-element node side)) (define (book-titlepage-issuenum node side) (book-titlepage-element node side)) (define (book-titlepage-itermset node side) (book-titlepage-element node side)) (define (book-titlepage-keywordset node side) (book-titlepage-element node side)) (define (book-titlepage-recto-legalnotice node side) (book-titlepage-element node side)) (define (book-titlepage-lineage node side) (book-titlepage-element node side)) (define (book-titlepage-mediaobject node side) (book-titlepage-element node side)) (define (book-titlepage-modespec node side) (book-titlepage-element node side)) (define (book-titlepage-orgname node side) (book-titlepage-element node side)) (define (book-titlepage-othercredit node side) (book-titlepage-element node side)) (define (book-titlepage-othername node side) (book-titlepage-element node side)) (define (book-titlepage-pagenums node side) (book-titlepage-element node side)) (define (book-titlepage-printhistory node side) (book-titlepage-element node side)) (define (book-titlepage-productname node side) (book-titlepage-element node side)) (define (book-titlepage-productnumber node side) (book-titlepage-element node side)) (define (book-titlepage-pubdate node side) (book-titlepage-element node side)) (define (book-titlepage-publisher node side) (book-titlepage-element node side)) (define (book-titlepage-publishername node side) (book-titlepage-element node side)) (define (book-titlepage-pubsnumber node side) (book-titlepage-element node side)) (define (book-titlepage-releaseinfo node side) (book-titlepage-element node side)) (define (book-titlepage-revhistory node side) (book-titlepage-element node side)) (define (book-titlepage-seriesinfo node side) (book-titlepage-element node side)) (define (book-titlepage-seriesvolnums node side) (book-titlepage-element node side)) (define (book-titlepage-subjectset node side) (book-titlepage-element node side)) (define (book-titlepage-subtitle node side) (book-titlepage-element node side)) (define (book-titlepage-surname node side) (book-titlepage-element node side)) (define (book-titlepage-title node side) (book-titlepage-element node side)) (define (book-titlepage-titleabbrev node side) (book-titlepage-element node side)) (define (book-titlepage-volumenum node side) (book-titlepage-element node side)) (mode titlepage-address-mode (default (process-children)) (element email ($code-seq$ (make sequence (literal "<") (make element gi: "A" attributes: (list (list "HREF" (string-append "mailto:" (data (current-node))))) (process-children)) (literal ">"))))) (mode book-titlepage-recto-mode (element abbrev (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element abstract (make element gi: "DIV" ($semiformal-object$))) (element (abstract title) (empty-sosofo)) (element address (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (with-mode titlepage-address-mode ($linespecific-display$ %indent-address-lines% %number-address-lines%)))) (element affiliation (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element artpagenums (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element author (let ((author-name (author-string)) (author-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (literal author-name))) (process-node-list author-affil)))) (element authorblurb (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element authorgroup (process-children)) (element authorinitials (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element bibliomisc (process-children)) (element bibliomset (process-children)) (element collab (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element confgroup (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element contractnum (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element contractsponsor (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element contrib (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element copyright (titlepage-recto-copyright)) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (empty-sosofo)))) (element (copyright holder) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (empty-sosofo)))) (element corpauthor (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (process-children))) (element corpname (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element date (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element edition (make element gi: "P" attributes: (list (list "CLASS" (gi))) (process-children) (make entity-ref name: "nbsp") (literal (gentext-element-name-space (gi (current-node)))))) (element editor (let ((editor-name (author-string))) (make sequence (if (first-sibling?) (make element gi: "H4" attributes: (list (list "CLASS" "EDITEDBY")) (literal (gentext-edited-by))) (empty-sosofo)) (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (literal editor-name))))) (element firstname (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element graphic (let* ((nd (current-node)) (fileref (attribute-string (normalize "fileref") nd)) (entattr (attribute-string (normalize "entityref") nd)) (entityref (if entattr (entity-system-id entattr) #f)) (format (attribute-string (normalize "format"))) (align (attribute-string (normalize "align"))) (attr (append (if align (list (list "ALIGN" align)) '()) (if entityref (list (list "SRC" (graphic-file entityref))) (list (list "SRC" (graphic-file fileref)))) (list (list "ALT" "")) ))) (if (or fileref entityref) (make empty-element gi: "IMG" attributes: attr) (empty-sosofo)))) (element honorific (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element isbn (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element issn (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element itermset (empty-sosofo)) (element invpartnumber (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element issuenum (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element jobtitle (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element keywordset (empty-sosofo)) (element legalnotice (titlepage-recto-legalnotice)) (element (legalnotice title) (empty-sosofo)) (element lineage (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element modespec (empty-sosofo)) (element orgdiv (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element orgname (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element othercredit (let ((author-name (author-string)) (author-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (literal author-name))) (process-node-list author-affil)))) (element othername (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element pagenums (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element printhistory (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element productname (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element productnumber (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element pubdate (make element gi: "P" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element publisher (make element gi: "P" attributes: (list (list "CLASS" (gi))) (process-children))) (element publishername (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element pubsnumber (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element releaseinfo (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element revhistory (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "TABLE" attributes: (list (list "WIDTH" ($table-width$)) (list "BORDER" "0")) (make sequence (make element gi: "TR" (make element gi: "TH" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("COLSPAN" "3")) (make element gi: "B" (literal (gentext-element-name (gi (current-node))))))) (process-children))))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (select-elements (descendants (current-node)) (normalize "revremark")))) (make sequence (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revnumber)) (make sequence (literal (gentext-element-name-space (gi (current-node)))) (process-node-list revnumber)) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revdate)) (process-node-list revdate) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revauthor)) (make sequence (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT") (list "COLSPAN" "3")) (if (not (node-list-empty? revremark)) (process-node-list revremark) (empty-sosofo))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element seriesvolnums (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element shortaffil (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element subjectset (empty-sosofo)) (element subtitle (make element gi: "H2" attributes: (list (list "CLASS" (gi))) (process-children-trim))) (element surname (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element title (make element gi: "H1" attributes: (list (list "CLASS" (gi))) (make element gi: "A" attributes: (list (list "NAME" (element-id))) (with-mode title-mode (process-children-trim))))) (element (formalpara title) ($runinhead$)) (element titleabbrev (empty-sosofo)) (element volumenum (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) ) (mode book-titlepage-verso-mode (element abbrev (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element abstract (make element gi: "DIV" ($semiformal-object$))) (element (abstract title) (empty-sosofo)) (element address (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (with-mode titlepage-address-mode ($linespecific-display$ %indent-address-lines% %number-address-lines%)))) (element affiliation (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element artpagenums (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element author ;; Print the author name. Handle the case where there's no AUTHORGROUP (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (not in-group) (make element gi: "P" attributes: (list (list "CLASS" (gi))) (literal (gentext-by)) (make entity-ref name: "nbsp") (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (literal (author-list-string)))) (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (literal (author-list-string)))))) (element authorblurb (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element authorgroup (make element gi: "P" attributes: (list (list "CLASS" (gi))) (literal (gentext-by)) (make entity-ref name: "nbsp") (process-children-trim))) (element authorinitials (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element bibliomisc (process-children)) (element bibliomset (process-children)) (element collab (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element confgroup (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element contractnum (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element contractsponsor (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element contrib (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element copyright (make element gi: "P" attributes: (list (list "CLASS" (gi))) (literal (gentext-element-name (current-node))) (make entity-ref name: "nbsp") (dingbat-sosofo "copyright") (make entity-ref name: "nbsp") (process-children))) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (literal " ")))) (element (copyright holder) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (empty-sosofo)))) (element corpauthor (make sequence (if (first-sibling?) (if (equal? (gi (parent (current-node))) (normalize "authorgroup")) (empty-sosofo) (literal (gentext-by) " ")) (literal ", ")) (process-children))) (element corpname (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element date (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element edition (make element gi: "P" (process-children) (make entity-ref name: "nbsp") (literal (gentext-element-name-space (gi (current-node)))))) (element editor ;; Print the editor name. (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (or #t (not in-group)) ; nevermind, always put out the Edited by (make element gi: "P" attributes: (list (list "CLASS" (gi))) (make sequence (literal (gentext-edited-by)) (make entity-ref name: "nbsp") (literal (author-string)))) (literal (author-string))))) (element firstname (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element graphic (let* ((nd (current-node)) (fileref (attribute-string (normalize "fileref") nd)) (entattr (attribute-string (normalize "entityref") nd)) (entityref (if entattr (entity-system-id entattr) #f)) (format (attribute-string (normalize "format"))) (align (attribute-string (normalize "align"))) (attr (append (if align (list (list "ALIGN" align)) '()) (if entityref (list (list "SRC" (graphic-file entityref))) (list (list "SRC" (graphic-file fileref)))) (list (list "ALT" "")) ))) (if (or fileref entityref) (make empty-element gi: "IMG" attributes: attr) (empty-sosofo)))) (element honorific (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element isbn (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element issn (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element itermset (empty-sosofo)) (element invpartnumber (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element issuenum (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element jobtitle (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element keywordset (empty-sosofo)) (element legalnotice (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) ($semiformal-object$))) (element (legalnotice title) (empty-sosofo)) (element lineage (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element modespec (empty-sosofo)) (element orgdiv (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element orgname (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element othercredit (let ((author-name (author-string)) (author-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (literal author-name))) (process-node-list author-affil)))) (element othername (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element pagenums (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element printhistory (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element productname (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element productnumber (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element pubdate (make element gi: "P" attributes: (list (list "CLASS" (gi))) (literal (gentext-element-name-space (gi (current-node)))) (process-children))) (element publisher (make element gi: "P" attributes: (list (list "CLASS" (gi))) (process-children))) (element publishername (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element pubsnumber (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element releaseinfo (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element revhistory (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "TABLE" attributes: (list (list "WIDTH" ($table-width$)) (list "BORDER" "0")) (make sequence (make element gi: "TR" (make element gi: "TH" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("COLSPAN" "3")) (make element gi: "B" (literal (gentext-element-name (gi (current-node))))))) (process-children))))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (select-elements (descendants (current-node)) (normalize "revremark")))) (make sequence (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revnumber)) (make sequence (literal (gentext-element-name-space (gi (current-node)))) (process-node-list revnumber)) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revdate)) (process-node-list revdate) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revauthor)) (make sequence (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT") (list "COLSPAN" "3")) (if (not (node-list-empty? revremark)) (process-node-list revremark) (empty-sosofo))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element seriesvolnums (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element shortaffil (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element subjectset (empty-sosofo)) (element subtitle (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (process-children))) (element surname (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element title (make element gi: "H2" attributes: (list (list "CLASS" (gi))) (with-mode title-mode (process-children)))) (element (formalpara title) ($runinhead$)) (element titleabbrev (empty-sosofo)) (element volumenum (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) ) (mode legal-notice-link-mode (element legalnotice ($semiformal-object$))) ;; == Title pages for PARTs ============================================= (define (part-titlepage-recto-elements) (list (normalize "title") (normalize "subtitle"))) (define (part-titlepage-verso-elements) '()) (define (part-titlepage-content? elements side) (titlepage-content? elements (if (equal? side 'recto) (part-titlepage-recto-elements) (part-titlepage-verso-elements)))) (define (part-titlepage elements #!optional (side 'recto)) (let ((nodelist (titlepage-nodelist (if (equal? side 'recto) (part-titlepage-recto-elements) (part-titlepage-verso-elements)) elements)) ;; partintro is a special case... (partintro (node-list-first (node-list-filter-by-gi elements (list (normalize "partintro")))))) (if (part-titlepage-content? elements side) (make element gi: "DIV" attributes: '(("CLASS" "TITLEPAGE")) (let loop ((nl nodelist) (lastnode (empty-node-list))) (if (node-list-empty? nl) (empty-sosofo) (make sequence (if (or (node-list-empty? lastnode) (not (equal? (gi (node-list-first nl)) (gi lastnode)))) (part-titlepage-before (node-list-first nl) side) (empty-sosofo)) (cond ((equal? (gi (node-list-first nl)) (normalize "abbrev")) (part-titlepage-abbrev (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "abstract")) (part-titlepage-abstract (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "address")) (part-titlepage-address (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "affiliation")) (part-titlepage-affiliation (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "artpagenums")) (part-titlepage-artpagenums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "author")) (part-titlepage-author (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorblurb")) (part-titlepage-authorblurb (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorgroup")) (part-titlepage-authorgroup (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorinitials")) (part-titlepage-authorinitials (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "bibliomisc")) (part-titlepage-bibliomisc (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "biblioset")) (part-titlepage-biblioset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "bookbiblio")) (part-titlepage-bookbiblio (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "citetitle")) (part-titlepage-citetitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "collab")) (part-titlepage-collab (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "confgroup")) (part-titlepage-confgroup (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contractnum")) (part-titlepage-contractnum (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contractsponsor")) (part-titlepage-contractsponsor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contrib")) (part-titlepage-contrib (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "copyright")) (part-titlepage-recto-copyright (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "corpauthor")) (part-titlepage-corpauthor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "corpname")) (part-titlepage-corpname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "date")) (part-titlepage-date (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "edition")) (part-titlepage-edition (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "editor")) (part-titlepage-editor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "firstname")) (part-titlepage-firstname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "graphic")) (part-titlepage-graphic (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "honorific")) (part-titlepage-honorific (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "indexterm")) (part-titlepage-indexterm (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "invpartnumber")) (part-titlepage-invpartnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "isbn")) (part-titlepage-isbn (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "issn")) (part-titlepage-issn (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "issuenum")) (part-titlepage-issuenum (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "itermset")) (part-titlepage-itermset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "keywordset")) (part-titlepage-keywordset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "legalnotice")) (part-titlepage-recto-legalnotice (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "lineage")) (part-titlepage-lineage (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "mediaobject")) (part-titlepage-mediaobject (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "modespec")) (part-titlepage-modespec (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "orgname")) (part-titlepage-orgname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "othercredit")) (part-titlepage-othercredit (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "othername")) (part-titlepage-othername (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pagenums")) (part-titlepage-pagenums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "printhistory")) (part-titlepage-printhistory (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "productname")) (part-titlepage-productname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "productnumber")) (part-titlepage-productnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pubdate")) (part-titlepage-pubdate (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "publisher")) (part-titlepage-publisher (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "publishername")) (part-titlepage-publishername (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pubsnumber")) (part-titlepage-pubsnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "releaseinfo")) (part-titlepage-releaseinfo (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "revhistory")) (part-titlepage-revhistory (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "seriesinfo")) (part-titlepage-seriesinfo (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "seriesvolnums")) (part-titlepage-seriesvolnums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "subjectset")) (part-titlepage-subjectset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "subtitle")) (part-titlepage-subtitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "surname")) (part-titlepage-surname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "title")) (part-titlepage-title (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "titleabbrev")) (part-titlepage-titleabbrev (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "volumenum")) (part-titlepage-volumenum (node-list-first nl) side)) (else (part-titlepage-default (node-list-first nl) side))) (loop (node-list-rest nl) (node-list-first nl))))) ;; PartIntro is a special case (if (and (equal? side 'recto) (not (node-list-empty? partintro)) %generate-partintro-on-titlepage%) ($process-partintro$ partintro) (empty-sosofo)) (if (and %generate-part-toc% %generate-part-toc-on-titlepage% (equal? side 'recto)) (make display-group (build-toc (current-node) (toc-depth (current-node)))) (empty-sosofo)) (part-titlepage-separator side)) (empty-sosofo)))) (define (part-titlepage-separator side) (empty-sosofo)) (define (part-titlepage-before node side) (empty-sosofo)) (define (part-titlepage-default node side) (let ((foo (debug (string-append "No part-titlepage-* for " (gi node) "!")))) (empty-sosofo))) (define (part-titlepage-element node side) (if (equal? side 'recto) (with-mode part-titlepage-recto-mode (process-node-list node)) (with-mode part-titlepage-verso-mode (process-node-list node)))) (define (part-titlepage-abbrev node side) (part-titlepage-element node side)) (define (part-titlepage-abstract node side) (part-titlepage-element node side)) (define (part-titlepage-address node side) (part-titlepage-element node side)) (define (part-titlepage-affiliation node side) (part-titlepage-element node side)) (define (part-titlepage-artpagenums node side) (part-titlepage-element node side)) (define (part-titlepage-author node side) (part-titlepage-element node side)) (define (part-titlepage-authorblurb node side) (part-titlepage-element node side)) (define (part-titlepage-authorgroup node side) (part-titlepage-element node side)) (define (part-titlepage-authorinitials node side) (part-titlepage-element node side)) (define (part-titlepage-bibliomisc node side) (part-titlepage-element node side)) (define (part-titlepage-biblioset node side) (part-titlepage node side)) (define (part-titlepage-bookbiblio node side) (part-titlepage node side)) (define (part-titlepage-citetitle node side) (part-titlepage-element node side)) (define (part-titlepage-collab node side) (part-titlepage-element node side)) (define (part-titlepage-confgroup node side) (part-titlepage-element node side)) (define (part-titlepage-contractnum node side) (part-titlepage-element node side)) (define (part-titlepage-contractsponsor node side) (part-titlepage-element node side)) (define (part-titlepage-contrib node side) (part-titlepage-element node side)) (define (part-titlepage-recto-copyright node side) (part-titlepage-element node side)) (define (part-titlepage-corpauthor node side) (part-titlepage-element node side)) (define (part-titlepage-corpname node side) (part-titlepage-element node side)) (define (part-titlepage-date node side) (part-titlepage-element node side)) (define (part-titlepage-edition node side) (part-titlepage-element node side)) (define (part-titlepage-editor node side) (part-titlepage-element node side)) (define (part-titlepage-firstname node side) (part-titlepage-element node side)) (define (part-titlepage-graphic node side) (part-titlepage-element node side)) (define (part-titlepage-honorific node side) (part-titlepage-element node side)) (define (part-titlepage-indexterm node side) (part-titlepage-element node side)) (define (part-titlepage-invpartnumber node side) (part-titlepage-element node side)) (define (part-titlepage-isbn node side) (part-titlepage-element node side)) (define (part-titlepage-issn node side) (part-titlepage-element node side)) (define (part-titlepage-issuenum node side) (part-titlepage-element node side)) (define (part-titlepage-itermset node side) (part-titlepage-element node side)) (define (part-titlepage-keywordset node side) (part-titlepage-element node side)) (define (part-titlepage-recto-legalnotice node side) (part-titlepage-element node side)) (define (part-titlepage-lineage node side) (part-titlepage-element node side)) (define (part-titlepage-mediaobject node side) (part-titlepage-element node side)) (define (part-titlepage-modespec node side) (part-titlepage-element node side)) (define (part-titlepage-orgname node side) (part-titlepage-element node side)) (define (part-titlepage-othercredit node side) (part-titlepage-element node side)) (define (part-titlepage-othername node side) (part-titlepage-element node side)) (define (part-titlepage-pagenums node side) (part-titlepage-element node side)) (define (part-titlepage-partintro node side) (part-titlepage-element node side)) (define (part-titlepage-printhistory node side) (part-titlepage-element node side)) (define (part-titlepage-productname node side) (part-titlepage-element node side)) (define (part-titlepage-productnumber node side) (part-titlepage-element node side)) (define (part-titlepage-pubdate node side) (part-titlepage-element node side)) (define (part-titlepage-publisher node side) (part-titlepage-element node side)) (define (part-titlepage-publishername node side) (part-titlepage-element node side)) (define (part-titlepage-pubsnumber node side) (part-titlepage-element node side)) (define (part-titlepage-releaseinfo node side) (part-titlepage-element node side)) (define (part-titlepage-revhistory node side) (part-titlepage-element node side)) (define (part-titlepage-seriesinfo node side) (part-titlepage-element node side)) (define (part-titlepage-seriesvolnums node side) (part-titlepage-element node side)) (define (part-titlepage-subjectset node side) (part-titlepage-element node side)) (define (part-titlepage-subtitle node side) (part-titlepage-element node side)) (define (part-titlepage-surname node side) (part-titlepage-element node side)) (define (part-titlepage-title node side) (part-titlepage-element node side)) (define (part-titlepage-titleabbrev node side) (part-titlepage-element node side)) (define (part-titlepage-volumenum node side) (part-titlepage-element node side)) (mode part-titlepage-recto-mode (element para (make element gi: "P" attributes: (list (list "CLASS" (gi))) (process-children))) (element abstract (make element gi: "DIV" ($semiformal-object$))) (element (abstract title) (empty-sosofo)) (element address (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (with-mode titlepage-address-mode ($linespecific-display$ %indent-address-lines% %number-address-lines%)))) (element author (let ((author-name (author-string)) (author-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (literal author-name))) (process-node-list author-affil)))) (element authorblurb (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element authorgroup (process-children)) (element copyright (titlepage-recto-copyright)) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (empty-sosofo)))) (element (copyright holder) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (empty-sosofo)))) (element corpauthor (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (process-children))) (element edition (make element gi: "P" attributes: (list (list "CLASS" (gi))) (process-children) (make entity-ref name: "nbsp") (literal (gentext-element-name-space (gi (current-node)))))) (element editor (let ((editor-name (author-string))) (make sequence (if (first-sibling?) (make element gi: "H4" attributes: (list (list "CLASS" "EDITEDBY")) (literal (gentext-edited-by))) (empty-sosofo)) (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (literal editor-name))))) (element graphic (let* ((nd (current-node)) (fileref (attribute-string (normalize "fileref") nd)) (entattr (attribute-string (normalize "entityref") nd)) (entityref (if entattr (entity-system-id entattr) #f)) (format (attribute-string (normalize "format"))) (align (attribute-string (normalize "align"))) (attr (append (if align (list (list "ALIGN" align)) '()) (if entityref (list (list "SRC" (graphic-file entityref))) (list (list "SRC" (graphic-file fileref)))) (list (list "ALT" "")) ))) (if (or fileref entityref) (make empty-element gi: "IMG" attributes: attr) (empty-sosofo)))) (element legalnotice (titlepage-recto-legalnotice)) (element (legalnotice title) (empty-sosofo)) (element revhistory (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "TABLE" attributes: (list (list "WIDTH" ($table-width$)) (list "BORDER" "0")) (make sequence (make element gi: "TR" (make element gi: "TH" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("COLSPAN" "3")) (make element gi: "B" (literal (gentext-element-name (gi (current-node))))))) (process-children))))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (select-elements (descendants (current-node)) (normalize "revremark")))) (make sequence (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revnumber)) (make sequence (literal (gentext-element-name-space (gi (current-node)))) (process-node-list revnumber)) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revdate)) (process-node-list revdate) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revauthor)) (make sequence (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT") (list "COLSPAN" "3")) (if (not (node-list-empty? revremark)) (process-node-list revremark) (empty-sosofo))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element subtitle (make element gi: "H2" attributes: (list (list "CLASS" (gi))) (process-children-trim))) (element title (let ((division (ancestor-member (current-node) (division-element-list)))) (make element gi: "H1" attributes: (list (list "CLASS" (gi))) (if (string=? (element-label division) "") (empty-sosofo) (literal (element-label division) (gentext-label-title-sep (gi division)))) (with-mode title-mode (process-children))))) (element (formalpara title) ($runinhead$)) ) (mode part-titlepage-verso-mode (element abstract ($semiformal-object$)) (element (abstract title) (empty-sosofo)) (element address (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (with-mode titlepage-address-mode ($linespecific-display$ %indent-address-lines% %number-address-lines%)))) (element author ;; Print the author name. Handle the case where there's no AUTHORGROUP (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (not in-group) (make element gi: "P" attributes: (list (list "CLASS" (gi))) (literal (gentext-by)) (make entity-ref name: "nbsp") (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (literal (author-list-string)))) (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (literal (author-list-string)))))) (element authorgroup (make element gi: "P" attributes: (list (list "CLASS" (gi))) (literal (gentext-by)) (make entity-ref name: "nbsp") (process-children-trim))) (element copyright (make element gi: "P" attributes: (list (list "CLASS" (gi))) (literal (gentext-element-name (current-node))) (make entity-ref name: "nbsp") (dingbat-sosofo "copyright") (make entity-ref name: "nbsp") (process-children))) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (literal " ")))) (element (copyright holder) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (empty-sosofo)))) (element corpauthor (make sequence (if (first-sibling?) (if (equal? (gi (parent (current-node))) (normalize "authorgroup")) (empty-sosofo) (literal (gentext-by) " ")) (literal ", ")) (process-children))) (element edition (make element gi: "P" (process-children) (make entity-ref name: "nbsp") (literal (gentext-element-name-space (gi (current-node)))))) (element editor ;; Print the editor name. (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (or #t (not in-group)) ; nevermind, always put out the Edited by (make element gi: "P" attributes: (list (list "CLASS" (gi))) (make sequence (literal (gentext-edited-by)) (make entity-ref name: "nbsp") (literal (author-string)))) (literal (author-string))))) (element legalnotice (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) ($semiformal-object$))) (element (legalnotice title) (empty-sosofo)) (element pubdate (make element gi: "P" attributes: (list (list "CLASS" (gi))) (literal (gentext-element-name-space (gi (current-node)))) (process-children))) (element revhistory (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "TABLE" attributes: (list (list "WIDTH" ($table-width$)) (list "BORDER" "0")) (make sequence (make element gi: "TR" (make element gi: "TH" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("COLSPAN" "3")) (make element gi: "B" (literal (gentext-element-name (gi (current-node))))))) (process-children))))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (select-elements (descendants (current-node)) (normalize "revremark")))) (make sequence (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revnumber)) (make sequence (literal (gentext-element-name-space (gi (current-node)))) (process-node-list revnumber)) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revdate)) (process-node-list revdate) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revauthor)) (make sequence (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT") (list "COLSPAN" "3")) (if (not (node-list-empty? revremark)) (process-node-list revremark) (empty-sosofo))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element subtitle (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (process-children))) (element title (make element gi: "H2" attributes: (list (list "CLASS" (gi))) (with-mode title-mode (process-children)))) (element (formalpara title) ($runinhead$)) ) ;; == Title pages for ARTICLEs ========================================== ;; ;; Note: Article title pages are a little different in that they do not ;; create their own simple-page-sequence. ;; (define (article-titlepage-recto-elements) (list (normalize "title") (normalize "subtitle") (normalize "corpauthor") (normalize "authorgroup") (normalize "author") (normalize "releaseinfo") (normalize "copyright") (normalize "pubdate") (normalize "revhistory") (normalize "abstract"))) (define (article-titlepage-verso-elements) '()) (define (article-titlepage-content? elements side) (titlepage-content? elements (if (equal? side 'recto) (article-titlepage-recto-elements) (article-titlepage-verso-elements)))) (define (article-titlepage elements #!optional (side 'recto)) (let ((nodelist (titlepage-nodelist (if (equal? side 'recto) (article-titlepage-recto-elements) (article-titlepage-verso-elements)) elements))) (if (article-titlepage-content? elements side) (make element gi: "DIV" attributes: '(("CLASS" "TITLEPAGE")) (let loop ((nl nodelist) (lastnode (empty-node-list))) (if (node-list-empty? nl) (empty-sosofo) (make sequence (if (or (node-list-empty? lastnode) (not (equal? (gi (node-list-first nl)) (gi lastnode)))) (article-titlepage-before (node-list-first nl) side) (empty-sosofo)) (cond ((equal? (gi (node-list-first nl)) (normalize "abbrev")) (article-titlepage-abbrev (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "abstract")) (article-titlepage-abstract (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "address")) (article-titlepage-address (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "affiliation")) (article-titlepage-affiliation (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "artpagenums")) (article-titlepage-artpagenums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "author")) (article-titlepage-author (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorblurb")) (article-titlepage-authorblurb (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorgroup")) (article-titlepage-authorgroup (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorinitials")) (article-titlepage-authorinitials (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "bibliomisc")) (article-titlepage-bibliomisc (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "biblioset")) (article-titlepage-biblioset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "bookbiblio")) (article-titlepage-bookbiblio (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "citetitle")) (article-titlepage-citetitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "collab")) (article-titlepage-collab (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "confgroup")) (article-titlepage-confgroup (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contractnum")) (article-titlepage-contractnum (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contractsponsor")) (article-titlepage-contractsponsor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contrib")) (article-titlepage-contrib (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "copyright")) (article-titlepage-recto-copyright (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "corpauthor")) (article-titlepage-corpauthor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "corpname")) (article-titlepage-corpname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "date")) (article-titlepage-date (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "edition")) (article-titlepage-edition (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "editor")) (article-titlepage-editor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "firstname")) (article-titlepage-firstname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "graphic")) (article-titlepage-graphic (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "honorific")) (article-titlepage-honorific (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "indexterm")) (article-titlepage-indexterm (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "invpartnumber")) (article-titlepage-invpartnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "isbn")) (article-titlepage-isbn (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "issn")) (article-titlepage-issn (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "issuenum")) (article-titlepage-issuenum (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "itermset")) (article-titlepage-itermset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "keywordset")) (article-titlepage-keywordset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "legalnotice")) (article-titlepage-recto-legalnotice (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "lineage")) (article-titlepage-lineage (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "mediaobject")) (article-titlepage-mediaobject (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "modespec")) (article-titlepage-modespec (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "orgname")) (article-titlepage-orgname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "othercredit")) (article-titlepage-othercredit (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "othername")) (article-titlepage-othername (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pagenums")) (article-titlepage-pagenums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "printhistory")) (article-titlepage-printhistory (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "productname")) (article-titlepage-productname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "productnumber")) (article-titlepage-productnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pubdate")) (article-titlepage-pubdate (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "publisher")) (article-titlepage-publisher (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "publishername")) (article-titlepage-publishername (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pubsnumber")) (article-titlepage-pubsnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "releaseinfo")) (article-titlepage-releaseinfo (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "revhistory")) (article-titlepage-revhistory (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "seriesinfo")) (article-titlepage-seriesinfo (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "seriesvolnums")) (article-titlepage-seriesvolnums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "subjectset")) (article-titlepage-subjectset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "subtitle")) (article-titlepage-subtitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "surname")) (article-titlepage-surname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "title")) (article-titlepage-title (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "titleabbrev")) (article-titlepage-titleabbrev (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "volumenum")) (article-titlepage-volumenum (node-list-first nl) side)) (else (article-titlepage-default (node-list-first nl) side))) (loop (node-list-rest nl) (node-list-first nl))))) (article-titlepage-separator side)) (empty-sosofo)))) (define (article-titlepage-separator side) (make empty-element gi: "HR")) (define (article-titlepage-before node side) (empty-sosofo)) (define (article-titlepage-default node side) (let ((foo (debug (string-append "No article-titlepage-* for " (gi node) "!")))) (empty-sosofo))) (define (article-titlepage-element node side) (if (equal? side 'recto) (with-mode article-titlepage-recto-mode (process-node-list node)) (with-mode article-titlepage-verso-mode (process-node-list node)))) (define (article-titlepage-abbrev node side) (article-titlepage-element node side)) (define (article-titlepage-abstract node side) (article-titlepage-element node side)) (define (article-titlepage-address node side) (article-titlepage-element node side)) (define (article-titlepage-affiliation node side) (article-titlepage-element node side)) (define (article-titlepage-artpagenums node side) (article-titlepage-element node side)) (define (article-titlepage-author node side) (article-titlepage-element node side)) (define (article-titlepage-authorblurb node side) (article-titlepage-element node side)) (define (article-titlepage-authorgroup node side) (article-titlepage-element node side)) (define (article-titlepage-authorinitials node side) (article-titlepage-element node side)) (define (article-titlepage-bibliomisc node side) (article-titlepage-element node side)) (define (article-titlepage-biblioset node side) (article-titlepage node side)) (define (article-titlepage-bookbiblio node side) (article-titlepage node side)) (define (article-titlepage-citetitle node side) (article-titlepage-element node side)) (define (article-titlepage-collab node side) (article-titlepage-element node side)) (define (article-titlepage-confgroup node side) (article-titlepage-element node side)) (define (article-titlepage-contractnum node side) (article-titlepage-element node side)) (define (article-titlepage-contractsponsor node side) (article-titlepage-element node side)) (define (article-titlepage-contrib node side) (article-titlepage-element node side)) (define (article-titlepage-recto-copyright node side) (article-titlepage-element node side)) (define (article-titlepage-corpauthor node side) (article-titlepage-element node side)) (define (article-titlepage-corpname node side) (article-titlepage-element node side)) (define (article-titlepage-date node side) (article-titlepage-element node side)) (define (article-titlepage-edition node side) (article-titlepage-element node side)) (define (article-titlepage-editor node side) (article-titlepage-element node side)) (define (article-titlepage-firstname node side) (article-titlepage-element node side)) (define (article-titlepage-graphic node side) (article-titlepage-element node side)) (define (article-titlepage-honorific node side) (article-titlepage-element node side)) (define (article-titlepage-indexterm node side) (article-titlepage-element node side)) (define (article-titlepage-invpartnumber node side) (article-titlepage-element node side)) (define (article-titlepage-isbn node side) (article-titlepage-element node side)) (define (article-titlepage-issn node side) (article-titlepage-element node side)) (define (article-titlepage-issuenum node side) (article-titlepage-element node side)) (define (article-titlepage-itermset node side) (article-titlepage-element node side)) (define (article-titlepage-keywordset node side) (article-titlepage-element node side)) (define (article-titlepage-recto-legalnotice node side) (article-titlepage-element node side)) (define (article-titlepage-lineage node side) (article-titlepage-element node side)) (define (article-titlepage-mediaobject node side) (article-titlepage-element node side)) (define (article-titlepage-modespec node side) (article-titlepage-element node side)) (define (article-titlepage-orgname node side) (article-titlepage-element node side)) (define (article-titlepage-othercredit node side) (article-titlepage-element node side)) (define (article-titlepage-othername node side) (article-titlepage-element node side)) (define (article-titlepage-pagenums node side) (article-titlepage-element node side)) (define (article-titlepage-partintro node side) (article-titlepage-element node side)) (define (article-titlepage-printhistory node side) (article-titlepage-element node side)) (define (article-titlepage-productname node side) (article-titlepage-element node side)) (define (article-titlepage-productnumber node side) (article-titlepage-element node side)) (define (article-titlepage-pubdate node side) (article-titlepage-element node side)) (define (article-titlepage-publisher node side) (article-titlepage-element node side)) (define (article-titlepage-publishername node side) (article-titlepage-element node side)) (define (article-titlepage-pubsnumber node side) (article-titlepage-element node side)) (define (article-titlepage-releaseinfo node side) (article-titlepage-element node side)) (define (article-titlepage-revhistory node side) (article-titlepage-element node side)) (define (article-titlepage-seriesinfo node side) (article-titlepage-element node side)) (define (article-titlepage-seriesvolnums node side) (article-titlepage-element node side)) (define (article-titlepage-subjectset node side) (article-titlepage-element node side)) (define (article-titlepage-subtitle node side) (article-titlepage-element node side)) (define (article-titlepage-surname node side) (article-titlepage-element node side)) (define (article-titlepage-title node side) (article-titlepage-element node side)) (define (article-titlepage-titleabbrev node side) (article-titlepage-element node side)) (define (article-titlepage-volumenum node side) (article-titlepage-element node side)) (mode article-titlepage-recto-mode (element abbrev (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element abstract (make element gi: "DIV" ($semiformal-object$))) (element (abstract title) (empty-sosofo)) (element address (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (with-mode titlepage-address-mode ($linespecific-display$ %indent-address-lines% %number-address-lines%)))) (element affiliation (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element artpagenums (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element author (let ((author-name (author-string)) (author-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (make element gi: "A" attributes: (list (list "NAME" (element-id))) (literal author-name))) (process-node-list author-affil)))) (element authorblurb (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element authorgroup (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (process-children))) (element authorinitials (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element bibliomisc (process-children)) (element bibliomset (process-children)) (element collab (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element confgroup (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element contractnum (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element contractsponsor (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element contrib (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element copyright (titlepage-recto-copyright)) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (empty-sosofo)))) (element (copyright holder) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (empty-sosofo)))) (element corpauthor (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (process-children))) (element corpname (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element date (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element edition (make element gi: "P" attributes: (list (list "CLASS" (gi))) (process-children) (make entity-ref name: "nbsp") (literal (gentext-element-name-space (gi (current-node)))))) (element editor (let ((editor-name (author-string))) (make sequence (if (first-sibling?) (make element gi: "H4" attributes: (list (list "CLASS" "EDITEDBY")) (literal (gentext-edited-by))) (empty-sosofo)) (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (literal editor-name))))) (element firstname (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element graphic (let* ((nd (current-node)) (fileref (attribute-string (normalize "fileref") nd)) (entattr (attribute-string (normalize "entityref") nd)) (entityref (if entattr (entity-system-id entattr) #f)) (format (attribute-string (normalize "format"))) (align (attribute-string (normalize "align"))) (attr (append (if align (list (list "ALIGN" align)) '()) (if entityref (list (list "SRC" (graphic-file entityref))) (list (list "SRC" (graphic-file fileref)))) (list (list "ALT" "")) ))) (if (or fileref entityref) (make empty-element gi: "IMG" attributes: attr) (empty-sosofo)))) (element honorific (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element isbn (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element issn (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element itermset (empty-sosofo)) (element invpartnumber (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element issuenum (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element jobtitle (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element keywordset (empty-sosofo)) (element legalnotice (titlepage-recto-legalnotice)) (element (legalnotice title) (empty-sosofo)) (element lineage (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element modespec (empty-sosofo)) (element orgdiv (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element orgname (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element othercredit (let ((author-name (author-string)) (author-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (literal author-name))) (process-node-list author-affil)))) (element othername (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element pagenums (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element printhistory (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element productname (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element productnumber (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element pubdate (make element gi: "P" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element publisher (make element gi: "P" attributes: (list (list "CLASS" (gi))) (process-children))) (element publishername (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element pubsnumber (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element releaseinfo (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element revhistory (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "TABLE" attributes: (list (list "WIDTH" ($table-width$)) (list "BORDER" "0")) (make sequence (make element gi: "TR" (make element gi: "TH" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("COLSPAN" "3")) (make element gi: "B" (literal (gentext-element-name (gi (current-node))))))) (process-children))))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (select-elements (descendants (current-node)) (normalize "revremark")))) (make sequence (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revnumber)) (make sequence (literal (gentext-element-name-space (gi (current-node)))) (process-node-list revnumber)) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revdate)) (process-node-list revdate) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revauthor)) (make sequence (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT") (list "COLSPAN" "3")) (if (not (node-list-empty? revremark)) (process-node-list revremark) (empty-sosofo))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element seriesvolnums (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element shortaffil (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element subjectset (empty-sosofo)) (element subtitle (make element gi: "H2" attributes: (list (list "CLASS" (gi))) (process-children-trim))) (element surname (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element title (make element gi: "H1" attributes: (list (list "CLASS" (gi))) (make element gi: "A" attributes: (list (list "NAME" (element-id))) (with-mode title-mode (process-children-trim))))) (element (formalpara title) ($runinhead$)) (element titleabbrev (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element volumenum (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) ) (mode article-titlepage-verso-mode (element abbrev (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element abstract (make element gi: "DIV" ($semiformal-object$))) (element (abstract title) (empty-sosofo)) (element address (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (with-mode titlepage-address-mode ($linespecific-display$ %indent-address-lines% %number-address-lines%)))) (element affiliation (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element artpagenums (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element author ;; Print the author name. Handle the case where there's no AUTHORGROUP (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (not in-group) (make element gi: "P" attributes: (list (list "CLASS" (gi))) (literal (gentext-by)) (make entity-ref name: "nbsp") (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (literal (author-list-string)))) (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (literal (author-list-string)))))) (element authorblurb (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element authorgroup (make element gi: "P" attributes: (list (list "CLASS" (gi))) (literal (gentext-by)) (make entity-ref name: "nbsp") (process-children-trim))) (element authorinitials (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element bibliomisc (process-children)) (element bibliomset (process-children)) (element collab (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element confgroup (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element contractnum (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element contractsponsor (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element contrib (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element copyright (make element gi: "P" attributes: (list (list "CLASS" (gi))) (literal (gentext-element-name (current-node))) (make entity-ref name: "nbsp") (dingbat-sosofo "copyright") (make entity-ref name: "nbsp") (process-children))) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (literal " ")))) (element (copyright holder) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (empty-sosofo)))) (element corpauthor (make sequence (if (first-sibling?) (if (equal? (gi (parent (current-node))) (normalize "authorgroup")) (empty-sosofo) (literal (gentext-by) " ")) (literal ", ")) (process-children))) (element corpname (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element date (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element edition (make element gi: "P" (process-children) (make entity-ref name: "nbsp") (literal (gentext-element-name-space (gi (current-node)))))) (element editor ;; Print the editor name. (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (or #t (not in-group)) ; nevermind, always put out the Edited by (make element gi: "P" attributes: (list (list "CLASS" (gi))) (make sequence (literal (gentext-edited-by)) (make entity-ref name: "nbsp") (literal (author-string)))) (literal (author-string))))) (element firstname (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element graphic (let* ((nd (current-node)) (fileref (attribute-string (normalize "fileref") nd)) (entattr (attribute-string (normalize "entityref") nd)) (entityref (if entattr (entity-system-id entattr) #f)) (format (attribute-string (normalize "format"))) (align (attribute-string (normalize "align"))) (attr (append (if align (list (list "ALIGN" align)) '()) (if entityref (list (list "SRC" (graphic-file entityref))) (list (list "SRC" (graphic-file fileref)))) (list (list "ALT" "")) ))) (if (or fileref entityref) (make empty-element gi: "IMG" attributes: attr) (empty-sosofo)))) (element honorific (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element isbn (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element issn (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element itermset (empty-sosofo)) (element invpartnumber (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element issuenum (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element jobtitle (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element keywordset (empty-sosofo)) (element legalnotice (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) ($semiformal-object$))) (element (legalnotice title) (empty-sosofo)) (element lineage (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element modespec (empty-sosofo)) (element orgdiv (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element orgname (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element othercredit (let ((author-name (author-string)) (author-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (literal author-name))) (process-node-list author-affil)))) (element othername (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element pagenums (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element printhistory (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element productname (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element productnumber (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element pubdate (make element gi: "P" attributes: (list (list "CLASS" (gi))) (literal (gentext-element-name-space (gi (current-node)))) (process-children))) (element publisher (make element gi: "P" attributes: (list (list "CLASS" (gi))) (process-children))) (element publishername (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element pubsnumber (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element releaseinfo (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element revhistory (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "TABLE" attributes: (list (list "WIDTH" ($table-width$)) (list "BORDER" "0")) (make sequence (make element gi: "TR" (make element gi: "TH" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("COLSPAN" "3")) (make element gi: "B" (literal (gentext-element-name (gi (current-node))))))) (process-children))))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (select-elements (descendants (current-node)) (normalize "revremark")))) (make sequence (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revnumber)) (make sequence (literal (gentext-element-name-space (gi (current-node)))) (process-node-list revnumber)) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revdate)) (process-node-list revdate) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revauthor)) (make sequence (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT") (list "COLSPAN" "3")) (if (not (node-list-empty? revremark)) (process-node-list revremark) (empty-sosofo))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element seriesvolnums (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element shortaffil (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element subjectset (empty-sosofo)) (element subtitle (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (process-children))) (element surname (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element title (make element gi: "H2" attributes: (list (list "CLASS" (gi))) (with-mode title-mode (process-children)))) (element (formalpara title) ($runinhead$)) (element titleabbrev (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) (element volumenum (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) (process-children) (make empty-element gi: "BR"))) ) ;; == Title pages for REFERENCEs ======================================== (define (reference-titlepage-recto-elements) (list (normalize "title") (normalize "subtitle") (normalize "corpauthor") (normalize "authorgroup") (normalize "author") (normalize "editor"))) (define (reference-titlepage-verso-elements) '()) (define (reference-titlepage-content? elements side) (titlepage-content? elements (if (equal? side 'recto) (reference-titlepage-recto-elements) (reference-titlepage-verso-elements)))) (define (reference-titlepage elements #!optional (side 'recto)) (let ((nodelist (titlepage-nodelist (if (equal? side 'recto) (reference-titlepage-recto-elements) (reference-titlepage-verso-elements)) elements)) ;; partintro is a special case... (partintro (node-list-first (node-list-filter-by-gi elements (list (normalize "partintro")))))) (if (reference-titlepage-content? elements side) (make element gi: "DIV" attributes: '(("CLASS" "TITLEPAGE")) (let loop ((nl nodelist) (lastnode (empty-node-list))) (if (node-list-empty? nl) (empty-sosofo) (make sequence (if (or (node-list-empty? lastnode) (not (equal? (gi (node-list-first nl)) (gi lastnode)))) (reference-titlepage-before (node-list-first nl) side) (empty-sosofo)) (cond ((equal? (gi (node-list-first nl)) (normalize "abbrev")) (reference-titlepage-abbrev (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "abstract")) (reference-titlepage-abstract (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "address")) (reference-titlepage-address (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "affiliation")) (reference-titlepage-affiliation (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "artpagenums")) (reference-titlepage-artpagenums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "author")) (reference-titlepage-author (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorblurb")) (reference-titlepage-authorblurb (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorgroup")) (reference-titlepage-authorgroup (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "authorinitials")) (reference-titlepage-authorinitials (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "bibliomisc")) (reference-titlepage-bibliomisc (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "biblioset")) (reference-titlepage-biblioset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "bookbiblio")) (reference-titlepage-bookbiblio (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "citetitle")) (reference-titlepage-citetitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "collab")) (reference-titlepage-collab (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "confgroup")) (reference-titlepage-confgroup (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contractnum")) (reference-titlepage-contractnum (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contractsponsor")) (reference-titlepage-contractsponsor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "contrib")) (reference-titlepage-contrib (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "copyright")) (reference-titlepage-recto-copyright (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "corpauthor")) (reference-titlepage-corpauthor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "corpname")) (reference-titlepage-corpname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "date")) (reference-titlepage-date (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "edition")) (reference-titlepage-edition (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "editor")) (reference-titlepage-editor (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "firstname")) (reference-titlepage-firstname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "graphic")) (reference-titlepage-graphic (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "honorific")) (reference-titlepage-honorific (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "indexterm")) (reference-titlepage-indexterm (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "invpartnumber")) (reference-titlepage-invpartnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "isbn")) (reference-titlepage-isbn (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "issn")) (reference-titlepage-issn (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "issuenum")) (reference-titlepage-issuenum (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "itermset")) (reference-titlepage-itermset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "keywordset")) (reference-titlepage-keywordset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "legalnotice")) (reference-titlepage-recto-legalnotice (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "lineage")) (reference-titlepage-lineage (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "mediaobject")) (reference-titlepage-mediaobject (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "modespec")) (reference-titlepage-modespec (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "orgname")) (reference-titlepage-orgname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "othercredit")) (reference-titlepage-othercredit (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "othername")) (reference-titlepage-othername (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pagenums")) (reference-titlepage-pagenums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "printhistory")) (reference-titlepage-printhistory (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "productname")) (reference-titlepage-productname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "productnumber")) (reference-titlepage-productnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pubdate")) (reference-titlepage-pubdate (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "publisher")) (reference-titlepage-publisher (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "publishername")) (reference-titlepage-publishername (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "pubsnumber")) (reference-titlepage-pubsnumber (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "releaseinfo")) (reference-titlepage-releaseinfo (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "revhistory")) (reference-titlepage-revhistory (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "seriesinfo")) (reference-titlepage-seriesinfo (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "seriesvolnums")) (reference-titlepage-seriesvolnums (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "subjectset")) (reference-titlepage-subjectset (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "subtitle")) (reference-titlepage-subtitle (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "surname")) (reference-titlepage-surname (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "title")) (reference-titlepage-title (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "titleabbrev")) (reference-titlepage-titleabbrev (node-list-first nl) side)) ((equal? (gi (node-list-first nl)) (normalize "volumenum")) (reference-titlepage-volumenum (node-list-first nl) side)) (else (reference-titlepage-default (node-list-first nl) side))) (loop (node-list-rest nl) (node-list-first nl))))) ;; PartIntro is a special case (if (and (equal? side 'recto) (not (node-list-empty? partintro)) %generate-partintro-on-titlepage%) ($process-partintro$ partintro) (empty-sosofo)) (if (and %generate-reference-toc% %generate-reference-toc-on-titlepage% (equal? side 'recto)) (make display-group (build-toc (current-node) (toc-depth (current-node)))) (empty-sosofo)) (reference-titlepage-separator side)) (empty-sosofo)))) (define (reference-titlepage-separator side) (empty-sosofo)) (define (reference-titlepage-before node side) (empty-sosofo)) (define (reference-titlepage-default node side) (let ((foo (debug (string-append "No reference-titlepage-* for " (gi node) "!")))) (empty-sosofo))) (define (reference-titlepage-element node side) (if (equal? side 'recto) (with-mode reference-titlepage-recto-mode (process-node-list node)) (with-mode reference-titlepage-verso-mode (process-node-list node)))) (define (reference-titlepage-abbrev node side) (reference-titlepage-element node side)) (define (reference-titlepage-abstract node side) (reference-titlepage-element node side)) (define (reference-titlepage-address node side) (reference-titlepage-element node side)) (define (reference-titlepage-affiliation node side) (reference-titlepage-element node side)) (define (reference-titlepage-artpagenums node side) (reference-titlepage-element node side)) (define (reference-titlepage-author node side) (reference-titlepage-element node side)) (define (reference-titlepage-authorblurb node side) (reference-titlepage-element node side)) (define (reference-titlepage-authorgroup node side) (reference-titlepage-element node side)) (define (reference-titlepage-authorinitials node side) (reference-titlepage-element node side)) (define (reference-titlepage-bibliomisc node side) (reference-titlepage-element node side)) (define (reference-titlepage-biblioset node side) (reference-titlepage node side)) (define (reference-titlepage-bookbiblio node side) (reference-titlepage node side)) (define (reference-titlepage-citetitle node side) (reference-titlepage-element node side)) (define (reference-titlepage-collab node side) (reference-titlepage-element node side)) (define (reference-titlepage-confgroup node side) (reference-titlepage-element node side)) (define (reference-titlepage-contractnum node side) (reference-titlepage-element node side)) (define (reference-titlepage-contractsponsor node side) (reference-titlepage-element node side)) (define (reference-titlepage-contrib node side) (reference-titlepage-element node side)) (define (reference-titlepage-recto-copyright node side) (reference-titlepage-element node side)) (define (reference-titlepage-corpauthor node side) (reference-titlepage-element node side)) (define (reference-titlepage-corpname node side) (reference-titlepage-element node side)) (define (reference-titlepage-date node side) (reference-titlepage-element node side)) (define (reference-titlepage-edition node side) (reference-titlepage-element node side)) (define (reference-titlepage-editor node side) (reference-titlepage-element node side)) (define (reference-titlepage-firstname node side) (reference-titlepage-element node side)) (define (reference-titlepage-graphic node side) (reference-titlepage-element node side)) (define (reference-titlepage-honorific node side) (reference-titlepage-element node side)) (define (reference-titlepage-indexterm node side) (reference-titlepage-element node side)) (define (reference-titlepage-invpartnumber node side) (reference-titlepage-element node side)) (define (reference-titlepage-isbn node side) (reference-titlepage-element node side)) (define (reference-titlepage-issn node side) (reference-titlepage-element node side)) (define (reference-titlepage-issuenum node side) (reference-titlepage-element node side)) (define (reference-titlepage-itermset node side) (reference-titlepage-element node side)) (define (reference-titlepage-keywordset node side) (reference-titlepage-element node side)) (define (reference-titlepage-recto-legalnotice node side) (reference-titlepage-element node side)) (define (reference-titlepage-lineage node side) (reference-titlepage-element node side)) (define (reference-titlepage-mediaobject node side) (reference-titlepage-element node side)) (define (reference-titlepage-modespec node side) (reference-titlepage-element node side)) (define (reference-titlepage-orgname node side) (reference-titlepage-element node side)) (define (reference-titlepage-othercredit node side) (reference-titlepage-element node side)) (define (reference-titlepage-othername node side) (reference-titlepage-element node side)) (define (reference-titlepage-pagenums node side) (reference-titlepage-element node side)) (define (reference-titlepage-printhistory node side) (reference-titlepage-element node side)) (define (reference-titlepage-productname node side) (reference-titlepage-element node side)) (define (reference-titlepage-productnumber node side) (reference-titlepage-element node side)) (define (reference-titlepage-pubdate node side) (reference-titlepage-element node side)) (define (reference-titlepage-publisher node side) (reference-titlepage-element node side)) (define (reference-titlepage-publishername node side) (reference-titlepage-element node side)) (define (reference-titlepage-pubsnumber node side) (reference-titlepage-element node side)) (define (reference-titlepage-releaseinfo node side) (reference-titlepage-element node side)) (define (reference-titlepage-revhistory node side) (reference-titlepage-element node side)) (define (reference-titlepage-seriesinfo node side) (reference-titlepage-element node side)) (define (reference-titlepage-seriesvolnums node side) (reference-titlepage-element node side)) (define (reference-titlepage-subjectset node side) (reference-titlepage-element node side)) (define (reference-titlepage-subtitle node side) (reference-titlepage-element node side)) (define (reference-titlepage-surname node side) (reference-titlepage-element node side)) (define (reference-titlepage-title node side) (reference-titlepage-element node side)) (define (reference-titlepage-titleabbrev node side) (reference-titlepage-element node side)) (define (reference-titlepage-volumenum node side) (reference-titlepage-element node side)) (mode reference-titlepage-recto-mode (element para (make element gi: "P" attributes: (list (list "CLASS" (gi))) (process-children))) (element abstract (make element gi: "DIV" ($semiformal-object$))) (element (abstract title) (empty-sosofo)) (element address (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (with-mode titlepage-address-mode ($linespecific-display$ %indent-address-lines% %number-address-lines%)))) (element author (let ((author-name (author-string)) (author-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (literal author-name))) (process-node-list author-affil)))) (element authorblurb (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element authorgroup (process-children)) (element copyright (titlepage-recto-copyright)) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (empty-sosofo)))) (element (copyright holder) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (empty-sosofo)))) (element corpauthor (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (process-children))) (element edition (make element gi: "P" attributes: (list (list "CLASS" (gi))) (process-children) (make entity-ref name: "nbsp") (literal (gentext-element-name-space (gi (current-node)))))) (element editor (let ((editor-name (author-string))) (make sequence (if (first-sibling?) (make element gi: "H4" attributes: (list (list "CLASS" "EDITEDBY")) (literal (gentext-edited-by))) (empty-sosofo)) (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (literal editor-name))))) (element graphic (let* ((nd (current-node)) (fileref (attribute-string (normalize "fileref") nd)) (entattr (attribute-string (normalize "entityref") nd)) (entityref (if entattr (entity-system-id entattr) #f)) (format (attribute-string (normalize "format"))) (align (attribute-string (normalize "align"))) (attr (append (if align (list (list "ALIGN" align)) '()) (if entityref (list (list "SRC" (graphic-file entityref))) (list (list "SRC" (graphic-file fileref)))) (list (list "ALT" "")) ))) (if (or fileref entityref) (make empty-element gi: "IMG" attributes: attr) (empty-sosofo)))) (element legalnotice (titlepage-recto-legalnotice)) (element (legalnotice title) (empty-sosofo)) (element revhistory (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "TABLE" attributes: (list (list "WIDTH" ($table-width$)) (list "BORDER" "0")) (make sequence (make element gi: "TR" (make element gi: "TH" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("COLSPAN" "3")) (make element gi: "B" (literal (gentext-element-name (gi (current-node))))))) (process-children))))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (select-elements (descendants (current-node)) (normalize "revremark")))) (make sequence (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revnumber)) (make sequence (literal (gentext-element-name-space (gi (current-node)))) (process-node-list revnumber)) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revdate)) (process-node-list revdate) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revauthor)) (make sequence (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT") (list "COLSPAN" "3")) (if (not (node-list-empty? revremark)) (process-node-list revremark) (empty-sosofo))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element subtitle (make element gi: "H2" attributes: (list (list "CLASS" (gi))) (process-children-trim))) (element title (let ((ref (ancestor-member (current-node) (list (normalize "reference"))))) (make element gi: "H1" attributes: (list (list "CLASS" (gi))) (literal (element-label ref) (gentext-label-title-sep (gi ref))) (with-mode title-mode (process-children))))) (element (formalpara title) ($runinhead$)) ) (mode reference-titlepage-verso-mode (element abstract ($semiformal-object$)) (element (abstract title) (empty-sosofo)) (element address (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (with-mode titlepage-address-mode ($linespecific-display$ %indent-address-lines% %number-address-lines%)))) (element author ;; Print the author name. Handle the case where there's no AUTHORGROUP (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (not in-group) (make element gi: "P" attributes: (list (list "CLASS" (gi))) (literal (gentext-by)) (make entity-ref name: "nbsp") (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (literal (author-list-string)))) (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (literal (author-list-string)))))) (element authorgroup (make element gi: "P" attributes: (list (list "CLASS" (gi))) (literal (gentext-by)) (make entity-ref name: "nbsp") (process-children-trim))) (element copyright (make element gi: "P" attributes: (list (list "CLASS" (gi))) (literal (gentext-element-name (current-node))) (make entity-ref name: "nbsp") (dingbat-sosofo "copyright") (make entity-ref name: "nbsp") (process-children))) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (literal " ")))) (element (copyright holder) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (empty-sosofo)))) (element corpauthor (make sequence (if (first-sibling?) (if (equal? (gi (parent (current-node))) (normalize "authorgroup")) (empty-sosofo) (literal (gentext-by) " ")) (literal ", ")) (process-children))) (element edition (make element gi: "P" (process-children) (make entity-ref name: "nbsp") (literal (gentext-element-name-space (gi (current-node)))))) (element editor ;; Print the editor name. (let ((in-group (have-ancestor? (normalize "authorgroup") (current-node)))) (if (or #t (not in-group)) ; nevermind, always put out the Edited by (make element gi: "P" attributes: (list (list "CLASS" (gi))) (make sequence (literal (gentext-edited-by)) (make entity-ref name: "nbsp") (literal (author-string)))) (literal (author-string))))) (element legalnotice (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) ($semiformal-object$))) (element (legalnotice title) (empty-sosofo)) (element pubdate (make element gi: "P" attributes: (list (list "CLASS" (gi))) (literal (gentext-element-name-space (gi (current-node)))) (process-children))) (element revhistory (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "TABLE" attributes: (list (list "WIDTH" ($table-width$)) (list "BORDER" "0")) (make sequence (make element gi: "TR" (make element gi: "TH" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("COLSPAN" "3")) (make element gi: "B" (literal (gentext-element-name (gi (current-node))))))) (process-children))))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (select-elements (descendants (current-node)) (normalize "revremark")))) (make sequence (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revnumber)) (make sequence (literal (gentext-element-name-space (gi (current-node)))) (process-node-list revnumber)) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revdate)) (process-node-list revdate) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revauthor)) (make sequence (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT") (list "COLSPAN" "3")) (if (not (node-list-empty? revremark)) (process-node-list revremark) (empty-sosofo))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element subtitle (make element gi: "H3" attributes: (list (list "CLASS" (gi))) (process-children))) (element title (make element gi: "H2" attributes: (list (list "CLASS" (gi))) (with-mode title-mode (process-children)))) (element (formalpara title) ($runinhead$)) ) docbook-dsssl-1.79/html/dbtitle.dsl0000644000175000001440000000321707611215255020006 0ustar msmithusers00000000000000;; $Id: dbtitle.dsl,v 1.2 2003/01/15 08:24:13 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; So we can pass different sosofo's to this routine and get identical ;; treatment (see REFNAME in dbrfntry.dsl) ;; (define ($lowtitlewithsosofo$ tlevel sosofo) (let ((tgi (cond ((equal? tlevel 1) "H1") ((equal? tlevel 2) "H2") ((equal? tlevel 3) "H3") ((equal? tlevel 4) "H4") ((equal? tlevel 5) "H5") (else "P")))) (if (< tlevel 6) (make element gi: tgi sosofo) (make element gi: "P" (make element gi: "B" sosofo))))) (define ($lowtitle$ tlevel) ($lowtitlewithsosofo$ tlevel (process-children))) (define ($runinhead$) (let* ((title (data (current-node))) (titlelen (string-length title)) (lastchar (if (> titlelen 0) (string-ref title (- titlelen 1)) ".")) (punct (if (or (= titlelen 0) (member lastchar %content-title-end-punct%)) "" %default-title-end-punct%))) (make element gi: "B" (process-children) (literal punct " ")))) (element title (make element gi: "P" (make element gi: "B" (process-children-trim)))) (element titleabbrev (empty-sosofo)) (mode title-mode (element title (process-children))) (mode subtitle-mode (element subtitle (make sequence (literal (if (first-sibling?) "" "; ")) (process-children)))) (mode head-title-mode ;; TITLE in an HTML HEAD (default (process-children)) (element graphic (empty-sosofo)) (element inlinegraphic (empty-sosofo))) docbook-dsssl-1.79/html/dbtable.dsl0000644000175000001440000004475007622047704017767 0ustar msmithusers00000000000000;; $Id: dbtable.dsl,v 1.6 2003/02/11 01:20:04 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; Table support completely reimplemented by norm 15/16 Nov 1997. ;; Adapted from print support. ;; ;; ====================================================================== ;; ;; This code is intended to implement the SGML Open Exchange Table Model ;; (http://www.sgmlopen.org/sgml/docs/techpubs.htm) as far as is possible ;; in HTML. There are a few areas where this code probably fails to ;; perfectly implement the model: ;; ;; - Mixed column width units (4*+2pi) are not supported. ;; - The behavior that results from mixing relative units with ;; absolute units has not been carefully considered. ;; ;; ====================================================================== ;; ;; My goal in reimplementing the table model was to provide correct ;; formatting in tables that use MOREROWS. The difficulty is that ;; correct formatting depends on calculating the column into which ;; an ENTRY will fall. ;; ;; This is a non-trivial problem because MOREROWS can hang down from ;; preceding rows and ENTRYs may specify starting columns (skipping ;; preceding ones). ;; ;; A simple, elegant recursive algorithm exists. Unfortunately it ;; requires calculating the column number of every preceding cell ;; in the entire table. Without memoization, performance is unacceptable ;; even in relatively small tables (5x5, for example). ;; ;; In order to avoid recursion, the algorithm used below is one that ;; works forward from the beginning of the table and "passes along" ;; the relevant information (column number of the preceding cell and ;; overhang from the MOREROWS in preceding rows). ;; ;; Unfortunately, this means that element construction rules ;; can't always be used to fire the appropriate rule. Instead, ;; each TGROUP has to process each THEAD/BODY/FOOT explicitly. ;; And each of those must process each ROW explicitly, then each ;; ENTRY/ENTRYTBL explicitly. ;; ;; ---------------------------------------------------------------------- ;; ;; I attempted to simplify this code by relying on inheritence from ;; table-column flow objects, but that wasn't entirely successful. ;; Horizontally spanning cells didn't seem to inherit from table-column ;; flow objects that didn't specify equal spanning. There seemed to ;; be other problems as well, but they could have been caused by coding ;; errors on my part. ;; ;; Anyway, by the time I understood how I could use table-column ;; flow objects for inheritence, I'd already implemented all the ;; machinery below to "work it out by hand". ;; ;; ====================================================================== ;; NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE ;; ---------------------------------------------------------------------- ;; A fairly large chunk of this code is in dbcommon.dsl! ;; ====================================================================== ;; Default for COLSEP/ROWSEP if unspecified (define %cals-rule-default% "0") ;; Default for VALIGN if unspecified (define %cals-valign-default% "TOP") ;; ====================================================================== ;; Convert colwidth units into table-unit measurements (define (colwidth-length lenstr) (if (string? lenstr) (let ((number (length-string-number-part lenstr)) (units (length-string-unit-part lenstr))) (if (or (string=? units "*") (string=? number "")) ;; relative units or no number, give up 0pt (if (string=? units "") ;; no units, default to pixels (* (string->number number) 1px) (let* ((unum (string->number number)) (uname (case-fold-down units))) (case uname (("mm") (* unum 1mm)) (("cm") (* unum 1cm)) (("in") (* unum 1in)) (("pi") (* unum 1pi)) (("pt") (* unum 1pt)) (("px") (* unum 1px)) ;; unrecognized units; use pixels (else (* unum 1px))))))) ;; lenstr is not a string...probably #f 0pt)) (define (cals-relative-colwidth? colwidth) (if (string? colwidth) (let ((strlen (string-length colwidth))) (if (string=? colwidth "*") #t (string=? (substring colwidth (- strlen 1) strlen) "*"))) #f)) (define (cals-relative-colwidth colwidth) (let ((number (length-string-number-part colwidth)) (units (length-string-unit-part colwidth))) (if (string=? units "*") (if (string=? number "") 1 (string->number number)) 0))) (define (cell-relative-colwidth cell relative) ;; given a cell and a relative width, work out the HTML cell WIDTH attribute (let* ((tgroup (find-tgroup cell)) (pgwide? (equal? (attribute-string (normalize "pgwide") (parent tgroup)) "1"))) (if (and (not pgwide?) %html40%) ;; html4 allows widths like "1*", we don't wanna use 50% if pgwide is not on (string-append (number->string relative) "*") (let loop ((colspecs (select-elements (children tgroup) (normalize "colspec"))) (reltotal 0)) (if (not (node-list-empty? colspecs)) (loop (node-list-rest colspecs) (+ reltotal (cals-relative-colwidth (colspec-colwidth (node-list-first colspecs))))) (if (equal? reltotal 0) "" (string-append (number->string (round (* (/ relative reltotal) 100))) "%"))))))) (define (cell-colwidth cell colnum) ;; return the width of a cell, or "" if not specified (let* ((entry (ancestor-member cell (list (normalize "entry") (normalize "entrytbl")))) (colspec (find-colspec-by-number colnum)) (colwidth (colspec-colwidth colspec)) (width (round (/ (colwidth-length colwidth) 1px)))) (if (node-list-empty? colspec) "" (if (and (equal? (hspan entry) 1) colwidth) (if (cals-relative-colwidth? colwidth) (cell-relative-colwidth cell (cals-relative-colwidth colwidth)) (number->string width)) "")))) ;; ====================================================================== (define (cell-align cell colnum) ;; horizontal alignment for the cell, or "" if not set; efficiency ;; here is important (let* ((entry (ancestor-member cell (list (normalize "entry") (normalize "entrytbl")))) (spanname (attribute-string (normalize "spanname") entry))) (if (attribute-string (normalize "align") entry) (attribute-string (normalize "align") entry) (if (and spanname (spanspec-align (find-spanspec spanname))) (spanspec-align (find-spanspec spanname)) (if %html40% ;; no need to set align explictly, let COL do the work "" (if (colspec-align (find-colspec-by-number colnum)) (colspec-align (find-colspec-by-number colnum)) (let ((tgroup (find-tgroup entry))) (if (tgroup-align tgroup) (tgroup-align tgroup) (normalize "left"))))))))) (define (cell-valign cell colnum) ;; vertical alignment for the cell, or "" if not set; efficiency ;; here is important (let ((entry (ancestor-member cell (list (normalize "entry") (normalize "entrytbl"))))) (if (attribute-string (normalize "valign") entry) (attribute-string (normalize "valign") entry) ""))) (define ($table-frame$ table) ;; determine the proper setting for the html 4 FRAME attribute (let* ((wrapper (parent (current-node))) (frameattr (attribute-string (normalize "frame") wrapper))) (if (and %html40% frameattr) (cond ((equal? frameattr (normalize "all")) (list (list "FRAME" "border"))) ((equal? frameattr (normalize "bottom")) (list (list "FRAME" "below"))) ((equal? frameattr (normalize "none")) (list (list "FRAME" "void"))) ((equal? frameattr (normalize "sides")) (list (list "FRAME" "vsides"))) ((equal? frameattr (normalize "top")) (list (list "FRAME" "above"))) ((equal? frameattr (normalize "topbot")) (list (list "FRAME" "hsides"))) (else '())) '()))) (define ($table-border$ table) ;; determine the proper setting for the html 4 BORDER attribute (cell frames) ;; FIXME: rules can be overriden by COLSPEC elements, use "group" value? (let* ((wrapper (parent (current-node))) (rowsepattr (or (attribute-string (normalize "rowsep") (current-node)) (attribute-string (normalize "rowsep") wrapper))) (colsepattr (or (attribute-string (normalize "colsep") (current-node)) (attribute-string (normalize "colsep") wrapper)))) (if (and %html40% (or rowsepattr colsepattr)) ;; remember there are actually 3 possible values: 0, 1, unset (cond ((and (equal? colsepattr "1") (equal? rowsepattr "1")) (list (list "RULES" "all"))) ((and (equal? colsepattr "0") (equal? rowsepattr "0")) (list (list "RULES" "none"))) ((and (equal? colsepattr "1") (equal? rowsepattr "0")) (list (list "RULES" "cols"))) ((and (equal? colsepattr "0") (equal? rowsepattr "1")) (list (list "RULES" "rows"))) (else '())) ; if rowsep set but not colsep, ignore it '()))) ;; ====================================================================== ;; Element rules (element tgroup (let* ((wrapper (parent (current-node))) (frameattr (attribute-string (normalize "frame") wrapper)) (pgwide (attribute-string (normalize "pgwide") wrapper))) (make element gi: "TABLE" attributes: (append (if (equal? frameattr (normalize "none")) '(("BORDER" "0")) '(("BORDER" "1"))) ($table-frame$ (current-node)) ($table-border$ (current-node)) (if (equal? pgwide "1") (list (list "WIDTH" ($table-width$))) '()) (if %cals-table-class% (list (list "CLASS" %cals-table-class%)) '())) ($process-colspecs$ (current-node)) (process-node-list (select-elements (children (current-node)) (normalize "thead"))) (process-node-list (select-elements (children (current-node)) (normalize "tbody"))) (process-node-list (select-elements (children (current-node)) (normalize "tfoot"))) (make-table-endnotes)))) (element entrytbl ;; sortof like a tgroup... (let* ((wrapper (parent (parent (parent (parent (current-node)))))) ;; table tgroup tbody row (frameattr (attribute-string (normalize "frame") wrapper)) (tgrstyle (attribute-string (normalize "tgroupstyle")))) (make element gi: "TABLE" attributes: (append (if (and (or (equal? frameattr (normalize "none")) (equal? tgrstyle (normalize "noborder"))) (not (equal? tgrstyle (normalize "border")))) '(("BORDER" "0")) '(("BORDER" "1"))) ($table-frame$ (current-node)) ($table-border$ (current-node)) (if %cals-table-class% (list (list "CLASS" %cals-table-class%)) '())) ($process-colspecs$ (current-node)) (process-node-list (select-elements (children (current-node)) (normalize "thead"))) (process-node-list (select-elements (children (current-node)) (normalize "tbody")))))) (element colspec ;; now handled by $process-colspecs$ (empty-sosofo)) (element spanspec (empty-sosofo)) (element thead ;; note that colspec/spanspec in thead isn't supported by HTML table model (if %html40% (make element gi: "THEAD" ($process-table-body$ (current-node))) ($process-table-body$ (current-node)))) (element tfoot ;; note that colspec/spanspec in tfoot isn't supported by HTML table model (if %html40% (make element gi: "TFOOT" ($process-table-body$ (current-node))) ($process-table-body$ (current-node)))) (element tbody (if %html40% (make element gi: "TBODY" attributes: (if (attribute-string (normalize "valign")) (list (list "VALIGN" (attribute-string (normalize "valign")))) '()) ($process-table-body$ (current-node))) ($process-table-body$ (current-node)))) (element row (empty-sosofo)) ;; this should never happen, they're processed explicitly (element entry (empty-sosofo)) ;; this should never happen, they're processed explicitly ;; ====================================================================== ;; Functions that handle processing of table bodies, rows, and cells (define ($process-colspecs$ tgroup) ;; given tgroup or entrytbl, convert the colspecs to HTML4 COL elements (if (not %html40%) (empty-sosofo) (let ((cols (string->number (attribute-string (normalize "cols"))))) (let loop ((colnum 1)) (if (> colnum cols) (empty-sosofo) (make sequence (let* ((colspec (find-colspec-by-number colnum)) (colwidth (colspec-colwidth colspec))) (if (node-list-empty? colspec) (make empty-element gi: "COL") (make empty-element gi: "COL" attributes: (append (if colwidth (list (list "WIDTH" (if (cals-relative-colwidth? colwidth) (cell-relative-colwidth colspec (cals-relative-colwidth colwidth)) (number->string (round (/ (colwidth-length colwidth) 1px)))))) '()) (if (attribute-string (normalize "align") colspec) (list (list "ALIGN" (attribute-string (normalize "align") colspec))) '()) (if (attribute-string (normalize "char") colspec) (list (list "CHAR" (attribute-string (normalize "char") colspec))) '()) (if (attribute-string (normalize "charoff") colspec) (list (list "CHAROFF" (attribute-string (normalize "charoff") colspec))) '()) (if (attribute-string (normalize "colname") colspec) (list (list "TITLE" (attribute-string (normalize "colname") colspec))) '()))))) (loop (+ colnum 1)))))))) (define ($process-table-body$ body) (let* ((tgroup (find-tgroup body)) (cols (string->number (attribute-string (normalize "cols") tgroup)))) (let loop ((rows (select-elements (children body) (normalize "row"))) (overhang (constant-list 0 cols))) (if (node-list-empty? rows) (empty-sosofo) (make sequence ($process-row$ (node-list-first rows) overhang) (loop (node-list-rest rows) (update-overhang (node-list-first rows) overhang))))))) (define ($process-row$ row overhang) ;; FIXME: rowsep (let* ((tgroup (find-tgroup row)) (rowcells (node-list-filter-out-pis (children row))) (rowalign (attribute-string (normalize "valign") row)) (maxcol (string->number (attribute-string (normalize "cols") tgroup))) (lastentry (node-list-last rowcells))) (make element gi: "TR" attributes: (append (if rowalign (list (list "VALIGN" rowalign)) '()) '()) (let loop ((cells rowcells) (prevcell (empty-node-list))) (if (node-list-empty? cells) (empty-sosofo) (make sequence ($process-cell$ (node-list-first cells) prevcell overhang) (loop (node-list-rest cells) (node-list-first cells))))) ;; add any necessary empty cells to the end of the row (let loop ((colnum (overhang-skip overhang (+ (cell-column-number lastentry overhang) (hspan lastentry))))) (if (> colnum maxcol) (empty-sosofo) (make sequence (make element gi: "TD" (make entity-ref name: "nbsp")) (loop (overhang-skip overhang (+ colnum 1))))))))) (define (empty-cell? entry) ;; Return #t if and only if entry is empty (or contains only PIs) (let loop ((nl (children entry))) (if (node-list-empty? nl) #t (let* ((node (node-list-first nl)) (nodeclass (node-property 'class-name node)) (nodechar (if (equal? nodeclass 'data-char) (node-property 'char node) #f)) (whitespace? (and (equal? nodeclass 'data-char) (or (equal? nodechar #\space) (equal? (data node) " ") (equal? (data node) " ") (equal? (data node) " "))))) (if (not (or (equal? (node-property 'class-name node) 'pi) whitespace?)) #f (loop (node-list-rest nl))))))) (define ($process-cell$ entry preventry overhang) (let* ((colnum (cell-column-number entry overhang)) (lastcellcolumn (if (node-list-empty? preventry) 0 (- (+ (cell-column-number preventry overhang) (hspan preventry)) 1))) (lastcolnum (if (> lastcellcolumn 0) (overhang-skip overhang lastcellcolumn) 0)) (htmlgi (if (have-ancestor? (normalize "tbody") entry) "TD" "TH"))) (make sequence (if (node-list-empty? (preced entry)) (if (attribute-string (normalize "id") (parent entry)) (make element gi: "A" attributes: (list (list "NAME" (attribute-string (normalize "id") (parent entry)))) (empty-sosofo)) (empty-sosofo)) (empty-sosofo)) (if (attribute-string (normalize "id") entry) (make element gi: "A" attributes: (list (list "NAME" (attribute-string (normalize "id") entry))) (empty-sosofo)) (empty-sosofo)) ;; This is a little bit complicated. We want to output empty cells ;; to skip over missing data. We start count at the column number ;; arrived at by adding 1 to the column number of the previous entry ;; and skipping over any MOREROWS overhanging entrys. Then for each ;; iteration, we add 1 and skip over any overhanging entrys. (let loop ((count (overhang-skip overhang (+ lastcolnum 1)))) (if (>= count colnum) (empty-sosofo) (make sequence (make element gi: htmlgi (make entity-ref name: "nbsp") ;; (literal (number->string lastcellcolumn) ", ") ;; (literal (number->string lastcolnum) ", ") ;; (literal (number->string (hspan preventry)) ", ") ;; (literal (number->string colnum ", ")) ;; ($debug-pr-overhang$ overhang) ) (loop (overhang-skip overhang (+ count 1)))))) ;; Now we've output empty cells for any missing entries, so we ;; are ready to output the cell for this entry... (make element gi: htmlgi attributes: (append (if (> (hspan entry) 1) (list (list "COLSPAN" (number->string (hspan entry)))) '()) (if (> (vspan entry) 1) (list (list "ROWSPAN" (number->string (vspan entry)))) '()) (if (and (not %html40%) (not (equal? (cell-colwidth entry colnum) ""))) (list (list "WIDTH" (cell-colwidth entry colnum))) '()) (if (not (equal? (cell-align entry colnum) "")) (list (list "ALIGN" (cell-align entry colnum))) '()) (if (not (equal? (cell-valign entry colnum) "")) (list (list "VALIGN" (cell-valign entry colnum))) '())) (if (empty-cell? entry) (make entity-ref name: "nbsp") (if (equal? (gi entry) (normalize "entrytbl")) (process-node-list entry) (process-node-list (children entry)))))))) ;; EOF dbtable.dsl docbook-dsssl-1.79/html/dbsynop.dsl0000644000175000001440000001424107611215255020034 0ustar msmithusers00000000000000;; $Id: dbsynop.dsl,v 1.3 2003/01/15 08:24:13 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ========================= SYNTAX DEFINITIONS ========================= (element synopsis ($verbatim-display$ %indent-synopsis-lines% %number-synopsis-lines%)) (element cmdsynopsis ($paragraph$)) ;; Support for ARG provided by James Bostock, augmented by norm ;; (element (cmdsynopsis command) (make sequence (if (first-sibling? (current-node)) (empty-sosofo) (make empty-element gi: "BR")) (next-match) (literal " "))) (element group (let ((choice (attribute-string (normalize "choice"))) (rep (attribute-string (normalize "rep"))) (sepchar (if (inherited-attribute-string (normalize "sepchar")) (inherited-attribute-string (normalize "sepchar")) " "))) (make sequence (if (equal? (absolute-child-number (current-node)) 1) (empty-sosofo) (literal sepchar)) (cond ((equal? choice (normalize "plain")) (literal %arg-choice-plain-open-str%)) ((equal? choice (normalize "req")) (literal %arg-choice-req-open-str%)) ((equal? choice (normalize "opt")) (literal %arg-choice-opt-open-str%)) (else (literal %arg-choice-def-open-str%))) (process-children) (cond ((equal? choice (normalize "plain")) (literal %arg-choice-plain-close-str%)) ((equal? choice (normalize "req")) (literal %arg-choice-req-close-str%)) ((equal? choice (normalize "opt")) (literal %arg-choice-opt-close-str%)) (else (literal %arg-choice-def-close-str%))) (cond ((equal? rep (normalize "repeat")) (literal %arg-rep-repeat-str%)) ((equal? rep (normalize "norepeat")) (literal %arg-rep-norepeat-str%)) (else (literal %arg-rep-def-str%)))))) (element arg (let ((choice (attribute-string (normalize "choice"))) (rep (attribute-string (normalize "rep"))) (sepchar (if (inherited-attribute-string (normalize "sepchar")) (inherited-attribute-string (normalize "sepchar")) " "))) (make sequence (if (equal? (absolute-child-number (current-node)) 1) (empty-sosofo) (literal sepchar)) (cond ((equal? choice (normalize "plain")) (literal %arg-choice-plain-open-str%)) ((equal? choice (normalize "req")) (literal %arg-choice-req-open-str%)) ((equal? choice (normalize "opt")) (literal %arg-choice-opt-open-str%)) (else (literal %arg-choice-def-open-str%))) (process-children) (cond ((equal? rep (normalize "repeat")) (literal %arg-rep-repeat-str%)) ((equal? rep (normalize "norepeat")) (literal %arg-rep-norepeat-str%)) (else (literal %arg-rep-def-str%))) (cond ((equal? choice (normalize "plain")) (literal %arg-choice-plain-close-str%)) ((equal? choice (normalize "req")) (literal %arg-choice-req-close-str%)) ((equal? choice (normalize "opt")) (literal %arg-choice-opt-close-str%)) (else (literal %arg-choice-def-close-str%)))))) (element (group arg) (let ((choice (attribute-string (normalize "choice"))) (rep (attribute-string (normalize "rep")))) (make sequence (if (not (first-sibling? (current-node))) (literal %arg-or-sep%) (empty-sosofo)) (process-children)))) (element sbr (make empty-element gi: "BR")) ;; ---------------------------------------------------------------------- ;; Syntax highlighting... (define (funcsynopsis-function #!optional (sosofo (process-children))) (make element gi: "B" attributes: '(("CLASS" "FSFUNC")) sosofo)) (define (paramdef-parameter #!optional (sosofo (process-children))) (make element gi: "VAR" attributes: '(("CLASS" "PDPARAM")) sosofo)) ;; ---------------------------------------------------------------------- (element synopfragmentref (let* ((target (element-with-id (attribute-string (normalize "linkend")))) (snum (child-number target))) (make element gi: "I" (make element gi: "A" attributes: (list (list "HREF" (href-to target))) (literal "(" (number->string snum) ")")) (process-children)))) (element synopfragment (let ((id (element-id (current-node))) (snum (child-number (current-node)))) (make element gi: "P" (make element gi: "A" attributes: (list (list "NAME" id)) (literal "(" (number->string snum) ")")) (make entity-ref name: "nbsp") (process-children)))) (element funcsynopsis ($informal-object$)) (element funcsynopsisinfo ($verbatim-display$ %indent-funcsynopsisinfo-lines% %number-funcsynopsisinfo-lines%)) (element funcprototype (let ((paramdefs (select-elements (children (current-node)) (normalize "paramdef")))) (make sequence (make element gi: "P" (make element gi: "CODE" (process-children) (if (equal? %funcsynopsis-style% 'kr) (with-mode kr-funcsynopsis-mode (process-node-list paramdefs)) (empty-sosofo))))))) (element funcdef (make element gi: "CODE" attributes: '(("CLASS" "FUNCDEF")) (process-children))) (element (funcdef function) (if %funcsynopsis-decoration% (funcsynopsis-function) (process-children))) (element void (if (equal? %funcsynopsis-style% 'ansi) (literal "(void);") (literal "();"))) (element varargs (literal "(...);")) (element paramdef (let ((param (select-elements (children (current-node)) (normalize "parameter")))) (make sequence (if (equal? (child-number (current-node)) 1) (literal "(") (empty-sosofo)) (if (equal? %funcsynopsis-style% 'ansi) (process-children) (process-node-list param)) (if (equal? (gi (ifollow (current-node))) (normalize "paramdef")) (literal ", ") (literal ");"))))) (element (paramdef parameter) (make sequence (if %funcsynopsis-decoration% (paramdef-parameter) (process-children)) (if (equal? (gi (ifollow (current-node))) (normalize "parameter")) (literal ", ") (empty-sosofo)))) (element funcparams (make sequence (literal "(") (process-children) (literal ")"))) (mode kr-funcsynopsis-mode (element paramdef (make sequence (make empty-element gi: "BR") (process-children) (literal ";")))) docbook-dsssl-1.79/html/dbsect.dsl0000644000175000001440000001213707640131705017623 0ustar msmithusers00000000000000;; $Id: dbsect.dsl,v 1.8 2003/03/25 19:53:41 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ============================== SECTIONS ============================== (define (SECTLEVEL #!optional (sect (current-node))) (section-level-by-node (not nochunks) sect)) ;; BRIDGEHEAD isn't a proper section, but appears to be a section title (element bridgehead (let* ((renderas (attribute-string "renderas")) ;; the apparent section level (hlevel ;; if not real section level, then get the apparent level ;; from "renderas" (if renderas (section-level-by-gi (not nochunks) (normalize renderas)) ;; else use the real level (SECTLEVEL))) (helem (string-append "H" (number->string hlevel)))) (make element gi: helem attributes: '(("CLASS" "BRIDGEHEAD")) (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (process-children)))) (define ($section-separator$) (let* (;; There are several situations in which we don't want a ;; separator here: ;; 1. This document is being chunked: (chunks (not nochunks)) ;; 2. This node is the root element of the document: (isroot (node-list=? (current-node) (sgml-root-element))) ;; 3. This node is the first section in the root element ;; and no other content (except the *info elements and ;; the title) precedes it. This means that the ;; titlepage-separator was the last thing we put out. ;; No one expects two separators in a row, or the Spanish ;; inquisition. (s1ofrt (node-list=? (parent (current-node)) (sgml-root-element))) (precnd (ipreced (current-node))) (infond (info-element (parent (current-node)))) (isfirst (or (equal? (gi precnd) (normalize "title")) (node-list=? precnd infond)))) (if (or chunks isroot isfirst) (empty-sosofo) (make empty-element gi: "HR")))) (define ($section$) (html-document (with-mode head-title-mode (literal (element-title-string (current-node)))) ($section-body$))) (define ($section-body$) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) ($section-separator$) ($section-title$) (if (not (node-list-empty? (select-elements (children (current-node)) (normalize "refentry")))) (build-toc (current-node) 1) (empty-sosofo)) (process-children))) (define ($section-title$) (let* ((sect (current-node)) (info (info-element)) (subtitles (select-elements (children info) (normalize "subtitle"))) (renderas (inherited-attribute-string (normalize "renderas") sect)) ;; the apparent section level (hlevel ;; if not real section level, then get the apparent level ;; from "renderas" (if renderas (section-level-by-gi (not nochunks) (normalize renderas)) ;; else use the real level (SECTLEVEL))) (h1elem (string-append "H" (number->string hlevel))) (h2elem (string-append "H" (number->string (+ hlevel 1)))) (name (element-id)) (isep (gentext-intra-label-sep (gi sect))) (nsep (gentext-label-title-sep (gi sect)))) (make sequence (make element gi: h1elem attributes: (list (list "CLASS" (gi sect))) (make element gi: "A" attributes: (list (list "NAME" name)) (make sequence (if (string=? (element-label (current-node)) "") (empty-sosofo) (literal (element-label (current-node)) nsep)) (element-title-sosofo sect)))) (if (node-list-empty? subtitles) (empty-sosofo) (with-mode subtitle-mode (make element gi: h2elem (process-node-list subtitles)))) ($proc-section-info$ info)))) (define ($proc-section-info$ info) (cond ((equal? (gi) (normalize "sect1")) ($sect1-info$ info)) ((equal? (gi) (normalize "sect2")) ($sect2-info$ info)) ((equal? (gi) (normalize "sect3")) ($sect3-info$ info)) ((equal? (gi) (normalize "sect4")) ($sect4-info$ info)) ((equal? (gi) (normalize "sect5")) ($sect5-info$ info)) ((equal? (gi) (normalize "section")) ($section-info$ info)) ((equal? (gi) (normalize "refsect1")) ($refsect1-info$ info)) ((equal? (gi) (normalize "refsect2")) ($refsect2-info$ info)) ((equal? (gi) (normalize "refsect3")) ($refsect3-info$ info)) (else (empty-sosofo)))) (define ($sect1-info$ info) (empty-sosofo)) (define ($sect2-info$ info) (empty-sosofo)) (define ($sect3-info$ info) (empty-sosofo)) (define ($sect4-info$ info) (empty-sosofo)) (define ($sect5-info$ info) (empty-sosofo)) (define ($section-info$ info) (empty-sosofo)) (define ($refsect1-info$ info) (empty-sosofo)) (define ($refsect2-info$ info) (empty-sosofo)) (define ($refsect3-info$ info) (empty-sosofo)) (element section ($section$)) (element (section title) (empty-sosofo)) (element sect1 ($section$)) (element (sect1 title) (empty-sosofo)) (element sect2 ($section$)) (element (sect2 title) (empty-sosofo)) (element sect3 ($section$)) (element (sect3 title) (empty-sosofo)) (element sect4 ($section$)) (element (sect4 title) (empty-sosofo)) (element sect5 ($section$)) (element (sect5 title) (empty-sosofo)) (element simplesect ($section$)) (element (simplesect title) (empty-sosofo)) docbook-dsssl-1.79/html/dbrfntry.dsl0000644000175000001440000001115307611215255020207 0ustar msmithusers00000000000000;; $Id: dbrfntry.dsl,v 1.4 2003/01/15 08:24:13 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; =========================== REFERENCE PAGES ========================== ;;(element reference ($component$)) (element reference (let* ((refinfo (select-elements (children (current-node)) (normalize "docinfo"))) (refintro (select-elements (children (current-node)) (normalize "partintro"))) (nl (titlepage-info-elements (current-node) refinfo (if %generate-partintro-on-titlepage% refintro (empty-node-list))))) (html-document (with-mode head-title-mode (literal (element-title-string (current-node)))) (make sequence (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (if %generate-reference-titlepage% (make sequence (reference-titlepage nl 'recto) (reference-titlepage nl 'verso)) (empty-sosofo)) (if (not (generate-toc-in-front)) (process-children) (empty-sosofo)) (if (and (not (node-list-empty? refintro)) (not %generate-partintro-on-titlepage%)) ($process-partintro$ refintro) (empty-sosofo)) (if (and %generate-reference-toc% (not %generate-reference-toc-on-titlepage%)) (make sequence (build-toc (current-node) (toc-depth (current-node)))) (empty-sosofo)) (if (generate-toc-in-front) (process-children) (empty-sosofo))))))) ;; If each RefEntry begins on a new page, this title is going to wind ;; up on its own page, too, so make it a divtitlepage instead. Otherwise, ;; just let it be a component title. (element (reference title) (empty-sosofo)) (mode refentry-head-title-mode (default (process-children)) (element refnamediv (let* ((refdesc (select-elements (children (current-node)) (normalize "refdescriptor"))) (refname (select-elements (children (current-node)) (normalize "refname"))) (title (if (node-list-empty? refdesc) (node-list-first refname) (node-list-first refdesc)))) (process-node-list title))) (element refdescriptor (process-children)) (element refname (process-children)) (element graphic (empty-sosofo)) (element inlinegraphic (empty-sosofo))) (define ($refentry-body$) (let ((id (element-id (current-node)))) (make sequence (make element gi: "H1" (make sequence (make element gi: "A" attributes: (list (list "NAME" id)) (empty-sosofo)) (element-title-sosofo (current-node)))) (process-children)))) (element refentry (html-document (with-mode refentry-head-title-mode (literal (element-title-string (current-node)))) ($refentry-body$))) (element refmeta (empty-sosofo)) (element manvolnum ;; only called for xrefs and citerefentry (if %refentry-xref-manvolnum% (sosofo-append (literal "(") (process-children) (literal ")")) (empty-sosofo))) (element refmiscinfo (empty-sosofo)) (element refentrytitle ($charseq$)) (element refnamediv ($block-container$)) (element refname (make sequence (if (and %refentry-generate-name% (first-sibling? (current-node))) ($lowtitlewithsosofo$ 2 (literal (gentext-element-name (gi (current-node))))) (empty-sosofo)) (make sequence (process-children) (if (last-sibling? (current-node)) (empty-sosofo) (literal (gentext-intra-label-sep (gi (current-node)))))))) (element refpurpose (make sequence (make entity-ref name: "nbsp") (literal (dingbat "em-dash")) (make entity-ref name: "nbsp") (process-children))) (element refdescriptor (empty-sosofo)) ;; TO DO: finish this (element refclass (let ((role (attribute-string (normalize "role")))) (make element gi: "P" (make element gi: "B" (literal (if role (string-append role ": ") ""))) (process-children-trim)))) (element refsynopsisdiv (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (make element gi: "H2" (element-title-sosofo (current-node))) (process-children))) (element (refsynopsisdiv title) (empty-sosofo)) (element refsect1 ($block-container$)) (element (refsect1 title) ($lowtitle$ 2)) (element refsect2 ($block-container$)) (element (refsect2 title) ($lowtitle$ 3)) (element refsect3 ($block-container$)) (element (refsect3 title) ($lowtitle$ 4)) docbook-dsssl-1.79/html/dbqanda.dsl0000644000175000001440000001247207640131705017753 0ustar msmithusers00000000000000;; $Id: dbqanda.dsl,v 1.1 2003/03/25 19:53:41 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ============================== QANDASET ============================== (define (qanda-defaultlabel) (normalize "number")) (define (qanda-section-level) ;; FIXME: what if they nest inside each other? (let* ((enclsect (ancestor-member (current-node) (list (normalize "section") (normalize "simplesect") (normalize "sect5") (normalize "sect4") (normalize "sect3") (normalize "sect2") (normalize "sect1") (normalize "refsect3") (normalize "refsect2") (normalize "refsect1"))))) (SECTLEVEL enclsect))) (define (qandadiv-section-level) (let ((depth (length (hierarchical-number-recursive (normalize "qandadiv"))))) (+ (qanda-section-level) depth))) (element qandaset (let ((title (select-elements (children (current-node)) (normalize "title"))) ;; process title and rest separately so that we can put the TOC ;; in the rigth place... (rest (node-list-filter-by-not-gi (children (current-node)) (list (normalize "title"))))) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-node-list title) (if ($generate-qandaset-toc$) (process-qanda-toc) (empty-sosofo)) (process-node-list rest)))) (element (qandaset title) (let* ((htmlgi (string-append "H" (number->string (+ (qanda-section-level) 1))))) (make element gi: htmlgi attributes: (list (list "CLASS" (gi (current-node)))) (process-children)))) (element qandadiv (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element (qandadiv title) (let* ((hnr (hierarchical-number-recursive (normalize "qandadiv") (current-node))) (number (let loop ((numlist hnr) (number "") (sep "")) (if (null? numlist) number (loop (cdr numlist) (string-append number sep (number->string (car numlist))) ".")))) (htmlgi (string-append "H" (number->string (+ (qandadiv-section-level) 1))))) (make element gi: htmlgi (make element gi: "A" attributes: (list (list "NAME" (element-id (parent (current-node))))) (empty-sosofo)) (literal number ". ") (process-children)))) (element qandaentry (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element question (let* ((chlist (children (current-node))) (firstch (node-list-first chlist)) (restch (node-list-rest chlist))) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "P" (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (make element gi: "B" (literal (question-answer-label (current-node)) " ")) (process-node-list (children firstch))) (process-node-list restch)))) (element answer (let* ((inhlabel (inherited-attribute-string (normalize "defaultlabel"))) (deflabel (if inhlabel inhlabel (qanda-defaultlabel))) (label (attribute-string (normalize "label"))) (chlist (children (current-node))) (firstch (node-list-first chlist)) (restch (node-list-rest chlist))) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "P" (make element gi: "B" (literal (question-answer-label (current-node)) " ")) (process-node-list (children firstch))) (process-node-list restch)))) ;; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = (define (process-qanda-toc #!optional (node (current-node))) (let* ((divs (node-list-filter-by-gi (children node) (list (normalize "qandadiv")))) (entries (node-list-filter-by-gi (children node) (list (normalize "qandaentry")))) (inhlabel (inherited-attribute-string (normalize "defaultlabel"))) (deflabel (if inhlabel inhlabel (qanda-defaultlabel)))) (make element gi: "DL" (with-mode qandatoc (process-node-list divs)) (with-mode qandatoc (process-node-list entries))))) (mode qandatoc (element qandadiv (let ((title (select-elements (children (current-node)) (normalize "title")))) (make sequence (make element gi: "DT" (process-node-list title)) (make element gi: "DD" (process-qanda-toc))))) (element (qandadiv title) (let* ((hnr (hierarchical-number-recursive (normalize "qandadiv") (current-node))) (number (let loop ((numlist hnr) (number "") (sep "")) (if (null? numlist) number (loop (cdr numlist) (string-append number sep (number->string (car numlist))) "."))))) (make sequence (literal number ". ") (make element gi: "A" attributes: (list (list "HREF" (href-to (parent (current-node))))) (process-children))))) (element qandaentry (process-children)) (element question (let* ((chlist (children (current-node))) (firstch (node-list-first chlist))) (make element gi: "DT" (literal (question-answer-label (current-node)) " ") (make element gi: "A" attributes: (list (list "HREF" (href-to (current-node)))) (process-node-list (children firstch)))))) (element answer (empty-sosofo)) ) docbook-dsssl-1.79/html/dbprocdr.dsl0000644000175000001440000000366010124631562020154 0ustar msmithusers00000000000000;; $Id: dbprocdr.dsl,v 1.4 2004/09/23 20:34:58 petere78 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ============================= PROCEDURES ============================= (define (PROCSTEP ilvl) (if (> ilvl 1) 2.0em 1.8em)) (element procedure (let ((titles (select-elements (children (current-node)) (normalize "title"))) (preamble (node-list-filter-by-not-gi (children (current-node)) (list (normalize "step")))) (steps (node-list-filter-by-gi (children (current-node)) (list (normalize "step")))) (id (attribute-string (normalize "id")))) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (if (not (node-list-empty? titles)) (make element gi: "P" (make element gi: "B" (make sequence (if id (make element gi: "A" attributes: (list (list "NAME" id)) (empty-sosofo)) (empty-sosofo)) (with-mode title-mode (process-node-list titles))))) (if id (make element gi: "A" attributes: (list (list "NAME" id)) (empty-sosofo)) (empty-sosofo))) (process-node-list preamble) (make element gi: "OL" attributes: (list (list "TYPE" ($proc-hierarch-number-format$ 1))) (process-node-list steps))))) (element (procedure title) (empty-sosofo)) (element substeps (make element gi: "OL" attributes: (list (list "CLASS" "SUBSTEPS") (list "TYPE" ($proc-hierarch-number-format$ (+ ($proc-step-depth$ (current-node)) 1)))) (process-children))) (element step (let ((id (attribute-string (normalize "id")))) (make sequence (make element gi: "LI" attributes: (list (list "CLASS" (gi))) (if id (make element gi: "A" attributes: (list (list "NAME" id)) (empty-sosofo)) (empty-sosofo)) (process-children))))) docbook-dsssl-1.79/html/dbpi.dsl0000644000175000001440000000373107653134640017302 0ustar msmithusers00000000000000;; $Id: dbpi.dsl,v 1.2 2003/04/28 05:18:24 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; (define (pi-value component piname) ;; Returns the value of the (?piname value) PI (if one exists) ;; as a child of component, otherwise returns #f ;; (let loop ((nl (select-by-class (children component) 'pi))) (if (node-list-empty? nl) #f (let ((pidata (node-property 'system-data (node-list-first nl)))) (if (and (> (string-length pidata) (string-length piname)) (equal? piname (substring pidata 0 (string-length piname)))) (substring pidata (+ (string-length piname) 1) (string-length pidata)) (loop (node-list-rest nl))))))) (define (inherited-pi-value component piname) (let loop ((value #f) (nd component)) (if (or value (node-list-empty? nd)) value (loop (pi-value nd piname) (parent nd))))) (define (dbhtml-findvalue pi-field-list name) ;; pi-field-list is '(pitarget name1 value1 name2 value2 ...) (let loop ((slist (cdr pi-field-list))) (if (or (null? slist) (not (pair? slist))) #f (if (string=? (car slist) name) (car (cdr slist)) (loop (cdr (cdr slist))))))) (define (dbhtml-value component name) ;; Returns the value of "name='value'" in the <?dbhtml ...> PI (let loop ((nl (select-by-class (children component) 'pi))) (if (node-list-empty? nl) #f (let* ((pidata (node-property 'system-data (node-list-first nl))) (pilist (if (and (> (string-length pidata) 7) (string=? (substring pidata 0 7) "dbhtml ")) (parse-starttag-pi pidata) '())) (value (if (null? pilist) #f (dbhtml-findvalue pilist name)))) (if value value (loop (node-list-rest nl))))))) (define (inherited-dbhtml-value component name) (let loop ((value #f) (nd component)) (if (or value (node-list-empty? nd)) value (loop (dbhtml-value nd name) (parent nd))))) ;; EOF dbpi.dsl docbook-dsssl-1.79/html/dbparam.dsl0000644000175000001440000014272010132222013017746 0ustar msmithusers00000000000000 ;; $Id: dbparam.dsl,v 1.10 2004/10/10 11:55:10 petere78 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://www.nwalsh.com/docbook/dsssl/ ;; ;; === Book intro, for dsl2man ========================================== DocBook HTML Parameters ;; Part of the Modular DocBook Stylesheet distribution ;; NormanWalsh ;; ;; $Revision: 1.10 $ ;; 199719981999 ;; Norman Walsh ;; ;; ;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES ;; OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ;; NONINFRINGEMENT. IN NO EVENT SHALL NORMAN WALSH OR ANY OTHER ;; CONTRIBUTOR BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, ;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING ;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR ;; OTHER DEALINGS IN THE SOFTWARE. ;; ;; ;; ;; ;; Please direct all questions, bug reports, or suggestions for changes ;; to Norman Walsh, <ndw@nwalsh.com>. ;; ;; ;; See http://nwalsh.com/docbook/dsssl/ for more information. ;; ;; /DOCINFO ]]> ;; REFERENCE TOC/LOT Apparatus (define %generate-set-toc% ;; REFENTRY generate-set-toc ;; PURP Should a Table of Contents be produced for Sets? ;; DESC ;; If true, a Table of Contents will be generated for each 'Set'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %generate-book-toc% ;; REFENTRY generate-book-toc ;; PURP Should a Table of Contents be produced for Books? ;; DESC ;; If true, a Table of Contents will be generated for each 'Book'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define ($generate-book-lot-list$) ;; REFENTRY generate-book-lot-list ;; PURP Which Lists of Titles should be produced for Books? ;; DESC ;; This parameter should be a list (possibly empty) of the elements ;; for which Lists of Titles should be produced for each 'Book'. ;; ;; It is meaningless to put elements that do not have titles in this ;; list. If elements with optional titles are placed in this list, only ;; the instances of those elements that do have titles will appear in ;; the LOT. ;; ;; /DESC ;; AUTHOR N/A ;; /REFENTRY (list (normalize "table") (normalize "figure") (normalize "example") (normalize "equation"))) (define %generate-part-toc% ;; REFENTRY generate-part-toc ;; PURP Should a Table of Contents be produced for Parts? ;; DESC ;; If true, a Table of Contents will be generated for each 'Part'. ;; Note: '%generate-part-toc-on-titlepage%' controls whether the Part TOC ;; is placed on the bottom of the part titlepage or on page(s) of its own. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %generate-part-toc-on-titlepage% ;; REFENTRY generate-part-toc-on-titlepage ;; PURP Should the Part TOC appear on the Part title page? ;; DESC ;; If true, the Part TOC will be placed on the Part title page. If false, ;; the TOC will be placed on separate page(s) after the Part title page. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define $generate-chapter-toc$ ;; REFENTRY generate-chapter-toc ;; PURP Should a Chapter Table of Contents be produced? ;; DESC ;; If true, an automatically generated ;; chapter TOC should be included. By default, it's true. It's false if ;; the output is going to a single file and the current node isn't the ;; root element. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY (lambda () (or (not nochunks) (node-list=? (current-node) (sgml-root-element))))) (define %force-chapter-toc% ;; REFENTRY force-chapter-toc ;; PURP Force a chapter TOC even if it includes only a single entry ;; DESC ;; Force chapter toc indicates whether or not an automatically generated ;; chapter TOC should be included even if it has only one entry. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %generate-article-toc% ;; REFENTRY generate-article-toc ;; PURP Should a Table of Contents be produced for Articles? ;; DESC ;; If true, a Table of Contents will be generated for each 'Article'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define ($generate-article-lot-list$) ;; REFENTRY generate-article-lot-list ;; PURP Which Lists of Titles should be produced for Books? ;; DESC ;; This parameter should be a list (possibly empty) of the elements ;; for which Lists of Titles shold be produced for each 'Article'. ;; ;; It is meaningless to put elements that do not have titles in this ;; list. If elements with optional titles are placed in this list, only ;; the instances of those elements that do have titles will appear in ;; the LOT. ;; ;; /DESC ;; AUTHOR N/A ;; /REFENTRY (list)) (define %generate-reference-toc% ;; REFENTRY generate-reference-toc ;; PURP Should a Table of Contents be produced for References? ;; DESC ;; If true, a Table of Contents will be generated for each 'Reference'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %generate-reference-toc-on-titlepage% ;; REFENTRY generate-reference-toc-on-titlepage ;; PURP Should the Reference TOC appear on the Reference title page? ;; DESC ;; If true, the Reference TOC will be placed on the Reference title page. ;; If false, ;; the TOC will be placed after the Reference title page. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %annotate-toc% ;; REFENTRY annotate-toc ;; PURP Annotate TOC entries ;; DESC ;; If #t, TOC entries will be annotated (e.g., the RefPurpose ;; of a RefEntry will be displayed in the TOC). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define ($generate-qandaset-toc$) ;; REFENTRY generate-qandaset-toc ;; PURP Should a QandASet Table of Contents be produced? ;; DESC ;; If true, an automatically generated TOC is produced for each ;; QandASet. ;; /DESC ;; /REFENTRY #t) ;; REFERENCE Titlepages (define %generate-set-titlepage% ;; REFENTRY generate-set-titlepage ;; PURP Should a set title page be produced? ;; DESC ;; If true, a title page will be generated for each 'Set'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %generate-book-titlepage% ;; REFENTRY generate-book-titlepage ;; PURP Should a book title page be produced? ;; DESC ;; If true, a title page will be generated for each 'Book'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %generate-part-titlepage% ;; REFENTRY generate-part-titlepage ;; PURP Should a part title page be produced? ;; DESC ;; If true, a title page will be generated for each 'Part'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %generate-partintro-on-titlepage% ;; REFENTRY generate-partintro-on-titlepage ;; PURP Should the PartIntro appear on the Part/Reference title page? ;; DESC ;; If true, the PartIntro content will appear on the title page of ;; Parts and References. If false, ;; it will be placed on separate page(s) after the title page. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %generate-reference-titlepage% ;; REFENTRY generate-reference-titlepage ;; PURP Should a reference title page be produced? ;; DESC ;; If true, a title page will be generated for each 'Reference'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %generate-article-titlepage% ;; REFENTRY generate-article-titlepage ;; PURP Should an article title page be produced? ;; DESC ;; If true, a title page will be generated for each 'Article'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %titlepage-in-info-order% ;; REFENTRY titlepage-in-info-order ;; PURP Place elements on title page in document order? ;; DESC ;; If true, the elements on the title page will be set in the order that ;; they appear in the *info element. Otherwise, they will be set in ;; the order specified in the *-titlepage-*-elements list. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %generate-legalnotice-link% ;; REFENTRY generate-legalnotice-link ;; PURP Should legal notices be a link to a separate file? ;; DESC ;; If true, legal notices will be references to a separate file. ;; Note: the support for this handles the case where a single *INFO ;; node contains several distinct legal notices, but won't ;; handle multiple legal notices in different *INFO nodes. ;; (Each set will overwrite the previous.) A more complex ;; approach could be implemented, but this is sufficient for ;; the current demand. Let me know... ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define ($legalnotice-link-file$ legalnotice) ;; REFENTRY legalnotice-link-file ;; PURP Name of output file for legal notices ;; DESC ;; Name of the output file for legal notices if ;; '%generate-legalnotice-link%' is true. Since several legal notices ;; may occur (in a Set of Books, for example), this is no longer a fixed ;; filename. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY (if (and %use-id-as-filename% (attribute-string (normalize "id") legalnotice)) (string-append (attribute-string (normalize "id") legalnotice) %html-ext%) (string-append "ln" (number->string (all-element-number legalnotice)) %html-ext%))) (define %author-othername-in-middle% ;; REFENTRY othername-in-middle ;; PURP Author OTHERNAME appears between FIRSTNAME and SURNAME? ;; DESC ;; If true, the OTHERNAME of an AUTHOR appears between the ;; FIRSTNAME and SURNAME. Otherwise, OTHERNAME is suppressed. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) ;; REFERENCE Admonitions (define %admon-graphics% ;; REFENTRY admon-graphics ;; PURP Use graphics in admonitions? ;; DESC ;; If true, admonitions are presented in an alternate style that uses ;; a graphic. Default graphics are provided in the distribution. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %admon-graphics-path% ;; REFENTRY admon-graphics-path ;; PURP Path to admonition graphics ;; DESC ;; Sets the path, probably relative to the directory where the HTML ;; files are created, to the admonition graphics. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "../images/") (define ($admon-graphic$ #!optional (nd (current-node))) ;; REFENTRY admon-graphic ;; PURP Admonition graphic file ;; DESC ;; Given an admonition node, returns the name of the graphic that should ;; be used for that admonition. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY (cond ((equal? (gi nd) (normalize "tip")) (string-append %admon-graphics-path% "tip" %stock-graphics-extension%)) ((equal? (gi nd) (normalize "note")) (string-append %admon-graphics-path% "note" %stock-graphics-extension%)) ((equal? (gi nd) (normalize "important")) (string-append %admon-graphics-path% "important" %stock-graphics-extension%)) ((equal? (gi nd) (normalize "caution")) (string-append %admon-graphics-path% "caution" %stock-graphics-extension%)) ((equal? (gi nd) (normalize "warning")) (string-append %admon-graphics-path% "warning" %stock-graphics-extension%)) (else (error (string-append (gi nd) " is not an admonition."))))) (define ($admon-graphic-width$ #!optional (nd (current-node))) ;; REFENTRY admon-graphic-width ;; PURP Admonition graphic file width ;; DESC ;; Given an admonition node, returns the width of the graphic that will ;; be used for that admonition. ;; ;; All of the default graphics in the distribution are 25 pixels wide. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "25") ;; REFERENCE Callouts (define %callout-graphics% ;; REFENTRY callout-graphics ;; PURP Use graphics in callouts? ;; DESC ;; If true, callouts are presented with graphics (e.g., reverse-video ;; circled numbers instead of "(1)", "(2)", etc.). ;; Default graphics are provided in the distribution. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %callout-graphics-path% ;; REFENTRY callout-graphics-path ;; PURP Path to callout graphics ;; DESC ;; Sets the path, probably relative to the directory where the HTML ;; files are created, to the callout graphics. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "../images/callouts/") (define %callout-graphics-number-limit% ;; REFENTRY callout-graphics-number-limit ;; PURP Number of largest callout graphic ;; DESC ;; If '%callout-graphics%' is true, graphics are used to represent ;; callout numbers. The value of '%callout-graphics-number-limit%' is ;; the largest number for which a graphic exists. If the callout number ;; exceeds this limit, the default presentation "(nnn)" will always ;; be used. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 10) ;; REFERENCE VariableLists (define %always-format-variablelist-as-table% ;; REFENTRY always-format-variablelist-as-table ;; PURP Always format VariableLists as tables? ;; DESC ;; When a 'VariableList' is formatted, if any of the ;; terms in the list are too long, the whole list is formatted as a ;; list. ;; ;; If '%always-format-variablelist-as-table%' is ;; '#t', the 'VariableList' will be ;; formatted as a table, even if some terms are too long. The terms that ;; are too long will format span above their associated description. ;; /DESC ;; /REFENTRY #f) (define %default-variablelist-termlength% ;; REFENTRY default-variablelist-termlength ;; PURP Default term length on variablelists ;; DESC ;; When formatting a 'VariableList', this value is ;; used as the default term length, if no 'TermLength' is specified. ;; ;; If all of the terms in a list shorter than the term length, the ;; stylesheet may format them "side-by-side" in a table. ;; /DESC ;; /REFENTRY 20) (define %may-format-variablelist-as-table% ;; REFENTRY may-format-variablelist-as-table ;; PURP Format VariableLists as tables? ;; DESC ;; If '%may-format-variablelist-as-table%' is ;; '#t', a 'VariableList' will be ;; formatted as a table, if *all of* ;; the terms are shorter than the specified ;; 'TermLength'. ;; /DESC ;; /REFENTRY #f) ;; REFERENCE Navigation (define %header-navigation% ;; REFENTRY header-navigation ;; PURP Should navigation links be added to the top of each page? ;; DESC ;; If '#t', navigation links will be added to the top of each page. ;; If '#f', no navigation links will be added. Note that this has ;; no effect on '($user-header-navigation$)', which will still be ;; called (but does nothing by default). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %footer-navigation% ;; REFENTRY footer-navigation ;; PURP Should navigation links be added to the bottom of each page? ;; DESC ;; If '#t', navigation links will be added to the bottom of each page. ;; If '#f', no navigation links will be added. Note that this has ;; no effect on '($user-footer-navigation$)' or '(nav-footer)', which ;; will still be called (but do nothing by default). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %gentext-nav-tblwidth% ;; REFENTRY gentext-nav-tblwidth ;; PURP If using tables for navigation, how wide should the tables be? ;; DESC ;; If tables are used for navigation (see '%gentext-nav-use-tables%'), ;; how wide should the tables be? ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "100%") (define %gentext-nav-use-ff% ;; REFENTRY gentext-nav-use-ff ;; PURP Add "fast-forward" to the navigation links? ;; DESC ;; Do you want "fast-forward" navigation? Probably not is my guess. ;; I'm not sure this works real well yet. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %gentext-nav-use-tables% ;; REFENTRY gentext-nav-use-tables ;; PURP Use tables to build the navigation headers and footers? ;; DESC ;; If true, HTML TABLEs will be used to format the header and footer ;; navigation information. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) ;; REFERENCE Verbatim Environments (define %indent-address-lines% ;; REFENTRY indent-address-lines ;; PURP Indent lines in a 'Address'? ;; DESC ;; If not '#f', each line in the display will be indented ;; with the content of this variable. Usually it is set to some number ;; of spaces, but you can indent with any string you wish. ;; /DESC ;; /REFENTRY #f) (define %indent-funcsynopsisinfo-lines% ;; REFENTRY indent-funcsynopsisinfo-lines ;; PURP Indent lines in a 'FuncSynopsisInfo'? ;; DESC ;; If not '#f', each line in the display will be indented ;; with the content of this variable. Usually it is set to some number ;; of spaces, but you can indent with any string you wish. ;; /DESC ;; /REFENTRY #f) (define %indent-literallayout-lines% ;; REFENTRY indent-literallayout-lines ;; PURP Indent lines in a 'LiteralLayout'? ;; DESC ;; If not '#f', each line in the display will be indented ;; with the content of this variable. Usually it is set to some number ;; of spaces, but you can indent with any string you wish. ;; /DESC ;; /REFENTRY #f) (define %indent-programlisting-lines% ;; REFENTRY indent-programlisting-lines ;; PURP Indent lines in a 'ProgramListing'? ;; DESC ;; If not '#f', each line in the display will be indented ;; with the content of this variable. Usually it is set to some number ;; of spaces, but you can indent with any string you wish. ;; /DESC ;; /REFENTRY #f) (define %indent-screen-lines% ;; REFENTRY indent-screen-lines ;; PURP Indent lines in a 'Screen'? ;; DESC ;; If not '#f', each line in the display will be indented ;; with the content of this variable. Usually it is set to some number ;; of spaces, but you can indent with any string you wish. ;; /DESC ;; /REFENTRY #f) (define %indent-synopsis-lines% ;; REFENTRY indent-synopsis-lines ;; PURP Indent lines in a 'Synopsis'? ;; DESC ;; If not '#f', each line in the display will be indented ;; with the content of this variable. Usually it is set to some number ;; of spaces, but you can indent with any string you wish. ;; /DESC ;; /REFENTRY #f) (define %number-address-lines% ;; REFENTRY number-address-lines ;; PURP Enumerate lines in a 'Address'? ;; DESC ;; If true, lines in each 'Address' will be enumerated. ;; See also '%linenumber-mod%', '%linenumber-length%', ;; '%linenumber-padchar%', and '($linenumber-space$)'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %number-funcsynopsisinfo-lines% ;; REFENTRY number-funcsynopsisinfo-lines ;; PURP Enumerate lines in a 'FuncSynopsisInfo'? ;; DESC ;; If true, lines in each 'FuncSynopsisInfo' will be enumerated. ;; See also '%linenumber-mod%', '%linenumber-length%', ;; '%linenumber-padchar%', and '($linenumber-space$)'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %number-literallayout-lines% ;; REFENTRY number-literallayout-lines ;; PURP Enumerate lines in a 'LiteralLayout'? ;; DESC ;; If true, lines in each 'LiteralLayout' will be enumerated. ;; See also '%linenumber-mod%', '%linenumber-length%', ;; '%linenumber-padchar%', and '($linenumber-space$)'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %number-programlisting-lines% ;; REFENTRY number-programlisting-lines ;; PURP Enumerate lines in a 'ProgramListing'? ;; DESC ;; If true, lines in each 'ProgramListing' will be enumerated. ;; See also '%linenumber-mod%', '%linenumber-length%', ;; '%linenumber-padchar%', and '($linenumber-space$)'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %number-screen-lines% ;; REFENTRY number-screen-lines ;; PURP Enumerate lines in a 'Screen'? ;; DESC ;; If true, lines in each 'Screen' will be enumerated. ;; See also '%linenumber-mod%', '%linenumber-length%', ;; '%linenumber-padchar%', and '($linenumber-space$)'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %number-synopsis-lines% ;; REFENTRY number-synopsis-lines ;; PURP Enumerate lines in a 'Synopsis'? ;; DESC ;; If true, lines in each 'Synopsis' will be enumerated. ;; See also '%linenumber-mod%', '%linenumber-length%', ;; '%linenumber-padchar%', and '($linenumber-space$)'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %linenumber-length% ;; REFENTRY linenumber-length ;; PURP Width of line numbers in enumerated environments ;; DESC ;; Line numbers will be padded to '%linenumber-length%' ;; characters. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 3) (define %linenumber-mod% ;; REFENTRY linenumber-mod ;; PURP Controls line-number frequency in enumerated environments. ;; DESC ;; Every '%linenumber-mod%' line will be enumerated. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 5) (define %linenumber-padchar% ;; REFENTRY linenumber-padchar ;; PURP Pad character in line numbers ;; DESC ;; Line numbers will be padded (on the left) with '%linenumber-padchar%'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY " ") (define ($linenumber-space$) ;; REFENTRY linenumber-space ;; PURP Returns the sosofo which separates line numbers from the text ;; DESC ;; The sosofo returned by '($linenumber-space$)' is placed ;; between the line number and the corresponding line in ;; enumerated environments. ;; ;; Note: '%linenumber-padchar%'s are separated from lines ;; that are not enumerated (because they don't match '%linenumber-mod%'). ;; In other words, '($linenumber-space$)' occurs ;; on every line. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY (make entity-ref name: "nbsp")) (define %shade-verbatim% ;; REFENTRY shade-verbatim ;; PURP Should verbatim environments be shaded? ;; DESC ;; If true, a table with '($shade-verbatim-attr$)' attributes will be ;; wrapped around each verbatim environment. This gives the effect ;; of a shaded verbatim environment. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define ($shade-verbatim-attr$) ;; REFENTRY shade-verbatim-attr ;; PURP Attributes used to create a shaded verbatim environment. ;; DESC ;; See '%shade-verbatim%' ;; /DESC ;; AUTHOR N/A ;; /REFENTRY (list (list "BORDER" "0") (list "BGCOLOR" "#E0E0E0") (list "WIDTH" ($table-width$)))) (define %callout-default-col% ;; REFENTRY callout-default-col ;; PURP Default column for callouts ;; DESC ;; If the coordinates of a callout include only a line number, the callout ;; bug will appear in column '%callout-default-col%'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 60) ;; REFERENCE Labelling (define %chapter-autolabel% ;; REFENTRY chapter-autolabel ;; PURP Are chapters enumerated? ;; DESC ;; If true, chapters will be enumerated. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %section-autolabel% ;; REFENTRY section-autolabel ;; PURP Are sections enumerated? ;; DESC ;; If true, unlabeled sections will be enumerated. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %label-preface-sections% ;; REFENTRY label-preface-sections ;; PURP Are sections in the Preface enumerated? ;; DESC ;; If true, unlabeled sections in the Preface will be enumerated ;; if '%section-autolabel%' is true. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %qanda-inherit-numeration% ;; REFENTRY qanda-inherit-numeration ;; PURP Should numbered questions inherit the surrounding numeration? ;; DESC ;; If true, question numbers are prefixed with the surrounding ;; component or section number. Has no effect unless ;; '%section-autolabel%' is also true. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) ;; REFERENCE Tables (define %cals-table-class% ;; REFENTRY cals-table-class ;; PURP Class attribute for CALS tables ;; DESC ;; This value, if not '#f', will be used as the value of the CLASS ;; attribute on CALS tables. This allows the HTML stylesheet to ;; distinguish between HTML tables generated from tables in the ;; source document from HTML tables generated for other reasons ;; (simplelists and navigation, for example). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "CALSTABLE") (define ($table-element-list$) ;; REFENTRY table-element-list ;; PURP List of table element names ;; DESC ;; The list of table elements in the DTD. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY (list (normalize "table") (normalize "informaltable"))) (define ($table-width$) ;; REFENTRY table-width ;; PURP Calculate table width ;; DESC ;; This function is called to calculate the width of tables that should ;; theoretically be "100%" wide. Unfortunately, in HTML, a 100% width ;; table in a list hangs off the right side of the browser window. (Who's ;; mistake was that!). So this function provides a way to massage ;; the width appropriately. ;; ;; This version is fairly dumb. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY (if (has-ancestor-member? (current-node) '("LISTITEM")) "90%" "100%")) (define %simplelist-column-width% ;; REFENTRY simplelist-column-width ;; PURP Width of columns in tabular simple lists ;; DESC ;; If SimpleLists are presented in a table, how wide should the table ;; columns be? If '#f', no width will be specified. ;; ;; If not #f, this value should be a string (it will be used in the WIDTH ;; attribute on the TD for each table entry). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %epigraph-start-col% ;; REFENTRY epigraph-start-col ;; PURP Size of start indent for epigraphs. ;; DESC ;; Width of the table column which provides a starting indent for ;; epigraphs, expressed as a percentage. ;; AUTHOR Ola Lundqvist ;; /REFENTRY "45%") (define %epigraph-content-col% ;; REFENTRY epigraph-content-col ;; PURP Size of epigraph text column. ;; DESC ;; Width of the table column which contains the contents of ;; epigraphs, expressed as a percentage. ;; AUTHOR Ola Lundqvist ;; /REFENTRY "45%") (define %blockquote-start-col% ;; REFENTRY blockquote-start-col ;; PURP Size of start indent for blockquoted text. ;; DESC ;; Width of the table column which provides a starting indent for ;; blockquoted text, expressed as a percentage. ;; AUTHOR Ola Lundqvist ;; /REFENTRY "10%") (define %blockquote-end-col% ;; REFENTRY blockquote-end-col ;; PURP Size of end indent for blockquoted text. ;; DESC ;; Width of the table column which provides and end indent after ;; blockquoted text, expressed as a percentage. ;; AUTHOR Ola Lundqvist ;; /REFENTRY "10%") ;; REFERENCE Bibliographies (define biblio-citation-check ;; REFENTRY biblio-citation-check ;; PURP Check citations ;; DESC ;; If true, the content of CITATIONs will be checked against possible ;; biblioentries. If the citation cannot be found, an error is issued ;; and the citation is generated. If the citation is found, it is generated ;; with a cross reference to the appropriate biblioentry. ;; ;; A citation matches if the content of the citation element matches the ;; ID, XREFLABEL, or leading ABBREV of a biblioentry. ;; ;; This setting may have significant performance implications on large ;; documents, hence it is false by default. ;; ;; (This option can conveniently be set with '-V biblio-citation-check' ;; on the Jade command line). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define biblio-filter-used ;; REFENTRY filter-used ;; PURP Suppress unreferenced bibliography entries ;; DESC ;; If true, bibliography entries which are not cited are suppressed. ;; A biblioentry is cited if an XREF or LINK matches its ID, or if ;; a CITE element matches its ;; ID, XREFLABEL, or leading ABBREV. ;; ;; A BIBLIOGRAPHY with no entries will still be output (making a whole ;; component conditional would be _A LOT_ of work and seems unnecessary), ;; but BIBLIDIVs with no entries will be suppressed. ;; ;; This setting may have significant performance implications, ;; hence it is false by default. ;; ;; (This option can conveniently be set with '-V biblio-filter-used' on the ;; Jade command line). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define biblio-number ;; REFENTRY biblio-number ;; PURP Enumerate bibliography entries ;; DESC ;; If true, bibliography entries will be numbered. If you cross-reference ;; bibliography entries, you should probably use biblio-number or ;; consistently use XREFLABEL or ABBREV. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define biblio-xref-title ;; REFENTRY biblio-xref-title ;; PURP Use the titles of bibliography entries in XREFs ;; DESC ;; If true, cross references to bibliography entries will use the ;; title of the entry as the cross reference text. Otherwise, either ;; the number (see 'biblio-number') or XREFLABEL/ABBREV will be used. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) ;; REFERENCE OLinks (define %olink-fragid% ;; REFENTRY olink-fragid ;; PURP Portion of the URL which identifies the fragment identifier ;; DESC ;; Portion of the URL which identifies the fragment identifier ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "&fragid=") (define %olink-outline-ext% ;; REFENTRY olink-outline-ext ;; PURP Extension for olink outline file ;; DESC ;; The extension used to find the outline information file. When searching ;; for outline information about a document, the extension is discarded ;; from the system ID of the file and '%olinke-outline-ext%' is appended. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY ".olink") (define %olink-pubid% ;; REFENTRY olink-pubid ;; PURP Portion of the URL which identifies the public identifier ;; DESC ;; Portion of the URL which identifies the public identifier ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "pubid=") (define %olink-resolution% ;; REFENTRY olink-resolution ;; PURP URL script for OLink resolution ;; DESC ;; OLink resolution requires a server component, '%olink-resolution%' ;; identifies that component. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "/cgi-bin/olink?") (define %olink-sysid% ;; REFENTRY olink-sysid ;; PURP Portion of the URL which identifies the system identifier ;; DESC ;; Portion of the URL which identifies the system identifier. System ;; identifiers are only used if no public identifier is provided. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "sysid=") ;; REFERENCE Graphics (define %graphic-default-extension% ;; REFENTRY graphic-default-extension ;; PURP Default extension for graphic FILEREFs ;; DESC ;; The '%graphic-default-extension%' will be ;; added to the end of all 'fileref' filenames on ;; 'Graphic's if they do not end in one of the ;; '%graphic-extensions%'. Set this to '#f' ;; to turn off this feature. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %stock-graphics-extension% ;; REFENTRY stock-graphics-extension ;; PURP Suffix for "stock" graphic files ;; DESC ;; The extension to for the graphic files which ship with the ;; Modular DocBook Stylesheet distribution. This applies to callout ;; graphics and admonition graphics. Should include the intervening ;; period in the suffix, if any. ;; /DESC ;; AUTHOR Yann Dirson, Adam Di Carlo ;; /REFENTRY ".gif") (define %graphic-extensions% ;; REFENTRY graphic-extensions ;; PURP List of graphic filename extensions ;; DESC ;; The list of extensions which may appear on a 'fileref' ;; on a 'Graphic' which are indicative of graphic formats. ;; ;; Filenames that end in one of these extensions will not have ;; the '%graphic-default-extension%' added to them. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY '("gif" "jpg" "jpeg" "png" "tif" "tiff" "eps" "epsf")) (define image-library ;; REFENTRY image-library ;; PURP Load image library database for additional info about images? ;; DESC ;; If true, an image library database is loaded and extra information ;; about web graphics is retrieved from it. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define image-library-filename ;; REFENTRY image-library-filename ;; PURP Name of the image library database ;; DESC ;; If 'image-library' is true, then the database is loaded from ;; 'image-library-filename'. It's a current limitation that only a ;; single database can be loaded. ;; ;; The image library database is stored in a separate directory ;; because it must be parsed with the XML declaration. The only ;; practical way to accomplish this with Jade, if you are processing a ;; document that uses another declaration, is by having a catalog ;; file in the directory that contains the image library that ;; specifies the SGMLDECL. (So if it was in the same directory ;; as your document, your document would also be parsed with the ;; XML declaration, which may not be correct.) ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "imagelib/imagelib.xml") ;; REFERENCE HTML Parameters and Chunking (define %body-attr% ;; REFENTRY body-attr ;; PURP What attributes should be hung off of BODY? ;; DESC ;; A list of the the BODY attributes that should be generated. ;; The format is a list of lists, each interior list contains the ;; name and value of a BODY attribute. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY (list (list "BGCOLOR" "#FFFFFF") (list "TEXT" "#000000") (list "LINK" "#0000FF") (list "VLINK" "#840084") (list "ALINK" "#0000FF"))) (define %html-prefix% ;; REFENTRY html-prefix ;; PURP Add the specified prefix to HTML output filenames ;; DESC ;; The specified prefix will be added to all HTML output filenames. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "") (define %html-use-lang-in-filename% ;; REFENTRY html-use-lang-in-filename ;; PURP Add the source language code to the HTML output filename? ;; DESC ;; If '#t', the source language code (or the default language code, if ;; none is specified), will be added to the filename of each HTML ;; output file. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %html-ext% ;; REFENTRY html-ext ;; PURP Default extension for HTML output files ;; DESC ;; The default extension for HTML output files. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY ".htm") (define %html-header-tags% ;; REFENTRY html-header-tags ;; PURP What additional HEAD tags should be generated? ;; DESC ;; A list of the the HTML HEAD tags that should be generated. ;; The format is a list of lists, each interior list consists ;; of a tag name and a set of attribute/value pairs: ;; '(("META" ("NAME" "name") ("CONTENT" "content"))) ;; /DESC ;; AUTHOR N/A ;; /REFENTRY '()) (define %html-pubid% ;; REFENTRY html-pubid ;; PURP What public ID are you declaring your HTML compliant with? ;; DESC ;; The public ID used in output HTML files. If '#f', then no public ID ;; is produced. If both this and %html-sysid% are '#f', then no ;; doctype declaration is produced. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY (if %html40% "-//W3C//DTD HTML 4.01 Transitional//EN" #f)) (define %html-sysid% ;; REFENTRY html-sysid ;; PURP What system ID are you declaring your HTML compliant with? ;; DESC ;; The system ID used in output HTML files. If '#f', then no system ID ;; is produced. If both this and %html-pubid% are '#f', then no ;; doctype declaration is produced. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY (if %html40% "http://www.w3.org/TR/html4/loose.dtd" #f)) (define %root-filename% ;; REFENTRY root-filename ;; PURP Name for the root HTML document ;; DESC ;; The filename of the root HTML document (e.g, "index"). ;; If '#f', then a default name will be selected based on the element ;; type of the root element (e.g, book1.htm, set1.htm, c1.htm, etc.). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define html-index ;; REFENTRY html-index ;; PURP HTML indexing? ;; DESC ;; Turns on HTML indexing. If true, then index data will be written ;; to the file defined by 'html-index-filename'. This data can be ;; collated and turned into a DocBook index with bin/collateindex.pl. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define html-index-filename ;; REFENTRY html-index-filename ;; PURP Name of HTML index file ;; DESC ;; The name of the file to which index data will be written if ;; 'html-index' is not '#f'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "HTML.index") (define html-manifest ;; REFENTRY html-manifest ;; PURP Write a manifest? ;; DESC ;; If not '#f' then the list of HTML files created by the stylesheet ;; will be written to the file named by 'html-manifest-filename'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define html-manifest-filename ;; REFENTRY html-manifest-filename ;; PURP Name of HTML manifest file ;; DESC ;; The name of the file to which a manifest will be written if ;; 'html-manifest' is not '#f'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "HTML.manifest") (define nochunks ;; REFENTRY nochunks ;; PURP Suppress chunking of output pages ;; DESC ;; If true, the entire source document is formatted as a single HTML ;; document and output on stdout. ;; (This option can conveniently be set with '-V nochunks' on the ;; Jade command line). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define rootchunk ;; REFENTRY rootchunk ;; PURP Make a chunk for the root element when nochunks is used ;; DESC ;; If true, a chunk will be created for the root element, even though ;; nochunks is specified. This option has no effect if nochunks is not ;; true. ;; (This option can conveniently be set with '-V rootchunk' on the ;; Jade command line). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define use-output-dir ;; REFENTRY use-output-dir ;; PURP If an output-dir is specified, should it be used? ;; DESC ;; If true, chunks will be written to the 'output-dir' instead of ;; the current directory. ;; (This option can conveniently be set with '-V use-output-dir' on the ;; Jade command line). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %output-dir% ;; REFENTRY output-dir ;; PURP The directory to which HTML files should be written ;; DESC ;; The output directory can be set in two ways. An individual document ;; can specify 'output-dir="directory"' in the dbhtml PI, or the stylesheet ;; can specify the '%output-dir%'. If both are specified, the PI value ;; will be used. ;; ;; Note: the output directory is ignored if 'use-output-dir' is not '#t'. ;; (This allows the author to test stylesheets and documents without ;; accidentally overwriting existing documents.) ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %stylesheet% ;; REFENTRY stylesheet ;; PURP Name of the stylesheet to use ;; DESC ;; The name of the stylesheet to place in the HTML LINK TAG, or '#f' to ;; suppress the stylesheet LINK. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %stylesheet-type% ;; REFENTRY stylesheet-type ;; PURP The type of the stylesheet to use ;; DESC ;; The type of the stylesheet to place in the HTML LINK TAG. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY "text/css") (define %use-id-as-filename% ;; REFENTRY use-id-as-filename ;; PURP Use ID attributes as name for component HTML files? ;; DESC ;; If '%use-id-as-filename%' is true, the stylesheet will use the ;; value of the ID attribute on a component as the base filename instead ;; of using the auto-generated base. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %citerefentry-link% ;; REFENTRY citerefentry-link ;; PURP Generate URL links when cross-referencing RefEntrys? ;; DESC ;; If true, a web link will be generated, presumably ;; to an online man->HTML gateway. The text of the link is ;; generated by the $generate-citerefentry-link$ function. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) ;; REFERENCE RefEntries and FuncSynopses (define %refentry-generate-name% ;; REFENTRY refentry-generate-name ;; PURP Output NAME header before 'RefName'(s)? ;; DESC ;; If true, a "NAME" section title is output before the list ;; of 'RefName's. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %refentry-xref-italic% ;; REFENTRY refentry-xref-italic ;; PURP Use italic text when cross-referencing RefEntrys? ;; DESC ;; If true, italics are used when cross-referencing RefEntrys, either ;; with XRef or CiteRefEntry. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %refentry-xref-manvolnum% ;; REFENTRY refentry-xref-manvolnum ;; PURP Output manvolnum as part of RefEntry cross-reference? ;; DESC ;; If true, the manvolnum is used when cross-referencing RefEntrys, either ;; with XRef or CiteRefEntry. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %funcsynopsis-decoration% ;; REFENTRY funcsynopsis-decoration ;; PURP Decorate elements of a FuncSynopsis? ;; DESC ;; If true, elements of the FuncSynopsis will be decorated (e.g. bold or ;; italic). The decoration is controlled by functions that can be redefined ;; in a customization layer. See 'edbsynop.dsl'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %funcsynopsis-style% ;; REFENTRY funcsynopsis-style ;; PURP What style of 'FuncSynopsis' should be generated? ;; DESC ;; If '%funcsynopsis-style%' is 'ansi', ;; ANSI-style function synopses are generated for a 'FuncSynopsis', ;; otherwise KR-style function synopses are generated. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 'ansi) ;; REFERENCE HTML Content and CSS (define %html40% ;; REFENTRY html40 ;; PURP Generate HTML 4.0 ;; DESC ;; If '%html40%' is true then the output more closely resembles HTML 4.0. ;; In particular, the HTML table module includes COL, THEAD, TBODY, and TFOOT ;; elements, and the output documents have a proper doctype declaration. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %css-decoration% ;; REFENTRY css-decoration ;; PURP Enable CSS decoration of elements ;; DESC ;; If '%css-decoration%' is turned on then HTML elements produced by the ;; stylesheet may be decorated with STYLE attributes. For example, the ;; LI tags produced for list items may include a fragment of CSS in the ;; STYLE attribute which sets the CSS property "list-style-type". ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %css-liststyle-alist% ;; REFENTRY css-liststyle-alist ;; PURP Map DocBook OVERRIDE and MARK attributes to CSS ;; DESC ;; If '%css-decoration%' is turned on then the list-style-type property of ;; list items will be set to reflect the list item style selected in the ;; DocBook instance. This associative list maps the style type names used ;; in your instance to the appropriate CSS names. If no mapping exists, ;; the name from the instance will be used. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY '(("bullet" "disc") ("box" "square"))) (define %fix-para-wrappers% ;; REFENTRY fix-para-wrappers ;; PURP Block element in para hack ;; DESC ;; Block elements are allowed in PARA in DocBook, but not in P in ;; HTML. With '%fix-para-wrappers%' turned on, the stylesheets attempt ;; to avoid putting block elements in HTML P tags by outputting ;; additional end/begin P pairs around them. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %spacing-paras% ;; REFENTRY spacing-paras ;; PURP Block-element spacing hack ;; DESC ;; Should extraneous "P" tags be output to force the correct vertical ;; spacing around things like tables. This is ugly because different ;; browsers do different things. Turning this one can also create ;; illegal HTML. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %emphasis-propagates-style% ;; REFENTRY emphasis-propagates-style ;; PURP Support propagating emphasis role attributes to HTML ;; DESC ;; Should the role attribute of emphasis be propagated to HTML as ;; a class attribute value? ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %phrase-propagates-style% ;; REFENTRY phrase-propagates-style ;; PURP Support propagating phrase role attributes to HTML ;; DESC ;; Should the role attribute of phrase be propagated to HTML as ;; a class attribute value? ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) ;; REFERENCE Object Rules (define %example-rules% ;; REFENTRY example-rules ;; PURP Specify rules before and after an Example ;; DESC ;; If '#t', rules will be drawn before and after each ;; 'Example'. ;; /DESC ;; /REFENTRY #f) (define %figure-rules% ;; REFENTRY figure-rules ;; PURP Specify rules before and after an Figure ;; DESC ;; If '#t', rules will be drawn before and after each ;; 'Figure'. ;; /DESC ;; /REFENTRY #f) (define %table-rules% ;; REFENTRY table-rules ;; PURP Specify rules before and after an Table ;; DESC ;; If '#t', rules will be drawn before and after each ;; 'Table'. ;; /DESC ;; /REFENTRY #f) (define %equation-rules% ;; REFENTRY equation-rules ;; PURP Specify rules before and after an Equation ;; DESC ;; If '#t', rules will be drawn before and after each ;; 'Equation'. ;; /DESC ;; /REFENTRY #f) (define %informalexample-rules% ;; REFENTRY informalexample-rules ;; PURP Specify rules before and after an InformalExample ;; DESC ;; If '#t', rules will be drawn before and after each ;; 'InformalExample'. ;; /DESC ;; /REFENTRY #f) (define %informalfigure-rules% ;; REFENTRY informalfigure-rules ;; PURP Specify rules before and after an InformalFigure ;; DESC ;; If '#t', rules will be drawn before and after each ;; 'InformalFigure'. ;; /DESC ;; /REFENTRY #f) (define %informaltable-rules% ;; REFENTRY informaltable-rules ;; PURP Specify rules before and after an InformalTable ;; DESC ;; If '#t', rules will be drawn before and after each ;; 'InformalTable'. ;; /DESC ;; /REFENTRY #f) (define %informalequation-rules% ;; REFENTRY informalequation-rules ;; PURP Specify rules before and after an InformalEquation ;; DESC ;; If '#t', rules will be drawn before and after each ;; 'InformalEquation'. ;; /DESC ;; /REFENTRY #f) ;; REFERENCE Miscellaneous (define %content-title-end-punct% ;; REFENTRY content-title-end-punct ;; PURP List of punctuation chars at the end of a run-in head ;; DESC ;; If a run-in head ends in any of these characters, the ;; '%default-title-end-punct%' is not used. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY '(#\. #\! #\? #\:)) (define %honorific-punctuation% ;; REFENTRY honorific-punctuation ;; PURP Punctuation to follow honorifics in names ;; DESC ;; The honorific punctuation is placed after the honorific in ;; a name. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY ".") (define %default-quadding% ;; REFENTRY default-quadding ;; PURP The default quadding ;; DESC ;; At present, this is only used on paragraphs. It specifies the ;; value of the ALIGN attribute on the paragraph. This would be better ;; done with CSS, but not all browsers support it yet and this has been ;; oft requested functionality. ;; ;; A value of #f suppresses the ALIGN attribute altogether. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %default-simplesect-level% ;; REFENTRY default-simplesect-level ;; PURP Default section level for 'SimpleSect's. ;; DESC ;; If 'SimpleSect's appear inside other section-level ;; elements, they are rendered at the appropriate section level, but if they ;; appear in a component-level element, they are rendered at ;; '%default-simplesect-level%'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 4) (define %default-title-end-punct% ;; REFENTRY default-title-end-punct ;; PURP Default punctuation at the end of a run-in head. ;; DESC ;; The punctuation used at the end of a run-in head (e.g. on FORMALPARA). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY ".") (define %footnotes-at-end% ;; REFENTRY footnotes-at-end ;; PURP Should footnotes appear at the end of HTML pages? ;; DESC ;; If '#t', footnotes will be placed at the end of each HTML page ;; instead of immediately following the place where they occur. ;; Note: support for this feature is dependent on the processing ;; performed by the (footer-navigation) function; if you replace ;; that function, make sure that you're replacement calls ;; (make-endnotes). ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #t) (define %link-mailto-url% ;; REFENTRY link-mailto-url ;; PURP Mailto URL for LINK REL=made ;; DESC ;; If not '#f', the '%link-mailto-url%' address will be used in a ;; LINK REL=made element in the HTML HEAD. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %show-comments% ;; REFENTRY show-comments ;; PURP Display Comment elements? ;; DESC ;; If true, comments will be displayed, otherwise they are suppressed. ;; Comments here refers to the 'Comment' element, which will be renamed ;; 'Remark' in DocBook V4.0, not SGML/XML comments which are unavailable. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (define %writing-mode% ;; REFENTRY writing-mode ;; PURP The writing mode ;; DESC ;; The writing mode is either 'left-to-right', or ;; 'right-to-left'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY 'left-to-right) (define ($object-titles-after$) ;; REFENTRY object-titles-after ;; PURP List of objects who's titles go after the object ;; DESC ;; Titles of formal objects (Figures, Equations, Tables, etc.) ;; in this list will be placed below the object instead of above it. ;; ;; This is a list of element names, for example: ;; '(list (normalize "figure") (normalize "table"))'. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY '()) (define firstterm-bold ;; REFENTRY firstterm-bold ;; PURP Make FIRSTTERM elements bold? ;; DESC ;; If '#t', FIRSTTERMs will be bold, to distinguish them from ;; simple GLOSSTERMs. ;; /DESC ;; AUTHOR N/A ;; /REFENTRY #f) (declare-initial-value writing-mode %writing-mode%) docbook-dsssl-1.79/html/dbnavig.dsl0000644000175000001440000010735007321054312017765 0ustar msmithusers00000000000000;; $Id: dbnavig.dsl,v 1.3 2001/07/05 12:08:42 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; The header of a chunk has this form: ;; ;; +-----------------------------------------+ ;; | nav-banner | ;; +------------+---------------+------------| ;; | prevlink | nav-context | nextlink | ;; +-----------------------------------------+ (define (nav-banner? elemnode) ;; This node has a banner if: ;; 1. There's an inherited dbhtml PI value for "banner-text" and that ;; value is not the empty string, or ;; 2. The element is not the root element (let ((banner (inherited-dbhtml-value elemnode "banner-text"))) (or (and banner (not (string=? banner ""))) (not (node-list=? elemnode (sgml-root-element)))))) (define (nav-banner elemnode) (let* ((rootelem (sgml-root-element)) (info (info-element rootelem)) (subtitle-child (select-elements (children rootelem) (normalize "subtitle"))) (subtitle-info (select-elements (children info) (normalize "subtitle"))) (subtitle (if (node-list-empty? subtitle-info) subtitle-child subtitle-info)) (banner-text (inherited-dbhtml-value elemnode "banner-text")) (banner-href (inherited-dbhtml-value elemnode "banner-href")) (banner (if (and banner-text (not (string=? banner-text ""))) (literal banner-text) (make sequence (element-title-sosofo rootelem) (if (node-list-empty? subtitle) (empty-sosofo) (make sequence (literal ": ") (with-mode subtitle-mode (process-node-list subtitle)))))))) (make sequence (if banner-href (make element gi: "A" attributes: (list (list "HREF" banner-href)) banner) banner)))) (define (nav-context? elemnode) ;; Print a context header if ;; 1. There's an inherited dbhtml PI value for "context-text" and that ;; value is not the empty string, or ;; 2. The chunk is a top level section and the parent component ;; isn't the same as the root element (which appears in the nav-banner). ;; (let* ((context-text (inherited-dbhtml-value elemnode "context-text")) (rootelem (sgml-root-element)) (component (ancestor-member elemnode (append (book-element-list) (division-element-list) (component-element-list)))) (gencontext (and (or (equal? (gi elemnode) (normalize "sect1")) (equal? (gi elemnode) (normalize "section"))) (not (node-list=? component rootelem))))) (or gencontext (and context-text (not (string=? context-text "")))))) (define (nav-context elemnode) ;; Print the context string for elemnode. If there's an inherited ;; dbhtml value for 'context-text', use that. Otherwise, use the ;; title of the parent component... (let* ((context-href (inherited-dbhtml-value elemnode "context-href"))) (if (nav-context? elemnode) (if context-href (make element gi: "A" attributes: (list (list "HREF" context-href)) (nav-context-sosofo elemnode)) (nav-context-sosofo elemnode)) (empty-sosofo)))) (define (nav-context-sosofo elemnode) (let* ((component (ancestor-member elemnode (append (book-element-list) (division-element-list) (component-element-list)))) (context-text (inherited-dbhtml-value elemnode "context-text"))) (if (and context-text (not (string=? context-text ""))) (literal context-text) (if (equal? (element-label component) "") (make sequence (element-title-sosofo component)) (make sequence ;; Special case. This is a bit of a hack. ;; I need to revisit this aspect of ;; appendixes. (if (and (equal? (gi component) (normalize "appendix")) (or (equal? (gi elemnode) (normalize "sect1")) (equal? (gi elemnode) (normalize "section"))) (equal? (gi (parent component)) (normalize "article"))) (empty-sosofo) (literal (gentext-element-name-space (gi component)))) (element-label-sosofo component) (literal (gentext-label-title-sep (gi component))) (element-title-sosofo component)))))) ;; The footer of a chunk has this form: ;; ;; +----------------------------------------+ ;; | prevlink | nav-home | nextlink | ;; +------------+--------------+------------| ;; | p. title | nav-up | n. title | ;; +-----------------------------------------+ (define (nav-home? elemnode) (not (node-list=? elemnode (sgml-root-element)))) (define (nav-home elemnode) (sgml-root-element)) (define (nav-home-link elemnode) (let ((home (nav-home elemnode)) (home-text (inherited-dbhtml-value elemnode "home-text"))) (if (node-list=? elemnode home) (make entity-ref name: "nbsp") (make element gi: "A" attributes: (list (list "HREF" (href-to home)) (list "ACCESSKEY" "H")) (if home-text (literal home-text) (gentext-nav-home home)))))) ;; nav-up is displayed in the bottom center of the footer-navigation ;; table. The definition below will show "Up" for nested components ;; (the component wrapping a section, the division wrapping a component ;; etc.). It can be abused for other things, such as an index... ;; (define (nav-up? elemnode) (let ((up (parent elemnode)) (up-text (inherited-dbhtml-value elemnode "up-text"))) (if (and up-text (not (string=? up-text ""))) #t (if (or (node-list-empty? up) (node-list=? up (sgml-root-element)) (equal? (gi up) (normalize "bookinfo")) (equal? (gi up) (normalize "docinfo")) (equal? (gi up) (normalize "setinfo"))) #f #t)))) (define (nav-up elemnode) (let* ((up (parent elemnode)) (up-href (inherited-dbhtml-value elemnode "up-href")) (uplink? (not (or (node-list-empty? up) (node-list=? up (sgml-root-element))))) (href (if up-href up-href (if uplink? (href-to up) #f)))) (if href (make element gi: "A" attributes: (list (list "HREF" href) (list "ACCESSKEY" "U")) (nav-up-sosofo elemnode)) (nav-up-sosofo elemnode)))) (define (nav-up-sosofo elemnode) (let* ((up (parent elemnode)) (up-text (inherited-dbhtml-value elemnode "up-text"))) (if (and up-text (not (string=? up-text ""))) (literal up-text) (if (or (node-list-empty? up) (node-list=? up (sgml-root-element))) (make entity-ref name: "nbsp") (gentext-nav-up up))))) (define (nav-footer elemnode) (empty-sosofo)) ;; ====================================================================== (define (header-navigation nd #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element nd) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element nd) (list-ref navlist 1))) (prevm (if (null? navlist) (prev-major-component-chunk-element nd) (list-ref navlist 2))) (nextm (if (null? navlist) (next-major-component-chunk-element nd) (list-ref navlist 3))) (rnavlist (list prev next prevm nextm))) (make sequence ($html-body-start$) (if %header-navigation% (cond ((equal? (gi nd) (normalize "set")) (set-header-navigation nd rnavlist)) ((equal? (gi nd) (normalize "book")) (book-header-navigation nd rnavlist)) ((equal? (gi nd) (normalize "part")) (part-header-navigation nd rnavlist)) ((equal? (gi nd) (normalize "preface")) (preface-header-navigation nd rnavlist)) ((equal? (gi nd) (normalize "chapter")) (chapter-header-navigation nd rnavlist)) ((equal? (gi nd) (normalize "article")) (article-header-navigation nd rnavlist)) ((equal? (gi nd) (normalize "appendix")) (appendix-header-navigation nd rnavlist)) ((equal? (gi nd) (normalize "reference")) (reference-header-navigation nd rnavlist)) ((equal? (gi nd) (normalize "refentry")) (refentry-header-navigation nd rnavlist)) ((equal? (gi nd) (normalize "glossary")) (glossary-header-navigation nd rnavlist)) ((equal? (gi nd) (normalize "bibliography")) (bibliography-header-navigation nd rnavlist)) ((equal? (gi nd) (normalize "index")) (index-header-navigation nd rnavlist)) ;; LegalNotice only happens when %generate-legalnotice-link% is #t ((equal? (gi nd) (normalize "legalnotice")) (default-header-navigation nd (empty-node-list) (empty-node-list) (empty-node-list) (empty-node-list))) ((member (gi nd) (section-element-list)) (section-header-navigation nd rnavlist)) (else (default-header-navigation nd prev next prevm nextm))) (empty-sosofo)) ($user-header-navigation$ prev next prevm nextm) ($html-body-content-start$)))) (define (footer-navigation nd #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element nd) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element nd) (list-ref navlist 1))) (prevm (if (null? navlist) (prev-major-component-chunk-element nd) (list-ref navlist 2))) (nextm (if (null? navlist) (next-major-component-chunk-element nd) (list-ref navlist 3))) (rnavlist (list prev next prevm nextm))) (make sequence (make-endnotes) ($html-body-content-end$) ($user-footer-navigation$ prev next prevm nextm) (if %footer-navigation% (cond ((equal? (gi nd) (normalize "set")) (set-footer-navigation nd rnavlist)) ((equal? (gi nd) (normalize "book")) (book-footer-navigation nd rnavlist)) ((equal? (gi nd) (normalize "part")) (part-footer-navigation nd rnavlist)) ((equal? (gi nd) (normalize "preface")) (preface-footer-navigation nd rnavlist)) ((equal? (gi nd) (normalize "chapter")) (chapter-footer-navigation nd rnavlist)) ((equal? (gi nd) (normalize "article")) (article-footer-navigation nd rnavlist)) ((equal? (gi nd) (normalize "appendix")) (appendix-footer-navigation nd rnavlist)) ((equal? (gi nd) (normalize "reference")) (reference-footer-navigation nd rnavlist)) ((equal? (gi nd) (normalize "refentry")) (refentry-footer-navigation nd rnavlist)) ((equal? (gi nd) (normalize "glossary")) (glossary-footer-navigation nd rnavlist)) ((equal? (gi nd) (normalize "bibliography")) (bibliography-footer-navigation nd rnavlist)) ((equal? (gi nd) (normalize "index")) (index-footer-navigation nd rnavlist)) ;; LegalNotice only happens when %generate-legalnotice-link% is #t ((equal? (gi nd) (normalize "legalnotice")) (default-footer-navigation nd (empty-node-list) (empty-node-list) (empty-node-list) (empty-node-list))) ((member (gi nd) (section-element-list)) (section-footer-navigation nd rnavlist)) (else (default-footer-navigation nd prev next prevm nextm))) (empty-sosofo)) (nav-footer nd) ($html-body-end$)))) (define (set-header-navigation elemnode #!optional (navlist '())) (empty-sosofo)) (define (book-header-navigation elemnode #!optional (navlist '())) (empty-sosofo)) (define (part-header-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-header-navigation elemnode prev next prevsib nextsib))) (define (preface-header-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-header-navigation elemnode prev next prevsib nextsib))) (define (chapter-header-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-header-navigation elemnode prev next prevsib nextsib))) (define (appendix-header-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-header-navigation elemnode prev next prevsib nextsib))) (define (article-header-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (if (node-list=? elemnode (sgml-root-element)) (empty-sosofo) (default-header-navigation elemnode prev next prevsib nextsib)))) (define (glossary-header-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-header-navigation elemnode prev next prevsib nextsib))) (define (bibliography-header-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-header-navigation elemnode prev next prevsib nextsib))) (define (index-header-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-header-navigation elemnode prev next prevsib nextsib))) (define (reference-header-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-header-navigation elemnode prev next prevsib nextsib))) (define (refentry-header-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-header-navigation elemnode prev next prevsib nextsib))) (define (section-header-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-header-navigation elemnode prev next prevsib nextsib))) (define (set-footer-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-footer-navigation elemnode prev next prevsib nextsib))) (define (book-footer-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-footer-navigation elemnode prev next prevsib nextsib))) (define (part-footer-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-footer-navigation elemnode prev next prevsib nextsib))) (define (preface-footer-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-footer-navigation elemnode prev next prevsib nextsib))) (define (chapter-footer-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-footer-navigation elemnode prev next prevsib nextsib))) (define (appendix-footer-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-footer-navigation elemnode prev next prevsib nextsib))) (define (article-footer-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-footer-navigation elemnode prev next prevsib nextsib))) (define (glossary-footer-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-footer-navigation elemnode prev next prevsib nextsib))) (define (bibliography-footer-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-footer-navigation elemnode prev next prevsib nextsib))) (define (index-footer-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-footer-navigation elemnode prev next prevsib nextsib))) (define (reference-footer-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-footer-navigation elemnode prev next prevsib nextsib))) (define (refentry-footer-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-footer-navigation elemnode prev next prevsib nextsib))) (define (section-footer-navigation elemnode #!optional (navlist '())) (let* ((prev (if (null? navlist) (prev-chunk-element elemnode) (list-ref navlist 0))) (next (if (null? navlist) (next-chunk-element elemnode) (list-ref navlist 1))) (prevsib (if (null? navlist) (prev-major-component-chunk-element elemnode) (list-ref navlist 2))) (nextsib (if (null? navlist) (next-major-component-chunk-element elemnode) (list-ref navlist 3)))) (default-footer-navigation elemnode prev next prevsib nextsib))) ;; ---------------------------------------------------------------------- (define (default-header-nav-tbl-ff elemnode prev next prevsib nextsib) (let* ((r1? (nav-banner? elemnode)) (r1-sosofo (make element gi: "TR" (make element gi: "TH" attributes: (list (list "COLSPAN" "5") (list "ALIGN" "center") (list "VALIGN" "bottom")) (nav-banner elemnode)))) (r2? (or (not (node-list-empty? prev)) (not (node-list-empty? next)) (not (node-list-empty? prevsib)) (not (node-list-empty? nextsib)) (nav-context? elemnode))) (r2-sosofo (make element gi: "TR" (make element gi: "TD" attributes: (list (list "WIDTH" "10%") (list "ALIGN" "left") (list "VALIGN" "top")) (if (node-list-empty? prev) (make entity-ref name: "nbsp") (make element gi: "A" attributes: (list (list "HREF" (href-to prev)) (list "ACCESSKEY" "P")) (gentext-nav-prev prev)))) (make element gi: "TD" attributes: (list (list "WIDTH" "10%") (list "ALIGN" "left") (list "VALIGN" "top")) (if (node-list-empty? prevsib) (make entity-ref name: "nbsp") (make element gi: "A" attributes: (list (list "HREF" (href-to prevsib))) (gentext-nav-prev-sibling prevsib)))) (make element gi: "TD" attributes: (list (list "WIDTH" "60%") (list "ALIGN" "center") (list "VALIGN" "bottom")) (nav-context elemnode)) (make element gi: "TD" attributes: (list (list "WIDTH" "10%") (list "ALIGN" "right") (list "VALIGN" "top")) (if (node-list-empty? nextsib) (make entity-ref name: "nbsp") (make element gi: "A" attributes: (list (list "HREF" (href-to nextsib))) (gentext-nav-next-sibling nextsib)))) (make element gi: "TD" attributes: (list (list "WIDTH" "10%") (list "ALIGN" "right") (list "VALIGN" "top")) (if (node-list-empty? next) (make entity-ref name: "nbsp") (make element gi: "A" attributes: (list (list "HREF" (href-to next)) (list "ACCESSKEY" "N")) (gentext-nav-next next))))))) (if (or r1? r2?) (make element gi: "DIV" attributes: '(("CLASS" "NAVHEADER")) (make element gi: "TABLE" attributes: (list (list "SUMMARY" "Header navigation table") (list "WIDTH" %gentext-nav-tblwidth%) (list "BORDER" "0") (list "CELLPADDING" "0") (list "CELLSPACING" "0")) (if r1? r1-sosofo (empty-sosofo)) (if r2? r2-sosofo (empty-sosofo))) (make empty-element gi: "HR" attributes: (list (list "ALIGN" "LEFT") (list "WIDTH" %gentext-nav-tblwidth%)))) (empty-sosofo)))) (define (default-header-nav-tbl-noff elemnode prev next prevsib nextsib) (let* ((r1? (nav-banner? elemnode)) (r1-sosofo (make element gi: "TR" (make element gi: "TH" attributes: (list (list "COLSPAN" "3") (list "ALIGN" "center")) (nav-banner elemnode)))) (r2? (or (not (node-list-empty? prev)) (not (node-list-empty? next)) (nav-context? elemnode))) (r2-sosofo (make element gi: "TR" (make element gi: "TD" attributes: (list (list "WIDTH" "10%") (list "ALIGN" "left") (list "VALIGN" "bottom")) (if (node-list-empty? prev) (make entity-ref name: "nbsp") (make element gi: "A" attributes: (list (list "HREF" (href-to prev)) (list "ACCESSKEY" "P")) (gentext-nav-prev prev)))) (make element gi: "TD" attributes: (list (list "WIDTH" "80%") (list "ALIGN" "center") (list "VALIGN" "bottom")) (nav-context elemnode)) (make element gi: "TD" attributes: (list (list "WIDTH" "10%") (list "ALIGN" "right") (list "VALIGN" "bottom")) (if (node-list-empty? next) (make entity-ref name: "nbsp") (make element gi: "A" attributes: (list (list "HREF" (href-to next)) (list "ACCESSKEY" "N")) (gentext-nav-next next))))))) (if (or r1? r2?) (make element gi: "DIV" attributes: '(("CLASS" "NAVHEADER")) (make element gi: "TABLE" attributes: (list (list "SUMMARY" "Header navigation table") (list "WIDTH" %gentext-nav-tblwidth%) (list "BORDER" "0") (list "CELLPADDING" "0") (list "CELLSPACING" "0")) (if r1? r1-sosofo (empty-sosofo)) (if r2? r2-sosofo (empty-sosofo))) (make empty-element gi: "HR" attributes: (list (list "ALIGN" "LEFT") (list "WIDTH" %gentext-nav-tblwidth%)))) (empty-sosofo)))) (define (default-header-nav-notbl-ff elemnode prev next prevsib nextsib) (make element gi: "DIV" attributes: '(("CLASS" "NAVHEADER")) (if (nav-banner? elemnode) (make element gi: "H1" (nav-banner elemnode)) (empty-sosofo)) (if (and (node-list-empty? prev) (node-list-empty? prevsib) (node-list-empty? nextsib) (node-list-empty? next)) (empty-sosofo) (make element gi: "P" (if (node-list-empty? next) (empty-sosofo) (make sequence (make element gi: "A" attributes: (list (list "HREF" (href-to next)) (list "ACCESSKEY" "N")) (gentext-nav-next next)))) (if (node-list-empty? prev) (empty-sosofo) (make sequence (if (node-list-empty? next) (empty-sosofo) (literal ", ")) (make element gi: "A" attributes: (list (list "HREF" (href-to prev)) (list "ACCESSKEY" "P")) (gentext-nav-prev prev)))) (if (node-list-empty? nextsib) (empty-sosofo) (make sequence (if (and (node-list-empty? next) (node-list-empty? prev)) (empty-sosofo) (literal ", ")) (make element gi: "A" attributes: (list (list "HREF" (href-to nextsib))) (gentext-nav-next-sibling nextsib)))) (if (node-list-empty? prevsib) (empty-sosofo) (make sequence (if (and (node-list-empty? next) (node-list-empty? prev) (node-list-empty? nextsib)) (empty-sosofo) (literal ", ")) (make element gi: "A" attributes: (list (list "HREF" (href-to prevsib))) (gentext-nav-prev-sibling prevsib)))))) (if (nav-context? elemnode) (make element gi: "H2" (nav-context elemnode)) (empty-sosofo)) (make empty-element gi: "HR"))) (define (default-header-nav-notbl-noff elemnode prev next prevsib nextsib) (default-header-nav-notbl-ff elemnode prev next (empty-node-list) (empty-node-list))) (define (default-header-navigation elemnode prev next prevsib nextsib) (if %gentext-nav-use-tables% (if %gentext-nav-use-ff% (default-header-nav-tbl-ff elemnode prev next prevsib nextsib) (default-header-nav-tbl-noff elemnode prev next prevsib nextsib)) (if %gentext-nav-use-ff% (default-header-nav-notbl-ff elemnode prev next prevsib nextsib) (default-header-nav-notbl-noff elemnode prev next prevsib nextsib)))) (define (default-footer-navigation elemnode prev next prevsib nextsib) (if %gentext-nav-use-tables% (default-footer-nav-tbl elemnode prev next prevsib nextsib) (default-footer-nav-notbl elemnode prev next prevsib nextsib))) (define (default-footer-nav-tbl elemnode prev next prevsib nextsib) (let ((r1? (or (not (node-list-empty? prev)) (not (node-list-empty? next)) (nav-home? elemnode))) (r2? (or (not (node-list-empty? prev)) (not (node-list-empty? next)) (nav-up? elemnode))) (r1-sosofo (make element gi: "TR" (make element gi: "TD" attributes: (list (list "WIDTH" "33%") (list "ALIGN" "left") (list "VALIGN" "top")) (if (node-list-empty? prev) (make entity-ref name: "nbsp") (make element gi: "A" attributes: (list (list "HREF" (href-to prev)) (list "ACCESSKEY" "P")) (gentext-nav-prev prev)))) (make element gi: "TD" attributes: (list (list "WIDTH" "34%") (list "ALIGN" "center") (list "VALIGN" "top")) (nav-home-link elemnode)) (make element gi: "TD" attributes: (list (list "WIDTH" "33%") (list "ALIGN" "right") (list "VALIGN" "top")) (if (node-list-empty? next) (make entity-ref name: "nbsp") (make element gi: "A" attributes: (list (list "HREF" (href-to next)) (list "ACCESSKEY" "N")) (gentext-nav-next next)))))) (r2-sosofo (make element gi: "TR" (make element gi: "TD" attributes: (list (list "WIDTH" "33%") (list "ALIGN" "left") (list "VALIGN" "top")) (if (node-list-empty? prev) (make entity-ref name: "nbsp") (element-title-sosofo prev))) (make element gi: "TD" attributes: (list (list "WIDTH" "34%") (list "ALIGN" "center") (list "VALIGN" "top")) (if (nav-up? elemnode) (nav-up elemnode) (make entity-ref name: "nbsp"))) (make element gi: "TD" attributes: (list (list "WIDTH" "33%") (list "ALIGN" "right") (list "VALIGN" "top")) (if (node-list-empty? next) (make entity-ref name: "nbsp") (element-title-sosofo next)))))) (if (or r1? r2?) (make element gi: "DIV" attributes: '(("CLASS" "NAVFOOTER")) (make empty-element gi: "HR" attributes: (list (list "ALIGN" "LEFT") (list "WIDTH" %gentext-nav-tblwidth%))) (make element gi: "TABLE" attributes: (list (list "SUMMARY" "Footer navigation table") (list "WIDTH" %gentext-nav-tblwidth%) (list "BORDER" "0") (list "CELLPADDING" "0") (list "CELLSPACING" "0")) (if r1? r1-sosofo (empty-sosofo)) (if r2? r2-sosofo (empty-sosofo)))) (empty-sosofo)))) (define (default-footer-nav-notbl elemnode prev next prevsib nextsib) (make element gi: "DIV" attributes: '(("CLASS" "NAVFOOTER")) (make empty-element gi: "HR") (if (nav-home? elemnode) (nav-home-link elemnode) (empty-sosofo)) (if (nav-up? elemnode) (make sequence (if (nav-home? elemnode) (literal ", ") (empty-sosofo)) (nav-up elemnode)) (empty-sosofo)) (if (or (nav-home? elemnode) (nav-up? elemnode)) (make empty-element gi: "BR") (empty-sosofo)) (if (node-list-empty? prev) (empty-sosofo) (make sequence (make element gi: "A" attributes: (list (list "HREF" (href-to prev)) (list "ACCESSKEY" "P")) (gentext-nav-prev prev)) (literal ": " (element-title-string prev)) (make empty-element gi: "BR"))) (if (node-list-empty? next) (empty-sosofo) (make sequence (make element gi: "A" attributes: (list (list "HREF" (href-to next)) (list "ACCESSKEY" "N")) (gentext-nav-next next)) (literal ": " (element-title-string next)) (make empty-element gi: "BR"))))) (define ($user-header-navigation$ #!optional (prev (empty-node-list)) (next (empty-node-list)) (prevm (empty-node-list)) (nextm (empty-node-list))) (empty-sosofo)) (define ($user-footer-navigation$ #!optional (prev (empty-node-list)) (next (empty-node-list)) (prevm (empty-node-list)) (nextm (empty-node-list))) (empty-sosofo)) ;; EOF dbnavig.dsl; docbook-dsssl-1.79/html/dbmsgset.dsl0000644000175000001440000000221207611215255020161 0ustar msmithusers00000000000000;; $Id: dbmsgset.dsl,v 1.2 2003/01/15 08:24:13 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ======================== ERROR MESSAGES (ETC.) ======================= (element msgset (process-children)) (element msgentry ($block-container$)) (element simplemsgentry ($block-container$)) (element msg ($block-container$)) (element msgmain (process-children)) (element msgsub (process-children)) (element msgrel (empty-sosofo)) (element msgtext (process-children)) (element msginfo ($indent-para-container$)) (define ($genhead-para$ headtext) (make element gi: "P" (make element gi: "B" (literal (string-append headtext ": "))) (process-children))) (element msglevel ($genhead-para$ (gentext-element-name (current-node)))) (element msgorig ($genhead-para$ (gentext-element-name (current-node)))) (element msgaud ($genhead-para$ (gentext-element-name (current-node)))) (element msgexplan ($indent-para-container$)) (element (msgexplan title) ($runinhead$)) (element (msgexplan para) (make sequence (process-children))) docbook-dsssl-1.79/html/dbmath.dsl0000644000175000001440000000415507611215255017620 0ustar msmithusers00000000000000;; $Id: dbmath.dsl,v 1.2 2003/01/15 08:24:13 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; (define %equation-autolabel% #f) (element equation ;; derived from $semiformal-object$ (if (node-list-empty? (select-elements (children (current-node)) (normalize "title"))) ($informal-object$ %informalequation-rules% %informalequation-rules%) ($formal-object$ %informalequation-rules% %informalequation-rules%))) (element (equation title) (empty-sosofo)) (element (equation alt) (empty-sosofo)) (element (equation graphic) (let ((alttag (select-elements (children (parent)) (normalize "alt")))) (if alttag ($img$ (current-node) (data alttag)) ($img$)))) (element informalequation ;; Derived from informal-object (let ((rule-before? %informalequation-rules%) (rule-after? %informalequation-rules%)) (if %equation-autolabel% (make sequence (if rule-before? (make empty-element gi: "HR") (empty-sosofo)) (make element gi: "TABLE" attributes: '(("CLASS" "INFORMALEQUATION") ("WIDTH" "100%") ("BORDER" "0")) (make element gi: "TR" (make element gi: "TD" attributes: '(("VALIGN" "MIDDLE") ("ALIGN" "LEFT")) (process-children)) (make element gi: "TD" attributes: '(("VALIGN" "MIDDLE") ("ALIGN" "RIGHT") ("WIDTH" "100")) (literal "(" (element-label (current-node)) ")")))) (if rule-after? (make empty-element gi: "HR") (empty-sosofo))) ($informal-object$ rule-before? rule-after?)))) (element (informalequation alt) (empty-sosofo)) (element (informalequation graphic) (let ((alttag (select-elements (children (parent)) (normalize "alt")))) (if alttag ($img$ (current-node) (data alttag)) ($img$)))) (element inlineequation ($inline-object$)) (element (inlineequation alt) (empty-sosofo)) (element (inlineequation graphic) (let ((alttag (select-elements (children (parent)) (normalize "alt")))) (if alttag ($img$ (current-node) (data alttag)) ($img$)))) docbook-dsssl-1.79/html/dblot.dsl0000644000175000001440000000142107611215255017456 0ustar msmithusers00000000000000;; $Id: dblot.dsl,v 1.2 2003/01/15 08:24:13 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; need test cases to do toc/lot; do these later (element toc (empty-sosofo)) (element (toc title) (empty-sosofo)) (element tocfront ($paragraph$)) (element tocentry ($paragraph$)) (element tocpart (process-children)) (element tocchap (process-children)) (element toclevel1 (process-children)) (element toclevel2 (process-children)) (element toclevel3 (process-children)) (element toclevel4 (process-children)) (element toclevel5 (process-children)) (element tocback ($paragraph$)) (element lot (empty-sosofo)) (element (lot title) (empty-sosofo)) (element lotentry ($paragraph$)) docbook-dsssl-1.79/html/dblists.dsl0000644000175000001440000003252607643646403020040 0ustar msmithusers00000000000000;; $Id: dblists.dsl,v 1.6 2003/04/05 21:39:15 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; =============================== LISTS ================================ (element orderedlist (let* ((depth (length (hierarchical-number-recursive (normalize "orderedlist")))) (numeration (attribute-string (normalize "numeration"))) (firstitem (node-list-first (select-elements (children (current-node)) (normalize "listitem")))) (start (orderedlist-listitem-number firstitem)) (rawnum (cond ((equal? numeration (normalize "arabic")) 0) ((equal? numeration (normalize "loweralpha")) 1) ((equal? numeration (normalize "lowerroman")) 2) ((equal? numeration (normalize "upperalpha")) 3) ((equal? numeration (normalize "upperroman")) 4) (else (modulo depth 5)))) (type (case rawnum ((0) "1") ((1) "a") ((2) "i") ((3) "A") ((4) "I")))) (make sequence (if %spacing-paras% (make element gi: "P" (empty-sosofo)) (empty-sosofo)) (para-check) (process-node-list (select-elements (children (current-node)) (normalize "title"))) (make element gi: "OL" attributes: (append (if (equal? start 1) '() (list (list "START" (number->string start)))) (if (equal? (attribute-string (normalize "spacing")) (normalize "compact")) '(("COMPACT" "COMPACT")) '()) (list (list "TYPE" type))) (process-node-list (select-elements (children (current-node)) (normalize "listitem")))) (para-check 'restart)))) (element (orderedlist title) (make element gi: "P" (make element gi: "B" (process-children)))) (element itemizedlist (make sequence (if %spacing-paras% (make element gi: "P" (empty-sosofo)) (empty-sosofo)) (para-check) (process-node-list (select-elements (children (current-node)) (normalize "title"))) (make element gi: "UL" attributes: (if (equal? (attribute-string (normalize "spacing")) (normalize "compact")) '(("COMPACT" "COMPACT")) '()) (process-node-list (select-elements (children (current-node)) (normalize "listitem")))) (para-check 'restart))) (element listitem (let* ((override (inherited-attribute-string (normalize "override"))) (mark (inherited-attribute-string (normalize "mark"))) (usemark (if override override mark)) (cssmark (if (and usemark (assoc usemark %css-liststyle-alist%)) (car (cdr (assoc usemark %css-liststyle-alist%))) usemark)) (cssstyle (if (and %css-decoration% cssmark) (list (list "STYLE" (string-append "list-style-type: " cssmark))) '()))) (make element gi: "LI" attributes: cssstyle (if (attribute-string (normalize "id")) (make element gi: "A" attributes: (list (list "NAME" (attribute-string (normalize "id")))) (empty-sosofo)) (empty-sosofo)) (process-children)))) (element (orderedlist listitem simpara) (let* ((spacing (inherited-attribute-string (normalize "spacing"))) (listitem (parent (current-node))) (lichildren (node-list-filter-out-pis (children listitem))) (childcount (node-list-length lichildren))) (if (and (equal? spacing (normalize "compact")) (equal? childcount 1)) ($paragraph$ "SPAN") (next-match)))) (element (itemizedlist listitem simpara) (let* ((spacing (inherited-attribute-string (normalize "spacing"))) (listitem (parent (current-node))) (lichildren (node-list-filter-out-pis (children listitem))) (childcount (node-list-length lichildren))) (if (and (equal? spacing (normalize "compact")) (equal? childcount 1)) ($paragraph$ "SPAN") (next-match)))) (element variablelist (let* ((termlength (if (attribute-string (normalize "termlength")) (string->number (attribute-string (normalize "termlength"))) %default-variablelist-termlength%)) (too-long? (variablelist-term-too-long? termlength))) (make sequence (if %spacing-paras% (make element gi: "P" (empty-sosofo)) (empty-sosofo)) (para-check) (if (and (or (and termlength (not too-long?)) %always-format-variablelist-as-table%) (or %may-format-variablelist-as-table% %always-format-variablelist-as-table%)) (make element gi: "TABLE" attributes: '(("CLASS" "VARIABLELIST") ("BORDER" "0") ("CELLSPACING" "1") ("CELLPADDING" "1")) (if %html40% (make element gi: "TBODY" (with-mode variablelist-table (process-children))) (with-mode variablelist-table (process-children)))) (make sequence (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-node-list (select-elements (children (current-node)) (normalize "title"))) (make element gi: "DL" (process-node-list (select-elements (children (current-node)) (normalize "varlistentry"))))))) (para-check 'restart)))) (element varlistentry (let ((terms (select-elements (children (current-node)) (normalize "term"))) (listitem (select-elements (children (current-node)) (normalize "listitem")))) (make sequence (make element gi: "DT" (if (attribute-string (normalize "id")) (make sequence (make element gi: "A" attributes: (list (list "NAME" (attribute-string (normalize "id")))) (empty-sosofo)) (process-node-list terms)) (process-node-list terms))) (process-node-list listitem)))) (element (varlistentry term) (make sequence (process-children-trim) (if (not (last-sibling?)) (literal ", ") (literal "")))) (element (varlistentry listitem) (make element gi: "DD" (process-children))) (mode variablelist-table (element (variablelist title) (make element gi: "TR" attributes: '(("CLASS" "TITLE")) (make element gi: "TH" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("COLSPAN" "3")) (process-children)))) (element varlistentry (let* ((terms (select-elements (children (current-node)) (normalize "term"))) (listitem (select-elements (children (current-node)) (normalize "listitem"))) (termlen (if (attribute-string (normalize "termlength") (parent (current-node))) (string->number (attribute-string (normalize "termlength") (parent (current-node)))) %default-variablelist-termlength%)) (too-long? (varlistentry-term-too-long? (current-node) termlen))) (if too-long? (make sequence (make element gi: "TR" (make element gi: "TD" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("COLSPAN" "3")) (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (process-node-list terms))) (make element gi: "TR" (make element gi: "TD" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("WIDTH" "5")) ;; where terms would have gone (make entity-ref name: "nbsp")) (make element gi: "TD" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("WIDTH" "5")) ;; just a little spacer (make entity-ref name: "nbsp")) (make element gi: "TD" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP")) (process-node-list listitem)))) (make element gi: "TR" (make element gi: "TD" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP")) (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (process-node-list terms)) (make element gi: "TD" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("WIDTH" "5")) ;; just a little spacer (make entity-ref name: "nbsp")) (make element gi: "TD" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP")) (process-node-list listitem)))))) (element (varlistentry term) (make sequence (if %css-decoration% (make element gi: "SPAN" attributes: '(("STYLE" "white-space: nowrap")) (process-children-trim)) (make element gi: "NOBR" (process-children-trim))) (if (not (last-sibling?)) (literal ", ") (literal "")))) (element (varlistentry listitem) (process-children)) ) (define (simplelist-table majororder cols members) (let* ((termcount (node-list-length members)) (rows (quotient (+ termcount (- cols 1)) cols)) (htmlrows (let rowloop ((rownum 1)) (if (> rownum rows) (empty-sosofo) (make sequence (simplelist-row rownum majororder rows cols members) (rowloop (+ rownum 1))))))) (make sequence (if %spacing-paras% (make element gi: "P" (empty-sosofo)) (empty-sosofo)) (make element gi: "TABLE" attributes: '(("BORDER" "0")) (if %html40% (make element gi: "TBODY" htmlrows) htmlrows)) (if %spacing-paras% (make element gi: "P" (empty-sosofo)) (empty-sosofo))))) (define (simplelist-row rownum majororder rows cols members) (make element gi: "TR" (let colloop ((colnum 1)) (if (> colnum cols) (empty-sosofo) (make sequence (simplelist-entry rownum colnum majororder rows cols members) (colloop (+ colnum 1))))))) (define (simplelist-entry rownum colnum majororder rows cols members) (let ((membernum (if (equal? majororder 'row) (+ (* (- rownum 1) cols) colnum) (+ (* (- colnum 1) rows) rownum))) (attlist (if %simplelist-column-width% (list (list "WIDTH" %simplelist-column-width%)) '()))) (let loop ((nl members) (count membernum)) (if (<= count 1) (make element gi: "TD" attributes: attlist (if (node-list-empty? nl) (make entity-ref name: "nbsp") (process-node-list (node-list-first nl)))) (loop (node-list-rest nl) (- count 1)))))) (element simplelist (let ((type (attribute-string "type")) (cols (if (attribute-string "columns") (if (> (string->number (attribute-string "columns")) 0) (string->number (attribute-string "columns")) 1) 1)) (members (select-elements (children (current-node)) (normalize "member")))) (cond ((equal? type (normalize "inline")) (process-children)) ((equal? type (normalize "vert")) (simplelist-table 'column cols members)) ((equal? type (normalize "horiz")) (simplelist-table 'row cols members))))) (element member (let ((type (inherited-attribute-string (normalize "type")))) (if (equal? type (normalize "inline")) (make sequence (process-children-trim) (if (not (last-sibling?)) (literal ", ") (literal ""))) (process-children)))) (element segmentedlist (process-children)) (element (segmentedlist title) ($lowtitle$ 6)) (element segtitle (empty-sosofo)) (mode seglist-in-seg (element segtitle (process-children))) (element seglistitem (process-children)) (element seg (let* ((seg-num (child-number (current-node))) (seglist (parent (parent (current-node)))) (segtitle (nth-node (select-elements (descendants seglist) (normalize "segtitle")) seg-num))) ;; Note: segtitle is only going to be the right thing in a well formed ;; SegmentedList. If there are too many Segs or too few SegTitles, ;; you'll get something odd...maybe an error (with-mode seglist-in-seg (make element gi: "P" (make element gi: "B" (sosofo-append (process-node-list segtitle)) (literal ": ")) (process-children))))) (element calloutlist (let* ((nsep (gentext-label-title-sep (gi))) (id (attribute-string (normalize "id"))) (titlesosofo (make sequence (literal (gentext-element-name (gi))) (if (string=? (element-label) "") (literal nsep) (literal " " (element-label) nsep)) (element-title-sosofo)))) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (if (node-list-empty? (select-elements (children (current-node)) (normalize "title"))) (empty-sosofo) (make element gi: "P" (make element gi: "B" (if id (make sequence (make element gi: "A" attributes: (list (list "NAME" id)) (empty-sosofo)) titlesosofo) titlesosofo)))) (make element gi: "DL" attributes: '(("COMPACT" "COMPACT")) (process-children))))) (element (calloutlist title) (empty-sosofo)) (element callout (process-children)) (element (calloutlist callout) (process-children)) (element (calloutlist callout para) (let ((footnotes (select-elements (descendants (current-node)) (normalize "footnote")))) (make sequence (if (= (child-number) 1) (let* ((ilevel (length (hierarchical-number-recursive (normalize "calloutlist")))) (arearefs (inherited-attribute-string (normalize "arearefs"))) (idlist (split arearefs))) (make sequence (make element gi: "DT" (let loop ((ids idlist)) (if (null? ids) (empty-sosofo) (make sequence ($callout-mark$ (element-with-id (car ids)) #f) (loop (cdr ids)))))) (make element gi: "DD" (process-children)))) (make element gi: "DD" (make element gi: "P" (process-children)))) (if (or %footnotes-at-end% (node-list-empty? footnotes)) (empty-sosofo) (make element gi: "BLOCKQUOTE" attributes: (list (list "CLASS" "FOOTNOTES")) (with-mode footnote-mode (process-node-list footnotes))))))) docbook-dsssl-1.79/html/dblink.dsl0000644000175000001440000003475607611215255017636 0ustar msmithusers00000000000000;; $Id: dblink.dsl,v 1.6 2003/01/15 08:24:13 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ========================= LINKS AND ANCHORS ========================== (element link (let* ((endterm (attribute-string (normalize "endterm"))) (linkend (attribute-string (normalize "linkend"))) (target (element-with-id linkend)) (etarget (if endterm (element-with-id endterm) (empty-node-list)))) ;; It isn't necessary to catch either of these errors. The normal ;; ID/IDREF processing in Jade will catch them, and if -wno-idref ;; is used, then it's your gun, your bullet, and your foot. ;; (if (node-list-empty? target) ;; (error (string-append "Link to missing ID '" linkend "'")) ;; (empty-sosofo)) ;; (if (and endterm (node-list-empty? etarget)) ;; (error (string-append "EndTerm to missing ID '" endterm "' on Link")) ;; (empty-sosofo)) (if (node-list-empty? target) (process-children) (make element gi: "A" attributes: (list (list "HREF" (href-to target))) (if (and endterm (not (node-list-empty? etarget))) (with-mode xref-endterm-mode (process-node-list etarget)) (process-children)))))) (element ulink (make element gi: "A" attributes: (list (list "HREF" (attribute-string (normalize "url"))) (list "TARGET" "_top")) (if (node-list-empty? (children (current-node))) (literal (attribute-string (normalize "url"))) (process-children)))) (element anchor (make element gi: "A" attributes: (list (list "NAME" (attribute-string (normalize "id")))) (empty-sosofo))) (element beginpage (empty-sosofo)) ;; ====================================================================== (define (olink-link) ;; This is an olink without a TARGETDOCENT, treat it as a link within ;; the same document. (let* ((localinfo (normalize (attribute-string (normalize "localinfo")))) (target (element-with-id localinfo)) (linkmode (attribute-string (normalize "linkmode"))) (modespec (if linkmode (element-with-id linkmode) (empty-node-list))) (xreflabel (if (node-list-empty? modespec) #f (attribute-string (normalize "xreflabel") modespec))) (href (if (node-list-empty? target) (error (string-append "OLink to missing ID '" localinfo "'")) (href-to target))) (linktext (strip (data-of (current-node))))) (make element gi: "A" attributes: (list (list "HREF" href) (list "CLASS" "OLINK")) (if (equal? linktext "") (if xreflabel (xref-general target xreflabel) (xref-general target)) (process-children))))) (define (olink-href target modespec) (let* ((pubid (entity-public-id target)) (sysid (system-id-filename target)) (localinfo (normalize (attribute-string (normalize "localinfo")))) (qident (if pubid (string-append %olink-pubid% (url-encode-string pubid)) (string-append %olink-sysid% (url-encode-string sysid)))) (qfragid (if localinfo (string-append %olink-fragid% (url-encode-string localinfo)) "")) (lb-href (string-append %olink-resolution% qident qfragid)) (modetext (if (node-list-empty? modespec) "" (data-of modespec))) (href (if (equal? (strip modetext) "") lb-href (if localinfo (string-append modetext "#" (url-encode-string localinfo)) modetext)))) href)) (define (olink-simple) ;; Assumptions: ;; - The TARGETDOCENT is identified by a public ID ;; - LOLCALINFO contains the ID value (i.e. HREF fragment identifier) of ;; the target resource ;; - If the element has no content, the title extracted by ;; (olink-resource-title) should be used ;; - The (olink-resource-title) function can deduce the title from ;; the pubid and the sysid ;; - %olink-resolution% is the prefix to use on URLs (to point to a ;; cgi-bin script, or whatever you can make work for you) ;; - %olink-pubid% identifies the pubid in the query ;; - %olink-fragid% identifies the fragment identifier in the query (let* ((target (attribute-string (normalize "targetdocent"))) (pubid (entity-public-id target)) (sysid (system-id-filename target)) (title (olink-resource-title pubid sysid)) (href (olink-href target (empty-node-list))) (linktext (strip (data-of (current-node))))) (make element gi: "A" attributes: (list (list "HREF" href) (list "CLASS" "OLINK")) (if (equal? linktext "") (make element gi: "I" (literal title)) (process-children))))) (define (olink-outline-xref olroot target linktext) (let* ((name (attribute-string (normalize "name") target)) (label (attribute-string (normalize "label") target)) (title (select-elements (children target) (normalize "ttl"))) (substitute (list (list "%g" (if name (literal name) (literal ""))) (list "%n" (if label (literal label) (literal ""))) (list "%t" (with-mode olink-title-mode (process-node-list title))))) (tlist (match-split-list linktext (assoc-objs substitute)))) (string-list-sosofo tlist substitute))) (define (olink-outline) (let* ((target (attribute-string (normalize "targetdocent"))) (localinfo (normalize (attribute-string (normalize "localinfo")))) (sysid (entity-generated-system-id target)) (basename (trim-string sysid '(".sgm" ".xml" ".sgml"))) (olinkfile (string-append basename %olink-outline-ext%)) (olinkdoc (sgml-parse olinkfile)) (olinkroot (node-property 'document-element olinkdoc)) (olnode (if localinfo (element-with-id localinfo olinkroot) olinkroot)) (linkmode (attribute-string (normalize "linkmode"))) (modespec (if linkmode (element-with-id linkmode) (empty-node-list))) (xreflabel (if (node-list-empty? modespec) "" (attribute-string (normalize "xreflabel") modespec))) (href (if (equal? (attribute-string (normalize "type")) "href") (attribute-string (normalize "href") olnode) (olink-href target modespec))) (linktext (strip (data-of (current-node))))) (make element gi: "A" attributes: (list (list "HREF" href) (list "CLASS" "OLINK")) (if (equal? linktext "") (olink-outline-xref olinkroot olnode xreflabel) (process-children))))) (element olink (if (not (attribute-string (normalize "targetdocent"))) (olink-link) (if (attribute-string (normalize "linkmode")) (olink-outline) (olink-simple)))) (mode olink-title-mode (default (process-children)) (element ttl (make element gi: "I" (process-children))) (element it (make element gi: "I" (process-children))) (element tt (make element gi: "TT" (process-children))) (element sub (make element gi: "SUB" (process-children))) (element sup (make element gi: "SUP" (process-children))) ) ;; ====================================================================== (element xref (let* ((endterm (attribute-string (normalize "endterm"))) (linkend (attribute-string (normalize "linkend"))) (target (element-with-id linkend)) (xreflabel (if (node-list-empty? target) #f (attribute-string (normalize "xreflabel") target)))) (if (node-list-empty? target) (error (string-append "XRef LinkEnd to missing ID '" linkend "'")) (make element gi: "A" attributes: (list (list "HREF" (href-to target))) (if xreflabel (literal xreflabel) (if endterm (if (node-list-empty? (element-with-id endterm)) (error (string-append "XRef EndTerm to missing ID '" endterm "'")) (with-mode xref-endterm-mode (process-node-list (element-with-id endterm)))) (cond ((or (equal? (gi target) (normalize "biblioentry")) (equal? (gi target) (normalize "bibliomixed"))) ;; xref to the bibliography is a special case (xref-biblioentry target)) ((equal? (gi target) (normalize "co")) ;; callouts are a special case ($callout-mark$ target #f)) ((equal? (gi target) (normalize "listitem")) ;; listitems are a special case (if (equal? (gi (parent target)) (normalize "orderedlist")) (literal (orderedlist-listitem-label-recursive target)) (error (string-append "XRef to LISTITEM only supported in ORDEREDLISTs")))) ((equal? (gi target) (normalize "varlistentry")) (xref-varlistentry target)) ((equal? (gi target) (normalize "question")) ;; questions and answers are (yet another) special case (make sequence (literal (gentext-element-name target)) (literal (gentext-label-title-sep target)) (literal (question-answer-label target)))) ((equal? (gi target) (normalize "answer")) ;; questions and answers are (yet another) special case (make sequence (literal (gentext-element-name target)) (literal (gentext-label-title-sep target)) (literal (question-answer-label target)))) ((equal? (gi target) (normalize "refentry")) ;; so are refentrys (xref-refentry target)) ((equal? (gi target) (normalize "refnamediv")) ;; and refnamedivs (xref-refnamediv target)) ((equal? (gi target) (normalize "glossentry")) ;; as are glossentrys (xref-glossentry target)) ((equal? (gi target) (normalize "author")) ;; and authors (xref-author target)) ((equal? (gi target) (normalize "authorgroup")) ;; and authorgroups (xref-authorgroup target)) ; this doesn't really work very well yet ; ((equal? (gi target) (normalize "substeps")) ; ;; and substeps ; (xref-substeps target)) (else (xref-general target))))))))) (define (xref-refentry target) ;; refmeta/refentrytitle, refmeta/manvolnum, refnamediv/refdescriptor, ;; refnamediv/refname (let* ((refmeta (select-elements (children target) (normalize "refmeta"))) (refnamediv (select-elements (children target) (normalize "refnamediv"))) (rfetitle (select-elements (children refmeta) (normalize "refentrytitle"))) (manvolnum (select-elements (children refmeta) (normalize "manvolnum"))) (refdescrip (select-elements (children refnamediv) (normalize "refdescriptor"))) (refname (select-elements (children refnamediv) (normalize "refname"))) (title (if (node-list-empty? rfetitle) (if (node-list-empty? refdescrip) (node-list-first refname) (node-list-first refdescrip)) (node-list-first rfetitle))) (xsosofo (make sequence (process-node-list (children title)) (if (and %refentry-xref-manvolnum% (not (node-list-empty? manvolnum))) (process-node-list manvolnum) (empty-sosofo))))) (make sequence (if %refentry-xref-italic% (make element gi: "I" xsosofo) xsosofo)))) (define (xref-refnamediv target) (let* ((refname (select-elements (children target) (normalize "refname"))) (title (node-list-first refname)) (xsosofo (make sequence (process-node-list (children title))))) (make sequence (if %refentry-xref-italic% (make element gi: "I" xsosofo) xsosofo)))) (define (xref-varlistentry target) (let ((terms (select-elements (children target) (normalize "term")))) (with-mode xref-varlistentry-mode (process-node-list (node-list-first terms))))) (define (xref-glossentry target) (let ((glossterms (select-elements (children target) (normalize "glossterm")))) (with-mode xref-glossentry-mode (process-node-list (node-list-first glossterms))))) (define (xref-author target) (literal (author-string target))) (define (xref-authorgroup target) ;; it's a quirk of author-list-string that it needs to point to ;; one of the authors in the authorgroup, not the authorgroup. ;; go figure. (let loop ((author (select-elements (children target) (normalize "author")))) (if (node-list-empty? author) (empty-sosofo) (make sequence (literal (author-list-string (node-list-first author))) (loop (node-list-rest author)))))) ;(define (xref-substeps target) ; (let* ((steps (select-elements (children target) (normalize "step"))) ; (firststep (node-list-first steps)) ; (laststep (node-list-last steps)) ; (firstlabel (auto-xref-direct firststep)) ; (lastlabel (auto-xref-direct laststep "%n"))) ; (make sequence ; firstlabel ; (literal "-") ; lastlabel))) (define (xref-general target #!optional (xref-string #f)) ;; This function is used by both XREF and OLINK (when no TARGETDOCENT ;; is specified). The only case where xref-string is supplied is ;; on OLINK. (let ((label (attribute-string (normalize "xreflabel") target))) (if xref-string (auto-xref target xref-string) (if label (xreflabel-sosofo label) (auto-xref target))))) (define (xref-biblioentry target) (let* ((abbrev (node-list-first (node-list-filter-out-pis (children target)))) (label (attribute-string (normalize "xreflabel") target))) (if biblio-xref-title (let* ((citetitles (select-elements (descendants target) (normalize "citetitle"))) (titles (select-elements (descendants target) (normalize "title"))) (title (if (node-list-empty? citetitles) (node-list-first titles) (node-list-first citetitles)))) (with-mode xref-title-mode (process-node-list title))) (if biblio-number (make sequence (literal "[" (number->string (bibentry-number target)) "]")) (if label (make sequence (literal "[" label "]")) (if (equal? (gi abbrev) (normalize "abbrev")) (make sequence (process-node-list abbrev)) (make sequence (literal "[" (id target) "]")))))))) (mode xref-endterm-mode (default (make element gi: "I" (process-children-trim)))) (define (xreflabel-sosofo xreflabel) (make element gi: "I" (literal xreflabel))) ;; Returns the title of the element as a sosofo, italicized for xref. ;; (define (element-title-xref-sosofo nd) (make element gi: "I" (element-title-sosofo nd))) (mode xref-title-mode (element title (make element gi: "I" (process-children-trim))) (element citetitle (make element gi: "I" (process-children-trim))) (element refname (process-children-trim)) (element refentrytitle (process-children-trim))) (mode xref-varlistentry-mode (element term ($italic-seq$))) (mode xref-glossentry-mode (element glossterm ($italic-seq$))) ;; ====================================================================== (define (element-page-number-sosofo target) (literal "???")) ;; ====================================================================== docbook-dsssl-1.79/html/dbinline.dsl0000644000175000001440000002306110121602156020130 0ustar msmithusers00000000000000;; $Id: dbinline.dsl,v 1.11 2004/09/14 14:47:10 petere78 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ============================== INLINES =============================== (element abbrev (if %html40% ($abbr-seq$) ($charseq$))) (element acronym (if %html40% ($acronym-seq$) ($charseq$))) (element accel ($charseq$)) (element action ($charseq$)) (element application ($charseq$)) (element classname ($code-seq$)) (element constant ($code-seq$)) (element command ($bold-seq$)) (element computeroutput ($samp-seq$)) (element database ($charseq$)) (element email ($code-seq$ (make sequence (literal "<") (make element gi: "A" attributes: (list (list "HREF" (string-append "mailto:" (data (current-node))))) (process-children)) (literal ">")))) (element errorcode ($charseq$)) (element errorname ($charseq$)) (element errortype ($charseq$)) (element envar ($code-seq$)) (element filename ($mono-seq$)) ; unsure (element function ($code-seq$)) (element guibutton ($charseq$)) (element guiicon ($charseq$)) (element guilabel ($charseq$)) (element guimenu ($charseq$)) (element guimenuitem ($charseq$)) (element guisubmenu ($charseq$)) (element hardware ($charseq$)) (element interface ($charseq$)) (element interfacedefinition ($charseq$)) (element keycap ($bold-seq$)) (element keycode ($charseq$)) (element keycombo (let* ((action (attribute-string (normalize "action"))) (joinchar (cond ((equal? action (normalize "seq")) " ") ;; space ((equal? action (normalize "simul")) "+") ;; + ((equal? action (normalize "press")) "-") ;; ? I don't know ((equal? action (normalize "click")) "-") ;; ? what to do ((equal? action (normalize "double-click")) "-") ;; ? about the rest ((equal? action (normalize "other")) "-") ;; ? of these (else "-")))) (let loop ((nl (children (current-node))) (count 1)) (if (node-list-empty? nl) (empty-sosofo) (if (equal? count 1) (make sequence (process-node-list (node-list-first nl)) (loop (node-list-rest nl) (+ count 1))) (make sequence (literal joinchar) (process-node-list (node-list-first nl)) (loop (node-list-rest nl) (+ count 1)))))))) (element keysym ($charseq$)) (element literal ($mono-seq$)) (element medialabel ($italic-seq$)) (element menuchoice (let* ((shortcut (select-elements (children (current-node)) (normalize "shortcut"))) (items (node-list-filter-by-not-gi (children (current-node)) (list (normalize "shortcut"))))) (make sequence (let loop ((nl items) (first? #t)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (if first? (process-node-list (node-list-first nl)) (make sequence (if (or (equal? (gi (node-list-first nl)) (normalize "guimenuitem")) (equal? (gi (node-list-first nl)) (normalize "guisubmenu"))) (make sequence (literal "-") (make entity-ref name: "gt")) (literal "+")) (process-node-list (node-list-first nl)))) (loop (node-list-rest nl) #f)))) (if (node-list-empty? shortcut) (empty-sosofo) (make sequence (literal " (") (process-node-list shortcut) (literal ")")))))) (element methodname ($code-seq$)) (element shortcut ($bold-seq$)) (element mousebutton ($charseq$)) (element option ($code-seq$)) (element optional (make sequence (literal %arg-choice-opt-open-str%) ($charseq$) (literal %arg-choice-opt-close-str%))) (element parameter ($code-seq$)) (element property ($charseq$)) (element prompt ($samp-seq$)) (element replaceable ($italic-mono-seq$)) (element returnvalue ($charseq$)) (element structfield ($code-seq$)) (element structname ($code-seq$)) (element symbol ($code-seq$)) (element systemitem ($charseq$)) ; ambiguous, should look at class (element token ($charseq$)) (element type ($charseq$)) ; ambiguous (element userinput ($kbd-seq$)) (element varname ($code-seq$)) (element citation (if biblio-citation-check (let* ((bgraphies (select-elements (descendants (sgml-root-element)) (normalize "bibliography"))) (bchildren1 (expand-children bgraphies (list (normalize "bibliography")))) (bchildren2 (expand-children bchildren1 (list (normalize "bibliodiv")))) (bibentries (node-list-filter-by-gi bchildren2 (list (normalize "biblioentry") (normalize "bibliomixed"))))) (let loop ((bibs bibentries)) (if (node-list-empty? bibs) (make sequence (error (string-append "Cannot find citation: " (data (current-node)))) (literal "[") ($charseq$) (literal "]")) (if (citation-matches-target? (current-node) (node-list-first bibs)) (make element gi: "A" attributes: (list (list "HREF" (href-to (node-list-first bibs)))) (literal "[") ($charseq$) (literal "]")) (loop (node-list-rest bibs)))))) (make sequence (literal "[") ($charseq$) (literal "]")))) (element citerefentry (if %citerefentry-link% (make element gi: "A" attributes: (list (list "HREF" ($generate-citerefentry-link$))) (if %refentry-xref-italic% ($italic-seq$) ($charseq$))) (if %refentry-xref-italic% ($italic-seq$) ($charseq$)))) (define ($generate-citerefentry-link$) (empty-sosofo)) (define ($x-generate-citerefentry-link$) (let* ((refentrytitle (select-elements (children (current-node)) (normalize "refentrytitle"))) (manvolnum (select-elements (children (current-node)) (normalize "manvolnum")))) (string-append "http://example.com/cgi-bin/man.cgi?" (data refentrytitle) "(" (data manvolnum) ")"))) (element citetitle (if (equal? (attribute-string (normalize "pubwork")) "article") (make sequence (literal (gentext-start-quote)) (process-children) (literal (gentext-end-quote))) ($italic-seq$))) (element emphasis (let* ((class (if (and (attribute-string (normalize "role")) %emphasis-propagates-style%) (attribute-string (normalize "role")) "emphasis"))) (make element gi: "SPAN" attributes: (list (list "CLASS" class)) (if (and (attribute-string (normalize "role")) (or (equal? (attribute-string (normalize "role")) "strong") (equal? (attribute-string (normalize "role")) "bold"))) ($bold-seq$) ($italic-seq$))))) (element foreignphrase ($italic-seq$)) (element markup ($charseq$)) (element phrase (let* ((class (if (and (attribute-string (normalize "role")) %phrase-propagates-style%) (attribute-string (normalize "role")) "phrase"))) (make element gi: "SPAN" attributes: (list (list "CLASS" class)) ($charseq$)))) (element quote (let* ((hnr (hierarchical-number-recursive (normalize "quote") (current-node))) (depth (length hnr))) (make element gi: "SPAN" attributes: '(("CLASS" "QUOTE")) (if (equal? (modulo depth 2) 1) (make sequence (literal (gentext-start-nested-quote)) (process-children) (literal (gentext-end-nested-quote))) (make sequence (literal (gentext-start-quote)) (process-children) (literal (gentext-end-quote))))))) (element sgmltag (let ((class (if (attribute-string (normalize "class")) (attribute-string (normalize "class")) (normalize "element")))) ")))) ((equal? class (normalize "genentity")) ($code-seq$ (make sequence (literal "&") (process-children) (literal ";")))) ((equal? class (normalize "numcharref")) ($code-seq$ (make sequence (literal "&#") (process-children) (literal ";")))) ((equal? class (normalize "paramentity")) ($code-seq$ (make sequence (literal "%") (process-children) (literal ";")))) ((equal? class (normalize "pi")) ($code-seq$ (make sequence (literal "")))) ((equal? class (normalize "xmlpi")) ($code-seq$ (make sequence (literal "")))) ((equal? class (normalize "starttag")) ($code-seq$ (make sequence (literal "<") (process-children) (literal ">")))) ((equal? class (normalize "emptytag")) ($code-seq$ (make sequence (literal "<") (process-children) (literal "/>")))) ((equal? class (normalize "sgmlcomment")) ($code-seq$ (make sequence (literal "")))) ]]> (else ($charseq$))))) (element trademark (make sequence ($charseq$) (cond ((equal? (attribute-string "class") (normalize "copyright")) (make entity-ref name: "copy")) ((equal? (attribute-string "class") (normalize "registered")) (make entity-ref name: "reg")) ((equal? (attribute-string "class") (normalize "service")) (make element gi: "SUP" (literal "SM"))) (else (make entity-ref name: "#8482"))))) (element wordasword ($italic-seq$)) (element lineannotation (process-children)) (element superscript (make element gi: "SUP" (process-children))) (element subscript (make element gi: "SUB" (process-children))) docbook-dsssl-1.79/html/dbinfo.dsl0000644000175000001440000011721507611215255017624 0ustar msmithusers00000000000000;; $Id: dbinfo.dsl,v 1.2 2003/01/15 08:24:13 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ................................ INFO ................................ ;; Rather than make the *INFO containers empty-sosofos, we make them ;; process-children and then make all of the elements they may contain ;; empty in this context. The advantage here is that we can then ;; more easily override some of them in stylesheets that use this one. ;; SetInfo is handled differently in dbdivis.dsl by using a ;; special mode... (element setinfo (empty-sosofo)) (element (setinfo abbrev) (process-children)) (element (setinfo abstract) (process-children)) (element (setinfo address) (process-children)) (element (setinfo affiliation) (process-children)) (element (setinfo artpagenums) (process-children)) (element (setinfo author) (process-children)) (element (setinfo authorblurb) (process-children)) (element (setinfo authorgroup) (process-children)) (element (setinfo authorinitials) (process-children)) (element (setinfo bibliomisc) (process-children)) (element (setinfo biblioset) (process-children)) (element (setinfo collab) (process-children)) (element (setinfo confgroup) (process-children)) (element (setinfo contractnum) (process-children)) (element (setinfo contractsponsor) (process-children)) (element (setinfo contrib) (process-children)) (element (setinfo copyright) (process-children)) (element (setinfo corpauthor) (process-children)) (element (setinfo corpname) (process-children)) (element (setinfo date) (process-children)) (element (setinfo edition) (process-children)) (element (setinfo editor) (process-children)) (element (setinfo firstname) (process-children)) (element (setinfo graphic) (process-children)) (element (setinfo honorific) (process-children)) (element (setinfo invpartnumber) (process-children)) (element (setinfo isbn) (process-children)) (element (setinfo issn) (process-children)) (element (setinfo issuenum) (process-children)) (element (setinfo itermset) (process-children)) (element (setinfo keywordset) (process-children)) (element (setinfo legalnotice) ($semiformal-object$)) (element (setinfo lineage) (process-children)) (element (setinfo modespec) (process-children)) (element (setinfo orgname) (process-children)) (element (setinfo othercredit) (process-children)) (element (setinfo othername) (process-children)) (element (setinfo pagenums) (process-children)) (element (setinfo printhistory) (process-children)) (element (setinfo productname) (process-children)) (element (setinfo productnumber) (process-children)) (element (setinfo pubdate) (process-children)) (element (setinfo publisher) (process-children)) (element (setinfo publishername) (process-children)) (element (setinfo pubsnumber) (process-children)) (element (setinfo releaseinfo) (process-children)) (element (setinfo revhistory) ($book-revhistory$)) (element (setinfo seriesvolnums) (process-children)) (element (setinfo subjectset) (process-children)) (element (setinfo subtitle) (process-children)) (element (setinfo surname) (process-children)) (element (setinfo title) (process-children)) (element (setinfo titleabbrev) (process-children)) (element (setinfo volumenum) (process-children)) ;; BookInfo is handled differently in dbdivis.dsl by using a ;; special mode... (element bookinfo (empty-sosofo)) (element (bookinfo abbrev) (process-children)) (element (bookinfo abstract) (process-children)) (element (bookinfo address) (process-children)) (element (bookinfo affiliation) (process-children)) (element (bookinfo artpagenums) (process-children)) (element (bookinfo author) (process-children)) (element (bookinfo authorblurb) (process-children)) (element (bookinfo authorgroup) (process-children)) (element (bookinfo authorinitials) (process-children)) (element (bookinfo bibliomisc) (process-children)) (element (bookinfo biblioset) (process-children)) (element (bookinfo bookbiblio) (process-children)) (element (bookinfo collab) (process-children)) (element (bookinfo confgroup) (process-children)) (element (bookinfo contractnum) (process-children)) (element (bookinfo contractsponsor) (process-children)) (element (bookinfo contrib) (process-children)) (element (bookinfo copyright) (process-children)) (element (bookinfo corpauthor) (process-children)) (element (bookinfo corpname) (process-children)) (element (bookinfo date) (process-children)) (element (bookinfo edition) (process-children)) (element (bookinfo editor) (process-children)) (element (bookinfo firstname) (process-children)) (element (bookinfo graphic) (process-children)) (element (bookinfo honorific) (process-children)) (element (bookinfo invpartnumber) (process-children)) (element (bookinfo isbn) (process-children)) (element (bookinfo issn) (process-children)) (element (bookinfo issuenum) (process-children)) (element (bookinfo itermset) (process-children)) (element (bookinfo keywordset) (process-children)) (element (bookinfo legalnotice) ($semiformal-object$)) (element (bookinfo lineage) (process-children)) (element (bookinfo modespec) (process-children)) (element (bookinfo orgname) (process-children)) (element (bookinfo othercredit) (process-children)) (element (bookinfo othername) (process-children)) (element (bookinfo pagenums) (process-children)) (element (bookinfo printhistory) (process-children)) (element (bookinfo productname) (process-children)) (element (bookinfo productnumber) (process-children)) (element (bookinfo pubdate) (process-children)) (element (bookinfo publisher) (process-children)) (element (bookinfo publishername) (process-children)) (element (bookinfo pubsnumber) (process-children)) (element (bookinfo releaseinfo) (process-children)) (element (bookinfo revhistory) ($book-revhistory$)) (element (bookinfo seriesvolnums) (process-children)) (element (bookinfo subjectset) (process-children)) (element (bookinfo subtitle) (process-children)) (element (bookinfo surname) (process-children)) (element (bookinfo title) (process-children)) (element (bookinfo titleabbrev) (process-children)) (element (bookinfo volumenum) (process-children)) (element docinfo (empty-sosofo)) (element (docinfo abbrev) (empty-sosofo)) (element (docinfo abstract) (make element gi: "DIV" attributes: '(("CLASS" "ABSTRACT")) (process-children))) (element (docinfo abstract para) (make element gi: "P" (process-children-trim))) (element (docinfo address) (empty-sosofo)) (element (docinfo affiliation) (empty-sosofo)) (element (docinfo artpagenums) (empty-sosofo)) (element (docinfo author) (empty-sosofo)) (element (docinfo authorblurb) (empty-sosofo)) (element (docinfo authorgroup) (empty-sosofo)) (element (docinfo authorinitials) (empty-sosofo)) (element (docinfo bibliomisc) (empty-sosofo)) (element (docinfo biblioset) (empty-sosofo)) (element (docinfo collab) (empty-sosofo)) (element (docinfo confgroup) (empty-sosofo)) (element (docinfo contractnum) (empty-sosofo)) (element (docinfo contractsponsor) (empty-sosofo)) (element (docinfo contrib) (empty-sosofo)) (element (docinfo copyright) (empty-sosofo)) (element (docinfo corpauthor) (empty-sosofo)) (element (docinfo corpname) (empty-sosofo)) (element (docinfo date) (empty-sosofo)) (element (docinfo edition) (empty-sosofo)) (element (docinfo editor) (empty-sosofo)) (element (docinfo firstname) (empty-sosofo)) (element (docinfo graphic) (empty-sosofo)) (element (docinfo honorific) (empty-sosofo)) (element (docinfo invpartnumber) (empty-sosofo)) (element (docinfo isbn) (empty-sosofo)) (element (docinfo issn) (empty-sosofo)) (element (docinfo issuenum) (empty-sosofo)) (element (docinfo itermset) (empty-sosofo)) (element (docinfo keywordset) (empty-sosofo)) (element (docinfo legalnotice) (empty-sosofo)) (element (docinfo lineage) (empty-sosofo)) (element (docinfo modespec) (empty-sosofo)) (element (docinfo orgname) (empty-sosofo)) (element (docinfo othercredit) (empty-sosofo)) (element (docinfo othername) (empty-sosofo)) (element (docinfo pagenums) (empty-sosofo)) (element (docinfo printhistory) (empty-sosofo)) (element (docinfo productname) (empty-sosofo)) (element (docinfo productnumber) (empty-sosofo)) (element (docinfo pubdate) (empty-sosofo)) (element (docinfo publisher) (empty-sosofo)) (element (docinfo publishername) (empty-sosofo)) (element (docinfo pubsnumber) (empty-sosofo)) (element (docinfo releaseinfo) (empty-sosofo)) (element (docinfo revhistory) (empty-sosofo)) (element (docinfo seriesvolnums) (empty-sosofo)) (element (docinfo subjectset) (empty-sosofo)) (element (docinfo subtitle) (empty-sosofo)) (element (docinfo surname) (empty-sosofo)) (element (docinfo title) (empty-sosofo)) (element (docinfo titleabbrev) (empty-sosofo)) (element (docinfo volumenum) (empty-sosofo)) (element sect1info (process-children)) (element (sect1info abbrev) (empty-sosofo)) (element (sect1info abstract) (empty-sosofo)) (element (sect1info address) (empty-sosofo)) (element (sect1info affiliation) (empty-sosofo)) (element (sect1info artpagenums) (empty-sosofo)) (element (sect1info author) (empty-sosofo)) (element (sect1info authorblurb) (empty-sosofo)) (element (sect1info authorgroup) (empty-sosofo)) (element (sect1info authorinitials) (empty-sosofo)) (element (sect1info bibliomisc) (empty-sosofo)) (element (sect1info biblioset) (empty-sosofo)) (element (sect1info collab) (empty-sosofo)) (element (sect1info confgroup) (empty-sosofo)) (element (sect1info contractnum) (empty-sosofo)) (element (sect1info contractsponsor) (empty-sosofo)) (element (sect1info contrib) (empty-sosofo)) (element (sect1info copyright) (empty-sosofo)) (element (sect1info corpauthor) (empty-sosofo)) (element (sect1info corpname) (empty-sosofo)) (element (sect1info date) (empty-sosofo)) (element (sect1info edition) (empty-sosofo)) (element (sect1info editor) (empty-sosofo)) (element (sect1info firstname) (empty-sosofo)) (element (sect1info graphic) (empty-sosofo)) (element (sect1info honorific) (empty-sosofo)) (element (sect1info invpartnumber) (empty-sosofo)) (element (sect1info isbn) (empty-sosofo)) (element (sect1info issn) (empty-sosofo)) (element (sect1info issuenum) (empty-sosofo)) (element (sect1info itermset) (empty-sosofo)) (element (sect1info keywordset) (empty-sosofo)) (element (sect1info legalnotice) (empty-sosofo)) (element (sect1info lineage) (empty-sosofo)) (element (sect1info modespec) (empty-sosofo)) (element (sect1info orgname) (empty-sosofo)) (element (sect1info othercredit) (empty-sosofo)) (element (sect1info othername) (empty-sosofo)) (element (sect1info pagenums) (empty-sosofo)) (element (sect1info printhistory) (empty-sosofo)) (element (sect1info productname) (empty-sosofo)) (element (sect1info productnumber) (empty-sosofo)) (element (sect1info pubdate) (empty-sosofo)) (element (sect1info publisher) (empty-sosofo)) (element (sect1info publishername) (empty-sosofo)) (element (sect1info pubsnumber) (empty-sosofo)) (element (sect1info releaseinfo) (empty-sosofo)) (element (sect1info revhistory) (empty-sosofo)) (element (sect1info seriesvolnums) (empty-sosofo)) (element (sect1info subjectset) (empty-sosofo)) (element (sect1info subtitle) (empty-sosofo)) (element (sect1info surname) (empty-sosofo)) (element (sect1info title) (empty-sosofo)) (element (sect1info titleabbrev) (empty-sosofo)) (element (sect1info volumenum) (empty-sosofo)) (element sect2info (process-children)) (element (sect2info abbrev) (empty-sosofo)) (element (sect2info abstract) (empty-sosofo)) (element (sect2info address) (empty-sosofo)) (element (sect2info affiliation) (empty-sosofo)) (element (sect2info artpagenums) (empty-sosofo)) (element (sect2info author) (empty-sosofo)) (element (sect2info authorblurb) (empty-sosofo)) (element (sect2info authorgroup) (empty-sosofo)) (element (sect2info authorinitials) (empty-sosofo)) (element (sect2info bibliomisc) (empty-sosofo)) (element (sect2info biblioset) (empty-sosofo)) (element (sect2info collab) (empty-sosofo)) (element (sect2info confgroup) (empty-sosofo)) (element (sect2info contractnum) (empty-sosofo)) (element (sect2info contractsponsor) (empty-sosofo)) (element (sect2info contrib) (empty-sosofo)) (element (sect2info copyright) (empty-sosofo)) (element (sect2info corpauthor) (empty-sosofo)) (element (sect2info corpname) (empty-sosofo)) (element (sect2info date) (empty-sosofo)) (element (sect2info edition) (empty-sosofo)) (element (sect2info editor) (empty-sosofo)) (element (sect2info firstname) (empty-sosofo)) (element (sect2info graphic) (empty-sosofo)) (element (sect2info honorific) (empty-sosofo)) (element (sect2info invpartnumber) (empty-sosofo)) (element (sect2info isbn) (empty-sosofo)) (element (sect2info issn) (empty-sosofo)) (element (sect2info issuenum) (empty-sosofo)) (element (sect2info itermset) (empty-sosofo)) (element (sect2info keywordset) (empty-sosofo)) (element (sect2info legalnotice) (empty-sosofo)) (element (sect2info lineage) (empty-sosofo)) (element (sect2info modespec) (empty-sosofo)) (element (sect2info orgname) (empty-sosofo)) (element (sect2info othercredit) (empty-sosofo)) (element (sect2info othername) (empty-sosofo)) (element (sect2info pagenums) (empty-sosofo)) (element (sect2info printhistory) (empty-sosofo)) (element (sect2info productname) (empty-sosofo)) (element (sect2info productnumber) (empty-sosofo)) (element (sect2info pubdate) (empty-sosofo)) (element (sect2info publisher) (empty-sosofo)) (element (sect2info publishername) (empty-sosofo)) (element (sect2info pubsnumber) (empty-sosofo)) (element (sect2info releaseinfo) (empty-sosofo)) (element (sect2info revhistory) (empty-sosofo)) (element (sect2info seriesvolnums) (empty-sosofo)) (element (sect2info subjectset) (empty-sosofo)) (element (sect2info subtitle) (empty-sosofo)) (element (sect2info surname) (empty-sosofo)) (element (sect2info title) (empty-sosofo)) (element (sect2info titleabbrev) (empty-sosofo)) (element (sect2info volumenum) (empty-sosofo)) (element sect3info (process-children)) (element (sect3info abbrev) (empty-sosofo)) (element (sect3info abstract) (empty-sosofo)) (element (sect3info address) (empty-sosofo)) (element (sect3info affiliation) (empty-sosofo)) (element (sect3info artpagenums) (empty-sosofo)) (element (sect3info author) (empty-sosofo)) (element (sect3info authorblurb) (empty-sosofo)) (element (sect3info authorgroup) (empty-sosofo)) (element (sect3info authorinitials) (empty-sosofo)) (element (sect3info bibliomisc) (empty-sosofo)) (element (sect3info biblioset) (empty-sosofo)) (element (sect3info collab) (empty-sosofo)) (element (sect3info confgroup) (empty-sosofo)) (element (sect3info contractnum) (empty-sosofo)) (element (sect3info contractsponsor) (empty-sosofo)) (element (sect3info contrib) (empty-sosofo)) (element (sect3info copyright) (empty-sosofo)) (element (sect3info corpauthor) (empty-sosofo)) (element (sect3info corpname) (empty-sosofo)) (element (sect3info date) (empty-sosofo)) (element (sect3info edition) (empty-sosofo)) (element (sect3info editor) (empty-sosofo)) (element (sect3info firstname) (empty-sosofo)) (element (sect3info graphic) (empty-sosofo)) (element (sect3info honorific) (empty-sosofo)) (element (sect3info invpartnumber) (empty-sosofo)) (element (sect3info isbn) (empty-sosofo)) (element (sect3info issn) (empty-sosofo)) (element (sect3info issuenum) (empty-sosofo)) (element (sect3info itermset) (empty-sosofo)) (element (sect3info keywordset) (empty-sosofo)) (element (sect3info legalnotice) (empty-sosofo)) (element (sect3info lineage) (empty-sosofo)) (element (sect3info modespec) (empty-sosofo)) (element (sect3info orgname) (empty-sosofo)) (element (sect3info othercredit) (empty-sosofo)) (element (sect3info othername) (empty-sosofo)) (element (sect3info pagenums) (empty-sosofo)) (element (sect3info printhistory) (empty-sosofo)) (element (sect3info productname) (empty-sosofo)) (element (sect3info productnumber) (empty-sosofo)) (element (sect3info pubdate) (empty-sosofo)) (element (sect3info publisher) (empty-sosofo)) (element (sect3info publishername) (empty-sosofo)) (element (sect3info pubsnumber) (empty-sosofo)) (element (sect3info releaseinfo) (empty-sosofo)) (element (sect3info revhistory) (empty-sosofo)) (element (sect3info seriesvolnums) (empty-sosofo)) (element (sect3info subjectset) (empty-sosofo)) (element (sect3info subtitle) (empty-sosofo)) (element (sect3info surname) (empty-sosofo)) (element (sect3info title) (empty-sosofo)) (element (sect3info titleabbrev) (empty-sosofo)) (element (sect3info volumenum) (empty-sosofo)) (element sect4info (process-children)) (element (sect4info abbrev) (empty-sosofo)) (element (sect4info abstract) (empty-sosofo)) (element (sect4info address) (empty-sosofo)) (element (sect4info affiliation) (empty-sosofo)) (element (sect4info artpagenums) (empty-sosofo)) (element (sect4info author) (empty-sosofo)) (element (sect4info authorblurb) (empty-sosofo)) (element (sect4info authorgroup) (empty-sosofo)) (element (sect4info authorinitials) (empty-sosofo)) (element (sect4info bibliomisc) (empty-sosofo)) (element (sect4info biblioset) (empty-sosofo)) (element (sect4info collab) (empty-sosofo)) (element (sect4info confgroup) (empty-sosofo)) (element (sect4info contractnum) (empty-sosofo)) (element (sect4info contractsponsor) (empty-sosofo)) (element (sect4info contrib) (empty-sosofo)) (element (sect4info copyright) (empty-sosofo)) (element (sect4info corpauthor) (empty-sosofo)) (element (sect4info corpname) (empty-sosofo)) (element (sect4info date) (empty-sosofo)) (element (sect4info edition) (empty-sosofo)) (element (sect4info editor) (empty-sosofo)) (element (sect4info firstname) (empty-sosofo)) (element (sect4info graphic) (empty-sosofo)) (element (sect4info honorific) (empty-sosofo)) (element (sect4info invpartnumber) (empty-sosofo)) (element (sect4info isbn) (empty-sosofo)) (element (sect4info issn) (empty-sosofo)) (element (sect4info issuenum) (empty-sosofo)) (element (sect4info itermset) (empty-sosofo)) (element (sect4info keywordset) (empty-sosofo)) (element (sect4info legalnotice) (empty-sosofo)) (element (sect4info lineage) (empty-sosofo)) (element (sect4info modespec) (empty-sosofo)) (element (sect4info orgname) (empty-sosofo)) (element (sect4info othercredit) (empty-sosofo)) (element (sect4info othername) (empty-sosofo)) (element (sect4info pagenums) (empty-sosofo)) (element (sect4info printhistory) (empty-sosofo)) (element (sect4info productname) (empty-sosofo)) (element (sect4info productnumber) (empty-sosofo)) (element (sect4info pubdate) (empty-sosofo)) (element (sect4info publisher) (empty-sosofo)) (element (sect4info publishername) (empty-sosofo)) (element (sect4info pubsnumber) (empty-sosofo)) (element (sect4info releaseinfo) (empty-sosofo)) (element (sect4info revhistory) (empty-sosofo)) (element (sect4info seriesvolnums) (empty-sosofo)) (element (sect4info subjectset) (empty-sosofo)) (element (sect4info subtitle) (empty-sosofo)) (element (sect4info surname) (empty-sosofo)) (element (sect4info title) (empty-sosofo)) (element (sect4info titleabbrev) (empty-sosofo)) (element (sect4info volumenum) (empty-sosofo)) (element sect5info (process-children)) (element (sect5info abbrev) (empty-sosofo)) (element (sect5info abstract) (empty-sosofo)) (element (sect5info address) (empty-sosofo)) (element (sect5info affiliation) (empty-sosofo)) (element (sect5info artpagenums) (empty-sosofo)) (element (sect5info author) (empty-sosofo)) (element (sect5info authorblurb) (empty-sosofo)) (element (sect5info authorgroup) (empty-sosofo)) (element (sect5info authorinitials) (empty-sosofo)) (element (sect5info bibliomisc) (empty-sosofo)) (element (sect5info biblioset) (empty-sosofo)) (element (sect5info collab) (empty-sosofo)) (element (sect5info confgroup) (empty-sosofo)) (element (sect5info contractnum) (empty-sosofo)) (element (sect5info contractsponsor) (empty-sosofo)) (element (sect5info contrib) (empty-sosofo)) (element (sect5info copyright) (empty-sosofo)) (element (sect5info corpauthor) (empty-sosofo)) (element (sect5info corpname) (empty-sosofo)) (element (sect5info date) (empty-sosofo)) (element (sect5info edition) (empty-sosofo)) (element (sect5info editor) (empty-sosofo)) (element (sect5info firstname) (empty-sosofo)) (element (sect5info graphic) (empty-sosofo)) (element (sect5info honorific) (empty-sosofo)) (element (sect5info invpartnumber) (empty-sosofo)) (element (sect5info isbn) (empty-sosofo)) (element (sect5info issn) (empty-sosofo)) (element (sect5info issuenum) (empty-sosofo)) (element (sect5info itermset) (empty-sosofo)) (element (sect5info keywordset) (empty-sosofo)) (element (sect5info legalnotice) (empty-sosofo)) (element (sect5info lineage) (empty-sosofo)) (element (sect5info modespec) (empty-sosofo)) (element (sect5info orgname) (empty-sosofo)) (element (sect5info othercredit) (empty-sosofo)) (element (sect5info othername) (empty-sosofo)) (element (sect5info pagenums) (empty-sosofo)) (element (sect5info printhistory) (empty-sosofo)) (element (sect5info productname) (empty-sosofo)) (element (sect5info productnumber) (empty-sosofo)) (element (sect5info pubdate) (empty-sosofo)) (element (sect5info publisher) (empty-sosofo)) (element (sect5info publishername) (empty-sosofo)) (element (sect5info pubsnumber) (empty-sosofo)) (element (sect5info releaseinfo) (empty-sosofo)) (element (sect5info revhistory) (empty-sosofo)) (element (sect5info seriesvolnums) (empty-sosofo)) (element (sect5info subjectset) (empty-sosofo)) (element (sect5info subtitle) (empty-sosofo)) (element (sect5info surname) (empty-sosofo)) (element (sect5info title) (empty-sosofo)) (element (sect5info titleabbrev) (empty-sosofo)) (element (sect5info volumenum) (empty-sosofo)) (element refsect1info (process-children)) (element (refsect1info abbrev) (empty-sosofo)) (element (refsect1info abstract) (empty-sosofo)) (element (refsect1info address) (empty-sosofo)) (element (refsect1info affiliation) (empty-sosofo)) (element (refsect1info artpagenums) (empty-sosofo)) (element (refsect1info author) (empty-sosofo)) (element (refsect1info authorblurb) (empty-sosofo)) (element (refsect1info authorgroup) (empty-sosofo)) (element (refsect1info authorinitials) (empty-sosofo)) (element (refsect1info bibliomisc) (empty-sosofo)) (element (refsect1info biblioset) (empty-sosofo)) (element (refsect1info collab) (empty-sosofo)) (element (refsect1info confgroup) (empty-sosofo)) (element (refsect1info contractnum) (empty-sosofo)) (element (refsect1info contractsponsor) (empty-sosofo)) (element (refsect1info contrib) (empty-sosofo)) (element (refsect1info copyright) (empty-sosofo)) (element (refsect1info corpauthor) (empty-sosofo)) (element (refsect1info corpname) (empty-sosofo)) (element (refsect1info date) (empty-sosofo)) (element (refsect1info edition) (empty-sosofo)) (element (refsect1info editor) (empty-sosofo)) (element (refsect1info firstname) (empty-sosofo)) (element (refsect1info graphic) (empty-sosofo)) (element (refsect1info honorific) (empty-sosofo)) (element (refsect1info invpartnumber) (empty-sosofo)) (element (refsect1info isbn) (empty-sosofo)) (element (refsect1info issn) (empty-sosofo)) (element (refsect1info issuenum) (empty-sosofo)) (element (refsect1info itermset) (empty-sosofo)) (element (refsect1info keywordset) (empty-sosofo)) (element (refsect1info legalnotice) (empty-sosofo)) (element (refsect1info lineage) (empty-sosofo)) (element (refsect1info modespec) (empty-sosofo)) (element (refsect1info orgname) (empty-sosofo)) (element (refsect1info othercredit) (empty-sosofo)) (element (refsect1info othername) (empty-sosofo)) (element (refsect1info pagenums) (empty-sosofo)) (element (refsect1info printhistory) (empty-sosofo)) (element (refsect1info productname) (empty-sosofo)) (element (refsect1info productnumber) (empty-sosofo)) (element (refsect1info pubdate) (empty-sosofo)) (element (refsect1info publisher) (empty-sosofo)) (element (refsect1info publishername) (empty-sosofo)) (element (refsect1info pubsnumber) (empty-sosofo)) (element (refsect1info releaseinfo) (empty-sosofo)) (element (refsect1info revhistory) (empty-sosofo)) (element (refsect1info seriesvolnums) (empty-sosofo)) (element (refsect1info subjectset) (empty-sosofo)) (element (refsect1info subtitle) (empty-sosofo)) (element (refsect1info surname) (empty-sosofo)) (element (refsect1info title) (empty-sosofo)) (element (refsect1info titleabbrev) (empty-sosofo)) (element (refsect1info volumenum) (empty-sosofo)) (element refsect2info (process-children)) (element (refsect2info abbrev) (empty-sosofo)) (element (refsect2info abstract) (empty-sosofo)) (element (refsect2info address) (empty-sosofo)) (element (refsect2info affiliation) (empty-sosofo)) (element (refsect2info artpagenums) (empty-sosofo)) (element (refsect2info author) (empty-sosofo)) (element (refsect2info authorblurb) (empty-sosofo)) (element (refsect2info authorgroup) (empty-sosofo)) (element (refsect2info authorinitials) (empty-sosofo)) (element (refsect2info bibliomisc) (empty-sosofo)) (element (refsect2info biblioset) (empty-sosofo)) (element (refsect2info collab) (empty-sosofo)) (element (refsect2info confgroup) (empty-sosofo)) (element (refsect2info contractnum) (empty-sosofo)) (element (refsect2info contractsponsor) (empty-sosofo)) (element (refsect2info contrib) (empty-sosofo)) (element (refsect2info copyright) (empty-sosofo)) (element (refsect2info corpauthor) (empty-sosofo)) (element (refsect2info corpname) (empty-sosofo)) (element (refsect2info date) (empty-sosofo)) (element (refsect2info edition) (empty-sosofo)) (element (refsect2info editor) (empty-sosofo)) (element (refsect2info firstname) (empty-sosofo)) (element (refsect2info graphic) (empty-sosofo)) (element (refsect2info honorific) (empty-sosofo)) (element (refsect2info invpartnumber) (empty-sosofo)) (element (refsect2info isbn) (empty-sosofo)) (element (refsect2info issn) (empty-sosofo)) (element (refsect2info issuenum) (empty-sosofo)) (element (refsect2info itermset) (empty-sosofo)) (element (refsect2info keywordset) (empty-sosofo)) (element (refsect2info legalnotice) (empty-sosofo)) (element (refsect2info lineage) (empty-sosofo)) (element (refsect2info modespec) (empty-sosofo)) (element (refsect2info orgname) (empty-sosofo)) (element (refsect2info othercredit) (empty-sosofo)) (element (refsect2info othername) (empty-sosofo)) (element (refsect2info pagenums) (empty-sosofo)) (element (refsect2info printhistory) (empty-sosofo)) (element (refsect2info productname) (empty-sosofo)) (element (refsect2info productnumber) (empty-sosofo)) (element (refsect2info pubdate) (empty-sosofo)) (element (refsect2info publisher) (empty-sosofo)) (element (refsect2info publishername) (empty-sosofo)) (element (refsect2info pubsnumber) (empty-sosofo)) (element (refsect2info releaseinfo) (empty-sosofo)) (element (refsect2info revhistory) (empty-sosofo)) (element (refsect2info seriesvolnums) (empty-sosofo)) (element (refsect2info subjectset) (empty-sosofo)) (element (refsect2info subtitle) (empty-sosofo)) (element (refsect2info surname) (empty-sosofo)) (element (refsect2info title) (empty-sosofo)) (element (refsect2info titleabbrev) (empty-sosofo)) (element (refsect2info volumenum) (empty-sosofo)) (element refsect3info (process-children)) (element (refsect3info abbrev) (empty-sosofo)) (element (refsect3info abstract) (empty-sosofo)) (element (refsect3info address) (empty-sosofo)) (element (refsect3info affiliation) (empty-sosofo)) (element (refsect3info artpagenums) (empty-sosofo)) (element (refsect3info author) (empty-sosofo)) (element (refsect3info authorblurb) (empty-sosofo)) (element (refsect3info authorgroup) (empty-sosofo)) (element (refsect3info authorinitials) (empty-sosofo)) (element (refsect3info bibliomisc) (empty-sosofo)) (element (refsect3info biblioset) (empty-sosofo)) (element (refsect3info collab) (empty-sosofo)) (element (refsect3info confgroup) (empty-sosofo)) (element (refsect3info contractnum) (empty-sosofo)) (element (refsect3info contractsponsor) (empty-sosofo)) (element (refsect3info contrib) (empty-sosofo)) (element (refsect3info copyright) (empty-sosofo)) (element (refsect3info corpauthor) (empty-sosofo)) (element (refsect3info corpname) (empty-sosofo)) (element (refsect3info date) (empty-sosofo)) (element (refsect3info edition) (empty-sosofo)) (element (refsect3info editor) (empty-sosofo)) (element (refsect3info firstname) (empty-sosofo)) (element (refsect3info graphic) (empty-sosofo)) (element (refsect3info honorific) (empty-sosofo)) (element (refsect3info invpartnumber) (empty-sosofo)) (element (refsect3info isbn) (empty-sosofo)) (element (refsect3info issn) (empty-sosofo)) (element (refsect3info issuenum) (empty-sosofo)) (element (refsect3info itermset) (empty-sosofo)) (element (refsect3info keywordset) (empty-sosofo)) (element (refsect3info legalnotice) (empty-sosofo)) (element (refsect3info lineage) (empty-sosofo)) (element (refsect3info modespec) (empty-sosofo)) (element (refsect3info orgname) (empty-sosofo)) (element (refsect3info othercredit) (empty-sosofo)) (element (refsect3info othername) (empty-sosofo)) (element (refsect3info pagenums) (empty-sosofo)) (element (refsect3info printhistory) (empty-sosofo)) (element (refsect3info productname) (empty-sosofo)) (element (refsect3info productnumber) (empty-sosofo)) (element (refsect3info pubdate) (empty-sosofo)) (element (refsect3info publisher) (empty-sosofo)) (element (refsect3info publishername) (empty-sosofo)) (element (refsect3info pubsnumber) (empty-sosofo)) (element (refsect3info releaseinfo) (empty-sosofo)) (element (refsect3info revhistory) (empty-sosofo)) (element (refsect3info seriesvolnums) (empty-sosofo)) (element (refsect3info subjectset) (empty-sosofo)) (element (refsect3info subtitle) (empty-sosofo)) (element (refsect3info surname) (empty-sosofo)) (element (refsect3info title) (empty-sosofo)) (element (refsect3info titleabbrev) (empty-sosofo)) (element (refsect3info volumenum) (empty-sosofo)) (element seriesinfo (process-children)) (element (seriesinfo abbrev) (empty-sosofo)) (element (seriesinfo abstract) (empty-sosofo)) (element (seriesinfo address) (empty-sosofo)) (element (seriesinfo affiliation) (empty-sosofo)) (element (seriesinfo artpagenums) (empty-sosofo)) (element (seriesinfo author) (empty-sosofo)) (element (seriesinfo authorblurb) (empty-sosofo)) (element (seriesinfo authorgroup) (empty-sosofo)) (element (seriesinfo authorinitials) (empty-sosofo)) (element (seriesinfo bibliomisc) (empty-sosofo)) (element (seriesinfo biblioset) (empty-sosofo)) (element (seriesinfo collab) (empty-sosofo)) (element (seriesinfo confgroup) (empty-sosofo)) (element (seriesinfo contractnum) (empty-sosofo)) (element (seriesinfo contractsponsor) (empty-sosofo)) (element (seriesinfo contrib) (empty-sosofo)) (element (seriesinfo copyright) (empty-sosofo)) (element (seriesinfo corpauthor) (empty-sosofo)) (element (seriesinfo corpname) (empty-sosofo)) (element (seriesinfo date) (empty-sosofo)) (element (seriesinfo edition) (empty-sosofo)) (element (seriesinfo editor) (empty-sosofo)) (element (seriesinfo firstname) (empty-sosofo)) (element (seriesinfo honorific) (empty-sosofo)) (element (seriesinfo invpartnumber) (empty-sosofo)) (element (seriesinfo isbn) (empty-sosofo)) (element (seriesinfo issn) (empty-sosofo)) (element (seriesinfo issuenum) (empty-sosofo)) (element (seriesinfo lineage) (empty-sosofo)) (element (seriesinfo orgname) (empty-sosofo)) (element (seriesinfo othercredit) (empty-sosofo)) (element (seriesinfo othername) (empty-sosofo)) (element (seriesinfo pagenums) (empty-sosofo)) (element (seriesinfo printhistory) (empty-sosofo)) (element (seriesinfo productname) (empty-sosofo)) (element (seriesinfo productnumber) (empty-sosofo)) (element (seriesinfo pubdate) (empty-sosofo)) (element (seriesinfo publisher) (empty-sosofo)) (element (seriesinfo publishername) (empty-sosofo)) (element (seriesinfo pubsnumber) (empty-sosofo)) (element (seriesinfo releaseinfo) (empty-sosofo)) (element (seriesinfo revhistory) (empty-sosofo)) (element (seriesinfo seriesvolnums) (empty-sosofo)) (element (seriesinfo subtitle) (empty-sosofo)) (element (seriesinfo surname) (empty-sosofo)) (element (seriesinfo title) (empty-sosofo)) (element (seriesinfo titleabbrev) (empty-sosofo)) (element (seriesinfo volumenum) (empty-sosofo)) (element artheader (empty-sosofo)) (element (artheader abbrev) (empty-sosofo)) (element (artheader abstract) (empty-sosofo)) (element (artheader address) (empty-sosofo)) (element (artheader affiliation) (empty-sosofo)) (element (artheader artpagenums) (empty-sosofo)) (element (artheader author) (empty-sosofo)) (element (artheader authorblurb) (empty-sosofo)) (element (artheader authorgroup) (empty-sosofo)) (element (artheader authorinitials) (empty-sosofo)) (element (artheader bibliomisc) (empty-sosofo)) (element (artheader biblioset) (empty-sosofo)) (element (artheader bookbiblio) (empty-sosofo)) (element (artheader collab) (empty-sosofo)) (element (artheader confgroup) (empty-sosofo)) (element (artheader contractnum) (empty-sosofo)) (element (artheader contractsponsor) (empty-sosofo)) (element (artheader contrib) (empty-sosofo)) (element (artheader copyright) (empty-sosofo)) (element (artheader corpauthor) (empty-sosofo)) (element (artheader corpname) (empty-sosofo)) (element (artheader date) (empty-sosofo)) (element (artheader edition) (empty-sosofo)) (element (artheader editor) (empty-sosofo)) (element (artheader firstname) (empty-sosofo)) (element (artheader honorific) (empty-sosofo)) (element (artheader invpartnumber) (empty-sosofo)) (element (artheader isbn) (empty-sosofo)) (element (artheader issn) (empty-sosofo)) (element (artheader issuenum) (empty-sosofo)) (element (artheader lineage) (empty-sosofo)) (element (artheader orgname) (empty-sosofo)) (element (artheader othercredit) (empty-sosofo)) (element (artheader othername) (empty-sosofo)) (element (artheader pagenums) (empty-sosofo)) (element (artheader printhistory) (empty-sosofo)) (element (artheader productname) (empty-sosofo)) (element (artheader productnumber) (empty-sosofo)) (element (artheader pubdate) (empty-sosofo)) (element (artheader publisher) (empty-sosofo)) (element (artheader publishername) (empty-sosofo)) (element (artheader pubsnumber) (empty-sosofo)) (element (artheader releaseinfo) (empty-sosofo)) (element (artheader revhistory) (empty-sosofo)) (element (artheader seriesvolnums) (empty-sosofo)) (element (artheader subtitle) (empty-sosofo)) (element (artheader surname) (empty-sosofo)) (element (artheader title) (empty-sosofo)) (element (artheader titleabbrev) (empty-sosofo)) (element (artheader volumenum) (empty-sosofo)) (element articleinfo (empty-sosofo)) (element (articleinfo abbrev) (empty-sosofo)) (element (articleinfo abstract) (empty-sosofo)) (element (articleinfo address) (empty-sosofo)) (element (articleinfo affiliation) (empty-sosofo)) (element (articleinfo artpagenums) (empty-sosofo)) (element (articleinfo author) (empty-sosofo)) (element (articleinfo authorblurb) (empty-sosofo)) (element (articleinfo authorgroup) (empty-sosofo)) (element (articleinfo authorinitials) (empty-sosofo)) (element (articleinfo bibliomisc) (empty-sosofo)) (element (articleinfo biblioset) (empty-sosofo)) (element (articleinfo bookbiblio) (empty-sosofo)) (element (articleinfo collab) (empty-sosofo)) (element (articleinfo confgroup) (empty-sosofo)) (element (articleinfo contractnum) (empty-sosofo)) (element (articleinfo contractsponsor) (empty-sosofo)) (element (articleinfo contrib) (empty-sosofo)) (element (articleinfo copyright) (empty-sosofo)) (element (articleinfo corpauthor) (empty-sosofo)) (element (articleinfo corpname) (empty-sosofo)) (element (articleinfo date) (empty-sosofo)) (element (articleinfo edition) (empty-sosofo)) (element (articleinfo editor) (empty-sosofo)) (element (articleinfo firstname) (empty-sosofo)) (element (articleinfo honorific) (empty-sosofo)) (element (articleinfo invpartnumber) (empty-sosofo)) (element (articleinfo isbn) (empty-sosofo)) (element (articleinfo issn) (empty-sosofo)) (element (articleinfo issuenum) (empty-sosofo)) (element (articleinfo lineage) (empty-sosofo)) (element (articleinfo orgname) (empty-sosofo)) (element (articleinfo othercredit) (empty-sosofo)) (element (articleinfo othername) (empty-sosofo)) (element (articleinfo pagenums) (empty-sosofo)) (element (articleinfo printhistory) (empty-sosofo)) (element (articleinfo productname) (empty-sosofo)) (element (articleinfo productnumber) (empty-sosofo)) (element (articleinfo pubdate) (empty-sosofo)) (element (articleinfo publisher) (empty-sosofo)) (element (articleinfo publishername) (empty-sosofo)) (element (articleinfo pubsnumber) (empty-sosofo)) (element (articleinfo releaseinfo) (empty-sosofo)) (element (articleinfo revhistory) (empty-sosofo)) (element (articleinfo seriesvolnums) (empty-sosofo)) (element (articleinfo subtitle) (empty-sosofo)) (element (articleinfo surname) (empty-sosofo)) (element (articleinfo title) (empty-sosofo)) (element (articleinfo titleabbrev) (empty-sosofo)) (element (articleinfo volumenum) (empty-sosofo)) (element refsynopsisdivinfo (process-children)) (element (refsynopsisdivinfo graphic) (empty-sosofo)) (element (refsynopsisdivinfo legalnotice) (empty-sosofo)) (element (refsynopsisdivinfo modespec) (empty-sosofo)) (element (refsynopsisdivinfo subjectset) (empty-sosofo)) (element (refsynopsisdivinfo keywordset) (empty-sosofo)) (element (refsynopsisdivinfo itermset) (empty-sosofo)) (element (refsynopsisdivinfo abbrev) (empty-sosofo)) (element (refsynopsisdivinfo abstract) (empty-sosofo)) (element (refsynopsisdivinfo address) (empty-sosofo)) (element (refsynopsisdivinfo artpagenums) (empty-sosofo)) (element (refsynopsisdivinfo author) (empty-sosofo)) (element (refsynopsisdivinfo authorgroup) (empty-sosofo)) (element (refsynopsisdivinfo authorinitials) (empty-sosofo)) (element (refsynopsisdivinfo bibliomisc) (empty-sosofo)) (element (refsynopsisdivinfo biblioset) (empty-sosofo)) (element (refsynopsisdivinfo collab) (empty-sosofo)) (element (refsynopsisdivinfo confgroup) (empty-sosofo)) (element (refsynopsisdivinfo contractnum) (empty-sosofo)) (element (refsynopsisdivinfo contractsponsor) (empty-sosofo)) (element (refsynopsisdivinfo copyright) (empty-sosofo)) (element (refsynopsisdivinfo corpauthor) (empty-sosofo)) (element (refsynopsisdivinfo corpname) (empty-sosofo)) (element (refsynopsisdivinfo date) (empty-sosofo)) (element (refsynopsisdivinfo edition) (empty-sosofo)) (element (refsynopsisdivinfo editor) (empty-sosofo)) (element (refsynopsisdivinfo invpartnumber) (empty-sosofo)) (element (refsynopsisdivinfo isbn) (empty-sosofo)) (element (refsynopsisdivinfo issn) (empty-sosofo)) (element (refsynopsisdivinfo issuenum) (empty-sosofo)) (element (refsynopsisdivinfo orgname) (empty-sosofo)) (element (refsynopsisdivinfo othercredit) (empty-sosofo)) (element (refsynopsisdivinfo pagenums) (empty-sosofo)) (element (refsynopsisdivinfo printhistory) (empty-sosofo)) (element (refsynopsisdivinfo productname) (empty-sosofo)) (element (refsynopsisdivinfo productnumber) (empty-sosofo)) (element (refsynopsisdivinfo pubdate) (empty-sosofo)) (element (refsynopsisdivinfo publisher) (empty-sosofo)) (element (refsynopsisdivinfo publishername) (empty-sosofo)) (element (refsynopsisdivinfo pubsnumber) (empty-sosofo)) (element (refsynopsisdivinfo releaseinfo) (empty-sosofo)) (element (refsynopsisdivinfo revhistory) (empty-sosofo)) (element (refsynopsisdivinfo seriesvolnums) (empty-sosofo)) (element (refsynopsisdivinfo subtitle) (empty-sosofo)) (element (refsynopsisdivinfo title) (empty-sosofo)) (element (refsynopsisdivinfo titleabbrev) (empty-sosofo)) (element (refsynopsisdivinfo volumenum) (empty-sosofo)) (element (refsynopsisdivinfo honorific) (empty-sosofo)) (element (refsynopsisdivinfo firstname) (empty-sosofo)) (element (refsynopsisdivinfo surname) (empty-sosofo)) (element (refsynopsisdivinfo lineage) (empty-sosofo)) (element (refsynopsisdivinfo othername) (empty-sosofo)) (element (refsynopsisdivinfo affiliation) (empty-sosofo)) (element (refsynopsisdivinfo authorblurb) (empty-sosofo)) (element (refsynopsisdivinfo contrib) (empty-sosofo)) (element appendixinfo (empty-sosofo)) (element bibliographyinfo (empty-sosofo)) (element chapterinfo (empty-sosofo)) (element glossaryinfo (empty-sosofo)) (element indexinfo (empty-sosofo)) (element partinfo (empty-sosofo)) (element prefaceinfo (empty-sosofo)) (element refentryinfo (empty-sosofo)) (element referenceinfo (empty-sosofo)) (element setindexinfo (empty-sosofo)) (element sidebarinfo (empty-sosofo)) docbook-dsssl-1.79/html/dbindex.dsl0000644000175000001440000002607607611215255020004 0ustar msmithusers00000000000000;; $Id: dbindex.dsl,v 1.5 2003/01/15 08:24:13 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ................... INDEX TERMS (EMBEDDED MARKERS) ................... (element indexterm (if html-index (let* ((id (if (attribute-string (normalize "id")) (attribute-string (normalize "id")) (generate-anchor)))) (make element gi: "A" attributes: (list (list "NAME" id)) (empty-sosofo))) (empty-sosofo))) (element primary (empty-sosofo)) (element secondary (empty-sosofo)) (element tertiary (empty-sosofo)) (element see (empty-sosofo)) (element seealso (empty-sosofo)) ;; =========================== INDEX ELEMENTS =========================== (element (setindex title) (empty-sosofo)) (element setindex (let ((preamble (node-list-filter-by-not-gi (children (current-node)) (list (normalize "indexentry")))) (entries (node-list-filter-by-gi (children (current-node)) (list (normalize "indexentry"))))) (html-document (with-mode head-title-mode (literal (element-title-string (current-node)))) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) ($component-separator$) ($component-title$) (process-node-list preamble) (if (node-list-empty? entries) (empty-sosofo) (make element gi: "DL" (process-node-list entries))))))) (element (index title) (empty-sosofo)) (element index (let ((preamble (node-list-filter-by-not-gi (children (current-node)) (list (normalize "indexentry")))) (entries (node-list-filter-by-gi (children (current-node)) (list (normalize "indexentry"))))) (html-document (with-mode head-title-mode (literal (element-title-string (current-node)))) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) ($component-separator$) ($component-title$) (process-node-list preamble) (if (node-list-empty? entries) (empty-sosofo) (make element gi: "DL" (process-node-list entries))))))) (element (indexdiv title) (empty-sosofo)) (element indexdiv (let ((preamble (node-list-filter-by-not-gi (children (current-node)) (list (normalize "indexentry")))) (entries (node-list-filter-by-gi (children (current-node)) (list (normalize "indexentry"))))) (html-document (with-mode head-title-mode (literal (element-title-string (current-node)))) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) ($section-separator$) ($section-title$) (process-node-list preamble) (if (node-list-empty? entries) (empty-sosofo) (make element gi: "DL" (process-node-list entries))))))) (define (break-node-list nodes breakatgi) ;; Given a _node_ list "PRIM SEC TERT SEC SEC TERT PRIM SEC PRIM PRIM" ;; and the breakatgi of "PRIM", returns the _list_ of _node_ lists: ;; '("PRIM SEC TERT SEC SEC TERT" "PRIM SEC" "PRIM" "PRIM") (let loop ((nl nodes) (result '()) (curlist (empty-node-list))) (if (node-list-empty? nl) (if (node-list-empty? curlist) result (append result (list curlist))) (if (equal? (gi (node-list-first nl)) breakatgi) (loop (node-list-rest nl) (if (node-list-empty? curlist) result (append result (list curlist))) (node-list-first nl)) (loop (node-list-rest nl) result (node-list curlist (node-list-first nl))))))) (define (process-primary primnode secnl) (let ((see? (equal? (gi (node-list-first secnl)) (normalize "seeie"))) (seealso? (equal? (gi (node-list-first secnl)) (normalize "seealsoie"))) (second (break-node-list secnl (normalize "secondaryie")))) (if (or see? seealso?) (process-terminal primnode secnl #t) (make sequence (process-nonterminal primnode) (if (node-list-empty? secnl) (empty-sosofo) (make element gi: "DD" (make element gi: "DL" (let sloop ((secs second)) (if (null? secs) (empty-sosofo) (make sequence (let* ((nodes (car secs)) (sec (node-list-first nodes)) (terts (node-list-rest nodes))) (process-secondary sec terts)) (sloop (cdr secs)))))))))))) (define (process-secondary secnode tertnl) (let ((see? (equal? (gi (node-list-first tertnl)) (normalize "seeie"))) (seealso? (equal? (gi (node-list-first tertnl)) (normalize "seealsoie"))) (tert (break-node-list tertnl (normalize "tertiaryie")))) (if (or see? seealso?) (process-terminal secnode tertnl) (make sequence (process-nonterminal secnode) (make element gi: "DD" (make element gi: "DL" (let tloop ((terts tert)) (if (null? terts) (empty-sosofo) (make sequence (let* ((nodes (car terts)) (tert (node-list-first nodes)) (sees (node-list-rest nodes))) (process-tertiary tert sees)) (tloop (cdr terts))))))))))) (define (process-tertiary tertnode seenl) (process-terminal tertnode seenl)) (define (process-terminal node seenl #!optional (output-id #f)) (let ((id (attribute-string (normalize "id") (parent node)))) (make sequence (make element gi: "DT" (if id (make element gi: "A" attributes: (list (list "NAME" id)) (empty-sosofo)) (empty-sosofo)) (process-node-list node)) (if (node-list-empty? seenl) (empty-sosofo) (make element gi: "DD" (make element gi: "DL" (let loop ((nl seenl)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (make element gi: "DT" (process-node-list (node-list-first nl))) (loop (node-list-rest nl))))))))))) (define (process-nonterminal node) (make element gi: "DT" (process-node-list node))) (element indexentry (let* ((primary (break-node-list (children (current-node)) (normalize "primaryie")))) (make sequence (let ploop ((prims primary)) (if (null? prims) (empty-sosofo) (make sequence (let* ((nodes (car prims)) (prim (node-list-first nodes)) (secs (node-list-rest nodes))) (process-primary prim secs)) (ploop (cdr prims)))))))) (element primaryie (process-children)) (element secondaryie (process-children)) (element tertiaryie (process-children)) (define (indexentry-link nd) (let* ((preferred (not (node-list-empty? (select-elements (children (current-node)) (normalize "emphasis")))))) (make element gi: "A" attributes: (list (list "HREF" (attribute-string (normalize "url")))) (process-children)))) (element (primaryie ulink) (indexentry-link (current-node))) (element (secondaryie ulink) (indexentry-link (current-node))) (element (tertiaryie ulink) (indexentry-link (current-node))) (element seeie (let ((linkend (attribute-string (normalize "linkend")))) (if linkend (make element gi: "A" attributes: (list (list "HREF" (href-to (element-with-id linkend)))) (literal (gentext-element-name (current-node))) (literal (gentext-label-title-sep (current-node))) (process-children)) (make sequence (literal (gentext-element-name (current-node))) (literal (gentext-label-title-sep (current-node))) (process-children))))) (element seealsoie (let* ((alinkends (attribute-string (normalize "linkends"))) (linkends (if alinkends (split alinkends) '())) (linkend (if alinkends (car linkends) #f))) (if linkend (make element gi: "A" attributes: (list (list "HREF" (href-to (element-with-id linkend)))) (literal (gentext-element-name (current-node))) (literal (gentext-label-title-sep (current-node))) (process-children)) (make sequence (literal (gentext-element-name (current-node))) (literal (gentext-label-title-sep (current-node))) (process-children))))) ;; =====================HTML INDEX PROCESSING ============================== (define (htmlnewline) (make formatting-instruction data: " ")) (define (htmlindexattr attr) (if (attribute-string (normalize attr)) (make sequence (make formatting-instruction data: attr) (make formatting-instruction data: " ") (make formatting-instruction data: (attribute-string (normalize attr))) (htmlnewline)) (empty-sosofo))) (define (htmlindexterm) (let* ((attr (gi (current-node))) (content (data (current-node))) (string (string-replace content " " " ")) (sortas (attribute-string (normalize "sortas")))) (make sequence (make formatting-instruction data: attr) (if sortas (make sequence (make formatting-instruction data: "[") (make formatting-instruction data: sortas) (make formatting-instruction data: "]")) (empty-sosofo)) (make formatting-instruction data: " ") (make formatting-instruction data: string) (htmlnewline)))) (define (htmlindexzone zone) (let loop ((idlist (split zone))) (if (null? idlist) (empty-sosofo) (make sequence (htmlindexzone1 (car idlist)) (loop (cdr idlist)))))) (define (htmlindexzone1 id) (let* ((target (ancestor-member (element-with-id id) (append (book-element-list) (division-element-list) (component-element-list) (section-element-list)))) (title (string-replace (element-title-string target) " " " "))) (make sequence (make formatting-instruction data: "ZONE ") (make formatting-instruction data: (href-to target)) (htmlnewline) (make formatting-instruction data: "TITLE ") (make formatting-instruction data: title) (htmlnewline)))) (mode htmlindex ;; this mode is really just a hack to get at the root element (root (process-children)) (default (if (node-list=? (current-node) (sgml-root-element)) (make entity system-id: (html-entity-file html-index-filename) (process-node-list (select-elements (descendants (current-node)) (normalize "indexterm")))) (empty-sosofo))) (element indexterm (let* ((target (ancestor-member (current-node) (append (book-element-list) (division-element-list) (component-element-list) (section-element-list)))) (title (string-replace (element-title-string target) " " " "))) (make sequence (make formatting-instruction data: "INDEXTERM ") (make formatting-instruction data: (href-to target)) (htmlnewline) (make formatting-instruction data: "INDEXPOINT ") (make formatting-instruction data: (href-to (current-node))) (htmlnewline) (make formatting-instruction data: "TITLE ") (make formatting-instruction data: title) (htmlnewline) (htmlindexattr "scope") (htmlindexattr "significance") (htmlindexattr "class") (htmlindexattr "id") (htmlindexattr "startref") (if (attribute-string (normalize "zone")) (htmlindexzone (attribute-string (normalize "zone"))) (empty-sosofo)) (process-children) (make formatting-instruction data: "/INDEXTERM") (htmlnewline)))) (element primary (htmlindexterm)) (element secondary (htmlindexterm)) (element tertiary (htmlindexterm)) (element see (htmlindexterm)) (element seealso (htmlindexterm)) ) docbook-dsssl-1.79/html/dbhtml.dsl0000644000175000001440000003134610132222013017613 0ustar msmithusers00000000000000;; $Id: dbhtml.dsl,v 1.5 2004/10/10 11:55:10 petere78 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ====================================================================== ;; HTML Linking... ;; (define (element-id #!optional (nd (current-node))) ;; IDs of TITLEs are the IDs of the PARENTs (let ((elem (if (equal? (gi nd) (normalize "title")) (parent nd) nd))) (if (attribute-string (normalize "id") elem) (attribute-string (normalize "id") elem) (generate-anchor elem)))) (define (link-target idstring) ;; Return the HTML HREF for the given idstring. For RefEntrys, this is ;; just the name of the file, for anything else it's the name of the file ;; with the fragment identifier for the specified id. (href-to (element-with-id idstring))) (define (generate-anchor #!optional (nd (current-node))) (string-append "AEN" (number->string (all-element-number nd)))) (define (generate-xptr #!optional (nd (current-node))) ;; returns the location of the current node in a modified xptr ;; syntax. This used to be used to calculate unique anchor names ;; in the HTML document. all-element-number seems like a better ;; way to go...so this function is probably never called anymore. (let loop ((suffix "") (nd nd)) (let ((eid (id nd))) (if eid (string-append "I(" eid ")" (if (= (string-length suffix) 0) "" (string-append "C" suffix))) (let ((par (parent nd))) (if (not (node-list-empty? par)) (loop (string-append "(" (number->string (child-number nd)) "," (gi nd) ")" suffix) par) (string-append (if (= (string-length suffix) 0) "R" "R,C") suffix))))))) ;; ====================================================================== ;; HTML output ;; (define (html-document title-sosofo body-sosofo) (let* (;; Let's look these up once, so that we can avoid calculating ;; them over and over again. (prev (prev-chunk-element)) (next (next-chunk-element)) (prevm (prev-major-component-chunk-element)) (nextm (next-major-component-chunk-element)) (navlist (list prev next prevm nextm)) ;; Let's make it possible to control the output even in the ;; nochunks case. Note: in the nochunks case, (chunk?) will ;; return #t for only the root element. (make-entity? (and (or (not nochunks) rootchunk) (chunk?))) (make-head? (or make-entity? (and nochunks (node-list=? (current-node) (sgml-root-element))))) (doc-sosofo (if make-head? (make element gi: "HTML" (make element gi: "HEAD" (make element gi: "TITLE" title-sosofo) ($standard-html-header$ prev next prevm nextm)) (make element gi: "BODY" attributes: (append (list (list "CLASS" (gi))) %body-attr%) (header-navigation (current-node) navlist) body-sosofo (footer-navigation (current-node) navlist))) body-sosofo))) (if make-entity? (make entity system-id: (html-entity-file (html-file)) (html-doctype) doc-sosofo) (if (node-list=? (current-node) (sgml-root-element)) (make sequence (html-doctype) doc-sosofo) doc-sosofo)))) (define (html-doctype) (cond ((and %html-pubid% %html-sysid%) (make document-type name: "HTML" public-id: %html-pubid% system-id: %html-sysid%)) (%html-pubid% (make document-type name: "HTML" public-id: %html-pubid%)) (%html-sysid% (make document-type name: "HTML" system-id: %html-sysid%)) (else (empty-sosofo)))) (define ($standard-html-header$ #!optional (prev (prev-chunk-element)) (next (next-chunk-element)) (prevm (prev-major-component-chunk-element)) (nextm (next-major-component-chunk-element))) ;; A hook function to add additional tags to the HEAD of your HTML files (let* ((info (info-element)) (kws (select-elements (descendants info) (normalize "keyword"))) (home (nav-home (current-node))) (up (parent (current-node)))) (make sequence ;; Add the META NAME=GENERATOR tag (make empty-element gi: "META" attributes: (list (list "NAME" "GENERATOR") (list "CONTENT" (stylesheet-version)))) ;; Add the LINK REV=MADE tag (if %link-mailto-url% (make empty-element gi: "LINK" attributes: (list (list "REV" "MADE") (list "HREF" %link-mailto-url%))) (empty-sosofo)) ;; Add the LINK REL=HOME tag (if (nav-home? (current-node)) (make empty-element gi: "LINK" attributes: (append '(("REL" "HOME")) (if (equal? (element-title-string home) "") '() (list (list "TITLE" (element-title-string home)))) (list (list "HREF" (href-to home))))) (empty-sosofo)) ;; Add the LINK REL=UP tag (if (nav-up? (current-node)) (if (or (node-list-empty? up) (node-list=? up (sgml-root-element))) (empty-sosofo) (make empty-element gi: "LINK" attributes: (append '(("REL" "UP")) (if (equal? (element-title-string up) "") '() (list (list "TITLE" (element-title-string up)))) (list (list "HREF" (href-to up)))))) (empty-sosofo)) ;; Add the LINK REL=PREVIOUS tag (if (node-list-empty? prev) (empty-sosofo) (make empty-element gi: "LINK" attributes: (append '(("REL" "PREVIOUS")) (if (equal? (element-title-string prev) "") '() (list (list "TITLE" (element-title-string prev)))) (list (list "HREF" (href-to prev)))))) ;; Add the LINK REL=NEXT tag (if (node-list-empty? next) (empty-sosofo) (make empty-element gi: "LINK" attributes: (append '(("REL" "NEXT")) (if (equal? (element-title-string next) "") '() (list (list "TITLE" (element-title-string next)))) (list (list "HREF" (href-to next)))))) ;; Add META NAME=KEYWORD tags (let loop ((nl kws)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (make empty-element gi: "META" attributes: (list (list "NAME" "KEYWORD") (list "CONTENT" (data (node-list-first nl))))) (loop (node-list-rest nl))))) ;; Add LINK REL=STYLESHEET tag (if %stylesheet% (make empty-element gi: "LINK" attributes: (list (list "REL" "STYLESHEET") (list "TYPE" %stylesheet-type%) (list "HREF" %stylesheet%))) (empty-sosofo)) ($user-html-header$ home up prev next)))) (define ($user-html-header$ #!optional (home (empty-node-list)) (up (empty-node-list)) (prev (empty-node-list)) (next (empty-node-list))) ;; Add additional header tags. (let loop ((tl %html-header-tags%)) (if (null? tl) (empty-sosofo) (make sequence (make empty-element gi: (car (car tl)) attributes: (cdr (car tl))) (loop (cdr tl)))))) (define ($html-body-start$) (empty-sosofo)) (define ($html-body-content-start$) (empty-sosofo)) (define ($html-body-content-end$) (empty-sosofo)) (define ($html-body-end$) (empty-sosofo)) (define (dingbat usrname) ;; Print dingbats and other characters selected by name (let ((name (case-fold-down usrname))) (case name ;; For backward compatibility (("copyright") "(C)") (("trademark") "TM") ;; Straight out of Unicode (("ldquo") "\"") (("rdquo") "\"") (("lsquo") "'") (("rsquo") "'") (("ldquor") "\"") (("rdquor") "\"") (("raquo") ">>") (("laquo") "<<") (("rsaquo") ">") (("lsaquo") "<") (("nbsp") " ") (("en-dash") "-") (("em-dash") "--") (("en-space") " ") (("em-space") " ") (("bullet") "*") (("copyright-sign") "(C)") (("registered-sign") "(R)") (else (let ((err (debug (string-append "No dingbat defined for: " name)))) "*"))))) (define (dingbat-sosofo usrname) ;; Print dingbats and other characters selected by name (let ((name (case-fold-down usrname))) (case name ;; For backward compatibility (("copyright") (make entity-ref name: "copy")) (("trademark") (make entity-ref name: "trade")) ;; Straight out of Unicode (("ldquo") (literal "\"")) (("rdquo") (literal "\"")) (("lsquo") "'") (("rsquo") "'") (("raquo") (literal "\"")) (("laquo") (literal "\"")) (("rsaquo") (literal "\"")) (("lsaquo") (literal "\"")) (("nbsp") (make entity-ref name: "nbsp")) (("en-dash") (literal "-")) (("em-dash") (literal "--")) (("en-space") (make entity-ref name: "nbsp")) (("em-space") (make sequence (make entity-ref name: "nbsp") (make entity-ref name: "nbsp"))) (("bullet") (literal "*")) (("copyright-sign") (make entity-ref name: "copy")) (("registered-sign") (literal "(R)")) (else (let ((err (debug (string-append "No dingbat defined for: " name)))) (literal "*")))))) (define (para-check #!optional (place 'stop)) (let ((inpara (equal? (gi (parent (current-node))) (normalize "para")))) (if (and %fix-para-wrappers% inpara) (if (equal? place 'stop) (make formatting-instruction data: "</P>") (make formatting-instruction data: "<P>")) (empty-sosofo)))) ;; ====================================================================== ;; HTML element functions (define ($block-container$) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (process-children))) (define ($paragraph$ #!optional (para-wrapper "P")) (let ((footnotes (select-elements (descendants (current-node)) (normalize "footnote"))) (tgroup (have-ancestor? (normalize "tgroup")))) (make sequence (make element gi: para-wrapper attributes: (append (if %default-quadding% (list (list "ALIGN" %default-quadding%)) '())) (process-children)) (if (or %footnotes-at-end% tgroup (node-list-empty? footnotes)) (empty-sosofo) (make element gi: "BLOCKQUOTE" attributes: (list (list "CLASS" "FOOTNOTES")) (with-mode footnote-mode (process-node-list footnotes))))))) (define ($indent-para-container$) (make element gi: "BLOCKQUOTE" attributes: (list (list "CLASS" (gi))) (process-children))) (define ($bold-seq$ #!optional (sosofo (process-children))) (make element gi: "B" attributes: (list (list "CLASS" (gi))) sosofo)) (define ($italic-seq$ #!optional (sosofo (process-children))) (make element gi: "I" attributes: (list (list "CLASS" (gi))) sosofo)) (define ($bold-italic-seq$ #!optional (sosofo (process-children))) (make element gi: "B" attributes: (list (list "CLASS" (gi))) (make element gi: "I" sosofo))) (define ($mono-seq$ #!optional (sosofo (process-children))) ;; please avoid using this, TT is presentational (make element gi: "TT" attributes: (list (list "CLASS" (gi))) sosofo)) (define ($code-seq$ #!optional (sosofo (process-children))) ;; fragments of computer code (make element gi: "CODE" attributes: (list (list "CLASS" (gi))) sosofo)) (define ($samp-seq$ #!optional (sosofo (process-children))) ;; sample output from programs, scripts, etc (make element gi: "SAMP" attributes: (list (list "CLASS" (gi))) sosofo)) (define ($kbd-seq$ #!optional (sosofo (process-children))) ;; text to be entered by the user (make element gi: "KBD" attributes: (list (list "CLASS" (gi))) sosofo)) (define ($abbr-seq$ #!optional (sosofo (process-children))) ;; abbreviated form ;; FIXME: html4 only (make element gi: "ABBR" attributes: (list (list "CLASS" (gi))) sosofo)) (define ($acronym-seq$ #!optional (sosofo (process-children))) ;; FIXME: html4 only (make element gi: "ACRONYM" attributes: (list (list "CLASS" (gi))) sosofo)) (define ($var-seq$ #!optional (sosofo (process-children))) ;; variable or program argument (make element gi: "VAR" attributes: (list (list "CLASS" (gi))) sosofo)) (define ($italic-mono-seq$ #!optional (sosofo (process-children))) (make element gi: "TT" attributes: (list (list "CLASS" (gi))) (make element gi: "I" sosofo))) (define ($bold-mono-seq$ #!optional (sosofo (process-children))) (make element gi: "TT" attributes: (list (list "CLASS" (gi))) (make element gi: "B" sosofo))) (define ($charseq$ #!optional (sosofo (process-children))) (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) sosofo)) ;; EOF dbhtml.dsl docbook-dsssl-1.79/html/dbgraph.dsl0000644000175000001440000001517007640131704017765 0ustar msmithusers00000000000000;; $Id: dbgraph.dsl,v 1.6 2003/03/25 19:53:40 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ==================== GRAPHICS ==================== (define (graphic-file filename) (let ((ext (file-extension filename))) (if (or (not filename) (not %graphic-default-extension%) (member ext %graphic-extensions%)) filename (string-append filename "." %graphic-default-extension%)))) (define (graphic-attrs imagefile instance-alt) (let* ((grove (sgml-parse image-library-filename)) (imagelib (node-property 'document-element (node-property 'grove-root grove))) (images (select-elements (children imagelib) "image")) (image (let loop ((imglist images)) (if (node-list-empty? imglist) #f (if (equal? (attribute-string "filename" (node-list-first imglist)) imagefile) (node-list-first imglist) (loop (node-list-rest imglist)))))) (prop (if image (select-elements (children image) "properties") #f)) (metas (if prop (select-elements (children prop) "meta") #f)) (attrs (if metas (let loop ((meta metas) (attrlist '())) (if (node-list-empty? meta) attrlist (if (equal? (attribute-string "imgattr" (node-list-first meta)) "yes") (loop (node-list-rest meta) (append attrlist (list (list (attribute-string "name" (node-list-first meta)) (attribute-string "content" (node-list-first meta)))))) (loop (node-list-rest meta) attrlist)))) '())) (width (if prop (attribute-string "width" prop) #f)) (height (if prop (attribute-string "height" prop) #f)) (alttext (if image (select-elements (children image) "alttext") (empty-node-list))) (alt (if instance-alt instance-alt (if (node-list-empty? alttext) #f (data alttext))))) (if (or width height alt (not (null? attrs))) (append attrs (if width (list (list "WIDTH" width)) '()) (if height (list (list "HEIGHT" height)) '()) (if (not (node-list-empty? alttext)) (list (list "ALT" alt)) '())) '()))) (define ($graphic$ fileref #!optional (format #f) (alt #f) (align #f) (width #f) (height #f)) (let ((img-attr (append (list (list "SRC" (graphic-file fileref))) (if align (list (list "ALIGN" align)) '()) (if width (list (list "WIDTH" width)) '()) (if height (list (list "HEIGHT" height)) '()) (if image-library (graphic-attrs fileref alt) '())))) (make empty-element gi: "IMG" attributes: img-attr))) (define ($img$ #!optional (nd (current-node)) (alt #f)) ;; This function now supports an extension to DocBook. It's ;; either a clever trick or an ugly hack, depending on your ;; point of view, but it'll hold us until XLink is finalized ;; and we can extend DocBook the "right" way. ;; ;; If the entity passed to GRAPHIC has the FORMAT ;; "LINESPECIFIC", either because that's what's specified or ;; because it's the notation of the supplied ENTITYREF, then ;; the text of the entity is inserted literally (via Jade's ;; read-entity external procedure). ;; (let* ((fileref (attribute-string (normalize "fileref") nd)) (entityref (attribute-string (normalize "entityref") nd)) (format (if (attribute-string (normalize "format") nd) (attribute-string (normalize "format") nd) (if entityref (entity-notation entityref) #f))) (align (attribute-string (normalize "align") nd)) (width (attribute-string (normalize "width") nd)) (height (attribute-string (normalize "depth") nd))) (if (or fileref entityref) (if (equal? format (normalize "linespecific")) (if fileref (include-file fileref) (include-file (entity-generated-system-id entityref))) (if fileref ($graphic$ fileref format alt align width height) ($graphic$ (system-id-filename entityref) format alt align width height))) (empty-sosofo)))) (element graphic (make element gi: "P" ($img$))) (element inlinegraphic ($img$)) ;; ====================================================================== ;; MediaObject and friends... (define preferred-mediaobject-notations (list "JPG" "JPEG" "PNG" "linespecific")) (define preferred-mediaobject-extensions (list "jpeg" "jpg" "png" "avi" "mpg" "mpeg" "qt")) (define acceptable-mediaobject-notations (list "GIF" "GIF87a" "GIF89a" "BMP" "WMF")) (define acceptable-mediaobject-extensions (list "gif" "bmp" "wmf")) (element mediaobject (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "P" ($mediaobject$)))) (element inlinemediaobject (make element gi: "SPAN" attributes: (list (list "CLASS" (gi))) ($mediaobject$))) (element mediaobjectco (process-children)) (element imageobjectco (process-children)) (element objectinfo (empty-sosofo)) (element videoobject (process-children)) (element videodata (let ((filename (data-filename (current-node)))) (make element gi: "EMBED" attributes: (list (list "SRC" filename))))) (element audioobject (process-children)) (element audiodata (let ((filename (data-filename (current-node)))) (make element gi: "EMBED" attributes: (list (list "SRC" filename))))) (element imageobject (process-children)) (element imagedata (let* ((filename (data-filename (current-node))) (mediaobj (parent (parent (current-node)))) (textobjs (select-elements (children mediaobj) (normalize "textobject"))) (alttext (let loop ((nl textobjs) (alttext #f)) (if (or alttext (node-list-empty? nl)) alttext (let ((phrase (select-elements (children (node-list-first nl)) (normalize "phrase")))) (if (node-list-empty? phrase) (loop (node-list-rest nl) #f) (loop (node-list-rest nl) (data (node-list-first phrase)))))))) (fileref (attribute-string (normalize "fileref"))) (entityref (attribute-string (normalize "entityref"))) (format (if (attribute-string (normalize "format")) (attribute-string (normalize "format")) (if entityref (entity-notation entityref) #f)))) (if (equal? format (normalize "linespecific")) (if fileref (include-file fileref) (include-file (entity-generated-system-id entityref))) ($img$ (current-node) alttext)))) (element textobject (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element caption (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) docbook-dsssl-1.79/html/dbgloss.dsl0000644000175000001440000001272207611215255020015 0ustar msmithusers00000000000000;; $Id: dbgloss.dsl,v 1.4 2003/01/15 08:24:13 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ========================= GLOSSARY ELEMENTS ========================== ;; HACK ALERT! There is no top-level wrapper around one or more GLOSSENTRYs, ;; so this code has to look around and output the right thing for the ;; front matter and then the GLOSSENTRYs. Ugh. (define ($glossary-frontmatter$) (let loop ((nl (children (current-node))) (headlist (empty-node-list))) (if (node-list-empty? nl) headlist (if (equal? (gi (node-list-first nl)) (normalize "glossentry")) headlist (loop (node-list-rest nl) (node-list headlist (node-list-first nl))))))) (define ($glossary-glossentrys$) (let loop ((nl (children (current-node))) (gelist (empty-node-list))) (if (node-list-empty? nl) gelist (loop (node-list-rest nl) (if (equal? (gi (node-list-first nl)) (normalize "glossentry")) (node-list gelist (node-list-first nl)) gelist))))) (define ($glossary-body$) (make element gi: "DIV" attributes: '(("CLASS" "GLOSSARY")) ($component-title$) (process-node-list ($glossary-frontmatter$)) (if (not (node-list-empty? ($glossary-glossentrys$))) (make element gi: "DL" (process-node-list ($glossary-glossentrys$))) (empty-sosofo)))) (element glossary (html-document (with-mode head-title-mode (literal (element-title-string (current-node)))) ($glossary-body$))) (element (glossary title) (empty-sosofo)) (element glossdiv (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) ($section-title$) (process-node-list ($glossary-frontmatter$)) (if (not (node-list-empty? ($glossary-glossentrys$))) (make element gi: "DL" (process-node-list ($glossary-glossentrys$))) (empty-sosofo)))) (element (glossdiv title) (empty-sosofo)) (element glosslist (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "DL" (process-children)))) (element glossentry (process-children)) (element (glossentry glossterm) (let ((id (attribute-string (normalize "id") (parent (current-node))))) (make element gi: "DT" (if id (make sequence (make element gi: "A" attributes: (list (list "NAME" id)) (empty-sosofo)) (make element gi: "B" (process-children))) (make element gi: "B" (process-children)))))) (element (glossentry acronym) (make sequence (literal " (") (process-children) (literal ")"))) (element (glossentry abbrev) (empty-sosofo)) (element (glossentry glossdef) (make element gi: "DD" (process-children))) (element (glossterm revhistory) (empty-sosofo)) (element (glossentry glosssee) (make element gi: "DD" (if (attribute-string (normalize "otherterm")) (make element gi: "P" (make element gi: "EM" (literal (gentext-element-name (gi)) (gentext-label-title-sep (gi)))) (make element gi: "A" attributes: (list (list "HREF" (link-target (attribute-string (normalize "otherterm"))))) (with-mode otherterm (process-element-with-id (attribute-string (normalize "otherterm")))))) (process-children)))) ;; When we hit the first GLOSSSEEALSO, process all of them as a node-list (element glossseealso (if (first-sibling?) (make element gi: "P" (make sequence (make element gi: "EM" (literal (gentext-element-name (gi)) (gentext-label-title-sep (gi)))) (with-mode glossseealso (process-node-list (select-elements (children (parent)) '(glossseealso)))) (literal "."))) (empty-sosofo))) (mode glossseealso (element glossseealso (make sequence (if (first-sibling?) (empty-sosofo) (make element gi: "EM" (literal ", "))) (if (attribute-string (normalize "otherterm")) ;; but this should be required... (make element gi: "A" attributes: (list (list "HREF" (link-target (attribute-string (normalize "otherterm"))))) (with-mode otherterm (process-element-with-id (attribute-string (normalize "otherterm"))))) (process-children))))) ;; This is referenced within the GLOSSSEE and GLOSSSEEALSO element ;; construction expressions. The OTHERTERM attributes on GLOSSSEE and ;; GLOSSSEEALSO (should) refer to GLOSSENTRY elements but we're only ;; interested in the text within the GLOSSTERM. Discard the revision ;; history and the definition from the referenced term. (mode otherterm (element glossterm (process-children)) (element glossdef (empty-sosofo)) (element revhistory (empty-sosofo)) (element glosssee (empty-sosofo)) (element (glossentry acronym) (empty-sosofo)) (element (glossentry abbrev) (empty-sosofo))) ;; an inline gloss term (element glossterm (let* ((linkend (attribute-string (normalize "linkend")))) (if linkend (make element gi: "A" attributes: (list (list "HREF" (href-to (element-with-id linkend)))) ($italic-seq$)) ($italic-seq$)))) ;; a first glossterm (element firstterm (let* ((linkend (attribute-string (normalize "linkend"))) (sosofo (if linkend (make element gi: "A" attributes: (list (list "HREF" (href-to (element-with-id linkend)))) ($italic-seq$)) ($italic-seq$)))) (if firstterm-bold (make element gi: "B" sosofo) sosofo))) docbook-dsssl-1.79/html/dbfootn.dsl0000644000175000001440000002053707611215255020016 0ustar msmithusers00000000000000;; $Id: dbfootn.dsl,v 1.4 2003/01/15 08:24:13 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ====================================================================== ;; Handle footnotes in body text (element footnote ;; A footnote inserts a reference to itself (let ((id (if (attribute-string (normalize "id")) (attribute-string (normalize "id")) (generate-anchor)))) (make element gi: "A" attributes: (list (list "NAME" id) (list "HREF" (string-append "#FTN." id))) ($footnote-literal$ (current-node))))) (element footnoteref (let* ((target (element-with-id (attribute-string (normalize "linkend")))) (id (if (attribute-string (normalize "id") target) (attribute-string (normalize "id") target) (generate-anchor target))) (curdepth (directory-depth (html-file (current-node)))) (entfile (html-file target)) ;; can't use (href-to) here because we tinker with the fragid (href (if nochunks (string-append "#FTN." id) (string-append (copy-string "../" curdepth) entfile "#FTN." id)))) (make element gi: "A" attributes: (list (list "HREF" href)) ($footnote-literal$ target)))) (define (count-footnote? footnote) ;; don't count footnotes in comments (unless you're showing comments) ;; or footnotes in tables which are handled locally in the table (if (or (and (has-ancestor-member? footnote (list (normalize "comment"))) (not %show-comments%)) (has-ancestor-member? footnote (list (normalize "tgroup")))) #f #t)) (define ($chunk-footnote-number$ footnote) ;; This is more complex than it at first appears because footnotes ;; can be in Comments which may be suppressed. (let* ((footnotes (select-elements (descendants (chunk-parent footnote)) (normalize "footnote")))) (let loop ((nl footnotes) (num 1)) (if (node-list-empty? nl) 0 (if (node-list=? (node-list-first nl) footnote) num (if (count-footnote? (node-list-first nl)) (loop (node-list-rest nl) (+ num 1)) (loop (node-list-rest nl) num))))))) (define ($footnote-literal$ node) (make element gi: "SPAN" attributes: (list (list "CLASS" "footnote")) (literal (string-append "[" ($footnote-number$ node) "]")))) (define ($table-footnote-number$ footnote) (let* ((chunk (ancestor (normalize "tgroup") footnote)) (footnotes (select-elements (descendants chunk) (normalize "footnote")))) (let loop ((nl footnotes) (num 1)) (if (node-list-empty? nl) 0 (if (node-list=? footnote (node-list-first nl)) num (loop (node-list-rest nl) (+ num 1))))))) (define ($footnote-number$ footnote) (if (node-list-empty? (ancestor (normalize "tgroup") footnote)) (format-number ($chunk-footnote-number$ footnote) "1") (format-number ($table-footnote-number$ footnote) "a"))) (mode footnote-mode (element footnote (process-children)) (element (footnote para) (let ((id (if (attribute-string (normalize "id") (parent (current-node))) (attribute-string (normalize "id") (parent (current-node))) (generate-anchor (parent (current-node)))))) (make element gi: "P" (if (= (child-number) 1) (make sequence (make element gi: "A" attributes: (list (list "NAME" (string-append "FTN." id)) (list "HREF" (href-to (parent (current-node))))) ($footnote-literal$ (parent (current-node)))) (literal " ")) (literal "")) (process-children)))) ) (define (non-table-footnotes footnotenl) (let loop ((nl footnotenl) (result (empty-node-list))) (if (node-list-empty? nl) result (if (has-ancestor-member? (node-list-first nl) (list (normalize "tgroup"))) (loop (node-list-rest nl) result) (loop (node-list-rest nl) (node-list result (node-list-first nl))))))) (define (make-endnotes #!optional (node (current-node))) (if %footnotes-at-end% (let* ((allfootnotes (select-elements (descendants node) (normalize "footnote"))) (allntfootnotes (non-table-footnotes allfootnotes)) (this-chunk (chunk-parent node)) (chunkfootnotes (let loop ((fn allntfootnotes) (chunkfn (empty-node-list))) (if (node-list-empty? fn) chunkfn (if (node-list=? this-chunk (chunk-parent (node-list-first fn))) (loop (node-list-rest fn) (node-list chunkfn (node-list-first fn))) (loop (node-list-rest fn) chunkfn))))) (footnotes (let loop ((nl chunkfootnotes) (fnlist (empty-node-list))) (if (node-list-empty? nl) fnlist (if (count-footnote? (node-list-first nl)) (loop (node-list-rest nl) (node-list fnlist (node-list-first nl))) (loop (node-list-rest nl) fnlist)))))) (if (node-list-empty? footnotes) (empty-sosofo) (if (and #f ;; there was a time when make-endnotes was called in ;; more places, and this code prevented footnotes from ;; being output more than once. now that it's only ;; called in footer-navigation, this code isn't necessary ;; and does the wrong thing if -V nochunks is specified. (or (equal? (gi node) (normalize "reference")) (equal? (gi node) (normalize "part")) (equal? (gi node) (normalize "set")) (equal? (gi node) (normalize "book")))) (empty-sosofo) ;; Each RefEntry/Component does its own... (make sequence (make-endnote-header) (make element gi: "TABLE" attributes: '(("BORDER" "0") ("CLASS" "FOOTNOTES") ("WIDTH" "100%")) (with-mode endnote-mode (process-node-list footnotes))))))) (empty-sosofo))) (define (make-endnote-header) (let ((headsize (if (equal? (gi) (normalize "refentry")) "H2" "H3"))) (make element gi: headsize attributes: '(("CLASS" "FOOTNOTES")) (literal (gentext-endnotes))))) (mode endnote-mode (element footnote (let ((id (if (attribute-string (normalize "id") (current-node)) (attribute-string (normalize "id") (current-node)) (generate-anchor (current-node))))) (make sequence (make element gi: "TR" (make element gi: "TD" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("WIDTH" "5%")) (make element gi: "A" attributes: (list (list "NAME" (string-append "FTN." id)) (list "HREF" (href-to (current-node)))) ($footnote-literal$ (current-node)))) (make element gi: "TD" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("WIDTH" "95%")) (process-children)))))) ) ;; ====================================================================== ;; Handle table footnotes (define (table-footnote-number footnote) (format-number (component-child-number footnote (list (normalize "table") (normalize "informaltable"))) "a")) (element (entry para footnote) (make element gi: "SUP" (literal (table-footnote-number (current-node))))) (define (make-table-endnote-header) (make sequence (literal (gentext-table-endnotes)) (make empty-element gi: "BR"))) (define (make-table-endnotes) (let* ((footnotes (select-elements (descendants (current-node)) (normalize "footnote"))) (tgroup (ancestor-member (current-node) (list (normalize "tgroup")))) (cols (string->number (attribute-string (normalize "cols") tgroup)))) (if (node-list-empty? footnotes) (empty-sosofo) (make element gi: "TR" (make element gi: "TD" attributes: (list (list "COLSPAN" (number->string cols))) (make-table-endnote-header) (with-mode table-footnote-mode (process-node-list footnotes))))))) (mode table-footnote-mode (element footnote (process-children)) (element (footnote para) (let* ((target (parent (current-node))) (fnnum (table-footnote-number target)) (idstr (if (attribute-string (normalize "id") target) (attribute-string (normalize "id") target) (generate-anchor target)))) (make sequence (if (= (child-number) 1) (make element gi: "A" attributes: (list (list "NAME" (string-append "FTN." idstr))) (literal fnnum (gentext-label-title-sep (normalize "footnote")))) (empty-sosofo)) (process-children) (make empty-element gi: "BR"))))) docbook-dsssl-1.79/html/dbefsyn.dsl0000644000175000001440000005357407611215255020024 0ustar msmithusers00000000000000;; $Id: dbefsyn.dsl,v 1.4 2003/01/15 08:24:13 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ============================ CLASS SYNOPSIS ============================= (define %indent-classsynopsisinfo-lines% #f) (define %number-classsynopsisinfo-lines% #f) (define %default-classsynopsis-language% "java") (element classsynopsis (let ((language (if (attribute-string (normalize "language")) (attribute-string (normalize "language")) %default-classsynopsis-language%))) (case language (("java") (with-mode cs-java-mode (process-node-list (current-node)))) (("perl") (with-mode cs-perl-mode (process-node-list (current-node)))) (("idl") (with-mode cs-idl-mode (process-node-list (current-node)))) (("cpp") (with-mode cs-cpp-mode (process-node-list (current-node)))) (("python") (with-mode cs-python-mode (process-node-list (current-node)))) (else (with-mode cs-java-mode (process-node-list (current-node))))))) (element methodsynopsis (let ((language (if (attribute-string (normalize "language")) (attribute-string (normalize "language")) %default-classsynopsis-language%))) (case language (("java") (with-mode cs-java-mode (process-node-list (current-node)))) (("perl") (with-mode cs-perl-mode (process-node-list (current-node)))) (("idl") (with-mode cs-idl-mode (process-node-list (current-node)))) (("cpp") (with-mode cs-cpp-mode (process-node-list (current-node)))) (("python") (with-mode cs-python-mode (process-node-list (current-node)))) (else (with-mode cs-java-mode (process-node-list (current-node))))))) (element fieldsynopsis (let ((language (if (attribute-string (normalize "language")) (attribute-string (normalize "language")) %default-classsynopsis-language%))) (case language (("java") (with-mode cs-java-mode (process-node-list (current-node)))) (("perl") (with-mode cs-perl-mode (process-node-list (current-node)))) (("idl") (with-mode cs-idl-mode (process-node-list (current-node)))) (("cpp") (with-mode cs-cpp-mode (process-node-list (current-node)))) (("python") (with-mode cs-python-mode (process-node-list (current-node)))) (else (with-mode cs-java-mode (process-node-list (current-node))))))) (element constructorsynopsis (let ((language (if (attribute-string (normalize "language")) (attribute-string (normalize "language")) %default-classsynopsis-language%))) (case language (("java") (with-mode cs-java-mode (process-node-list (current-node)))) (("perl") (with-mode cs-perl-mode (process-node-list (current-node)))) (("idl") (with-mode cs-idl-mode (process-node-list (current-node)))) (("cpp") (with-mode cs-cpp-mode (process-node-list (current-node)))) (("python") (with-mode cs-python-mode (process-node-list (current-node)))) (else (with-mode cs-java-mode (process-node-list (current-node))))))) (element destructorsynopsis (let ((language (if (attribute-string (normalize "language")) (attribute-string (normalize "language")) %default-classsynopsis-language%))) (case language (("java") (with-mode cs-java-mode (process-node-list (current-node)))) (("perl") (with-mode cs-perl-mode (process-node-list (current-node)))) (("idl") (with-mode cs-idl-mode (process-node-list (current-node)))) (("cpp") (with-mode cs-cpp-mode (process-node-list (current-node)))) (("python") (with-mode cs-python-mode (process-node-list (current-node)))) (else (with-mode cs-java-mode (process-node-list (current-node))))))) ;; ===== Java ======================================================== (mode cs-java-mode (element classsynopsis (let* ((classes (select-elements (children (current-node)) (normalize "ooclass"))) (classname (node-list-first classes)) (superclasses (node-list-rest classes))) (make element gi: "pre" attributes: '(("class" "classsynopsis")) (process-node-list classname) (process-node-list superclasses) (literal "{&#RE;") (process-node-list (node-list-filter-by-gi (children (current-node)) (list (normalize "constructorsynopsis") (normalize "destructorsynopsis") (normalize "fieldsynopsis") (normalize "methodsynopsis") (normalize "classsynopsisinfo")))) (literal "}")))) (element classsynopsisinfo ($verbatim-display$ %indent-classsynopsisinfo-lines% %number-classsynopsisinfo-lines%)) (element ooclass (make sequence (if (first-sibling?) (literal " ") (literal ", ")) (make element gi: "SPAN" attributes: '(("class" "ooclass")) (process-children)))) (element oointerface (make sequence (if (first-sibling?) (literal " ") (literal ", ")) (make element gi: "SPAN" attributes: '(("class" "oointerface")) (process-children)))) (element ooexception (make sequence (if (first-sibling?) (literal " ") (literal ", ")) (make element gi: "SPAN" attributes: '(("class" "ooexception")) (process-children)))) (element modifier (make element gi: "span" attributes: '(("class" "modifier")) (process-children) (literal " "))) (element classname (if (first-sibling?) (make sequence (literal "class ") (make element gi: "span" attributes: '(("class" "classname")) (process-children) (literal " ")) (if (last-sibling?) (empty-sosofo) (literal "extends "))) (make sequence (make element gi: "span" attributes: '(("class" "superclass")) (process-children)) (if (last-sibling?) (literal " ") (literal ", "))))) (element fieldsynopsis (make element gi: "code" attributes: '(("class" "fieldsynopsis")) (literal " ") (process-children) (literal ";&#RE;"))) (element type (make element gi: "span" attributes: '(("class" "type")) (process-children) (literal " "))) (element varname (make element gi: "span" attributes: '(("class" "varname")) (process-children))) (element initializer (make element gi: "span" attributes: '(("class" "initializer")) (literal " = ") (process-children))) (element constructorsynopsis (java-method-synopsis)) (element destructorsynopsis (java-method-synopsis)) (element methodsynopsis (java-method-synopsis)) (element void (make element gi: "span" attributes: '(("class" "void")) (literal "void "))) (element methodname (process-children)) (element methodparam (make element gi: "span" attributes: '(("class" "methodparam")) (if (first-sibling?) (empty-sosofo) (literal ", ")) (process-children))) (element parameter (make element gi: "span" attributes: '(("class" "parameter")) (process-children))) (element exceptionname (make element gi: "span" attributes: '(("class" "exceptionname")) (if (first-sibling?) (literal "&#RE; throws ") (literal ", ")) (process-children))) ) (define (java-method-synopsis #!optional (nd (current-node))) (let* ((modifiers (select-elements (children nd) (normalize "modifier"))) (notmod (node-list-filter-by-not-gi (children nd) (list (normalize "modifier")))) (type (if (equal? (gi (node-list-first notmod)) (normalize "methodname")) (empty-node-list) (node-list-first notmod))) (methodname (select-elements (children nd) (normalize "methodname"))) (param (node-list-filter-by-gi (node-list-rest notmod) (list (normalize "methodparam")))) (excep (select-elements (children nd) (normalize "exceptionname")))) (make element gi: "code" attributes: (list (list "class" (gi nd))) (if (first-sibling?) (literal "&#RE;") (empty-sosofo)) (literal " ") (process-node-list modifiers) (process-node-list type) (process-node-list methodname) (literal "(") (process-node-list param) (literal ")") (process-node-list excep) (literal ";&#RE;")))) ;; ===== C++ ========================================================= (mode cs-cpp-mode (element classsynopsis (let* ((classes (node-list-filter-by-gi (children (current-node)) (list (normalize "classname") (normalize "modifier")))) (classname (let loop ((nl classes) (cn (empty-node-list))) (if (node-list-empty? nl) cn (if (equal? (gi (node-list-first nl)) (normalize "classname")) (node-list cn (node-list-first nl)) (loop (node-list-rest nl) (node-list cn (node-list-first nl))))))) (superclasses (let loop ((nl classes)) (if (node-list-empty? nl) (empty-node-list) (if (equal? (gi (node-list-first nl)) (normalize "classname")) (node-list-rest nl) (loop (node-list-rest nl))))))) (make element gi: "pre" attributes: '(("class" "classsynopsis")) (process-node-list classname) (process-node-list superclasses) (literal "{&#RE;") (process-node-list (node-list-filter-by-gi (children (current-node)) (list (normalize "constructorsynopsis") (normalize "destructorsynopsis") (normalize "fieldsynopsis") (normalize "methodsynopsis") (normalize "classsynopsisinfo")))) (literal "}")))) (element classsynopsisinfo ($verbatim-display$ %indent-classsynopsisinfo-lines% %number-classsynopsisinfo-lines%)) (element modifier (make element gi: "span" attributes: '(("class" "modifier")) (process-children) (literal " "))) (element classname (if (first-sibling?) (make sequence (literal "class ") (make element gi: "span" attributes: '(("class" "classname")) (process-children)) (if (last-sibling?) (empty-sosofo) (literal ": "))) (make sequence (make element gi: "span" attributes: '(("class" "superclass")) (process-children)) (if (last-sibling?) (literal " ") (literal ", "))))) (element fieldsynopsis (make element gi: "code" attributes: '(("class" "fieldsynopsis")) (literal " ") (process-children) (literal ";&#RE;"))) (element type (make element gi: "span" attributes: '(("class" "type")) (process-children) (literal " "))) (element varname (make element gi: "span" attributes: '(("class" "varname")) (process-children))) (element initializer (make element gi: "span" attributes: '(("class" "initializer")) (literal " = ") (process-children))) (element constructorsynopsis (cpp-method-synopsis)) (element destructorsynopsis (cpp-method-synopsis)) (element methodsynopsis (cpp-method-synopsis)) (element void (make element gi: "span" attributes: '(("class" "void")) (literal "void "))) (element methodname (process-children)) (element methodparam (make element gi: "span" attributes: '(("class" "methodparam")) (if (first-sibling?) (empty-sosofo) (literal ", ")) (process-children))) (element parameter (make element gi: "span" attributes: '(("class" "parameter")) (process-children))) (element exceptionname (make element gi: "span" attributes: '(("class" "exceptionname")) (if (first-sibling?) (literal "&#RE; throws ") (literal ", ")) (process-children))) ) (define (cpp-method-synopsis #!optional (nd (current-node))) (let* ((modifiers (select-elements (children nd) (normalize "modifier"))) (notmod (node-list-filter-by-not-gi (children nd) (list (normalize "modifier")))) (type (if (equal? (gi (node-list-first notmod)) (normalize "methodname")) (empty-node-list) (node-list-first notmod))) (methodname (select-elements (children nd) (normalize "methodname"))) (param (node-list-filter-by-gi (node-list-rest notmod) (list (normalize "methodparam")))) (excep (select-elements (children nd) (normalize "exceptionname")))) (make element gi: "code" attributes: (list (list "class" (gi nd))) (if (first-sibling?) (literal "&#RE;") (empty-sosofo)) (literal " ") (process-node-list modifiers) (process-node-list type) (process-node-list methodname) (literal "(") (process-node-list param) (literal ")") (process-node-list excep) (literal ";&#RE;")))) ;; ===== Perl ======================================================== (mode cs-perl-mode (element classsynopsis (let* ((modifiers (select-elements (children (current-node)) (normalize "modifier"))) (classes (select-elements (children (current-node)) (normalize "classname"))) (classname (node-list-first classes)) (superclasses (node-list-rest classes))) (make element gi: "pre" attributes: '(("class" "classsynopsis")) (literal "package ") (process-node-list classname) (literal ";&#RE;") (if (node-list-empty? superclasses) (empty-sosofo) (make sequence (literal "@ISA = ("); (process-node-list superclasses) (literal ";&#RE;"))) (process-node-list (node-list-filter-by-gi (children (current-node)) (list (normalize "constructorsynopsis") (normalize "destructorsynopsis") (normalize "fieldsynopsis") (normalize "methodsynopsis") (normalize "classsynopsisinfo"))))))) (element classsynopsisinfo ($verbatim-display$ %indent-classsynopsisinfo-lines% %number-classsynopsisinfo-lines%)) (element modifier (literal "Perl ClassSynopses don't use Modifiers")) (element classname (if (first-sibling?) (make element gi: "span" attributes: '(("class" "classname")) (process-children)) (make sequence (make element gi: "span" attributes: '(("class" "superclass")) (process-children)) (if (last-sibling?) (empty-sosofo) (literal ", "))))) (element fieldsynopsis (make element gi: "code" attributes: '(("class" "fieldsynopsis")) (literal " "); (process-children) (literal ";&#RE;"))) (element type (make element gi: "span" attributes: '(("class" "type")) (process-children) (literal " "))) (element varname (make element gi: "span" attributes: '(("class" "varname")) (process-children))) (element initializer (make element gi: "span" attributes: '(("class" "initializer")) (literal " = ") (process-children) (literal " "))) (element constructorsynopsis (perl-method-synopsis)) (element destructorsynopsis (perl-method-synopsis)) (element methodsynopsis (perl-method-synopsis)) (element void (empty-sosofo)) (element methodname (make element gi: "span" attributes: '(("class" "methodname")) (process-children))) (element methodparam (make element gi: "span" attributes: '(("class" "methodparam")) (if (first-sibling?) (empty-sosofo) (literal ", ")) (process-children))) (element parameter (make element gi: "span" attributes: '(("class" "parameter")) (process-children))) (element exceptionname (literal "Perl ClassSynopses don't use Exceptions")) ) (define (perl-method-synopsis #!optional (nd (current-node))) (let* ((modifiers (select-elements (children nd) (normalize "modifier"))) (notmod (node-list-filter-by-not-gi (children nd) (list (normalize "modifier")))) (type (if (equal? (gi (node-list-first notmod)) (normalize "methodname")) (empty-node-list) (node-list-first notmod))) (methodname (select-elements (children nd) (normalize "methodname"))) (param (node-list-filter-by-gi (node-list-rest notmod) (list (normalize "type") (normalize "void")))) (excep (select-elements (children nd) (normalize "exceptionname")))) (make element gi: "code" attributes: (list (list "class" (gi nd))) (literal "sub ") (process-node-list modifiers) (process-node-list type) (process-node-list methodname) (literal " { ... }")))) ;; ===== IDL ========================================================= (mode cs-idl-mode (element classsynopsis (let* ((modifiers (select-elements (children (current-node)) (normalize "modifier"))) (classes (select-elements (children (current-node)) (normalize "classname"))) (classname (node-list-first classes)) (superclasses (node-list-rest classes))) (make element gi: "pre" attributes: '(("class" "classsynopsis")) (literal "interface ") (process-node-list modifiers) (process-node-list classname) (if (node-list-empty? superclasses) (literal " ") (make sequence (literal " : ") (process-node-list superclasses))) (literal " {&#RE;") (process-node-list (node-list-filter-by-gi (children (current-node)) (list (normalize "constructorsynopsis") (normalize "destructorsynopsis") (normalize "fieldsynopsis") (normalize "methodsynopsis") (normalize "classsynopsisinfo")))) (literal "}")))) (element classsynopsisinfo ($verbatim-display$ %indent-classsynopsisinfo-lines% %number-classsynopsisinfo-lines%)) (element modifier (make element gi: "span" attributes: '(("class" "modifier")) (process-children) (literal " "))) (element classname (if (first-sibling?) (make element gi: "span" attributes: '(("class" "classname")) (process-children)) (make sequence (make element gi: "span" attributes: '(("class" "superclass")) (process-children)) (if (last-sibling?) (empty-sosofo) (literal ", "))))) (element fieldsynopsis (make element gi: "code" attributes: '(("class" "fieldsynopsis")) (literal " "); (process-children) (literal ";&#RE;"))) (element type (make element gi: "span" attributes: '(("class" "type")) (process-children) (literal " "))) (element varname (make element gi: "span" attributes: '(("class" "varname")) (process-children))) (element initializer (make element gi: "span" attributes: '(("class" "initializer")) (literal " = ") (process-children) (literal " "))) (element constructorsynopsis (idl-method-synopsis)) (element destructorsynopsis (idl-method-synopsis)) (element methodsynopsis (idl-method-synopsis)) (element void (make element gi: "span" attributes: '(("class" "void")) (literal "void "))) (element methodname (make element gi: "span" attributes: '(("class" "methodname")) (process-children))) (element methodparam (make element gi: "span" attributes: '(("class" "methodparam")) (if (first-sibling?) (empty-sosofo) (literal ", ")) (process-children))) (element parameter (make element gi: "span" attributes: '(("class" "parameter")) (process-children))) (element exceptionname (make element gi: "span" attributes: '(("class" "exceptionname")) (if (first-sibling?) (literal " raises(") (literal ", ")) (process-children) (if (last-sibling?) (literal ")") (empty-sosofo)))) ) (define (idl-method-synopsis #!optional (nd (current-node))) (let* ((modifiers (select-elements (children nd) (normalize "modifier"))) (notmod (node-list-filter-by-not-gi (children nd) (list (normalize "modifier")))) (type (if (equal? (gi (node-list-first notmod)) (normalize "methodname")) (empty-node-list) (node-list-first notmod))) (methodname (select-elements (children nd) (normalize "methodname"))) (param (node-list-filter-by-gi (node-list-rest notmod) (list (normalize "methodparam")))) (excep (select-elements (children nd) (normalize "exceptionname")))) (make element gi: "code" attributes: (list (list "class" (gi nd))) (literal " ") (process-node-list modifiers) (process-node-list type) (process-node-list methodname) (literal "(") (process-node-list param) (literal ")") (process-node-list excep) (literal ";&#RE;")))) ;; ===== Python ======================================================= ;; Contributed by Lane Stevens, lane@cycletime.com (mode cs-python-mode (element classsynopsis (let* ((classes (select-elements (children (current-node)) (normalize "ooclass"))) (classname (node-list-first classes)) (superclasses (node-list-rest classes))) (make element gi: "pre" attributes: '(("class" "classsynopsis")) (literal "class ") (process-node-list classname) (literal "(") (process-node-list superclasses) (literal ") :") (process-node-list (node-list-filter-by-gi (children (current-node)) (list (normalize "constructorsynopsis") (normalize "destructorsynopsis") (normalize "fieldsynopsis") (normalize "methodsynopsis") (normalize "classsynopsisinfo")))) ) ) ) (element ooclass (make sequence (make element gi: "SPAN" attributes: '(("class" "ooclass")) (process-children) (cond ((first-sibling?) (literal " ")) ((last-sibling?) (empty-sosofo)) (#t (literal ", ")) ) ) ) ) (element classname (if (first-sibling?) (make element gi: "SPAN" attributes: '(("class" "classname")) (process-children)) (make element gi: "SPAN" attributes: '(("class" "superclass"))) ) ) (element methodsynopsis (python-method-synopsis)) (element initializer (make element gi: "SPAN" attributes: '(("class" "initializer")) (literal " = ") (process-children))) (element methodname (process-children)) (element methodparam (make element gi: "SPAN" attributes: '(("class" "methodparam")) (process-children) (if (last-sibling?) (empty-sosofo) (literal ", ")) ) ) (element parameter (make element gi: "SPAN" attributes: '(("class" "parameter")) (process-children))) ) (define (python-method-synopsis #!optional (nd (current-node))) (let* ((the-method-name (select-elements (children nd) (normalize "methodname"))) (the-method-params (select-elements (children nd) (normalize "methodparam")))) (make element gi: "code" attributes: (list (list "class" (gi nd))) (literal " def ") (process-node-list the-method-name) (literal "(") (process-node-list the-method-params) (literal ") :") ) ) ) ;; EOF docbook-dsssl-1.79/html/dbdivis.dsl0000644000175000001440000001177107611215255020007 0ustar msmithusers00000000000000;; $Id: dbdivis.dsl,v 1.4 2003/01/15 08:24:13 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ============================= DIVISIONS ============================== (element set (let* ((setinfo (select-elements (children (current-node)) (normalize "setinfo"))) (ititle (select-elements (children setinfo) (normalize "title"))) (title (if (node-list-empty? ititle) (select-elements (children (current-node)) (normalize "title")) (node-list-first ititle))) (nl (titlepage-info-elements (current-node) setinfo)) (tsosofo (with-mode head-title-mode (process-node-list title)))) (html-document tsosofo (make element gi: "DIV" attributes: '(("CLASS" "SET")) (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (if %generate-set-titlepage% (make sequence (set-titlepage nl 'recto) (set-titlepage nl 'verso)) (empty-sosofo)) (if (not (generate-toc-in-front)) (process-children) (empty-sosofo)) (if %generate-set-toc% (make sequence (build-toc (current-node) (toc-depth (current-node)))) (empty-sosofo)) (if (generate-toc-in-front) (process-children) (empty-sosofo)))))) (element (set title) (empty-sosofo)) (element book (let* ((bookinfo (select-elements (children (current-node)) (normalize "bookinfo"))) (ititle (select-elements (children bookinfo) (normalize "title"))) (title (if (node-list-empty? ititle) (select-elements (children (current-node)) (normalize "title")) (node-list-first ititle))) (nl (titlepage-info-elements (current-node) bookinfo)) (tsosofo (with-mode head-title-mode (process-node-list title))) (dedication (select-elements (children (current-node)) (normalize "dedication")))) (html-document tsosofo (make element gi: "DIV" attributes: '(("CLASS" "BOOK")) (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (if %generate-book-titlepage% (make sequence (book-titlepage nl 'recto) (book-titlepage nl 'verso)) (empty-sosofo)) (if (node-list-empty? dedication) (empty-sosofo) (with-mode dedication-page-mode (process-node-list dedication))) (if (not (generate-toc-in-front)) (process-children) (empty-sosofo)) (if %generate-book-toc% (build-toc (current-node) (toc-depth (current-node))) (empty-sosofo)) (let loop ((gilist ($generate-book-lot-list$))) (if (null? gilist) (empty-sosofo) (if (not (node-list-empty? (select-elements (descendants (current-node)) (car gilist)))) (make sequence (build-lot (current-node) (car gilist)) (loop (cdr gilist))) (loop (cdr gilist))))) (if (generate-toc-in-front) (process-children) (empty-sosofo)))))) (element (book title) (empty-sosofo)) (element part (let* ((partinfo (select-elements (children (current-node)) (normalize "docinfo"))) (partintro (select-elements (children (current-node)) (normalize "partintro"))) (nl (titlepage-info-elements (current-node) partinfo (if %generate-partintro-on-titlepage% partintro (empty-node-list)))) (ititle (select-elements (children partinfo) (normalize "title"))) (title (if (node-list-empty? ititle) (select-elements (children (current-node)) (normalize "title")) (node-list-first ititle))) (tsosofo (with-mode head-title-mode (process-node-list title)))) (html-document tsosofo (make element gi: "DIV" attributes: '(("CLASS" "PART")) (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (if %generate-part-titlepage% (make sequence (part-titlepage nl 'recto) (part-titlepage nl 'verso)) (empty-sosofo)) (if (not (generate-toc-in-front)) (process-children) (empty-sosofo)) (if (and (not (node-list-empty? partintro)) (not %generate-partintro-on-titlepage%)) ($process-partintro$ partintro) (empty-sosofo)) (if (and %generate-part-toc% (not %generate-part-toc-on-titlepage%)) (make sequence (build-toc (current-node) (toc-depth (current-node)))) (empty-sosofo)) (if (generate-toc-in-front) (process-children) (empty-sosofo)))))) (element (part title) (empty-sosofo)) (element partintro (empty-sosofo)) (element (partintro title) (make element gi: "H1" (process-children))) (element (partintro sect1) ($section-body$)) (define ($process-partintro$ partintro) (make element gi: "DIV" attributes: (list (list "CLASS" "PARTINTRO")) (make element gi: "A" attributes: (list (list "NAME" (element-id partintro))) (empty-sosofo)) (process-node-list (children partintro)) (make-endnotes partintro))) docbook-dsssl-1.79/html/dbcompon.dsl0000644000175000001440000001603607653411141020161 0ustar msmithusers00000000000000;; $Id: dbcompon.dsl,v 1.8 2003/04/29 05:49:21 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ============================= COMPONENTS ============================= ;; ;; in docbook, components are containers at the chapter/appendix level (define ($component$) (html-document (with-mode head-title-mode (literal (element-title-string (current-node)))) ($component-body$))) (define ($component-separator$) (if (or (not nochunks) (node-list=? (current-node) (sgml-root-element))) (empty-sosofo) (make empty-element gi: "HR"))) (define ($component-body$) (let* ((epigraph (let loop ((nl (children (current-node)))) (if (node-list-empty? nl) nl (let ((first-gi (gi (node-list-first nl)))) (if (equal? first-gi (normalize "epigraph")) (node-list-first nl) (if (or (equal? first-gi (normalize "title")) (equal? first-gi (normalize "subtitle")) (equal? first-gi (normalize "titleabbrev")) (equal? first-gi (normalize "docinfo")) (equal? first-gi (normalize "chapterinfo")) (equal? first-gi (normalize "appendixinfo"))) (loop (node-list-rest nl)) (loop (empty-node-list)))))))) (notepigraph (let loop ((nl (children (current-node))) (ch (empty-node-list))) (if (node-list-empty? nl) ch (if (node-list=? (node-list-first nl) epigraph) (loop (node-list-rest nl) ch) (loop (node-list-rest nl) (node-list ch (node-list-first nl)))))))) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) ($component-separator$) ($component-title$) (process-node-list epigraph) (if ($generate-chapter-toc$) ($chapter-toc$) (empty-sosofo)) (process-node-list notepigraph)))) (define ($component-title$ #!optional (titlegi "H1") (subtitlegi "H2")) (let* ((info (cond ((equal? (gi) (normalize "article")) (node-list-filter-by-gi (children (current-node)) (list (normalize "artheader") (normalize "articleinfo")))) ((or (equal? (gi) (normalize "appendix")) (equal? (gi) (normalize "bibliography")) (equal? (gi) (normalize "chapter")) (equal? (gi) (normalize "glossary")) (equal? (gi) (normalize "index")) (equal? (gi) (normalize "preface")) (equal? (gi) (normalize "reference")) (equal? (gi) (normalize "setindex"))) (select-elements (children (current-node)) (normalize "docinfo"))) (else (empty-node-list)))) (exp-children (if (node-list-empty? info) (empty-node-list) (expand-children (children info) (list (normalize "bookbiblio") (normalize "bibliomisc") (normalize "biblioset"))))) (parent-titles (select-elements (children (current-node)) (normalize "title"))) (titles (if (node-list-empty? parent-titles) (select-elements exp-children (normalize "title")) parent-titles)) (parent-subttl (select-elements (children (current-node)) (normalize "subtitle"))) (subtitles (if (node-list-empty? parent-subttl) (select-elements exp-children (normalize "subtitle")) parent-subttl))) (make sequence (make element gi: titlegi (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (if (and %chapter-autolabel% (or (equal? (gi) (normalize "chapter")) (equal? (gi) (normalize "appendix")))) (literal (gentext-element-name-space (gi)) (element-label (current-node)) (gentext-label-title-sep (gi))) (empty-sosofo)) (if (node-list-empty? titles) (element-title-sosofo) ;; get a default! (with-mode title-mode (process-node-list titles))))) (if (node-list-empty? subtitles) (empty-sosofo) (with-mode subtitle-mode (make element gi: subtitlegi (process-node-list subtitles))))))) (define ($chapter-toc$) ;; Called by the TITLE element so that it can come after the TITLE (build-toc (ancestor-member (current-node) (component-element-list)) (toc-depth (ancestor-member (current-node) (component-element-list))) #t)) (element appendix ($component$)) (element (appendix title) (empty-sosofo)) (element chapter ($component$)) (element (chapter title) (empty-sosofo)) (element preface ($component$)) (element (preface title) (empty-sosofo)) ;; Dedication is empty except in a special mode so that it can be ;; reordered (made to come before the TOCs)...see dbttlpg.dsl ;; Dedication is empty except in a special mode so that it can be ;; reordered (made to come before the TOCs) (element dedication (empty-sosofo)) (mode dedication-page-mode (element dedication (html-document (with-mode head-title-mode (literal (element-title-string (current-node)))) (make sequence ($component-separator$) ($component-title$) (process-children)))) (element (dedication title) (empty-sosofo)) ) (element colophon ($component$)) ;; Articles are like components, except that if they may have much ;; more formal title pages (created with article-titlepage). ;; (element article (let* ((info (node-list-filter-by-gi (children (current-node)) (list (normalize "artheader") (normalize "articleinfo")))) (ititle (select-elements (children info) (normalize "title"))) (title (if (node-list-empty? ititle) (select-elements (children (current-node)) (normalize "title")) (node-list-first ititle))) (tsosofo (with-mode head-title-mode (process-node-list title))) (nl (titlepage-info-elements (current-node) info))) (html-document tsosofo (make element gi: "DIV" attributes: '(("CLASS" "ARTICLE")) (if %generate-article-titlepage% (make sequence (article-titlepage nl 'recto) (article-titlepage nl 'verso)) ($component-title$)) (if (not (generate-toc-in-front)) (process-children) (empty-sosofo)) (if %generate-article-toc% (make sequence (build-toc (current-node) (toc-depth (current-node)))) (empty-sosofo)) (let loop ((gilist ($generate-article-lot-list$))) (if (null? gilist) (empty-sosofo) (if (not (node-list-empty? (select-elements (descendants (current-node)) (car gilist)))) (make sequence (build-lot (current-node) (car gilist)) (loop (cdr gilist))) (loop (cdr gilist))))) (if (generate-toc-in-front) (process-children) (empty-sosofo)))))) (element (article title) (empty-sosofo)) (element (article appendix) ($section$)) ;; this is a special case docbook-dsssl-1.79/html/dbchunk.dsl0000644000175000001440000004313507262170713020001 0ustar msmithusers00000000000000;; $Id: dbchunk.dsl,v 1.1 2001/04/02 21:40:27 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; (define (chunk-element-list) (list (normalize "preface") (normalize "chapter") (normalize "appendix") (normalize "article") (normalize "glossary") (normalize "bibliography") (normalize "index") (normalize "colophon") (normalize "setindex") (normalize "reference") (normalize "refentry") (normalize "part") (normalize "sect1") (normalize "section") (normalize "book") ;; just in case nothing else matches... (normalize "set") ;; sets are definitely chunks... )) (define (chunk-skip-first-element-list) (list (normalize "sect1") (normalize "section"))) (define (chunk-section-depth) 1) (define (section-element-depth #!optional (section (current-node))) (if (node-list-empty? section) 0 (if (equal? (gi section) (normalize "section")) (length (hierarchical-number-recursive (normalize "section") section)) (section-element-depth (parent section))))) (define (is-first-element nd) (equal? (child-number nd) 1)) (define (combined-chunk? #!optional (nd (current-node))) (or ;; if it's a section and the parent element is also a section ;; and its depth is less than or equal to chunk-section-depth (and (equal? (gi nd) (normalize "section")) (not (node-list-empty? (parent nd))) (equal? (gi (parent nd)) (normalize "section")) (>= (section-element-depth nd) (chunk-section-depth))) ;; if it's the first skipped chunk in a chunk (and (not (node-list-empty? nd)) (member (gi nd) (chunk-element-list)) (is-first-element nd) (member (gi nd) (chunk-skip-first-element-list))) ;; or if it's a chunk in a partintro (and (member (gi nd) (chunk-element-list)) (has-ancestor-member? nd (list (normalize "partintro")))))) (define (chunk? #!optional (nd (current-node))) ;; 1. The (sgml-root-element) is always a chunk. ;; 2. If nochunks is #t or the dbhtml PI on the root element ;; specifies chunk='no', then the root element is the only ;; chunk. ;; 3. Otherwise, elements in the chunk-element-list are chunks ;; unless they're combined with their parent. ;; 4. Except for bibliographys, which are only chunks if they ;; occur in book or article. ;; 5. And except for sections, which are only chunks if they ;; are not too deep ;; (let* ((notchunk (or (and (equal? (gi nd) (normalize "bibliography")) (not (or (equal? (gi (parent nd)) (normalize "book")) (equal? (gi (parent nd)) (normalize "article"))))) (and (equal? (gi nd) (normalize "section")) (equal? (gi (parent nd)) (normalize "section")) (>= (section-element-depth nd) (chunk-section-depth))))) (maybechunk (not notchunk))) (if (node-list=? nd (sgml-root-element)) #t (if (or nochunks (equal? (dbhtml-value (sgml-root-element) "chunk") "no")) #f (if (member (gi nd) (chunk-element-list)) (if (combined-chunk? nd) #f maybechunk) #f))))) (define (html-prefix nd) (let ((dbhtml-prefix (inherited-dbhtml-value nd "prefix"))) (if dbhtml-prefix dbhtml-prefix %html-prefix%))) (define (id-based-filename nd) (if (and %use-id-as-filename% (attribute-string (normalize "id") nd)) (case-fold-down (attribute-string (normalize "id") nd)) #f)) (define (book-html-base nd) (let ((number (number->string (all-element-number nd))) ;(number (pad-string (number->string 3) 2 "0")) (prefix (html-prefix nd)) (pibase (or (inherited-dbhtml-value nd "basename") (inherited-pi-value nd "html-basename"))) (idbase (id-based-filename nd))) (if idbase (string-append (if prefix prefix "") idbase) (string-append (if prefix prefix "") (if pibase pibase "book") number)))) (define (division-html-base nd) (let* ((number (number->string (all-element-number nd))) (prefix (html-prefix nd)) (pibase (or (inherited-dbhtml-value nd "basename") (inherited-pi-value nd "html-basename"))) (idbase (id-based-filename nd)) (base (cond (pibase pibase) (idbase idbase) ((equal? (gi nd) (normalize "set")) "s") ((equal? (gi nd) (normalize "preface")) "f") ((equal? (gi nd) (normalize "chapter")) "c") ((equal? (gi nd) (normalize "article")) "t") ((equal? (gi nd) (normalize "appendix")) "a") ((equal? (gi nd) (normalize "part")) "p") ((equal? (gi nd) (normalize "reference")) "r") ((equal? (gi nd) (normalize "glossary")) "g") ((equal? (gi nd) (normalize "bibliography")) "b") ((equal? (gi nd) (normalize "index")) "i") ((equal? (gi nd) (normalize "setindex")) "n") ((equal? (gi nd) (normalize "refentry")) "r") ;; "x" is section (else "z")))) (if idbase (string-append (if prefix prefix "") idbase) (if pibase (string-append (if prefix prefix "") pibase number) (string-append (if prefix prefix "") base number))))) (define (component-html-base nd) (division-html-base nd)) (define (section-html-base nd) ;; Now that I'm using all-element-number, there's no point in basing ;; it off the component-html-base at all... (let* ((number (number->string (all-element-number nd))) (prefix (html-prefix nd)) (pibase (or (inherited-dbhtml-value nd "basename") (inherited-pi-value nd "html-basename"))) (idbase (id-based-filename nd)) (base (if pibase (string-append (if prefix prefix "") pibase) (string-append (if prefix prefix "") "x")))) (if idbase (string-append (if prefix prefix "") idbase) (if (chunk? nd) (string-append base number) base)))) (define (element-html-base nd) (let* ((number (number->string (all-element-number nd))) (prefix (html-prefix nd)) (pibase (or (inherited-dbhtml-value nd "basename") (inherited-pi-value nd "html-basename"))) (idbase (id-based-filename nd)) (base (if pibase (string-append (if prefix prefix "") pibase) (string-append (if prefix prefix "") (case-fold-down (gi nd)))))) (if idbase (string-append (if prefix prefix "") idbase) (string-append base number)))) ;; Returns the filename of the html file that contains elemnode, without ;; any leading path information (define (html-base-filename #!optional (input_nd (current-node))) (let* ((nd (chunk-parent input_nd)) (base (cond ((member (gi nd) (book-element-list)) (book-html-base nd)) ((member (gi nd) (division-element-list)) (division-html-base nd)) ((member (gi nd) (component-element-list)) (component-html-base nd)) ((member (gi nd) (section-element-list)) (section-html-base nd)) (else (element-html-base input_nd)))) ;; If this chunk-level element isn't a chunk, get the pifile from ;; the parent element. (pifile (if (chunk? nd) (or (dbhtml-value nd "filename") (pi-value nd "html-filename")) (or (dbhtml-value (parent nd) "filename") (pi-value (parent nd) "html-filename")))) (language (if %html-use-lang-in-filename% (if (inherited-attribute-string (normalize "lang") nd) (inherited-attribute-string (normalize "lang") nd) %default-language%) "")) (ext (if %html-use-lang-in-filename% (string-append "." language %html-ext%) %html-ext%))) (if (and %root-filename% (node-list=? (sgml-root-element) nd)) (string-append %root-filename% ext) (if pifile pifile (string-append base ext))))) (define (root-rel-path filename #!optional (node (current-node))) ;; Return the filename relative to the root path (string-append (copy-string "../" (directory-depth (html-file node))) filename)) ;; Returns the filename of the html file that contains elemnode ;; (define (html-file #!optional (input_nd (current-node))) (let* ((cp-nd (chunk-parent input_nd)) ;; If the sgml-root-element is at a level below the chunking ;; level, then cp-nd will return an empty-node-list. In this ;; case, we want to return the root-element. (nd (if (node-list-empty? cp-nd) (sgml-root-element) cp-nd)) (base-filename (html-base-filename nd)) (pidir (or (inherited-dbhtml-value nd "dir") (inherited-pi-value nd "html-dir")))) (if (and %root-filename% (node-list=? (sgml-root-element) nd)) base-filename (if pidir (string-append pidir "/" base-filename) base-filename)))) (define (href-to target) ;; Return the HTML HREF for the given node. If nochunks is true, just ;; return the fragment identifier. (let* ((id (element-id target)) (curdepth (directory-depth (html-file (current-node)))) (entfile (html-file target)) (fragid (if (chunk? target) "" (string-append "#" id)))) (if nochunks fragid (string-append (copy-string "../" curdepth) entfile fragid)))) (define (html-entity-file htmlfilename) ;; Returns the filename that should be used for _writing_ htmlfilename. ;; This may differ from the filename used in referencing it. (The point ;; is that you can force the stylesheets to write the chunked files ;; somewhere else, if you want.) (let* ((pi-outputdir (dbhtml-value (sgml-root-element) "output-dir")) (outputdir (if pi-outputdir pi-outputdir %output-dir%))) (if (and use-output-dir outputdir) (string-append outputdir "/" htmlfilename) htmlfilename))) ;; Split node list nl at nd; return '(nodes-prev-to-nd nodes-following-nd) ;; Note that nd does not appear in either return list. (define (split-node-list nd nodelist) (let loop ((prev (empty-node-list)) (nl nodelist)) (if (node-list-empty? nl) (list prev (empty-node-list)) (if (node-list=? (node-list-first nl) nd) (list prev (node-list-rest nl)) (loop (node-list prev (node-list-first nl)) (node-list-rest nl)))))) (define (navigate-to? nd) #t) (define (chunk-parent #!optional (nd (current-node))) (let ((cp (let loop ((p (chunk-level-parent nd))) (if (or (node-list-empty? p) (chunk? p)) p (chunk-parent (parent p)))))) cp)) ; (if (node-list-empty? cp) ; ;; if there's no chunk-parent, return the root node ; (sgml-root-element) ; ;; otherwise, return the parent that we found ; cp))) (define (chunk-level-parent #!optional (nd (current-node))) (ancestor-member nd (chunk-element-list))) (define (chunk-children #!optional (nd (current-node))) (node-list-filter-by-gi (children nd) (chunk-element-list))) (define (ifollow-by-gi nd gilist) (let loop ((next (ifollow nd))) (if (node-list-empty? next) (empty-node-list) (if (member (gi next) gilist) next (loop (ifollow next)))))) (define (ipreced-by-gi nd gilist) (let loop ((prev (ipreced nd))) (if (node-list-empty? prev) (empty-node-list) (if (member (gi prev) gilist) prev (loop (ipreced prev)))))) (define (last-chunk-element nd) (let ((clc (node-list-filter-by-gi (children nd) (chunk-element-list)))) (if (node-list-empty? clc) nd (last-chunk-element (node-list-last clc))))) (define (next-chunk-skip-children #!optional (elem (current-node))) (let* ((nd (chunk-level-parent elem)) (psl (node-list-filter-by-gi (children (parent nd)) (chunk-element-list))) (nextlist (car (cdr (split-node-list nd psl))))) (if (node-list-empty? nextlist) (if (node-list-empty? (parent nd)) (empty-node-list) (next-chunk-skip-children (parent nd))) (node-list-first nextlist)))) (define (next-chunk-with-children #!optional (elem (current-node))) (let* ((nd (chunk-level-parent elem)) (clc (chunk-children nd)) (ns (ifollow-by-gi nd (chunk-element-list)))) (if (node-list-empty? clc) (if (node-list-empty? ns) (next-chunk-skip-children (parent nd)) (node-list-first ns)) ;; If the first of the chunk-children (clc) of this element ;; isn't its own chunk, skip over it, otherwise it's next. (if (chunk? (node-list-first clc)) (node-list-first clc) (next-chunk-with-children (node-list-first clc)))))) ;; (if (> (node-list-length clc) 1) ;; (node-list-first (node-list-rest clc)) ;; (next-chunk-skip-children nd)))))) (define (abs-prev-chunk #!optional (elem (current-node))) (let* ((nd (chunk-parent elem)) (pse (ipreced-by-gi nd (chunk-element-list))) (ps (chunk-parent pse))) (if (node-list-empty? ps) (parent nd) (last-chunk-element ps)))) (define (prev-chunk-element #!optional (elem (current-node))) (let* ((nd (chunk-parent elem)) (prev (chunk-parent (abs-prev-chunk nd)))) ;; There's a special case here. abs-prev-chunk always returns the last ;; chunk element of the preceding element if we walk up the tree. This ;; assures that the last section of the preceding chapter is the "prev" ;; element of the current chapter. ;; ;; However, if chunk-skip-first-element is in use, then abs-prev-chunk ;; gets fooled when it tries to find the element that precedes the ;; second child element that's in chunk-skip-first-element list. ;; ;; For example, if SECT1 is in chunk-skip-first-element then the ;; chunk that precedes the second SECT1 in a CHAPTER is the CHAPTER ;; (not the first SECT1 because the first SECT1 is "skipped", ;; it's in the CHAPTER chunk). Confused yet? ;; ;; Ok, now unfortunately, what abs-prev-chunk returns is the last child ;; of the CHAPTER, so instead of going from the second SECT1 to the ;; CHAPTER, we go from the second SECT1 to the last SECT1 of the CHAPTER. ;; ;; I can't think of a good way to handle this except to test for it ;; right up front. I wonder if all this skip stuff was really worth it? ;; (if (and (member (gi elem) (chunk-skip-first-element-list)) (equal? (child-number elem) 2)) ;; this is the second child, the prev node is the parent. (parent elem) ;; otherwise, do the "normal" thing to find it: (if (node-list-empty? prev) prev (if (combined-chunk? prev) (parent prev) (if (and (chunk? nd) (chunk? prev) (navigate-to? prev)) prev (prev-chunk-element prev))))))) (define (abs-prev-peer-chunk-element #!optional (elem (current-node))) ;; Returns the previous element that is a sibling or parent of the ;; current element. Absolute in this case refers to the fact that ;; it returns the immediate predecessor without regard for whether or ;; not it is a chunk. (let* ((psibling (if (node-list-empty? (preced elem)) (empty-node-list) (node-list-last (preced elem))))) (if (node-list-empty? psibling) (parent elem) psibling))) (define (prev-peer-chunk-element #!optional (elem (current-node))) (let loop ((nd (chunk-level-parent elem))) (if (node-list-empty? nd) (empty-node-list) (if (and (chunk? (abs-prev-peer-chunk-element nd)) (navigate-to? (abs-prev-peer-chunk-element nd))) (abs-prev-peer-chunk-element nd) (loop (abs-prev-peer-chunk-element nd)))))) (define (prev-major-component-chunk-element #!optional (elem (current-node)) (in-chain #f)) ;; Return the prev major component of the document that is a sibling (or ;; ancestor) of the starting element. This is essentially 'prev-sibling' ;; but skips over things that aren't chunks. (if (or (navigate-to? elem) in-chain) (if (member (gi elem) (major-component-element-list)) (if (node-list-empty? (node-list-last-element (preced elem))) (prev-chunk-element elem) (let ((nd (node-list-last-element (preced elem)))) (if (navigate-to? nd) nd (prev-major-component-chunk-element nd #t)))) (ancestor-member elem (major-component-element-list))) (empty-node-list))) (define (abs-next-chunk #!optional (elem (current-node)) (children-ok? #t)) (let* ((nd (chunk-level-parent elem)) (clc (if children-ok? (chunk-children nd) (empty-node-list))) (ns (ifollow-by-gi nd (chunk-element-list)))) (if (node-list-empty? clc) (if (node-list-empty? ns) (if (node-list-empty? (parent nd)) (empty-node-list) (abs-next-chunk (parent nd) #f)) (node-list-first ns)) (node-list-first clc)))) (define (next-chunk-element #!optional (elem (current-node))) (let ((next (abs-next-chunk elem))) (if (node-list-empty? next) (empty-node-list) (if (chunk? next) (if (navigate-to? next) next (next-chunk-element next)) (next-chunk-element next))))) (define (abs-next-peer-chunk-element #!optional (elem (current-node))) (let* ((fsibling (if (node-list-empty? (follow elem)) (empty-node-list) (node-list-first (follow elem))))) (if (node-list-empty? fsibling) (if (node-list-empty? (parent elem)) (empty-node-list) (abs-next-peer-chunk-element (parent elem))) fsibling))) (define (next-peer-chunk-element #!optional (elem (current-node))) (let loop ((nd (chunk-level-parent elem))) (if (node-list-empty? nd) (empty-node-list) (if (and (chunk? (abs-next-peer-chunk-element nd)) (navigate-to? (abs-next-peer-chunk-element nd))) (abs-next-peer-chunk-element nd) (loop (abs-next-peer-chunk-element nd)))))) (define (next-major-component-chunk-element #!optional (elem (current-node)) (in-chain #f)) ;; Return the next major component of the document that is not a descendant ;; of the starting element. This is essentially 'next-sibling' but skips ;; over things that aren't chunks. (if (or (navigate-to? elem) in-chain) (if (member (gi elem) (major-component-element-list)) (if (node-list-empty? (node-list-first-element (follow elem))) (next-major-component-chunk-element (parent elem)) (let ((nd (node-list-first-element (follow elem)))) (if (navigate-to? nd) nd (next-major-component-chunk-element nd #t)))) (ancestor-member elem (major-component-element-list))) (empty-node-list))) ;; EOF dbchunk.dsldocbook-dsssl-1.79/html/dbcallou.dsl0000644000175000001440000001546107652550646020163 0ustar msmithusers00000000000000;; $Id: dbcallou.dsl,v 1.4 2003/04/26 18:36:22 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; The support provided below is a little primitive because there's no way ;; to do line-addressing in Jade. ;; ;; CO's are supported with the CO element or, in SCREENCO and ;; PROGRAMLISTINGCO only, AREAs. ;; ;; Notes on the use of AREAs: ;; ;; - Processing is very slow. Jade loops through each AREA for ;; every column on every line. ;; - Only the LINECOLUMN units are supported, and they are #IMPLIED ;; - If a COORDS only specifies a line, the %callout-default-col% will ;; be used for the column. ;; - If the column is beyond the end of the line, that will work OK, but ;; if more than one callout has to get placed beyond the end of the same ;; line, that doesn't work so well. ;; - Embedded tabs foul up the column counting. ;; - Embedded markup fouls up the column counting. ;; - Embedded markup with embedded line breaks fouls up the line counting. ;; - The callout bugs occur immediately before the LINE COLUMN specified. ;; - You can't point to an AREASET, that doesn't make any sense in HTML ;; since it would imply a one-to-many link ;; ;; There's still no support for a stylesheet drawing the callouts on a ;; GRAPHIC, and I don't think there ever will be. ;; (element areaspec (empty-sosofo)) (element area (empty-sosofo)) (element areaset (empty-sosofo)) (element co ($callout-mark$ (current-node) #t)) (element programlistingco (process-children)) (element screenco (process-children)) (element graphicco (process-children)) (element (screenco screen) ($callout-verbatim-display$ %indent-screen-lines% %number-screen-lines%)) (element (programlistingco programlisting) ($callout-verbatim-display$ %indent-programlisting-lines% %number-programlisting-lines%)) ;; ---------------------------------------------------------------------- (define ($callout-bug$ conumber) (let ((number (if conumber (format-number conumber "1") "0"))) (if conumber (if %callout-graphics% (if (<= conumber %callout-graphics-number-limit%) (make empty-element gi: "IMG" attributes: (list (list "SRC" (root-rel-path (string-append %callout-graphics-path% number %stock-graphics-extension%))) (list "HSPACE" "0") (list "VSPACE" "0") (list "BORDER" "0") (list "ALT" (string-append "(" number ")")))) (make element gi: "B" (literal "(" (format-number conumber "1") ")"))) (make element gi: "B" (literal "(" (format-number conumber "1") ")"))) (make element gi: "B" (literal "(??)"))))) (define ($callout-mark$ co anchor?) ;; Print the callout mark for co (let* ((id (attribute-string (normalize "id") co)) (attr (if anchor? (list (list "NAME" id)) (list (list "HREF" (href-to co)))))) (make element gi: "A" attributes: attr (if (equal? (gi co) (normalize "co")) ($callout-bug$ (if (node-list-empty? co) #f (child-number co))) (let ((areanum (if (node-list-empty? co) 0 (if (equal? (gi (parent co)) (normalize "areaset")) (absolute-child-number (parent co)) (absolute-child-number co))))) ($callout-bug$ (if (node-list-empty? co) #f areanum))))))) (define ($look-for-callout$ line col #!optional (eol? #f)) ;; Look to see if a callout should be printed at line col, and print ;; it if it should (let* ((areaspec (select-elements (children (parent (current-node))) (normalize "areaspec"))) (areas (expand-children (children areaspec) (list (normalize "areaset"))))) (let loop ((areanl areas)) (if (node-list-empty? areanl) (empty-sosofo) (make sequence (if ($callout-area-match$ (node-list-first areanl) line col eol?) ($callout-area-format$ (node-list-first areanl) line col eol?) (empty-sosofo)) (loop (node-list-rest areanl))))))) (define ($callout-area-match$ area line col eol?) ;; Does AREA area match line col? (let* ((coordlist (split (attribute-string (normalize "coords") area))) (aline (string->number (car coordlist))) (acol (if (null? (cdr coordlist)) #f (string->number (car (cdr coordlist))))) (units (if (inherited-attribute-string (normalize "units") area) (inherited-attribute-string (normalize "units") area) (normalize "linecolumn")))) (and (equal? units (normalize "linecolumn")) (or (and (equal? line aline) (equal? col acol)) (and (equal? line aline) eol? (or (not acol) (> acol col))))))) (define ($callout-area-format$ area line col eol?) ;; Format AREA area at the appropriate place (let* ((coordlist (split (attribute-string (normalize "coords") area))) (aline (string->number (car coordlist))) (acol (if (null? (cdr coordlist)) #f (string->number (car (cdr coordlist)))))) (if (and (equal? line aline) eol? (or (not acol) (> acol col))) (make sequence (let loop ((atcol col)) (if (>= atcol (if acol acol %callout-default-col%)) (empty-sosofo) (make sequence (literal " ") (loop (+ atcol 1))))) ($callout-mark$ area #t)) ($callout-mark$ area #t)))) (define ($callout-verbatim-display$ indent line-numbers?) (let* ((content (make element gi: "PRE" attributes: (list (list "CLASS" (gi))) ($callout-verbatim-content$ indent line-numbers?)))) (if %shade-verbatim% (make element gi: "TABLE" attributes: ($shade-verbatim-attr$) (make element gi: "TR" (make element gi: "TD" content))) content))) (define ($callout-verbatim-content$ indent line-numbers?) ;; Print linespecific content in a callout with line numbers (make sequence ($line-start$ indent line-numbers? 1) (let loop ((kl (children (current-node))) (linecount 1) (colcount 1) (res (empty-sosofo))) (if (node-list-empty? kl) (sosofo-append res ($look-for-callout$ linecount colcount #t) (empty-sosofo)) (loop (node-list-rest kl) (if (char=? (node-property 'char (node-list-first kl) default: #\U-0000) #\U-000D) (+ linecount 1) linecount) (if (char=? (node-property 'char (node-list-first kl) default: #\U-0000) #\U-000D) 1 (if (char=? (node-property 'char (node-list-first kl) default: #\U-0000) #\U-0000) colcount (+ colcount 1))) (let ((c (node-list-first kl))) (if (char=? (node-property 'char c default: #\U-0000) #\U-000D) (sosofo-append res ($look-for-callout$ linecount colcount #t) (process-node-list c) ($line-start$ indent line-numbers? (+ linecount 1))) (sosofo-append res ($look-for-callout$ linecount colcount) (process-node-list c))))))))) ;; EOF dbcallout.dsl docbook-dsssl-1.79/html/dbblock.dsl0000644000175000001440000002116307665164157017774 0ustar msmithusers00000000000000;; $Id: dbblock.dsl,v 1.11 2003/05/28 16:48:47 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; (element highlights ($block-container$)) (element revhistory ($book-revhistory$)) (element blockquote (let ((id (element-id)) (attrib (select-elements (children (current-node)) (normalize "attribution"))) (startc (list (list "WIDTH" %blockquote-start-col%))) (endc (list (list "WIDTH" %blockquote-end-col%))) (paras (node-list-filter-by-not-gi (children (current-node)) (list (normalize "attribution"))))) (make sequence (if id (make element gi: "A" attributes: (list (list "NAME" id)) (empty-sosofo)) (empty-sosofo)) (if (node-list-empty? attrib) (make element gi: "BLOCKQUOTE" attributes: '(("CLASS" "BLOCKQUOTE")) (process-children)) (make element gi: "TABLE" attributes: '(("BORDER" "0") ("WIDTH" "100%") ("CELLSPACING" "0") ("CELLPADDING" "0") ("CLASS" "BLOCKQUOTE")) (make element gi: "TR" (make element gi: "TD" attributes: (append startc '(("VALIGN" "TOP"))) (make entity-ref name: "nbsp")) (make element gi: "TD" attributes: '(("VALIGN" "TOP")) (process-node-list paras)) (make element gi: "TD" attributes: (append endc '(("VALIGN" "TOP"))) (make entity-ref name: "nbsp"))) (make element gi: "TR" (make element gi: "TD" attributes: '(("COLSPAN" "2") ("ALIGN" "RIGHT") ("VALIGN" "TOP")) (make sequence (literal "--") (process-node-list attrib))) (make element gi: "TD" attributes: endc (make entity-ref name: "nbsp")))))))) (element epigraph (let* ((attrib (select-elements (children (current-node)) (normalize "attribution"))) (startcol (list (list "WIDTH" %epigraph-start-col%))) (contentcol (list (list "WIDTH" %epigraph-content-col%))) (paras (node-list-filter-by-not-gi (children (current-node)) (list (normalize "attribution"))))) (make element gi: "TABLE" attributes: '(("BORDER" "0") ("WIDTH" "100%") ("CELLSPACING" "0") ("CELLPADDING" "0") ("CLASS" "EPIGRAPH")) (make element gi: "TR" (make element gi: "TD" attributes: startcol (make entity-ref name: "nbsp")) (make element gi: "TD" attributes: (append contentcol '(("ALIGN" "LEFT") ("VALIGN" "TOP"))) (make element gi: "I" (process-node-list paras)))) (if (node-list-empty? attrib) (empty-sosofo) (make element gi: "TR" (make element gi: "TD" attributes: startcol (make entity-ref name: "nbsp")) (make element gi: "TD" attributes: (append contentcol '(("ALIGN" "RIGHT") ("VALIGN" "TOP"))) (make element gi: "I" (process-node-list attrib)))))))) (element attribution ($charseq$)) (element (epigraph para) (make element gi: "P" (make element gi: "I" (process-children-trim)))) (element para ($paragraph$)) (element simpara ($paragraph$)) (element formalpara (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "P" (if (attribute-string (normalize "id")) (make element gi: "A" attributes: (list (list "NAME" (attribute-string (normalize "id")))) (empty-sosofo)) (empty-sosofo)) (process-children)))) (element (formalpara title) ($runinhead$)) (element (formalpara para) (process-children)) (element sidebar (make element gi: "TABLE" attributes: (list (list "CLASS" (gi)) (list "BORDER" "1") (list "CELLPADDING" "5")) (make element gi: "TR" (make element gi: "TD" ($semiformal-object$))))) (element (sidebar title) (empty-sosofo)) (element abstract (make element gi: "BLOCKQUOTE" attributes: '(("CLASS" "ABSTRACT")) ($semiformal-object$))) (element (abstract title) (empty-sosofo)) (element authorblurb ($block-container$)) (element ackno ($paragraph$)) (define ($inline-object$) (process-children)) (define ($informal-object$ #!optional (rule-before? #f) (rule-after? #f)) (let ((id (element-id))) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (if %spacing-paras% (make element gi: "P" (empty-sosofo)) (empty-sosofo)) (if rule-before? (make empty-element gi: "HR") (empty-sosofo)) (if id ;; empty A is a little evil but for instance you can't ;; wrap TABLE within A (make element gi: "A" attributes: (list (list "NAME" id)) (empty-sosofo)) (empty-sosofo)) ;; reset the mode to make processing of elements within an ;; informal object not subject to whatever mode they would ;; be in on the top level; e.g., ;; bookinfo-legalnotice-productname distinguished from ;; bookinfo-productname (with-mode #f (process-children)) (if rule-after? (make empty-element gi: "HR") (empty-sosofo)) (if %spacing-paras% (make element gi: "P" (empty-sosofo)) (empty-sosofo))))) (define (object-title-after #!optional (node (current-node))) (if (member (gi node) ($object-titles-after$)) #t #f)) (define (named-formal-objects) (list (normalize "figure") (normalize "table") (normalize "example") (normalize "equation"))) (define ($formal-object$ #!optional (rule-before? #f) (rule-after? #f)) (let* ((nsep (gentext-label-title-sep (gi))) (id (element-id)) (title-inline-sosofo (make sequence (if (member (gi) (named-formal-objects)) (make sequence (literal (gentext-element-name (gi))) (if (string=? (element-label) "") (literal nsep) (literal " " (element-label) nsep))) (empty-sosofo)) (with-mode title-mode (process-node-list (select-elements (children (current-node)) (normalize "title")))))) (title-sosofo (make element gi: "P" (make element gi: "B" title-inline-sosofo))) ;; reset the mode to make processing of elements within an ;; formal object not subject to whatever mode they would be ;; in on the top level; e.g., ;; bookinfo-legalnotice-productname distinguished from ;; bookinfo-productname (object-sosofo (with-mode #f (process-children)))) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (if rule-before? (make empty-element gi: "HR") (empty-sosofo)) (if id (make element gi: "A" attributes: (list (list "NAME" id)) (empty-sosofo)) (empty-sosofo)) (if (object-title-after) (make sequence object-sosofo title-sosofo) (make sequence title-sosofo object-sosofo)) (if rule-after? (make empty-element gi: "HR") (empty-sosofo))))) (define ($semiformal-object$) ;; semiformal means optional title... (if (node-list-empty? (select-elements (children (current-node)) (normalize "title"))) ($informal-object$) ($formal-object$))) (element example ($formal-object$ %example-rules% %example-rules%)) (element (example title) (empty-sosofo)) ; don't show caption below example (element informalexample ($informal-object$ %informalexample-rules% %informalexample-rules%)) (element informalfigure ($informal-object$ %informalfigure-rules% %informalfigure-rules%)) (element (figure title) (empty-sosofo)) ; don't show caption below figure (element figure ($formal-object$ %figure-rules% %figure-rules%)) (element informaltable ($informal-object$ %informaltable-rules% %informaltable-rules%)) (element table ($formal-object$ %table-rules% %table-rules%)) (element (table title) (empty-sosofo)) ;; remark and comment use the same rendering (define ($remark$) (if %show-comments% (let ((inpara (equal? (gi (parent (current-node))) (normalize "para"))) (attrib '(("CLASS" "COMMENT")))) (if inpara (make element gi: "SPAN" attributes: attrib (process-children)) (make element gi: "P" attributes: attrib (process-children)))) (empty-sosofo))) (element comment ($remark$)) ;; In DocBook V4.0 comment became remark (element remark ($remark$)) docbook-dsssl-1.79/html/dbbibl.dsl0000644000175000001440000007042007611215255017575 0ustar msmithusers00000000000000;; $Id: dbbibl.dsl,v 1.5 2003/01/15 08:24:13 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ......................... BIBLIOGRAPHY PARAMS ......................... ;; these should be in dbparam... (define %biblsep% ", ") (define %biblend% ".") (define bibltable #f) (define (bibliography-table) (let* ((bibliography (ancestor-member (current-node) (list (normalize "bibliography")))) (biblpi (dbhtml-value bibliography "bibliography-format"))) (and (or bibltable (equal? biblpi "table")) (not (equal? biblpi "list"))))) (define %biblioentry-in-entry-order% #t) ;; .................... BIBLIOGRAPHY and BIBLIODIV ...................... (define (bibliography-content) ;; Note that the code below works for both the case where the bibliography ;; has BIBLIODIVs and the case where it doesn't, by the slightly subtle ;; fact that if it does, then allentries will be (empty-node-list). (let* ((allbibcontent (children (current-node))) (prebibcontent (node-list-filter-by-not-gi allbibcontent (list (normalize "biblioentry") (normalize "bibliomixed")))) (allentries (node-list-filter-by-gi allbibcontent (list (normalize "biblioentry") (normalize "bibliomixed")))) (entries (if biblio-filter-used (biblio-filter allentries) allentries))) (make sequence (process-node-list prebibcontent) (if (bibliography-table) (make element gi: "TABLE" attributes: '(("BORDER" "0")) (process-node-list entries)) (process-node-list entries))))) (element (book bibliography) (let ((title (element-title-sosofo (current-node))) (body (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) ($component-separator$) ($component-title$) (bibliography-content)))) (html-document title body))) (element (article bibliography) (let ((title (element-title-sosofo (current-node))) (body (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) ($component-separator$) ($component-title$) (bibliography-content)))) (html-document title body))) (element bibliography ;; A bibliography that's inside something else...or root (if (sgml-root-element? (current-node)) (let ((title (element-title-sosofo (current-node))) (body (make sequence (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) ($component-separator$) ($component-title$) (bibliography-content)))) (html-document title body)) (let* ((sect (ancestor-member (current-node) (append (section-element-list) (component-element-list)))) (hlevel (+ (SECTLEVEL sect) 1)) (helem (string-append "H" (number->string (+ hlevel 1))))) (make sequence (make element gi: helem (make element gi: "A" attributes: (list (list "NAME" (element-id))) (element-title-sosofo (current-node)))) (bibliography-content))))) (element (bibliography title) (empty-sosofo)) (element bibliodiv (let* ((allentries (node-list-filter-by-gi (children (current-node)) (list (normalize "biblioentry") (normalize "bibliomixed")))) (entries (if biblio-filter-used (biblio-filter allentries) allentries))) (if (and biblio-filter-used (node-list-empty? entries)) (empty-sosofo) (make sequence ($section-separator$) ($section-title$) (if (bibliography-table) (make element gi: "TABLE" attributes: '(("BORDER" "0")) (process-node-list entries)) (process-node-list entries)))))) (element (bibliodiv title) (empty-sosofo)) ;; ..................... BIBLIOGRAPHY ENTRIES ......................... (define (biblioentry-inline-sep node rest) ;; Output the character that should separate inline node from rest (cond ((and (equal? (gi node) (normalize "title")) (equal? (gi (node-list-first rest)) (normalize "subtitle"))) (make element gi: "I" (literal ": "))) (else (literal %biblsep%)))) (define (biblioentry-inline-end blocks) ;; Output the character that should occur at the end of inline (literal %biblend%)) (define (biblioentry-block-sep node rest) ;; Output the character that should separate block node from rest (empty-sosofo)) (define (biblioentry-block-end) ;; Output the character that should occur at the end of block (empty-sosofo)) (define (nontable-biblioentry xreflabel leading-abbrev inline-children block-children) (let ((has-leading-abbrev? (not (or (node-list-empty? leading-abbrev) biblio-number)))) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (make element gi: "P" (if (or biblio-number xreflabel has-leading-abbrev?) (make sequence (literal "[") (if biblio-number (literal (number->string (bibentry-number (current-node)))) (empty-sosofo)) (if xreflabel (literal xreflabel) (empty-sosofo)) (if has-leading-abbrev? (with-mode biblioentry-inline-mode (process-node-list leading-abbrev)) (empty-sosofo)) (literal "]") (make entity-ref name: "nbsp")) (empty-sosofo)) (let loop ((nl inline-children)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (with-mode biblioentry-inline-mode (process-node-list (node-list-first nl))) (if (node-list-empty? (node-list-rest nl)) (biblioentry-inline-end block-children) (biblioentry-inline-sep (node-list-first nl) (node-list-rest nl))) (loop (node-list-rest nl)))))) (make element gi: "DIV" attributes: '(("CLASS" "BIBLIOENTRYBLOCK") ("STYLE" "margin-left: 0.5in")) (let loop ((nl block-children)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (with-mode biblioentry-block-mode (process-node-list (node-list-first nl))) (if (node-list-empty? (node-list-rest nl)) (biblioentry-block-end) (biblioentry-block-sep (node-list-first nl) (node-list-rest nl))) (loop (node-list-rest nl))))))))) (define (table-biblioentry xreflabel leading-abbrev inline-children block-children) (let ((has-leading-abbrev? (not (or (node-list-empty? leading-abbrev) biblio-number)))) (make element gi: "TR" (make element gi: "TD" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("WIDTH" "10%")) (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (if (or biblio-number xreflabel has-leading-abbrev?) (make sequence (literal "[") (if biblio-number (literal (number->string (bibentry-number (current-node)))) (empty-sosofo)) (if xreflabel (literal xreflabel) (empty-sosofo)) (if has-leading-abbrev? (with-mode biblioentry-inline-mode (process-node-list leading-abbrev)) (empty-sosofo)) (literal "]")) (make entity-ref name: "nbsp"))) (make element gi: "TD" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("WIDTH" "90%")) (make element gi: "P" (let loop ((nl inline-children)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (with-mode biblioentry-inline-mode (process-node-list (node-list-first nl))) (if (node-list-empty? (node-list-rest nl)) (biblioentry-inline-end block-children) (biblioentry-inline-sep (node-list-first nl) (node-list-rest nl))) (loop (node-list-rest nl)))))) (let loop ((nl block-children)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (with-mode biblioentry-block-mode (process-node-list (node-list-first nl))) (if (node-list-empty? (node-list-rest nl)) (biblioentry-block-end) (biblioentry-block-sep (node-list-first nl) (node-list-rest nl))) (loop (node-list-rest nl))))) (if (node-list-empty? block-children) (empty-sosofo) (make element gi: "P" ;; get the table row spacing right (empty-sosofo))))))) (element biblioentry (let* ((expanded-children (expand-children (children (current-node)) (biblioentry-flatten-elements))) (all-inline-children (if %biblioentry-in-entry-order% (titlepage-gi-list-by-nodelist (biblioentry-inline-elements) expanded-children) (titlepage-gi-list-by-elements (biblioentry-inline-elements) expanded-children))) (block-children (if %biblioentry-in-entry-order% (titlepage-gi-list-by-nodelist (biblioentry-block-elements) expanded-children) (titlepage-gi-list-by-elements (biblioentry-block-elements) expanded-children))) (leading-abbrev (if (equal? (normalize "abbrev") (gi (node-list-first all-inline-children))) (node-list-first all-inline-children) (empty-node-list))) (inline-children (if (node-list-empty? leading-abbrev) all-inline-children (node-list-rest all-inline-children))) (has-leading-abbrev? (not (node-list-empty? leading-abbrev))) (xreflabel (if (or has-leading-abbrev? biblio-number) #f (attribute-string (normalize "xreflabel"))))) (if (bibliography-table) (table-biblioentry xreflabel leading-abbrev inline-children block-children) (nontable-biblioentry xreflabel leading-abbrev inline-children block-children)))) (mode biblioentry-inline-mode (element abbrev (make sequence (process-children))) (element affiliation (let ((inline-children (node-list-filter-by-not-gi (children (current-node)) (list (normalize "address"))))) (let loop ((nl inline-children)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (process-node-list (node-list-first nl)) (if (node-list-empty? (node-list-rest nl)) (empty-sosofo) (literal ", ")) (loop (node-list-rest nl))))))) (element artpagenums (make sequence (process-children))) (element author (make element gi: "SPAN" attributes: '(("CLASS" "AUTHOR")) (literal (author-list-string)))) (element authorgroup (process-children)) (element authorinitials (make sequence (process-children))) (element collab (let* ((nl (children (current-node))) (collabname (node-list-first nl)) (affil (node-list-rest nl))) (make sequence (process-node-list collabname) (if (node-list-empty? affil) (empty-sosofo) (let loop ((nl affil)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (literal ", ") (process-node-list (node-list-first nl)) (loop (node-list-rest nl))))))))) (element (collab collabname) (process-children)) (element confgroup (let ((inline-children (node-list-filter-by-not-gi (children (current-node)) (list (normalize "address"))))) (let loop ((nl inline-children)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (process-node-list (node-list-first nl)) (if (node-list-empty? (node-list-rest nl)) (empty-sosofo) (literal ", ")) (loop (node-list-rest nl))))))) (element contractnum (process-children)) (element contractsponsor (process-children)) (element contrib (process-children)) (element copyright ;; Just print the year(s) (let ((years (select-elements (children (current-node)) (normalize "year")))) (process-node-list years))) (element (copyright year) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (empty-sosofo)))) (element corpauthor (make sequence (process-children))) (element corpname (make sequence (process-children))) (element date (make sequence (process-children))) (element edition (make sequence (process-children))) (element editor (make element gi: "SPAN" attributes: '(("CLASS" "EDITOR")) (if (first-sibling?) (make sequence (literal (gentext-edited-by)) (literal " ")) (empty-sosofo)) (literal (author-list-string)))) (element firstname (make sequence (process-children))) (element honorific (make sequence (process-children))) (element invpartnumber (make sequence (process-children))) (element isbn (make sequence (process-children))) (element issn (make sequence (process-children))) (element issuenum (make sequence (process-children))) (element lineage (make sequence (process-children))) (element orgname (make sequence (process-children))) (element othercredit (make element gi: "SPAN" attributes: '(("CLASS" "OTHERCREDIT")) (literal (author-list-string)))) (element othername (make sequence (process-children))) (element pagenums (make sequence (process-children))) (element productname (make sequence ($charseq$) ; this is actually a problem since "trade" is the default value for ; the class attribute. we can put this back in in DocBook 5.0, when ; class becomes #IMPLIED ; (if (equal? (attribute-string "class") (normalize "trade")) ; (dingbat-sosofo "trademark") ; (empty-sosofo)) )) (element productnumber (make sequence (process-children))) (element pubdate (make sequence (process-children))) (element publisher (let ((pubname (select-elements (children (current-node)) (normalize "publishername"))) (cities (select-elements (descendants (current-node)) (normalize "city")))) (make sequence (process-node-list pubname) (if (node-list-empty? cities) (empty-sosofo) (literal ", ")) (process-node-list cities)))) (element publishername (make sequence (process-children))) (element (publisher address city) (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (empty-sosofo)))) (element pubsnumber (make sequence (process-children))) (element releaseinfo (make sequence (process-children))) (element seriesvolnums (make sequence (process-children))) (element subtitle (make element gi: "I" (process-children))) (element surname (make sequence (process-children))) (element title (make element gi: "I" (process-children))) (element titleabbrev (make sequence (process-children))) (element volumenum (make sequence (process-children))) (element (bibliomixed title) (make element gi: "I" (process-children))) (element (bibliomixed subtitle) (make element gi: "I" (process-children))) (element (biblioset title) (let ((rel (case-fold-up (inherited-attribute-string (normalize "relation"))))) (cond ((equal? rel "ARTICLE") (make sequence (literal (gentext-start-quote)) (process-children) (literal (gentext-end-quote)))) (else (make element gi: "I" (process-children)))))) (element (bibliomset title) (let ((rel (case-fold-up (inherited-attribute-string (normalize "relation"))))) (cond ((equal? rel "ARTICLE") (make sequence (literal (gentext-start-quote)) (process-children) (literal (gentext-end-quote)))) (else (make element gi: "I" (process-children)))))) ) (mode biblioentry-block-mode (element abstract (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element (abstract title) (make element gi: "P" (make element gi: "B" (process-children)))) (element address ($linespecific-display$ %indent-address-lines% %number-address-lines%)) (element authorblurb (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element printhistory (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (process-children))) (element revhistory (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "TABLE" attributes: (list (list "WIDTH" ($table-width$)) (list "BORDER" "0")) (make sequence (make element gi: "TR" (make element gi: "TH" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("COLSPAN" "3")) (make element gi: "B" (literal (gentext-element-name (gi (current-node))))))) (process-children))))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (node-list-filter-by-gi (descendants (current-node)) (list (normalize "revremark") (normalize "revdescription"))))) (make sequence (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revnumber)) (make sequence (literal (gentext-element-name-space (gi (current-node)))) (process-node-list revnumber)) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revdate)) (process-node-list revdate) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revauthor)) (make sequence (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT") (list "COLSPAN" "3")) (if (not (node-list-empty? revremark)) (process-node-list revremark) (empty-sosofo))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) (element (revision revdescription) (process-children)) (element seriesinfo ;; This is a nearly biblioentry recursively... (let* ((expanded-children (expand-children (children (current-node)) (biblioentry-flatten-elements))) (all-inline-children (if %biblioentry-in-entry-order% (titlepage-gi-list-by-nodelist (biblioentry-inline-elements) expanded-children) (titlepage-gi-list-by-elements (biblioentry-inline-elements) expanded-children))) (block-children (if %biblioentry-in-entry-order% (titlepage-gi-list-by-nodelist (biblioentry-block-elements) expanded-children) (titlepage-gi-list-by-elements (biblioentry-block-elements) expanded-children))) (inline-children all-inline-children)) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "P" (let loop ((nl inline-children)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (with-mode biblioentry-inline-mode (process-node-list (node-list-first nl))) (if (node-list-empty? (node-list-rest nl)) (biblioentry-inline-end block-children) (biblioentry-inline-sep (node-list-first nl) (node-list-rest nl))) (loop (node-list-rest nl)))))) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (let loop ((nl block-children)) (if (node-list-empty? nl) (empty-sosofo) (make sequence (with-mode biblioentry-block-mode (process-node-list (node-list-first nl))) (if (node-list-empty? (node-list-rest nl)) (biblioentry-block-end) (biblioentry-block-sep (node-list-first nl) (node-list-rest nl))) (loop (node-list-rest nl))))))))) ) (define (nontable-bibliomixed xreflabel leading-abbrev inline-children) (let* ((has-leading-abbrev? (not (node-list-empty? leading-abbrev)))) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (make element gi: "P" attributes: (list (list "CLASS" (gi))) (if (or biblio-number xreflabel has-leading-abbrev?) (make sequence (literal "[") (if biblio-number (literal (number->string (bibentry-number (current-node)))) (empty-sosofo)) (if xreflabel (literal xreflabel) (empty-sosofo)) (if has-leading-abbrev? (with-mode biblioentry-inline-mode (process-node-list leading-abbrev)) (empty-sosofo)) (literal "]") (make entity-ref name: "nbsp")) (empty-sosofo)) (with-mode biblioentry-inline-mode (process-node-list inline-children)))))) (define (table-bibliomixed xreflabel leading-abbrev inline-children) (let* ((has-leading-abbrev? (not (node-list-empty? leading-abbrev)))) (make element gi: "TR" (make element gi: "TD" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("WIDTH" "10%")) (make element gi: "A" attributes: (list (list "NAME" (element-id))) (empty-sosofo)) (if (or biblio-number xreflabel has-leading-abbrev?) (make sequence (literal "[") (if biblio-number (literal (number->string (bibentry-number (current-node)))) (empty-sosofo)) (if xreflabel (literal xreflabel) (empty-sosofo)) (if has-leading-abbrev? (with-mode biblioentry-inline-mode (process-node-list leading-abbrev)) (empty-sosofo)) (literal "]")) (make entity-ref name: "nbsp"))) (make element gi: "TD" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("WIDTH" "90%")) (with-mode biblioentry-inline-mode (process-node-list inline-children)))))) (element bibliomixed (let* ((all-inline-children (children (current-node))) (leading-abbrev (if (equal? (normalize "abbrev") (gi (node-list-first all-inline-children))) (node-list-first all-inline-children) (empty-node-list))) (inline-children (if (node-list-empty? leading-abbrev) all-inline-children (node-list-rest all-inline-children))) (has-leading-abbrev? (not (node-list-empty? leading-abbrev))) (xreflabel (if (or has-leading-abbrev? biblio-number) #f (attribute-string (normalize "xreflabel"))))) (if (bibliography-table) (table-bibliomixed xreflabel leading-abbrev inline-children) (nontable-bibliomixed xreflabel leading-abbrev inline-children)))) ;; ....................... BIBLIOGRAPHY ELEMENTS ....................... ;; These are element construction rules for bibliography elements that ;; may occur outside of a BIBLIOENTRY or BIBLIOMIXED. (element bibliomisc (process-children)) (element bibliomset (process-children)) (element biblioset (process-children)) (element bookbiblio (process-children)) (element street ($charseq$)) (element pob ($charseq$)) (element postcode ($charseq$)) (element city ($charseq$)) (element state ($charseq$)) (element country ($charseq$)) (element phone ($charseq$)) (element fax ($charseq$)) (element otheraddr ($charseq$)) (element affiliation ($charseq$)) (element shortaffil ($charseq$)) (element jobtitle ($charseq$)) (element orgdiv ($charseq$)) (element artpagenums ($charseq$)) (element author (make sequence (literal (author-list-string)))) (element authorgroup (process-children)) (element collab (process-children)) (element collabname ($charseq$)) (element authorinitials ($charseq$)) (element confgroup (process-children)) (element confdates ($charseq$)) (element conftitle ($charseq$)) (element confnum ($charseq$)) (element confsponsor ($charseq$)) (element contractnum ($charseq$)) (element contractsponsor ($charseq$)) (element copyright (make sequence (literal (gentext-element-name (gi (current-node)))) (make entity-ref name: "nbsp") (dingbat-sosofo "copyright") (make entity-ref name: "nbsp") (process-children))) (element year (make sequence (process-children) (if (not (last-sibling? (current-node))) (literal ", ") (literal " ")))) (element holder ($charseq$)) (element corpauthor (make sequence (literal (author-list-string)))) (element corpname ($charseq$)) (element date ($charseq$)) (element edition ($charseq$)) (element editor ($charseq$)) (element isbn ($charseq$)) (element issn ($charseq$)) (element invpartnumber ($charseq$)) (element issuenum ($charseq$)) (element legalnotice ($semiformal-object$)) (element (legalnotice title) (empty-sosofo)) (element modespec (empty-sosofo)) (element orgname ($charseq$)) (element othercredit (make sequence (literal (author-list-string)))) (element pagenums ($charseq$)) (element contrib ($charseq$)) (element firstname ($charseq$)) (element honorific ($charseq$)) (element lineage ($charseq$)) (element othername ($charseq$)) (element surname ($charseq$)) (element printhistory (empty-sosofo)) (element productname (make sequence ($charseq$) ; this is actually a problem since "trade" is the default value for ; the class attribute. we can put this back in in DocBook 5.0, when ; class becomes #IMPLIED ; (if (equal? (attribute-string "class") (normalize "trade")) ; (dingbat-sosofo "trademark") ; (empty-sosofo)) )) (element productnumber ($charseq$)) (element pubdate ($charseq$)) (element publisher (process-children)) (element publishername ($charseq$)) (element pubsnumber ($charseq$)) (element releaseinfo (empty-sosofo)) (element revision ($charseq$)) (element revnumber ($charseq$)) (element revremark ($charseq$)) (element revdescription ($block-container$)) (element seriesvolnums ($charseq$)) (element volumenum ($charseq$)) (element (bookbiblio revhistory) ($book-revhistory$)) ;; The (element (bookinfo revhistory)) construction rule is in dbinfo.dsl ;; It calls $book-revhistory$... (define ($book-revhistory$) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (make element gi: "TABLE" attributes: (list (list "WIDTH" ($table-width$)) (list "BORDER" "0")) (make sequence (make element gi: "TR" (make element gi: "TH" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP") ("COLSPAN" "3")) (make element gi: "B" (literal (gentext-element-name (gi (current-node))))))) (process-children))))) (element (revhistory revision) (let ((revnumber (select-elements (descendants (current-node)) (normalize "revnumber"))) (revdate (select-elements (descendants (current-node)) (normalize "date"))) (revauthor (select-elements (descendants (current-node)) (normalize "authorinitials"))) (revremark (node-list-filter-by-gi (descendants (current-node)) (list (normalize "revremark") (normalize "revdescription"))))) (make sequence (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revnumber)) (make sequence (literal (gentext-element-name-space (gi (current-node)))) (process-node-list revnumber)) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revdate)) (process-node-list revdate) (empty-sosofo))) (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (if (not (node-list-empty? revauthor)) (make sequence (literal (gentext-revised-by)) (process-node-list revauthor)) (empty-sosofo)))) (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT") (list "COLSPAN" "3")) (if (not (node-list-empty? revremark)) (process-node-list revremark) (empty-sosofo))))))) (element (revision revnumber) (process-children-trim)) (element (revision date) (process-children-trim)) (element (revision authorinitials) (process-children-trim)) (element (revision revremark) (process-children-trim)) docbook-dsssl-1.79/html/dbautoc.dsl0000644000175000001440000000756007611215255020005 0ustar msmithusers00000000000000;; $Id: dbautoc.dsl,v 1.3 2003/01/15 08:24:13 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ========================== TABLE OF CONTENTS ========================= ;; Returns the depth of auto TOC that should be made at the nd-level (define (toc-depth nd) (if (string=? (gi nd) (normalize "book")) 3 1)) (define (toc-entry tocentry) (make element gi: "DT" (make sequence (if (equal? (element-label tocentry) "") (empty-sosofo) (make sequence (literal (element-label tocentry)) (literal (gentext-label-title-sep (gi tocentry))))) ;; If the tocentry isn't in its own ;; chunk, don't make a link... (if (and #f (not (chunk? tocentry))) (element-title-sosofo tocentry) (make element gi: "A" attributes: (list (list "HREF" (href-to tocentry))) (element-title-sosofo tocentry))) ;; Maybe annotate... (if (and %annotate-toc% (equal? (gi tocentry) (normalize "refentry"))) (make sequence (dingbat-sosofo "nbsp"); (dingbat-sosofo "em-dash"); (dingbat-sosofo "nbsp"); (toc-annotation tocentry)) (empty-sosofo))))) (define (toc-annotation tocentry) ;; only handles refentry at the moment (let* ((refnamediv (select-elements (children tocentry) (normalize "refnamediv"))) (refpurpose (select-elements (children refnamediv) (normalize "refpurpose")))) (process-node-list (children refpurpose)))) (define (build-toc nd depth #!optional (chapter-toc? #f) (first? #t)) (let ((toclist (toc-list-filter (node-list-filter-by-gi (children nd) (append (division-element-list) (component-element-list) (section-element-list))))) (wrappergi (if first? "DIV" "DD")) (wrapperattr (if first? '(("CLASS" "TOC")) '()))) (if (or (<= depth 0) (node-list-empty? toclist) (and chapter-toc? (not %force-chapter-toc%) (<= (node-list-length toclist) 1))) (empty-sosofo) (make element gi: wrappergi attributes: wrapperattr (make element gi: "DL" (if first? (make element gi: "DT" (make element gi: "B" (literal (gentext-element-name (normalize "toc"))))) (empty-sosofo)) (let loop ((nl toclist)) (if (node-list-empty? nl) (empty-sosofo) (sosofo-append (toc-entry (node-list-first nl)) (build-toc (node-list-first nl) (- depth 1) chapter-toc? #f) (loop (node-list-rest nl)))))))))) ;; Print the LOT entry (define (lot-entry tocentry) (make element gi: "DT" (make sequence (if (equal? (element-label tocentry) "") (empty-sosofo) (make sequence (literal (element-label tocentry)) (literal (gentext-label-title-sep (gi tocentry))))) ;; If the tocentry isn't in its own ;; chunk, don't make a link... (if (and #f (not (chunk? tocentry))) (element-title-sosofo tocentry) (make element gi: "A" attributes: (list (list "HREF" (href-to tocentry))) (element-title-sosofo tocentry)))))) ;; Build a LOT starting at nd for all the lotgi's it contains. ;; The optional arguments are used on recursive calls to build-toc ;; and shouldn't be set by the initial caller... ;; (define (build-lot nd lotgi) (let* ((lotlist (select-elements (descendants nd) (normalize lotgi)))) (if (node-list-empty? lotlist) (empty-sosofo) (make element gi: "DIV" attributes: '(("CLASS" "LOT")) (make element gi: "DL" attributes: '(("CLASS" "LOT")) (make element gi: "DT" (make element gi: "B" (literal ($lot-title$ (gi (node-list-first lotlist)))))) (let loop ((lote lotlist)) (if (node-list-empty? lote) (empty-sosofo) (make sequence (lot-entry (node-list-first lote)) (loop (node-list-rest lote)))))))))) docbook-dsssl-1.79/html/dbadmon.dsl0000644000175000001440000001236007646046520017767 0ustar msmithusers00000000000000;; $Id: dbadmon.dsl,v 1.5 2003/04/12 17:30:56 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ============================ ADMONITIONS ============================= (define ($graphical-admonition$) (let* ((adm (current-node)) (id (attribute-string (normalize "id"))) (title (select-elements (children adm) (normalize "title"))) (title? (not (node-list-empty? title))) (adm-title (if title? (with-mode title-sosofo-mode (process-node-list (node-list-first title))) (literal (gentext-element-name adm)))) (gr-cell (make element gi: "TD" attributes: (list (list "WIDTH" ($admon-graphic-width$)) (list "ALIGN" "CENTER") (list "VALIGN" "TOP")) (make empty-element gi: "IMG" attributes: (list (list "SRC" (root-rel-path ($admon-graphic$))) (list "HSPACE" "5") (list "ALT" (gentext-element-name adm)))))) (ttl-cell (make element gi: "TH" attributes: '(("ALIGN" "LEFT") ("VALIGN" "MIDDLE")) (make element gi: "B" adm-title))) (body-cell (make element gi: "TD" attributes: '(("ALIGN" "LEFT") ("VALIGN" "TOP")) (process-children)))) (make element gi: "DIV" attributes: (list (list "CLASS" (gi adm))) (if id (make element gi: "A" attributes: (list (list "NAME" id)) (empty-sosofo)) (empty-sosofo)) (if %spacing-paras% (make element gi: "P" (empty-sosofo)) (empty-sosofo)) (make element gi: "TABLE" attributes: (list (list "CLASS" (gi)) (list "WIDTH" ($table-width$)) (list "BORDER" "0")) (if title? (make sequence (make element gi: "TR" gr-cell ttl-cell) (make element gi: "TR" (make element gi: "TD" (make entity-ref name: "nbsp")) body-cell)) (make sequence (make element gi: "TR" gr-cell body-cell))))))) (define ($admonition$) (let ((id (attribute-string (normalize "id")))) (if %admon-graphics% ($graphical-admonition$) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) ;; The DIV isn't strictly necessary, of course, but it ;; is consistent with the graphical-admonition case. (make element gi: "BLOCKQUOTE" attributes: (list (list "CLASS" (gi))) (if id (make element gi: "A" attributes: (list (list "NAME" id)) (empty-sosofo)) (empty-sosofo)) (process-children)))))) (define ($admonpara$) (let* ((title (select-elements (children (parent (current-node))) (normalize "title"))) (has-title (not (node-list-empty? title))) (adm-title (if has-title (make sequence (with-mode title-sosofo-mode (process-node-list (node-list-first title))) (literal (gentext-label-title-sep (gi (parent (current-node)))))) (literal (gentext-element-name (gi (parent (current-node)))) (gentext-label-title-sep (gi (parent (current-node)))))))) (make element gi: "P" (if (and (not %admon-graphics%) (= (child-number) 1)) (make element gi: "B" adm-title) (empty-sosofo)) (process-children)))) (element important ($admonition$)) (element (important title) (empty-sosofo)) (element (important para) ($admonpara$)) (element (important simpara) ($admonpara$)) (element note ($admonition$)) (element (note title) (empty-sosofo)) (element (note para) ($admonpara$)) (element (note simpara) ($admonpara$)) (element tip ($admonition$)) (element (tip title) (empty-sosofo)) (element (tip para) ($admonpara$)) (element (tip simpara) ($admonpara$)) ;; perils are given special treatment by generating a centered title ;; and throwing a box around them ;; (define ($peril$) (let* ((title (select-elements (children (current-node)) (normalize "title"))) (has-title (not (node-list-empty? title))) (adm-title (if has-title (make sequence (with-mode title-sosofo-mode (process-node-list (node-list-first title)))) (literal (gentext-element-name (gi (current-node)))))) (id (attribute-string (normalize "id")))) (if %admon-graphics% ($graphical-admonition$) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) ;; The DIV isn't strictly necessary, of course, but it ;; is consistent with the graphical-admonition case. (if %spacing-paras% (make element gi: "P" (empty-sosofo)) (empty-sosofo)) (make element gi: "TABLE" attributes: (list (list "CLASS" (gi)) (list "BORDER" "1") (list "WIDTH" ($table-width$))) (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "CENTER")) (make element gi: "B" (if id (make element gi: "A" attributes: (list (list "NAME" id)) (empty-sosofo)) (empty-sosofo)) adm-title))) (make element gi: "TR" (make element gi: "TD" attributes: (list (list "ALIGN" "LEFT")) (process-children)))))))) (element caution ($peril$)) (element warning ($peril$)) (element (caution title) (empty-sosofo)) (element (warning title) (empty-sosofo)) docbook-dsssl-1.79/html/catalog0000644000175000001440000000002707262170713017205 0ustar msmithusers00000000000000CATALOG "../catalog" docbook-dsssl-1.79/html/XREF0000644000175000001440000000023710142564530016335 0ustar msmithusers00000000000000Symbol Defined In Used In ================== ============================= ============================= docbook-dsssl-1.79/frames/0000755000175000001440000000000010142564561016161 5ustar msmithusers00000000000000docbook-dsssl-1.79/frames/navbar.htm0000644000175000001440000000150107262170713020142 0ustar msmithusers00000000000000 Navigation

Home Up Prev Next
docbook-dsssl-1.79/frames/frames.htm0000644000175000001440000000073407262170713020155 0ustar msmithusers00000000000000 Frames Example <body> Your browser does not support frames. </body> docbook-dsssl-1.79/frames/frames.dsl0000644000175000001440000000726607262170713020156 0ustar msmithusers00000000000000 ]> (define %stylesheet-version% "Modular DocBook HTML Frames Stylesheet version 1.0") (define %stylesheet% "docbook.css"); (root (make sequence (process-children) (with-mode manifest (process-children)) (make-dhtml-toc))) (define (make-dhtml-toc) (make entity system-id: "toc.htm" (make element gi: "HTML" (make element gi: "HEAD" (make element gi: "TITLE" (literal "DocBook TOC")) ($standard-html-header$) (make element gi: "SCRIPT" attributes: '(("SRC" "docbook.js")) (empty-sosofo))) (make element gi: "BODY" (make element gi: "DIV" (with-mode dhtmltoc (process-children))))))) (define (dhtml-toc-entry nd gilist) (let* ((subdivnodes (node-list-filter-by-gi (children nd) gilist)) (subdivs (and (> (node-list-length subdivnodes) 0) (not (node-list=? nd (sgml-root-element))))) (imgsrc (if subdivs "toc-plus.gif" "toc-blank.gif")) (imgatt (list (list "SRC" imgsrc) (list "BORDER" "0") (list "ID" (string-append (generate-anchor) "IMG")))) (span (if subdivs (make element gi: "SPAN" attributes: (list (list "CLASS" "TOGGLE") (list "onClick" (string-append "toggleDiv('" (generate-anchor) "')"))) (make empty-element gi: "IMG" attributes: imgatt)) (make element gi: "SPAN" attributes: '(("CLASS" "TOGGLE")) (make empty-element gi: "IMG" attributes: imgatt))))) (if (node-list=? nd (sgml-root-element)) (make sequence (make element gi: "NOBR" (make element gi: "SPAN" attributes: (list ;(list "HREF" (href-to (current-node))) (list "onClick" (string-append "load_body(\"" (href-to (current-node)) "\")")) (list "CLASS" "TOCTITLE")) (element-title-sosofo (current-node)))) (make element gi: "DIV" (process-children))) (make sequence (make element gi: "NOBR" span (make element gi: "SPAN" attributes: (list ;(list "HREF" (href-to (current-node))) (list "onClick" (string-append "load_body(\"" (href-to (current-node)) "\")")) (list "CLASS" "TOCTITLE")) (element-title-sosofo (current-node)))) (make element gi: "DIV" attributes: (list (list "CLASS" "NAVTOC") (list "ID" (generate-anchor))) (process-children)))))) (mode dhtmltoc (default (empty-sosofo)) (element set (dhtml-toc-entry (current-node) (list (normalize "book")))) (element book (dhtml-toc-entry (current-node) (list (normalize "part") (normalize "preface") (normalize "chapter") (normalize "appendix") (normalize "reference")))) (element preface (dhtml-toc-entry (current-node) (list (normalize "sect1")))) (element part (dhtml-toc-entry (current-node) (list (normalize "preface") (normalize "chapter") (normalize "appendix") (normalize "reference")))) (element chapter (dhtml-toc-entry (current-node) (list (normalize "sect1")))) (element appendix (dhtml-toc-entry (current-node) (list (normalize "sect1")))) (element sect1 (dhtml-toc-entry (current-node) '())) (element reference (dhtml-toc-entry (current-node) (list (normalize "refentry")))) (element refentry (dhtml-toc-entry (current-node) '())) ) docbook-dsssl-1.79/frames/docbook.js0000644000175000001440000000412207262170713020137 0ustar msmithusers00000000000000function toggleDiv(id) { // Find element with ID "id" and toggle its display property. // By convention, the ID of the corresponding +/- image is "${id}IMG". var div = eval("document.all." + id); var img = eval("document.all." + id + "IMG"); var display = div.style.display; if (display != "block") { div.style.display = "block"; img.src = "toc-minus.gif"; } else { div.style.display = "none"; img.src = "toc-plus.gif"; } } function link_href(rel) { // Find the LINK element (in the body document) with the specified REL // and return its HREF. Return "" if no such LINK can be found. var body = parent.frames[1].document; var links = body.all.tags("LINK"); for (i=0; i * README, docbook.css, docbook.js, frames.dsl, frames.htm, navbar.htm: New file. docbook-dsssl-1.79/frames/README0000644000175000001440000000556607262170713017056 0ustar msmithusers00000000000000README for the DocBook Stylesheets Frame Support Introduction ------------ Support for frames is a common request. Supporting frames with a stylesheet that builds a frames-only version of a document has never been very appealing to me, so I haven't bothered. (The main problem is that this approach doesn't help solve the difficult problem of the navigation frame.) Recent changes to the stylesheets have made another approach practical. The files in this directory provide frames support using a set of techniques that require almost no modification to the HTML. The single required change is a link to a CSS stylesheet. One benefit of this technique is that I can imaging framed and non-framed versions of a document using exactly the same files (with symbolic links, or something). The only difference between the two versions would be the CSS stylesheet applied. The downside to this technique is that it requires a fairly modern browser. In order for this to work, your browser must support: - Frames - Dynamic HTML - CSS At present, only IE 4.01SP1 (or later, presumably) is supported. In particular, Netscape is not supported. ************************************************************* * I tried for several days to make this implementation work * * in Netscape. As near as I can tell, Netscape through * * version 4.5 simply does not have enough power in its * * object model to make this practical. If you can make it * * work, I'd be delighted to include support for Netscape, * * but I'm not going to spend anymore time on it in the near * * future. * ************************************************************* I'm really disappointed that I can't get this working under some browser other than IE. Installation ------------ 1. Create a directory to hold your framed document 2. Copy docbook.css, docbook.js, *.htm, and the ../images/toc-*.gif images into that directory. 3. Process your document with the frames.dsl stylesheet (or an extension thereof). 4. Fire up your browser and point it at frames.htm. If your document isn't a "", you'll have to edit frames.htm to make the body frame load correctly the first time. Warranty -------- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL NORMAN WALSH OR ANY OTHER CONTRIBUTOR BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. Contacting the Author --------------------- These stylesheets are maintained by Norman Walsh, . The best way to reach norm is by email. You will find additional contact information at http://nwalsh.com/~ndw/ docbook-dsssl-1.79/frames/docbook.css0000644000175000001440000000042107262170713020311 0ustar msmithusers00000000000000.NAVHEADER { display: none } .NAVFOOTER { display: none } .TOC { display: none } .NAVTOC { margin-left: 15; display: none } .NAVBTN { font-size: 10pt } .TOCTITLE { font-size: 10pt; color: blue; text-decoration: underline; } docbook-dsssl-1.79/dtds/0000755000175000001440000000000010126426101015627 5ustar msmithusers00000000000000docbook-dsssl-1.79/dtds/olink/0000755000175000001440000000000010142564561016756 5ustar msmithusers00000000000000docbook-dsssl-1.79/dtds/olink/olinksum.dtd0000644000175000001440000000164107262170713021317 0ustar msmithusers00000000000000 docbook-dsssl-1.79/dtds/olink/ChangeLog0000644000175000001440000000012510142575332020524 0ustar msmithusers000000000000002001-04-02 Norman Walsh * olinksum.dtd: New file. docbook-dsssl-1.79/dtds/imagelib/0000755000175000001440000000000010142564561017413 5ustar msmithusers00000000000000docbook-dsssl-1.79/dtds/imagelib/imagelib.dtd0000644000175000001440000000342507262170713021666 0ustar msmithusers00000000000000 docbook-dsssl-1.79/dtds/imagelib/ChangeLog0000644000175000001440000000012510142575332021161 0ustar msmithusers000000000000002001-04-02 Norman Walsh * imagelib.dtd: New file. docbook-dsssl-1.79/dtds/html/0000755000175000001440000000000010142564561016606 5ustar msmithusers00000000000000docbook-dsssl-1.79/dtds/html/test.htm0000644000175000001440000000022407262170713020276 0ustar msmithusers00000000000000 Title

Foo!

Para

  1. Bar!

docbook-dsssl-1.79/dtds/html/dbhtml.dtd0000644000175000001440000004573607262170713020575 0ustar msmithusers00000000000000 %ISOlat1; docbook-dsssl-1.79/dtds/html/dbhtml.dcl0000644000175000001440000000423007262170713020544 0ustar msmithusers00000000000000 docbook-dsssl-1.79/dtds/html/catalog0000644000175000001440000000024107262170713020141 0ustar msmithusers00000000000000PUBLIC "-//Norman Walsh//DTD DocBook HTML 1.0//EN" dbhtml.dtd PUBLIC "ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML" ISOlat1.gml SGMLDECL dbhtml.dcl docbook-dsssl-1.79/dtds/html/ISOlat1.gml0000644000175000001440000001045107262170713020525 0ustar msmithusers00000000000000 docbook-dsssl-1.79/dtds/html/ChangeLog0000644000175000001440000000020110142575332020347 0ustar msmithusers000000000000002001-04-02 Norman Walsh * ISOlat1.gml, catalog, dbhtml.dcl, dbhtml.dtd, test.htm: New file. docbook-dsssl-1.79/dtds/decls/0000755000175000001440000000000010142564561016734 5ustar msmithusers00000000000000docbook-dsssl-1.79/dtds/decls/xml.dcl0000644000175000001440000001522107262170713020222 0ustar msmithusers00000000000000" PIC "?>" SHORTREF NONE NAMES SGMLREF QUANTITY NONE ENTITIES "amp" 38 "lt" 60 "gt" 62 "quot" 34 "apos" 39 FEATURES MINIMIZE DATATAG NO OMITTAG NO RANK NO SHORTTAG STARTTAG EMPTY NO UNCLOSED NO NETENABL IMMEDNET ENDTAG EMPTY NO UNCLOSED NO ATTRIB DEFAULT YES OMITNAME NO VALUE NO EMPTYNRM YES IMPLYDEF ATTLIST NO DOCTYPE NO ELEMENT NO ENTITY NO NOTATION NO LINK SIMPLE NO IMPLICIT NO EXPLICIT NO OTHER CONCUR NO SUBDOC NO FORMAL NO URN NO KEEPRSRE YES VALIDITY TYPE ENTITIES REF ANY INTEGRAL YES APPINFO NONE SEEALSO "ISO 8879:1986//NOTATION Extensible Markup Language (XML) 1.0//EN" > docbook-dsssl-1.79/dtds/decls/docbook.dcl0000644000175000001440000000472307262170713021047 0ustar msmithusers00000000000000 docbook-dsssl-1.79/dtds/decls/ChangeLog0000644000175000001440000000013510142575332020503 0ustar msmithusers000000000000002001-04-02 Norman Walsh * docbook.dcl, xml.dcl: New file. docbook-dsssl-1.79/dtds/dbdsssl/0000755000175000001440000000000010142564561017300 5ustar msmithusers00000000000000docbook-dsssl-1.79/dtds/dbdsssl/dbdsssl.dtd0000644000175000001440000001075007262170713021437 0ustar msmithusers00000000000000 %docbook; docbook-dsssl-1.79/dtds/dbdsssl/ChangeLog0000644000175000001440000000012410142575332021045 0ustar msmithusers000000000000002001-04-02 Norman Walsh * dbdsssl.dtd: New file. docbook-dsssl-1.79/docsrc/0000755000175000001440000000000010142564561016161 5ustar msmithusers00000000000000docbook-dsssl-1.79/doc/0000755000175000001440000000000010142565273015452 5ustar msmithusers00000000000000docbook-dsssl-1.79/contrib/0000755000175000001440000000000010126426100016330 5ustar msmithusers00000000000000docbook-dsssl-1.79/contrib/subdoc/0000755000175000001440000000000010142564561017623 5ustar msmithusers00000000000000docbook-dsssl-1.79/contrib/subdoc/subdocbc.mod0000644000175000001440000000165507262202642022115 0ustar msmithusers00000000000000 docbook-dsssl-1.79/contrib/subdoc/subdoc2.sgm0000644000175000001440000000025007262202642021667 0ustar msmithusers00000000000000
Another SubDoc Section This was also included as a subdoc.
docbook-dsssl-1.79/contrib/subdoc/subdoc1.sgm0000644000175000001440000000023507262202642021671 0ustar msmithusers00000000000000
A SubDoc Section This was included as a subdoc.
docbook-dsssl-1.79/contrib/subdoc/subdoc.dtd0000644000175000001440000000114207262202642021573 0ustar msmithusers00000000000000 %docbook; docbook-dsssl-1.79/contrib/subdoc/subdoc.dsl0000644000175000001440000000213307262202642021603 0ustar msmithusers00000000000000 ]> (element subdocsection (let* ((subdoc (attribute-string (normalize "subdoc"))) (targfile (entity-generated-system-id subdoc)) (targdoc (sgml-parse targfile)) (targroot (node-property 'document-element targdoc))) (process-node-list targroot))) docbook-dsssl-1.79/contrib/subdoc/book.sgm0000644000175000001440000000050207262202642021260 0ustar msmithusers00000000000000 ]> Book Title Chapter Title This is a test. docbook-dsssl-1.79/contrib/subdoc/ChangeLog0000644000175000001440000000022310142575332021370 0ustar msmithusers000000000000002001-04-02 Norman Walsh * book.sgm, subdoc.dsl, subdoc.dtd, subdoc1.sgm, subdoc2.sgm, subdocbc.mod: New file. docbook-dsssl-1.79/contrib/renumberinpart/0000755000175000001440000000000010142564561021401 5ustar msmithusers00000000000000docbook-dsssl-1.79/contrib/renumberinpart/test.sgm0000644000175000001440000000075207262202642023072 0ustar msmithusers00000000000000 test book test part I first chapter in part I para second chapter in part I para test part II first chapter in part II para second chapter in part II para docbook-dsssl-1.79/contrib/renumberinpart/renumberinpart.dsl0000644000175000001440000000161007262202642025136 0ustar msmithusers00000000000000 ]]> ]]> ]> (define (chapter-number-restart-list cmp) (list (normalize "book") (normalize "part"))) (define (appendix-number-restart-list cmp) (list (normalize "book") (normalize "part") (normalize "article"))) docbook-dsssl-1.79/contrib/renumberinpart/ChangeLog0000644000175000001440000000014510142575332023151 0ustar msmithusers000000000000002001-04-02 Norman Walsh * renumberinpart.dsl, test.sgm: New file. docbook-dsssl-1.79/contrib/print/0000755000175000001440000000000010142564561017500 5ustar msmithusers00000000000000docbook-dsssl-1.79/contrib/print/short-biblioentry.dsl0000644000175000001440000000136007262202642023661 0ustar msmithusers00000000000000 ]> (define (biblioentry-inline-elements) (list (normalize "abbrev") (normalize "title") (normalize "subtitle") (normalize "author") (normalize "authorgroup") (normalize "copyright") (normalize "date") (normalize "edition") (normalize "pagenums") (normalize "pubdate") (normalize "publisher"))) (define (biblioentry-block-elements) '()) docbook-dsssl-1.79/contrib/print/ChangeLog0000644000175000001440000000013610142575332021250 0ustar msmithusers000000000000002001-04-02 Norman Walsh * short-biblioentry.dsl: New file. docbook-dsssl-1.79/contrib/imagemap/0000755000175000001440000000000010142564561020124 5ustar msmithusers00000000000000docbook-dsssl-1.79/contrib/imagemap/testimg.jpg0000644000175000001440000001504207262202642022302 0ustar msmithusers00000000000000ÿØÿàJFIFHHÿÛC  !"$"$ÿÛCÿÀd,"ÿÄÿÄ@ !1"A2Q‘#8BRaq$u²³´357Cbtvw„¡ÿÄÿÄÿÚ ?øÊ”¥”¥”¥”¯wáËb3^ŠûLHäYum—4tx“Ñ×ßT¥{ˆrÌêžÿ» ””Ž<”­#ë(êÍã|zý‚zmòuã0‡&Ëû5¾ÙbÛ²/|[Pý·ßÎ’OÀÝCzÁÿ®|qÿ·Ö¿÷ž ŽkÀ7ø¹oð®K“ãXÝÙ÷ÃÖ'È^î€B›(I$”©|B•´§e'Y¶k^0ìªáŒß¢˜×+{¾Óíëz(ºH!@üA5²úÁþ°vïöe·ýÁQ¶¿¬î]ÿÒÿ’bƒ¥)@¯y¬¶ÃÉCRÙ”’Ók+h,$ ( óJO$’RzÖÒx•'J>¶ßóg,¸¥éüc#f%Ñ汚z„ ( Ù^mòÒÇÖÚ½4µ ‚9©µ-I!½kžÍŽ-íÆ8À—%è¬;Í?[¬¥¥8ocI}£²4yu½qWÒofÖèw[­ºÑ‘Û–Íf.Á·®CJ‚–d[\M¼4ÂöÓ­)i’”¥)RAw‰ßH_‡‰ów¢Z1×&ܬ·+òW'2UÛ"r4‚¥ËpÈÜ4Ékñü£{jÚÙ§ Ë[X@ióIɲJc‘­ÆLIÓ¤ÂiŸp-„0µ’5®$IF´IØVÀÐÝë½Ú åq­OãØÍ–å4ØÌ^¢Ï}j\ñ ö£9ï.Bã£ýeL¸@BP¤¥aH@&®žÉn ÎY™Ùn¹+r.2‘sfK±e=nŒ‹{KI)+†Ê$–‚ ˆö–ÃçúVæÍæKSñ¤f™T+¦\×çžÅÉËÛ7G÷`6‹fæ¡Å¡®«NÜO²¢]<¹ž/ÅdÓ _ì9–oe¼_.ÖEE¶ªNAZ“Æ|ø;?ššB #¾¤6·¾•!zJKÉ÷C¥nyv_ü;bÈF%—B3Ïð”xóíñuhbÌûo¸Â”ëz_Ö@BÀYmz椞ۮSŠÊÎ.ȾN²ÈÅìÞI·þW ¶š\HöpìßÄþ;`¤²´¢9sÛI+‚—ÉD?×mš×>ñ1È–æ=÷›Œü¥'šS¦˜eo:­¨ô¶ÚÕ¯“­ ’} rhíåX0È®Ï>ë9•®Z&Þ| r$vÖ¿‚˜h&3G“Jp¸ây–Û!*QEò ÿÁX®’rßÁ_äÚ’ò&&*˜eËtqoci)Lx©”¢[C-()C€Jˆ šÏ=p±È½®|(P#\¢[ä;#Ü>Ú¤¥õ%Â…„¦;…Z_§IVú…­gÀwkU·òïÌnp¡ðò7-_ˆ}-ña¯Ç{®žDiæŽJøO$ìŠí³elÿ b˜ÃרH³œ"ö. ¥Lçur*û­ipÇ[H^ø-iS`){Pe™-’U‚âÔŽ2ã®Á‰5%¢JxIŽÜ„°> ‡RÛ`è‘ÙŒ­ƒÈw‹ÚÈ›F=1˜Tãö…Üä¹5 jî†m±w ÐöÂÚ*ö PyÄ«j÷a£Ð)JP+®Õs¸Úe~.×p—Gv3Êm|OÈÚH:?µrRƒ®Ór¸Úg"uª|¨ÐCñžSN$£¥$‚6:¥²çqµ¼ãÖË„¸.¸ÚšqqÞSjRò’RFÒuØø®JPuÛîWrd¦ß>TDÊeLH <¤šWêBô~¤Ÿ¸=ZnWLäNµO•Z~3ÊiÄ‚4t¤FÇUÉJ ‡²œë˧²;×8è-³5s\/¶ƒËiJÉäÔ®þÑýÍqͺ\æÄeÆd˜Ñ9þ—^RÐÏ3µpI:NÈëæ¸éA9+1Ë¥[Ul•”ß‚¤Õ˃ªh |$¤«ZèuªŽ+ˆ´›HŸ([”÷¾b•ì—u®|7Ç–ºÞ·ªä¥Z.wínZ‘p–›{®\ŠPekAEÑV‡Î·I×;Œöc3:á.SQö£!ç”´²î ô§üUÉJ ȹŽ]Ú›d\¦øÄ ¶˜ÍÜKAå!!Z×g­T}¢és³Ím–ùA%!诩¥€~G$tkŽ”7»åîúëo^ï ›'‹k™%o¢t+Æår¸ÜÔ®3åMTvRÃ&CÊp¶ÒwÅ äN’6tCuÉJË•Òçsš&Ü®3&Ê JCÒS‹?’‰:jþn— ÷YîOºN“:[º÷’êœqz ©D“ ÿ +–” R” R” R” R” R” R” R” R” R” R” R” U»ñ—òb.v<*ýq„áÒkB¿ÈßȪüë=Ú ávy–É‘îHsÚTGR] þïot4«­ÃÄþM·[\¹NÀ²8ðÚO5¼å½À”§÷'_ãPØž!”寺Æ1\ï2žn&e;Àl ¾G󠃥XnÎE‹äРdxÅÂ4²ójLl-¥>6>€ß{¯Þ¦3 ~û‘yJçk±xòu–z–’1ø¬¸ê ìhŽZ?«±ýª 5*Á–á9†$–U“ã7k:_:iS"­ ³ûGøäj¿@¥\,/ò5þØÝÎ˃äá;Ûo±Å!c÷ÇunIJ{ŽL¬f ‚å"öž@ÀDuÇÈýßC¿òî‚•l‘ãO!G°ûøV@Õ­( 2—ÀØI:zøÙ¨¼WÉ2©«‡X®7yO%·:)öxŽ¾ò ‡¥MexžO‰Ên.M`¹YÞu<›DÈÊh¬~ãî¦ãx—ÉÒfË…È“ IL–‘¦Š’¡®‰Iüˆ ¥R½çÕc°çFz4–•ÅÆAJÒbbºqëç!¹¢ÙbµÌ¹Ís´±•8²?}ñØþtô«FQã¼ï€.!{µD*â• m£¶È×Ü:ü´x÷9»·nrÕ‰^f¢æÓ¯AS±! —‚a%Iý‰ŠU›ñþq‘¹-»'y¹ª…©…ˆ·KE* tzø®\ƒʱø O¾ã×;dWž[ ;*2›JÜA!IC²4wAJ×üŸ‹Yñ xâØÕ¡eÙn^$>„’ðŠá ŒØã´¬,­È€@Ýtx_Ä9_úTĆg^͸!§Õ2 ˆeÄ©*Pèt@ßÿÅ*çâ7[·•r,w°Ìž¨÷Ym± p¡´:½ú Oÿ•Á–`y®'™6+x´2ñ!·%Ä[iQØ}Çó ­Ò­·3¼¦ ŸŽb»¬@®%è°Öâ7ß[_cü«FôëãÁ'É™7œâÏþ"656SP¦°¤-/$'‚Âz;z ÄiV»Ÿ¼l°‹õÇ ¿Dµûa߯ķÀ…lw\ž!”寺Æ1\ï2žn&e;Àl ¾G󠃥Ne˜†S‰>Ó>=s³¸òy¶™‘”×1²66;ø?Ê¥,/ò5þØÝÎ˃äá;Ûo±Å!c÷ÇtúVËé[ xõ lÅ3K¼Ïµ'ñ0f6¤¤°µ'’z= evËæçnŸq·Û%Ê…nl96CM7$è«á;= üÐGR” R” WM­ ¹sŠÛ Ôò ~*®jP}ëC É­~tvÇås¶Ù¬±aþD˸ÓM#Øm^ãZ:'Ÿ!Ìwô¿¦¯Ù‹(Ír _‘sL ã/͹ÞåÅ÷Ü>”‡ÔÓŸ­_Y)?%K ØÖÆ)Îùa¶[!_l¸¦L»RRˆ2¯„=!”$”‚Äv­ŸÜšŠ•æ? IòDo 9xl^b°bÇ+~ÃQˆRãÇÛÒÔ4A=ï|» Úý?^|u#Ô5­»ÛÈwÛ¤Ùr[rMÎKI$)· Ýq)ÚÖ­ñWÜüUbÛv²µâܧ ¾§ ÃìÎe®?"µZôgÜG !;ÅH Òv´£—ÓÀ¶ªÎyU®P›ŠÙ1,Rw4©Év{3m<âB‚½µ)\¾‚@ØÞ´v øÿMùJî7ÇeÙ±i¶ÛÜ„K—h“jJá )JRB7É+!'zV‰R‰Ö‚×{±\dã.IiÏžÌñ v@ݱ•L¶þL Z\SD)KQAO ,Žõ¡¡»öyióOœm×8ØÖ›¼h‘eäV˜ }ËFÛA@q@4éÚTŽCŸ7ÖÆ “ù_$½Å´ÛÛ‡d³ZmRÄØöËTÇŽd²êÀÚ”£ÐíZÐ잤ù£2æA—-6—Èš ]à= ;[a!!*mD‘® ìw¾ôH ´\ñçn¾Èäù™]†É!™÷KUÆÎb­…(ðCì•­ÎõÌ+‰IÖÇ{ÕVQb°åÂ}KÅï»›µ[âµ1¼…¼„¨¶R‘¤¨“µ×z®l“Ë7ë¶-/fƱËTõ¥S™²ÛËâA@Z‰R´’:“½Ö}A½zÃÉòØ~~Ÿ«­Öß ÊXü•¦_q¤GG´Ù4¡ú“òR;ê·,IRgz†ðµúîÊ‘¹a®®ä·KŽ,0½ƒÞû=žÍ|ØÏžòç£ZÓ~²bY,»PJaλÚô–Òžäï²I!à<ãÈÓ½PÙŸt½È¸\®¦=ÚËuAM}AÖÖÑ=%´ò ¦ø×Õ2b¸_ƒ²æüMl´ÌÏ®pe;8ﲇCm¸µŠN·õuó³X“~¡s¶&t8X¼+ü¦ý·¯Ñ¬¬·=¹ä¢6’BDëGº®x÷Ê™^çk„m×+EÕEs­·Hi“å””óÑí*ÑùIë{ÐÐiyÆie»új¶Xü‹w¶Åº4í¾ù|i.G‚â@Id<ƒ 8(€Ëãï]¶²ìžßêFJ`_gÄM¡˜«·¥—Š -!eIûEG²{:à2Ï!ùS(Ílp1ùÚív ǵڡ&›sÇý2y?$Æ&-ù2¡G3")aöcE*IÚÚ!¯ó¬úí嬒ëäØA¸B³IºAa 6ÑJ£)(l¡hÊ%â3±[E«Æ-w‰íÙ-‰Ž©I:ÚV²T®?HØI`‘U¼Ÿ8½d8n1ŠOLQoÆ‘! m”¸CëJ×Ììï´h ÏW[ÕÁ%²Yd̓bŸeTÉb;®%¹2”°·=–B-ñ'­Uƒ4k'òO€¼1n¿Ê™&év¿¿ 2e­^ë­•”!ekÙWÓý£½ÔŠÏ®^‰iĆ¼‡ž\œVçnm×í?Ò‚k’’µ¡Â¤¨”í)'ìI݇̾^¿áìxþ‰V žqI™:sL0Ú¡@S¡m"7´‚¤%G°­‚Ot8ÍÚIë®à–£%Ôcp¤À·%I;÷¢²[ä½Ì/ZèôuYϦ,ßÈ3=MÚÕ.ñ{—&é5MÝØyçV„¡@ûˆ'á±ñËôk­j±«.Q~²åì嶫‹±oLJ2›”)AÂI$…l(…lH;Ýi°}Gç6ûؾÛ,¸u¾ìâЩs£Ù[KÒÂPSÅÅo w³Ã‰ëä ‚âmÓôÿå›æ2¹0îS<ŒüŒèŠZ]n)RAZOÐ’âøï­û…'{ÕW=7\¯7Ïù{¼¿2ãŽÆÅœÚ$8µµcaJd “¤)D)ZçíïgX——³ fû~¹AU¹øùë~ëm™ /D’¥)J®Ç,‘¥ÐÙ#`ûdþbÊ/{ØŒ~?ŽXå+”È–[jc‰d¤ûŠ;Q #`g{ëAõwt½ZUƒbÖÉS`ã c0߉—V–t¥AkùÒÔ7­öG#ûÕËÓ&cä܃È&åîRœƒ‡Ü"™.#…ÉÛG~â»ê üëïX›ÍDLF+wµcY=®Ý¡»Ý±2#zJ UÇê: 'C@h*F?¨$±›·–·*Ø™qíîÛáFL$¢,6\RT ÛiÐÞÒÕÈv,¾“rìÚëê*$[…Þñqy÷‘{fCZK+Ñt(ŸÓÐ_§zÝJùZDüOÒ¾' T›m²ë‘]…Õèn8ò›ël4âÁø-'ô•íƒ¢Sº ¹çìÝg"Ù³Ün,†g]­Ö†™™!< I+JIì¡)Ñ=j¡0+å~;/a‹E㔲떻´È`:t=Ôü(+C]hž¾ gÅ2'åž•òÈYr¤Ü­–¬ŠÒ-OLqÅT䆛}¦ÖOÀi_ tŸp­Ô¬<Ÿ-‡çéðºÝmð¬¥ÉZe÷Dt{Mã@*©?%#¾ª…Ÿy_(Ì1ؘËìZ,øüU‡[µÚ`¦;ѱî«åEZ:ìë@uòLã>{ËžkMúɉd²íA)‡:ïhKÒ[Jxñi)å® ì‚N»&ƒé Test Chapter First para Second para test1 test1 test2 test2 test3 test3 docbook-dsssl-1.79/contrib/imagemap/imagemap.dsl0000644000175000001440000000451107262202642022407 0ustar msmithusers00000000000000 ]> (element (graphicco areaspec) (make element gi: "MAP" attributes: (list (list "NAME" (element-id))) (let loop ((nl (select-elements (descendants (current-node)) (normalize "area")))) (if (node-list-empty? nl) (empty-sosofo) (make sequence (make-html-area (node-list-first nl)) (loop (node-list-rest nl))))))) (define ($graphic$ fileref #!optional (format #f) (alt #f) (align #f)) (let* ((csim? (equal? (gi (parent (current-node))) (normalize "graphicco"))) (ismap (if csim? '(("ISMAP" "ISMAP")) '())) (usemap (if csim? (let* ((graphicco (parent (current-node))) (areaspec (select-elements (children graphicco) (normalize "areaspec")))) (list (list "USEMAP" (string-append "#" (attribute-string (normalize "id") areaspec))))) '())) (border (if csim? '(("BORDER" "0")) '())) (img-attr (append (list (list "SRC" (graphic-file fileref))) (if align (list (list "ALIGN" align)) '()) (if image-library (graphic-attrs fileref alt) '()) ismap usemap border))) (make empty-element gi: "IMG" attributes: img-attr))) (define (make-html-area area) (let* ((shape (attribute-string (normalize "otherunits") area)) (coords (attribute-string (normalize "coords") area)) (idrefs (attribute-string (normalize "linkends") area)) (idlist (if idrefs (split idrefs) '())) (target (if idrefs (element-with-id (car idlist)) (empty-node-list))) (href (attribute-string (normalize "label") area))) (if (node-list-empty? target) (process-children) (if idrefs (make empty-element gi: "AREA" attributes: (list (list "SHAPE" shape) (list "COORDS" coords) (list "HREF" (href-to target)))) (make empty-element gi: "AREA" attributes: (list (list "SHAPE" shape) (list "COORDS" coords) (list "HREF" href))))))) docbook-dsssl-1.79/contrib/imagemap/ChangeLog0000644000175000001440000000015710142575332021677 0ustar msmithusers000000000000002001-04-02 Norman Walsh * imagemap.dsl, testdoc.sgm, testimg.jpg: New file. docbook-dsssl-1.79/contrib/html/0000755000175000001440000000000010142564561017310 5ustar msmithusers00000000000000docbook-dsssl-1.79/contrib/html/short-biblioentry.dsl0000644000175000001440000000135707262202642023477 0ustar msmithusers00000000000000 ]> (define (biblioentry-inline-elements) (list (normalize "abbrev") (normalize "title") (normalize "subtitle") (normalize "author") (normalize "authorgroup") (normalize "copyright") (normalize "date") (normalize "edition") (normalize "pagenums") (normalize "pubdate") (normalize "publisher"))) (define (biblioentry-block-elements) '()) docbook-dsssl-1.79/contrib/html/ChangeLog0000644000175000001440000000013610142575332021060 0ustar msmithusers000000000000002001-04-02 Norman Walsh * short-biblioentry.dsl: New file. docbook-dsssl-1.79/common/0000755000175000001440000000000010142564561016174 5ustar msmithusers00000000000000docbook-dsssl-1.79/common/dbl1bg.dsl0000644000175000001440000003512610132054743020035 0ustar msmithusers00000000000000 %cyr1; %bg.words; ]> ;; $Id: dbl1bg.dsl,v 1.1 2004/10/09 21:36:35 petere78 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The Bulgarian version of this file used the Romanian as a template. (define (bg-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (bg-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "&appendix; %t")) (list (normalize "article") (string-append %gentext-bg-start-quote% "%t" %gentext-bg-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "&chapter; %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "sidebar") "&sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-bg-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (bg-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (bg-auto-xref-indirect-connector before) (literal " ∈ ")) ;; Should the TOC come first or last? ;; (define %generate-bg-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (bg-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-bg-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (bg-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-bg-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-bg-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-bg-intra-label-sep) (list)) (define (bg-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-bg-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-bg-intra-label-sep))) (sep (assoc name (bg-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-bg-label-title-sep) (list)) (define (bg-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-bg-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-bg-label-title-sep))) (sep (assoc name (bg-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (bg-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (bg-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (bg-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (bg-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-bg$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (bg-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-bg-start-quote% (dingbat "ldquo")) (define %gentext-bg-end-quote% (dingbat "rdquo")) (define %gentext-bg-start-nested-quote% (dingbat "lsquo")) (define %gentext-bg-end-nested-quote% (dingbat "rsquo")) (define %gentext-bg-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-bg-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-bg-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-bg-page% "") (define %gentext-bg-and% "∧") (define %gentext-bg-listcomma% "&listcomma;") (define %gentext-bg-lastlistcomma% "&lastlistcomma;") (define %gentext-bg-bibl-pages% "&Pgs;") (define %gentext-bg-endnotes% "&Notes;") (define %gentext-bg-table-endnotes% "&TableNotes;:") (define %gentext-bg-index-see% "&See;") (define %gentext-bg-index-seealso% "&SeeAlso;") (define (gentext-bg-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-bg-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-bg-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-bg-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-bg-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-bg-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/ChangeLog0000644000175000001440000001300610142575332017744 0ustar msmithusers000000000000002004-10-10 * dbcommon.dsl: Give othercredit some useful rendering in print output, by copying over the author rendering. Fix author-list-string for authorgroups that contain both authors and othercredits. (bug #1038081) 2004-10-09 * .cvsignore, Makefile, dbl10n.dsl, dbl10n.ent, dbl10n.template, dbl1bg.dsl: New Bulgarian translation by Viktor Vasilev (SF patch #1040075) * dbl1bs.dsl: Additional fixes for Bosnian translation, by Kemal Skripic (SF patch #1037371) 2004-09-22 Michael Smith * .cvsignore: dbl1bs.ent added to ignore list; also re-sorted list 2004-09-17 * Makefile, dbl10n.dsl, dbl10n.ent, dbl10n.template, dbl1bs.dsl: Bosnian translation by Kemal Skripic 2003-04-28 Adam Di Carlo * dbcommon.dsl: Fix a problem pointed out by Tim Waugh in articleinfo vs artheader in the article-title procedure. Also ensure articleinfo is used in some other contexts. 2003-01-15 Adam Di Carlo * dbcommon.dsl: make
appear correctly in the PDF bookmark hierarchy; also fix font size selection for section titles corrects sourceforge bugs 589247 and 524028; patch from Carsten Haese appreciated 2002-12-20 Adam Di Carlo * dbl1en.dsl: fix up some case-folding incidents 2002-08-07 Adam Di Carlo * Makefile: dbl1he.ent doesn't exist, was breaking build 2002-06-06 Norman Walsh * dbl1tr.dsl: Patch #554930: obvious gentext-tr-intra-label-sep fix 2002-04-29 Norman Walsh * .cvsignore, Makefile: (Incomplete) support for Hebrew 2002-03-24 Adam Di Carlo * .cvsignore, Makefile: suffix rules for the *.ent production; add a rule to create a catalog automatically form the *.dsl files * Makefile: clean shouldn't remove dbl10n.ent 2002-03-20 Norman Walsh * dbl10n.dsl: Remove duplicated comment 2002-02-22 Norman Walsh * dbcommon.dsl: Fix test for articles in books 2002-02-20 Norman Walsh * dbl1fr.dsl: Fix French quotes 2002-01-03 Norman Walsh * .cvsignore, Makefile: Added Thai localization 2001-12-04 Norman Walsh * dbcommon.dsl: Bug #435320: Poor enumeration of LoTs and LoFs 2001-12-01 Norman Walsh * dbcommon.dsl: Bug #473531 numbering of blocks when the root element is not a component 2001-11-30 Norman Walsh * .cvsignore, dbl10n.ent: Merged V174bugfixes * .cvsignore, dbl10n.ent: New file. * dbcommon.dsl: Patch #473116: Section levels * dbl10n.ent: branches: 1.1.2; file dbl10n.ent was initially added on branch V174bugfixes. 2001-11-20 Norman Walsh * dbcommon.dsl: Support artheader or articleinfo as the info-element of an article 2001-11-14 Norman Walsh * Makefile, dbl10n.dsl, dbl10n.pl, dbl10n.template, dbl1eu.dsl, dbl1nn.dsl, dbl1uk.dsl, dbl1xh.dsl: Added Basque, Nynorsk, Ukranian, and Xhosa 2001-09-23 Norman Walsh * dbcommon.dsl: Patch #461632, title sizes for bibliography and index divs * dbcommon.dsl: Patch #460349, don't check extension for linespecific inclusions 2001-09-09 Norman Walsh * dbcommon.dsl: Bug #459209, allow format attribute to be absent 2001-09-06 Jirka Kosek * dbl1cs.dsl: Synchronized with localization in cs.xml 2001-08-30 Norman Walsh * dbcommon.dsl: Fix XML/SGML discrepancy wrt normalization of notation names; move some common stuff into dbcommon 2001-07-04 * Makefile, dbl10n.dsl, dbl1af.dsl, dbl1tr.dsl: Added Afrikaans and Turkish 2001-06-20 Norman Walsh * dbcommon.dsl, dbl10n.dsl, dbl1ca.dsl, dbl1cs.dsl, dbl1da.dsl, dbl1de.dsl, dbl1el.dsl, dbl1en.dsl, dbl1es.dsl, dbl1et.dsl, dbl1fi.dsl, dbl1fr.dsl, dbl1hu.dsl, dbl1id.dsl, dbl1it.dsl, dbl1ja.dsl, dbl1ko.dsl, dbl1nl.dsl, dbl1no.dsl, dbl1pl.dsl, dbl1pt.dsl, dbl1ptbr.dsl, dbl1ro.dsl, dbl1ru.dsl, dbl1sk.dsl, dbl1sl.dsl, dbl1sr.dsl, dbl1sv.dsl, dbl1zhcn.dsl, dbl1zhtw.dsl: Updated support for locale-sensitive commas in lists 2001-05-11 Norman Walsh * dbl10n.dsl, dbl1sr.dsl, dbl1zhtw.dsl: Support Serbian and Traditional Chinese 2001-05-04 Norman Walsh * Makefile: Add (partial support for) Serbian localization 2001-04-20 Norman Walsh * Makefile, cs-hack.pl: Fixed charset issues that caused the .ent files not to work in SGML 2001-04-09 Norman Walsh * dbl1ko.dsl: Updates from Park Yong Joo 2001-04-02 Norman Walsh * .cvsignore: branches: 1.1.2; Added Makefiles to build common/*.ent * Makefile: New file. * dbcommon.dsl, dbl10n.dsl, dbl1ca.dsl, dbl1cs.dsl, dbl1da.dsl, dbl1de.dsl, dbl1el.dsl, dbl1en.dsl, dbl1es.dsl, dbl1et.dsl, dbl1fi.dsl, dbl1fr.dsl, dbl1hu.dsl, dbl1id.dsl, dbl1it.dsl, dbl1ja.dsl, dbl1ko.dsl, dbl1nl.dsl, dbl1no.dsl, dbl1null.dsl, dbl1pl.dsl, dbl1pt.dsl, dbl1ptbr.dsl, dbl1ro.dsl, dbl1ru.dsl, dbl1sk.dsl, dbl1sl.dsl, dbl1sv.dsl, dbl1zhcn.dsl, dbtable.dsl: New file. docbook-dsssl-1.79/common/catalog0000644000175000001440000000575110142563633017540 0ustar msmithusers00000000000000OVERRIDE YES PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//AF" "dbl1af.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//BG" "dbl1bg.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//BS" "dbl1bs.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//CA" "dbl1ca.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//CS" "dbl1cs.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//DA" "dbl1da.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//DE" "dbl1de.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//EL" "dbl1el.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//EN" "dbl1en.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//ES" "dbl1es.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//ET" "dbl1et.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//EU" "dbl1eu.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//FI" "dbl1fi.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//FR" "dbl1fr.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//HU" "dbl1hu.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//IN" "dbl1id.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//IT" "dbl1it.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//JA" "dbl1ja.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//KO" "dbl1ko.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//NL" "dbl1nl.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//NN" "dbl1nn.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//NO" "dbl1no.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//PL" "dbl1pl.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//PT" "dbl1pt.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//PTBR" "dbl1ptbr.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//RO" "dbl1ro.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//RU" "dbl1ru.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//SK" "dbl1sk.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//SL" "dbl1sl.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//SR" "dbl1sr.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//SV" "dbl1sv.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//TR" "dbl1tr.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//UK" "dbl1uk.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//XH" "dbl1xh.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//ZHCN" "dbl1zhcn.ent" PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//ZHTW" "dbl1zhtw.ent" docbook-dsssl-1.79/common/dbl1zhtw.ent0000644000175000001440000001636310142563633020453 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1zhcn.ent0000644000175000001440000001724110142563630020412 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1xh.ent0000644000175000001440000001433210142563624020070 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1uk.ent0000644000175000001440000003606210142563621020071 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1tr.ent0000644000175000001440000001612510142563616020101 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1th.ent0000644000175000001440000003203510142563614020063 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1sv.ent0000644000175000001440000001431610142563610020076 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1sr.ent0000644000175000001440000003444310142563606020102 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1sl.ent0000644000175000001440000001403610142563604020066 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1sk.ent0000644000175000001440000001537010142563603020066 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1ru.ent0000644000175000001440000003665010142563601020101 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1ro.ent0000644000175000001440000001427610142563600020072 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1ptbr.ent0000644000175000001440000001476410142563576020437 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1pt.ent0000644000175000001440000001572210142563574020104 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1pl.ent0000644000175000001440000001441610142563573020072 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1no.ent0000644000175000001440000001340210142563571020063 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1nn.ent0000644000175000001440000001425310142563570020066 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1nl.ent0000644000175000001440000001423310142563566020067 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1ko.ent0000644000175000001440000001755310142563565020076 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1ja.ent0000644000175000001440000001673410142563563020055 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1it.ent0000644000175000001440000001375710142563562020100 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1id.ent0000644000175000001440000001353210142563560020045 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1hu.ent0000644000175000001440000001604410142563556020073 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1fr.ent0000644000175000001440000001612410142563554020063 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1fi.ent0000644000175000001440000001411610142563552020047 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1eu.ent0000644000175000001440000001417110142563550020061 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1et.ent0000644000175000001440000001434510142563547020071 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1es.ent0000644000175000001440000001512210142563545020060 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1en.ent0000644000175000001440000001443210142563543020054 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1el.ent0000644000175000001440000003534410142563541020055 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1de.ent0000644000175000001440000001512710142563540020041 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1da.ent0000644000175000001440000001443410142563536020042 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1cs.ent0000644000175000001440000001604410142563534020060 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1ca.ent0000644000175000001440000001540010142563532020027 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1bs.ent0000644000175000001440000001507410142563531020056 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbl1bg.ent0000644000175000001440000003612610142563527020050 0ustar msmithusers00000000000000 docbook-dsssl-1.79/common/dbtable.dsl0000644000175000001440000002040107262170713020273 0ustar msmithusers00000000000000;; $Id: dbtable.dsl,v 1.1 2001/04/02 21:40:27 nwalsh 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)))))))) ;; ====================================================================== docbook-dsssl-1.79/common/dbl1zhtw.dsl0000644000175000001440000003656407314116047020454 0ustar msmithusers00000000000000 %zhtw.words; ]> ;; $Id: dbl1zhtw.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; ;; Contributors: ;; Frederik Fouvry ;; (define (zhtw-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (zhtw-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "the &appendix; called %t")) (list (normalize "article") (string-append %gentext-zhtw-start-quote% "%t" %gentext-zhtw-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "µÚ %n &Chapter;" "the &chapter; called %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "µÚ %n &Part;") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "µÚ %n §ion;" "the §ion; called %t")) (list (normalize "sect1") (if %section-autolabel% "µÚ %n §ion;" "the §ion; called %t")) (list (normalize "sect2") (if %section-autolabel% "µÚ %n §ion;" "the §ion; called %t")) (list (normalize "sect3") (if %section-autolabel% "µÚ %n §ion;" "the §ion; called %t")) (list (normalize "sect4") (if %section-autolabel% "µÚ %n §ion;" "the §ion; called %t")) (list (normalize "sect5") (if %section-autolabel% "µÚ %n §ion;" "the §ion; called %t")) (list (normalize "simplesect") (if %section-autolabel% "µÚ %n §ion;" "the §ion; called %t")) (list (normalize "sidebar") "&sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-zhtw-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (zhtw-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (zhtw-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " ∈ ")) ((equal? (gi before) (normalize "chapter")) (literal " ∈ ")) ((equal? (gi before) (normalize "sect1")) (literal " ∈ ")) (else (literal " ∈ ")))) ;; Should the TOC come first or last? ;; (define %generate-zhtw-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (zhtw-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-zhtw-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (zhtw-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-zhtw-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-zhtw-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-zhtw-intra-label-sep) (list)) (define (zhtw-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-zhtw-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-zhtw-intra-label-sep))) (sep (assoc name (zhtw-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-zhtw-label-title-sep) (list)) (define (zhtw-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-zhtw-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-zhtw-label-title-sep))) (sep (assoc name (zhtw-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (zhtw-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (zhtw-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (zhtw-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (zhtw-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-zhtw$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (zhtw-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-zhtw-start-quote% (dingbat "ldquo")) (define %gentext-zhtw-end-quote% (dingbat "rdquo")) (define %gentext-zhtw-start-nested-quote% (dingbat "lsquo")) (define %gentext-zhtw-end-nested-quote% (dingbat "rsquo")) (define %gentext-zhtw-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-zhtw-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-zhtw-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-zhtw-page% "") (define %gentext-zhtw-and% "∧") (define %gentext-zhtw-listcomma% "&listcomma;") (define %gentext-zhtw-lastlistcomma% "&lastlistcomma;") (define %gentext-zhtw-bibl-pages% "&Pgs;") (define %gentext-zhtw-endnotes% "&Notes;") (define %gentext-zhtw-table-endnotes% "&TableNotes;:") (define %gentext-zhtw-index-see% "&See;") (define %gentext-zhtw-index-seealso% "&SeeAlso;") (define (gentext-zhtw-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-zhtw-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-zhtw-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-zhtw-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-zhtw-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-zhtw-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1zhcn.dsl0000644000175000001440000003656407314116047020422 0ustar msmithusers00000000000000 %zhcn.words; ]> ;; $Id: dbl1zhcn.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; ;; Contributors: ;; Frederik Fouvry ;; (define (zhcn-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (zhcn-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "the &appendix; called %t")) (list (normalize "article") (string-append %gentext-zhcn-start-quote% "%t" %gentext-zhcn-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "µÚ %n &Chapter;" "the &chapter; called %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "µÚ %n &Part;") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "µÚ %n §ion;" "the §ion; called %t")) (list (normalize "sect1") (if %section-autolabel% "µÚ %n §ion;" "the §ion; called %t")) (list (normalize "sect2") (if %section-autolabel% "µÚ %n §ion;" "the §ion; called %t")) (list (normalize "sect3") (if %section-autolabel% "µÚ %n §ion;" "the §ion; called %t")) (list (normalize "sect4") (if %section-autolabel% "µÚ %n §ion;" "the §ion; called %t")) (list (normalize "sect5") (if %section-autolabel% "µÚ %n §ion;" "the §ion; called %t")) (list (normalize "simplesect") (if %section-autolabel% "µÚ %n §ion;" "the §ion; called %t")) (list (normalize "sidebar") "&sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-zhcn-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (zhcn-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (zhcn-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " ∈ ")) ((equal? (gi before) (normalize "chapter")) (literal " ∈ ")) ((equal? (gi before) (normalize "sect1")) (literal " ∈ ")) (else (literal " ∈ ")))) ;; Should the TOC come first or last? ;; (define %generate-zhcn-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (zhcn-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-zhcn-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (zhcn-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-zhcn-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-zhcn-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-zhcn-intra-label-sep) (list)) (define (zhcn-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-zhcn-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-zhcn-intra-label-sep))) (sep (assoc name (zhcn-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-zhcn-label-title-sep) (list)) (define (zhcn-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-zhcn-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-zhcn-label-title-sep))) (sep (assoc name (zhcn-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (zhcn-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (zhcn-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (zhcn-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (zhcn-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-zhcn$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (zhcn-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-zhcn-start-quote% (dingbat "ldquo")) (define %gentext-zhcn-end-quote% (dingbat "rdquo")) (define %gentext-zhcn-start-nested-quote% (dingbat "lsquo")) (define %gentext-zhcn-end-nested-quote% (dingbat "rsquo")) (define %gentext-zhcn-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-zhcn-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-zhcn-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-zhcn-page% "") (define %gentext-zhcn-and% "∧") (define %gentext-zhcn-listcomma% "&listcomma;") (define %gentext-zhcn-lastlistcomma% "&lastlistcomma;") (define %gentext-zhcn-bibl-pages% "&Pgs;") (define %gentext-zhcn-endnotes% "&Notes;") (define %gentext-zhcn-table-endnotes% "&TableNotes;:") (define %gentext-zhcn-index-see% "&See;") (define %gentext-zhcn-index-seealso% "&SeeAlso;") (define (gentext-zhcn-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-zhcn-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-zhcn-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-zhcn-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-zhcn-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-zhcn-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1xh.dsl0000644000175000001440000003615207374555321020100 0ustar msmithusers00000000000000 %xh.words; ]> ;; $Id: dbl1xh.dsl,v 1.1 2001/11/14 20:57:53 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (xh-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (xh-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "the &appendix; called %t")) (list (normalize "article") (string-append %gentext-xh-start-quote% "%t" %gentext-xh-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "the &chapter; called %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sidebar") "the &sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-xh-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (xh-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (xh-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " ∈ ")) ((equal? (gi before) (normalize "chapter")) (literal " ∈ ")) ((equal? (gi before) (normalize "sect1")) (literal " ∈ ")) (else (literal " ∈ ")))) ;; Should the TOC come first or last? ;; (define %generate-xh-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (xh-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-xh-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (xh-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-xh-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-xh-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-xh-intra-label-sep) (list)) (define (xh-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-xh-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-xh-intra-label-sep))) (sep (assoc name (xh-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-xh-label-title-sep) (list)) (define (xh-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-xh-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-xh-label-title-sep))) (sep (assoc name (xh-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (xh-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (xh-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (xh-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (xh-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-xh$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (xh-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-xh-start-quote% (dingbat "ldquo")) (define %gentext-xh-end-quote% (dingbat "rdquo")) (define %gentext-xh-start-nested-quote% (dingbat "lsquo")) (define %gentext-xh-end-nested-quote% (dingbat "rsquo")) (define %gentext-xh-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-xh-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-xh-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-xh-page% "") (define %gentext-xh-and% "∧") (define %gentext-xh-listcomma% "&listcomma;") (define %gentext-xh-lastlistcomma% "&lastlistcomma;") (define %gentext-xh-bibl-pages% "&Pgs;") (define %gentext-xh-endnotes% "&Notes;") (define %gentext-xh-table-endnotes% "&TableNotes;:") (define %gentext-xh-index-see% "&See;") (define %gentext-xh-index-seealso% "&SeeAlso;") (define (gentext-xh-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-xh-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-xh-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-xh-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-xh-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-xh-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1uk.dsl0000644000175000001440000003615207374555321020100 0ustar msmithusers00000000000000 %uk.words; ]> ;; $Id: dbl1uk.dsl,v 1.1 2001/11/14 20:57:53 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (uk-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (uk-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "the &appendix; called %t")) (list (normalize "article") (string-append %gentext-uk-start-quote% "%t" %gentext-uk-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "the &chapter; called %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sidebar") "the &sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-uk-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (uk-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (uk-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " ∈ ")) ((equal? (gi before) (normalize "chapter")) (literal " ∈ ")) ((equal? (gi before) (normalize "sect1")) (literal " ∈ ")) (else (literal " ∈ ")))) ;; Should the TOC come first or last? ;; (define %generate-uk-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (uk-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-uk-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (uk-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-uk-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-uk-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-uk-intra-label-sep) (list)) (define (uk-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-uk-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-uk-intra-label-sep))) (sep (assoc name (uk-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-uk-label-title-sep) (list)) (define (uk-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-uk-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-uk-label-title-sep))) (sep (assoc name (uk-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (uk-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (uk-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (uk-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (uk-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-uk$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (uk-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-uk-start-quote% (dingbat "ldquo")) (define %gentext-uk-end-quote% (dingbat "rdquo")) (define %gentext-uk-start-nested-quote% (dingbat "lsquo")) (define %gentext-uk-end-nested-quote% (dingbat "rsquo")) (define %gentext-uk-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-uk-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-uk-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-uk-page% "") (define %gentext-uk-and% "∧") (define %gentext-uk-listcomma% "&listcomma;") (define %gentext-uk-lastlistcomma% "&lastlistcomma;") (define %gentext-uk-bibl-pages% "&Pgs;") (define %gentext-uk-endnotes% "&Notes;") (define %gentext-uk-table-endnotes% "&TableNotes;:") (define %gentext-uk-index-see% "&See;") (define %gentext-uk-index-seealso% "&SeeAlso;") (define (gentext-uk-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-uk-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-uk-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-uk-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-uk-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-uk-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1tr.dsl0000644000175000001440000003605207477660542020113 0ustar msmithusers00000000000000 %tr.words; ]> ;; $Id: dbl1tr.dsl,v 1.2 2002/06/06 13:19:30 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Modified for Turkish by Baurjan Ismagulov, ibr@gantek.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (tr-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (tr-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "the &appendix; called %t")) (list (normalize "article") (string-append %gentext-tr-start-quote% "%t" %gentext-tr-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "the &chapter; called %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sidebar") "the &sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-tr-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (tr-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (tr-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " ∈ ")) ((equal? (gi before) (normalize "chapter")) (literal " ∈ ")) ((equal? (gi before) (normalize "sect1")) (literal " ∈ ")) (else (literal " ∈ ")))) ;; Should the TOC come first or last? ;; (define %generate-tr-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (tr-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&ISBN;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-tr-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (tr-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-tr-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-tr-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the separator to be inserted ;; between multiple occurrences of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-tr-intra-label-sep) (list)) (define (tr-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-tr-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-tr-intra-label-sep))) (sep (assoc name (tr-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the separator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-tr-label-title-sep) (list)) (define (tr-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-tr-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (sep (assoc name (tr-label-title-sep)))) (if sep (car (cdr sep)) ""))) (define (tr-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (tr-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (tr-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (tr-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-tr$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (tr-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-tr-start-quote% (dingbat "ldquo")) (define %gentext-tr-end-quote% (dingbat "rdquo")) (define %gentext-tr-start-nested-quote% (dingbat "lsquo")) (define %gentext-tr-end-nested-quote% (dingbat "rsquo")) (define %gentext-tr-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-tr-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-tr-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-tr-page% "") (define %gentext-tr-and% "∧") (define %gentext-tr-listcomma% "&listcomma;") (define %gentext-tr-lastlistcomma% "&lastlistcomma;") (define %gentext-tr-bibl-pages% "&Pgs;") (define %gentext-tr-endnotes% "&Notes;") (define %gentext-tr-table-endnotes% "&TableNotes;:") (define %gentext-tr-index-see% "&See;") (define %gentext-tr-index-seealso% "&SeeAlso;") (define (gentext-tr-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-tr-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-tr-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-tr-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-tr-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-tr-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1sv.dsl0000644000175000001440000003625207314116047020102 0ustar msmithusers00000000000000 %sv.words; ]> ;; $Id: dbl1sv.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; ;; Contributors: ;; Marcus Better, marcus@dactylis.se ;; (define (sv-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (sv-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "&Appendix; som &called; %t")) (list (normalize "article") (string-append %gentext-sv-start-quote% "%t" %gentext-sv-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "&Chapter; som &called; %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "&Section; som &called; %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "&Section; som &called; %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "&Section; som &called; %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "&Section; som &called; %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "&Section; som &called; %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "&Section; som &called; %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "&Section; som &called; %t")) (list (normalize "sidebar") "&sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-sv-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (sv-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (sv-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " in ")) ((equal? (gi before) (normalize "chapter")) (literal " in ")) ((equal? (gi before) (normalize "sect1")) (literal " in ")) (else (literal " in ")))) ;; Should the TOC come first or last? ;; (define %generate-sv-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (sv-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-sv-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (sv-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-sv-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-sv-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-sv-intra-label-sep) (list)) (define (sv-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-sv-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-sv-intra-label-sep))) (sep (assoc name (sv-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-sv-label-title-sep) (list)) (define (sv-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-sv-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-sv-label-title-sep))) (sep (assoc name (sv-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (sv-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (sv-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (sv-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (sv-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-sv$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (sv-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-sv-start-quote% (dingbat "ldquo")) (define %gentext-sv-end-quote% (dingbat "rdquo")) (define %gentext-sv-start-nested-quote% (dingbat "lsquo")) (define %gentext-sv-end-nested-quote% (dingbat "rsquo")) (define %gentext-sv-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-sv-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-sv-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-sv-page% "") (define %gentext-sv-and% "∧") (define %gentext-sv-listcomma% "&listcomma;") (define %gentext-sv-lastlistcomma% "&lastlistcomma;") (define %gentext-sv-bibl-pages% "&Pgs;") (define %gentext-sv-endnotes% "&Notes;") (define %gentext-sv-table-endnotes% "&TableNotes;:") (define %gentext-sv-index-see% "&See;") (define %gentext-sv-index-seealso% "&SeeAlso;") (define (gentext-sv-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-sv-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-sv-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-sv-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-sv-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-sv-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1sr.dsl0000644000175000001440000003626507314116047020102 0ustar msmithusers00000000000000 %lat2; %sr.words; ]> ;; $Id: dbl1sr.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (sr-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (sr-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "the &appendix; called %t")) (list (normalize "article") (string-append %gentext-sr-start-quote% "%t" %gentext-sr-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "the &chapter; called %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sidebar") "the &sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-sr-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (sr-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (sr-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " ∈ ")) ((equal? (gi before) (normalize "chapter")) (literal " ∈ ")) ((equal? (gi before) (normalize "sect1")) (literal " ∈ ")) (else (literal " ∈ ")))) ;; Should the TOC come first or last? ;; (define %generate-sr-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (sr-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&ISBN;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-sr-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (sr-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-sr-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-sr-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-sr-intra-label-sep) (list)) (define (sr-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-sr-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-sr-intra-label-sep))) (sep (assoc name (sr-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-sr-label-title-sep) (list)) (define (sr-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-sr-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-sr-label-title-sep))) (sep (assoc name (sr-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (sr-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (sr-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (sr-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (sr-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-sr$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (sr-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-sr-start-quote% (dingbat "ldquo")) (define %gentext-sr-end-quote% (dingbat "rdquo")) (define %gentext-sr-start-nested-quote% (dingbat "lsquo")) (define %gentext-sr-end-nested-quote% (dingbat "rsquo")) (define %gentext-sr-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-sr-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-sr-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-sr-page% "") (define %gentext-sr-and% "∧") (define %gentext-sr-listcomma% "&listcomma;") (define %gentext-sr-lastlistcomma% "&lastlistcomma;") (define %gentext-sr-bibl-pages% "&Pgs;") (define %gentext-sr-endnotes% "&Notes;") (define %gentext-sr-table-endnotes% "&TableNotes;:") (define %gentext-sr-index-see% "&See;") (define %gentext-sr-index-seealso% "&SeeAlso;") (define (gentext-sr-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-sr-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-sr-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-sr-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-sr-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-sr-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1sl.dsl0000644000175000001440000003626507314116047020074 0ustar msmithusers00000000000000 %lat2; %sl.words; ]> ;; $Id: dbl1sl.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (sl-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (sl-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "the &appendix; called %t")) (list (normalize "article") (string-append %gentext-sl-start-quote% "%t" %gentext-sl-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "the &chapter; called %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sidebar") "the &sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-sl-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (sl-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (sl-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " ∈ ")) ((equal? (gi before) (normalize "chapter")) (literal " ∈ ")) ((equal? (gi before) (normalize "sect1")) (literal " ∈ ")) (else (literal " ∈ ")))) ;; Should the TOC come first or last? ;; (define %generate-sl-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (sl-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-sl-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (sl-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-sl-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-sl-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-sl-intra-label-sep) (list)) (define (sl-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-sl-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-sl-intra-label-sep))) (sep (assoc name (sl-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-sl-label-title-sep) (list)) (define (sl-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-sl-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-sl-label-title-sep))) (sep (assoc name (sl-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (sl-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (sl-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (sl-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (sl-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-sl$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (sl-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-sl-start-quote% (dingbat "ldquo")) (define %gentext-sl-end-quote% (dingbat "rdquo")) (define %gentext-sl-start-nested-quote% (dingbat "lsquo")) (define %gentext-sl-end-nested-quote% (dingbat "rsquo")) (define %gentext-sl-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-sl-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-sl-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-sl-page% "") (define %gentext-sl-and% "∧") (define %gentext-sl-listcomma% "&listcomma;") (define %gentext-sl-lastlistcomma% "&lastlistcomma;") (define %gentext-sl-bibl-pages% "&Pgs;") (define %gentext-sl-endnotes% "&Notes;") (define %gentext-sl-table-endnotes% "&TableNotes;:") (define %gentext-sl-index-see% "&See;") (define %gentext-sl-index-seealso% "&SeeAlso;") (define (gentext-sl-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-sl-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-sl-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-sl-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-sl-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-sl-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1sk.dsl0000644000175000001440000003602307314116047020063 0ustar msmithusers00000000000000 %sk.words; ]> ;; $Id: dbl1sk.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Contributors: ;; Ralf Schleitzer, ralf.schleitzer@ixos.de (define (sk-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (sk-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "&appendix; nazvan\U-00E1; %t")) (list (normalize "article") (string-append %gentext-sk-start-quote% "%t" %gentext-sk-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "&chapter; nazvan\U-00E1; %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "§ion; nazvan\U-00E1; %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "§ion; nazvan\U-00E1; %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "§ion; nazvan\U-00E1; %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "§ion; nazvan\U-00E1; %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "§ion; nazvan\U-00E1; %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "§ion; nazvan\U-00E1; %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "§ion; nazvan\U-00E1; %t")) (list (normalize "sidebar") "&sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-sk-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (sk-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (sk-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " ∈ ")) ((equal? (gi before) (normalize "chapter")) (literal " ∈ ")) ((equal? (gi before) (normalize "sect1")) (literal " ∈ ")) (else (literal " ∈ ")))) ;; Should the TOC come first or last? ;; (define %generate-sk-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (sk-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-sk-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (sk-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-sk-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-sk-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-sk-intra-label-sep) (list)) (define (sk-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-sk-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-sk-intra-label-sep))) (sep (assoc name (sk-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-sk-label-title-sep) (list)) (define (sk-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-sk-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-sk-label-title-sep))) (sep (assoc name (sk-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (sk-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (sk-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (sk-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (sk-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-sk$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (sk-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-sk-start-quote% "\U-201E;") (define %gentext-sk-end-quote% "\U-201C;") (define %gentext-sk-start-nested-quote% "\U-201A;") (define %gentext-sk-end-nested-quote% "\U-2018;") (define %gentext-sk-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-sk-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-sk-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-sk-page% "") (define %gentext-sk-and% "∧") (define %gentext-sk-listcomma% "&listcomma;") (define %gentext-sk-lastlistcomma% "&lastlistcomma;") (define %gentext-sk-bibl-pages% "&Pgs;") (define %gentext-sk-endnotes% "&Notes;") (define %gentext-sk-table-endnotes% "&TableNotes;:") (define %gentext-sk-index-see% "&See;") (define %gentext-sk-index-seealso% "&SeeAlso;") (define (gentext-sk-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-sk-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-sk-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-sk-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-sk-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-sk-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1ru.dsl0000644000175000001440000003640207314116047020075 0ustar msmithusers00000000000000 %cyr1; %ru.words; ]> ;; $Id: dbl1ru.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; This is revised Russian Localization version by Norman Walsh, modified by ;; Ilia V. Kouznetsov, ilia@syntext.com ;; Suggestion of I. Kouznetsov: According to my experience of writing ;; documentation, Russian Words for cross references had better be ;; abbreviated (just like it is usually done in Russian documents) ;; because the ends of not abbreviated cross references may vary from ;; place to place due to the cases of Russian language. Due to this reason ;; entities with ".abr" syffix are added. ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (ru-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (ru-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix.abr; %n" "&Appendix.abr; %t")) (list (normalize "article") (string-append %gentext-ru-start-quote% "%t" %gentext-ru-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter.abr; %n" "&Chapter.abr; %t")) (list (normalize "equation") "&Equation.abr; %n") (list (normalize "example") "&Example.abr; %n") (list (normalize "figure") "&Figure.abr; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part.abr; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure.abr; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section.abr; %n" "&Section.abr; %t")) (list (normalize "sect1") (if %section-autolabel% "&Section.abr; %n" "&Section.abr; %t")) (list (normalize "sect2") (if %section-autolabel% "&Section.abr; %n" "&Section.abr; %t")) (list (normalize "sect3") (if %section-autolabel% "&Section.abr; %n" "&Section.abr; %t")) (list (normalize "sect4") (if %section-autolabel% "&Section.abr; %n" "&Section.abr; %t")) (list (normalize "sect5") (if %section-autolabel% "&Section.abr; %n" "&Section.abr; %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section.abr; %n" "&Section.abr; %t")) (list (normalize "sidebar") "&sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table.abr; %n"))) (define (gentext-ru-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (ru-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (ru-auto-xref-indirect-connector before) (literal " ∈ ")) ;; Should the TOC come first or last? ;; (define %generate-ru-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (ru-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-ru-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (ru-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-ru-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-ru-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-ru-intra-label-sep) (list)) (define (ru-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-ru-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-ru-intra-label-sep))) (sep (assoc name (ru-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-ru-label-title-sep) (list)) (define (ru-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-ru-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-ru-label-title-sep))) (sep (assoc name (ru-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (ru-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (ru-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (ru-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (ru-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-ru$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (ru-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-ru-start-quote% (dingbat "ldquo")) (define %gentext-ru-end-quote% (dingbat "rdquo")) (define %gentext-ru-start-nested-quote% (dingbat "lsquo")) (define %gentext-ru-end-nested-quote% (dingbat "rsquo")) (define %gentext-ru-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-ru-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-ru-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-ru-page% "") (define %gentext-ru-and% "∧") (define %gentext-ru-listcomma% "&listcomma;") (define %gentext-ru-lastlistcomma% "&lastlistcomma;") (define %gentext-ru-bibl-pages% "&Pgs;") (define %gentext-ru-endnotes% "&Notes;") (define %gentext-ru-table-endnotes% "&TableNotes;:") (define %gentext-ru-index-see% "&See;") (define %gentext-ru-index-seealso% "&SeeAlso;") (define (gentext-ru-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-ru-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-ru-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-ru-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-ru-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-ru-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1ro.dsl0000644000175000001440000003541507314116047020072 0ustar msmithusers00000000000000 %lat1; %lat2; %ro.words; ]> ;; $Id: dbl1ro.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Provided by Dan N. Pomohaci ;; Updated by Claudiu Costin (define (ro-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (ro-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "the &appendix; called %t")) (list (normalize "article") (string-append %gentext-ro-start-quote% "%t" %gentext-ro-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "the &chapter; called %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "§ion; numit\U-0103; %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "§ion; numit\U-0103; %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "§ion; numit\U-0103; %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "§ion; numit\U-0103; %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "§ion; numit\U-0103; %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "§ion; numit\U-0103; %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "§ion; numit\U-0103; %t")) (list (normalize "sidebar") "the &sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-ro-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (ro-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (ro-auto-xref-indirect-connector before) (literal " ∈ ")) ;; Should the TOC come first or last? ;; (define %generate-ro-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (ro-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-ro-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (ro-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-ro-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-ro-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-ro-intra-label-sep) (list)) (define (ro-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-ro-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-ro-intra-label-sep))) (sep (assoc name (ro-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-ro-label-title-sep) (list)) (define (ro-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-ro-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-ro-label-title-sep))) (sep (assoc name (ro-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (ro-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (ro-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (ro-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (ro-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-ro$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (ro-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-ro-start-quote% (dingbat "ldquo")) (define %gentext-ro-end-quote% (dingbat "rdquo")) (define %gentext-ro-start-nested-quote% (dingbat "lsquo")) (define %gentext-ro-end-nested-quote% (dingbat "rsquo")) (define %gentext-ro-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-ro-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-ro-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-ro-page% "") (define %gentext-ro-and% "∧") (define %gentext-ro-listcomma% "&listcomma;") (define %gentext-ro-lastlistcomma% "&lastlistcomma;") (define %gentext-ro-bibl-pages% "&Pgs;") (define %gentext-ro-endnotes% "&Notes;") (define %gentext-ro-table-endnotes% "&TableNotes;:") (define %gentext-ro-index-see% "&See;") (define %gentext-ro-index-seealso% "&SeeAlso;") (define (gentext-ro-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-ro-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-ro-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-ro-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-ro-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-ro-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1ptbr.dsl0000644000175000001440000003540207314116047020415 0ustar msmithusers00000000000000 %ptbr.words; ]> ;; $Id: dbl1ptbr.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (ptbr-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (ptbr-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "o &appendix; %t")) (list (normalize "article") (string-append %gentext-ptbr-start-quote% "%t" %gentext-ptbr-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "o &chapter; %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "a §ion; %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "a §ion; %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "a §ion; %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "a §ion; %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "a §ion; %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "a §ion; %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "a §ion; %t")) (list (normalize "sidebar") "&sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-ptbr-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (ptbr-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (ptbr-auto-xref-indirect-connector before) (literal " ∈ ")) ;; Should the TOC come first or last? ;; (define %generate-ptbr-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (ptbr-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "notes") "&Notes;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-ptbr-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (ptbr-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-ptbr-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-ptbr-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-ptbr-intra-label-sep) (list)) (define (ptbr-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-ptbr-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-ptbr-intra-label-sep))) (sep (assoc name (ptbr-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-ptbr-label-title-sep) (list)) (define (ptbr-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-ptbr-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-ptbr-label-title-sep))) (sep (assoc name (ptbr-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (ptbr-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (ptbr-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (ptbr-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (ptbr-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-ptbr$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (ptbr-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-ptbr-start-quote% (dingbat "ldquo")) (define %gentext-ptbr-end-quote% (dingbat "rdquo")) (define %gentext-ptbr-start-nested-quote% (dingbat "lsquo")) (define %gentext-ptbr-end-nested-quote% (dingbat "rsquo")) (define %gentext-ptbr-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-ptbr-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-ptbr-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-ptbr-page% "") (define %gentext-ptbr-and% "∧") (define %gentext-ptbr-listcomma% "&listcomma;") (define %gentext-ptbr-lastlistcomma% "&lastlistcomma;") (define %gentext-ptbr-bibl-pages% "&Pgs;") (define %gentext-ptbr-endnotes% "&Notes;") (define %gentext-ptbr-table-endnotes% "&TableNotes;:") (define %gentext-ptbr-index-see% "&See;") (define %gentext-ptbr-index-seealso% "&SeeAlso;") (define (gentext-ptbr-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-ptbr-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-ptbr-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-ptbr-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-ptbr-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-ptbr-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1pt.dsl0000644000175000001440000003514707314116047020077 0ustar msmithusers00000000000000 %pt.words; ]> ;; $Id: dbl1pt.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (pt-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (pt-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "o &appendix; %t")) (list (normalize "article") (string-append %gentext-pt-start-quote% "%t" %gentext-pt-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "o &chapter; %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "o §ion; %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "o §ion; %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "o §ion; %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "o §ion; %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "o §ion; %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "o §ion; %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "o §ion; %t")) (list (normalize "sidebar") "&sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-pt-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (pt-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (pt-auto-xref-indirect-connector before) (literal " ∈ ")) ;; Should the TOC come first or last? ;; (define %generate-pt-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (pt-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-pt-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (pt-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-pt-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-pt-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-pt-intra-label-sep) (list)) (define (pt-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-pt-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-pt-intra-label-sep))) (sep (assoc name (pt-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-pt-label-title-sep) (list)) (define (pt-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-pt-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-pt-label-title-sep))) (sep (assoc name (pt-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (pt-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (pt-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (pt-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (pt-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-pt$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (pt-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-pt-start-quote% (dingbat "ldquo")) (define %gentext-pt-end-quote% (dingbat "rdquo")) (define %gentext-pt-start-nested-quote% (dingbat "lsquo")) (define %gentext-pt-end-nested-quote% (dingbat "rsquo")) (define %gentext-pt-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-pt-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-pt-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-pt-page% "") (define %gentext-pt-and% "∧") (define %gentext-pt-listcomma% "&listcomma;") (define %gentext-pt-lastlistcomma% "&lastlistcomma;") (define %gentext-pt-bibl-pages% "&Pgs;") (define %gentext-pt-endnotes% "&Notes;") (define %gentext-pt-table-endnotes% "&TableNotes;:") (define %gentext-pt-index-see% "&See;") (define %gentext-pt-index-seealso% "&SeeAlso;") (define (gentext-pt-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-pt-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-pt-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-pt-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-pt-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-pt-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1pl.dsl0000644000175000001440000003501007314116047020054 0ustar msmithusers00000000000000 %pl.words; ]> ;; $Id: dbl1pl.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; Polish localization. ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Contributors: ;; Rafa\263 Kleger-Rudomin, ip011@osi.gda.pl (define (pl-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (pl-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "dodatek %t")) (list (normalize "article") (string-append %gentext-pl-start-quote% "%t" %gentext-pl-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "rozdzia³ %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "sekcja %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "sekcja %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "sekcja %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "sekcja %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "sekcja %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "sekcja %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "sekcja %t")) (list (normalize "sidebar") "&sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-pl-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (pl-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (pl-auto-xref-indirect-connector before) (literal " ∈ ")) ;; Should the TOC come first or last? ;; (define %generate-pl-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (pl-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-pl-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (pl-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-pl-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-pl-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-pl-intra-label-sep) (list)) (define (pl-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-pl-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-pl-intra-label-sep))) (sep (assoc name (pl-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-pl-label-title-sep) (list)) (define (pl-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-pl-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-pl-label-title-sep))) (sep (assoc name (pl-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (pl-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (pl-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (pl-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (pl-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-pl$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (pl-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-pl-start-quote% (dingbat "ldquor")) (define %gentext-pl-end-quote% (dingbat "rdquor")) (define %gentext-pl-start-nested-quote% (dingbat "lsquo")) (define %gentext-pl-end-nested-quote% (dingbat "rsquo")) (define %gentext-pl-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-pl-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-pl-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-pl-page% "") (define %gentext-pl-and% "∧") (define %gentext-pl-listcomma% "&listcomma;") (define %gentext-pl-lastlistcomma% "&lastlistcomma;") (define %gentext-pl-bibl-pages% "&Pgs;") (define %gentext-pl-endnotes% "&Notes;") (define %gentext-pl-table-endnotes% "&TableNotes;:") (define %gentext-pl-index-see% "&See;") (define %gentext-pl-index-seealso% "&SeeAlso;") (define (gentext-pl-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-pl-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-pl-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-pl-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-pl-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-pl-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1null.dsl0000644000175000001440000000036507262170713020422 0ustar msmithusers00000000000000 ;; No definitions... docbook-dsssl-1.79/common/dbl1no.dsl0000644000175000001440000003540207314116047020062 0ustar msmithusers00000000000000 %lat1; %no.words; ]> ;; $Id: dbl1no.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; Norsk Bokm\U-00E5;l localization. (a-ring) ;; Translated by Stig S. Bakken, ssb@guardian.no ;; Send changes to Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (no-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (no-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "tillegget kalt %t")) (list (normalize "article") (string-append %gentext-no-start-quote% "%t" %gentext-no-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "kapittelet kalt %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "seksjonen kalt %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "seksjonen kalt %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "seksjonen kalt %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "seksjonen kalt %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "seksjonen kalt %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "seksjonen kalt %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "seksjonen kalt %t")) (list (normalize "sidebar") "&sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-no-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (no-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (no-auto-xref-indirect-connector before) (literal " ∈ ")) ;; Should the TOC come first or last? ;; (define %generate-no-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (no-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-no-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (no-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-no-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-no-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-no-intra-label-sep) (list)) (define (no-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-no-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-no-intra-label-sep))) (sep (assoc name (no-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-no-label-title-sep) (list)) (define (no-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-no-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-no-label-title-sep))) (sep (assoc name (no-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (no-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (no-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (no-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (no-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-no$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (no-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-no-start-quote% (dingbat "ldquo")) (define %gentext-no-end-quote% (dingbat "rdquo")) (define %gentext-no-start-nested-quote% (dingbat "lsquo")) (define %gentext-no-end-nested-quote% (dingbat "rsquo")) (define %gentext-no-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-no-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-no-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-no-page% "") (define %gentext-no-and% "∧") (define %gentext-no-listcomma% "&listcomma;") (define %gentext-no-lastlistcomma% "&lastlistcomma;") (define %gentext-no-bibl-pages% "&Pgs;") (define %gentext-no-endnotes% "&Notes;") (define %gentext-no-table-endnotes% "&TableNotes;:") (define %gentext-no-index-see% "&See;") (define %gentext-no-index-seealso% "&SeeAlso;") (define (gentext-no-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-no-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-no-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-no-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-no-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-no-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1nn.dsl0000644000175000001440000003615307374555321020075 0ustar msmithusers00000000000000 %nn.words; ]> ;; $Id: dbl1nn.dsl,v 1.1 2001/11/14 20:57:53 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (nn-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (nn-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "the &appendix; called %t")) (list (normalize "article") (string-append %gentext-nn-start-quote% "%t" %gentext-nn-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "the &chapter; called %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sidebar") "the &sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-nn-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (nn-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (nn-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " ∈ ")) ((equal? (gi before) (normalize "chapter")) (literal " ∈ ")) ((equal? (gi before) (normalize "sect1")) (literal " ∈ ")) (else (literal " ∈ ")))) ;; Should the TOC come first or last? ;; (define %generate-nn-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (nn-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-nn-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (nn-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-nn-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-nn-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-nn-intra-label-sep) (list)) (define (nn-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-nn-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-nn-intra-label-sep))) (sep (assoc name (nn-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-nn-label-title-sep) (list)) (define (nn-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-nn-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-nn-label-title-sep))) (sep (assoc name (nn-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (nn-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (nn-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (nn-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (nn-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-nn$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (nn-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-nn-start-quote% (dingbat "ldquo")) (define %gentext-nn-end-quote% (dingbat "rdquo")) (define %gentext-nn-start-nested-quote% (dingbat "lsquo")) (define %gentext-nn-end-nested-quote% (dingbat "rsquo")) (define %gentext-nn-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-nn-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-nn-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-nn-page% "") (define %gentext-nn-and% "∧") (define %gentext-nn-listcomma% "&listcomma;") (define %gentext-nn-lastlistcomma% "&lastlistcomma;") (define %gentext-nn-bibl-pages% "&Pgs;") (define %gentext-nn-endnotes% "&Notes;") (define %gentext-nn-table-endnotes% "&TableNotes;:") (define %gentext-nn-index-see% "&See;") (define %gentext-nn-index-seealso% "&SeeAlso;") (define (gentext-nn-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-nn-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-nn-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-nn-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-nn-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-nn-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1nl.dsl0000644000175000001440000003533607314116047020065 0ustar msmithusers00000000000000 %nl.words; ]> ;; $Id: dbl1nl.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; ;; This is the Dutch localization ;; ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Contributors: ;; Hugo van der Kooij, hvdkooij@caiw.nl ;; Frederik Fouvry, fouvry@essex.ac.uk ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (nl-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (nl-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "&appendix; %t")) (list (normalize "article") (string-append %gentext-nl-start-quote% "%t" %gentext-nl-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "&chapter; %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "sidebar") "&sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-nl-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (nl-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (nl-auto-xref-indirect-connector before) (literal " ∈ ")) ;; Should the TOC come first or last? ;; (define %generate-nl-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (nl-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-nl-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (nl-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-nl-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-nl-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-nl-intra-label-sep) (list)) (define (nl-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-nl-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-nl-intra-label-sep))) (sep (assoc name (nl-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-nl-label-title-sep) (list)) (define (nl-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-nl-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-nl-label-title-sep))) (sep (assoc name (nl-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (nl-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (nl-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (nl-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (nl-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-nl$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (nl-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-nl-start-quote% (dingbat "ldquo")) (define %gentext-nl-end-quote% (dingbat "rdquo")) (define %gentext-nl-start-nested-quote% (dingbat "lsquo")) (define %gentext-nl-end-nested-quote% (dingbat "rsquo")) (define %gentext-nl-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-nl-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-nl-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-nl-page% "") (define %gentext-nl-and% "∧") (define %gentext-nl-listcomma% "&listcomma;") (define %gentext-nl-lastlistcomma% "&lastlistcomma;") (define %gentext-nl-bibl-pages% "&Pgs;") (define %gentext-nl-endnotes% "&Notes;") (define %gentext-nl-table-endnotes% "&TableNotes;:") (define %gentext-nl-index-see% "&See;") (define %gentext-nl-index-seealso% "&SeeAlso;") (define (gentext-nl-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-nl-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-nl-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-nl-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-nl-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-nl-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1ko.dsl0000644000175000001440000003651707314116047020067 0ustar msmithusers00000000000000 %ko.words; ]> ;; ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Contributor: ;; Park Yong Joo (yongjoo@kldp.org) 2001/01/06 ;; (define (ko-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, Surname, FirstName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. SurNameFirstName [OtherName], Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") ;; Format is "SurNameFirstName" for Korean naming rules. (if has_s (string-append (if has_h " " "") (data-of (node-list-first s_nl))) "") (if has_f (string-append (if (or has_h) " " "") (data-of (node-list-first f_nl))) "") ;; If you need "SurName FirstName" format, ;; comment out upper 6 lines and use this. ;; (if has_s (string-append ;; (if has_h " " "") ;; (data-of (node-list-first s_nl))) "") ;; (if has_f (string-append ;; (if (or has_h has_s) " " "") ;; (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_s has_f ) " " "") (data-of (node-list-first o_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (ko-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "\U-C81C;\U-BAA9;\U-C774; %t\U-C778; &appendix;")) (list (normalize "article") (string-append %gentext-ko-start-quote% "%t" %gentext-ko-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "%n\U-C7A5;" "`%t' &chapter;")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "%n &Part;") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "%n\U-C808;" "`%t' §ion;")) (list (normalize "sect1") (if %section-autolabel% "%n\U-C808;" "`%t' §ion;")) (list (normalize "sect2") (if %section-autolabel% "%n\U-C808;" "`%t' §ion;")) (list (normalize "sect3") (if %section-autolabel% "%n\U-C808;" "`%t' §ion;")) (list (normalize "sect4") (if %section-autolabel% "%n\U-C808;" "`%t' §ion;")) (list (normalize "sect5") (if %section-autolabel% "%n\U-C808;" "`%t' §ion;")) (list (normalize "simplesect") (if %section-autolabel% "%n\U-C808;" "`%t' §ion;")) (list (normalize "sidebar") "&sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-ko-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (ko-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (ko-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal "\U-C758; ")) ((equal? (gi before) (normalize "chapter")) (literal "\U-C758; ")) ((equal? (gi before) (normalize "sect1")) (literal "\U-C758; ")) (else (literal "\U-C758; ")))) ;; Should the TOC come first or last? ;; (define %generate-ko-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (ko-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&ISBN;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-ko-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (ko-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-ko-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-ko-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-ko-intra-label-sep) (list)) (define (ko-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-ko-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-ko-intra-label-sep))) (sep (assoc name (ko-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-ko-label-title-sep) (list)) (define (ko-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-ko-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-ko-label-title-sep))) (sep (assoc name (ko-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (ko-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (ko-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (ko-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (ko-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-ko$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (ko-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-ko-start-quote% (dingbat "ldquo")) (define %gentext-ko-end-quote% (dingbat "rdquo")) (define %gentext-ko-start-nested-quote% (dingbat "lsquo")) (define %gentext-ko-end-nested-quote% (dingbat "rsquo")) (define %gentext-ko-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-ko-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-ko-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-ko-page% "") (define %gentext-ko-and% "∧") (define %gentext-ko-listcomma% "&listcomma;") (define %gentext-ko-lastlistcomma% "&lastlistcomma;") (define %gentext-ko-bibl-pages% "&Pgs;") (define %gentext-ko-endnotes% "&Notes;") (define %gentext-ko-table-endnotes% "&TableNotes;:") (define %gentext-ko-index-see% "&See;") (define %gentext-ko-index-seealso% "&SeeAlso;") (define (gentext-ko-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-ko-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-ko-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-ko-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-ko-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-ko-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1ja.dsl0000644000175000001440000003577707314116047020057 0ustar msmithusers00000000000000 %ja.words; ]> ;; $Id: dbl1ja.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Contributors: ;; Karl Critz, kcritz@mathworks.com, contributed the original dbl1ja.ent file ;; ISHIDA Eri, eri@laser5.co.jp ;; Ryan Shaw, ryan@silveregg.co.jp (define (ja-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (ja-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix;%n" "%t&appendix;")) (list (normalize "article") (string-append %gentext-ja-start-quote% "%t" %gentext-ja-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter1;%n&Chapter2;" "%t&chapter;")) (list (normalize "equation") "&Equation;%n") (list (normalize "example") "&Example;%n") (list (normalize "figure") "&Figure;%n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part;%n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure;%n, %t") (list (normalize "reference") "&Reference;%n, %t") (list (normalize "section") (if %section-autolabel% "&Section;%n" "%t§ion;")) (list (normalize "sect1") (if %section-autolabel% "&Section;%n" "%t§ion;")) (list (normalize "sect2") (if %section-autolabel% "&Section;%n" "%t§ion;")) (list (normalize "sect3") (if %section-autolabel% "&Section;%n" "%t§ion;")) (list (normalize "sect4") (if %section-autolabel% "&Section;%n" "%t§ion;")) (list (normalize "sect5") (if %section-autolabel% "&Section;%n" "%t§ion;")) (list (normalize "simplesect") (if %section-autolabel% "&Section;%n" "%t§ion;")) (list (normalize "sidebar") "%t&sidebar;") (list (normalize "step") "&step;%n") (list (normalize "table") "&Table;%n"))) (define (gentext-ja-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (ja-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (ja-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal "∈")) ((equal? (gi before) (normalize "chapter")) (literal "∈")) ((equal? (gi before) (normalize "sect1")) (literal "∈")) (else (literal "∈")))) ;; Should the TOC come first or last? ;; (define %generate-ja-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (ja-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter1;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-ja-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (ja-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-ja-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-ja-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-ja-intra-label-sep) (list)) (define (ja-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-ja-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-ja-intra-label-sep))) (sep (assoc name (ja-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-ja-label-title-sep) (list)) (define (ja-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") "&Chapter2;") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-ja-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-ja-label-title-sep))) (sep (assoc name (ja-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (ja-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (ja-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (ja-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (ja-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-ja$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (ja-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-ja-start-quote% (dingbat "ldquo")) (define %gentext-ja-end-quote% (dingbat "rdquo")) (define %gentext-ja-start-nested-quote% (dingbat "lsquo")) (define %gentext-ja-end-nested-quote% (dingbat "rsquo")) (define %gentext-ja-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-ja-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-ja-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-ja-page% "") (define %gentext-ja-and% "∧") (define %gentext-ja-listcomma% "&listcomma;") (define %gentext-ja-lastlistcomma% "&lastlistcomma;") (define %gentext-ja-bibl-pages% "&Pgs;") (define %gentext-ja-endnotes% "&Notes;") (define %gentext-ja-table-endnotes% "&TableNotes;:") (define %gentext-ja-index-see% "&See;") (define %gentext-ja-index-seealso% "&SeeAlso;") (define (gentext-ja-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-ja-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-ja-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-ja-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-ja-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-ja-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1it.dsl0000644000175000001440000003765007314116047020071 0ustar msmithusers00000000000000 %it.words; ]> ;; $Id: dbl1it.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Contributors: ;; camille@mandrakesoft.com (define (it-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (it-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "&appendix; %t")) (list (normalize "article") (string-append %gentext-it-start-quote% "%t" %gentext-it-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "il &chapter; %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "la &Section; %n" "la §ion; %t")) (list (normalize "sect1") (if %section-autolabel% "la &Section; %n" "la §ion; %t")) (list (normalize "sect2") (if %section-autolabel% "la &Section; %n" "la §ion; %t")) (list (normalize "sect3") (if %section-autolabel% "la &Section; %n" "la §ion; %t")) (list (normalize "sect4") (if %section-autolabel% "la &Section; %n" "la §ion; %t")) (list (normalize "sect5") (if %section-autolabel% "la &Section; %n" "la §ion; %t")) (list (normalize "simplesect") (if %section-autolabel% "la &Section; %n" "la §ion; %t")) (list (normalize "sidebar") "the &sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-it-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (it-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (it-auto-xref-indirect-connector before) (cond ((member (gi before) (list (normalize "part") (normalize "set") (normalize "revision") (normalize "dedication") (normalize "bibliography") (normalize "preface") (normalize "figure") (normalize "procedure") (normalize "sidebar") (normalize "table") (normalize "sect1") (normalize "sect2") (normalize "sect3") (normalize "sect4") (normalize "sect5") (normalize "simplesect"))) (literal " nella ")) ((member (gi before) (list (normalize "appendix") (normalize "index") (normalize "abstract") (normalize "equation") (normalize "example") (normalize "article"))) (literal " nell'")) ((member (gi before) (list (normalize "book") (normalize "chapter") (normalize "step") (normalize "reference") (normalize "glossary"))) (literal " nel ")) ;; This is supposed never to be triggered! ;; I think the above conditions cover all the possible kinds of link ;; target containers (it's probably a superset, indeed). If they ;; don't, add the offending element to the correspondant list. (else (literal "[&unexpectedelementname;]")))) ;; Should the TOC come first or last? ;; (define %generate-it-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (it-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-it-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (it-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-it-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-it-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-it-intra-label-sep) (list)) (define (it-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-it-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-it-intra-label-sep))) (sep (assoc name (it-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-it-label-title-sep) (list)) (define (it-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-it-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-it-label-title-sep))) (sep (assoc name (it-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (it-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (it-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (it-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (it-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-it$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (it-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-it-start-quote% (dingbat "ldquo")) (define %gentext-it-end-quote% (dingbat "rdquo")) (define %gentext-it-start-nested-quote% (dingbat "lsquo")) (define %gentext-it-end-nested-quote% (dingbat "rsquo")) (define %gentext-it-by% "") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-it-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-it-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-it-page% "") (define %gentext-it-and% "∧") (define %gentext-it-listcomma% "&listcomma;") (define %gentext-it-lastlistcomma% "&lastlistcomma;") (define %gentext-it-bibl-pages% "&Pgs;") (define %gentext-it-endnotes% "&Notes;") (define %gentext-it-table-endnotes% "&TableNotes;:") (define %gentext-it-index-see% "&See;") (define %gentext-it-index-seealso% "&SeeAlso;") (define (gentext-it-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-it-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-it-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-it-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-it-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-it-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1id.dsl0000644000175000001440000006310207314116047020040 0ustar msmithusers00000000000000 %id.words; ]> ;; $Id: dbl1id.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; ;; 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;"))) docbook-dsssl-1.79/common/dbl1hu.dsl0000644000175000001440000003564107314116047020067 0ustar msmithusers00000000000000 %hu.words; ]> ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; ;; Contributors: ;; Hojtsy Gabor, hgoba@freemail.c3.hu ;; (define (hu-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (hu-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "%n &Appendix;" "%t")) (list (normalize "article") (string-append %gentext-hu-start-quote% "%t" %gentext-hu-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "%n &chapter;" "%t")) (list (normalize "equation") "%n &Equation;") (list (normalize "example") "%n &Example;") (list (normalize "figure") "%n &Figure;") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "%n &Part;") (list (normalize "preface") "%t") (list (normalize "procedure") "%n, %t &Procedure; ") (list (normalize "reference") "%n, %t &Reference; ") (list (normalize "section") (if %section-autolabel% "%n &Section;" "%t")) (list (normalize "sect1") (if %section-autolabel% "%n &Section;" "%t")) (list (normalize "sect2") (if %section-autolabel% "%n &Section;" "%t")) (list (normalize "sect3") (if %section-autolabel% "%n &Section;" "%t")) (list (normalize "sect4") (if %section-autolabel% "%n &Section;" "%t")) (list (normalize "sect5") (if %section-autolabel% "%n &Section;" "%t")) (list (normalize "simplesect") (if %section-autolabel% "%n &Section;" "%t")) (list (normalize "sidebar") "%t") (list (normalize "step") "%n &step;") (list (normalize "table") "%n &Table;"))) (define (gentext-hu-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (hu-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (hu-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " ∈ ")) ((equal? (gi before) (normalize "chapter")) (literal " ∈ ")) ((equal? (gi before) (normalize "sect1")) (literal " ∈ ")) (else (literal " ∈ ")))) ;; Should the TOC come first or last? ;; (define %generate-hu-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (hu-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-hu-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (hu-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-hu-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-hu-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-hu-intra-label-sep) (list)) (define (hu-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-hu-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-hu-intra-label-sep))) (sep (assoc name (hu-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-hu-label-title-sep) (list)) (define (hu-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-hu-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-hu-label-title-sep))) (sep (assoc name (hu-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (hu-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (hu-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (hu-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (hu-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-hu$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (hu-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-hu-start-quote% (dingbat "ldquo")) (define %gentext-hu-end-quote% (dingbat "rdquo")) (define %gentext-hu-start-nested-quote% (dingbat "lsquo")) (define %gentext-hu-end-nested-quote% (dingbat "rsquo")) (define %gentext-hu-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-hu-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-hu-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-hu-page% "") (define %gentext-hu-and% "∧") (define %gentext-hu-listcomma% "&listcomma;") (define %gentext-hu-lastlistcomma% "&lastlistcomma;") (define %gentext-hu-bibl-pages% "&Pgs;") (define %gentext-hu-endnotes% "&Notes;") (define %gentext-hu-table-endnotes% "&TableNotes;:") (define %gentext-hu-index-see% "&See;") (define %gentext-hu-index-seealso% "&SeeAlso;") (define (gentext-hu-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-hu-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-hu-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-hu-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-hu-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-hu-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1fr.dsl0000644000175000001440000003624707434747643020104 0ustar msmithusers00000000000000 %fr.words; ]> ;; $Id: dbl1fr.dsl,v 1.3 2002/02/20 16:32:35 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; ;; Contributors: ;; Rainer Feuerstein, fire@informatik.uni-wuerzburg.de ;; Christian Leutloff, leutloff@sundancer.oche.de ;; Eric Bischoff, e.bischoff@noos.fr ;; Frederik Fouvry, fouvry@CoLi.Uni-SB.DE (define (fr-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (fr-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "l'annexe intitulée %t")) (list (normalize "article") (string-append %gentext-fr-start-quote% "%t" %gentext-fr-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "le chapitre intitulé %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "la section intitulée %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "la section intitulée %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "la section intitulée %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "la section intitulée %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "la section intitulée %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "la section intitulée %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "la section intitulée %t")) (list (normalize "sidebar") "&sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-fr-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (fr-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (fr-auto-xref-indirect-connector before) (literal " ∈ ")) ;; Should the TOC come first or last? ;; (define %generate-fr-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (fr-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-fr-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (fr-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-fr-element-name : &unexpectedelementname; : " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-fr-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-fr-intra-label-sep) (list)) (define (fr-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-fr-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-fr-intra-label-sep))) (sep (assoc name (fr-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-fr-label-title-sep) (list)) (define (fr-label-title-sep) (list (list (normalize "abstract") "\U-00A0;: ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") "\U-00A0;: ") (list (normalize "glossseealso") "\U-00A0;: ") (list (normalize "important") "\U-00A0;: ") (list (normalize "note") "\U-00A0;: ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") "\U-00A0;: ") (list (normalize "warning") "") )) (define (gentext-fr-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-fr-label-title-sep))) (sep (assoc name (fr-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (fr-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (fr-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (fr-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (fr-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-fr$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (fr-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;\U-00A0;: " name)) (err (node-list-error msg (current-node)))) msg)))) ; nbsp; (define %gentext-fr-start-quote% (string-append (dingbat "laquo") "\U-00A0;")) (define %gentext-fr-end-quote% (string-append "\U-00A0;" (dingbat "raquo"))) (define %gentext-fr-start-nested-quote% (string-append (dingbat "lsaquo") "\U-00A0;")) (define %gentext-fr-end-nested-quote% (string-append (dingbat "rsaquo") "\U-00A0;")) (define %gentext-fr-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-fr-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-fr-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-fr-page% "") (define %gentext-fr-and% "∧") (define %gentext-fr-listcomma% "&listcomma;") (define %gentext-fr-lastlistcomma% "&lastlistcomma;") (define %gentext-fr-bibl-pages% "&Pgs;") (define %gentext-fr-endnotes% "&Notes;") (define %gentext-fr-table-endnotes% "&TableNotes;\U-00A0;:") (define %gentext-fr-index-see% "&See;") (define %gentext-fr-index-seealso% "&SeeAlso;") (define (gentext-fr-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-fr-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-fr-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-fr-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-fr-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-fr-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1fi.dsl0000644000175000001440000003554507314116047020054 0ustar msmithusers00000000000000 %fi.words; ]> ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (fi-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (fi-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "%t")) (list (normalize "article") (string-append %gentext-fi-start-quote% "%t" %gentext-fi-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "%t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "%t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "%t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "%t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "%t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "%t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "%t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "%t")) (list (normalize "sidebar") "%t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-fi-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (fi-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (fi-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " ∈ ")) ((equal? (gi before) (normalize "chapter")) (literal " ∈ ")) ((equal? (gi before) (normalize "sect1")) (literal " ∈ ")) (else (literal " ∈ ")))) ;; Should the TOC come first or last? ;; (define %generate-fi-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (fi-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-fi-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (fi-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-fi-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-fi-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-fi-intra-label-sep) (list)) (define (fi-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-fi-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-fi-intra-label-sep))) (sep (assoc name (fi-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-fi-label-title-sep) (list)) (define (fi-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-fi-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-fi-label-title-sep))) (sep (assoc name (fi-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (fi-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (fi-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (fi-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (fi-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-fi$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (fi-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-fi-start-quote% (dingbat "ldquo")) (define %gentext-fi-end-quote% (dingbat "rdquo")) (define %gentext-fi-start-nested-quote% (dingbat "lsquo")) (define %gentext-fi-end-nested-quote% (dingbat "rsquo")) (define %gentext-fi-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-fi-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-fi-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-fi-page% "") (define %gentext-fi-and% "∧") (define %gentext-fi-listcomma% "&listcomma;") (define %gentext-fi-lastlistcomma% "&lastlistcomma;") (define %gentext-fi-bibl-pages% "&Pgs;") (define %gentext-fi-endnotes% "&Notes;") (define %gentext-fi-table-endnotes% "&TableNotes;:") (define %gentext-fi-index-see% "&See;") (define %gentext-fi-index-seealso% "&SeeAlso;") (define (gentext-fi-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-fi-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-fi-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-fi-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-fi-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-fi-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1eu.dsl0000644000175000001440000003615207374555321020072 0ustar msmithusers00000000000000 %eu.words; ]> ;; $Id: dbl1eu.dsl,v 1.1 2001/11/14 20:57:53 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (eu-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (eu-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "the &appendix; called %t")) (list (normalize "article") (string-append %gentext-eu-start-quote% "%t" %gentext-eu-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "the &chapter; called %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sidebar") "the &sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-eu-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (eu-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (eu-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " ∈ ")) ((equal? (gi before) (normalize "chapter")) (literal " ∈ ")) ((equal? (gi before) (normalize "sect1")) (literal " ∈ ")) (else (literal " ∈ ")))) ;; Should the TOC come first or last? ;; (define %generate-eu-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (eu-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-eu-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (eu-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-eu-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-eu-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-eu-intra-label-sep) (list)) (define (eu-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-eu-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-eu-intra-label-sep))) (sep (assoc name (eu-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-eu-label-title-sep) (list)) (define (eu-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-eu-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-eu-label-title-sep))) (sep (assoc name (eu-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (eu-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (eu-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (eu-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (eu-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-eu$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (eu-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-eu-start-quote% (dingbat "ldquo")) (define %gentext-eu-end-quote% (dingbat "rdquo")) (define %gentext-eu-start-nested-quote% (dingbat "lsquo")) (define %gentext-eu-end-nested-quote% (dingbat "rsquo")) (define %gentext-eu-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-eu-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-eu-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-eu-page% "") (define %gentext-eu-and% "∧") (define %gentext-eu-listcomma% "&listcomma;") (define %gentext-eu-lastlistcomma% "&lastlistcomma;") (define %gentext-eu-bibl-pages% "&Pgs;") (define %gentext-eu-endnotes% "&Notes;") (define %gentext-eu-table-endnotes% "&TableNotes;:") (define %gentext-eu-index-see% "&See;") (define %gentext-eu-index-seealso% "&SeeAlso;") (define (gentext-eu-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-eu-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-eu-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-eu-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-eu-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-eu-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1et.dsl0000644000175000001440000003575707314116047020073 0ustar msmithusers00000000000000 %et.words; ]> ;; $Id: dbl1et.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (et-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (et-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "&appendix; %t")) (list (normalize "article") (string-append %gentext-et-start-quote% "%t" %gentext-et-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "&chapter; %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "§ion; %t")) (list (normalize "sidebar") "&sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-et-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (et-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (et-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " ∈ ")) ((equal? (gi before) (normalize "chapter")) (literal " ∈ ")) ((equal? (gi before) (normalize "sect1")) (literal " ∈ ")) (else (literal " ∈ ")))) ;; Should the TOC come first or last? ;; (define %generate-et-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (et-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-et-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (et-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-et-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-et-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-et-intra-label-sep) (list)) (define (et-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-et-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (et-intra-label-sep))) (sep (assoc name (en-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-et-label-title-sep) (list)) (define (et-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-et-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-et-label-title-sep))) (sep (assoc name (et-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (et-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (et-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (et-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (et-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-et$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (et-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-et-start-quote% (dingbat "ldquo")) (define %gentext-et-end-quote% (dingbat "rdquo")) (define %gentext-et-start-nested-quote% (dingbat "lsquo")) (define %gentext-et-end-nested-quote% (dingbat "rsquo")) (define %gentext-et-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-et-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-et-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-et-page% "") (define %gentext-et-and% "∧") (define %gentext-et-listcomma% "&listcomma;") (define %gentext-et-lastlistcomma% "&lastlistcomma;") (define %gentext-et-bibl-pages% "&Pgs;") (define %gentext-et-endnotes% "&Notes;") (define %gentext-et-table-endnotes% "&TableNotes;:") (define %gentext-et-index-see% "&See;") (define %gentext-et-index-seealso% "&SeeAlso;") (define (gentext-et-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-et-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-et-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-et-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-et-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-et-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1es.dsl0000644000175000001440000003531407314116047020057 0ustar msmithusers00000000000000 %es.words; ]> ;; $Id: dbl1es.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (es-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (es-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "el &appendix; de nombre %t")) (list (normalize "article") (string-append %gentext-es-start-quote% "%t" %gentext-es-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "el &chapter; de nombre %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "la §ion; de nombre %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "la §ion; de nombre %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "la §ion; de nombre %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "la §ion; de nombre %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "la §ion; de nombre %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "la §ion; de nombre %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "la §ion; de nombre %t")) (list (normalize "sidebar") "&sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-es-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (es-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (es-auto-xref-indirect-connector before) (literal " ∈ ")) ;; Should the TOC come first or last? ;; (define %generate-es-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (es-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-es-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (es-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-es-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-es-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-es-intra-label-sep) (list)) (define (es-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-es-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-es-intra-label-sep))) (sep (assoc name (es-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-es-label-title-sep) (list)) (define (es-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-es-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-es-label-title-sep))) (sep (assoc name (es-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (es-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (es-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (es-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (es-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-es$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (es-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-es-start-quote% (dingbat "ldquo")) (define %gentext-es-end-quote% (dingbat "rdquo")) (define %gentext-es-start-nested-quote% (dingbat "lsquo")) (define %gentext-es-end-nested-quote% (dingbat "rsquo")) (define %gentext-es-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-es-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-es-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-es-page% "") (define %gentext-es-and% "∧") (define %gentext-es-listcomma% "&listcomma;") (define %gentext-es-lastlistcomma% "&lastlistcomma;") (define %gentext-es-bibl-pages% "&Pgs;") (define %gentext-es-endnotes% "&Notes;") (define %gentext-es-table-endnotes% "&TableNotes;:") (define %gentext-es-index-see% "&See;") (define %gentext-es-index-seealso% "&SeeAlso;") (define (gentext-es-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-es-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-es-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-es-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-es-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-es-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1en.dsl0000644000175000001440000003615407600477316020064 0ustar msmithusers00000000000000 %en.words; ]> ;; $Id: dbl1en.dsl,v 1.3 2002/12/20 02:22:06 adicarlo Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (en-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (en-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "the &appendix; called %t")) (list (normalize "article") (string-append %gentext-en-start-quote% "%t" %gentext-en-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "the &chapter; called %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sidebar") "the &sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-en-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (en-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (en-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " ∈ ")) ((equal? (gi before) (normalize "chapter")) (literal " ∈ ")) ((equal? (gi before) (normalize "sect1")) (literal " ∈ ")) (else (literal " ∈ ")))) ;; Should the TOC come first or last? ;; (define %generate-en-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (en-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&see;") (list (normalize "seealsoie") "&seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-en-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (en-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-en-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-en-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-en-intra-label-sep) (list)) (define (en-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-en-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-en-intra-label-sep))) (sep (assoc name (en-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-en-label-title-sep) (list)) (define (en-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-en-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-en-label-title-sep))) (sep (assoc name (en-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (en-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (en-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (en-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (en-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-en$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (en-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-en-start-quote% (dingbat "ldquo")) (define %gentext-en-end-quote% (dingbat "rdquo")) (define %gentext-en-start-nested-quote% (dingbat "lsquo")) (define %gentext-en-end-nested-quote% (dingbat "rsquo")) (define %gentext-en-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-en-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-en-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-en-page% "") (define %gentext-en-and% "∧") (define %gentext-en-listcomma% "&listcomma;") (define %gentext-en-lastlistcomma% "&lastlistcomma;") (define %gentext-en-bibl-pages% "&Pgs;") (define %gentext-en-endnotes% "&Notes;") (define %gentext-en-table-endnotes% "&TableNotes;:") (define %gentext-en-index-see% "&see;") (define %gentext-en-index-seealso% "&seealso;") (define (gentext-en-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-en-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-en-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-en-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-en-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-en-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1el.dsl0000644000175000001440000003702107314116047020045 0ustar msmithusers00000000000000 %el.words; ]> ;; $Id: dbl1el.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (el-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (el-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "ôï &appendix; ìå üíïìá %t")) (list (normalize "article") (string-append %gentext-el-start-quote% "%t" %gentext-el-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "ôï &chapter; ìå üíïìá %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "ôï §ion; ìå üíïìá %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "ôï §ion; ìå üíïìá %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "ôï §ion; ìå üíïìá %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "ôï §ion; ìå üíïìá %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "ôï §ion; ìå üíïìá %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "ôï §ion; ìå üíïìá %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "ôï §ion; ìå üíïìá %t")) (list (normalize "sidebar") "ôï &sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-el-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (el-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (el-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " ∈ ")) ((equal? (gi before) (normalize "chapter")) (literal " ∈ ")) ((equal? (gi before) (normalize "sect1")) (literal " ∈ ")) (else (literal " ∈ ")))) ;; Should the TOC come first or last? ;; (define %generate-el-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (el-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-el-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (el-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-el-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-el-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-el-intra-label-sep) (list)) (define (el-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-el-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-el-intra-label-sep))) (sep (assoc name (el-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-el-label-title-sep) (list)) (define (el-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-el-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-el-label-title-sep))) (sep (assoc name (el-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (el-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (el-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (el-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (el-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-el$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (el-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-el-start-quote% (dingbat "ldquo")) (define %gentext-el-end-quote% (dingbat "rdquo")) (define %gentext-el-start-nested-quote% (dingbat "lsquo")) (define %gentext-el-end-nested-quote% (dingbat "rsquo")) (define %gentext-el-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-el-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-el-revised-by% "&Editedby;") ;; "Revised by" Jane Doe (define %gentext-el-page% "") (define %gentext-el-and% "∧") (define %gentext-el-listcomma% "&listcomma;") (define %gentext-el-lastlistcomma% "&lastlistcomma;") (define %gentext-el-bibl-pages% "&Pgs;") (define %gentext-el-endnotes% "&Notes;") (define %gentext-el-table-endnotes% "&TableNotes;:") (define %gentext-el-index-see% "&See;") (define %gentext-el-index-seealso% "&SeeAlso;") (define (gentext-el-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-el-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-el-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-el-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-el-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-el-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1de.dsl0000644000175000001440000003612407314116047020040 0ustar msmithusers00000000000000 %de.words; ]> ;; $Id: dbl1de.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Contributors: ;; Rainer Feuerstein, fire@informatik.uni-wuerzburg.de, ;; Christian Leutloff, leutloff@sundancer.oche.de ;; Ulrich Windl, Ulrich.Windl@rz.uni-regensburg.de ;; Christian Kirsch, ck@held.mind.de ;; Joerg Wittenberger, Joerg.Wittenberger@pobox.com (define (de-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (de-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "&Appendix; namens %t")) (list (normalize "article") (string-append %gentext-de-start-quote% "%t" %gentext-de-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "&Chapter; namens %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "&Section; namens %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "&Section; namens %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "&Section; namens %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "&Section; namens %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "&Section; namens %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "&Section; namens %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "&Section; namens %t")) (list (normalize "sidebar") "&Sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-de-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (de-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (de-auto-xref-indirect-connector before) ;; In German one usually says "... in dem Buch ..." (probably because ;; it's a larger piece of work and more commonly known) (cond ((equal? (gi before) (normalize "book")) (literal " ∈ dem ")) ((equal? (gi before) (normalize "chapter")) (literal " ∈ ")) ((equal? (gi before) (normalize "sect1")) (literal " ∈ ")) (else (literal " ∈ ")))) ;; Should the TOC come first or last? ;; (define %generate-de-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (de-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-de-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (de-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-de-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-de-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-de-intra-label-sep) (list)) (define (de-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-de-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-de-intra-label-sep))) (sep (assoc name (de-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-de-label-title-sep) (list)) (define (de-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-de-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-de-label-title-sep))) (sep (assoc name (de-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (de-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (de-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (de-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (de-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-de$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (de-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-de-start-quote% "\U-201E;") (define %gentext-de-end-quote% "\U-201C;") (define %gentext-de-start-nested-quote% "\U-201A;") (define %gentext-de-end-nested-quote% "\U-2018;") (define %gentext-de-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-de-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-de-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-de-page% "") (define %gentext-de-and% "∧") (define %gentext-de-listcomma% "&listcomma;") (define %gentext-de-lastlistcomma% "&lastlistcomma;") (define %gentext-de-bibl-pages% "&Pgs;") (define %gentext-de-endnotes% "&Notes;") (define %gentext-de-table-endnotes% "&TableNotes;:") (define %gentext-de-index-see% "&See;") (define %gentext-de-index-seealso% "&SeeAlso;") (define (gentext-de-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-de-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-de-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-de-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-de-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-de-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1da.dsl0000644000175000001440000003511107314116047020027 0ustar msmithusers00000000000000 %da.words; ]> ;; $Id: dbl1da.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Contributors: ;; Finn Bock, fbo@dde.dk (define (da-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (da-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "&appendix; med navn %t")) (list (normalize "article") (string-append %gentext-da-start-quote% "%t" %gentext-da-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "kapitlet om %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "sektionen med navn %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "sektionen med navn %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "undersektionen med navn %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "undersektionen med navn %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "undersektionen med navn %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "undersektionen med navn %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "undersektionen med navn %t")) (list (normalize "sidebar") "&sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-da-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (da-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (da-auto-xref-indirect-connector before) (literal " i ")) ;; Should the TOC come first or last? ;; (define %generate-da-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (da-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-da-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (da-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-da-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-da-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-da-intra-label-sep) (list)) (define (da-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-da-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-da-intra-label-sep))) (sep (assoc name (da-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-da-label-title-sep) (list)) (define (da-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-da-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-da-label-title-sep))) (sep (assoc name (da-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (da-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (da-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (da-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (da-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-da$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (da-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-da-start-quote% (dingbat "ldquo")) (define %gentext-da-end-quote% (dingbat "rdquo")) (define %gentext-da-start-nested-quote% (dingbat "lsquo")) (define %gentext-da-end-nested-quote% (dingbat "rsquo")) (define %gentext-da-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-da-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-da-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-da-page% "") (define %gentext-da-and% "∧") (define %gentext-da-listcomma% "&listcomma;") (define %gentext-da-lastlistcomma% "&lastlistcomma;") (define %gentext-da-bibl-pages% "&Pgs;") (define %gentext-da-endnotes% "&Notes;") (define %gentext-da-table-endnotes% "&TableNotes;:") (define %gentext-da-index-see% "&See;") (define %gentext-da-index-seealso% "&SeeAlso;") (define (gentext-da-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-da-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-da-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-da-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-da-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-da-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1cs.dsl0000644000175000001440000003553007345706364020070 0ustar msmithusers00000000000000 %cs.words; ]> ;; $Id: dbl1cs.dsl,v 1.3 2001/09/06 14:49:24 kosek Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Contributors: ;; Ralf Schleitzer, ralf.schleitzer@ixos.de (define (cs-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (cs-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "%n" "%n \U-2013; \U-201E;%t\U-201C;")) (list (normalize "article") (string-append %gentext-cs-start-quote% "%t" %gentext-cs-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "%n" "%n \U-2013; \U-201E;%t\U-201C;")) (list (normalize "equation") "%n") (list (normalize "example") "%n") (list (normalize "figure") "%n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "%n \U-2013; \U-201E;%t\U-201C;") (list (normalize "preface") "%t") (list (normalize "procedure") "%n \U-2013; \U-201E;%t\U-201C;") (list (normalize "reference") "%t") (list (normalize "section") (if %section-autolabel% "%n" "\U-201E;%t\U-201C;")) (list (normalize "sect1") (if %section-autolabel% "%n" "\U-201E;%t\U-201C;")) (list (normalize "sect2") (if %section-autolabel% "%n" "\U-201E;%t\U-201C;")) (list (normalize "sect3") (if %section-autolabel% "%n" "\U-201E;%t\U-201C;")) (list (normalize "sect4") (if %section-autolabel% "%n" "\U-201E;%t\U-201C;")) (list (normalize "sect5") (if %section-autolabel% "%n" "\U-201E;%t\U-201C;")) (list (normalize "simplesect") (if %section-autolabel% "%n" "\U-201E;%t\U-201C;")) (list (normalize "sidebar") "%t") (list (normalize "step") "%n") (list (normalize "table") "%n"))) (define (gentext-cs-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (cs-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (cs-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " ∈ ")) ((equal? (gi before) (normalize "chapter")) (literal " ∈ ")) ((equal? (gi before) (normalize "sect1")) (literal " ∈ ")) (else (literal " ∈ ")))) ;; Should the TOC come first or last? ;; (define %generate-cs-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (cs-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-cs-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (cs-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-cs-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-cs-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-cs-intra-label-sep) (list)) (define (cs-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-cs-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-cs-intra-label-sep))) (sep (assoc name (cs-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-cs-label-title-sep) (list)) (define (cs-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-cs-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-cs-label-title-sep))) (sep (assoc name (cs-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (cs-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (cs-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (cs-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (cs-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-cs$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (cs-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-cs-start-quote% "\U-201E;") (define %gentext-cs-end-quote% "\U-201C;") (define %gentext-cs-start-nested-quote% "\U-201A;") (define %gentext-cs-end-nested-quote% "\U-2018;") (define %gentext-cs-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-cs-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-cs-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-cs-page% "") (define %gentext-cs-and% "∧") (define %gentext-cs-listcomma% "&listcomma;") (define %gentext-cs-lastlistcomma% "&lastlistcomma;") (define %gentext-cs-bibl-pages% "&Pgs;") (define %gentext-cs-endnotes% "&Notes;") (define %gentext-cs-table-endnotes% "&TableNotes;:") (define %gentext-cs-index-see% "&See;") (define %gentext-cs-index-seealso% "&SeeAlso;") (define (gentext-cs-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-cs-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-cs-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-cs-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-cs-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-cs-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1ca.dsl0000644000175000001440000003606607314116047020040 0ustar msmithusers00000000000000 %ca.words; ]> ;; $Id: dbl1ca.dsl,v 1.2 2001/06/20 12:50:47 nwalsh Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Contributors: ;; Perceval - Marc Huguet Puig, mhp@nil.fut.es ;; marc*, marc.gonzalez-carnicer@european-go.org (define (ca-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (ca-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "l'&appendix; de nom %t")) (list (normalize "article") (string-append %gentext-ca-start-quote% "%t" %gentext-ca-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "el &chapter; de nom %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "la §ion; de nom %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "la §ion; de nom %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "la §ion; de nom %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "la §ion; de nom %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "la §ion; de nom %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "la §ion; de nom %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "la §ion; de nom %t")) (list (normalize "sidebar") "la &sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-ca-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (ca-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (ca-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " al ")) ((equal? (gi before) (normalize "chapter")) (literal " al; ")) ((equal? (gi before) (normalize "sect1")) (literal " a la; ")) (else (literal " ∈ ")))) ;; Should the TOC come first or last? ;; (define %generate-ca-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (ca-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-ca-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (ca-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-ca-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-ca-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-ca-intra-label-sep) (list)) (define (ca-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-ca-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-ca-intra-label-sep))) (sep (assoc name (ca-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-ca-label-title-sep) (list)) (define (ca-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-ca-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-ca-label-title-sep))) (sep (assoc name (ca-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (ca-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (ca-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (ca-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (ca-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-ca$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (ca-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-ca-start-quote% (dingbat "ldquo")) (define %gentext-ca-end-quote% (dingbat "rdquo")) (define %gentext-ca-start-nested-quote% (dingbat "lsquo")) (define %gentext-ca-end-nested-quote% (dingbat "rsquo")) (define %gentext-ca-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-ca-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-ca-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-ca-page% "") (define %gentext-ca-and% "∧") (define %gentext-ca-listcomma% "&listcomma;") (define %gentext-ca-lastlistcomma% "&lastlistcomma;") (define %gentext-ca-bibl-pages% "&Pgs;") (define %gentext-ca-endnotes% "&Notes;") (define %gentext-ca-table-endnotes% "&TableNotes;:") (define %gentext-ca-index-see% "&See;") (define %gentext-ca-index-seealso% "&SeeAlso;") (define (gentext-ca-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-ca-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-ca-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-ca-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-ca-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-ca-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1bs.dsl0000644000175000001440000003615410132053245020047 0ustar msmithusers00000000000000 %bs.words; ]> ;; $Id: dbl1bs.dsl,v 1.2 2004/10/09 21:16:26 petere78 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (bs-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (bs-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "&appendix; sa nazivom %t")) (list (normalize "article") (string-append %gentext-bs-start-quote% "%t" %gentext-bs-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "&chapter; sa nazivom %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "§ion; sa nazivom %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "§ion; sa nazivom %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "§ion; sa nazivom %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "§ion; sa nazivom %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "§ion; sa nazivom %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "§ion; sa nazivom %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "§ion; sa nazivom %t")) (list (normalize "sidebar") "the &sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-bs-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (bs-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (bs-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " ∈ ")) ((equal? (gi before) (normalize "chapter")) (literal " ∈ ")) ((equal? (gi before) (normalize "sect1")) (literal " ∈ ")) (else (literal " ∈ ")))) ;; Should the TOC come first or last? ;; (define %generate-bs-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (bs-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&isbn;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&see;") (list (normalize "seealsoie") "&seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-bs-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (bs-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-bs-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-bs-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-bs-intra-label-sep) (list)) (define (bs-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-bs-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-bs-intra-label-sep))) (sep (assoc name (bs-intra-label-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-bs-label-title-sep) (list)) (define (bs-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-bs-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (lsep (assoc name (local-bs-label-title-sep))) (sep (assoc name (bs-label-title-sep)))) (if lsep (car (cdr lsep)) (if sep (car (cdr sep)) "")))) (define (bs-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (bs-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (bs-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (bs-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-bs$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (bs-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-bs-start-quote% (dingbat "ldquo")) (define %gentext-bs-end-quote% (dingbat "rdquo")) (define %gentext-bs-start-nested-quote% (dingbat "lsquo")) (define %gentext-bs-end-nested-quote% (dingbat "rsquo")) (define %gentext-bs-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-bs-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-bs-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-bs-page% "") (define %gentext-bs-and% "∧") (define %gentext-bs-listcomma% "&listcomma;") (define %gentext-bs-lastlistcomma% "&lastlistcomma;") (define %gentext-bs-bibl-pages% "&Pgs;") (define %gentext-bs-endnotes% "&Notes;") (define %gentext-bs-table-endnotes% "&TableNotes;:") (define %gentext-bs-index-see% "&see;") (define %gentext-bs-index-seealso% "&seealso;") (define (gentext-bs-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-bs-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-bs-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-bs-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-bs-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-bs-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl1af.dsl0000644000175000001440000003566007320626050020037 0ustar msmithusers00000000000000 %af.words; ]> ;; $Id: dbl1af.dsl,v 1.1 2001/07/04 14:46:00 uid48421 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com ;; Modified for Afrikaans ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x ;; keywords. ;; (define (af-author-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of: ;; AUTHOR: ;; Handles Honorific, FirstName, SurName, and Lineage. ;; If %author-othername-in-middle% is #t, also OtherName ;; Handles *only* the first of each. ;; Format is "Honorific. FirstName [OtherName] SurName, Lineage" ;; CORPAUTHOR: ;; returns (data corpauthor) (let* ((h_nl (select-elements (descendants author) (normalize "honorific"))) (f_nl (select-elements (descendants author) (normalize "firstname"))) (o_nl (select-elements (descendants author) (normalize "othername"))) (s_nl (select-elements (descendants author) (normalize "surname"))) (l_nl (select-elements (descendants author) (normalize "lineage"))) (has_h (not (node-list-empty? h_nl))) (has_f (not (node-list-empty? f_nl))) (has_o (and %author-othername-in-middle% (not (node-list-empty? o_nl)))) (has_s (not (node-list-empty? s_nl))) (has_l (not (node-list-empty? l_nl)))) (if (or (equal? (gi author) (normalize "author")) (equal? (gi author) (normalize "editor")) (equal? (gi author) (normalize "othercredit"))) (string-append (if has_h (string-append (data-of (node-list-first h_nl)) %honorific-punctuation%) "") (if has_f (string-append (if has_h " " "") (data-of (node-list-first f_nl))) "") (if has_o (string-append (if (or has_h has_f) " " "") (data-of (node-list-first o_nl))) "") (if has_s (string-append (if (or has_h has_f has_o) " " "") (data-of (node-list-first s_nl))) "") (if has_l (string-append ", " (data-of (node-list-first l_nl))) "")) (data-of author)))) (define (af-xref-strings) (list (list (normalize "appendix") (if %chapter-autolabel% "&Appendix; %n" "the &appendix; called %t")) (list (normalize "article") (string-append %gentext-af-start-quote% "%t" %gentext-af-end-quote%)) (list (normalize "bibliography") "%t") (list (normalize "book") "%t") (list (normalize "chapter") (if %chapter-autolabel% "&Chapter; %n" "the &chapter; called %t")) (list (normalize "equation") "&Equation; %n") (list (normalize "example") "&Example; %n") (list (normalize "figure") "&Figure; %n") (list (normalize "glossary") "%t") (list (normalize "index") "%t") (list (normalize "listitem") "%n") (list (normalize "part") "&Part; %n") (list (normalize "preface") "%t") (list (normalize "procedure") "&Procedure; %n, %t") (list (normalize "reference") "&Reference; %n, %t") (list (normalize "section") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect1") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect2") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect3") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect4") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sect5") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "simplesect") (if %section-autolabel% "&Section; %n" "the §ion; called %t")) (list (normalize "sidebar") "the &sidebar; %t") (list (normalize "step") "&step; %n") (list (normalize "table") "&Table; %n"))) (define (gentext-af-xref-strings gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (xref (assoc name (af-xref-strings)))) (if xref (car (cdr xref)) (let* ((msg (string-append "[&xrefto; " (if giname giname "&nonexistantelement;") " &unsupported;]")) (err (node-list-error msg (current-node)))) msg)))) (define (af-auto-xref-indirect-connector before) ;; In English, the (cond) is unnecessary since the word is always the ;; same, but in other languages, that's not the case. I've set this ;; one up with the (cond) so it stands as an example. (cond ((equal? (gi before) (normalize "book")) (literal " ∈ ")) ((equal? (gi before) (normalize "chapter")) (literal " ∈ ")) ((equal? (gi before) (normalize "sect1")) (literal " ∈ ")) (else (literal " ∈ ")))) ;; Should the TOC come first or last? ;; (define %generate-af-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (af-element-name) (list (list (normalize "abstract") "&Abstract;") (list (normalize "answer") "&Answer;") (list (normalize "appendix") "&Appendix;") (list (normalize "article") "&Article;") (list (normalize "bibliography") "&Bibliography;") (list (normalize "book") "&Book;") (list (normalize "calloutlist") "") (list (normalize "caution") "&Caution;") (list (normalize "chapter") "&Chapter;") (list (normalize "copyright") "&Copyright;") (list (normalize "dedication") "&Dedication;") (list (normalize "edition") "&Edition;") (list (normalize "equation") "&Equation;") (list (normalize "example") "&Example;") (list (normalize "figure") "&Figure;") (list (normalize "glossary") "&Glossary;") (list (normalize "glosssee") "&GlossSee;") (list (normalize "glossseealso") "&GlossSeeAlso;") (list (normalize "important") "&Important;") (list (normalize "index") "&Index;") (list (normalize "colophon") "&Colophon;") (list (normalize "setindex") "&SetIndex;") (list (normalize "isbn") "&ISBN;") (list (normalize "legalnotice") "&LegalNotice;") (list (normalize "msgaud") "&MsgAud;") (list (normalize "msglevel") "&MsgLevel;") (list (normalize "msgorig") "&MsgOrig;") (list (normalize "note") "&Note;") (list (normalize "part") "&Part;") (list (normalize "preface") "&Preface;") (list (normalize "procedure") "&Procedure;") (list (normalize "pubdate") "&Published;") (list (normalize "question") "&Question;") (list (normalize "refentry") "&RefEntry;") (list (normalize "reference") "&Reference;") (list (normalize "refname") "&RefName;") (list (normalize "revhistory") "&RevHistory;") (list (normalize "refsect1") "&RefSection;") (list (normalize "refsect2") "&RefSection;") (list (normalize "refsect3") "&RefSection;") (list (normalize "refsynopsisdiv") "&RefSynopsisDiv;") (list (normalize "revision") "&Revision;") (list (normalize "sect1") "&Section;") (list (normalize "sect2") "&Section;") (list (normalize "sect3") "&Section;") (list (normalize "sect4") "&Section;") (list (normalize "sect5") "&Section;") (list (normalize "section") "&Section;") (list (normalize "simplesect") "&Section;") (list (normalize "seeie") "&See;") (list (normalize "seealsoie") "&Seealso;") (list (normalize "set") "&Set;") (list (normalize "sidebar") "&Sidebar;") (list (normalize "step") "&step;") (list (normalize "table") "&Table;") (list (normalize "tip") "&Tip;") (list (normalize "toc") "&TableofContents;") (list (normalize "warning") "&Warning;") )) (define (gentext-af-element-name gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (pname (assoc name (af-element-name)))) (if pname (car (cdr pname)) (let* ((msg (string-append "gentext-af-element-name: &unexpectedelementname;: " name)) (err (node-list-error msg (current-node)))) msg)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-af-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (local-af-intra-label-sep) (list)) (define (af-intra-label-sep) (list (list (normalize "equation") "-") (list (normalize "informalequation") "-") (list (normalize "example") "-") (list (normalize "figure") "-") (list (normalize "listitem") ".") (list (normalize "procedure") ".") (list (normalize "refentry") ".") (list (normalize "reference") ".") (list (normalize "refname") ", ") (list (normalize "refsect1") ".") (list (normalize "refsect2") ".") (list (normalize "refsect3") ".") (list (normalize "sect1") ".") (list (normalize "sect2") ".") (list (normalize "sect3") ".") (list (normalize "sect4") ".") (list (normalize "sect5") ".") (list (normalize "section") ".") (list (normalize "simplesect") ".") (list (normalize "step") ".") (list (normalize "table") "-") (list (normalize "_pagenumber") "-") )) (define (gentext-af-intra-label-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (sep (assoc name (af-intra-label-sep)))) (if sep (car (cdr sep)) ""))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (local-af-label-title-sep) (list)) (define (af-label-title-sep) (list (list (normalize "abstract") ": ") (list (normalize "answer") " ") (list (normalize "appendix") ". ") (list (normalize "caution") "") (list (normalize "chapter") ". ") (list (normalize "equation") ". ") (list (normalize "example") ". ") (list (normalize "figure") ". ") (list (normalize "footnote") ". ") (list (normalize "glosssee") ": ") (list (normalize "glossseealso") ": ") (list (normalize "important") ": ") (list (normalize "note") ": ") (list (normalize "orderedlist") ". ") (list (normalize "part") ". ") (list (normalize "procedure") ". ") (list (normalize "prefix") ". ") (list (normalize "question") " ") (list (normalize "refentry") "") (list (normalize "reference") ". ") (list (normalize "refsect1") ". ") (list (normalize "refsect2") ". ") (list (normalize "refsect3") ". ") (list (normalize "sect1") ". ") (list (normalize "sect2") ". ") (list (normalize "sect3") ". ") (list (normalize "sect4") ". ") (list (normalize "sect5") ". ") (list (normalize "section") ". ") (list (normalize "simplesect") ". ") (list (normalize "seeie") " ") (list (normalize "seealsoie") " ") (list (normalize "step") ". ") (list (normalize "table") ". ") (list (normalize "tip") ": ") (list (normalize "warning") "") )) (define (gentext-af-label-title-sep gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (sep (assoc name (af-label-title-sep)))) (if sep (car (cdr sep)) ""))) (define (af-label-number-format-list) (list (list (normalize "set") "1") (list (normalize "book") "1") (list (normalize "prefix") "1") (list (normalize "part") "I") (list (normalize "chapter") "1") (list (normalize "appendix") "A") (list (normalize "reference") "I") (list (normalize "example") "1") (list (normalize "figure") "1") (list (normalize "table") "1") (list (normalize "procedure") "1") (list (normalize "step") "1") (list (normalize "refsect1") "1") (list (normalize "refsect2") "1") (list (normalize "refsect3") "1") (list (normalize "sect1") "1") (list (normalize "sect2") "1") (list (normalize "sect3") "1") (list (normalize "sect4") "1") (list (normalize "sect5") "1") (list (normalize "section") "1") )) (define (af-label-number-format gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (format (assoc name (af-label-number-format-list)))) (if format (car (cdr format)) "1"))) (define (af-lot-title) (list (list (normalize "table") "&ListofTables;") (list (normalize "example") "&ListofExamples;") (list (normalize "figure") "&ListofFigures;") (list (normalize "equation") "&ListofEquations;") )) (define ($lot-title-af$ gind) (let* ((giname (if (string? gind) gind (gi gind))) (name (normalize giname)) (title (assoc name (af-lot-title)))) (if title (car (cdr title)) (let* ((msg (string-append "&ListofUnknown;: " name)) (err (node-list-error msg (current-node)))) msg)))) (define %gentext-af-start-quote% (dingbat "ldquo")) (define %gentext-af-end-quote% (dingbat "rdquo")) (define %gentext-af-start-nested-quote% (dingbat "lsquo")) (define %gentext-af-end-nested-quote% (dingbat "rsquo")) (define %gentext-af-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-af-edited-by% "&Editedby;") ;; "Edited by" Jane Doe (define %gentext-af-revised-by% "&Revisedby;") ;; "Revised by" Jane Doe (define %gentext-af-page% "") (define %gentext-af-and% "∧") (define %gentext-af-listcomma% "&listcomma;") (define %gentext-af-lastlistcomma% "&lastlistcomma;") (define %gentext-af-bibl-pages% "&Pgs;") (define %gentext-af-endnotes% "&Notes;") (define %gentext-af-table-endnotes% "&TableNotes;:") (define %gentext-af-index-see% "&See;") (define %gentext-af-index-seealso% "&SeeAlso;") (define (gentext-af-nav-prev prev) (make sequence (literal "&nav-prev;"))) (define (gentext-af-nav-prev-sibling prevsib) (make sequence (literal "&nav-prev-sibling;"))) (define (gentext-af-nav-next-sibling nextsib) (make sequence (literal "&nav-next-sibling;"))) (define (gentext-af-nav-next next) (make sequence (literal "&nav-next;"))) (define (gentext-af-nav-up up) (make sequence (literal "&nav-up;"))) (define (gentext-af-nav-home home) (make sequence (literal "&nav-home;"))) docbook-dsssl-1.79/common/dbl10n.template0000644000175000001440000002233610132055412021004 0ustar msmithusers00000000000000;; $Id: dbl10n.template,v 1.3 2004/10/09 21:36:35 petere78 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com. Please use the ISO 639 language ;; code to identify the language. Append a subtag as per RFC 1766, ;; if necessary. ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x and #x ;; keywords. ;; ;; The following language codes from ISO 639 are recognized: ;; %%LANGUAGES%% ;; af - Afrikaans 1.71 ;; bg - Bulgarian ;; bs - Bosnian ;; ca - Catalan ;; cs - Czech ;; da - Danish (previously dk) ;; de - German (previously dege) ;; el - Greek ;; en - English (previously usen) ;; es - Spanish ;; et - Estonian 1.55 ;; eu - Basque 1.74 ;; fi - Finnish ;; fr - French ;; hu - Hungarian 1.55 ;; id - Indonesian 1.55 ;; it - Italian ;; ja - Japanese ;; ko - Korean 1.59 ;; nl - Dutch ;; nn - Nnyorsk 1.74 ;; no - Norwegian (previously bmno) ??? ;; pl - Polish ;; pt - Portuguese ;; pt_br - Portuguese (Brazil) ;; ro - Romanian ;; ru - Russian ;; sk - Slovak ;; sl - Slovenian 1.55 ;; sr - Serbian 1.70 ;; sv - Swedish (previously svse) ;; tr - Turkish 1.71 ;; uk - Ukranian 1.74 ;; xh - Xhosa 1.74 ;; zh_cn - Chinese (Continental) 1.55 ;; zh_tw - Chinese (Traditional) 1.70 ;; The following language codes are recognized for historical reasons: ;; %%HISTORICAL%% ;; bmno(no) - Norwegian (Norsk Bokmal) ??? ;; dege(de) - German ;; dk(da) - Danish ;; svse(sv) - Swedish ;; usen(en) - English ;; %%/LANGUAGES%% (define %default-language% "en") (define %gentext-language% #f) (define %gentext-use-xref-lang% #f) (define ($lang$ #!optional (target (current-node)) (xref-context #f)) (if %gentext-language% (lang-fix %gentext-language%) (if (or xref-context %gentext-use-xref-lang%) (let loop ((here target)) (if (node-list-empty? here) (lang-fix %default-language%) (if (attribute-string (normalize "lang") here) (lang-fix (attribute-string (normalize "lang") here)) (loop (parent here))))) (if (inherited-attribute-string (normalize "lang")) (lang-fix (inherited-attribute-string (normalize "lang"))) (lang-fix %default-language%))))) (define (lang-fix language) ;; Lowercase the language ;; Translate 'xx-yy' to 'xx_yy' (let ((fixed-lang (if (> (string-index language "-") 0) (let ((pos (string-index language "-"))) (string-append (substring language 0 pos) "_" (substring language (+ pos 1) (string-length language)))) language))) (case-fold-down fixed-lang))) (define (author-string #!optional (author (current-node))) (let ((lang (if (string? author) ($lang$) ($lang$ author)))) (case lang ;; ISO 639/ISO 3166/RFC 1766 (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 (else (error (string-append "L10N ERROR: gentext-xref-strings: " lang)))))) (define (auto-xref-indirect-connector before) (case ($lang$) (else (error "L10N ERROR: auto-xref-indirect-connector")))) (define (generate-toc-in-front) (case ($lang$) (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 (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 (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 (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 (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 (else (error "L10N ERROR: label-number-format"))))) (define ($lot-title$ lotgi) (case ($lang$) (else (error "L10N ERROR: $lot-title$")))) (define (gentext-start-quote) (case ($lang$) (else (error "L10N ERROR: gentext-start-quote")))) (define (gentext-end-quote) (case ($lang$) (else (error "L10N ERROR: gentext-end-quote")))) (define (gentext-start-nested-quote) (case ($lang$) (else (error "L10N ERROR: gentext-start-nested-quote")))) (define (gentext-end-nested-quote) (case ($lang$) (else (error "L10N ERROR: gentext-end-nested-quote")))) (define (gentext-by) (case ($lang$) (else (error "L10N ERROR: gentext-by")))) (define (gentext-edited-by) (case ($lang$) (else (error "L10N ERROR: gentext-edited-by")))) (define (gentext-revised-by) (case ($lang$) (else (error "L10N ERROR: gentext-revised-by")))) (define (gentext-page) (case ($lang$) (else (error "L10N ERROR: gentext-page")))) (define (gentext-and) (case ($lang$) (else (error "L10N ERROR: gentext-and")))) (define (gentext-listcomma) (case ($lang$) (else (error "L10N ERROR: gentext-listcomma")))) (define (gentext-lastlistcomma) (case ($lang$) (else (error "L10N ERROR: gentext-lastlistcomma")))) (define (gentext-bibl-pages) (case ($lang$) (else (error "L10N ERROR: gentext-bibl-pages")))) (define (gentext-endnotes) (case ($lang$) (else (error "L10N ERROR: gentext-endnotes")))) (define (gentext-table-endnotes) (case ($lang$) (else (error "L10N ERROR: gentext-table-endnotes")))) (define (gentext-index-see) (case ($lang$) (else (error "L10N ERROR: gentext-index-see")))) (define (gentext-index-seealso) (case ($lang$) (else (error "L10N ERROR: gentext-index-seealso")))) (define (gentext-nav-prev prev) (case ($lang$) (else (error "L10N ERROR: gentext-nav-prev")))) (define (gentext-nav-prev-sibling prevsib) (case ($lang$) (else (error "L10N ERROR: gentext-nav-prev-sibling ")))) (define (gentext-nav-next-sibling nextsib) (case ($lang$) (else (error "L10N ERROR: gentext-nav-next-sibling")))) (define (gentext-nav-next next) (case ($lang$) (else (error "L10N ERROR: gentext-nav-next")))) (define (gentext-nav-up up) (case ($lang$) (else (error "L10N ERROR: gentext-nav-up")))) (define (gentext-nav-home home) (case ($lang$) (else (error "L10N ERROR: gentext-nav-home")))) docbook-dsssl-1.79/common/dbl10n.pl0000644000175000001440000000174207374555321017624 0ustar msmithusers00000000000000#!/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 () { 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 (/ ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> docbook-dsssl-1.79/common/dbl10n.dsl0000644000175000001440000024577410132055412017770 0ustar msmithusers00000000000000;; $Id: dbl10n.dsl,v 1.8 2004/10/09 21:36:35 petere78 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, ndw@nwalsh.com. Please use the ISO 639 language ;; code to identify the language. Append a subtag as per RFC 1766, ;; if necessary. ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x and #x ;; keywords. ;; ;; The following language codes from ISO 639 are recognized: ;; af - Afrikaans 1.71 ;; bg - Bulgarian ;; bs - Bosnian ;; ca - Catalan ;; cs - Czech ;; da - Danish (previously dk) ;; de - German (previously dege) ;; el - Greek ;; en - English (previously usen) ;; es - Spanish ;; et - Estonian 1.55 ;; eu - Basque 1.74 ;; fi - Finnish ;; fr - French ;; hu - Hungarian 1.55 ;; id - Indonesian 1.55 ;; it - Italian ;; ja - Japanese ;; ko - Korean 1.59 ;; nl - Dutch ;; nn - Nnyorsk 1.74 ;; no - Norwegian (previously bmno) ??? ;; pl - Polish ;; pt - Portuguese ;; pt_br - Portuguese (Brazil) ;; ro - Romanian ;; ru - Russian ;; sk - Slovak ;; sl - Slovenian 1.55 ;; sr - Serbian 1.70 ;; sv - Swedish (previously svse) ;; tr - Turkish 1.71 ;; uk - Ukranian 1.74 ;; xh - Xhosa 1.74 ;; zh_cn - Chinese (Continental) 1.55 ;; zh_tw - Chinese (Traditional) 1.70 ;; The following language codes are recognized for historical reasons: ;; bmno(no) - Norwegian (Norsk Bokmal) ??? ;; dege(de) - German ;; dk(da) - Danish ;; svse(sv) - Swedish ;; usen(en) - English (define %default-language% "en") (define %gentext-language% #f) (define %gentext-use-xref-lang% #f) (define ($lang$ #!optional (target (current-node)) (xref-context #f)) (if %gentext-language% (lang-fix %gentext-language%) (if (or xref-context %gentext-use-xref-lang%) (let loop ((here target)) (if (node-list-empty? here) (lang-fix %default-language%) (if (attribute-string (normalize "lang") here) (lang-fix (attribute-string (normalize "lang") here)) (loop (parent here))))) (if (inherited-attribute-string (normalize "lang")) (lang-fix (inherited-attribute-string (normalize "lang"))) (lang-fix %default-language%))))) (define (lang-fix language) ;; Lowercase the language ;; Translate 'xx-yy' to 'xx_yy' (let ((fixed-lang (if (> (string-index language "-") 0) (let ((pos (string-index language "-"))) (string-append (substring language 0 pos) "_" (substring language (+ pos 1) (string-length language)))) language))) (case-fold-down fixed-lang))) (define (author-string #!optional (author (current-node))) (let ((lang (if (string? author) ($lang$) ($lang$ author)))) (case lang ;; ISO 639/ISO 3166/RFC 1766 (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 (else (error (string-append "L10N ERROR: gentext-xref-strings: " lang)))))) (define (auto-xref-indirect-connector before) (case ($lang$) (else (error "L10N ERROR: auto-xref-indirect-connector")))) (define (generate-toc-in-front) (case ($lang$) (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 (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 (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 (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 (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 (else (error "L10N ERROR: label-number-format"))))) (define ($lot-title$ lotgi) (case ($lang$) (else (error "L10N ERROR: $lot-title$")))) (define (gentext-start-quote) (case ($lang$) (else (error "L10N ERROR: gentext-start-quote")))) (define (gentext-end-quote) (case ($lang$) (else (error "L10N ERROR: gentext-end-quote")))) (define (gentext-start-nested-quote) (case ($lang$) (else (error "L10N ERROR: gentext-start-nested-quote")))) (define (gentext-end-nested-quote) (case ($lang$) (else (error "L10N ERROR: gentext-end-nested-quote")))) (define (gentext-by) (case ($lang$) (else (error "L10N ERROR: gentext-by")))) (define (gentext-edited-by) (case ($lang$) (else (error "L10N ERROR: gentext-edited-by")))) (define (gentext-revised-by) (case ($lang$) (else (error "L10N ERROR: gentext-revised-by")))) (define (gentext-page) (case ($lang$) (else (error "L10N ERROR: gentext-page")))) (define (gentext-and) (case ($lang$) (else (error "L10N ERROR: gentext-and")))) (define (gentext-listcomma) (case ($lang$) (else (error "L10N ERROR: gentext-listcomma")))) (define (gentext-lastlistcomma) (case ($lang$) (else (error "L10N ERROR: gentext-lastlistcomma")))) (define (gentext-bibl-pages) (case ($lang$) (else (error "L10N ERROR: gentext-bibl-pages")))) (define (gentext-endnotes) (case ($lang$) (else (error "L10N ERROR: gentext-endnotes")))) (define (gentext-table-endnotes) (case ($lang$) (else (error "L10N ERROR: gentext-table-endnotes")))) (define (gentext-index-see) (case ($lang$) (else (error "L10N ERROR: gentext-index-see")))) (define (gentext-index-seealso) (case ($lang$) (else (error "L10N ERROR: gentext-index-seealso")))) (define (gentext-nav-prev prev) (case ($lang$) (else (error "L10N ERROR: gentext-nav-prev")))) (define (gentext-nav-prev-sibling prevsib) (case ($lang$) (else (error "L10N ERROR: gentext-nav-prev-sibling ")))) (define (gentext-nav-next-sibling nextsib) (case ($lang$) (else (error "L10N ERROR: gentext-nav-next-sibling")))) (define (gentext-nav-next next) (case ($lang$) (else (error "L10N ERROR: gentext-nav-next")))) (define (gentext-nav-up up) (case ($lang$) (else (error "L10N ERROR: gentext-nav-up")))) (define (gentext-nav-home home) (case ($lang$) (else (error "L10N ERROR: gentext-nav-home")))) docbook-dsssl-1.79/common/dbcommon.dsl0000644000175000001440000020675610132323530020502 0ustar msmithusers00000000000000;; $Id: dbcommon.dsl,v 1.14 2004/10/10 21:15:05 petere78 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://nwalsh.com/docbook/dsssl/ ;; ;; This file contains general functions common to both print and HTML ;; versions of the DocBook stylesheets. ;; ;; If **ANY** change is made to this file, you _MUST_ alter the ;; following definition: (define %docbook-common-version% "Modular DocBook Stylesheet Common Functions") ;; === element lists ==================================================== ;; these have to be functions because they have to be evaluated when ;; there is a current-node so that normalize can know what declaration ;; is in effect (define (set-element-list) (list (normalize "set"))) (define (book-element-list) (list (normalize "book"))) (define (division-element-list) (list (normalize "part"))) (define (component-element-list) (list (normalize "preface") (normalize "chapter") (normalize "appendix") (normalize "article") (normalize "glossary") (normalize "bibliography") (normalize "index") (normalize "colophon") (normalize "setindex") (normalize "reference") (normalize "refentry") (normalize "book"))) ;; just in case nothing else matches... (define (major-component-element-list) (list (normalize "preface") (normalize "chapter") (normalize "appendix") (normalize "article") (normalize "glossary") (normalize "bibliography") (normalize "index") (normalize "colophon") (normalize "setindex") (normalize "reference") (normalize "refentry") (normalize "part") (normalize "book"))) ;; just in case nothing else matches... (define (section-element-list) (list (normalize "sect1") (normalize "sect2") (normalize "sect3") (normalize "sect4") (normalize "sect5") (normalize "section") (normalize "simplesect") (normalize "refsect1") (normalize "refsect2") (normalize "refsect3"))) (define (block-element-list) (list (normalize "example") (normalize "figure") (normalize "table") (normalize "equation") (normalize "procedure"))) (define (outer-parent-list) (list (normalize "toc") (normalize "lot") (normalize "appendix") (normalize "chapter") (normalize "part") (normalize "preface") (normalize "reference") (normalize "bibliography") (normalize "glossary") (normalize "index") (normalize "setindex") (normalize "sect1") (normalize "sect2") (normalize "sect3") (normalize "sect4") (normalize "sect5") (normalize "simplesect") (normalize "partintro") (normalize "bibliodiv") (normalize "glossdiv") (normalize "indexdiv") (normalize "refentry") (normalize "refsect1") (normalize "refsect2") (normalize "refsect3") (normalize "msgtext") (normalize "msgexplan"))) (define (list-element-list) (list (normalize "orderedlist") (normalize "itemizedlist") (normalize "variablelist") (normalize "segmentedlist") (normalize "simplelist") (normalize "calloutlist") (normalize "step"))) (define (info-element-list) (list (normalize "appendixinfo") (normalize "articleinfo") (normalize "bibliographyinfo") (normalize "bookinfo") (normalize "chapterinfo") (normalize "glossaryinfo") (normalize "indexinfo") (normalize "objectinfo") (normalize "partinfo") (normalize "prefaceinfo") (normalize "refentryinfo") (normalize "referenceinfo") (normalize "refsect1info") (normalize "refsect2info") (normalize "refsect3info") (normalize "refsynopsisdivinfo") (normalize "sect1info") (normalize "sect2info") (normalize "sect3info") (normalize "sect4info") (normalize "sect5info") (normalize "sectioninfo") (normalize "setindexinfo") (normalize "setinfo") (normalize "sidebarinfo") ;; historical (normalize "artheader") (normalize "docinfo"))) ;; === automatic TOC ==================================================== ;; Returns #t if nd should appear in the auto TOC (define (appears-in-auto-toc? nd) (if (or (equal? (gi nd) (normalize "refsect1")) (have-ancestor? (normalize "refsect1") nd)) #f #t)) ;; # return elements of nl for which appears-in-auto-toc? is #t (define (toc-list-filter nodelist) (let loop ((toclist (empty-node-list)) (nl nodelist)) (if (node-list-empty? nl) toclist (if (appears-in-auto-toc? (node-list-first nl)) (loop (node-list toclist (node-list-first nl)) (node-list-rest nl)) (loop toclist (node-list-rest nl)))))) ;; === common =========================================================== (define (INLIST?) (has-ancestor-member? (current-node) (list-element-list))) (define (INBLOCK?) (has-ancestor-member? (current-node) (list (normalize "example") (normalize "informalexample") (normalize "figure") (normalize "informalfigure") (normalize "equation") (normalize "informalequation") (normalize "funcsynopsis") (normalize "programlistingco") (normalize "screenco") (normalize "graphicco")))) (define (PARNUM) (child-number (parent (current-node)))) (define (NESTEDFNUM n fmt) (if (number? n) (format-number n fmt) #f)) (define (FNUM n) (NESTEDFNUM n "1")) (define (book-start?) ;; Returns #t if the current-node is in the first division or ;; component of a book. (let ((book (ancestor (normalize "book"))) (nd (ancestor-member (current-node) (append (component-element-list) (division-element-list))))) (let loop ((ch (children book))) (if (node-list-empty? ch) #f (if (member (gi (node-list-first ch)) (append (component-element-list) (division-element-list))) (node-list=? (node-list-first ch) nd) (loop (node-list-rest ch))))))) (define (first-chapter?) ;; Returns #t if the current-node is in the first chapter of a book (let* ((book (ancestor (normalize "book"))) (nd (ancestor-member (current-node) (append (component-element-list) (division-element-list)))) (bookch (children book)) (bookcomp (expand-children bookch (list (normalize "part"))))) (let loop ((nl bookcomp)) (if (node-list-empty? nl) #f (if (equal? (gi (node-list-first nl)) (normalize "chapter")) (if (node-list=? (node-list-first nl) nd) #t #f) (loop (node-list-rest nl))))))) ;; === bibliographic ==================================================== ;; Localized author-string (define (author-list-string #!optional (author (current-node))) ;; Return a formatted string representation of the contents of AUTHOR ;; *including appropriate punctuation* if the AUTHOR occurs in a list ;; of AUTHORs in an AUTHORGROUP: ;; ;; John Doe ;; or ;; John Doe and Jane Doe ;; or ;; John Doe, Jane Doe, and A. Nonymous ;; (let* ((author-node-list (select-elements (descendants (ancestor (normalize "authorgroup") author)) (normalize "author"))) (corpauthor-node-list (select-elements (descendants (ancestor (normalize "authorgroup") author)) (normalize "corpauthor"))) (othercredit-node-list (select-elements (descendants (ancestor (normalize "authorgroup") author)) (normalize "othercredit"))) (editor-node-list (select-elements (descendants (ancestor (normalize "authorgroup"))) (normalize "editor"))) (author-count (if (have-ancestor? (normalize "authorgroup") author) (+ (node-list-length author-node-list) (node-list-length corpauthor-node-list) (node-list-length othercredit-node-list) (node-list-length editor-node-list)) 1)) (this-count (if (have-ancestor? (normalize "authorgroup") author) (+ (node-list-length (preced author)) 1) 1))) (string-append (if (and (> author-count 1) (absolute-last-sibling? author)) (string-append (gentext-and) " ") "") (author-string author) (if (> author-count 2) (if (> (- author-count this-count) 1) (gentext-listcomma) (if (= (- author-count this-count) 1) (gentext-lastlistcomma) "")) "") (if (and (> author-count 1) (not (absolute-last-sibling? author))) " " "")))) ;; === procedures ======================================================= (define ($proc-hierarch-number-format$ depth) (case (modulo depth 5) ((1) "1") ((2) "a") ((3) "i") ((4) "A") (else "I"))) (define ($proc-hierarch-number$ nd seperator) (if (equal? (gi nd) (normalize "step")) (string-append (format-number (child-number nd) ($proc-hierarch-number-format$ ($proc-step-depth$ nd))) seperator) "")) (define ($proc-step-depth$ nd) (let loop ((step nd) (depth 0)) (if (equal? (gi step) (normalize "procedure")) depth (loop (parent step) (if (equal? (gi step) (normalize "step")) (+ depth 1) depth))))) (define ($proc-step-number$ nd) (let* ((step (if (equal? (gi nd) (normalize "step")) nd (parent nd))) (str ($proc-hierarch-number$ step ""))) (string-append str (gentext-label-title-sep (normalize "step"))))) (define ($proc-step-xref-number$ nd) (let loop ((step nd) (str "") (first #t)) (if (equal? (gi step) (normalize "procedure")) str (loop (parent step) (if (equal? (gi step) (normalize "step")) (string-append ($proc-hierarch-number$ step (if first "" (gentext-intra-label-sep (normalize "step")))) str) str) (if (equal? (gi step) (normalize "step")) #f first))))) ;; === sections ========================================================= (define (section-level-by-gi chunked? gi) ;; Figure out the heading level of an element by its name. We need ;; to distinguish between the chunked processing mode (for HTML) and ;; the non-chunked (print or HTML). It is important that no heading ;; level is skipped in a document structure (e.g., sect1 = 2, sect2 ;; = 4); this results in broken PDF bookmarks. (if chunked? (cond ((equal? gi (normalize "sect5")) 5) ((equal? gi (normalize "sect4")) 4) ((equal? gi (normalize "sect3")) 3) ((equal? gi (normalize "sect2")) 2) ((equal? gi (normalize "sect1")) 1) ((equal? gi (normalize "refsect3")) 4) ((equal? gi (normalize "refsect2")) 3) ((equal? gi (normalize "refsect1")) 2) ((equal? gi (normalize "refsynopsisdiv")) 2) ((equal? gi (normalize "bibliography")) 1) ((equal? gi (normalize "bibliodiv")) 2) ((equal? gi (normalize "index")) 1) ((equal? gi (normalize "setindex")) 1) ((equal? gi (normalize "indexdiv")) 2) (else 1)) (cond ((equal? gi (normalize "sect5")) 6) ((equal? gi (normalize "sect4")) 5) ((equal? gi (normalize "sect3")) 4) ((equal? gi (normalize "sect2")) 3) ((equal? gi (normalize "sect1")) 2) ;; The next four are not used by the HTML stylesheets. ((equal? gi (normalize "refsect3")) 5) ((equal? gi (normalize "refsect2")) 4) ((equal? gi (normalize "refsect1")) 3) ((equal? gi (normalize "refsynopsisdiv")) 3) ((equal? gi (normalize "bibliography")) 1) ((equal? gi (normalize "bibliodiv")) 2) ((equal? gi (normalize "index")) 1) ((equal? gi (normalize "setindex")) 1) ((equal? gi (normalize "indexdiv")) 2) (else 1)))) (define (section-level-by-node chunked? sect) (if (equal? (gi sect) (normalize "section")) ;; Section is special, it is recursive. (let ((depth (length (hierarchical-number-recursive (normalize "section"))))) (if (> depth 5) 6 (if chunked? (+ depth 1) (+ depth 2)))) (if (equal? (gi sect) (normalize "simplesect")) ;; SimpleSect is special, it should be level "n+1", where "n" is ;; the level of the numbered section that contains it. If it is ;; the *first* sectioning element in a chapter, make it ;; %default-simplesect-level% (cond ((have-ancestor? (normalize "sect5")) (+ 1 (section-level-by-gi chunked? (normalize "sect5")))) ((have-ancestor? (normalize "sect4")) (+ 1 (section-level-by-gi chunked? (normalize "sect4")))) ((have-ancestor? (normalize "sect3")) (+ 1 (section-level-by-gi chunked? (normalize "sect3")))) ((have-ancestor? (normalize "sect2")) (+ 1 (section-level-by-gi chunked? (normalize "sect2")))) ((have-ancestor? (normalize "sect1")) (+ 1 (section-level-by-gi chunked? (normalize "sect1")))) ((have-ancestor? (normalize "refsect3")) (+ 1 (section-level-by-gi chunked? (normalize "refsect3")))) ((have-ancestor? (normalize "refsect2")) (+ 1 (section-level-by-gi chunked? (normalize "refsect2")))) ((have-ancestor? (normalize "refsect1")) (+ 1 (section-level-by-gi chunked? (normalize "refsect1")))) (else %default-simplesect-level%)) ;; the rest of the section elements can be identified by name (section-level-by-gi chunked? (gi sect))))) ;; === synopsis ========================================================= ;; The following definitions match those given in the reference ;; documentation for DocBook V3.0 (define %arg-choice-opt-open-str% "[") (define %arg-choice-opt-close-str% "]") (define %arg-choice-req-open-str% "{") (define %arg-choice-req-close-str% "}") (define %arg-choice-plain-open-str% " ") (define %arg-choice-plain-close-str% " ") (define %arg-choice-def-open-str% "[") (define %arg-choice-def-close-str% "]") (define %arg-rep-repeat-str% "...") (define %arg-rep-norepeat-str% "") (define %arg-rep-def-str% "") (define %arg-or-sep% " | ") (define %cmdsynopsis-hanging-indent% 4pi) ;; === linking ========================================================== ;; From the DocBook V3.0 Reference entry for element XREF: ;; ;; Description ;; ;; Cross reference link to another part of the document. XRef is empty, ;; and has common, Linkend, and Endterm attributes. ;; ;; Processing Expectations ;; ;; XRef must have a Linkend, but the Endterm is optional. If it is used, ;; the content of the element it points to is displayed as the text of ;; the cross reference; if it is absent, the XRefLabel of the ;; cross-referenced object is displayed. ;; ;; If neither the ENDTERM nor the XREFLABEL is present, then the cross ;; reference text is taken from the (gentext-xref-strings) function ;; in the localization file, like this ;; ;; A cross reference to an element, the target, begins with the ;; text returned by (gentext-xref-strings (gi target)). Within ;; that text, the following substitutions are made: ;; ;; %p is replaced by the number of the page on which target occurs ;; %g is replaced by the (gentext-element-name) ;; %n is replaced by the label ;; %t is replaced by the title ;; ;; After the "direct" cross reference, a number of indirect references ;; are possible. If the target element is in a different block, section, ;; component, division, or book an indirect cross reference may be made. ;; ;; The indirect cross reference will only be made if ;; ;; (auto-xref-indirect? target ancestor) ;; ;; returns #t. The indirect reference is created by appending the ;; connect returned by (auto-xref-indirect-connector) to the direct ;; reference and then adding a direct refernce to the ancestor. ;; The process is repeated for each ancestral element. ;; ;; For example, if a direct reference to a section returns ;; ;; "the section called %t" ;; ;; and a direct reference to a chapter returns ;; ;; "Chapter %n" ;; ;; and (auto-xref-indirect? sect1 chapter) returns #t, and ;; (auto-xref-indirect-connector chapter) returns "in", then ;; an xref to a section in another chapter will be: ;; ;; "the section called %t in Chapter %n" ;; ;; Where %t and %n will be filled in accordingly. ;; ;; ====================================================================== (define (auto-xref-indirect? target ancestor) ;; This function answers the question: should an indirect reference ;; to ancestor be made for target? For example: ;; ;; (auto-xref-indirect? SECT1 CHAP) ;; ;; should return #t iff a reference of the form "in [CHAP-xref]" should ;; be generated for a reference to SECT1 if SECT1 is in a different ;; chapter than the XREF to SECT1. ;; ;; This function _does not_ have to consider the case of whether or ;; not target and the xref are in the same ancestor. ;; (cond ;; Always add indirect references to another book ((member (gi ancestor) (book-element-list)) #t) ;; Add indirect references to the section or component a block ;; is in iff chapters aren't autolabelled. (Otherwise "Figure 1-3" ;; is sufficient) ((and (member (gi target) (block-element-list)) (not %chapter-autolabel%)) #t) ;; Add indirect references to the component a section is in if ;; the sections are not autolabelled ((and (member (gi target) (section-element-list)) (member (gi ancestor) (component-element-list)) (not %section-autolabel%)) #t) (else #f))) (define (auto-xref-direct target #!optional (xref-string (gentext-xref-strings target))) (let* ((substitute (list (list "%g" (element-gi-sosofo target)) (list "%n" (element-label-sosofo target)) (list "%p" (element-page-number-sosofo target)) (list "%t" (element-title-xref-sosofo target)))) (tlist (match-split-list xref-string (assoc-objs substitute)))) (string-list-sosofo tlist substitute))) (define (auto-xref-indirect target #!optional (xref-string (gentext-xref-strings target))) (make sequence (auto-xref-indirect-connector target) (auto-xref-direct target xref-string))) (define (auto-xref target #!optional (xref-string (gentext-xref-strings target))) (let ((source (current-node)) (cont-blok (ancestor-member target (block-element-list))) (cont-sect (ancestor-member target (section-element-list))) (cont-comp (ancestor-member target (component-element-list))) (cont-divn (ancestor-member target (division-element-list))) (cont-book (ancestor-member target (book-element-list)))) (make sequence (auto-xref-direct target xref-string) (if (or (node-list=? cont-blok (ancestor-member source (block-element-list))) (node-list=? cont-blok target) (not (auto-xref-indirect? target cont-blok))) (empty-sosofo) (auto-xref-indirect cont-blok)) (if (or (node-list=? cont-sect (ancestor-member source (section-element-list))) (node-list=? cont-sect target) (not (auto-xref-indirect? target cont-sect))) (empty-sosofo) (auto-xref-indirect cont-sect)) (if (or (node-list=? cont-comp (ancestor-member source (component-element-list))) (node-list=? cont-comp target) (not (auto-xref-indirect? target cont-comp))) (empty-sosofo) (auto-xref-indirect cont-comp)) (if (or (node-list=? cont-divn (ancestor-member source (division-element-list))) (node-list=? cont-divn target) (not (auto-xref-indirect? target cont-divn))) (empty-sosofo) (auto-xref-indirect cont-divn)) (if (or (node-list=? cont-book (ancestor-member source (book-element-list))) (node-list=? cont-book target) (not (auto-xref-indirect? target cont-book))) (empty-sosofo) (auto-xref-indirect cont-book))))) ;; ====================================================================== (define (set-number-restart-list cmp) (list (normalize "set"))) (define (book-number-restart-list cmp) (list (normalize "set"))) (define (part-number-restart-list cmp) (list (normalize "book"))) (define (reference-number-restart-list cmp) (list (normalize "book"))) (define (preface-number-restart-list cmp) (list (normalize "book"))) (define (chapter-number-restart-list cmp) (list (normalize "book"))) (define (appendix-number-restart-list cmp) (list (normalize "book") (normalize "article"))) (define (article-number-restart-list cmp) (list (normalize "book"))) (define (glossary-number-restart-list cmp) (list (normalize "book"))) (define (bibliography-number-restart-list cmp) (list (normalize "book"))) (define (index-number-restart-list cmp) (list (normalize "book"))) (define (setindex-number-restart-list cmp) (list (normalize "set"))) (define (refentry-number-restart-list cmp) (list (normalize "reference"))) (define (default-number-restart-list cmp) (list (normalize "book"))) (define (component-number-restart-list cmp) ;; Return the list of elements at which numbering of 'cmp' should reset. ;; For example, for CHAPTER, it might return '("BOOK") causing chapters ;; to be sequentially numbered across a book. If it returned ;; '("BOOK" "PART") then chapter numbering would restart at each ;; BOOK or PART. (let ((name (gi cmp))) (cond ((equal? name (normalize "set")) (set-number-restart-list cmp)) ((equal? name (normalize "book")) (book-number-restart-list cmp)) ((equal? name (normalize "part")) (part-number-restart-list cmp)) ((equal? name (normalize "reference")) (reference-number-restart-list cmp)) ((equal? name (normalize "preface")) (preface-number-restart-list cmp)) ((equal? name (normalize "chapter")) (chapter-number-restart-list cmp)) ((equal? name (normalize "appendix")) (appendix-number-restart-list cmp)) ((equal? name (normalize "article")) (article-number-restart-list cmp)) ((equal? name (normalize "glossary")) (glossary-number-restart-list cmp)) ((equal? name (normalize "bibliography")) (bibliography-number-restart-list cmp)) ((equal? name (normalize "index")) (index-number-restart-list cmp)) ((equal? name (normalize "setindex")) (setindex-number-restart-list cmp)) ((equal? name (normalize "refentry")) (refentry-number-restart-list cmp)) (else (default-number-restart-list cmp))))) (define (set-number-ignore-list cmp) '()) (define (book-number-ignore-list cmp) '()) (define (part-number-ignore-list cmp) '()) (define (reference-number-ignore-list cmp) (list (normalize "part"))) (define (preface-number-ignore-list cmp) (list (normalize "part"))) (define (chapter-number-ignore-list cmp) (list (normalize "part"))) (define (appendix-number-ignore-list cmp) (list (normalize "part"))) (define (article-number-ignore-list cmp) (list (normalize "part"))) (define (glossary-number-ignore-list cmp) (list (normalize "part"))) (define (bibliography-number-ignore-list cmp) (list (normalize "part"))) (define (index-number-ignore-list cmp) (list (normalize "part"))) (define (setindex-number-ignore-list cmp) (list (normalize "part"))) (define (refentry-number-ignore-list cmp) '()) (define (default-number-ignore-list cmp) '()) (define (component-number-ignore-list cmp) ;; Return the list of elements (inside the restart list) which are ;; hierarchy levels which should be ignored. For example, for CHAPTER, ;; it might return '("PART") causing chapter numbering inside books ;; to ignore parts. ;; ;; Basically, if you skip up past a component/division element in ;; the restart list, you better put the element(s) you skipped in ;; the ignore list or the stylesheet may never see your component ;; when it's trying to do the numbering. (let ((name (gi cmp))) (cond ((equal? name (normalize "set")) (set-number-ignore-list cmp)) ((equal? name (normalize "book")) (book-number-ignore-list cmp)) ((equal? name (normalize "part")) (part-number-ignore-list cmp)) ((equal? name (normalize "reference")) (reference-number-ignore-list cmp)) ((equal? name (normalize "preface")) (preface-number-ignore-list cmp)) ((equal? name (normalize "chapter")) (chapter-number-ignore-list cmp)) ((equal? name (normalize "appendix")) (appendix-number-ignore-list cmp)) ((equal? name (normalize "article")) (article-number-ignore-list cmp)) ((equal? name (normalize "glossary")) (glossary-number-ignore-list cmp)) ((equal? name (normalize "bibliography")) (bibliography-number-ignore-list cmp)) ((equal? name (normalize "index")) (index-number-ignore-list cmp)) ((equal? name (normalize "setindex")) (setindex-number-ignore-list cmp)) ((equal? name (normalize "refentry")) (refentry-number-ignore-list cmp)) (else (default-number-ignore-list cmp))))) (define (set-number-sibling-list cmp) '()) (define (book-number-sibling-list cmp) '()) (define (part-number-sibling-list cmp) '()) (define (reference-number-sibling-list cmp) '()) (define (preface-number-sibling-list cmp) '()) (define (chapter-number-sibling-list cmp) '()) (define (appendix-number-sibling-list cmp) '()) (define (article-number-sibling-list cmp) '()) (define (glossary-number-sibling-list cmp) '()) (define (bibliography-number-sibling-list cmp) '()) (define (index-number-sibling-list cmp) '()) (define (setindex-number-sibling-list cmp) '()) (define (refentry-number-sibling-list cmp) '()) (define (default-number-sibling-list cmp) '()) (define (component-number-sibling-list cmp) ;; Return the list of elements with which 'cmp' should be numbered. ;; For example, for PART it might return '("PART" "REFERENCE") causing ;; sibling parts and references to be numbered together. (let ((name (gi cmp))) (cond ((equal? name (normalize "set")) (set-number-sibling-list cmp)) ((equal? name (normalize "book")) (book-number-sibling-list cmp)) ((equal? name (normalize "part")) (part-number-sibling-list cmp)) ((equal? name (normalize "reference")) (reference-number-sibling-list cmp)) ((equal? name (normalize "preface")) (preface-number-sibling-list cmp)) ((equal? name (normalize "chapter")) (chapter-number-sibling-list cmp)) ((equal? name (normalize "appendix")) (appendix-number-sibling-list cmp)) ((equal? name (normalize "article")) (article-number-sibling-list cmp)) ((equal? name (normalize "glossary")) (glossary-number-sibling-list cmp)) ((equal? name (normalize "bibliography")) (bibliography-number-sibling-list cmp)) ((equal? name (normalize "index")) (index-number-sibling-list cmp)) ((equal? name (normalize "setindex")) (setindex-number-sibling-list cmp)) ((equal? name (normalize "refentry")) (refentry-number-sibling-list cmp)) (else (default-number-sibling-list cmp))))) (define (component-number component-node) (let* ((root (ancestor-member component-node (component-number-restart-list component-node))) (clist (expand-children (children root) (component-number-ignore-list component-node))) (slist (append (list (gi component-node)) (component-number-sibling-list component-node)))) (let loop ((nl clist) (count 1)) (if (node-list-empty? nl) 1 (if (node-list=? (node-list-first nl) component-node) count (if (member (gi (node-list-first nl)) slist) (loop (node-list-rest nl) (+ count 1)) (loop (node-list-rest nl) count))))))) ;; == components and divisions == (define (set-autolabel nd #!optional (force-label? #f)) "") (define (book-autolabel nd #!optional (force-label? #f)) "") (define (part-autolabel nd #!optional (force-label? #f)) (format-number (component-number nd) (label-number-format nd))) (define (reference-autolabel nd #!optional (force-label? #f)) (format-number (component-number nd) (label-number-format nd))) (define (preface-autolabel nd #!optional (force-label? #f)) "") (define (chapter-autolabel nd #!optional (force-label? #f)) (if (or force-label? %chapter-autolabel%) (format-number (component-number nd) (label-number-format nd)) "")) (define (appendix-autolabel nd #!optional (force-label? #f)) ;; Abandoned special processing for appendixes in articles. Maybe ;; it's a good idea, but it can't be done here because it screws ;; up cross references to appendixes. (if (or force-label? %chapter-autolabel%) (format-number (component-number nd) (label-number-format nd)) "")) (define (article-autolabel nd #!optional (force-label? #f)) "") (define (glossary-autolabel nd #!optional (force-label? #f)) "") (define (bibliography-autolabel nd #!optional (force-label? #f)) "") (define (index-autolabel nd #!optional (force-label? #f)) "") (define (indexdiv-autolabel nd #!optional (force-label? #f)) "") (define (colophon-autolabel nd #!optional (force-label? #f)) "") (define (setindex-autolabel nd #!optional (force-label? #f)) "") (define (refentry-autolabel nd #!optional (force-label? #f)) (let* ((isep (gentext-intra-label-sep nd)) (refnamediv (select-elements (children nd) (normalize "refnamediv"))) (refd (select-elements (children refnamediv) (normalize "refdescriptor"))) (refnames (select-elements (children refnamediv) (normalize "refname")))) "")) ;; == /components and divisions == (define (dedication-autolabel nd #!optional (force-label? #f)) "") (define (bibliodiv-autolabel nd #!optional (force-label? #f)) "") (define (glossdiv-autolabel nd #!optional (force-label? #f)) "") (define (section-autolabel-prefix nd) (let* ((isep (gentext-intra-label-sep nd)) (haschn (not (node-list-empty? (ancestor (normalize "chapter") nd)))) (hasapn (not (node-list-empty? (ancestor (normalize "appendix") nd))))) (cond (haschn (string-append (element-label (ancestor (normalize "chapter") nd)) isep)) (hasapn (string-append (element-label (ancestor (normalize "appendix") nd)) isep)) (else "")))) (define (section-autolabel nd #!optional (force-label? #f)) (let* ((isep (gentext-intra-label-sep nd)) (hasprf (not (node-list-empty? (ancestor (normalize "preface") nd)))) (prefix (section-autolabel-prefix nd))) (if (and (or force-label? %section-autolabel%) (or %label-preface-sections% (not hasprf))) (cond ((equal? (gi nd) (normalize "sect1")) (string-append prefix (format-number (child-number nd) (label-number-format nd)))) ((equal? (gi nd) (normalize "sect2")) (string-append (element-label (ancestor (normalize "sect1") nd) force-label?) isep (format-number (child-number nd) (label-number-format nd)))) ((equal? (gi nd) (normalize "sect3")) (string-append (element-label (ancestor (normalize "sect2") nd) force-label?) isep (format-number (child-number nd) (label-number-format nd)))) ((equal? (gi nd) (normalize "sect4")) (string-append (element-label (ancestor (normalize "sect3") nd) force-label?) isep (format-number (child-number nd) (label-number-format nd)))) ((equal? (gi nd) (normalize "sect5")) (string-append (element-label (ancestor (normalize "sect4") nd) force-label?) isep (format-number (child-number nd) (label-number-format nd)))) ((equal? (gi nd) (normalize "simplesect")) (let* ((possible-sect-ancestors (node-list (ancestor (normalize "section") nd) (ancestor (normalize "sect5") nd) (ancestor (normalize "sect4") nd) (ancestor (normalize "sect3") nd) (ancestor (normalize "sect2") nd) (ancestor (normalize "sect1") nd))) (section-ancestor (node-list-first possible-sect-ancestors))) (if (node-list-empty? section-ancestor) (string-append prefix (format-number (child-number nd) (label-number-format nd))) (string-append (element-label section-ancestor force-label?) isep (format-number (child-number nd) (label-number-format nd)))))) ((equal? (gi nd) (normalize "section")) (if (node-list-empty? (ancestor (normalize "section") nd)) (string-append prefix (format-number (child-number nd) (label-number-format nd))) (string-append (element-label (ancestor (normalize "section") nd) force-label?) isep (format-number (child-number nd) (label-number-format nd))))) (else (string-append (gi nd) " IS NOT A SECTION!"))) ""))) (define (refsection-autolabel nd #!optional (force-label? #f)) "") (define (step-autolabel nd #!optional (force-label? #f)) ($proc-step-xref-number$ nd)) (define (listitem-autolabel nd #!optional (force-label? #f)) (if (equal? (gi (parent nd)) (normalize "orderedlist")) (number->string (child-number nd)) "[xref to LISTITEM only supported in ORDEREDLIST]")) (define (sidebar-autolabel nd #!optional (force-label? #f)) "") (define (legalnotice-autolabel nd #!optional (force-label? #f)) "") (define (abstract-autolabel nd #!optional (force-label? #f)) "") (define (block-autolabel nd #!optional (force-label? #f)) (let* ((chn (element-label (ancestor (normalize "chapter") nd))) (apn (element-label (ancestor (normalize "appendix") nd))) (rfn (element-label (ancestor (normalize "refentry") nd))) ;; If the root of this document isn't in component-element-list, these ;; things all wind up being numbered 0. To avoid that, we force the ;; root element to be in the list of components if it isn't already ;; a component. (incomp (member (gi (sgml-root-element)) (component-element-list))) ;; In articles in books, number blocks from book not from article. ;; Otherwise you get 1, 1, 1, 1, etc. for the first figure in each ;; article. (artinbook (and (not (node-list-empty? (ancestor (normalize "article") nd))) (not (node-list-empty? (ancestor (normalize "book") nd))))) (bkn (if artinbook (format-number (component-child-number nd (list (normalize "book"))) (label-number-format nd)) (if incomp (format-number (component-child-number nd (component-element-list)) (label-number-format nd)) (format-number (component-child-number nd (append (component-element-list) (list (gi (sgml-root-element))))) (label-number-format nd)))))) (if (equal? chn "") (if (equal? apn "") (if (equal? rfn "") bkn (string-append rfn (gentext-intra-label-sep nd) bkn)) (string-append apn (gentext-intra-label-sep nd) bkn)) (string-append chn (gentext-intra-label-sep nd) bkn)))) ;; For all elements, if a LABEL attribute is present, that is the label ;; that they get. Otherwise: ;; BOOK gets the Book volume, by book-autolabel ;; PREFACE gets "", by preface-autolabel ;; CHAPTER gets the Chapter number, by chapter-autolabel ;; APPENDIX gets the Appendix letter, by appendix-autolabel ;; REFERENCE gets "", by reference-autolabel ;; REFENTRY gets "", by refentry-autolabel ;; SECT* gets the nested section number (e.g., 1.3.5), by section-autolabel ;; REFSECT* gets the nested section number, by refsection-autolabel ;; everything else gets numbered by block-autolabel ;; (define (element-label #!optional (nd (current-node)) (force-label? #f)) (if (node-list-empty? nd) "" (let ((label (attribute-string (normalize "label") nd))) (if label label (cond ;; Use a seperately defined assoc list? ((equal? (gi nd) (normalize "abstract")) (abstract-autolabel nd force-label?)) ((equal? (gi nd) (normalize "appendix")) (appendix-autolabel nd force-label?)) ((equal? (gi nd) (normalize "article")) (article-autolabel nd force-label?)) ((equal? (gi nd) (normalize "bibliodiv")) (bibliodiv-autolabel nd force-label?)) ((equal? (gi nd) (normalize "bibliography")) (bibliography-autolabel nd force-label?)) ((equal? (gi nd) (normalize "book")) (book-autolabel nd force-label?)) ((equal? (gi nd) (normalize "chapter")) (chapter-autolabel nd force-label?)) ((equal? (gi nd) (normalize "dedication")) (dedication-autolabel nd force-label?)) ((equal? (gi nd) (normalize "glossary")) (glossary-autolabel nd force-label?)) ((equal? (gi nd) (normalize "glossdiv")) (glossdiv-autolabel nd force-label?)) ((equal? (gi nd) (normalize "index")) (index-autolabel nd force-label?)) ((equal? (gi nd) (normalize "colophon")) (colophon-autolabel nd force-label?)) ((equal? (gi nd) (normalize "indexdiv")) (indexdiv-autolabel nd force-label?)) ((equal? (gi nd) (normalize "setindex")) (setindex-autolabel nd force-label?)) ((equal? (gi nd) (normalize "legalnotice")) (legalnotice-autolabel nd force-label?)) ((equal? (gi nd) (normalize "listitem")) (listitem-autolabel nd force-label?)) ((equal? (gi nd) (normalize "part")) (part-autolabel nd force-label?)) ((equal? (gi nd) (normalize "preface")) (preface-autolabel nd force-label?)) ((equal? (gi nd) (normalize "refentry")) (refentry-autolabel nd force-label?)) ((equal? (gi nd) (normalize "reference")) (reference-autolabel nd force-label?)) ((equal? (gi nd) (normalize "refsynopsisdiv")) (refsection-autolabel nd force-label?)) ((equal? (gi nd) (normalize "refsect1")) (refsection-autolabel nd force-label?)) ((equal? (gi nd) (normalize "refsect2")) (refsection-autolabel nd force-label?)) ((equal? (gi nd) (normalize "refsect3")) (refsection-autolabel nd force-label?)) ((equal? (gi nd) (normalize "sect1")) (section-autolabel nd force-label?)) ((equal? (gi nd) (normalize "sect2")) (section-autolabel nd force-label?)) ((equal? (gi nd) (normalize "sect3")) (section-autolabel nd force-label?)) ((equal? (gi nd) (normalize "sect4")) (section-autolabel nd force-label?)) ((equal? (gi nd) (normalize "sect5")) (section-autolabel nd force-label?)) ((equal? (gi nd) (normalize "section")) (section-autolabel nd force-label?)) ((equal? (gi nd) (normalize "simplesect")) (section-autolabel nd force-label?)) ((equal? (gi nd) (normalize "set")) (set-autolabel nd force-label?)) ((equal? (gi nd) (normalize "sidebar")) (sidebar-autolabel nd force-label?)) ((equal? (gi nd) (normalize "step")) (step-autolabel nd force-label?)) (else (block-autolabel nd force-label?))))))) ;; ====================================================================== ;; Returns the element label as a sosofo ;; (define (element-label-sosofo nd #!optional (force-label? #f)) (if (string=? (element-label nd force-label?) "") (empty-sosofo) (make sequence (literal (element-label nd force-label?))))) ;; ====================================================================== (define (set-title nd) (let* ((setinfo (select-elements (children nd) (normalize "setinfo"))) (sititles (select-elements (expand-children (children setinfo) (list (normalize "bookbiblio") (normalize "bibliomisc") (normalize "biblioset"))) (normalize "title"))) (settitles (select-elements (children nd) (normalize "title"))) (titles (if (node-list-empty? settitles) sititles settitles))) (if (node-list-empty? titles) "" (node-list-first titles)))) (define (book-title nd) (let* ((bookinfo (select-elements (children nd) (normalize "bookinfo"))) (bititles (select-elements (expand-children (children bookinfo) (list (normalize "bookbiblio") (normalize "bibliomisc") (normalize "biblioset"))) (normalize "title"))) (chtitles (select-elements (children nd) (normalize "title"))) (titles (if (node-list-empty? chtitles) bititles chtitles))) (if (node-list-empty? titles) "" (node-list-first titles)))) (define (part-title nd) (let* ((docinfo (select-elements (children nd) (normalize "docinfo"))) (dititles (select-elements (expand-children (children docinfo) (list (normalize "bookbiblio") (normalize "bibliomisc") (normalize "biblioset"))) (normalize "title"))) (chtitles (select-elements (children nd) (normalize "title"))) (titles (if (node-list-empty? chtitles) dititles chtitles))) (if (node-list-empty? titles) "" (node-list-first titles)))) (define (article-title nd) (let* ((titles (or (select-elements (children (node-list-filter-by-gi (children nd) (list (normalize "artheader") (normalize "articleinfo")))) (normalize "title")) (select-elements (children nd) (normalize "title"))))) (if (node-list-empty? titles) "" (node-list-first titles)))) (define (preface-title nd) (chapter-title nd)) (define (chapter-title nd) (let* ((docinfo (select-elements (children nd) (normalize "docinfo"))) (dititles (select-elements (expand-children (children docinfo) (list (normalize "bookbiblio") (normalize "bibliomisc") (normalize "biblioset"))) (normalize "title"))) (chtitles (select-elements (children nd) (normalize "title"))) (titles (if (node-list-empty? chtitles) dititles chtitles))) (if (node-list-empty? titles) "" (node-list-first titles)))) (define (appendix-title nd) (chapter-title nd)) (define (reference-title nd) (chapter-title nd)) (define (refsynopsisdiv-title nd) (optional-title nd)) ;; Returns either the REFENTRYTITLE or the first REFNAME. ;; (define (refentry-title nd) (let* ((refmeta (select-elements (descendants nd) (normalize "refmeta"))) (refttl (select-elements (descendants refmeta) (normalize "refentrytitle"))) (refndiv (select-elements (descendants nd) (normalize "refnamediv"))) (refname (select-elements (descendants refndiv) (normalize "refname")))) (if (node-list-empty? refttl) (if (node-list-empty? refname) "" (node-list-first refname)) (node-list-first refttl)))) (define (optional-title nd) (let* ((docinfo (select-elements (children nd) (normalize "docinfo"))) (dititles (select-elements (children docinfo) (normalize "title"))) (chtitles (select-elements (children nd) (normalize "title"))) (titles (if (node-list-empty? chtitles) dititles chtitles))) (if (node-list-empty? titles) (gentext-element-name nd) (node-list-first titles)))) (define (glossary-title nd) (optional-title nd)) (define (bibliography-title nd) (optional-title nd)) (define (index-title nd) (optional-title nd)) (define (setindex-title nd) (optional-title nd)) (define (dedication-title nd) (optional-title nd)) (define (colophon-title nd) (gentext-element-name nd)) (define (section-title nd) (let* ((info (select-elements (children nd) (list (normalize "sect1info") (normalize "sect2info") (normalize "sect3info") (normalize "sect4info") (normalize "sect5info") (normalize "section")))) (ititles (select-elements (children info) (normalize "title"))) (ctitles (select-elements (children nd) (normalize "title"))) (titles (if (node-list-empty? ctitles) ititles ctitles))) (if (node-list-empty? titles) "" (node-list-first titles)))) (define (refsection-title nd) (let* ((info (select-elements (children nd) (list (normalize "refsect1info") (normalize "refsect2info") (normalize "refsect3info")))) (ititles (select-elements (children info) (normalize "title"))) (ctitles (select-elements (children nd) (normalize "title"))) (titles (if (node-list-empty? ctitles) ititles ctitles))) (if (node-list-empty? titles) "" (node-list-first titles)))) (define (block-title nd) (let ((titles (select-elements (children nd) (normalize "title")))) (if (node-list-empty? titles) "" (node-list-first titles)))) ;; ====================================================================== (define (set-title-sosofo nd) (let ((title (set-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (book-title-sosofo nd) (let ((title (book-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (part-title-sosofo nd) (let ((title (part-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (article-title-sosofo nd) (let ((title (article-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (preface-title-sosofo nd) (let ((title (preface-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (chapter-title-sosofo nd) (let ((title (chapter-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (appendix-title-sosofo nd) (let ((title (appendix-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (reference-title-sosofo nd) (let ((title (reference-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (refsynopsisdiv-title-sosofo nd) (optional-title-sosofo nd)) (define (refentry-title-sosofo nd) (let ((title (refentry-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (optional-title-sosofo nd) (let ((title (optional-title nd))) (if (string? title) (literal title) (with-mode title-sosofo-mode (process-node-list title))))) (define (glossary-title-sosofo nd) (optional-title-sosofo nd)) (define (bibliography-title-sosofo nd) (optional-title-sosofo nd)) (define (index-title-sosofo nd) (optional-title-sosofo nd)) (define (setindex-title-sosofo nd) (optional-title-sosofo nd)) (define (dedication-title-sosofo nd) (optional-title-sosofo nd)) (define (colophon-title-sosofo nd) (literal (gentext-element-name nd))) (define (section-title-sosofo nd) (let ((title (section-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (refsection-title-sosofo nd) (let ((title (refsection-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (define (block-title-sosofo nd) (let ((title (block-title nd))) (if (string? title) (empty-sosofo) (with-mode title-sosofo-mode (process-node-list title))))) (mode title-sosofo-mode (element title (process-children-trim)) (element citetitle (process-children-trim)) (element refname (process-children-trim)) (element refentrytitle (process-children-trim))) ;; Returns the title of the element as a sosofo. ;; (define (element-title-sosofo #!optional (nd (current-node))) (if (node-list-empty? nd) (empty-sosofo) (cond ;; Use a seperately defined assoc list? ((equal? (gi nd) (normalize "appendix")) (appendix-title-sosofo nd)) ((equal? (gi nd) (normalize "article")) (article-title-sosofo nd)) ((equal? (gi nd) (normalize "bibliography")) (bibliography-title-sosofo nd)) ((equal? (gi nd) (normalize "book")) (book-title-sosofo nd)) ((equal? (gi nd) (normalize "chapter")) (chapter-title-sosofo nd)) ((equal? (gi nd) (normalize "dedication")) (dedication-title-sosofo nd)) ((equal? (gi nd) (normalize "glossary")) (glossary-title-sosofo nd)) ((equal? (gi nd) (normalize "index")) (index-title-sosofo nd)) ((equal? (gi nd) (normalize "colophon")) (colophon-title-sosofo nd)) ((equal? (gi nd) (normalize "setindex")) (index-title-sosofo nd)) ((equal? (gi nd) (normalize "part")) (part-title-sosofo nd)) ((equal? (gi nd) (normalize "preface")) (preface-title-sosofo nd)) ((equal? (gi nd) (normalize "refentry")) (refentry-title-sosofo nd)) ((equal? (gi nd) (normalize "reference")) (reference-title-sosofo nd)) ((equal? (gi nd) (normalize "refsect1")) (refsection-title-sosofo nd)) ((equal? (gi nd) (normalize "refsect2")) (refsection-title-sosofo nd)) ((equal? (gi nd) (normalize "refsect3")) (refsection-title-sosofo nd)) ((equal? (gi nd) (normalize "refsynopsisdiv")) (refsynopsisdiv-title-sosofo nd)) ((equal? (gi nd) (normalize "sect1")) (section-title-sosofo nd)) ((equal? (gi nd) (normalize "sect2")) (section-title-sosofo nd)) ((equal? (gi nd) (normalize "sect3")) (section-title-sosofo nd)) ((equal? (gi nd) (normalize "sect4")) (section-title-sosofo nd)) ((equal? (gi nd) (normalize "sect5")) (section-title-sosofo nd)) ((equal? (gi nd) (normalize "set")) (set-title-sosofo nd)) (else (block-title-sosofo nd))))) ;; ====================================================================== ;; Returns the title of the element; returns a node if possible, or a string (define (element-title nd) (if (node-list-empty? nd) "" (cond ;; Use a seperately defined assoc list? ((equal? (gi nd) (normalize "appendix")) (appendix-title nd)) ((equal? (gi nd) (normalize "article")) (article-title nd)) ((equal? (gi nd) (normalize "bibliography")) (bibliography-title nd)) ((equal? (gi nd) (normalize "book")) (book-title nd)) ((equal? (gi nd) (normalize "chapter")) (chapter-title nd)) ((equal? (gi nd) (normalize "dedication")) (dedication-title nd)) ((equal? (gi nd) (normalize "glossary")) (glossary-title nd)) ((equal? (gi nd) (normalize "index")) (index-title nd)) ((equal? (gi nd) (normalize "colophon")) (colophon-title nd)) ((equal? (gi nd) (normalize "setindex")) (setindex-title nd)) ((equal? (gi nd) (normalize "part")) (part-title nd)) ((equal? (gi nd) (normalize "preface")) (preface-title nd)) ((equal? (gi nd) (normalize "refentry")) (refentry-title nd)) ((equal? (gi nd) (normalize "reference")) (reference-title nd)) ((equal? (gi nd) (normalize "refsect1")) (refsection-title nd)) ((equal? (gi nd) (normalize "refsect2")) (refsection-title nd)) ((equal? (gi nd) (normalize "refsect3")) (refsection-title nd)) ((equal? (gi nd) (normalize "refsynopsisdiv")) (refsynopsisdiv-title nd)) ((equal? (gi nd) (normalize "sect1")) (section-title nd)) ((equal? (gi nd) (normalize "sect2")) (section-title nd)) ((equal? (gi nd) (normalize "sect3")) (section-title nd)) ((equal? (gi nd) (normalize "sect4")) (section-title nd)) ((equal? (gi nd) (normalize "sect5")) (section-title nd)) ((equal? (gi nd) (normalize "set")) (set-title nd)) (else (block-title nd))))) ;; ====================================================================== ;; Returns the data of a node, carefully excising INDEXTERMs from ;; the data content ;; (define (data-of node) ;; return the data characters of a node, except for the content of ;; indexterms which are suppressed. (let loop ((nl (children node)) (result "")) (if (node-list-empty? nl) result (if (equal? (node-property 'class-name (node-list-first nl)) 'element) (if (or (equal? (gi (node-list-first nl)) (normalize "indexterm")) (equal? (gi (node-list-first nl)) (normalize "comment")) (equal? (gi (node-list-first nl)) (normalize "remark"))) (loop (node-list-rest nl) result) (loop (node-list-rest nl) (string-append result (data-of (node-list-first nl))))) (if (or (equal? (node-property 'class-name (node-list-first nl)) 'data-char) (equal? (node-property 'class-name (node-list-first nl)) 'sdata)) (loop (node-list-rest nl) (string-append result (data (node-list-first nl)))) (loop (node-list-rest nl) result)))))) ;; ====================================================================== ;; Returns the element title data of nd ;; (define (element-title-string nd) (let ((title (element-title nd))) (if (string? title) title (data-of title)))) ;; ====================================================================== ;; Returns the element gi as a sosofo ;; (define (element-gi-sosofo nd) (if (node-list-empty? nd) (empty-sosofo) (make sequence (literal (gentext-element-name nd))))) ;; ====================================================================== (define (titlepage-info-elements node info #!optional (intro (empty-node-list))) ;; Returns a node-list of the elements that might appear on a title ;; page. This node-list is constructed as follows: ;; ;; 1. The "title" child of node is considered as a possibility ;; 2. If info is not empty, then node-list starts as the children ;; of info. If the children of info don't include a title, then ;; the title from the node is added. ;; 3. If info is empty, then node-list starts as the children of node, ;; but with "partintro" filtered out. (let* ((title (select-elements (children node) (normalize "title"))) (nl (if (node-list-empty? info) (node-list-filter-by-not-gi (children node) (list (normalize "partintro"))) (children info))) (nltitle (node-list-filter-by-gi nl (list (normalize "title"))))) (if (node-list-empty? info) (node-list nl intro) (node-list (if (node-list-empty? nltitle) title (empty-node-list)) nl intro)))) ;; ====================================================================== (define (info-element #!optional (nd (current-node))) ;; Returns the *INFO element for the nd or (empty-node-list) if no ;; such node exists... (cond ((equal? (gi nd) (normalize "set")) (select-elements (children nd) (normalize "setinfo"))) ((equal? (gi nd) (normalize "book")) (select-elements (children nd) (normalize "bookinfo"))) ((equal? (gi nd) (normalize "section")) (select-elements (children nd) (normalize "sectioninfo"))) ((equal? (gi nd) (normalize "sect1")) (select-elements (children nd) (normalize "sect1info"))) ((equal? (gi nd) (normalize "sect2")) (select-elements (children nd) (normalize "sect2info"))) ((equal? (gi nd) (normalize "sect3")) (select-elements (children nd) (normalize "sect3info"))) ((equal? (gi nd) (normalize "sect4")) (select-elements (children nd) (normalize "sect4info"))) ((equal? (gi nd) (normalize "sect5")) (select-elements (children nd) (normalize "sect5info"))) ((equal? (gi nd) (normalize "refsect1")) (select-elements (children nd) (normalize "refsect1info"))) ((equal? (gi nd) (normalize "refsect2")) (select-elements (children nd) (normalize "refsect2info"))) ((equal? (gi nd) (normalize "refsect3")) (select-elements (children nd) (normalize "refsect3info"))) ((equal? (gi nd) (normalize "refsynopsisdiv")) (select-elements (children nd) (normalize "refsynopsisdivinfo"))) ((equal? (gi nd) (normalize "article")) (node-list-filter-by-gi (children nd) (list (normalize "artheader") (normalize "articleinfo")))) (else ;; BIBLIODIV, GLOSSDIV, INDEXDIV, PARTINTRO, SIMPLESECT (select-elements (children nd) (normalize "docinfo"))))) ;; ====================================================================== ;; ;; Bibliography filtering... (define (biblio-filter allentries) (let* ((all (descendants (sgml-root-element))) (link (select-elements all (normalize "link"))) (xref (select-elements all (normalize "xref"))) (cite (select-elements all (normalize "citation"))) (xref-elements (node-list link xref))) (let loop ((entries allentries) (used (empty-node-list))) (if (node-list-empty? entries) used (if (or (cited-by-xref (node-list-first entries) xref-elements) (cited-by-citation (node-list-first entries) cite)) (loop (node-list-rest entries) (node-list used (node-list-first entries))) (loop (node-list-rest entries) used)))))) (define (cited-by-xref bib xref-elements) (let* ((id (attribute-string (normalize "id") bib))) (if id (let loop ((links xref-elements)) (if (node-list-empty? links) #f (if (equal? (attribute-string (normalize "linkend") (node-list-first links)) id) #t (loop (node-list-rest links))))) #f))) (define (cited-by-citation bib citations) (let loop ((links citations)) (if (node-list-empty? links) #f (if (citation-matches-target? (node-list-first links) bib) #t (loop (node-list-rest links)))))) (define (citation-matches-target? citation target) (let* ((fchild (node-list-first (node-list-filter-out-pis (children target)))) (abbrev (if (equal? (gi fchild) (normalize "abbrev")) fchild (empty-node-list))) (cite (data-of citation))) (or (equal? (attribute-string "id" target) (normalize cite)) (equal? (attribute-string "xreflabel" target) (normalize cite)) (equal? (normalize cite) (normalize (data-of abbrev)))))) (define (bibentry-number bibentry) (let* ((bgraphy (ancestor-member bibentry (list (normalize "bibliography")))) (comps (expand-children (children bgraphy) (list (normalize "bibliodiv"))))) (let loop ((nl comps) (count 1)) (if (node-list-empty? nl) 0 (if (node-list=? (node-list-first nl) bibentry) count (if (or (equal? (gi (node-list-first nl)) (normalize "biblioentry")) (equal? (gi (node-list-first nl)) (normalize "bibliomixed"))) (loop (node-list-rest nl) (+ count 1)) (loop (node-list-rest nl) count))))))) ;; ====================================================================== (define (olink-resource-title pubid sysid) ;; This version of olink-resource-title expects public identifiers ;; with the following format: ;; ;; -//owner//TEXT title Vx.x//EN ;; ;; Specifically the title is the description field of the public ;; identifier minus the first word (TEXT, the type) and the last ;; word, in my case a version string. Words are blank delimited. ;; The parsing will fail if a "/" appears anywhere in any field. ;; The system identifier is ignored ;; (let* ((pubidparts (if pubid (split pubid '(#\/)) (split "-//none//type version//la" '(#\/)))) (description (car (cdr (cdr pubidparts)))) (descparts (split description)) (titleparts (list-head (cdr descparts) (- (length descparts) 2)))) (join titleparts))) ;; ====================================================================== (define (orderedlist-listitem-number listitem) ;; return the number of listitem, taking continuation into account (let* ((orderedlist (parent listitem)) (listitems (select-elements (children orderedlist) (normalize "listitem"))) (continue? (equal? (attribute-string (normalize "continuation") orderedlist) (normalize "continues"))) ;; If a list is the continuation of a previous list, we must find the ;; list that is continued in order to calculate the starting ;; item number of this list. ;; ;; Of all the lists in this component, only the following are candidates: ;; 1. Lists which precede this list ;; 2. Lists which are not ancestors of this list ;; 3. Lists that do not have ancestors that are lists which precede this one ;; ;; Of the candidates, the last one, in document order, is the preceding ;; list (all-lists (select-elements (descendants (ancestor-member orderedlist (component-element-list))) (normalize "orderedlist"))) (cand1 (if continue? (let loop ((nl all-lists) (prec (empty-node-list))) (if (node-list-empty? nl) prec (if (node-list=? (node-list-first nl) orderedlist) prec (loop (node-list-rest nl) (node-list prec (node-list-first nl)))))) (empty-node-list))) (cand2 (let loop ((nl cand1) (cand2lists (empty-node-list))) (if (node-list-empty? nl) cand2lists (loop (node-list-rest nl) (if (descendant-of? (node-list-first nl) orderedlist) cand2lists (node-list cand2lists (node-list-first nl))))))) ;; now find the last item of cand2 that is not a descendant ;; of some other element of the cand2 list. (preclist (let loop ((nl (node-list-reverse cand2))) (if (node-list-empty? nl) (empty-node-list) (if (descendant-member-of? (node-list-first nl) (node-list-rest nl)) (loop (node-list-rest nl)) (node-list-first nl))))) (precitem (if (node-list-empty? preclist) (empty-node-list) (node-list-last (children preclist)))) (precitem-number (if (and continue? (not (node-list-empty? precitem))) (orderedlist-listitem-number precitem) 0))) (+ precitem-number (child-number listitem)))) (define (descendant-member-of? node node-list) ;; return true if node is a descedant of any member of node-list (let loop ((nl node-list)) (if (node-list-empty? nl) #f (if (descendant-of? (node-list-first nl) node) #t (loop (node-list-rest nl)))))) ;; ====================================================================== (define (orderedlist-listitem-label listitem) ;; return the formatted number of listitem (let* ((number (orderedlist-listitem-number listitem)) (depth (length (hierarchical-number-recursive (normalize "orderedlist") listitem))) (numeration (inherited-attribute-string (normalize "numeration") listitem)) ;; rawnum allows for numbering to alternate (rawnum (cond ((equal? numeration (normalize "arabic")) 1) ((equal? numeration (normalize "loweralpha")) 2) ((equal? numeration (normalize "lowerroman")) 3) ((equal? numeration (normalize "upperalpha")) 4) ((equal? numeration (normalize "upperroman")) 0) (else (modulo depth 5))))) (case rawnum ((1) (format-number number "1")) ((2) (format-number number "a")) ((3) (format-number number "i")) ((4) (format-number number "A")) ((0) (format-number number "I"))))) (define (orderedlist-listitem-label-recursive listitem) ;; return the recursively formatted number of the listitem. ;; In other words, something of the form 1.2.3 for a third level ;; nested ordered list (let loop ((li (parent listitem)) (label (orderedlist-listitem-label listitem))) (if (or (node-list-empty? li) (node-list-empty? (ancestor (normalize "orderedlist") li))) label (if (and (equal? (gi li) (normalize "listitem")) (equal? (gi (parent li)) (normalize "orderedlist"))) (loop (parent li) (string-append (orderedlist-listitem-label li) (gentext-intra-label-sep li) label)) (loop (parent li) label))))) (define (question-answer-label #!optional (node (current-node))) (let* ((inhlabel (inherited-attribute-string (normalize "defaultlabel") node)) (deflabel (if inhlabel inhlabel (qanda-defaultlabel))) (label (attribute-string (normalize "label") node)) (hnr (hierarchical-number-recursive (normalize "qandadiv") node)) (parsect (ancestor-member node (section-element-list))) (defnum (if (and %qanda-inherit-numeration% %section-autolabel%) (if (node-list-empty? parsect) (section-autolabel-prefix node) (section-autolabel parsect)) "")) (hnumber (let loop ((numlist hnr) (number defnum) (sep (if (equal? defnum "") "" "."))) (if (null? numlist) number (loop (cdr numlist) (string-append number sep (number->string (car numlist))) ".")))) (cnumber (child-number (parent node))) (number (string-append hnumber (if (equal? hnumber "") "" ".") (number->string cnumber)))) (cond ((equal? deflabel (normalize "qanda")) (gentext-element-name node)) ((equal? deflabel (normalize "label")) label) ;; Note: only questions are numbered... ((and (equal? deflabel (normalize "number")) (equal? (gi node) (normalize "question"))) (string-append number ".")) (else "")))) ;; ====================================================================== ;; Calculate term lengths... (define (varlistentry-term-too-long? vle termlength) (let loop ((nl (select-elements (children vle) (normalize "term"))) (too-long? #f)) (if (or too-long? (node-list-empty? nl)) too-long? (loop (node-list-rest nl) (> (string-length (data (node-list-first nl))) termlength))))) (define (variablelist-term-too-long? termlength) (let loop ((nl (select-elements (children (current-node)) (normalize "varlistentry"))) (too-long? #f)) (if (or too-long? (node-list-empty? nl)) too-long? (loop (node-list-rest nl) (varlistentry-term-too-long? (node-list-first nl) termlength))))) ;; ====================================================================== ;; bibliography elements (define (biblioentry-inline-elements) (list (normalize "abbrev") (normalize "affiliation") (normalize "artpagenums") (normalize "author") (normalize "authorgroup") (normalize "authorinitials") (normalize "citetitle") (normalize "collab") (normalize "confgroup") (normalize "contractnum") (normalize "contractsponsor") (normalize "contrib") (normalize "copyright") (normalize "corpauthor") (normalize "corpname") (normalize "date") (normalize "edition") (normalize "editor") (normalize "firstname") (normalize "honorific") (normalize "invpartnumber") (normalize "isbn") (normalize "issn") (normalize "issuenum") (normalize "lineage") (normalize "orgname") (normalize "othercredit") (normalize "othername") (normalize "pagenums") (normalize "productname") (normalize "productnumber") (normalize "pubdate") (normalize "publisher") (normalize "publishername") (normalize "pubsnumber") (normalize "releaseinfo") (normalize "seriesvolnums") (normalize "subtitle") (normalize "surname") (normalize "title") (normalize "titleabbrev") (normalize "volumenum"))) (define (biblioentry-block-elements) (list (normalize "abstract") (normalize "address") (normalize "authorblurb") (normalize "printhistory") (normalize "revhistory") (normalize "seriesinfo"))) (define (biblioentry-flatten-elements) (list (normalize "articleinfo") (normalize "biblioset") (normalize "bookbiblio") (normalize "artheader"))) ;; === db31 common ====================================================== (define (data-filename dataobj) (let* ((entityref (attribute-string (normalize "entityref") dataobj)) (fileref (attribute-string (normalize "fileref") dataobj)) (filename (if fileref fileref (system-id-filename entityref))) (ext (file-extension filename))) (if (or (not filename) (not %graphic-default-extension%) (member ext %graphic-extensions%)) filename (string-append filename "." %graphic-default-extension%)))) (define (normalized-member string string-list) (if (string? string) (let loop ((sl string-list)) (if (null? sl) #f (if (string=? (normalize string) (normalize (car sl))) #t (loop (cdr sl))))) #f)) (define (find-displayable-object objlist notlist extlist) (let loop ((nl objlist)) (if (node-list-empty? nl) (empty-node-list) (let* ((objdata (node-list-filter-by-gi (children (node-list-first nl)) (list (normalize "videodata") (normalize "audiodata") (normalize "imagedata")))) (filename (data-filename objdata)) (extension (file-extension filename)) (notation (attribute-string (normalize "format") objdata))) (if (or (normalized-member notation notlist) (normalized-member extension extlist) (and notation (string=? notation (normalize "linespecific")))) (node-list-first nl) (loop (node-list-rest nl))))))) (define (select-displayable-object objlist) (let ((pref (find-displayable-object objlist preferred-mediaobject-notations preferred-mediaobject-extensions)) (ok (find-displayable-object objlist acceptable-mediaobject-notations acceptable-mediaobject-extensions))) (if (node-list-empty? pref) ok pref))) (define ($mediaobject$) (let* ((objects (node-list-filter-by-gi (children (current-node)) (list (normalize "videoobject") (normalize "imageobject") (normalize "audioobject")))) (dobject (select-displayable-object objects)) (textobj (select-elements (children (current-node)) (normalize "textobject"))) (caption (select-elements (children (current-node)) (normalize "caption")))) (make sequence (if (node-list-empty? dobject) (if (node-list-empty? textobj) (empty-sosofo) (process-node-list (node-list-first textobj))) (process-node-list dobject)) (process-node-list caption)))) ;; ====================================================================== docbook-dsssl-1.79/common/cs-hack.pl0000644000175000001440000000017607270105207020042 0ustar msmithusers00000000000000#!/bin/perl -- # -*- Perl -*- # Charset hacking... while (<>) { s/\&\#(\d+);/sprintf("\\U-%04X;", $1)/egs; print; } docbook-dsssl-1.79/common/dbl1af.ent0000644000175000001440000001430010142563525020032 0ustar msmithusers00000000000000 docbook-dsssl-1.79/catalog0000644000175000001440000000236307524370073016250 0ustar msmithusers00000000000000OVERRIDE YES -- Stylesheets -- PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" print/docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" html/docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DSSSL Library//EN" lib/dblib.dsl PUBLIC "-//Norman Walsh//DOCUMENT DSSSL Library V2//EN" lib/dblib.dsl -- DTDs -- PUBLIC "+//IDN nwalsh.com//DTD DocBook DSSSL Architecture V1.0//EN" dtds/dbdsssl/dbdsssl.dtd PUBLIC "-//Norman Walsh//DTD DocBook OLink Summary V1.1//EN" dtds/olink/olinksum.dtd PUBLIC "-//Norman Walsh//DTD DocBook HTML 1.0//EN" dtds/html/dbhtml.dtd DTDDECL "-//Norman Walsh//DTD DocBook HTML 1.0//EN" dtds/html/dbhtml.dcl PUBLIC "-//Norman Walsh//DTD Image Library 1.0//EN" dtds/imagelib/imagelib.dtd -- Entities -- PUBLIC "ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML" dtds/html/ISOlat1.gml -- Documents -- PUBLIC "-//Norman Walsh//DOCUMENT DocBook DSSSL Stylesheet Documentation V1.0//EN" docsrc/docbook.sgm PUBLIC "-//Norman Walsh//DOCUMENT OLink Test Document V1.0//EN" docsrc/olinktarget.sgm PUBLIC "-//Norman Walsh//DOCUMENT OLink Semantics in the DocBook DSSSL Stylesheets V1.0//EN" docsrc/olinksemantics.sgm -- Declarations -- -- SGMLDECL "dtds/decls/docbook.dcl" -- docbook-dsssl-1.79/bin/0000755000175000001440000000000010142564561015454 5ustar msmithusers00000000000000docbook-dsssl-1.79/bin/ChangeLog0000644000175000001440000000346010142575332017227 0ustar msmithusers000000000000002004-10-24 * collateindex.pl: Only mention the program's base name in the error messages. 2004-10-23 * Makefile: Don't put a "v" before the version number here. * collateindex.pl: Put the options list in some kind of order, and make the error messages have a consistent format. 2003-03-21 Adam Di Carlo * Makefile: clean target cleans backup files and CVS junk 2003-03-16 Adam Di Carlo * Makefile: fix the POD release variable 2003-01-19 Adam Di Carlo * collateindex.pl: fix from Tim Waugh for when the same indexterm has too different seealso's, where currently script produces invalid SGML/XML; fixes bug #551318 2002-12-16 Adam Di Carlo * .cvsignore: New file. 2002-08-08 Adam Di Carlo * Makefile: New file. 2002-01-07 Adam Di Carlo * collateindex.pl: emit a warning if a duplicated index entry is found and removed 2001-12-01 Norman Walsh * collateindex.pl: Patch #468645: fix for indexterm zones in print 2001-04-20 Adam Di Carlo * collateindex.pl: add POD documentation; remove the usage message documentation in the name of reducing redundancy 2001-04-18 Adam Di Carlo * collateindex.pl: add -q (quiet) and -V (report version only) arguments 2001-04-03 Norman Walsh * collateindex.pl: Whitespace changes * collateindex.pl: Fix bug 412898, produce links in the index, even in the presence of seealso 2001-04-02 Norman Walsh * collateindex.pl: New file. docbook-dsssl-1.79/bin/collateindex.pl.10000644000175000001440000001465610142563773020643 0ustar msmithusers00000000000000.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.14 .\" .\" Standard preamble: .\" ======================================================================== .de Sh \" Subsection heading .br .if t .Sp .ne 5 .PP \fB\\$1\fR .PP .. .de Sp \" Vertical space (when we can't use .PP) .if t .sp .5v .if n .sp .. .de Vb \" Begin verbatim text .ft CW .nf .ne \\$1 .. .de Ve \" End verbatim text .ft R .fi .. .\" Set up some character translations and predefined strings. \*(-- will .\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left .\" double quote, and \*(R" will give a right double quote. | will give a .\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to .\" do unbreakable dashes and therefore won't be available. \*(C` and \*(C' .\" expand to `' in nroff, nothing in troff, for use with C<>. .tr \(*W-|\(bv\*(Tr .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p' .ie n \{\ . ds -- \(*W- . ds PI pi . if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch . if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch . ds L" "" . ds R" "" . ds C` "" . ds C' "" 'br\} .el\{\ . ds -- \|\(em\| . ds PI \(*p . ds L" `` . ds R" '' 'br\} .\" .\" If the F register is turned on, we'll generate index entries on stderr for .\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index .\" entries marked with X<> in POD. Of course, you'll have to process the .\" output yourself in some meaningful fashion. .if \nF \{\ . de IX . tm Index:\\$1\t\\n%\t"\\$2" .. . nr % 0 . rr F .\} .\" .\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" way too many mistakes in technical documents. .hy 0 .if n .na .\" .\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2). .\" Fear. Run. Save yourself. No user-serviceable parts. . \" fudge factors for nroff and troff .if n \{\ . ds #H 0 . ds #V .8m . ds #F .3m . ds #[ \f1 . ds #] \fP .\} .if t \{\ . ds #H ((1u-(\\\\n(.fu%2u))*.13m) . ds #V .6m . ds #F 0 . ds #[ \& . ds #] \& .\} . \" simple accents for nroff and troff .if n \{\ . ds ' \& . ds ` \& . ds ^ \& . ds , \& . ds ~ ~ . ds / .\} .if t \{\ . ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u" . ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u' . ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u' . ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u' . ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u' . ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u' .\} . \" troff and (daisy-wheel) nroff accents .ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V' .ds 8 \h'\*(#H'\(*b\h'-\*(#H' .ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#] .ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H' .ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u' .ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#] .ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#] .ds ae a\h'-(\w'a'u*4/10)'e .ds Ae A\h'-(\w'A'u*4/10)'E . \" corrections for vroff .if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u' .if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u' . \" for low resolution devices (crt and lpr) .if \n(.H>23 .if \n(.V>19 \ \{\ . ds : e . ds 8 ss . ds o a . ds d- d\h'-1'\(ga . ds D- D\h'-1'\(hy . ds th \o'bp' . ds Th \o'LP' . ds ae ae . ds Ae AE .\} .rm #[ #] #H #V #F C .\" ======================================================================== .\" .IX Title "COLLATEINDEX 1" .TH COLLATEINDEX 1 "2004-11-04" "docbook-dsssl 1.79" "DocBook DSSSL" .SH "NAME" collateindex.pl \- generate DocBook index files .SH "SYNOPSIS" .IX Header "SYNOPSIS" \&\fBcollateindex.pl\fR [\fB\-f\fR] [\fB\-g\fR] [\fB\-i\fR \fIid\fR] [\fB\-I\fR \fIscope\fR] [\fB\-N\fR] [\fB\-o\fR \fIfile\fR] [\fB\-p\fR] [\fB\-P\fR \fIfile\fR] [\fB\-q\fR] [\fB\-s\fR \fIname\fR] [\fB\-S\fR \fIscope\fR] [\fB\-t\fR \fIname\fR] [\fB\-x\fR] \fIfile\fR .SH "DESCRIPTION" .IX Header "DESCRIPTION" \&\fBcollateindex.pl\fR creates index data for DocBook \s-1XML\s0 or \s-1SGML\s0 files. .SH "OPTIONS" .IX Header "OPTIONS" .IP "\fB\-f\fR" 5 .IX Item "-f" Force the output file to be written, even if it appears to have been edited by hand. .IP "\fB\-g\fR" 5 .IX Item "-g" Group terms with IndexDiv based on the first letter of the term (or its SortAs attribute). (This might not handle all language environments.) .IP "\fB\-i\fR \fIid\fR" 5 .IX Item "-i id" The \s-1ID\s0 to use for the tag. .IP "\fB\-I\fR \fIscope\fR" 5 .IX Item "-I scope" The implied scope, must be \f(CW\*(C`all\*(C'\fR, \f(CW\*(C`local\*(C'\fR, or \f(CW\*(C`global\*(C'\fR. IndexTerms which do not specify a scope will have the implied scope. If unspecified, \f(CW\*(C`all\*(C'\fR is assumed. .IP "\fB\-N\fR" 5 .IX Item "-N" New index (generates an empty index file). .IP "\fB\-o\fR \fIfile\fR" 5 .IX Item "-o file" Output to \fIfile\fR. Defaults to \fIstdout\fR. .IP "\fB\-p\fR" 5 .IX Item "-p" Link to points in the document. The default is to link to the closest containing section. .IP "\fB\-P\fR \fIfile\fR" 5 .IX Item "-P file" Read a preamble from \fIfile\fR. The contents of \fIfile\fR will be inserted before the tag. .IP "\fB\-q\fR" 5 .IX Item "-q" Run quietly. .IP "\fB\-s\fR \fIname\fR" 5 .IX Item "-s name" Name the IndexDiv that contains symbols. The default is \f(CW\*(C`Symbols\*(C'\fR. Meaningless if \fB\-g\fR is not used. .IP "\fB\-S\fR \fIscope\fR" 5 .IX Item "-S scope" Scope of the index, must be \f(CW\*(C`all\*(C'\fR, \f(CW\*(C`local\*(C'\fR, or \f(CW\*(C`global\*(C'\fR. If unspecified, \f(CW\*(C`all\*(C'\fR is assumed. .IP "\fB\-t\fR \fIname\fR" 5 .IX Item "-t name" Title for the index. .IP "\fB\-x\fR" 5 .IX Item "-x" Make a SetIndex. .IP "\fB\-V\fR" 5 .IX Item "-V" Print version number and exit. .IP "\fIfile\fR" 5 .IX Item "file" The file containing index data generated with the DocBook \s-1DSSSL\s0 \&\s-1HTML\s0 stylesheet (usually called \fI\s-1HTML\s0.index\fR). .SH "EXAMPLE" .IX Header "EXAMPLE" \&\fBcollateindex.pl\fR \fB\-o\fR \fIindex.sgml\fR \fI\s-1HTML\s0.index\fR .SH "EXIT STATUS" .IX Header "EXIT STATUS" .IP "\fB0\fR" 5 .IX Item "0" Success .IP "\fB1\fR" 5 .IX Item "1" Failure .SH "AUTHOR" .IX Header "AUTHOR" Norm Walsh .PP Minor updates by Adam Di Carlo and Peter Eisentraut docbook-dsssl-1.79/bin/collateindex.pl0000644000175000001440000004213710142350763020470 0ustar msmithusers00000000000000#!/usr/bin/perl -- # -*- Perl -*- # # $Id: collateindex.pl,v 1.10 2004/10/24 17:05:41 petere78 Exp $ =head1 NAME collateindex.pl - generate DocBook index files =head1 SYNOPSIS B [B<-f>] [B<-g>] [B<-i> I] [B<-I> I] [B<-N>] [B<-o> F] [B<-p>] [B<-P> F] [B<-q>] [B<-s> I] [B<-S> I] [B<-t> I] [B<-x>] F =head1 DESCRIPTION B creates index data for DocBook XML or SGML files. =cut use File::Basename; use Getopt::Std; $me = basename($0); $usage = "Usage: $0 [options] file Try \"perldoc $me\" for documentation.\n"; ( $version = '$Revision: 1.10 $' ) =~ s/^\$[R]evision:\s*([^ ]*)\s*\$$/$1/; =head1 OPTIONS =over 5 =item B<-f> Force the output file to be written, even if it appears to have been edited by hand. =item B<-g> Group terms with IndexDiv based on the first letter of the term (or its SortAs attribute). (This might not handle all language environments.) =item B<-i> I The ID to use for the EindexE tag. =item B<-I> I The implied scope, must be C, C, or C. IndexTerms which do not specify a scope will have the implied scope. If unspecified, C is assumed. =item B<-N> New index (generates an empty index file). =item B<-o> F Output to F. Defaults to F. =item B<-p> Link to points in the document. The default is to link to the closest containing section. =item B<-P> F Read a preamble from F. The contents of F will be inserted before the EindexE tag. =item B<-q> Run quietly. =item B<-s> I Name the IndexDiv that contains symbols. The default is C. Meaningless if B<-g> is not used. =item B<-S> I Scope of the index, must be C, C, or C. If unspecified, C is assumed. =item B<-t> I Title for the index. =item B<-x> Make a SetIndex. =item B<-V> Print version number and exit. =item F The file containing index data generated with the DocBook DSSSL HTML stylesheet (usually called F). =back =cut die $usage if ! getopts('Dfgi:NpP:s:o:S:I:t:xqV'); $linkpoints = $opt_p; $lettergroups = $opt_g; $symbolsname = $opt_s || "Symbols"; $title = $opt_t; $preamble = $opt_P; $outfile = $opt_o || '-'; $indexid = $opt_i; $scope = uc($opt_S) || 'ALL'; $impliedscope = uc($opt_I) || 'ALL'; $setindex = $opt_x; $forceoutput = $opt_f; $newindex = $opt_N; $debug = $opt_D; $quiet = $opt_q; if ( $opt_V ) { print "collateindex.pl $version\n"; exit 0; } $indextag = $setindex ? 'setindex' : 'index'; if ($newindex) { safe_open(*OUT, $outfile); if ($indexid) { print OUT "<$indextag id='$indexid'>\n\n"; } else { print OUT "<$indextag>\n\n"; } print OUT "\n"; print OUT "\n"; print OUT "\n"; exit 0; } $dat = shift @ARGV || die $usage; die "$me: file \"$dat\" does not exist\n" if ! -f $dat; %legal_scopes = ('ALL' => 1, 'LOCAL' => 1, 'GLOBAL' => 1); if ($scope && !$legal_scopes{$scope}) { die "$me: invalid scope: $scope\n"; } if ($impliedscope && !$legal_scopes{$impliedscope}) { die "$me: invalid implied scope: $impliedscope\n"; } @term = (); %id = (); $termcount = 0; $quiet || print STDERR "Processing $dat...\n"; # Read the index file, creating an array of objects. Each object # represents and indexterm and has fields for the content of the # indexterm open (F, $dat); while () { chop; chop if /\r$/; if (/^\/indexterm/i) { push (@term, $idx); next; } if (/^indexterm (.*)$/i) { $termcount++; $idx = {}; $idx->{'zone'} = {}; $idx->{'href'} = $1; $idx->{'count'} = $termcount; $idx->{'scope'} = $impliedscope; next; } if (/^indexpoint (.*)$/i) { $idx->{'hrefpoint'} = $1; next; } if (/^title (.*)$/i) { $idx->{'title'} = $1; next; } if (/^primary[\[ ](.*)$/i) { if (/^primary\[(.*?)\] (.*)$/i) { $idx->{'psortas'} = &escape($1); $idx->{'primary'} = &escape($2); } else { $idx->{'psortas'} = &escape($1); $idx->{'primary'} = &escape($1); } next; } if (/^secondary[\[ ](.*)$/i) { if (/^secondary\[(.*?)\] (.*)$/i) { $idx->{'ssortas'} = &escape($1); $idx->{'secondary'} = &escape($2); } else { $idx->{'ssortas'} = &escape($1); $idx->{'secondary'} = &escape($1); } next; } if (/^tertiary[\[ ](.*)$/i) { if (/^tertiary\[(.*?)\] (.*)$/i) { $idx->{'tsortas'} = &escape($1); $idx->{'tertiary'} = &escape($2); } else { $idx->{'tsortas'} = &escape($1); $idx->{'tertiary'} = &escape($1); } next; } if (/^see (.*)$/i) { $idx->{'see'} = &escape($1); next; } if (/^seealso (.*)$/i) { $idx->{'seealso'} = &escape($1); next; } if (/^significance (.*)$/i) { $idx->{'significance'} = &escape($1); next; } if (/^class (.*)$/i) { $idx->{'class'} = &escape($1); next; } if (/^scope (.*)$/i) { $idx->{'scope'} = &escape(uc($1)); next; } if (/^startref (.*)$/i) { $idx->{'startref'} = $1; next; } if (/^id (.*)$/i) { $idx->{'id'} = $1; $id{$1} = $idx; next; } if (/^zone (.*)$/i) { my($href) = $1; $_ = scalar(); chop; die "$me: invalid zone: $_\n" if !/^title (.*)$/i; $idx->{'zone'}->{$href} = $1; next; } die "$me: unrecognized tag in input: $_\n"; } close (F); $quiet || print STDERR "$termcount entries loaded...\n"; # Fixup the startrefs... # In DocBook, STARTREF is a #CONREF attribute; support this by copying # all of the fields from the indexterm with the id specified by STARTREF # to the indexterm that has the STARTREF. foreach $idx (@term) { my($ididx, $field); if ($idx->{'startref'}) { $ididx = $id{$idx->{'startref'}}; foreach $field ('primary', 'secondary', 'tertiary', 'see', 'seealso', 'psortas', 'ssortas', 'tsortas', 'significance', 'class', 'scope') { $idx->{$field} = $ididx->{$field}; } } } # Sort the index terms @term = sort termsort @term; # Move all of the non-alphabetic entries to the front of the index. @term = sortsymbols(@term); safe_open(*OUT, $outfile); # Write the index... if ($indexid) { print OUT "<$indextag id='$indexid'>\n\n"; } else { print OUT "<$indextag>\n\n"; } print OUT "\n"; print OUT "\n"; print OUT "\n\n"; print OUT "$title\n\n" if $title; $last = {}; # the last indexterm we processed $first = 1; # this is the first one $group = ""; # we're not in a group yet $lastout = ""; # we've not put anything out yet @seealsos = (); # See also stack. foreach $idx (@term) { next if $idx->{'startref'}; # no way to represent spans... next if ($idx->{'scope'} eq 'LOCAL') && ($scope eq 'GLOBAL'); next if ($idx->{'scope'} eq 'GLOBAL') && ($scope eq 'LOCAL'); next if &same($idx, $last); # suppress duplicates $termcount--; # If primary changes, output a whole new index term, otherwise just # output another secondary or tertiary, as appropriate. We know from # sorting that the terms will always be in the right order. if (!&tsame($last, $idx, 'primary')) { print "DIFF PRIM\n" if $debug; &end_entry() if not $first; if ($lettergroups) { # If we're grouping, make the right indexdivs $letter = $idx->{'psortas'}; $letter = $idx->{'primary'} if !$letter; $letter = uc(substr($letter, 0, 1)); # symbols are a special case if (($letter lt 'A') || ($letter gt 'Z')) { if (($group eq '') || (($group ge 'A') && ($group le 'Z'))) { print OUT "\n" if !$first; print OUT "$symbolsname\n\n"; $group = $letter; } } elsif (($group eq '') || ($group ne $letter)) { print OUT "\n" if !$first; print OUT "$letter\n\n"; $group = $letter; } } $first = 0; # there can only be on first ;-) print OUT "\n"; print OUT " ", $idx->{'primary'}; $lastout = "primaryie"; if ($idx->{'secondary'}) { print OUT "\n \n"; print OUT " ", $idx->{'secondary'}; $lastout = "secondaryie"; }; if ($idx->{'tertiary'}) { print OUT "\n \n"; print OUT " ", $idx->{'tertiary'}; $lastout = "tertiaryie"; } } elsif (!&tsame($last, $idx, 'secondary')) { print "DIFF SEC\n" if $debug; print OUT "\n \n" if $lastout; foreach (@seealsos) { # it'd be nice to make this a link... print OUT $indent, " ", &escape($_), "\n"; } @seealsos = (); print OUT " ", $idx->{'secondary'}; $lastout = "secondaryie"; if ($idx->{'tertiary'}) { print OUT "\n \n"; print OUT " ", $idx->{'tertiary'}; $lastout = "tertiaryie"; } } elsif (!&tsame($last, $idx, 'tertiary')) { print "DIFF TERT\n" if $debug; print OUT "\n \n" if $lastout; foreach (@seealsos) { # it'd be nice to make this a link... print OUT $indent, " ", &escape($_), "\n"; } @seealsos = (); if ($idx->{'tertiary'}) { print OUT " ", $idx->{'tertiary'}; $lastout = "tertiaryie"; } } &print_term($idx); $last = $idx; } # Termcount is > 0 iff some entries were skipped. $quiet || print STDERR "$termcount entries ignored...\n"; &end_entry(); print OUT "\n" if $lettergroups; print OUT "\n"; close (OUT); $quiet || print STDERR "Done.\n"; sub same { my($a) = shift; my($b) = shift; my($aP) = $a->{'psortas'} || $a->{'primary'}; my($aS) = $a->{'ssortas'} || $a->{'secondary'}; my($aT) = $a->{'tsortas'} || $a->{'tertiary'}; my($bP) = $b->{'psortas'} || $b->{'primary'}; my($bS) = $b->{'ssortas'} || $b->{'secondary'}; my($bT) = $b->{'tsortas'} || $b->{'tertiary'}; my($same); $aP =~ s/^\s*//; $aP =~ s/\s*$//; $aP = uc($aP); $aS =~ s/^\s*//; $aS =~ s/\s*$//; $aS = uc($aS); $aT =~ s/^\s*//; $aT =~ s/\s*$//; $aT = uc($aT); $bP =~ s/^\s*//; $bP =~ s/\s*$//; $bP = uc($bP); $bS =~ s/^\s*//; $bS =~ s/\s*$//; $bS = uc($bS); $bT =~ s/^\s*//; $bT =~ s/\s*$//; $bT = uc($bT); # print "[$aP]=[$bP]\n"; # print "[$aS]=[$bS]\n"; # print "[$aT]=[$bT]\n"; # Two index terms are the same if: # 1. the primary, secondary, and tertiary entries are the same # (or have the same SORTAS) # AND # 2. They occur in the same titled section # AND # 3. They point to the same place # # Notes: Scope is used to suppress some entries, but can't be used # for comparing duplicates. # Interpretation of "the same place" depends on whether or # not $linkpoints is true. $same = (($aP eq $bP) && ($aS eq $bS) && ($aT eq $bT) && ($a->{'title'} eq $b->{'title'}) && ($a->{'href'} eq $b->{'href'})); # If we're linking to points, they're only the same if they link # to exactly the same spot. $same = $same && ($a->{'hrefpoint'} eq $b->{'hrefpoint'}) if $linkpoints; if ($same) { warn "$me: duplicated index entry found: $aP $aS $aT\n"; } $same; } sub tsame { # Unlike same(), tsame only compares a single term my($a) = shift; my($b) = shift; my($term) = shift; my($sterm) = substr($term, 0, 1) . "sortas"; my($A, $B); $A = $a->{$sterm} || $a->{$term}; $B = $b->{$sterm} || $b->{$term}; $A =~ s/^\s*//; $A =~ s/\s*$//; $A = uc($A); $B =~ s/^\s*//; $B =~ s/\s*$//; $B = uc($B); return $A eq $B; } sub end_entry { # End any open elements... print OUT "\n \n" if $lastout; foreach (@seealsos) { # it'd be nice to make this a link... print OUT $indent, " ", &escape($_), "\n"; } @seealsos = (); print OUT "\n\n"; $lastout = ""; } sub print_term { # Print out the links for an indexterm. There can be more than # one if the term has a ZONE that points to more than one place. # (do we do the right thing in that case?) my($idx) = shift; my($key, $indent, @hrefs); my(%href) = (); my(%phref) = (); $indent = " "; if ($idx->{'see'}) { # it'd be nice to make this a link... if ($lastout) { print OUT "\n \n"; $lastout = ""; } print OUT $indent, "", &escape($idx->{'see'}), "\n"; return; } if (keys %{$idx->{'zone'}}) { foreach $key (keys %{$idx->{'zone'}}) { $href{$key} = $idx->{'zone'}->{$key}; $phref{$key} = $key; } } else { $href{$idx->{'href'}} = $idx->{'title'}; $phref{$idx->{'href'}} = $idx->{'hrefpoint'}; } # We can't use because we don't know the ID of the term in the # original source (and, in fact, it might not have one). print OUT ",\n"; @hrefs = keys %href; while (@hrefs) { my($linkend) = ""; my($role) = ""; $key = shift @hrefs; if ($linkpoints) { $linkend = $phref{$key}; } else { $linkend = $key; } $role = $phref{$key}; $role = $1 if $role =~ /\#(.*)$/; $role = $1 if $role =~ /(.*)\./; print OUT $indent; print OUT ""; print OUT "" if ($idx->{'significance'} eq 'PREFERRED'); print OUT &escape($href{$key}); print OUT "" if ($idx->{'significance'} eq 'PREFERRED'); print OUT ""; } if ($idx->{'seealso'}) { push @seealsos, $idx->{'seealso'}; } } sub termsort { my($aP) = $a->{'psortas'} || $a->{'primary'}; my($aS) = $a->{'ssortas'} || $a->{'secondary'}; my($aT) = $a->{'tsortas'} || $a->{'tertiary'}; my($ap) = $a->{'count'}; my($bP) = $b->{'psortas'} || $b->{'primary'}; my($bS) = $b->{'ssortas'} || $b->{'secondary'}; my($bT) = $b->{'tsortas'} || $b->{'tertiary'}; my($bp) = $b->{'count'}; $aP =~ s/^\s*//; $aP =~ s/\s*$//; $aP = uc($aP); $aS =~ s/^\s*//; $aS =~ s/\s*$//; $aS = uc($aS); $aT =~ s/^\s*//; $aT =~ s/\s*$//; $aT = uc($aT); $bP =~ s/^\s*//; $bP =~ s/\s*$//; $bP = uc($bP); $bS =~ s/^\s*//; $bS =~ s/\s*$//; $bS = uc($bS); $bT =~ s/^\s*//; $bT =~ s/\s*$//; $bT = uc($bT); if ($aP eq $bP) { if ($aS eq $bS) { if ($aT eq $bT) { # make sure seealso's always sort to the bottom return 1 if ($a->{'seealso'}); return -1 if ($b->{'seealso'}); # if everything else is the same, keep these elements # in document order (so the index links are in the right # order) return $ap <=> $bp; } else { return $aT cmp $bT; } } else { return $aS cmp $bS; } } else { return $aP cmp $bP; } } sub sortsymbols { my(@term) = @_; my(@new) = (); my(@sym) = (); my($letter); my($idx); # Move the non-letter things to the front. Should digits be thier # own group? Maybe... foreach $idx (@term) { $letter = $idx->{'psortas'}; $letter = $idx->{'primary'} if !$letter; $letter = uc(substr($letter, 0, 1)); if (($letter lt 'A') || ($letter gt 'Z')) { push (@sym, $idx); } else { push (@new, $idx); } } return (@sym, @new); } sub safe_open { local(*OUT) = shift; local(*F, $_); if (($outfile ne '-') && (!$forceoutput)) { my($handedit) = 1; if (open (OUT, $outfile)) { while () { if (//){ $handedit = 0; last; } } close (OUT); } else { $handedit = 0; } if ($handedit) { print STDERR "$me: file \"$outfile\" appears to have been edited by hand\n"; print STDERR "Use the -f option or specify a different output file name.\n"; exit 1; } } open (OUT, ">$outfile") || die "$me: could not open file \"$outfile\": $!\n"; if ($preamble) { # Copy the preamble if (open(F, $preamble)) { while () { print OUT $_; } close(F); } else { warn "$me: could not open preamble file \"$preamble\": $!\n"; } } } sub escape { # make sure & and < don't show up in the index local $_ = shift; s/&/&/sg; s//>/sg; # what the heck return $_; } =head1 EXAMPLE B B<-o> F F =head1 EXIT STATUS =over 5 =item B<0> Success =item B<1> Failure =back =head1 AUTHOR Norm Walsh Endw@nwalsh.comE Minor updates by Adam Di Carlo Eadam@onshore.comE and Peter Eisentraut Epeter_e@gmx.netE =cut docbook-dsssl-1.79/WhatsNew0000644000175000001440000003070310142575332016370 0ustar msmithusers00000000000000Changes since version 1.78 (2003-02-19) Changes to dsssl/* | 2004-11-05 Michael Smith | | * Makefile: plain-text release notes, added target to make | | 2004-11-04 Michael Smith | | * .cvsignore: ignore RELEASE-NOTES.html | | * .cvsignore: ignore RELEASE-NOTES.txt | | * FRESHMEAT: New file. | | * Makefile: RELEASE-NOTES.html and freshmeat targets added | | * RELEASE-NOTES.xml: New file. | | * VERSION: Version 1.79 released. | | 2004-10-23 | | * Makefile: The debian directory no longer corresponds to the | actual Debian package, so it would only be confusing to keep | it around. | | * TODO: TODO items are nowadays listed at SourceForge; this | file doesn't serve a purpose anymore. | | 2004-09-14 | | * README.CVS: Add note that xmlcharent also needs to be | checked out when working from CVS. | | 2003-03-21 Adam Di Carlo | | * Makefile: clean target cleans backup files and CVS junk | | * VERSION: Keep CVS and real releases distinct | | 2003-02-20 Adam Di Carlo | | * Makefile: don't distrib empty debian dir and *.orig | Changes to dsssl/bin/* | 2004-10-24 | | * collateindex.pl: Only mention the program's base name in the | error messages. | | 2004-10-23 | | * Makefile: Don't put a "v" before the version number here. | | * collateindex.pl: Put the options list in some kind of order, | and make the error messages have a consistent format. | | 2003-03-21 Adam Di Carlo | | * Makefile: clean target cleans backup files and CVS junk | | 2003-03-16 Adam Di Carlo | | * Makefile: fix the POD release variable | Changes to dsssl/doc/* | 2003-03-21 Adam Di Carlo | | * Makefile: clean target cleans backup files and CVS junk | | 2003-03-17 Adam Di Carlo | | * Makefile: Make required stuff in ../docsrc as needed | | 2003-03-16 Adam Di Carlo | | * Makefile: removing *.htm in addition to the *.html | Changes to dsssl/common/* | 2004-10-10 | | * dbcommon.dsl: Give othercredit some useful rendering in | print output, by copying over the author rendering. Fix | author-list-string for authorgroups that contain both | authors and othercredits. (bug #1038081) | | 2004-10-09 | | * .cvsignore, Makefile, dbl10n.dsl, dbl10n.ent, | dbl10n.template, dbl1bg.dsl: New Bulgarian translation by | Viktor Vasilev (SF patch #1040075) | | * dbl1bs.dsl: Additional fixes for Bosnian translation, by | Kemal Skripic (SF patch #1037371) | | 2004-09-22 Michael Smith | | * .cvsignore: dbl1bs.ent added to ignore list; also re-sorted | list | | 2004-09-17 | | * Makefile, dbl10n.dsl, dbl10n.ent, dbl10n.template, | dbl1bs.dsl: Bosnian translation by Kemal Skripic | | 2003-04-28 Adam Di Carlo | | * dbcommon.dsl: Fix a problem pointed out by Tim Waugh in | articleinfo vs artheader in the article-title procedure. | Also ensure articleinfo is used in some other contexts. | Changes to dsssl/docsrc/* | 2004-10-23 Michael Smith | | * collateindex.sgm, dblib.sgm, docbook.sgm, htparam.sgm, | imagelib.sgm, indexing.sgm, olinksemantics.sgm, | otherdoc.sgm, prparam.sgm: Bug #1052834 (PIs in dsssl/doc | sources causing jade errors) apparently jade has a problem | dealing with single quotation marks in PIs -- at least it | appears like that in the case where it needs to take a | single-quoted value from within a PI and use it to write a | filename; so changed al single-quote filenames in PIs to | doubly quoted ones; seems to have made jade happy | | 2004-09-18 | | * custom.sgm: Fix for Documentation Request #510281: Add | missing -d option in example | | * custom.sgm: Fix for Documentation Request #992388: Removed | obsolete section about setting the stylesheet language via a | customization layer (now done using a stylesheet parameter). | | 2003-03-17 Adam Di Carlo | | * doc.dsl: Minor readability fixes. | Changes to dsssl/html/* | 2004-10-10 | | * dbhtml.dsl, dbparam.dsl, dbttlpg.dsl: Support for specifying | a system ID for the HTML output documents, required for | better parsing in contemporary browsers. A default system ID | is set if %html40% is true. | | 2004-10-09 | | * docbook.dsl: New Bulgarian translation by Viktor Vasilev (SF | patch #1040075) | | 2004-09-23 | | * dbprocdr.dsl: Add CSS decoration of procedure steps (RFE | #1033197) | | 2004-09-17 | | * docbook.dsl: Bosnian translation by Kemal Skripic | | 2004-09-14 | | * dbinline.dsl: Fix for bug #860398: Change uses of $var-seq$ | to something more appropriate. | | 2004-07-11 | | * version.dsl: Closes Bug 912831: the last character of | VERSION was being cut off. | | 2003-05-28 Adam Di Carlo | | * dbblock.dsl: HTML attribs for comments variablized for | maintenance. | | 2003-04-29 Adam Di Carlo | | * dbcompon.dsl: Finding the subtitle for a component should | use the parent title if set; this is consistent with how the | title is already set; closes SF bug 613773. | | 2003-04-28 Adam Di Carlo | | * dbpi.dsl: Ensure dbhtml-findvalue can handle the | pi-field-list being a non-pair, which may occur in some | poorly formed dbhtml PIs; returns #f in this case. | | 2003-04-27 Adam Di Carlo | | * dbcompon.dsl: Simplify some code, no functional changes | | 2003-04-26 Adam Di Carlo | | * dbcallou.dsl, dbparam.dsl: callout graphics and admonition | graphics, if needed, share a single variable, | %stock-graphics-extension% -- "stock" here referring to | standard, stock images, e.g., not per document images; this | closes Debian Bug#187429 | | 2003-04-12 Adam Di Carlo | | * dbadmon.dsl: VALIGN should be MIDDLE, not CENTER; closes | Debian Bug#187569 | | 2003-04-05 Adam Di Carlo | | * dblists.dsl: back out my last change; there are 4 places | taht use this and until I understand how | varlistentry-term-too-long? is supposed to work at all I | better not mess with it | | * dblists.dsl: termlength in varlist is measurement-to-length, | not string->number | | 2003-03-25 Adam Di Carlo | | * db31.dsl, dbblock.dsl, dbcompon.dsl, dbgraph.dsl, | dbqanda.dsl, dbsect.dsl, docbook.dsl: move data from db31 | into its proper component files | | 2003-03-21 Adam Di Carlo | | * Makefile: Don't hardcode DSSSL file list, use $(wildcard | *.dsl); clean is cleaner | Changes to dsssl/lib/* | 2004-10-24 | | * dblib.dsl: Revision 1.6 completely broke PI processing, so | back that out for now. | | 2003-04-29 Adam Di Carlo | | * dblib.dsl: Fix my-debug so it actually returns what you ask | it to. | | 2003-04-28 Adam Di Carlo | | * dblib.dsl: Make PI parsing more robust by rewriting | parse-pi-attribute and a fix in parse-starttag-pi. I'm still | not entirely happy with the PI parsing, its probably a | little flakey, but it shouldn't completely bail out when it | hits data its not expecting. Closes Debian Bug#186886. | | 2003-04-26 Adam Di Carlo | | * dblib.dsl: Fix a typo in the param docs | | 2003-04-05 Adam Di Carlo | | * dblib.dsl: xsl stylesheet refers to pica as "pc" rather than | "pi", so we allow either one as a pica | Changes to dsssl/print/* | 2004-10-10 | | * dbadmon.dsl: Fix for bug #522140: Keep admonition titles and | contents together when graphics are used. | | * dbcallou.dsl: Synchronized $callout-verbatim-display$ with | $verbatim-display$; fixes bug #517520 (callout ignores width | of programlisting) | | * dbttlpg.dsl: Give othercredit some useful rendering in print | output, by copying over the author rendering. Fix | author-list-string for authorgroups that contain both | authors and othercredits. (bug #1038081) | | 2004-10-09 | | * dbprint.dsl, dbverb.dsl: Patch #571688: Fixes excessive | after spacing when a listitem contains multiple paras or | verbatim environments. Patches originally by Tim Waugh and | Tammy Fox. | | * docbook.dsl: New Bulgarian translation by Viktor Vasilev (SF | patch #1040075) | | 2004-09-17 | | * docbook.dsl: Bosnian translation by Kemal Skripic | | 2004-09-14 | | * dbblock.dsl: Fix for bug #502066: Empty ulinks don't | generate footnotes, so they should be omitted from the | footnote counting. Patch by Bruce A. Mah. | | * dbprint.dsl: Fix for bug #529969: Make italic monospace and | strong monospace inherit verbatim-size-factor. Patch by | David Aumueller. | | 2004-07-11 | | * version.dsl: Closes Bug 912831: the last character of | VERSION was being cut off. | | 2003-12-05 Adam Di Carlo | | * dbdivis.dsl: fix a bug when multiple elements in | $generate-book-lot-list$ had content; whitespace and comment | updates | | 2003-04-29 Adam Di Carlo | | * dbcompon.dsl: Finding the subtitle for a component should | use the parent title if set; this is consistent with how the | title is already set; closes SF bug 613773. | | * dbcompon.dsl: Suppress some cases where components were | restarting page numbering, fix from Ian Castle; closes SF | bug 439751. | | * dbparam.dsl: Correct reference to undefined variable | "admon-graphic-default-extension". | | * dbttlpg.dsl: Add elements to print version of | article-titlepage-recto-elements so that it matches the HTML | version, fixes SF bug 626909. | | 2003-04-26 Adam Di Carlo | | * dbparam.dsl: rename parameter | admon-graphic-default-extension to | %admon-graphics-extension% for consistency | | * dbparam.dsl: Note that %admon-graphics-path% requires the | trailing directory separator -- | | * dbparam.dsl: %admon-graphics-extension% will use the old | name, admon-graphic-default-extension, if set | | 2003-03-25 Adam Di Carlo | | * db31.dsl, dbblock.dsl, dbcompon.dsl, dbgraph.dsl, | dbinline.dsl, dbqanda.dsl, dbsect.dsl, docbook.dsl: move | data from db31 into its proper component files | | 2003-03-24 Jirka Kosek | | * dbttlpg.dsl: Added support for revdescription inside revison | on titlepages | | 2003-03-21 Adam Di Carlo | | * Makefile: Don't hardcode DSSSL file list, use $(wildcard | *.dsl); clean is cleaner | Changes to dsssl/doc/testdata/* | 2003-03-16 Adam Di Carlo | | * c01.htm, jtest.rtf, test.rtf: Generated files should not be | in CVS | docbook-dsssl-1.79/VERSION0000644000175000001440000000000510142413567015746 0ustar msmithusers000000000000001.79 docbook-dsssl-1.79/RELEASE-NOTES.xml0000644000175000001440000001133710142411651017370 0ustar msmithusers00000000000000
DocBook DSSSL Stylesheet Release Notes 03 November 2004 $Id: RELEASE-NOTES.xml,v 1.1 2004/11/04 11:34:01 xmldoc Exp $ DocBook Open Repository Team These are the release notes for the DocBook DSSSL Stylesheets. At a minimum, this file attempts to document changes to the public APIs and provide a high-level overview of the features added in each release.
Release 1.79 This release contains fixes for a number of long-standing bugs. See the file for more details. Among the user-visible changes are: HTML stylesheets The doctype definition in the HTML output now contains a system identifier, required for better parsing in contemporary browsers. CSS decoration has been added to procedure steps. Uses of <VAR> in HTML output (often rendered in italic) have been changed to something more appropriate The last character of the version was cut off in previous releases. Processing instruction parsing has been made more robust against arbitrarily formed PIs. Callout graphics and admonition graphics share a single variable, %stock-graphics-extension%. The value of the VALIGN attribute has been corrected to MIDDLE instead of CENTER. Print stylesheets Admonition titles and contents are kept together. Programlistings with callouts now honor the width attribute. The rendering of othercredit has been made more useful. Excessive after spacing when a listitem contains multiple paras or verbatim environments has been fixed. Empty ulinks don't generate footnotes, so they are now omitted from the footnote counting. Some cases where components were restarting the page numbering were fixed. article-titlepage-recto-elements has been made to match the HTML version. Support for revdescription inside revison on titlepages has been added. General "pc" is now allowed as abbreviation for "pica". The return value of my-debug has been fixed. A Bosnian translation has been added. A Bulgarian translation has been added.
docbook-dsssl-1.79/RELEASE-NOTES.txt0000644000175000001440000000440410142567654017423 0ustar msmithusers00000000000000DocBook DSSSL Stylesheet Release Notes DocBook Open Repository Team $Id: RELEASE-NOTES.xml,v 1.1 2004/11/04 11:34:01 xmldoc Exp $ 03 November 2004 ------------------------------------------------------------------------------- Table of Contents Release 1.79 These are the release notes for the DocBook DSSSL Stylesheets. At a minimum, this file attempts to document changes to the public APIs and provide a high-level overview of the features added in each release. Release 1.79 This release contains fixes for a number of long-standing bugs. See the WhatsNew file for more details. Among the user-visible changes are: * HTML stylesheets. o The doctype definition in the HTML output now contains a system identifier, required for better parsing in contemporary browsers. o CSS decoration has been added to procedure steps. o Uses of in HTML output (often rendered in italic) have been changed to something more appropriate o The last character of the version was cut off in previous releases. o Processing instruction parsing has been made more robust against arbitrarily formed PIs. o Callout graphics and admonition graphics share a single variable, %stock-graphics-extension%. o The value of the VALIGN attribute has been corrected to MIDDLE instead of CENTER. * Print stylesheets. o Admonition titles and contents are kept together. o Programlistings with callouts now honor the width attribute. o The rendering of othercredit has been made more useful. o Excessive after spacing when a listitem contains multiple paras or verbatim environments has been fixed. o Empty ulinks don't generate footnotes, so they are now omitted from the footnote counting. o Some cases where components were restarting the page numbering were fixed. o article-titlepage-recto-elements has been made to match the HTML version. o Support for revdescription inside revison on titlepages has been added. * General. o "pc" is now allowed as abbreviation for "pica". o The return value of my-debug has been fixed. o A Bosnian translation has been added. o A Bulgarian translation has been added. docbook-dsssl-1.79/RELEASE-NOTES.html0000644000175000001440000000750110142567653017550 0ustar msmithusers00000000000000 DocBook DSSSL Stylesheet Release Notes

DocBook DSSSL Stylesheet Release Notes

DocBook Open Repository Team

$Id: RELEASE-NOTES.xml,v 1.1 2004/11/04 11:34:01 xmldoc Exp $

03 November 2004

Table of Contents

Release 1.79

These are the release notes for the DocBook DSSSL Stylesheets. At a minimum, this file attempts to document changes to the public APIs and provide a high-level overview of the features added in each release.

Release 1.79

This release contains fixes for a number of long-standing bugs. See the WhatsNew file for more details. Among the user-visible changes are:

  • HTML stylesheets. 

    • The doctype definition in the HTML output now contains a system identifier, required for better parsing in contemporary browsers.

    • CSS decoration has been added to procedure steps.

    • Uses of <VAR> in HTML output (often rendered in italic) have been changed to something more appropriate

    • The last character of the version was cut off in previous releases.

    • Processing instruction parsing has been made more robust against arbitrarily formed PIs.

    • Callout graphics and admonition graphics share a single variable, %stock-graphics-extension%.

    • The value of the VALIGN attribute has been corrected to MIDDLE instead of CENTER.

  • Print stylesheets. 

    • Admonition titles and contents are kept together.

    • Programlistings with callouts now honor the width attribute.

    • The rendering of othercredit has been made more useful.

    • Excessive after spacing when a listitem contains multiple paras or verbatim environments has been fixed.

    • Empty ulinks don't generate footnotes, so they are now omitted from the footnote counting.

    • Some cases where components were restarting the page numbering were fixed.

    • article-titlepage-recto-elements has been made to match the HTML version.

    • Support for revdescription inside revison on titlepages has been added.

  • General. 

    • "pc" is now allowed as abbreviation for "pica".

    • The return value of my-debug has been fixed.

    • A Bosnian translation has been added.

    • A Bulgarian translation has been added.

docbook-dsssl-1.79/README0000644000175000001440000000631007262623245015570 0ustar msmithusers00000000000000README for the DocBook Stylesheets These are DSSSL stylesheets for the DocBook DTD. For more information, see http://docbook.sourceforge.net/ Manifest -------- bin/ contains scripts for some (optional) post-processing common/ contains code common to both stylesheets contrib/ contains contributions doc/ contains installation and reference documentation (this is now distributed in a separate ZIP archive) docsrc/ contains the SGML source for the documentation dtds/ contains auxiliary DTDs frames/ contains support for frames html/ contains the HTML stylesheet (for use with -t sgml) images/ contains images used by the HTML stylesheets lib/ contains DSSSL functions that are believed to be useful but are totally independent of any particular stylesheet olink/ contains olink support print/ contains the print stylesheet Changes ------- See the ChangeLog in each directory for additional information about the specific changes. See WhatsNew for changes since the last release. Installation ------------ See doc/install.html and/or http://nwalsh.com/docbook/dsssl/ Copyright --------- Copyright (C) 1997-2001 Norman Walsh The original inspiration for these stylesheets came from the work of Jon Bosak, Anders Berglund, Tony Graham, Terry Allen, James Clark, and many others. I am indebted to them and to the community of users on dssslist@mulberrytech.com for making substantial contributions to this work and for answering my many questions. This software may be distributed under the same terms as Jade: Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the ``Software''), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. Except as contained in this notice, the names of individuals credited with contribution to this software shall not be used in advertising or otherwise to promote the sale, use or other dealings in this Software without prior written authorization from the individuals in question. Any stylesheet derived from this Software that is publically distributed will be identified with a different name and the version strings in any derived Software will be changed so that no possibility of confusion between the derived package and this Software will exist. Warranty -------- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL NORMAN WALSH OR ANY OTHER CONTRIBUTOR BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. Contacting the Author --------------------- These stylesheets are maintained by Norman Walsh, . docbook-dsssl-1.79/ChangeLog0000644000175000001440000000715310142575332016462 0ustar msmithusers000000000000002004-11-05 Michael Smith * Makefile: plain-text release notes, added target to make 2004-11-04 Michael Smith * .cvsignore: ignore RELEASE-NOTES.html * .cvsignore: ignore RELEASE-NOTES.txt * FRESHMEAT: New file. * Makefile: RELEASE-NOTES.html and freshmeat targets added * RELEASE-NOTES.xml: New file. * VERSION: Version 1.79 released. 2004-10-23 * Makefile: The debian directory no longer corresponds to the actual Debian package, so it would only be confusing to keep it around. * TODO: TODO items are nowadays listed at SourceForge; this file doesn't serve a purpose anymore. 2004-09-14 * README.CVS: Add note that xmlcharent also needs to be checked out when working from CVS. 2003-03-21 Adam Di Carlo * Makefile: clean target cleans backup files and CVS junk * VERSION: Keep CVS and real releases distinct 2003-02-20 Adam Di Carlo * Makefile: don't distrib empty debian dir and *.orig 2003-02-19 Norman Walsh * VERSION: Version 1.78 released. 2002-12-16 Adam Di Carlo * .cvsignore: ignorables, esp stuff built by debian/rules 2002-08-08 Adam Di Carlo * Makefile: 'doc' target uses bin subdir, clean target additional goes into print, html, and bin * catalog: appropriate DTDDECL for dtds/html/dbhtml.dcl (merging in Debian changes) 2002-08-07 Adam Di Carlo * README.CVS: some more information in the 'Installation' section 2002-07-07 Norman Walsh * Makefile: Keep the debian directory out of the distribution * VERSION: Keep CVS and real releases distinct * VERSION: Version 1.77 released. 2002-03-24 Adam Di Carlo * Makefile: clean does more subdirs now 2002-02-22 Norman Walsh * Makefile: Improve archive construction * VERSION: Version 1.76 released. 2002-02-21 Norman Walsh * VERSION: Version 1.75 released. 2001-12-01 Norman Walsh * Makefile: Bug #449776: include EPS/PDF graphics 2001-11-30 Norman Walsh * VERSION: Keep CVS versions distinct from real releases * VERSION: Merged V174bugfixes * VERSION: New file. 2001-11-28 Norman Walsh * VERSION: branches: 1.11.2; Version 1.74 released. 2001-09-29 Norman Walsh * VERSION: Version 1.73 released. * VERSION: Keep CVS versions distinct from real releases 2001-08-06 Norman Walsh * VERSION: Keep CVS versions distinct from real releases * VERSION: Version 1.72 released. 2001-07-08 Norman Walsh * VERSION: Version 1.71 released. 2001-05-22 Norman Walsh * VERSION: Version 1.70 released. 2001-04-20 Norman Walsh * VERSION: Version 1.68 released. * VERSION: Version 1.69 released. 2001-04-15 Norman Walsh * Makefile: Various distribution hacks 2001-04-04 Norman Walsh * .cvsignore, Makefile, README: Adjust Makefiles and documentation for building a new distrib * VERSION: Version 1.67 released. 2001-04-02 Norman Walsh * BUGS, README.CVS, TODO, VERSION, catalog: Initial checkins * Makefile: New file. docbook-dsssl-1.79/BUGS0000644000175000001440000000227707262170712015377 0ustar msmithusers00000000000000Using Equations w/o titles results in incorrectly numbered equations with titles. Use InformalEquation instead. InlineEquations don't work in the RTF backend. It's not my fault. Callout support is somewhat fragile. Line numbering of linespecific displays is somewhat fragile. In two-sided mode, with the RTF backend, the appropriate alternation of inner/outer headers and footers does not work correctly unless %page-number-restart% is true. This is caused by a limitation in RTF. CHAR alignment in tables is not supported The stylesheets can't automatically put callout marks on a PROGRAMLISTING or SCREEN if the text comes from an external file using the LINESPECIFIC INLINEGRAPHIC trick. "Extra"

elements appear in the HTML output if you put block elements inside of elements in your source. The problem is that Some text ...

Is translated into

Some text ...

but HTML doesn't allow "table" inside a P, so the begin table implies an "

" which makes the

after the table erroneous. I don't have a good answer for this, but I'm tempted to make all

tags empty in the HTML so that the browser has to imply all the

s.