blob: 6bb5026e9e58386066c82483ee57e8914b22c0cf (
plain)
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
118
119
120
121
|
<!-- $FreeBSD$ -->
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY % output.html "IGNORE">
<!ENTITY % output.print "IGNORE">
<!ENTITY % include.historic "IGNORE">
<!ENTITY % no.include.historic "IGNORE">
<!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Stylesheet//EN" CDATA DSSSL>
]>
<style-sheet>
<style-specification use="docbook">
<style-specification-body>
; Configure behavior of this stylesheet
<![ %include.historic; [
(define %include-historic% #t)
]]>
<![ %no.include.historic; [
(define %include-historic% #f)
]]>
; String manipulation functions
(define (split-string-to-list STR)
;; return list of STR separated with char #\ or #\,
(if (string? STR)
(let loop ((i (string-delim-index STR)))
(cond ((equal? (cdr i) '()) '())
(else (cons (substring STR (list-ref i 0) (- (list-ref i 1) 1))
(loop (cdr i))))))
'()))
(define (string-delim-index STR)
;; return indexes of STR separated with char #\ or #\,
(if (string? STR)
(let ((strlen (string-length STR)))
(let loop ((i 0))
(cond ((= i strlen) (cons (+ strlen 1) '()))
((= i 0) (cons i (loop (+ i 1))))
((or (equal? (string-ref STR i) #\ )
(equal? (string-ref STR i) #\,)) (cons (+ i 1) (loop (+ i 1))))
(else (loop (+ i 1))))))
'()
))
(define (string-list-match? STR STR-LIST)
(let loop ((s STR-LIST))
(cond
((equal? s #f) #f)
((equal? s '()) #f)
((equal? (car s) #f) #f)
((equal? STR (car s)) #t)
(else (loop (cdr s))))))
; Deal with conditional inclusion of text via entities.
(default
(let* ((arch (attribute-string (normalize "arch")))
(role (attribute-string (normalize "role")))
(for-arch (entity-text "arch")))
(cond
; If role=historic, and we're not printing historic things, then
; don't output this element.
((and (equal? role "historic")
(not %include-historic%))
(empty-sosofo))
; If arch= not specified, then print unconditionally. This clause
; handles the majority of cases.
((or (equal? arch #f) (equal? arch ""))
(next-match))
; arch= specified, see if it's equal to "all". If so, then
; print unconditionally. Note that this clause could be
; combined with the check to see if arch= wasn't specified
; or was empty; they have the same outcome.
((equal? arch "all")
(next-match))
; arch= specified. If we're building for all architectures,
; then print it prepended with the set of architectures to which
; this element applies.
;
; XXX This doesn't work.
; ((equal? for-arch "all")
; (sosofo-append (literal "[") (literal arch) (literal "] ")
; (process-children)))
; arch= specified, so we need to check to see if the specified
; parameter includes the architecture we're building for.
((string-list-match? for-arch (split-string-to-list arch))
(next-match))
; None of the above
(else (empty-sosofo)))))
; We might have some sect1 level elements where the modification times
; are significant. An example of this is the "What's New" section in
; the release notes. We enable the printing of pubdate entry in
; sect1info elements to support this.
(element (sect1info pubdate) (process-children))
<![ %output.print; [
; Put URLs in footnotes, and put footnotes at the bottom of each page.
(define bop-footnotes #t)
(define %footnote-ulinks% #t)
]]>
<![ %output.html; [
(define %callout-graphics%
;; Use graphics in callouts?
#f)
]]>
</style-specification-body>
</style-specification>
<external-specification id="docbook" document="freebsd.dsl">
</style-sheet>
|
