Finish bringing support for the vendor attribute to the stylesheets

used for the release documentation.

4 files changed, 36 insertions, 16 deletions

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 5616f4b..11b5ce6 100644
--- a/release/doc/de_DE.ISO8859-1/share/sgml/release.dsl
+++ b/release/doc/de_DE.ISO8859-1/share/sgml/release.dsl
@@ -68,10 +68,15 @@
         <!-- 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"))))
-	  (string-append "http://www.FreeBSD.org/cgi/man.cgi?query="
-			 (data r) "&" "sektion=" (data m)
-			 "&" "manpath=FreeBSD+5.0-current")))
+                 (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"))
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 089c4de..688af05 100644
--- a/release/doc/en_US.ISO8859-1/share/sgml/release.dsl
+++ b/release/doc/en_US.ISO8859-1/share/sgml/release.dsl
@@ -63,10 +63,15 @@
         <!-- 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"))))
-	  (string-append "http://www.FreeBSD.org/cgi/man.cgi?query="
-			 (data r) "&" "sektion=" (data m)
-			 "&" "manpath=FreeBSD+5.0-current")))
+                 (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)
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 fb9889a..3030730 100644
--- a/release/doc/fr_FR.ISO8859-1/share/sgml/release.dsl
+++ b/release/doc/fr_FR.ISO8859-1/share/sgml/release.dsl
@@ -70,10 +70,15 @@
         <!-- 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"))))
-	  (string-append "http://www.FreeBSD.org/cgi/man.cgi?query="
-			 (data r) "&" "sektion=" (data m)
-			 "&" "manpath=FreeBSD+5.0-current")))
+                 (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)
diff --git a/release/doc/ja_JP.eucJP/share/sgml/release.dsl b/release/doc/ja_JP.eucJP/share/sgml/release.dsl
index 0f497dd..83ff5bb 100644
--- a/release/doc/ja_JP.eucJP/share/sgml/release.dsl
+++ b/release/doc/ja_JP.eucJP/share/sgml/release.dsl
@@ -70,10 +70,15 @@
         <!-- 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"))))
-	  (string-append "http://www.FreeBSD.org/cgi/man.cgi?query="
-			 (data r) "&" "sektion=" (data m)
-			 "&" "manpath=FreeBSD+5.0-current")))
+                 (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)