/usr/share/sgml/docbook/stylesheet/dsssl/modular/html/dbtitle.dsl is in docbook-dsssl 1.79-6ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 | ;; $Id: dbtitle.dsl,v 1.2 2003/01/15 08:24:13 adicarlo Exp $
;;
;; This file is part of the Modular DocBook Stylesheet distribution.
;; See ../README or http://docbook.sourceforge.net/projects/dsssl/
;;
;; So we can pass different sosofo's to this routine and get identical
;; treatment (see REFNAME in dbrfntry.dsl)
;;
(define ($lowtitlewithsosofo$ tlevel sosofo)
(let ((tgi (cond
((equal? tlevel 1) "H1")
((equal? tlevel 2) "H2")
((equal? tlevel 3) "H3")
((equal? tlevel 4) "H4")
((equal? tlevel 5) "H5")
(else "P"))))
(if (< tlevel 6)
(make element gi: tgi
sosofo)
(make element gi: "P"
(make element gi: "B"
sosofo)))))
(define ($lowtitle$ tlevel)
($lowtitlewithsosofo$ tlevel (process-children)))
(define ($runinhead$)
(let* ((title (data (current-node)))
(titlelen (string-length title))
(lastchar (if (> titlelen 0)
(string-ref title (- titlelen 1))
"."))
(punct (if (or (= titlelen 0)
(member lastchar %content-title-end-punct%))
""
%default-title-end-punct%)))
(make element gi: "B"
(process-children)
(literal punct " "))))
(element title
(make element gi: "P"
(make element gi: "B"
(process-children-trim))))
(element titleabbrev (empty-sosofo))
(mode title-mode
(element title
(process-children)))
(mode subtitle-mode
(element subtitle
(make sequence
(literal (if (first-sibling?)
""
"; "))
(process-children))))
(mode head-title-mode
;; TITLE in an HTML HEAD
(default
(process-children))
(element graphic (empty-sosofo))
(element inlinegraphic (empty-sosofo)))
|