diff options
Diffstat (limited to 'release/doc/share/sgml/release.dsl')
-rw-r--r-- | release/doc/share/sgml/release.dsl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/release/doc/share/sgml/release.dsl b/release/doc/share/sgml/release.dsl index ee37005..6bb5026 100644 --- a/release/doc/share/sgml/release.dsl +++ b/release/doc/share/sgml/release.dsl @@ -3,6 +3,8 @@ <!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> ]> @@ -10,6 +12,14 @@ <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 #\, @@ -45,9 +55,17 @@ ; 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 "")) |