diff options
Diffstat (limited to 'release/doc/share/sgml/release.dsl')
| -rw-r--r-- | release/doc/share/sgml/release.dsl | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/release/doc/share/sgml/release.dsl b/release/doc/share/sgml/release.dsl new file mode 100644 index 0000000..a1666f6 --- /dev/null +++ b/release/doc/share/sgml/release.dsl @@ -0,0 +1,32 @@ +<!-- $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> + +; 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. + +(default + (let* ((arch (attribute-string (normalize "arch"))) + (for-arch (entity-text "arch"))) + (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> + |
