doc/{,<langcode>}/share/sgml/catalog
Hiroki Sato
hrs at eos.ocn.ne.jp
Sat Apr 26 15:02:32 UTC 2003
Alex Dupre <sysadmin at alexdupre.com> wrote
in <193879609822.20030423194209 at alexdupre.com>:
sysadmin> Wednesday, April 23, 2003, 7:11:09 PM, you wrote:
sysadmin>
sysadmin> HS> I think it is reasonable to put non-English and language-specific
sysadmin> HS> entries in doc/share/sgml/catalog into doc/<langcode>/share/sgml/catalog.
sysadmin> HS> They are in doc/share/sgml/catalog together now, but not needed
sysadmin> HS> to be there.
sysadmin>
sysadmin> If they are not needed, I completely agree with you. In this case I
sysadmin> give you the permission to apply the Italian part of the patch to the
sysadmin> tree.
Thanks. What do people who responsible for the other languages think?
In addition I have a patch for language-specific freebsd.dsl.
Changes including this are not just cosmetic---for example,
a definition of ($create-refentry-xref-link$) in
en_US.ISO8859-1/share/sgml/freebsd.dsl was changed by
nik (r1.14->r1.15), but since es_ES.ISO8859-1/share/sgml/freebsd.dsl is
not updated, you probably see a warning during the build of es_ES.ISO8859-1/.
To avoid such situation, ($create-refentry-xref-link$) should be
in doc/share/sgml/freebsd.dsl, I think. If we want a language-specific
procedure we can always pre-define (override) in
<langcode>/share/sgml/freebsd.dsl, so most of the procedures in the
current en_US.ISO8859-1/share/sgml/freebsd.dsl can be moved into
doc/share/sgml/freebsd.dsl.
--
| Hiroki SATO <hrs at eos.ocn.ne.jp> / <hrs at FreeBSD.org>
-------------- next part --------------
Index: da_DK.ISO8859-1/share/sgml/freebsd.dsl
===================================================================
RCS file: /home/dcvs/doc/da_DK.ISO8859-1/share/sgml/freebsd.dsl,v
retrieving revision 1.1
diff -d -u -I\$FreeBSD:.*\$ -I\$Id:.*\$ -I\$hrs:.*\$ -r1.1 freebsd.dsl
--- da_DK.ISO8859-1/share/sgml/freebsd.dsl 9 Mar 2003 21:25:19 -0000 1.1
+++ da_DK.ISO8859-1/share/sgml/freebsd.dsl 26 Apr 2003 13:25:38 -0000
@@ -13,6 +13,10 @@
<!-- HTML only .................................................... -->
<![ %output.html; [
+
+ <!-- Generate links to HTML man pages -->
+ (define %refentry-xref-link% #t)
+
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -40,31 +44,6 @@
(create-link (list (list "HREF" "mailto:doc at FreeBSD.org"))
(literal "doc at FreeBSD.org"))
(literal ">.")))))
-
-
- <!-- Convert " ... " to `` ... '' in the HTML output. -->
- (element quote
- (make sequence
- (literal "``")
- (process-children)
- (literal "''")))
-
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
- <!-- 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 "http://www.FreeBSD.org/cgi/man.cgi?query="
- (data r) "&" "sektion=" (data m))))
- (case v
- (("current") (string-append u "&" "manpath=FreeBSD+5.0-current"))
- (("xfree86") (string-append u "&" "manpath=XFree86+4.2.0"))
- (("netbsd") (string-append u "&" "manpath=NetBSD+1.5"))
- (("ports") (string-append u "&" "manpath=FreeBSD+Ports"))
- (else u))))
]]>
<!-- More aesthetically pleasing chapter headers for print output -->
Index: de_DE.ISO8859-1/share/sgml/freebsd.dsl
===================================================================
RCS file: /home/dcvs/doc/de_DE.ISO8859-1/share/sgml/freebsd.dsl,v
retrieving revision 1.12
diff -d -u -I\$FreeBSD:.*\$ -I\$Id:.*\$ -I\$hrs:.*\$ -r1.12 freebsd.dsl
--- de_DE.ISO8859-1/share/sgml/freebsd.dsl 4 Feb 2003 00:34:26 -0000 1.12
+++ de_DE.ISO8859-1/share/sgml/freebsd.dsl 26 Apr 2003 13:26:07 -0000
@@ -15,6 +15,10 @@
<style-specification-body>
<![ %output.html; [
+
+ <!-- Generate links to HTML man pages -->
+ (define %refentry-xref-link% #t)
+
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -31,31 +35,6 @@
attributes: (list (list "href" "mailto:de-bsd-translators at de.FreeBSD.org"))
(literal "de-bsd-translators at de.FreeBSD.org"))
(literal ">.")))))
-
-
- <!-- Convert " ... " to `` ... '' in the HTML output. -->
- (element quote
- (make sequence
- (literal "``")
- (process-children)
- (literal "''")))
-
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
- <!-- 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 "http://www.FreeBSD.org/cgi/man.cgi?query="
- (data r) "&" "sektion=" (data m))))
- (case v
- (("current") (string-append u "&" "manpath=FreeBSD+5.0-current"))
- (("xfree86") (string-append u "&" "manpath=XFree86+4.2.0"))
- (("netbsd") (string-append u "&" "manpath=NetBSD+1.5"))
- (("ports") (string-append u "&" "manpath=FreeBSD+Ports"))
- (else u))))
]]>
</style-specification-body>
</style-specification>
Index: el_GR.ISO8859-7/share/sgml/freebsd.dsl
===================================================================
RCS file: /home/dcvs/doc/el_GR.ISO8859-7/share/sgml/freebsd.dsl,v
retrieving revision 1.3
diff -d -u -I\$FreeBSD:.*\$ -I\$Id:.*\$ -I\$hrs:.*\$ -r1.3 freebsd.dsl
--- el_GR.ISO8859-7/share/sgml/freebsd.dsl 21 Sep 2002 21:11:58 -0000 1.3
+++ el_GR.ISO8859-7/share/sgml/freebsd.dsl 26 Apr 2003 13:26:30 -0000
@@ -13,6 +13,10 @@
<!-- HTML only .................................................... -->
<![ %output.html; [
+
+ <!-- Generate links to HTML man pages -->
+ (define %refentry-xref-link% #t)
+
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -40,30 +44,6 @@
(create-link (list (list "HREF" "mailto:doc at FreeBSD.org"))
(literal "doc at FreeBSD.org"))
(literal ">.")))))
-
-
- <!-- Convert " ... " to `` ... '' in the HTML output. -->
- (element quote
- (make sequence
- (literal "``")
- (process-children)
- (literal "''")))
-
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
- <!-- 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 "http://www.FreeBSD.org/cgi/man.cgi?query="
- (data r) "&" "sektion=" (data m))))
- (case v
- (("xfree86") (string-append u "&" "manpath=XFree86+4.2.0"))
- (("netbsd") (string-append u "&" "manpath=NetBSD+1.5"))
- (("ports") (string-append u "&" "manpath=FreeBSD+Ports"))
- (else u))))
]]>
<!-- More aesthetically pleasing chapter headers for print output -->
Index: en_US.ISO8859-1/share/sgml/freebsd.dsl
===================================================================
RCS file: /home/dcvs/doc/en_US.ISO8859-1/share/sgml/freebsd.dsl,v
retrieving revision 1.18
diff -d -u -I\$FreeBSD:.*\$ -I\$Id:.*\$ -I\$hrs:.*\$ -r1.18 freebsd.dsl
--- en_US.ISO8859-1/share/sgml/freebsd.dsl 19 Apr 2003 11:39:28 -0000 1.18
+++ en_US.ISO8859-1/share/sgml/freebsd.dsl 26 Apr 2003 13:22:19 -0000
@@ -17,6 +17,10 @@
<!-- HTML only .................................................... -->
<![ %output.html; [
+
+ <!-- Generate links to HTML man pages -->
+ (define %refentry-xref-link% #t)
+
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -45,30 +49,6 @@
(literal "doc at FreeBSD.org"))
(literal ">.")))))
-
- <!-- Convert " ... " to `` ... '' in the HTML output. -->
- (element quote
- (make sequence
- (literal "``")
- (process-children)
- (literal "''")))
-
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
- <!-- 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 "http://www.FreeBSD.org/cgi/man.cgi?query="
- (data r) "&" "sektion=" (data m))))
- (case v
- (("current") (string-append u "&" "manpath=FreeBSD+5.0-current"))
- (("xfree86") (string-append u "&" "manpath=XFree86+4.2.0"))
- (("netbsd") (string-append u "&" "manpath=NetBSD+1.5"))
- (("ports") (string-append u "&" "manpath=FreeBSD+Ports"))
- (else u))))
]]>
<!-- More aesthetically pleasing chapter headers for print output -->
Index: es_ES.ISO8859-1/share/sgml/freebsd.dsl
===================================================================
RCS file: /home/dcvs/doc/es_ES.ISO8859-1/share/sgml/freebsd.dsl,v
retrieving revision 1.8
diff -d -u -I\$FreeBSD:.*\$ -I\$Id:.*\$ -I\$hrs:.*\$ -r1.8 freebsd.dsl
--- es_ES.ISO8859-1/share/sgml/freebsd.dsl 3 Nov 2002 12:48:18 -0000 1.8
+++ es_ES.ISO8859-1/share/sgml/freebsd.dsl 26 Apr 2003 13:24:02 -0000
@@ -13,6 +13,10 @@
<!-- HTML only .................................................... -->
<![ %output.html; [
+
+ <!-- Generate links to HTML man pages -->
+ (define %refentry-xref-link% #t)
+
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -40,22 +44,6 @@
(create-link (list (list "HREF" "mailto:doc at FreeBSD.org"))
(literal "doc at FreeBSD.org"))
(literal ">.")))))
-
-
- <!-- Convert " ... " to `` ... '' in the HTML output. -->
- (element quote
- (make sequence
- (literal "``")
- (process-children)
- (literal "''")))
-
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
- <!-- Specify how to generate the man page link HREF -->
- (define ($create-refentry-xref-link$ refentrytitle manvolnum)
- (string-append "http://www.FreeBSD.org/cgi/man.cgi?query="
- refentrytitle "&" "sektion=" manvolnum))
]]>
<!-- More aesthetically pleasing chapter headers for print output -->
Index: fr_FR.ISO8859-1/share/sgml/freebsd.dsl
===================================================================
RCS file: /home/dcvs/doc/fr_FR.ISO8859-1/share/sgml/freebsd.dsl,v
retrieving revision 1.11
diff -d -u -I\$FreeBSD:.*\$ -I\$Id:.*\$ -I\$hrs:.*\$ -r1.11 freebsd.dsl
--- fr_FR.ISO8859-1/share/sgml/freebsd.dsl 11 Dec 2002 20:06:19 -0000 1.11
+++ fr_FR.ISO8859-1/share/sgml/freebsd.dsl 26 Apr 2003 13:27:32 -0000
@@ -19,6 +19,10 @@
<style-specification-body>
<![ %output.html; [
+
+ <!-- Generate links to HTML man pages -->
+ (define %refentry-xref-link% #t)
+
<!-- Fix a problem with the French localisation. This should really
be a patch to the dsssl-docbook-modular port, but this gets it
more widely available sooner. A patch will be applied to the
@@ -54,30 +58,6 @@
attributes: (list (list "href" "mailto:doc at FreeBSD.org"))
(literal "doc at FreeBSD.org"))
(literal ">.")))))
-
- <!-- Convert " ... " to `` ... '' in the HTML output. -->
- (element quote
- (make sequence
- (literal "``")
- (process-children)
- (literal "''")))
-
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
- <!-- 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 "http://www.FreeBSD.org/cgi/man.cgi?query="
- (data r) "&" "sektion=" (data m))))
- (case v
- (("current") (string-append u "&" "manpath=FreeBSD+5.0-current"))
- (("xfree86") (string-append u "&" "manpath=XFree86+4.2.0"))
- (("netbsd") (string-append u "&" "manpath=NetBSD+1.5"))
- (("ports") (string-append u "&" "manpath=FreeBSD+Ports"))
- (else u))))
]]>
<!-- Fix a problem with the French localisation. The bug was
submitted to authors of docbook project -->
Index: it_IT.ISO8859-15/share/sgml/freebsd.dsl
===================================================================
RCS file: /home/dcvs/doc/it_IT.ISO8859-15/share/sgml/freebsd.dsl,v
retrieving revision 1.5
diff -d -u -I\$FreeBSD:.*\$ -I\$Id:.*\$ -I\$hrs:.*\$ -r1.5 freebsd.dsl
--- it_IT.ISO8859-15/share/sgml/freebsd.dsl 19 Mar 2003 18:54:56 -0000 1.5
+++ it_IT.ISO8859-15/share/sgml/freebsd.dsl 26 Apr 2003 13:27:57 -0000
@@ -18,6 +18,10 @@
<!-- HTML only .................................................... -->
<![ %output.html; [
+
+ <!-- Generate links to HTML man pages -->
+ (define %refentry-xref-link% #t)
+
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -45,31 +49,6 @@
(create-link (list (list "HREF" "mailto:doc at FreeBSD.org"))
(literal "doc at FreeBSD.org"))
(literal ">.")))))
-
-
- <!-- Convert " ... " to `` ... '' in the HTML output. -->
- (element quote
- (make sequence
- (literal "``")
- (process-children)
- (literal "''")))
-
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
- <!-- 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 "http://www.FreeBSD.org/cgi/man.cgi?query="
- (data r) "&" "sektion=" (data m))))
- (case v
- (("current") (string-append u "&" "manpath=FreeBSD+5.0-current"))
- (("xfree86") (string-append u "&" "manpath=XFree86+4.2.0"))
- (("netbsd") (string-append u "&" "manpath=NetBSD+1.5"))
- (("ports") (string-append u "&" "manpath=FreeBSD+Ports"))
- (else u))))
]]>
<!-- Both sets of stylesheets ..................................... -->
Index: nl_NL.ISO8859-1/share/sgml/freebsd.dsl
===================================================================
RCS file: /home/dcvs/doc/nl_NL.ISO8859-1/share/sgml/freebsd.dsl,v
retrieving revision 1.3
diff -d -u -I\$FreeBSD:.*\$ -I\$Id:.*\$ -I\$hrs:.*\$ -r1.3 freebsd.dsl
--- nl_NL.ISO8859-1/share/sgml/freebsd.dsl 21 Sep 2002 21:12:05 -0000 1.3
+++ nl_NL.ISO8859-1/share/sgml/freebsd.dsl 26 Apr 2003 13:28:48 -0000
@@ -13,6 +13,10 @@
<!-- HTML only .................................................... -->
<![ %output.html; [
+
+ <!-- Generate links to HTML man pages -->
+ (define %refentry-xref-link% #t)
+
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -40,30 +44,6 @@
(create-link (list (list "HREF" "mailto:doc at FreeBSD.org"))
(literal "doc at FreeBSD.org"))
(literal ">.")))))
-
-
- <!-- Convert " ... " to `` ... '' in the HTML output. -->
- (element quote
- (make sequence
- (literal "``")
- (process-children)
- (literal "''")))
-
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
- <!-- 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 "http://www.FreeBSD.org/cgi/man.cgi?query="
- (data r) "&" "sektion=" (data m))))
- (case v
- (("xfree86") (string-append u "&" "manpath=XFree86+4.2.0"))
- (("netbsd") (string-append u "&" "manpath=NetBSD+1.5"))
- (("ports") (string-append u "&" "manpath=FreeBSD+Ports"))
- (else u))))
]]>
<!-- More aesthetically pleasing chapter headers for print output -->
Index: pl_PL.ISO8859-2/share/sgml/freebsd.dsl
===================================================================
RCS file: /home/dcvs/doc/pl_PL.ISO8859-2/share/sgml/freebsd.dsl,v
retrieving revision 1.1
diff -d -u -I\$FreeBSD:.*\$ -I\$Id:.*\$ -I\$hrs:.*\$ -r1.1 freebsd.dsl
--- pl_PL.ISO8859-2/share/sgml/freebsd.dsl 26 Sep 2002 17:51:34 -0000 1.1
+++ pl_PL.ISO8859-2/share/sgml/freebsd.dsl 26 Apr 2003 13:29:22 -0000
@@ -18,6 +18,10 @@
<!-- HTML only .................................................... -->
<![ %output.html; [
+
+ <!-- Generate links to HTML man pages -->
+ (define %refentry-xref-link% #t)
+
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -45,30 +49,6 @@
(create-link (list (list "HREF" "mailto:doc at FreeBSD.org"))
(literal "doc at FreeBSD.org"))
(literal ">.")))))
-
-
- <!-- Convert " ... " to `` ... '' in the HTML output. -->
- (element quote
- (make sequence
- (literal "``")
- (process-children)
- (literal "''")))
-
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
- <!-- 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 "http://www.FreeBSD.org/cgi/man.cgi?query="
- (data r) "&" "sektion=" (data m))))
- (case v
- (("xfree86") (string-append u "&" "manpath=XFree86+4.2.0"))
- (("netbsd") (string-append u "&" "manpath=NetBSD+1.5"))
- (("ports") (string-append u "&" "manpath=FreeBSD+Ports"))
- (else u))))
]]>
<!-- More aesthetically pleasing chapter headers for print output -->
Index: pt_BR.ISO8859-1/share/sgml/freebsd.dsl
===================================================================
RCS file: /home/dcvs/doc/pt_BR.ISO8859-1/share/sgml/freebsd.dsl,v
retrieving revision 1.3
diff -d -u -I\$FreeBSD:.*\$ -I\$Id:.*\$ -I\$hrs:.*\$ -r1.3 freebsd.dsl
--- pt_BR.ISO8859-1/share/sgml/freebsd.dsl 21 Sep 2002 21:12:09 -0000 1.3
+++ pt_BR.ISO8859-1/share/sgml/freebsd.dsl 26 Apr 2003 13:30:05 -0000
@@ -29,6 +29,10 @@
<!-- HTML only .................................................... -->
<![ %output.html; [
+
+ <!-- Generate links to HTML man pages -->
+ (define %refentry-xref-link% #t)
+
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -56,30 +60,6 @@
(create-link (list (list "HREF" "mailto:doc at FreeBSD.org"))
(literal "doc at FreeBSD.org"))
(literal ">.")))))
-
-
- <!-- Convert " ... " to `` ... '' in the HTML output. -->
- (element quote
- (make sequence
- (literal "``")
- (process-children)
- (literal "''")))
-
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
- <!-- 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 "http://www.FreeBSD.org/cgi/man.cgi?query="
- (data r) "&" "sektion=" (data m))))
- (case v
- (("xfree86") (string-append u "&" "manpath=XFree86+4.2.0"))
- (("netbsd") (string-append u "&" "manpath=NetBSD+1.5"))
- (("ports") (string-append u "&" "manpath=FreeBSD+Ports"))
- (else u))))
]]>
<!-- More aesthetically pleasing chapter headers for print output -->
Index: sr_YU.ISO8859-2/share/sgml/freebsd.dsl
===================================================================
RCS file: /home/dcvs/doc/sr_YU.ISO8859-2/share/sgml/freebsd.dsl,v
retrieving revision 1.1
diff -d -u -I\$FreeBSD:.*\$ -I\$Id:.*\$ -I\$hrs:.*\$ -r1.1 freebsd.dsl
--- sr_YU.ISO8859-2/share/sgml/freebsd.dsl 7 May 2001 18:25:56 -0000 1.1
+++ sr_YU.ISO8859-2/share/sgml/freebsd.dsl 26 Apr 2003 13:31:08 -0000
@@ -44,14 +44,6 @@
attributes: (list (list "href" "mailto:doc at FreeBSD.org"))
(literal "doc at FreeBSD.org"))
(literal ">.")))))
-
-
- <!-- Convert " ... " to `` ... '' in the HTML output. -->
- (element quote
- (make sequence
- (literal "``")
- (process-children)
- (literal "''")))
]]>
(define %html-header-tags% '(("META" ("HTTP-EQUIV" "Content-Type") ("CONTENT" "text/html; charset=iso-8859-2"))))
Index: zh_TW.Big5/share/sgml/freebsd.dsl
===================================================================
RCS file: /home/dcvs/doc/zh_TW.Big5/share/sgml/freebsd.dsl,v
retrieving revision 1.4
diff -d -u -I\$FreeBSD:.*\$ -I\$Id:.*\$ -I\$hrs:.*\$ -r1.4 freebsd.dsl
--- zh_TW.Big5/share/sgml/freebsd.dsl 20 Jan 2003 06:41:37 -0000 1.4
+++ zh_TW.Big5/share/sgml/freebsd.dsl 26 Apr 2003 13:31:31 -0000
@@ -13,6 +13,10 @@
<!-- HTML only .................................................... -->
<![ %output.html; [
+
+ <!-- Generate links to HTML man pages -->
+ (define %refentry-xref-link% #t)
+
(define ($email-footer$)
(make sequence
(make element gi: "p"
@@ -40,31 +44,6 @@
(create-link (list (list "HREF" "mailto:doc at FreeBSD.org"))
(literal "doc at FreeBSD.org"))
(literal ">.")))))
-
-
- <!-- Convert " ... " to `` ... '' in the HTML output. -->
- (element quote
- (make sequence
- (literal "``")
- (process-children)
- (literal "''")))
-
- <!-- Generate links to HTML man pages -->
- (define %refentry-xref-link% #t)
-
- <!-- 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 "http://www.FreeBSD.org/cgi/man.cgi?query="
- (data r) "&" "sektion=" (data m))))
- (case v
- (("current") (string-append u "&" "manpath=FreeBSD+5.0-current"))
- (("xfree86") (string-append u "&" "manpath=XFree86+4.2.0"))
- (("netbsd") (string-append u "&" "manpath=NetBSD+1.5"))
- (("ports") (string-append u "&" "manpath=FreeBSD+Ports"))
- (else u))))
]]>
<!-- More aesthetically pleasing chapter headers for print output -->
Index: share/sgml/freebsd.dsl
===================================================================
RCS file: /home/dcvs/doc/share/sgml/freebsd.dsl,v
retrieving revision 1.70
diff -d -u -I\$FreeBSD:.*\$ -I\$Id:.*\$ -I\$hrs:.*\$ -r1.70 freebsd.dsl
--- share/sgml/freebsd.dsl 19 Apr 2003 11:39:30 -0000 1.70
+++ share/sgml/freebsd.dsl 26 Apr 2003 13:22:06 -0000
@@ -182,9 +182,19 @@
;; /REFENTRY
#f)
- ; Empty function to quiet warnings
- (define ($create-refentry-xref-link$)
- (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 "http://www.FreeBSD.org/cgi/man.cgi?query="
+ (data r) "&" "sektion=" (data m))))
+ (case v
+ (("current") (string-append u "&" "manpath=FreeBSD+5.0-current"))
+ (("xfree86") (string-append u "&" "manpath=XFree86+4.2.0"))
+ (("netbsd") (string-append u "&" "manpath=NetBSD+1.5"))
+ (("ports") (string-append u "&" "manpath=FreeBSD+Ports"))
+ (else u))))
(element citerefentry
(let ((href ($create-refentry-xref-link$)))
@@ -214,6 +224,13 @@
;; textobject
(define preferred-mediaobject-notations
'())
+
+ <!-- Convert " ... " to `` ... '' in the HTML output. -->
+ (element quote
+ (make sequence
+ (literal "``")
+ (process-children)
+ (literal "''")))
]]>
<!-- HTML with images ............................................ -->
More information about the freebsd-doc
mailing list