Another update to the <authorgroup> / <*info> handling. See the

comment for details.

Hashed out with: chern
This commit is contained in:
Murray Stokely 2001-08-09 23:18:34 +00:00
parent 6cf123d6cf
commit 2f6147a6ac
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/head/; revision=10276

View file

@ -1,4 +1,4 @@
<!-- $FreeBSD: doc/share/sgml/freebsd.dsl,v 1.45 2001/08/09 00:14:42 chern Exp $ --> <!-- $FreeBSD: doc/share/sgml/freebsd.dsl,v 1.46 2001/08/09 00:28:10 murray Exp $ -->
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY % output.html "IGNORE"> <!ENTITY % output.html "IGNORE">
@ -394,44 +394,76 @@
to automatically have the opening and closing braces inserted, to automatically have the opening and closing braces inserted,
and it should be in a mono-spaced font. --> and it should be in a mono-spaced font. -->
<!-- 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:
<chapter1info>
<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 seperate sentence. -->
(element chapterinfo (element chapterinfo
(process-children)) (process-children))
(element sect1info (element sect1info
(process-children)) (process-children))
(element sect2info (element sect2info
(process-children)) (process-children))
(element sect3info
(process-children))
(element sect4info
(process-children))
(element sect5info
(process-children))
(element (chapterinfo authorgroup author) (element (chapterinfo authorgroup author)
(make sequence (literal (author-list-string)))
(process-node-list (select-elements (descendants (current-node))
(normalize "contrib")))
(literal (author-string))
(literal ". ")))
(element (sect1info authorgroup author) (element (sect1info authorgroup author)
(make sequence (literal (author-list-string)))
(process-node-list (select-elements (descendants (current-node))
(normalize "contrib")))
(literal (author-string))
(literal ". ")))
(element (sect2info authorgroup author) (element (sect2info authorgroup author)
(make sequence (literal (author-list-string)))
(process-node-list (select-elements (descendants (current-node)) (element (sect3info authorgroup author)
(normalize "contrib"))) (literal (author-list-string)))
(literal (author-string)) (element (sect4info authorgroup author)
(literal ". "))) (literal (author-list-string)))
(element (chapterinfo authorgroup) (element (sect5info authorgroup author)
($italic-seq$ (literal (author-list-string)))
(process-children)))
(element (sect1info authorgroup)
($italic-seq$
(process-children)))
(element (sect2info authorgroup)
($italic-seq$
(process-children)))
(element (author contrib) (define (custom-authorgroup)
(make sequence ($italic-seq$
(process-children) (make sequence
(literal " by "))) (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))
(element sgmltag ($mono-seq$ (element sgmltag ($mono-seq$
(make sequence (make sequence