freebsd-dev/release/doc/ja_JP.eucJP/share/sgml/release.dsl
Marc Fonvieille e353d3a1e0 Fix the generation of the HTML manual page link according to new
doc/share/sgml/freebsd.dsl

Signaled by:	bmah
2002-08-28 21:26:33 +00:00

89 lines
3.3 KiB
Plaintext

<!-- $FreeBSD$ -->
<!-- Original revision: 1.4 -->
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY release.dsl PUBLIC "-//FreeBSD//DOCUMENT Release Notes DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
<!ENTITY % output.html "IGNORE">
<!ENTITY % output.print "IGNORE">
]>
<style-sheet>
<style-specification use="docbook">
<style-specification-body>
<![ %output.html; [
(define ($email-footer$)
(make sequence
(make element gi: "p"
attributes: (list (list "align" "center"))
(make element gi: "small"
(literal "このファイルの他, リリース関連の文書は ")
(create-link (list (list "HREF" (entity-text "release.url")))
(literal (entity-text "release.url")))
(literal " からダウンロードできます.")))
(make element gi: "p"
attributes: (list (list "align" "center"))
(make element gi: "small"
(literal "FreeBSD に関するお問い合わせは, <")
(create-link
(list (list "HREF" "mailto:questions@FreeBSD.org"))
(literal "questions@FreeBSD.org"))
(literal "> へ質問を投稿する前に")
(create-link
(list (list "HREF" "http://www.FreeBSD.org/docs.html"))
(literal "解説文書"))
(literal "をお読みください.")
(make element gi: "p"
attributes: (list (list "align" "center"))
(make element gi: "small"
(literal "FreeBSD ")
(literal (entity-text "release.branch"))
(literal " をお使いの方は, ぜひ ")
(literal "<")
(create-link (list (list "HREF" "mailto:current@FreeBSD.org"))
(literal "current@FreeBSD.org"))
(literal "> メーリングリストに参加ください.")))
(make element gi: "p"
attributes: (list (list "align" "center"))
(literal "この文書の原文に関するお問い合わせは <")
(create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
(literal "doc@FreeBSD.org"))
(literal "> まで, ")
(make empty-element gi: "br")
(literal "日本語訳に関するお問い合わせは, <")
(create-link (list (list "HREF" "mailto:doc-jp@jp.FreeBSD.org"))
(literal "doc-jp@jp.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"))))
(string-append "http://www.FreeBSD.org/cgi/man.cgi?query="
(data r) "&" "sektion=" (data m)
"&" "manpath=FreeBSD+5.0-current")))
]]>
(define (toc-depth nd)
(if (string=? (gi nd) (normalize "book"))
3
3))
</style-specification-body>
</style-specification>
<external-specification id="docbook" document="release.dsl">
</style-sheet>