1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
;; $Id: dbgloss.dsl,v 1.2 2004/05/17 14:55:24 tony2001 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)))
|
