MITgcm/doc/ldp.dsl

<!DOCTYPE style-sheet PUBLIC
          "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY % html "IGNORE">
<![%html;[
<!ENTITY % print "IGNORE">
<!ENTITY docbook.dsl PUBLIC
         "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN"
         CDATA dsssl>
]]>
<!ENTITY % print "INCLUDE">
<![%print;[
<!ENTITY docbook.dsl PUBLIC
         "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN"
         CDATA dsssl>
]]>
]>

<style-sheet>

;; ------------------------------------------------------------------------
;; ldp.dsl - LDP Customized DSSSL Stylesheet
;; v1.11, 2003-02-03
;; Copyright (C) 2000-2003
;;
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2 of the License, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
;; ------------------------------------------------------------------------

<style-specification id="print" use="docbook">
<style-specification-body> 

;; customize the print stylesheet

(declare-characteristic preserve-sdata?
  ;; this is necessary because right now jadetex does not understand
  ;; symbolic entities, whereas things work well with numeric entities.
  "UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
  #f)

(define %generate-article-toc%
  ;; Should a Table of Contents be produced for Articles?
  #t)

(define (toc-depth nd)
  4)

(define %generate-article-titlepage-on-separate-page%
  ;; Should the article title page be on a separate page?
  #t)

(define %section-autolabel%
  ;; Are sections enumerated?
  #t)

(define %footnote-ulinks%
  ;; Generate footnotes for ULinks?
  #f)

(define %bop-footnotes%
  ;; Make "bottom-of-page" footnotes?
  #f)

(define %body-start-indent%
  ;; Default indent of body text
  0pi)

(define %para-indent-firstpara%
  ;; First line start-indent for the first paragraph
  0pt)

(define %para-indent%
  ;; First line start-indent for paragraphs (other than the first)
  0pt)

(define %block-start-indent%
  ;; Extra start-indent for block-elements
  0pt)

(define formal-object-float
  ;; Do formal objects float?
  #t)

(define %hyphenation%
  ;; Allow automatic hyphenation?
  #t)

(define %admon-graphics%
  ;; Use graphics in admonitions?
  #f)

(define %default-quadding%
  ;; Full justification.
  'justify)

(define (book-titlepage-verso-elements)
  ;;added publisher, releaseinfo to the default list
  (list (normalize "title")
        (normalize "subtitle")
        (normalize "corpauthor")
        (normalize "authorgroup")
        (normalize "author")
        (normalize "publisher")
        (normalize "releaseinfo")
        (normalize "editor")
        (normalize "edition")
        (normalize "pubdate")
        (normalize "copyright")
        (normalize "abstract")
        (normalize "legalnotice")
        (normalize "revhistory")))

</style-specification-body>
</style-specification>


<!--
;; customize the html stylesheet; parts borrowed from 
;; Cygnus at http://sourceware.cygnus.com/ (cygnus-both.dsl)
-->

<style-specification id="html" use="docbook">
<style-specification-body> 

(declare-characteristic preserve-sdata?
  ;; this is necessary because right now jadetex does not understand
  ;; symbolic entities, whereas things work well with numeric entities.
  "UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
  #f)

(declare-flow-object-class element
  ;; for redhat
  "UNREGISTERED::James Clark//Flow Object Class::element")

(define %generate-legalnotice-link%
  ;; put the legal notice in a separate file
  #t)

(define %admon-graphics-path%
  ;; use graphics in admonitions, set their
  "../images/")

(define %admon-graphics%
  #t)

(define %funcsynopsis-decoration%
  ;; make funcsynopsis look pretty
  #t)

(define %html-ext%
  ;; when producing HTML files, use this extension
  ".html")

(define %generate-book-toc%
  ;; Should a Table of Contents be produced for books?
  #t)

(define %generate-article-toc% 
  ;; Should a Table of Contents be produced for articles?
  #t)

(define %generate-part-toc%
  ;; Should a Table of Contents be produced for parts?
  #t)

(define %generate-book-titlepage%
  ;; produce a title page for books
  #t)

(define %generate-article-titlepage%
  ;; produce a title page for articles
  #t)

(define (chunk-skip-first-element-list)
  ;; forces the Table of Contents on separate page
  '())

(define (list-element-list)
  ;; fixes bug in Table of Contents generation
  '())

(define %root-filename%
  ;; The filename of the root HTML document (e.g, "index").
  "index")

(define %shade-verbatim%
  ;; verbatim sections will be shaded if t(rue)
  #t)

(define %use-id-as-filename%
  ;; Use ID attributes as name for component HTML files?
  #t)

(define %graphic-extensions%
  ;; graphic extensions allowed
  '("gif" "png" "jpg" "jpeg" "tif" "tiff" "eps" "epsf" ))

(define %graphic-default-extension% 
  "gif")

(define %section-autolabel%
  ;; For enumerated sections (1.1, 1.1.1, 1.2, etc.)
  #t)

(define (toc-depth nd)
  ;; more depth (2 levels) to toc; instead of flat hierarchy
  2)

(element emphasis
  ;; make role=strong equate to bold for emphasis tag
  (if (equal? (attribute-string "role") "strong")
     (make element gi: "STRONG" (process-children))
     (make element gi: "EM" (process-children))))

(define (book-titlepage-recto-elements)
  ;; elements on a book's titlepage
  (list (normalize "title")
        (normalize "subtitle")
        (normalize "graphic")
        (normalize "mediaobject")
        (normalize "corpauthor")
        (normalize "authorgroup")
        (normalize "author")
        (normalize "othercredit")
        (normalize "edition")
        (normalize "releaseinfo")
        (normalize "publisher")
        (normalize "editor")
        (normalize "copyright")
        (normalize "pubdate")
        (normalize "revhistory")
        (normalize "abstract")
        (normalize "legalnotice")))

(define (article-titlepage-recto-elements)
  ;; elements on an article's titlepage
  (list (normalize "title")
        (normalize "subtitle")
        (normalize "authorgroup")
        (normalize "author")
        (normalize "othercredit")
        (normalize "releaseinfo")
        (normalize "copyright")
        (normalize "pubdate")
        (normalize "revhistory")
        (normalize "abstract")
        (normalize "legalnotice")))

(define (process-contrib #!optional (sosofo (process-children)))
  ;; print out with othercredit information; for translators, etc.
  (make sequence
    (make element gi: "SPAN"
          attributes: (list (list "CLASS" (gi)))
          (process-children))))

(define (process-othercredit #!optional (sosofo (process-children)))
  ;; print out othercredit information; for translators, etc.
  (let ((author-name  (author-string))
        (author-contrib (select-elements (children (current-node))
                                          (normalize "contrib"))))
    (make element gi: "P"
         attributes: (list (list "CLASS" (gi)))
         (make element gi: "B"
              (literal author-name)
              (literal " - "))
         (process-node-list author-contrib))))

(mode article-titlepage-recto-mode
  (element contrib (process-contrib))
  (element othercredit (process-othercredit))
)

(mode book-titlepage-recto-mode
  (element contrib (process-contrib))
  (element othercredit (process-othercredit))
)

(define (article-title nd)
  (let* ((artchild  (children nd))
         (artheader (select-elements artchild (normalize "artheader")))
         (artinfo   (select-elements artchild (normalize "articleinfo")))
         (ahdr (if (node-list-empty? artheader)
                   artinfo
                   artheader))
         (ahtitles  (select-elements (children ahdr)
                                     (normalize "title")))
         (artitles  (select-elements artchild (normalize "title")))
         (titles    (if (node-list-empty? artitles)
                        ahtitles
                        artitles)))
    (if (node-list-empty? titles)
        ""
        (node-list-first titles))))

(mode subtitle-mode
  ;; do not print subtitle on subsequent pages
  (element subtitle (empty-sosofo)))

;; Redefinition of $verbatim-display$
;; Origin: dbverb.dsl
;; Different foreground and background colors for verbatim elements
;; Author: Philippe Martin (feloy@free.fr) 2001-04-07

(define ($verbatim-display$ indent line-numbers?)
  (let ((verbatim-element (gi))
        (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-element verbatim-element)
              (make element gi: "TR"
                    (make element gi: "TD"
                          (make element gi: "FONT" 
                                attributes: (list
                                             (list "COLOR" (car (shade-verbatim-element-colors
                                                                 verbatim-element))))
                                content))))
        content)))

;;
;; Customize this function
;; to change the foreground and background colors
;; of the different verbatim elements
;; Return (list "foreground color" "background color")
;;
(define (shade-verbatim-element-colors element)
  (case element
    (("SYNOPSIS") (list "#000000" "#6495ED"))
    ;; ...
    ;; Add your verbatim elements here
    ;; ...
    (else (list "#000000" "#E0E0E0"))))

(define (shade-verbatim-attr-element element)
  (list
   (list "BORDER" 
        (cond
                ((equal? element (normalize "SCREEN")) "1")
                (else "0")))
   (list "BGCOLOR" (car (cdr (shade-verbatim-element-colors element))))
   (list "WIDTH" ($table-width$))))

;; End of $verbatim-display$ redefinition

</style-specification-body>
</style-specification>

<external-specification id="docbook" document="docbook.dsl">

</style-sheet>
1	edhill	1.1	<!DOCTYPE style-sheet PUBLIC
2			"-//James Clark//DTD DSSSL Style Sheet//EN" [
3			<!ENTITY % html "IGNORE">
4			<![%html;[
5			<!ENTITY % print "IGNORE">
6			<!ENTITY docbook.dsl PUBLIC
7			"-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN"
8			CDATA dsssl>
9			]]>
10			<!ENTITY % print "INCLUDE">
11			<![%print;[
12			<!ENTITY docbook.dsl PUBLIC
13			"-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN"
14			CDATA dsssl>
15			]]>
16			]>
17
18			<style-sheet>
19
20			;; ------------------------------------------------------------------------
21			;; ldp.dsl - LDP Customized DSSSL Stylesheet
22			;; v1.11, 2003-02-03
23			;; Copyright (C) 2000-2003
24			;;
25			;; This program is free software; you can redistribute it and/or modify
26			;; it under the terms of the GNU General Public License as published by
27			;; the Free Software Foundation; either version 2 of the License, or
28			;; (at your option) any later version.
29			;;
30			;; This program is distributed in the hope that it will be useful,
31			;; but WITHOUT ANY WARRANTY; without even the implied warranty of
32			;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
33			;; GNU General Public License for more details.
34			;;
35			;; You should have received a copy of the GNU General Public License
36			;; along with this program; if not, write to the Free Software
37			;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
38			;; ------------------------------------------------------------------------
39
40			<style-specification id="print" use="docbook">
41			<style-specification-body>
42
43			;; customize the print stylesheet
44
45			(declare-characteristic preserve-sdata?
46			;; this is necessary because right now jadetex does not understand
47			;; symbolic entities, whereas things work well with numeric entities.
48			"UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
49			#f)
50
51			(define %generate-article-toc%
52			;; Should a Table of Contents be produced for Articles?
53			#t)
54
55			(define (toc-depth nd)
56			4)
57
58			(define %generate-article-titlepage-on-separate-page%
59			;; Should the article title page be on a separate page?
60			#t)
61
62			(define %section-autolabel%
63			;; Are sections enumerated?
64			#t)
65
66			(define %footnote-ulinks%
67			;; Generate footnotes for ULinks?
68			#f)
69
70			(define %bop-footnotes%
71			;; Make "bottom-of-page" footnotes?
72			#f)
73
74			(define %body-start-indent%
75			;; Default indent of body text
76			0pi)
77
78			(define %para-indent-firstpara%
79			;; First line start-indent for the first paragraph
80			0pt)
81
82			(define %para-indent%
83			;; First line start-indent for paragraphs (other than the first)
84			0pt)
85
86			(define %block-start-indent%
87			;; Extra start-indent for block-elements
88			0pt)
89
90			(define formal-object-float
91			;; Do formal objects float?
92			#t)
93
94			(define %hyphenation%
95			;; Allow automatic hyphenation?
96			#t)
97
98			(define %admon-graphics%
99			;; Use graphics in admonitions?
100			#f)
101
102			(define %default-quadding%
103			;; Full justification.
104			'justify)
105
106			(define (book-titlepage-verso-elements)
107			;;added publisher, releaseinfo to the default list
108			(list (normalize "title")
109			(normalize "subtitle")
110			(normalize "corpauthor")
111			(normalize "authorgroup")
112			(normalize "author")
113			(normalize "publisher")
114			(normalize "releaseinfo")
115			(normalize "editor")
116			(normalize "edition")
117			(normalize "pubdate")
118			(normalize "copyright")
119			(normalize "abstract")
120			(normalize "legalnotice")
121			(normalize "revhistory")))
122
123			</style-specification-body>
124			</style-specification>
125
126
127			<!--
128			;; customize the html stylesheet; parts borrowed from
129			;; Cygnus at http://sourceware.cygnus.com/ (cygnus-both.dsl)
130			-->
131
132			<style-specification id="html" use="docbook">
133			<style-specification-body>
134
135			(declare-characteristic preserve-sdata?
136			;; this is necessary because right now jadetex does not understand
137			;; symbolic entities, whereas things work well with numeric entities.
138			"UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
139			#f)
140
141			(declare-flow-object-class element
142			;; for redhat
143			"UNREGISTERED::James Clark//Flow Object Class::element")
144
145			(define %generate-legalnotice-link%
146			;; put the legal notice in a separate file
147			#t)
148
149			(define %admon-graphics-path%
150			;; use graphics in admonitions, set their
151			"../images/")
152
153			(define %admon-graphics%
154			#t)
155
156			(define %funcsynopsis-decoration%
157			;; make funcsynopsis look pretty
158			#t)
159
160			(define %html-ext%
161			;; when producing HTML files, use this extension
162			".html")
163
164			(define %generate-book-toc%
165			;; Should a Table of Contents be produced for books?
166			#t)
167
168			(define %generate-article-toc%
169			;; Should a Table of Contents be produced for articles?
170			#t)
171
172			(define %generate-part-toc%
173			;; Should a Table of Contents be produced for parts?
174			#t)
175
176			(define %generate-book-titlepage%
177			;; produce a title page for books
178			#t)
179
180			(define %generate-article-titlepage%
181			;; produce a title page for articles
182			#t)
183
184			(define (chunk-skip-first-element-list)
185			;; forces the Table of Contents on separate page
186			'())
187
188			(define (list-element-list)
189			;; fixes bug in Table of Contents generation
190			'())
191
192			(define %root-filename%
193			;; The filename of the root HTML document (e.g, "index").
194			"index")
195
196			(define %shade-verbatim%
197			;; verbatim sections will be shaded if t(rue)
198			#t)
199
200			(define %use-id-as-filename%
201			;; Use ID attributes as name for component HTML files?
202			#t)
203
204			(define %graphic-extensions%
205			;; graphic extensions allowed
206			'("gif" "png" "jpg" "jpeg" "tif" "tiff" "eps" "epsf" ))
207
208			(define %graphic-default-extension%
209			"gif")
210
211			(define %section-autolabel%
212			;; For enumerated sections (1.1, 1.1.1, 1.2, etc.)
213			#t)
214
215			(define (toc-depth nd)
216			;; more depth (2 levels) to toc; instead of flat hierarchy
217			2)
218
219			(element emphasis
220			;; make role=strong equate to bold for emphasis tag
221			(if (equal? (attribute-string "role") "strong")
222			(make element gi: "STRONG" (process-children))
223			(make element gi: "EM" (process-children))))
224
225			(define (book-titlepage-recto-elements)
226			;; elements on a book's titlepage
227			(list (normalize "title")
228			(normalize "subtitle")
229			(normalize "graphic")
230			(normalize "mediaobject")
231			(normalize "corpauthor")
232			(normalize "authorgroup")
233			(normalize "author")
234			(normalize "othercredit")
235			(normalize "edition")
236			(normalize "releaseinfo")
237			(normalize "publisher")
238			(normalize "editor")
239			(normalize "copyright")
240			(normalize "pubdate")
241			(normalize "revhistory")
242			(normalize "abstract")
243			(normalize "legalnotice")))
244
245			(define (article-titlepage-recto-elements)
246			;; elements on an article's titlepage
247			(list (normalize "title")
248			(normalize "subtitle")
249			(normalize "authorgroup")
250			(normalize "author")
251			(normalize "othercredit")
252			(normalize "releaseinfo")
253			(normalize "copyright")
254			(normalize "pubdate")
255			(normalize "revhistory")
256			(normalize "abstract")
257			(normalize "legalnotice")))
258
259			(define (process-contrib #!optional (sosofo (process-children)))
260			;; print out with othercredit information; for translators, etc.
261			(make sequence
262			(make element gi: "SPAN"
263			attributes: (list (list "CLASS" (gi)))
264			(process-children))))
265
266			(define (process-othercredit #!optional (sosofo (process-children)))
267			;; print out othercredit information; for translators, etc.
268			(let ((author-name (author-string))
269			(author-contrib (select-elements (children (current-node))
270			(normalize "contrib"))))
271			(make element gi: "P"
272			attributes: (list (list "CLASS" (gi)))
273			(make element gi: "B"
274			(literal author-name)
275			(literal " - "))
276			(process-node-list author-contrib))))
277
278			(mode article-titlepage-recto-mode
279			(element contrib (process-contrib))
280			(element othercredit (process-othercredit))
281			)
282
283			(mode book-titlepage-recto-mode
284			(element contrib (process-contrib))
285			(element othercredit (process-othercredit))
286			)
287
288			(define (article-title nd)
289			(let* ((artchild (children nd))
290			(artheader (select-elements artchild (normalize "artheader")))
291			(artinfo (select-elements artchild (normalize "articleinfo")))
292			(ahdr (if (node-list-empty? artheader)
293			artinfo
294			artheader))
295			(ahtitles (select-elements (children ahdr)
296			(normalize "title")))
297			(artitles (select-elements artchild (normalize "title")))
298			(titles (if (node-list-empty? artitles)
299			ahtitles
300			artitles)))
301			(if (node-list-empty? titles)
302			""
303			(node-list-first titles))))
304
305			(mode subtitle-mode
306			;; do not print subtitle on subsequent pages
307			(element subtitle (empty-sosofo)))
308
309			;; Redefinition of $verbatim-display$
310			;; Origin: dbverb.dsl
311			;; Different foreground and background colors for verbatim elements
312			;; Author: Philippe Martin (feloy@free.fr) 2001-04-07
313
314			(define ($verbatim-display$ indent line-numbers?)
315			(let ((verbatim-element (gi))
316			(content (make element gi: "PRE"
317			attributes: (list
318			(list "CLASS" (gi)))
319			(if (or indent line-numbers?)
320			($verbatim-line-by-line$ indent line-numbers?)
321			(process-children)))))
322			(if %shade-verbatim%
323			(make element gi: "TABLE"
324			attributes: (shade-verbatim-attr-element verbatim-element)
325			(make element gi: "TR"
326			(make element gi: "TD"
327			(make element gi: "FONT"
328			attributes: (list
329			(list "COLOR" (car (shade-verbatim-element-colors
330			verbatim-element))))
331			content))))
332			content)))
333
334			;;
335			;; Customize this function
336			;; to change the foreground and background colors
337			;; of the different verbatim elements
338			;; Return (list "foreground color" "background color")
339			;;
340			(define (shade-verbatim-element-colors element)
341			(case element
342			(("SYNOPSIS") (list "#000000" "#6495ED"))
343			;; ...
344			;; Add your verbatim elements here
345			;; ...
346			(else (list "#000000" "#E0E0E0"))))
347
348			(define (shade-verbatim-attr-element element)
349			(list
350			(list "BORDER"
351			(cond
352			((equal? element (normalize "SCREEN")) "1")
353			(else "0")))
354			(list "BGCOLOR" (car (cdr (shade-verbatim-element-colors element))))
355			(list "WIDTH" ($table-width$))))
356
357			;; End of $verbatim-display$ redefinition
358
359			</style-specification-body>
360			</style-specification>
361
362			<external-specification id="docbook" document="docbook.dsl">
363
364			</style-sheet>