From owner-svn-src-stable-9@FreeBSD.ORG Sat Jan 7 18:53:15 2012 Return-Path: Delivered-To: svn-src-stable-9@freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:4f8:fff6::34]) by hub.freebsd.org (Postfix) with ESMTP id B391E1065675; Sat, 7 Jan 2012 18:53:15 +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 935DB8FC12; Sat, 7 Jan 2012 18:53:15 +0000 (UTC) Received: from svn.freebsd.org (localhost [127.0.0.1]) by svn.freebsd.org (8.14.4/8.14.4) with ESMTP id q07IrFOZ052258; Sat, 7 Jan 2012 18:53:15 GMT (envelope-from hrs@svn.freebsd.org) Received: (from hrs@localhost) by svn.freebsd.org (8.14.4/8.14.4/Submit) id q07IrFkN052256; Sat, 7 Jan 2012 18:53:15 GMT (envelope-from hrs@svn.freebsd.org) Message-Id: <201201071853.q07IrFkN052256@svn.freebsd.org> From: Hiroki Sato Date: Sat, 7 Jan 2012 18:53:15 +0000 (UTC) To: src-committers@freebsd.org, svn-src-all@freebsd.org, svn-src-stable@freebsd.org, svn-src-stable-9@freebsd.org X-SVN-Group: stable-9 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Cc: Subject: svn commit: r229788 - stable/9/release/doc/share/sgml X-BeenThere: svn-src-stable-9@freebsd.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: SVN commit messages for only the 9-stable src tree List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Sat, 07 Jan 2012 18:53:15 -0000 Author: hrs Date: Sat Jan 7 18:53:14 2012 New Revision: 229788 URL: http://svn.freebsd.org/changeset/base/229788 Log: Add revision attribute handling. Links are now generated at the end of the paragraph from revision="NNN". Modified: stable/9/release/doc/share/sgml/release.dsl Modified: stable/9/release/doc/share/sgml/release.dsl ============================================================================== --- stable/9/release/doc/share/sgml/release.dsl Sat Jan 7 18:52:16 2012 (r229787) +++ stable/9/release/doc/share/sgml/release.dsl Sat Jan 7 18:53:14 2012 (r229788) @@ -170,6 +170,7 @@ (tgroup (have-ancestor? (normalize "tgroup"))) (arch (attribute-string (normalize "arch"))) (role (attribute-string (normalize "role"))) + (rev (attribute-string (normalize "revision"))) (arch-string (entity-text "arch")) (merged-string (entity-text "merged"))) (make sequence @@ -179,28 +180,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))