headers

[Kumar Tambyraja <tambyrac@xxxxxxxxxxxxxxxxx>]

I have based my code to generate headers on the code in html32hc.dsl but
am able to generate the header only when I use 
(make sequence (process-children)). Using empty-sosofo does not generate
the header.

What am I doing wrong? I have attached the document and the dsssl code.

Thanks in advance

Kumar Tambyraja

------------------------------------------------------------------------------

<!DOCTYPE testdoc [
<!element p - - (#pcdata)*>
<!element title - - (#PCDATA)*>
<!element testdoc - - (title,(p)*)>
]>
<testdoc>
<title>Document Title</title>
<p>
first para
</P>
</testdoc>

-------------------------------------------------------------------------------

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

(define %page-width% 8.5in)
(define %page-height% 11in)

(define %left-right-margin% 0.5in)

(define page-style
  (style
       page-width: %page-width%
       page-height: %page-height%
       left-margin: %left-right-margin%
       right-margin: %left-right-margin%
))       


(element TESTDOC
 (let ((page-header
       (make sequence
         font-posture: 'italic
         (process-first-descendant "TITLE" )
       )
      ))
  (make simple-page-sequence
    use: page-style
    left-header: page-header
    (make sequence 
    (process-children-trim)))
 )
)

(element TITLE
 (empty-sosofo))

 DSSSList info and archive:  http://www.mulberrytech.com/dsssl/dssslist