From owner-svn-src-all@FreeBSD.ORG Sat Feb 12 08:29:17 2011 Return-Path: Delivered-To: svn-src-all@freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:4f8:fff6::34]) by hub.freebsd.org (Postfix) with ESMTP id 0B043106566C; Sat, 12 Feb 2011 08:29:17 +0000 (UTC) (envelope-from hrs@FreeBSD.org) Received: from svn.freebsd.org (svn.freebsd.org [IPv6:2001:4f8:fff6::2c]) by mx1.freebsd.org (Postfix) with ESMTP id E30218FC14; Sat, 12 Feb 2011 08:29:16 +0000 (UTC) Received: from svn.freebsd.org (localhost [127.0.0.1]) by svn.freebsd.org (8.14.3/8.14.3) with ESMTP id p1C8TGVR090341; Sat, 12 Feb 2011 08:29:16 GMT (envelope-from hrs@svn.freebsd.org) Received: (from hrs@localhost) by svn.freebsd.org (8.14.3/8.14.3/Submit) id p1C8TGH7090339; Sat, 12 Feb 2011 08:29:16 GMT (envelope-from hrs@svn.freebsd.org) Message-Id: <201102120829.p1C8TGH7090339@svn.freebsd.org> From: Hiroki Sato Date: Sat, 12 Feb 2011 08:29:16 +0000 (UTC) To: src-committers@freebsd.org, svn-src-all@freebsd.org, svn-src-releng@freebsd.org X-SVN-Group: releng MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Cc: Subject: svn commit: r218597 - releng/8.2/release/doc/share/sgml X-BeenThere: svn-src-all@freebsd.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "SVN commit messages for the entire src tree \(except for " user" and " projects" \)" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Sat, 12 Feb 2011 08:29:17 -0000 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))