diff options
Diffstat (limited to 'release/doc/share/xml/release.dsl')
| -rw-r--r-- | release/doc/share/xml/release.dsl | 225 |
1 files changed, 0 insertions, 225 deletions
diff --git a/release/doc/share/xml/release.dsl b/release/doc/share/xml/release.dsl deleted file mode 100644 index 66e9ae2..0000000 --- a/release/doc/share/xml/release.dsl +++ /dev/null @@ -1,225 +0,0 @@ -<!-- $FreeBSD$ --> - -<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ -<!ENTITY % output.html "IGNORE"> -<!ENTITY % output.print "IGNORE"> -<!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Stylesheet//EN" CDATA DSSSL> -<!ENTITY % release.ent PUBLIC "-//FreeBSD//ENTITIES Release Specification//EN"> -%release.ent; -]> - -<style-sheet> - <style-specification use="docbook"> - <style-specification-body> - -; 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)))))) - -; 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) - - (define ($paragraph$) - (let ((arch (attribute-string (normalize "arch"))) - (role (attribute-string (normalize "role"))) - (arch-string (entity-text "arch")) - (merged-string (entity-text "merged"))) - (if (or (equal? (print-backend) 'tex) - (equal? (print-backend) #f)) - ;; avoid using country: characteristic because of a JadeTeX bug... - (make paragraph - first-line-start-indent: (if (is-first-para) - %para-indent-firstpara% - %para-indent%) - space-before: %para-sep% - space-after: (if (INLIST?) - 0pt - %para-sep%) - quadding: %default-quadding% - hyphenate?: %hyphenation% - language: (dsssl-language-code) - (make sequence - (cond - ;; If arch= not specified, then print unconditionally. This clause - ;; handles the majority of cases. - ((or (equal? arch #f) - (equal? arch "") - (equal? arch "all")) - (process-children-trim)) - (else - (make sequence - (literal "[") - (let loop ((prev (car (split-string-to-list arch))) - (rest (cdr (split-string-to-list arch)))) - (make sequence - (literal prev) - (if (not (null? rest)) - (make sequence - (literal ", ") - (loop (car rest) (cdr rest))) - (empty-sosofo)))) - (literal "] ") - (process-children-trim)))) - (if (and (not (null? role)) (equal? role "merged")) - (literal " [" merged-string "]") - (empty-sosofo)))) - (make paragraph - first-line-start-indent: (if (is-first-para) - %para-indent-firstpara% - %para-indent%) - space-before: %para-sep% - space-after: (if (INLIST?) - 0pt - %para-sep%) - quadding: %default-quadding% - hyphenate?: %hyphenation% - language: (dsssl-language-code) - country: (dsssl-country-code) - (make sequence - (cond - ;; If arch= not specified, then print unconditionally. This clause - ;; handles the majority of cases. - ((or (equal? arch #f) - (equal? arch "") - (equal? arch "all")) - (process-children-trim)) - (else - (make sequence - (literal "[") - (let loop ((prev (car (split-string-to-list arch))) - (rest (cdr (split-string-to-list arch)))) - (make sequence - (literal prev) - (if (not (null? rest)) - (make sequence - (literal ", ") - (loop (car rest) (cdr rest))) - (empty-sosofo)))) - (literal "] ") - (process-children-trim)))) - (if (and (not (null? role)) (equal? role "merged")) - (literal " [" merged-string "]") - (empty-sosofo))))))) - ]]> - - <![ %output.html; [ - (define %callout-graphics% - ;; Use graphics in callouts? - #f) - - <!-- Convert " ... " to `` ... '' in the HTML output. --> - (element quote - (make sequence - (literal "“") - (process-children) - (literal "”"))) - - <!-- Specify how to generate the man page link HREF --> - (define ($create-refentry-xref-link$ #!optional (n (current-node))) - (let* ((r (select-elements (children n) (normalize "refentrytitle"))) - (m (select-elements (children n) (normalize "manvolnum"))) - (v (attribute-string (normalize "vendor") n)) - (u (string-append "&release.man.url;?query=" - (data r) "&" "sektion=" (data m)))) - (case v - (("xorg") (string-append u "&" "manpath=Xorg+&release.manpath.xorg;" )) - (("netbsd") (string-append u "&" "manpath=NetBSD+&release.manpath.netbsd;")) - (("ports") (string-append u "&" "manpath=FreeBSD+&release.manpath.freebsd-ports;")) - (else (string-append u "&" "manpath=FreeBSD+&release.manpath.freebsd;"))))) - - ;; $paragraph$ function with arch attribute support. - (define ($paragraph$ #!optional (para-wrapper "P")) - (let ((footnotes (select-elements (descendants (current-node)) - (normalize "footnote"))) - (tgroup (have-ancestor? (normalize "tgroup"))) - (arch (attribute-string (normalize "arch"))) - (role (attribute-string (normalize "role"))) - (arch-string (entity-text "arch")) - (merged-string (entity-text "merged"))) - (make sequence - (make element gi: para-wrapper - attributes: (append - (if %default-quadding% - (list (list "ALIGN" %default-quadding%)) - '())) - (make sequence - (cond - ;; If arch= not specified, then print unconditionally. This clause - ;; handles the majority of cases. - ((or (equal? arch #f) - (equal? arch "") - (equal? arch "all")) - (process-children)) - (else - (sosofo-append - (make sequence - (literal "[") - (let loop ((prev (car (split-string-to-list arch))) - (rest (cdr (split-string-to-list arch)))) - (make sequence - (literal prev) - (if (not (null? rest)) - (make sequence - (literal ", ") - (loop (car rest) (cdr rest))) - (empty-sosofo)))) - (literal "] ") - (process-children))))) - (if (and (not (null? role)) (equal? role "merged")) - (literal " [" merged-string "]") - (empty-sosofo)) - (if (or %footnotes-at-end% tgroup (node-list-empty? footnotes)) - (empty-sosofo) - (make element gi: "BLOCKQUOTE" - attributes: (list - (list "CLASS" "FOOTNOTES")) - (with-mode footnote-mode - (process-node-list footnotes))))))))) - ]]> - - (define (toc-depth nd) - (if (string=? (gi nd) (normalize "book")) - 3 - 3)) - - </style-specification-body> - </style-specification> - - <external-specification id="docbook" document="freebsd.dsl"> -</style-sheet> |
