|
Packit |
e20b97 |
;; $Id: dbprocdr.dsl,v 1.4 2004/09/23 20:34:58 petere78 Exp $
|
|
Packit |
e20b97 |
;;
|
|
Packit |
e20b97 |
;; This file is part of the Modular DocBook Stylesheet distribution.
|
|
Packit |
e20b97 |
;; See ../README or http://docbook.sourceforge.net/projects/dsssl/
|
|
Packit |
e20b97 |
;;
|
|
Packit |
e20b97 |
|
|
Packit |
e20b97 |
;; ============================= PROCEDURES =============================
|
|
Packit |
e20b97 |
|
|
Packit |
e20b97 |
(define (PROCSTEP ilvl)
|
|
Packit |
e20b97 |
(if (> ilvl 1) 2.0em 1.8em))
|
|
Packit |
e20b97 |
|
|
Packit |
e20b97 |
(element procedure
|
|
Packit |
e20b97 |
(let ((titles (select-elements (children (current-node)) (normalize "title")))
|
|
Packit |
e20b97 |
(preamble (node-list-filter-by-not-gi (children (current-node))
|
|
Packit |
e20b97 |
(list (normalize "step"))))
|
|
Packit |
e20b97 |
(steps (node-list-filter-by-gi (children (current-node))
|
|
Packit |
e20b97 |
(list (normalize "step"))))
|
|
Packit |
e20b97 |
(id (attribute-string (normalize "id"))))
|
|
Packit |
e20b97 |
(make element gi: "DIV"
|
|
Packit |
e20b97 |
attributes: (list
|
|
Packit |
e20b97 |
(list "CLASS" (gi)))
|
|
Packit |
e20b97 |
(if (not (node-list-empty? titles))
|
|
Packit |
e20b97 |
(make element gi: "P"
|
|
Packit |
e20b97 |
(make element gi: "B"
|
|
Packit |
e20b97 |
(make sequence
|
|
Packit |
e20b97 |
(if id
|
|
Packit |
e20b97 |
(make element gi: "A"
|
|
Packit |
e20b97 |
attributes: (list
|
|
Packit |
e20b97 |
(list "NAME" id))
|
|
Packit |
e20b97 |
(empty-sosofo))
|
|
Packit |
e20b97 |
(empty-sosofo))
|
|
Packit |
e20b97 |
(with-mode title-mode
|
|
Packit |
e20b97 |
(process-node-list titles)))))
|
|
Packit |
e20b97 |
(if id
|
|
Packit |
e20b97 |
(make element gi: "A"
|
|
Packit |
e20b97 |
attributes: (list
|
|
Packit |
e20b97 |
(list "NAME" id))
|
|
Packit |
e20b97 |
(empty-sosofo))
|
|
Packit |
e20b97 |
(empty-sosofo)))
|
|
Packit |
e20b97 |
(process-node-list preamble)
|
|
Packit |
e20b97 |
(make element gi: "OL"
|
|
Packit |
e20b97 |
attributes: (list
|
|
Packit |
e20b97 |
(list "TYPE" ($proc-hierarch-number-format$ 1)))
|
|
Packit |
e20b97 |
(process-node-list steps)))))
|
|
Packit |
e20b97 |
|
|
Packit |
e20b97 |
(element (procedure title) (empty-sosofo))
|
|
Packit |
e20b97 |
|
|
Packit |
e20b97 |
(element substeps
|
|
Packit |
e20b97 |
(make element gi: "OL"
|
|
Packit |
e20b97 |
attributes: (list
|
|
Packit |
e20b97 |
(list "CLASS" "SUBSTEPS")
|
|
Packit |
e20b97 |
(list "TYPE" ($proc-hierarch-number-format$
|
|
Packit |
e20b97 |
(+ ($proc-step-depth$ (current-node)) 1))))
|
|
Packit |
e20b97 |
(process-children)))
|
|
Packit |
e20b97 |
|
|
Packit |
e20b97 |
(element step
|
|
Packit |
e20b97 |
(let ((id (attribute-string (normalize "id"))))
|
|
Packit |
e20b97 |
(make sequence
|
|
Packit |
e20b97 |
(make element gi: "LI"
|
|
Packit |
e20b97 |
attributes: (list (list "CLASS" (gi)))
|
|
Packit |
e20b97 |
(if id
|
|
Packit |
e20b97 |
(make element gi: "A"
|
|
Packit |
e20b97 |
attributes: (list
|
|
Packit |
e20b97 |
(list "NAME" id))
|
|
Packit |
e20b97 |
(empty-sosofo))
|
|
Packit |
e20b97 |
(empty-sosofo))
|
|
Packit |
e20b97 |
(process-children)))))
|
|
Packit |
e20b97 |
|
|
Packit |
e20b97 |
|