svn commit: r218597 - releng/8.2/release/doc/share/sgml
Hiroki Sato
hrs at FreeBSD.org
Sat Feb 12 08:29:17 UTC 2011
Author: hrs
Date: Sat Feb 12 08:29:16 2011
New Revision: 218597
URL: http://svn.freebsd.org/changeset/base/218597
Log:
Add revision attribute handling. Links are now generated at the end
of the paragraph from revision="NNN".
Approved by: re (implicit)
Modified:
releng/8.2/release/doc/share/sgml/release.dsl
Modified: releng/8.2/release/doc/share/sgml/release.dsl
==============================================================================
--- releng/8.2/release/doc/share/sgml/release.dsl Sat Feb 12 07:06:40 2011 (r218596)
+++ releng/8.2/release/doc/share/sgml/release.dsl Sat Feb 12 08:29:16 2011 (r218597)
@@ -209,6 +209,7 @@
(normalize "footnote")))
(tgroup (have-ancestor? (normalize "tgroup")))
(arch (attribute-string (normalize "arch")))
+ (rev (attribute-string (normalize "revision")))
(role (attribute-string (normalize "role")))
(arch-string (entity-text "arch"))
(merged-string (entity-text "merged")))
@@ -219,28 +220,46 @@
(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)))))
+ (sosofo-append
+ (if (and (not (equal? arch #f))
+ (not (equal? arch ""))
+ (not (equal? arch "all")))
+ (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 "] "))
+ (empty-sosofo))
+ (process-children)
+ (if (and (not (equal? rev #f))
+ (not (equal? rev "")))
+ (make sequence
+ (literal "[")
+ (let loop ((prev (car (split-string-to-list rev)))
+ (rest (cdr (split-string-to-list rev))))
+ (make sequence
+ (make element gi: "A"
+ attributes: (list
+ (list "HREF" (string-append
+ "http://svn.freebsd.org/viewvc/base?view=revision&revision="
+ prev))
+ (list "TARGET" "_top"))
+ (literal "r")
+ (literal prev))
+ (if (not (null? rest))
+ (make sequence
+ (literal ", ")
+ (loop (car rest) (cdr rest)))
+ (empty-sosofo))))
+ (literal "] "))
+ (empty-sosofo)))
(if (and (not (null? role)) (equal? role "merged"))
(literal " [" merged-string "]")
(empty-sosofo))
More information about the svn-src-all
mailing list