<!-- $Header: /cvsroot/pgsql/doc/src/sgml/stylesheet.dsl,v1.18 2002/01/10 18:22:44 petere Exp $ -->

<!-- $Header: /cvsroot/pgsql/doc/src/sgml/stylesheet.dsl,v1.19 2002/01/30 21:53:40 petere Exp $ -->

<!DOCTYPE style-sheet PUBLIC"-//James Clark//DTD DSSSL Style Sheet//EN" [

<!-- must turn on one of these with -i on the jade command line -->

;; partintro is a special case...

(partintro (node-list-first

(node-list-filter-by-gi elements (list (normalize"partintro"))))))

(if (reference-titlepage-content? elements side)

(if (part-titlepage-content? elements side)

(make simple-page-sequence

page-n-columns: %titlepage-n-columns%

;; Make sure that page number format is correct.

(if (or (node-list-empty? lastnode)

(not (equal? (gi (node-list-first nl))

(gi lastnode))))

(reference-titlepage-before (node-list-first nl) side)

(part-titlepage-before (node-list-first nl) side)

(empty-sosofo))

(cond

((equal? (gi (node-list-first nl)) (normalize"subtitle"))

(reference-titlepage-subtitle (node-list-first nl) side))

(part-titlepage-subtitle (node-list-first nl) side))

((equal? (gi (node-list-first nl)) (normalize"title"))

(reference-titlepage-title (node-list-first nl) side))

(part-titlepage-title (node-list-first nl) side))

(else

(reference-titlepage-default (node-list-first nl) side)))

(part-titlepage-default (node-list-first nl) side)))

(loop (node-list-rest nl) (node-list-first nl)))))

(if (and %generate-reference-toc%

%generate-reference-toc-on-titlepage%

(if (and %generate-part-toc%

%generate-part-toc-on-titlepage%

(equal? side 'recto))

(make display-group

(build-toc (current-node)