- Rename the share/sgml directories to share/xml
- Fix build errors from the next change Approved by: doceng (implicit)
This commit is contained in:
Gabor Kovesdan
parent
b4346b9b2d
commit
77d737ee88
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/head/; revision=39632
2162 changed files with 2764 additions and 2764 deletions
346
share/xml/freebsd-common.dsl
Normal file
346
share/xml/freebsd-common.dsl
Normal file
|
|
@ -0,0 +1,346 @@
|
|||
<!-- $FreeBSD$ -->
|
||||
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % freebsd.l10n PUBLIC "-//FreeBSD//ENTITIES DocBook Language Specific Entities//EN">
|
||||
%freebsd.l10n;
|
||||
<!ENTITY % freebsd.l10n-common PUBLIC "-//FreeBSD//ENTITIES DocBook Language Neutral Entities//EN">
|
||||
%freebsd.l10n-common;
|
||||
|
||||
<!ENTITY % output.html "IGNORE">
|
||||
<!ENTITY % output.print "IGNORE">
|
||||
]>
|
||||
|
||||
<style-sheet>
|
||||
<style-specification>
|
||||
<style-specification-body>
|
||||
|
||||
(declare-flow-object-class formatting-instruction
|
||||
"UNREGISTERED::James Clark//Flow Object Class::formatting-instruction")
|
||||
|
||||
(define %section-autolabel%
|
||||
#t)
|
||||
|
||||
(define %label-preface-sections%
|
||||
#f)
|
||||
|
||||
(define %may-format-variablelist-as-table%
|
||||
#f)
|
||||
|
||||
(define %indent-programlisting-lines%
|
||||
#f)
|
||||
|
||||
(define %indent-screen-lines%
|
||||
#f)
|
||||
|
||||
(define (article-titlepage-recto-elements)
|
||||
(list (normalize "title")
|
||||
(normalize "subtitle")
|
||||
(normalize "corpauthor")
|
||||
(normalize "authorgroup")
|
||||
(normalize "author")
|
||||
(normalize "releaseinfo")
|
||||
(normalize "copyright")
|
||||
(normalize "pubdate")
|
||||
(normalize "revhistory")
|
||||
(normalize "legalnotice")
|
||||
(normalize "abstract")))
|
||||
|
||||
(define %admon-graphics%
|
||||
;; Use graphics in admonitions?
|
||||
#f)
|
||||
|
||||
(define %admon-graphics-path%
|
||||
;; Path to admonition images
|
||||
"./imagelib/admon/")
|
||||
|
||||
(define ($admon-graphic$ #!optional (nd (current-node)))
|
||||
;; Admonition graphic file
|
||||
(string-append %admon-graphics-path% (case-fold-down (gi nd)) ".png"))
|
||||
|
||||
(define %show-all-trademark-symbols%
|
||||
;; Show all the trademark symbols, not just the required
|
||||
;; symbols.
|
||||
#f)
|
||||
|
||||
<!-- Slightly deeper customisations -->
|
||||
|
||||
<!-- We would like the author attributions to show up in line
|
||||
with the section they refer to. Authors who made the same
|
||||
contribution should be listed in a single <authorgroup> and
|
||||
only one of the <author> elements should contain a <contrib>
|
||||
element that describes what the whole authorgroup was
|
||||
responsible for. For example:
|
||||
|
||||
<chapterinfo>
|
||||
<authorgroup>
|
||||
<author>
|
||||
<firstname>Bob</firstname>
|
||||
<surname>Jones</surname>
|
||||
<contrib>Contributed by </contrib>
|
||||
</author>
|
||||
<author>
|
||||
<firstname>Sarah</firstname>
|
||||
<surname>Lee</surname>
|
||||
</author>
|
||||
</authorgroup>
|
||||
</chapterinfo>
|
||||
|
||||
Would show up as "Contributed by Bob Jones and Sarah Lee". Each
|
||||
authorgroup shows up as a separate sentence. -->
|
||||
|
||||
|
||||
(element chapterinfo
|
||||
(process-children))
|
||||
(element sect1info
|
||||
(process-children))
|
||||
(element sect2info
|
||||
(process-children))
|
||||
(element sect3info
|
||||
(process-children))
|
||||
(element sect4info
|
||||
(process-children))
|
||||
(element sect5info
|
||||
(process-children))
|
||||
(element (chapterinfo authorgroup author)
|
||||
(literal (author-list-string)))
|
||||
(element (sect1info authorgroup author)
|
||||
(literal (author-list-string)))
|
||||
(element (sect2info authorgroup author)
|
||||
(literal (author-list-string)))
|
||||
(element (sect3info authorgroup author)
|
||||
(literal (author-list-string)))
|
||||
(element (sect4info authorgroup author)
|
||||
(literal (author-list-string)))
|
||||
(element (sect5info authorgroup author)
|
||||
(literal (author-list-string)))
|
||||
|
||||
(define (custom-authorgroup)
|
||||
($italic-seq$
|
||||
(make sequence
|
||||
(process-node-list (select-elements (descendants (current-node))
|
||||
(normalize "contrib")))
|
||||
(process-children)
|
||||
(literal ". "))))
|
||||
|
||||
(element (chapterinfo authorgroup)
|
||||
(custom-authorgroup))
|
||||
(element (sect1info authorgroup)
|
||||
(custom-authorgroup))
|
||||
(element (sect2info authorgroup)
|
||||
(custom-authorgroup))
|
||||
(element (sect3info authorgroup)
|
||||
(custom-authorgroup))
|
||||
(element (sect4info authorgroup)
|
||||
(custom-authorgroup))
|
||||
(element (sect5info authorgroup)
|
||||
(custom-authorgroup))
|
||||
|
||||
<!-- I want things marked up with 'sgmltag' eg.,
|
||||
|
||||
<para>You can use <sgmltag>para</sgmltag> to indicate
|
||||
paragraphs.</para>
|
||||
|
||||
to automatically have the opening and closing braces inserted,
|
||||
and it should be in a mono-spaced font. -->
|
||||
|
||||
(element sgmltag ($mono-seq$
|
||||
(make sequence
|
||||
(literal "<")
|
||||
(process-children)
|
||||
(literal ">"))))
|
||||
|
||||
<!-- Add double quotes around <errorname> text. -->
|
||||
|
||||
(element errorname
|
||||
(make sequence
|
||||
<![ %output.html; [ (literal "“") ]]>
|
||||
($mono-seq$ (process-children))
|
||||
<![ %output.html; [ (literal "”") ]]>
|
||||
))
|
||||
|
||||
<!-- John Fieber's 'instant' translation specification had
|
||||
'<command>' rendered in a mono-space font, and '<application>'
|
||||
rendered in bold.
|
||||
|
||||
Norm's stylesheet doesn't do this (although '<command>' is
|
||||
rendered in bold).
|
||||
|
||||
Configure the stylesheet to behave more like John's. -->
|
||||
|
||||
(element command ($mono-seq$))
|
||||
(element envar ($mono-seq$))
|
||||
|
||||
<!-- Warnings and cautions are put in boxed tables to make them stand
|
||||
out. The same effect can be better achieved using CSS or similar,
|
||||
so have them treated the same as <important>, <note>, and <tip>
|
||||
-->
|
||||
(element warning ($admonition$))
|
||||
(element (warning title) (empty-sosofo))
|
||||
(element (warning para) ($admonpara$))
|
||||
(element (warning simpara) ($admonpara$))
|
||||
(element caution ($admonition$))
|
||||
(element (caution title) (empty-sosofo))
|
||||
(element (caution para) ($admonpara$))
|
||||
(element (caution simpara) ($admonpara$))
|
||||
|
||||
<!-- Tell the stylesheet about our local customisations -->
|
||||
|
||||
(element hostid
|
||||
(if %hyphenation%
|
||||
(urlwrap)
|
||||
($mono-seq$)))
|
||||
(element username ($mono-seq$))
|
||||
(element groupname ($mono-seq$))
|
||||
(element devicename ($mono-seq$))
|
||||
(element maketarget ($mono-seq$))
|
||||
(element makevar ($mono-seq$))
|
||||
|
||||
<!-- Override generate-anchor. This is used to generate a unique ID for
|
||||
each element that can be linked to. The element-id function calls
|
||||
this one if there's no ID attribute that it can use. Normally, we
|
||||
would just use the current element number. However, if it's a
|
||||
a question then use the question's number, as determined by the
|
||||
question-answer-label function.
|
||||
|
||||
This generates anchors of the form "Qx.y.", where x.y is the
|
||||
question label. This will probably break if question-answer-label
|
||||
is changed to generate something that might be the same for two
|
||||
different questions (for example, if question numbering restarts
|
||||
for each qandaset. -->
|
||||
(define (generate-anchor #!optional (nd (current-node)))
|
||||
(cond
|
||||
((equal? (gi nd) (normalize "question"))
|
||||
(string-append "Q" (question-answer-label)))
|
||||
(else
|
||||
(string-append "AEN" (number->string (all-element-number nd))))))
|
||||
|
||||
(define (xref-biblioentry target)
|
||||
(let* ((abbrev (node-list-first
|
||||
(node-list-filter-out-pis (children target))))
|
||||
(label (attribute-string (normalize "xreflabel") target)))
|
||||
|
||||
(if biblio-xref-title
|
||||
(let* ((citetitles (select-elements (descendants target)
|
||||
(normalize "citetitle")))
|
||||
(titles (select-elements (descendants target)
|
||||
(normalize "title")))
|
||||
(isbn (select-elements (descendants target)
|
||||
(normalize "isbn")))
|
||||
(publisher (select-elements (descendants target)
|
||||
(normalize "publishername")))
|
||||
(title (if (node-list-empty? citetitles)
|
||||
(node-list-first titles)
|
||||
(node-list-first citetitles))))
|
||||
(with-mode xref-title-mode
|
||||
(make sequence
|
||||
(process-node-list title))))
|
||||
(if biblio-number
|
||||
(make sequence
|
||||
(literal "[" (number->string (bibentry-number target)) "]"))
|
||||
(if label
|
||||
(make sequence
|
||||
(literal "[" label "]"))
|
||||
(if (equal? (gi abbrev) (normalize "abbrev"))
|
||||
(make sequence
|
||||
(process-node-list abbrev))
|
||||
(make sequence
|
||||
(literal "[" (id target) "]"))))))))
|
||||
|
||||
<!-- The (create-link) procedure should be used by all FreeBSD
|
||||
stylesheets to create links. It calls (can-link-here) to
|
||||
determine whether it's okay to make a link in the current
|
||||
position.
|
||||
|
||||
This check is necessary because links aren't allowed in,
|
||||
for example, <question> tags since the latter cause links
|
||||
to be created by themselves. Obviously, nested links lead
|
||||
to all kinds of evil. This normally wouldn't be a problem
|
||||
since no one in their right mind will put a <ulink> or
|
||||
<link> in a <question>, but it comes up when someone uses,
|
||||
say, a man page entity (e.g., &man.ls.1;); the latter may
|
||||
cause a link to be created, but its use inside a <question>
|
||||
is perfectly legal.
|
||||
|
||||
The (can-link-here) routine isn't perfect; in fact, it's a
|
||||
hack and an ugly one at that. Ideally, it would detect if
|
||||
the currect output would wind up in an <a> tag and return
|
||||
#f if that's the case. Slightly less ideally it would
|
||||
check the current mode and return #f if, say, we're
|
||||
currently in TOC mode. Right now, it makes a best guess
|
||||
attempt at guessing which tags might cause links to be
|
||||
generated. -->
|
||||
(define (can-link-here)
|
||||
(cond ((has-ancestor-member? (current-node)
|
||||
'("TITLE" "QUESTION")) #f)
|
||||
(#t #t)))
|
||||
|
||||
(define (create-link attrlist target)
|
||||
(if (can-link-here)
|
||||
(make element gi: "A"
|
||||
attributes: attrlist
|
||||
target)
|
||||
target))
|
||||
|
||||
;; Standard boolean XNOR (NOT Exclusive OR).
|
||||
(define (xnor x y)
|
||||
(or (and x y)
|
||||
(and (not x) (not y))))
|
||||
|
||||
;; Standard boolean XOR (Exclusive OR).
|
||||
(define (xor x y)
|
||||
(not (xnor x y)))
|
||||
|
||||
;; Determine if a given node is in a title.
|
||||
(define (is-in-title? node)
|
||||
(has-ancestor-member? node (list (normalize "title"))))
|
||||
|
||||
;; Number of references to a trademark before the current
|
||||
;; reference in each chunk. Trademarks in title tags, and
|
||||
;; trademarks in normal text (actually just text that is not in
|
||||
;; title tags) are counted separately.
|
||||
(define ($chunk-trademark-number$ trademark)
|
||||
(let* ((trademarks (select-elements
|
||||
(descendants (chunk-parent trademark))
|
||||
(normalize "trademark"))))
|
||||
(let loop ((nl trademarks) (num 1))
|
||||
(if (node-list-empty? nl)
|
||||
num
|
||||
(if (node-list=? (node-list-first nl) trademark)
|
||||
num
|
||||
(if (and (string=? (data trademark)
|
||||
(data (node-list-first nl)))
|
||||
(xnor (is-in-title? trademark)
|
||||
(is-in-title? (node-list-first nl))))
|
||||
(loop (node-list-rest nl) (+ num 1))
|
||||
(loop (node-list-rest nl) num)))))))
|
||||
|
||||
;; Determine if we should show a trademark symbol. Either in
|
||||
;; first occurrence in the proper context, if the role
|
||||
;; attribute is set to force, or if %show-all-trademark-symbols%
|
||||
;; is set to true.
|
||||
(define (show-tm-symbol? trademark)
|
||||
(or %show-all-trademark-symbols%
|
||||
(= ($chunk-trademark-number$ trademark) 1)
|
||||
(equal? (attribute-string (normalize "role") trademark) "force")))
|
||||
|
||||
(element (acronym remark)
|
||||
(let* ((role (attribute-string (normalize "role"))))
|
||||
(if (not (equal? role "acronym"))
|
||||
($charseq$)
|
||||
(empty-sosofo))))
|
||||
|
||||
(define (local-en-label-title-sep)
|
||||
(list
|
||||
(list (normalize "warning") ": ")
|
||||
(list (normalize "caution") ": ")
|
||||
(list (normalize "chapter") " ")
|
||||
(list (normalize "sect1") " ")
|
||||
(list (normalize "sect2") " ")
|
||||
(list (normalize "sect3") " ")
|
||||
(list (normalize "sect4") " ")
|
||||
(list (normalize "sect5") " ")
|
||||
))
|
||||
|
||||
</style-specification-body>
|
||||
</style-specification>
|
||||
</style-sheet>
|
||||
Loading…
Add table
Add a link
Reference in a new issue