jadetex (latest & greatest from tug) tables BUG

[Glenn Kronschnabl <grk@xxxxxxxxxxxxxxxx>]

Hi,

Using the latest and greatest jade + jadetex sources,
(available from tug.org)
I am experiencing a table bug.  Enclosed is a .dsl
file that generates the table.  Running thru jadetex
shows the problem.

BUG 1:

A cell-entry in the first column that has
n-columns-spanned > 1 , causes tex to complain
about a misplaced \omit and causes incorrect
output to be generated.  I can get rid of
the error and get the desired output
by removing the \TableRow{}

BUG 2:

On a cell-entry that has n-rows-spanned > 1, the
following row needs to skip over the respective
cell-entry by using the ampersand &.  Again, I
was able to get correct output by manually entering
the extra &.

I assume that these are bugs in the tex backend?!

Glenn Kronschnabl
grk@xxxxxxxxxxxxxxxx


Here is the tex diff:

*** a.tex	Thu Aug 27 21:59:05 1998
--- a_fixed.tex	Thu Aug 27 22:01:31 1998
***************
*** 95,101 ****
  \endTableRow{}\endNode{}%
  \Cline{2-3}%
  \TableRow%
! {}\TableCell%
  {\def\ColumnIndex%
  {1}}T\endTableCell{}%
  &\TableCell%
--- 95,101 ----
  \endTableRow{}\endNode{}%
  \Cline{2-3}%
  \TableRow%
! {}&\TableCell%
  {\def\ColumnIndex%
  {1}}T\endTableCell{}%
  &\TableCell%
***************
*** 127,133 ****
  \TablePartFooter%
  {}\Hline%
  \Node%
- {}\TableRow%
  {}\multicolumn%
  {3}{|l|}{\TableCell%
  {\def\NColumnsSpanned%
--- 127,132 ----
***************

Here is the a.xml and .dsl file used:

<?xml version="1.0"?>
<doc>
<p>test</p>
</doc>

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

; $Id$

; construct a table that looks like:
;
;          1                2     3
;  |----------------------------------|
;  |    header           |   Bar1     |
;  |                     |  T  |  F   |
;  |----------------------------------|
;  |                     |     |      |
;  |----------------------------------|
;  |                     |     |      |
;  |----------------------------------|
;  |                     |     |      |
;  |----------------------------------|
;  |                     |     |      |
;  |----------------------------------|

(root
  (make simple-page-sequence
   page-width: 11in
   page-height: 8.5in
   left-margin: 6pica
   right-margin: 6pica
   top-margin: 6pica
   bottom-margin: 6pica
   header-margin: 3pica
   footer-margin: 3.5pica
   font-size: 24pt
   (make scroll
     (make table
      before-row-border: #t
      before-column-border: #t
      after-row-border: #t
      after-column-border: #t
      display-alignment: 'start
      (make table-part
       content-map: '((thead header)
                     (tbody #f)
                     (tfoot footer))
       (make table-column
        width: 3in
       )
       (make table-column
        width: 1in
       )
       (make table-column
        width: 1in
       )
       (make sequence
        label: 'thead
       (make table-row
         (make table-cell
          n-rows-spanned: 2
          cell-after-column-border: #t
          cell-after-row-border: #t
          (make paragraph
           quadding: 'center
           (literal "H1 centered")
          )
         )
         (make table-cell
	  n-columns-spanned: 2
          cell-after-column-border: #t
          cell-after-row-border: #t
          (make paragraph
           quadding: 'center
           (literal "Bar1")
          )
          )
	 )
       ;; question - do we need empty cells for under header?
       (make table-row
         (make table-cell
          column-number: 2
          cell-after-column-border: #t
          cell-after-row-border: #t
           (literal "T")
         )
         (make table-cell
          cell-after-column-border: #t
          cell-after-row-border: #t
            (literal "F")
          )
        ))
       ;; Table Body starts here
       (make table-row
         (make table-cell
          cell-after-column-border: #t
          cell-after-row-border: #t
           (literal "2,1")
         )
         (make table-cell
          cell-after-column-border: #t
          cell-after-row-border: #t
            (literal "2,2")
          )
         (make table-cell
          cell-after-column-border: #t
          cell-after-row-border: #t
            (literal "2,3")
          )
        )
       (make table-row
         (make table-cell
          cell-after-column-border: #t
          cell-after-row-border: #t
           (literal "3,1")
         )
         (make table-cell
          cell-after-column-border: #t
          cell-after-row-border: #t
            (literal "3,2")
          )
         (make table-cell
          cell-after-column-border: #t
          cell-after-row-border: #t
            (literal "3,3")
          )
        )
       ;; Table Footer starts here
       (make sequence
        label: 'tfoot
       (make table-row
         (make table-cell
          n-columns-spanned: 3
          cell-after-column-border: #t
          cell-after-row-border: #t
           (literal "* footer goes here")
         )
         
        )
     )
    )
   )
  )
))


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