From 2a3f718d6c0e81efbae32a20388079a322533d31 Mon Sep 17 00:00:00 2001 From: hrs Date: Fri, 23 May 2003 10:30:27 +0000 Subject: Move ($create-refentry-xref-link$) to the language-neutral place and add entities &release.manpath.*; for man.cgi's manpath=XXX. Approved by: re (bmah) --- release/doc/de_DE.ISO8859-1/share/sgml/release.dsl | 31 ++------------------ release/doc/en_US.ISO8859-1/share/sgml/release.dsl | 31 ++------------------ release/doc/fr_FR.ISO8859-1/share/sgml/release.dsl | 31 ++------------------ release/doc/ja_JP.eucJP/share/sgml/release.dsl | 33 ++-------------------- release/doc/share/sgml/release.dsl | 28 +++++++++++++++++- release/doc/share/sgml/release.ent | 7 +++++ 6 files changed, 46 insertions(+), 115 deletions(-) (limited to 'release/doc') diff --git a/release/doc/de_DE.ISO8859-1/share/sgml/release.dsl b/release/doc/de_DE.ISO8859-1/share/sgml/release.dsl index 122efbc..5f846e2 100644 --- a/release/doc/de_DE.ISO8859-1/share/sgml/release.dsl +++ b/release/doc/de_DE.ISO8859-1/share/sgml/release.dsl @@ -15,6 +15,9 @@ + (define %refentry-xref-link% #t) + (define ($email-footer$) (make sequence (make element gi: "p" @@ -53,36 +56,8 @@ (create-link (list (list "HREF" "mailto:de-bsd-translators@de.FreeBSD.org")) (literal "de-bsd-translators@de.FreeBSD.org")) (literal ">.")))))) - - - (element quote - (make sequence - (literal "``") - (process-children) - (literal "''"))) - - - (define %refentry-xref-link% #t) - - - (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 (string-append u "&" "manpath=FreeBSD+5.0-current"))))) ]]> - (define (toc-depth nd) - (if (string=? (gi nd) (normalize "book")) - 3 - 3)) - diff --git a/release/doc/en_US.ISO8859-1/share/sgml/release.dsl b/release/doc/en_US.ISO8859-1/share/sgml/release.dsl index 688af05..eeb43ab 100644 --- a/release/doc/en_US.ISO8859-1/share/sgml/release.dsl +++ b/release/doc/en_US.ISO8859-1/share/sgml/release.dsl @@ -11,6 +11,9 @@ + (define %refentry-xref-link% #t) + (define ($email-footer$) (make sequence (make element gi: "p" @@ -49,36 +52,8 @@ (create-link (list (list "HREF" "mailto:doc@FreeBSD.org")) (literal "doc@FreeBSD.org")) (literal ">.")))))) - - - (element quote - (make sequence - (literal "``") - (process-children) - (literal "''"))) - - - (define %refentry-xref-link% #t) - - - (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 (string-append u "&" "manpath=FreeBSD+5.0-current"))))) ]]> - (define (toc-depth nd) - (if (string=? (gi nd) (normalize "book")) - 3 - 3)) - diff --git a/release/doc/fr_FR.ISO8859-1/share/sgml/release.dsl b/release/doc/fr_FR.ISO8859-1/share/sgml/release.dsl index 3df5dfb..2de7155 100644 --- a/release/doc/fr_FR.ISO8859-1/share/sgml/release.dsl +++ b/release/doc/fr_FR.ISO8859-1/share/sgml/release.dsl @@ -18,6 +18,9 @@ + (define %refentry-xref-link% #t) + (define ($email-footer$) (make sequence (make element gi: "p" @@ -56,36 +59,8 @@ (create-link (list (list "HREF" "mailto:doc@FreeBSD.org")) (literal "doc@FreeBSD.org")) (literal ">.")))))) - - - (element quote - (make sequence - (literal "``") - (process-children) - (literal "''"))) - - - (define %refentry-xref-link% #t) - - - (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 (string-append u "&" "manpath=FreeBSD+5.0-current"))))) ]]> - (define (toc-depth nd) - (if (string=? (gi nd) (normalize "book")) - 3 - 3)) - diff --git a/release/doc/ja_JP.eucJP/share/sgml/release.dsl b/release/doc/ja_JP.eucJP/share/sgml/release.dsl index 179cca2..6202c37 100644 --- a/release/doc/ja_JP.eucJP/share/sgml/release.dsl +++ b/release/doc/ja_JP.eucJP/share/sgml/release.dsl @@ -12,6 +12,9 @@ + (define %refentry-xref-link% #t) + (define ($email-footer$) (make sequence (make element gi: "p" @@ -55,37 +58,7 @@ (create-link (list (list "HREF" "http://www.jp.FreeBSD.org/ml.html#doc-jp")) (literal "doc-jp@jp.FreeBSD.org")) (literal "> まで電子メールでお願いします。")))))) - - - - (element quote - (make sequence - (literal "``") - (process-children) - (literal "''"))) - - - (define %refentry-xref-link% #t) - - - (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 (string-append u "&" "manpath=FreeBSD+5.0-current"))))) ]]> - - (define (toc-depth nd) - (if (string=? (gi nd) (normalize "book")) - 3 - 3)) - diff --git a/release/doc/share/sgml/release.dsl b/release/doc/share/sgml/release.dsl index 6bb5026..8e5366e 100644 --- a/release/doc/share/sgml/release.dsl +++ b/release/doc/share/sgml/release.dsl @@ -6,6 +6,8 @@ + +%release.ent; ]> @@ -111,11 +113,35 @@ (define %callout-graphics% ;; Use graphics in callouts? #f) + + + (element quote + (make sequence + (literal "``") + (process-children) + (literal "''"))) + + + (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 "&release.man.url;?query=" + (data r) "&" "sektion=" (data m)))) + (case v + (("xfree86") (string-append u "&" "manpath=XFree86+&release.manpath.xfree86;" )) + (("netbsd") (string-append u "&" "manpath=NetBSD+&release.manpath.netbsd;")) + (("ports") (string-append u "&" "manpath=FreeBSD+&release.manpath.freebsd-ports;")) + (else (string-append u "&" "manpath=FreeBSD+&release.manpath.freebsd;"))))) ]]> + (define (toc-depth nd) + (if (string=? (gi nd) (normalize "book")) + 3 + 3)) + - diff --git a/release/doc/share/sgml/release.ent b/release/doc/share/sgml/release.ent index a457c14..cdc749b 100644 --- a/release/doc/share/sgml/release.ent +++ b/release/doc/share/sgml/release.ent @@ -37,6 +37,13 @@ + + + + + + +