2001-04-27 21:28:02 +00:00
|
|
|
<!-- $FreeBSD$ -->
|
|
|
|
|
|
|
|
|
|
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
|
|
|
|
<!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Stylesheet//EN" CDATA DSSSL>
|
|
|
|
|
]>
|
|
|
|
|
|
|
|
|
|
<style-sheet>
|
|
|
|
|
<style-specification use="docbook">
|
|
|
|
|
<style-specification-body>
|
|
|
|
|
|
2001-05-02 22:02:50 +00:00
|
|
|
; The architecture we're building for. We need to define this as a
|
|
|
|
|
; procedure, because we may not be able to evaluate it until we are
|
|
|
|
|
; at a point in formatting where (current-node) is defined.
|
2001-04-27 21:28:02 +00:00
|
|
|
|
|
|
|
|
(default
|
2001-05-02 22:02:50 +00:00
|
|
|
(let* ((arch (attribute-string (normalize "arch")))
|
|
|
|
|
(for-arch (entity-text "arch")))
|
2001-04-27 21:28:02 +00:00
|
|
|
(if (or (equal? arch #f)
|
|
|
|
|
(equal? arch ""))
|
|
|
|
|
(next-match)
|
|
|
|
|
; We can do a lot more flexible things here. Like it'd be nice to
|
|
|
|
|
; tokenize the arch= attribute and do comparisons of for-arch against
|
|
|
|
|
; different substrings.
|
|
|
|
|
(cond ((equal? arch for-arch) (next-match))
|
|
|
|
|
(else (empty-sosofo))))))
|
|
|
|
|
|
|
|
|
|
</style-specification-body>
|
|
|
|
|
</style-specification>
|
|
|
|
|
|
|
|
|
|
<external-specification id="docbook" document="freebsd.dsl">
|
|
|
|
|
</style-sheet>
|
|
|
|
|
|
