/usr/share/doc/docbook-dsssl-doc/testdata/jtest.dsl is in docbook-dsssl-doc 1.79-6.
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 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 | <!doctype style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN">
<style-sheet>
<style-specification>
<style-specification-body>
;;
;; $Id: jtest.dsl,v 1.1 2001/04/15 21:06:29 nwalsh Exp $
;;
;; Style sheet for jtest.sgm
;;
;; Changes:
;; 30 Sep 1997: Added style sheet DTD tags so OMITTAG is unnecessary
;; 20 Aug 1997: Created by Norman Walsh (nwalsh@arbortext.com)
;;
(define debug
(external-procedure "UNREGISTERED::James Clark//Procedure::debug"))
(define %font-size% 12pt)
(define %line-spacing-factor% 1.2)
(define-unit em %font-size%)
(define-unit pi (/ 1in 6))
(define %header-font% "Arial")
(declare-initial-value font-size %font-size%)
(declare-initial-value font-weight 'medium)
(declare-initial-value font-posture 'upright)
(declare-initial-value font-family-name "Times New Roman")
(declare-initial-value line-spacing (* %font-size% %line-spacing-factor%))
(declare-initial-value writing-mode 'left-to-right)
(declare-initial-value left-margin 6pi)
(declare-initial-value right-margin 6pi)
(declare-initial-value top-margin 6pi)
(declare-initial-value bottom-margin 6pi)
(declare-initial-value header-margin 4pi)
(declare-initial-value footer-margin 4pi)
(declare-initial-value page-width 8.5in)
(declare-initial-value page-height 11in)
(declare-initial-value quadding 'start)
(element MEMO
(make simple-page-sequence
start-indent: 0pt
input-whitespace-treatment: 'collapse
(process-children-trim)))
(element HEAD
(let ((to (select-elements (children (current-node)) "TO")))
(make sequence
(process-children)
(make paragraph
space-after: 1pi
(literal "Dear ")
(process-node-list (children to))
(literal ":")))))
(element (HEAD DATE)
(make paragraph
space-before: 0.75in
space-after: %font-size%
(make sequence
(make line-field
field-width: 0.75in
font-family-name: %header-font%
(literal "Date:"))
(process-children))))
(element (HEAD TO)
(make paragraph
(make sequence
(make line-field
field-width: 0.75in
font-family-name: %header-font%
(literal "To:"))
(process-children))))
(element (HEAD SUBJECT)
(make paragraph
space-after: (* 2 %font-size%)
(make sequence
(make line-field
field-width: 0.75in
font-family-name: %header-font%
(literal "Subject:"))
(process-children))))
(element BODY
(process-children))
(element PARA
(make paragraph
space-after: 0.5pi
(process-children)))
(element END
(make paragraph
space-before: 2pi
(process-children)))
(element (END CLOSING)
(make paragraph
space-after: 1in
(process-children)))
(element (END SENDER)
(make paragraph
(process-children)))
</style-specification-body>
</style-specification>
</style-sheet>
|