From owner-freebsd-doc Sun Aug 25 8:25:41 2002 Delivered-To: freebsd-doc@freebsd.org Received: from mx1.FreeBSD.org (mx1.FreeBSD.org [216.136.204.125]) by hub.freebsd.org (Postfix) with ESMTP id 5DAC037B400; Sun, 25 Aug 2002 08:25:37 -0700 (PDT) Received: from smtp.eos.ocn.ne.jp (eos.ocn.ne.jp [211.6.83.117]) by mx1.FreeBSD.org (Postfix) with ESMTP id 0E45343E42; Sun, 25 Aug 2002 08:25:36 -0700 (PDT) (envelope-from hrs@jp.FreeBSD.org) Received: from mail.allbsd.org (p17010-adsao04hon-acca.tokyo.ocn.ne.jp [61.199.22.10]) by smtp.eos.ocn.ne.jp (Postfix) with ESMTP id 85664155B; Mon, 26 Aug 2002 00:25:34 +0900 (JST) Received: from localhost (alph.allbsd.org [192.168.0.10]) by mail.allbsd.org (8.12.3/3.7W/DomainMaster) with ESMTP id g7PFDMLv030814; Mon, 26 Aug 2002 00:13:24 +0900 (JST) (envelope-from hrs@jp.FreeBSD.org) Date: Mon, 26 Aug 2002 00:12:08 +0900 (JST) Message-Id: <20020826.001208.104026181.hrs@eos.ocn.ne.jp> To: blackend@FreeBSD.ORG Cc: freebsd-doc@FreeBSD.ORG Subject: Re: [PATCH] Support for links to Ports manual pages From: Hiroki Sato In-Reply-To: <20020825154120.A21468@abigail.blackend.org> References: <20020825154120.A21468@abigail.blackend.org> X-Mailer: Mew version 2.2 on Emacs 20.7 / Mule 4.0 (HANANOEN) Mime-Version: 1.0 Content-Type: Text/Plain; charset=us-ascii Content-Transfer-Encoding: 7bit Sender: owner-freebsd-doc@FreeBSD.ORG Precedence: bulk List-ID: List-Archive: (Web Archive) List-Help: (List Instructions) List-Subscribe: List-Unsubscribe: X-Loop: FreeBSD.org Hi, Marc Fonvieille wrote in <20020825154120.A21468@abigail.blackend.org>: blackend> Here's my patch against doc/share/sgml/freebsd.dsl Sounds good to me, but URL strings should be created by ($create-refentry-xref-link$) defined in language-dependent directories (mainly for the i18n purpose). And, the latest version of DSSSL stylesheet (v1.7x) does not need our own (element citerefentry) definition. It was updated to use %citerefentry-link% instead, so I think we also need to use it. A patch is attached for your information. -- Hiroki SATO Index: doc/share/sgml/freebsd.dsl =================================================================== RCS file: /home/ncvs/doc/share/sgml/freebsd.dsl,v retrieving revision 1.64 diff -d -u -I\$FreeBSD:.*\$ -I\$Id:.*\$ -I\$hrs:.*\$ -r1.64 freebsd.dsl --- doc/share/sgml/freebsd.dsl 27 Feb 2002 04:56:44 -0000 1.64 +++ doc/share/sgml/freebsd.dsl 25 Aug 2002 14:18:08 -0000 @@ -108,38 +108,17 @@ (empty-sosofo)) ($email-footer$)))) - (define %refentry-xref-link% - ;; REFENTRY refentry-xref-link - ;; PURP Generate URL links when cross-referencing RefEntrys? - ;; DESC - ;; If true, a web link will be generated, presumably - ;; to an online man->HTML gateway. The text of the link is - ;; generated by the $create-refentry-xref-link$ function. - ;; /DESC - ;; AUTHOR N/A - ;; /REFENTRY - #f) - - ; Empty function to quiet warnings - (define ($create-refentry-xref-link$ refentrytitle manvolnum) - (literal "")) - - (element citerefentry - (let* ((refentrytitle (select-elements (children (current-node)) - (normalize "refentrytitle"))) - (manvolnum (select-elements (children (current-node)) - (normalize "manvolnum"))) - (href ($create-refentry-xref-link$ - (data refentrytitle) - (data manvolnum)))) - (if %refentry-xref-link% - (create-link (list (list "HREF" href)) - (if %refentry-xref-italic% - ($italic-seq$) - ($charseq$))) - (if %refentry-xref-italic% - ($italic-seq$) - ($charseq$))))) + (define %citerefentry-link% + ;; REFENTRY citerefentry-link + ;; PURP Generate URL links when cross-referencing RefEntrys? + ;; DESC + ;; If true, a web link will be generated, presumably + ;; to an online man->HTML gateway. The text of the link is + ;; generated by the $generate-citerefentry-link$ function. + ;; /DESC + ;; AUTHOR N/A + ;; /REFENTRY + #f) (element filename (let* ((class (attribute-string (normalize "role")))) Index: doc/en_US.ISO8859-1/share/sgml/freebsd.dsl =================================================================== RCS file: /home/ncvs/doc/en_US.ISO8859-1/share/sgml/freebsd.dsl,v retrieving revision 1.14 diff -d -u -I\$FreeBSD:.*\$ -I\$Id:.*\$ -I\$hrs:.*\$ -r1.14 freebsd.dsl --- doc/en_US.ISO8859-1/share/sgml/freebsd.dsl 2 Sep 2001 02:37:50 -0000 1.14 +++ doc/en_US.ISO8859-1/share/sgml/freebsd.dsl 25 Aug 2002 14:13:46 -0000 @@ -50,12 +50,23 @@ (literal "''"))) - (define %refentry-xref-link% #t) + (define %citerefentry-link% #t) - (define ($create-refentry-xref-link$ refentrytitle manvolnum) - (string-append "http://www.FreeBSD.org/cgi/man.cgi?query=" - refentrytitle "&" "sektion=" manvolnum)) + (define ($generate-citerefentry-link$) + (let* ((refentrytitle (select-elements (children (current-node)) + (normalize "refentrytitle"))) + (manvolnum (select-elements (children (current-node)) + (normalize "manvolnum"))) + (manpath (attribute-string (normalize "role") + (current-node)))) + (string-append "http://www.FreeBSD.org/cgi/man.cgi?query=" + (data refentrytitle) + "&" "sektion=" + (data manvolnum) + "&" "manpath=" + (if manpath manpath "")))) + ]]> To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-doc" in the body of the message