Fix the generation of the HTML manual page link according to new

doc/share/sgml/freebsd.dsl

Signaled by:	bmah
This commit is contained in:
Marc Fonvieille 2002-08-28 21:26:33 +00:00
parent f2f03122c3
commit e353d3a1e0
4 changed files with 20 additions and 12 deletions

View File

@ -66,10 +66,12 @@
(define %refentry-xref-link% #t)
<!-- Specify how to generate the man page link HREF -->
(define ($create-refentry-xref-link$ refentrytitle manvolnum)
(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="
refentrytitle "&" "sektion=" manvolnum
"&" "manpath=FreeBSD+5.0-current"))
(data r) "&" "sektion=" (data m)
"&" "manpath=FreeBSD+5.0-current")))
(define (toc-depth nd)
(if (string=? (gi nd) (normalize "book"))

View File

@ -61,10 +61,12 @@
(define %refentry-xref-link% #t)
<!-- Specify how to generate the man page link HREF -->
(define ($create-refentry-xref-link$ refentrytitle manvolnum)
(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="
refentrytitle "&" "sektion=" manvolnum
"&" "manpath=FreeBSD+5.0-current"))
(data r) "&" "sektion=" (data m)
"&" "manpath=FreeBSD+5.0-current")))
]]>
(define (toc-depth nd)

View File

@ -68,10 +68,12 @@
(define %refentry-xref-link% #t)
<!-- Specify how to generate the man page link HREF -->
(define ($create-refentry-xref-link$ refentrytitle manvolnum)
(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="
refentrytitle "&" "sektion=" manvolnum
"&" "manpath=FreeBSD+5.0-current"))
(data r) "&" "sektion=" (data m)
"&" "manpath=FreeBSD+5.0-current")))
]]>
(define (toc-depth nd)

View File

@ -68,10 +68,12 @@
(define %refentry-xref-link% #t)
<!-- Specify how to generate the man page link HREF -->
(define ($create-refentry-xref-link$ refentrytitle manvolnum)
(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="
refentrytitle "&" "sektion=" manvolnum
"&" "manpath=FreeBSD+5.0-current"))
(data r) "&" "sektion=" (data m)
"&" "manpath=FreeBSD+5.0-current")))
]]>
(define (toc-depth nd)