[OpenJade-users] Why does this stylesheet NOT display a rule in the header?

[Matzinger, E. <Edg...@at...>]

ls,

  can someone explain to me why this stylesheet does not show/process
a rule in the header? It does not show up in the generated RTF file.

Command used: openjade -t rtf -d mystyle.dsl sdg.sgml
Openjade version: 1.3.3-pre1 (on both cygwin and HP-UX)
                  1.3.2 (only on HP-UX)
OpenSP version: 1.5.1 (on both cygwin and HP-UX)
HP-UX compiler: gcc 3.4.2 statically linked.

--------------------------8< mystyle.dsl -----------------------------
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" =
[
<!ENTITY dbstyle PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print=20
Stylesheet//EN" CDATA DSSSL>
]>

<style-sheet>
<style-specification use=3D"docbook">
<style-specification-body>

;; your own defs
(define %paper-type% "A4")

(define (first-page-inner-header gi)
  (make sequence
    (literal "HP-UX Competence SDG")
;     (make rule
;       orientation: 'horizontal
;       length: %text-width%
;       line-thickness: 0.5pt)
  ))

(define (first-page-outer-header gi)
  (make sequence
  (make external-graphic
    scale: 0.5
    entity-system-id: "logo.jpg"
    notation-system-id: "JPG"
    display?: #f
    space-after: 0pt
    position-point-y: -12pt)
  (make rule
    ; orientation: 'horizontal
    orientation: 'escapement
    display-alignment: 'center
    escapement-space-before: 0pt
    escapement-space-after: 0pt
    length: 29.7cm
    layer: 1
    line-thickness: 5pt)
  ))

(define (page-inner-header gi)
  (make sequence
    (literal "HP-UX Competence SDG")
;     (make rule
;       orientation: 'horizontal
;       length: %text-width%
;       line-thickness: 0.5pt)
  ))

(define (page-outer-header gi)
  (make sequence
  (make external-graphic
    scale: 0.5
    entity-system-id: "logo.jpg"
    notation-system-id: "JPG"
    display?: #f
    space-after: 0pt
    position-point-y: -12pt)
  (make rule
    orientation: 'escapement
    display-alignment: 'center
    escapement-space-before: 0pt
    escapement-space-after: 0pt
    length: 29.7cm
    layer: 1
    line-thickness: 0.5pt)
  ))

(define (page-center-header gi)
  (make sequence
    (literal "For internal use")
  ))

(define (first-page-center-header gi)
  (make sequence
    (literal "For internal use")
  ))

(define (first-page-inner-footer gi)
  (make sequence
    (make rule
      orientation: 'horizontal
      length: %text-width%
      space-before: 0pt
      space-after: 0pt
      layer: 1
      line-thickness: 0.5pt)
    (literal "Atos Origin")
  ))

(define (first-page-center-footer gi)
  (let* (
    (bookinf
      (select-elements (children (sgml-root-element)) (normalize =
"bookinfo")))
    (bookdate
      (select-elements (children bookinf) (normalize "pubdate")))
    )
    (with-mode hf-mode
      (make sequence
        (process-node-list bookdate)
      )
    )
  )
)

(define (first-page-outer-footer gi)
  (make sequence
    ($page-number-header-footer$)
  )
)

(define (page-inner-footer gi)
  (make sequence
    (make rule
      orientation: 'horizontal
      length: %text-width%
      space-before: 0pt
      space-after: 0pt
      layer: 1
      line-thickness: 0.5pt)
    (literal "Atos Origin")
  ))

(define (page-center-footer gi)
  (let* (
    (bookinf
      (select-elements (children (sgml-root-element)) (normalize =
"bookinfo")))
    (bookdate
      (select-elements (children bookinf) (normalize "pubdate")))
    )
    (with-mode hf-mode
      (make sequence
        (process-node-list bookdate))
    )
  )
)

(define (page-outer-footer gi)
  (make sequence
    ($page-number-header-footer$)
  )
)

</style-specification-body>
</style-specification>

<external-specification id=3D"docbook" document=3D"dbstyle">
</style-sheet>
--------------------------8< mystyle.dsl -----------------------------

Above stylesheets shows all the necessary items (text and logo) in the
header. Just not the rule.

MTIA, cu l8r, Edgar.
--=20
    |\  /| :                                : Addr: Origin B.V.
 /  | \/ | :     Edgar R. Matzinger         :       t.a.v. E.R. =
Matzinger
/   |    | :                                :       building: VA-178
\  /|  /\| :                                :       Groenewoudseweg 1
 \/   /  \ :        Atos Origin             :       5621 BA Eindhoven
  \  /\  / :       MS DS OSS UNIX           :       The Netherlands
   \/ |\/  :                                :
      |    :                                :
Disclaimer: Any comments, opinions made are mine, etc ...