[BACK]Return to tbl_term.c CVS log [TXT][DIR] Up to [cvsweb.bsd.lv] / mandoc

Diff for /mandoc/tbl_term.c between version 1.52 and 1.61

version 1.52, 2017/06/14 17:51:15 version 1.61, 2018/11/25 19:24:20
Line 1 
Line 1 
 /*      $Id$ */  /*      $Id$ */
 /*  /*
  * Copyright (c) 2009, 2011 Kristaps Dzonsons <kristaps@bsd.lv>   * Copyright (c) 2009, 2011 Kristaps Dzonsons <kristaps@bsd.lv>
  * Copyright (c) 2011,2012,2014,2015,2017 Ingo Schwarze <schwarze@openbsd.org>   * Copyright (c) 2011-2018 Ingo Schwarze <schwarze@openbsd.org>
  *   *
  * Permission to use, copy, modify, and distribute this software for any   * Permission to use, copy, modify, and distribute this software for any
  * purpose with or without fee is hereby granted, provided that the above   * purpose with or without fee is hereby granted, provided that the above
Line 20 
Line 20 
 #include <sys/types.h>  #include <sys/types.h>
   
 #include <assert.h>  #include <assert.h>
   #include <ctype.h>
 #include <stdio.h>  #include <stdio.h>
 #include <stdlib.h>  #include <stdlib.h>
 #include <string.h>  #include <string.h>
Line 28 
Line 29 
 #include "out.h"  #include "out.h"
 #include "term.h"  #include "term.h"
   
   #define IS_HORIZ(cp)    ((cp)->pos == TBL_CELL_HORIZ || \
                            (cp)->pos == TBL_CELL_DHORIZ)
   
 static  size_t  term_tbl_len(size_t, void *);  static  size_t  term_tbl_len(size_t, void *);
 static  size_t  term_tbl_strlen(const char *, void *);  static  size_t  term_tbl_strlen(const char *, void *);
 static  size_t  term_tbl_sulen(const struct roffsu *, void *);  static  size_t  term_tbl_sulen(const struct roffsu *, void *);
 static  void    tbl_char(struct termp *, char, size_t);  static  void    tbl_char(struct termp *, char, size_t);
 static  void    tbl_data(struct termp *, const struct tbl_opts *,  static  void    tbl_data(struct termp *, const struct tbl_opts *,
                           const struct tbl_cell *,
                         const struct tbl_dat *,                          const struct tbl_dat *,
                         const struct roffcol *);                          const struct roffcol *);
 static  void    tbl_literal(struct termp *, const struct tbl_dat *,  static  void    tbl_literal(struct termp *, const struct tbl_dat *,
Line 47  static void tbl_word(struct termp *, const struct tbl_
Line 52  static void tbl_word(struct termp *, const struct tbl_
 static size_t  static size_t
 term_tbl_sulen(const struct roffsu *su, void *arg)  term_tbl_sulen(const struct roffsu *su, void *arg)
 {  {
         return term_hen((const struct termp *)arg, su);          int      i;
   
           i = term_hen((const struct termp *)arg, su);
           return i > 0 ? i : 0;
 }  }
   
 static size_t  static size_t
Line 65  term_tbl_len(size_t sz, void *arg)
Line 73  term_tbl_len(size_t sz, void *arg)
 void  void
 term_tbl(struct termp *tp, const struct tbl_span *sp)  term_tbl(struct termp *tp, const struct tbl_span *sp)
 {  {
         const struct tbl_cell   *cp;          const struct tbl_cell   *cp, *cpn, *cpp;
         const struct tbl_dat    *dp;          const struct tbl_dat    *dp;
         static size_t            offset;          static size_t            offset;
         size_t                   coloff, tsz;          size_t                   coloff, tsz;
         int                      ic, horiz, spans, vert, more;          int                      ic, horiz, hspans, vert, more;
         char                     fc;          char                     fc;
   
         /* Inhibit printing of spaces: we do padding ourselves. */          /* Inhibit printing of spaces: we do padding ourselves. */
Line 89  term_tbl(struct termp *tp, const struct tbl_span *sp)
Line 97  term_tbl(struct termp *tp, const struct tbl_span *sp)
   
                 tblcalc(&tp->tbl, sp, tp->tcol->offset, tp->tcol->rmargin);                  tblcalc(&tp->tbl, sp, tp->tcol->offset, tp->tcol->rmargin);
   
                   /* Tables leak .ta settings to subsequent text. */
   
                   term_tab_set(tp, NULL);
                   coloff = sp->opts->opts & (TBL_OPT_BOX | TBL_OPT_DBOX) ||
                       sp->opts->lvert;
                   for (ic = 0; ic < sp->opts->cols; ic++) {
                           coloff += tp->tbl.cols[ic].width;
                           term_tab_iset(coloff);
                           coloff += tp->tbl.cols[ic].spacing;
                   }
   
                 /* Center the table as a whole. */                  /* Center the table as a whole. */
   
                 offset = tp->tcol->offset;                  offset = tp->tcol->offset;
                 if (sp->opts->opts & TBL_OPT_CENTRE) {                  if (sp->opts->opts & TBL_OPT_CENTRE) {
                         tsz = sp->opts->opts & (TBL_OPT_BOX | TBL_OPT_DBOX)                          tsz = sp->opts->opts & (TBL_OPT_BOX | TBL_OPT_DBOX)
                             ? 2 : !!sp->opts->lvert + !!sp->opts->rvert;                              ? 2 : !!sp->opts->lvert + !!sp->opts->rvert;
                         for (ic = 0; ic < sp->opts->cols; ic++)                          for (ic = 0; ic + 1 < sp->opts->cols; ic++)
                                 tsz += tp->tbl.cols[ic].width + 3;                                  tsz += tp->tbl.cols[ic].width +
                         tsz -= 3;                                      tp->tbl.cols[ic].spacing;
                           if (sp->opts->cols)
                                   tsz += tp->tbl.cols[sp->opts->cols - 1].width;
                         if (offset + tsz > tp->tcol->rmargin)                          if (offset + tsz > tp->tcol->rmargin)
                                 tsz -= 1;                                  tsz -= 1;
                         tp->tcol->offset = offset + tp->tcol->rmargin > tsz ?                          tp->tcol->offset = offset + tp->tcol->rmargin > tsz ?
Line 107  term_tbl(struct termp *tp, const struct tbl_span *sp)
Line 128  term_tbl(struct termp *tp, const struct tbl_span *sp)
                 /* Horizontal frame at the start of boxed tables. */                  /* Horizontal frame at the start of boxed tables. */
   
                 if (sp->opts->opts & TBL_OPT_DBOX)                  if (sp->opts->opts & TBL_OPT_DBOX)
                         tbl_hrule(tp, sp, 2);                          tbl_hrule(tp, sp, 3);
                 if (sp->opts->opts & (TBL_OPT_DBOX | TBL_OPT_BOX))                  if (sp->opts->opts & (TBL_OPT_DBOX | TBL_OPT_BOX))
                         tbl_hrule(tp, sp, 1);                          tbl_hrule(tp, sp, 2);
         }          }
   
         /* Set up the columns. */          /* Set up the columns. */
Line 136  term_tbl(struct termp *tp, const struct tbl_span *sp)
Line 157  term_tbl(struct termp *tp, const struct tbl_span *sp)
                 /* Set up the data columns. */                  /* Set up the data columns. */
   
                 dp = sp->first;                  dp = sp->first;
                 spans = 0;                  hspans = 0;
                 for (ic = 0; ic < sp->opts->cols; ic++) {                  for (ic = 0; ic < sp->opts->cols; ic++) {
                         if (spans == 0) {                          if (hspans == 0) {
                                 tp->tcol++;                                  tp->tcol++;
                                 tp->tcol->offset = coloff;                                  tp->tcol->offset = coloff;
                         }                          }
                         coloff += tp->tbl.cols[ic].width;                          coloff += tp->tbl.cols[ic].width;
                         tp->tcol->rmargin = coloff;                          tp->tcol->rmargin = coloff;
                         coloff++;  
                         if (ic + 1 < sp->opts->cols)                          if (ic + 1 < sp->opts->cols)
                                 coloff += 2;                                  coloff += tp->tbl.cols[ic].spacing;
                         if (spans) {                          if (hspans) {
                                 spans--;                                  hspans--;
                                 continue;                                  continue;
                         }                          }
                         if (dp == NULL)                          if (dp == NULL)
                                 continue;                                  continue;
                         spans = dp->spans;                          hspans = dp->hspans;
                         dp = dp->next;                          if (ic || sp->layout->first->pos != TBL_CELL_SPAN)
                                   dp = dp->next;
                 }                  }
   
                 /* Set up a column for a right vertical frame. */                  /* Set up a column for a right vertical frame. */
   
                 tp->tcol++;                  tp->tcol++;
                 tp->tcol->offset = coloff;                  tp->tcol->offset = coloff + 1;
                 if (sp->opts->opts & (TBL_OPT_BOX | TBL_OPT_DBOX) ||                  tp->tcol->rmargin = tp->maxrmargin;
                     sp->opts->rvert)  
                         coloff++;  
                 tp->tcol->rmargin = coloff;  
   
                 /* Spans may have reduced the number of columns. */                  /* Spans may have reduced the number of columns. */
   
Line 173  term_tbl(struct termp *tp, const struct tbl_span *sp)
Line 191  term_tbl(struct termp *tp, const struct tbl_span *sp)
                 /* Fill the buffers for all data columns. */                  /* Fill the buffers for all data columns. */
   
                 tp->tcol = tp->tcols;                  tp->tcol = tp->tcols;
                   cp = cpn = sp->layout->first;
                 dp = sp->first;                  dp = sp->first;
                 spans = 0;                  hspans = 0;
                 for (ic = 0; ic < sp->opts->cols; ic++) {                  for (ic = 0; ic < sp->opts->cols; ic++) {
                         if (spans) {                          if (cpn != NULL) {
                                 spans--;                                  cp = cpn;
                                   cpn = cpn->next;
                           }
                           if (hspans) {
                                   hspans--;
                                 continue;                                  continue;
                         }                          }
                         tp->tcol++;                          tp->tcol++;
                         tp->col = 0;                          tp->col = 0;
                         tbl_data(tp, sp->opts, dp, tp->tbl.cols + ic);                          tbl_data(tp, sp->opts, cp, dp, tp->tbl.cols + ic);
                         if (dp == NULL)                          if (dp == NULL)
                                 continue;                                  continue;
                         spans = dp->spans;                          hspans = dp->hspans;
                         dp = dp->next;                          if (cp->pos != TBL_CELL_SPAN)
                                   dp = dp->next;
                 }                  }
                 break;                  break;
         }          }
Line 197  term_tbl(struct termp *tp, const struct tbl_span *sp)
Line 221  term_tbl(struct termp *tp, const struct tbl_span *sp)
                 tp->tcol = tp->tcols;                  tp->tcol = tp->tcols;
                 fc = '\0';                  fc = '\0';
                 if (sp->layout->vert ||                  if (sp->layout->vert ||
                     (sp->prev != NULL && sp->prev->layout->vert) ||                      (sp->next != NULL && sp->next->layout->vert &&
                        sp->next->pos == TBL_SPAN_DATA) ||
                       (sp->prev != NULL && sp->prev->layout->vert &&
                        (horiz || (IS_HORIZ(sp->layout->first) &&
                          !IS_HORIZ(sp->prev->layout->first)))) ||
                     sp->opts->opts & (TBL_OPT_BOX | TBL_OPT_DBOX))                      sp->opts->opts & (TBL_OPT_BOX | TBL_OPT_DBOX))
                         fc = horiz ? '+' : '|';                          fc = horiz || IS_HORIZ(sp->layout->first) ? '+' : '|';
                 else if (horiz && sp->opts->lvert)                  else if (horiz && sp->opts->lvert)
                         fc = '-';                          fc = '-';
                 if (fc != '\0') {                  if (fc != '\0') {
Line 216  term_tbl(struct termp *tp, const struct tbl_span *sp)
Line 244  term_tbl(struct termp *tp, const struct tbl_span *sp)
                         term_flushln(tp);                          term_flushln(tp);
                 } else {                  } else {
                         cp = sp->layout->first;                          cp = sp->layout->first;
                           cpn = sp->next == NULL ? NULL :
                               sp->next->layout->first;
                           cpp = sp->prev == NULL ? NULL :
                               sp->prev->layout->first;
                         dp = sp->first;                          dp = sp->first;
                         spans = 0;                          hspans = 0;
                         for (ic = 0; ic < sp->opts->cols; ic++) {                          for (ic = 0; ic < sp->opts->cols; ic++) {
   
                                 /* Advance to next layout cell. */                                  /*
                                    * Figure out whether to print a
                                    * vertical line after this cell
                                    * and advance to next layout cell.
                                    */
   
                                 if (cp != NULL) {                                  if (cp != NULL) {
                                         vert = cp->vert;                                          vert = cp->vert;
                                         cp = cp->next;                                          switch (cp->pos) {
                                 } else                                          case TBL_CELL_HORIZ:
                                                   fc = '-';
                                                   break;
                                           case TBL_CELL_DHORIZ:
                                                   fc = '=';
                                                   break;
                                           default:
                                                   fc = ' ';
                                                   break;
                                           }
                                   } else {
                                         vert = 0;                                          vert = 0;
                                           fc = ' ';
                                   }
                                   if (cpp != NULL) {
                                           if (vert == 0 &&
                                               cp != NULL &&
                                               ((IS_HORIZ(cp) &&
                                                 !IS_HORIZ(cpp)) ||
                                                (cp->next != NULL &&
                                                 cpp->next != NULL &&
                                                 IS_HORIZ(cp->next) &&
                                                 !IS_HORIZ(cpp->next))))
                                                   vert = cpp->vert;
                                           cpp = cpp->next;
                                   }
                                   if (vert == 0 &&
                                       sp->opts->opts & TBL_OPT_ALLBOX)
                                           vert = 1;
                                   if (cpn != NULL) {
                                           if (vert == 0)
                                                   vert = cpn->vert;
                                           cpn = cpn->next;
                                   }
                                   if (cp != NULL)
                                           cp = cp->next;
   
                                 /* Skip later cells in a span. */                                  /*
                                    * Skip later cells in a span,
                                    * figure out whether to start a span,
                                    * and advance to next data cell.
                                    */
   
                                 if (spans) {                                  if (hspans) {
                                         spans--;                                          hspans--;
                                         continue;                                          continue;
                                 }                                  }
   
                                 /* Advance to next data cell. */  
   
                                 if (dp != NULL) {                                  if (dp != NULL) {
                                         spans = dp->spans;                                          hspans = dp->hspans;
                                         dp = dp->next;                                          if (ic || sp->layout->first->pos
                                               != TBL_CELL_SPAN)
                                                   dp = dp->next;
                                 }                                  }
   
                                 /* Print one line of text in the cell. */                                  /*
                                    * Print one line of text in the cell
                                    * and remember whether there is more.
                                    */
   
                                 tp->tcol++;                                  tp->tcol++;
                                 if (tp->tcol->col < tp->tcol->lastcol)                                  if (tp->tcol->col < tp->tcol->lastcol)
Line 255  term_tbl(struct termp *tp, const struct tbl_span *sp)
Line 331  term_tbl(struct termp *tp, const struct tbl_span *sp)
                                  * but not after the last column.                                   * but not after the last column.
                                  */                                   */
   
                                 if (tp->tcol + 1 == tp->tcols + tp->lasttcol)                                  if (fc == ' ' && ((vert == 0 &&
                                        (cp == NULL || !IS_HORIZ(cp))) ||
                                       tp->tcol + 1 == tp->tcols + tp->lasttcol))
                                         continue;                                          continue;
                                 if (vert == 0 &&  
                                     sp->opts->opts & TBL_OPT_ALLBOX)  
                                         vert = 1;  
                                 if (vert == 0)  
                                         continue;  
   
                                 if (tp->tcol->rmargin + 1 > tp->viscol) {                                  if (tp->viscol < tp->tcol->rmargin) {
                                         (*tp->advance)(tp, tp->tcol->rmargin                                          (*tp->advance)(tp, tp->tcol->rmargin
                                            + 1 - tp->viscol);                                             - tp->viscol);
                                         tp->viscol = tp->tcol->rmargin + 1;                                          tp->viscol = tp->tcol->rmargin;
                                 }                                  }
                                 while (vert--) {                                  while (tp->viscol < tp->tcol->rmargin +
                                         (*tp->letter)(tp, '|');                                      tp->tbl.cols[ic].spacing / 2) {
                                           (*tp->letter)(tp, fc);
                                         tp->viscol++;                                          tp->viscol++;
                                 }                                  }
   
                                   if (tp->tcol + 1 == tp->tcols + tp->lasttcol)
                                           continue;
   
                                   if (fc == ' ' && cp != NULL) {
                                           switch (cp->pos) {
                                           case TBL_CELL_HORIZ:
                                                   fc = '-';
                                                   break;
                                           case TBL_CELL_DHORIZ:
                                                   fc = '=';
                                                   break;
                                           default:
                                                   break;
                                           }
                                   }
                                   if (tp->tbl.cols[ic].spacing) {
                                           (*tp->letter)(tp, fc == ' ' ? '|' :
                                               vert ? '+' : fc);
                                           tp->viscol++;
                                   }
   
                                   if (fc != ' ') {
                                           if (cp != NULL &&
                                               cp->pos == TBL_CELL_HORIZ)
                                                   fc = '-';
                                           else if (cp != NULL &&
                                               cp->pos == TBL_CELL_DHORIZ)
                                                   fc = '=';
                                           else
                                                   fc = ' ';
                                   }
                                   if (tp->tbl.cols[ic].spacing > 2 &&
                                       (vert > 1 || fc != ' ')) {
                                           (*tp->letter)(tp, fc == ' ' ? '|' :
                                               vert > 1 ? '+' : fc);
                                           tp->viscol++;
                                   }
                         }                          }
                 }                  }
   
                 /* Print the vertical frame at the end of each row. */                  /* Print the vertical frame at the end of each row. */
   
                 fc = '\0';                  fc = '\0';
                 if (sp->layout->last->vert ||                  if ((sp->layout->last->vert &&
                     (sp->prev != NULL && sp->prev->layout->last->vert) ||                       sp->layout->last->col + 1 == sp->opts->cols) ||
                       (sp->next != NULL &&
                        sp->next->layout->last->vert &&
                        sp->next->layout->last->col + 1 == sp->opts->cols) ||
                       (sp->prev != NULL &&
                        sp->prev->layout->last->vert &&
                        sp->prev->layout->last->col + 1 == sp->opts->cols &&
                        (horiz || (IS_HORIZ(sp->layout->last) &&
                         !IS_HORIZ(sp->prev->layout->last)))) ||
                     (sp->opts->opts & (TBL_OPT_BOX | TBL_OPT_DBOX)))                      (sp->opts->opts & (TBL_OPT_BOX | TBL_OPT_DBOX)))
                         fc = horiz ? '+' : '|';                          fc = horiz || IS_HORIZ(sp->layout->last) ? '+' : '|';
                 else if (horiz && sp->opts->rvert)                  else if (horiz && sp->opts->rvert)
                         fc = '-';                          fc = '-';
                 if (fc != '\0') {                  if (fc != '\0') {
                         if (horiz == 0) {                          if (horiz == 0 && (IS_HORIZ(sp->layout->last) == 0 ||
                               sp->layout->last->col + 1 < sp->opts->cols)) {
                                 tp->tcol++;                                  tp->tcol++;
                                 (*tp->advance)(tp,                                  (*tp->advance)(tp,
                                     tp->tcol->offset > tp->viscol ?                                      tp->tcol->offset > tp->viscol ?
Line 298  term_tbl(struct termp *tp, const struct tbl_span *sp)
Line 419  term_tbl(struct termp *tp, const struct tbl_span *sp)
         } while (more);          } while (more);
   
         /*          /*
          * If we're the last row, clean up after ourselves: clear the           * Clean up after this row.  If it is the last line
          * existing table configuration and set it to NULL.           * of the table, print the box line and clean up
            * column data; otherwise, print the allbox line.
          */           */
   
         term_setcol(tp, 1);          term_setcol(tp, 1);
Line 307  term_tbl(struct termp *tp, const struct tbl_span *sp)
Line 429  term_tbl(struct termp *tp, const struct tbl_span *sp)
         tp->tcol->rmargin = tp->maxrmargin;          tp->tcol->rmargin = tp->maxrmargin;
         if (sp->next == NULL) {          if (sp->next == NULL) {
                 if (sp->opts->opts & (TBL_OPT_DBOX | TBL_OPT_BOX)) {                  if (sp->opts->opts & (TBL_OPT_DBOX | TBL_OPT_BOX)) {
                         tbl_hrule(tp, sp, 1);                          tbl_hrule(tp, sp, 2);
                         tp->skipvsp = 1;                          tp->skipvsp = 1;
                 }                  }
                 if (sp->opts->opts & TBL_OPT_DBOX) {                  if (sp->opts->opts & TBL_OPT_DBOX) {
                         tbl_hrule(tp, sp, 2);                          tbl_hrule(tp, sp, 3);
                         tp->skipvsp = 2;                          tp->skipvsp = 2;
                 }                  }
                 assert(tp->tbl.cols);                  assert(tp->tbl.cols);
Line 329  term_tbl(struct termp *tp, const struct tbl_span *sp)
Line 451  term_tbl(struct termp *tp, const struct tbl_span *sp)
 /*  /*
  * Kinds of horizontal rulers:   * Kinds of horizontal rulers:
  * 0: inside the table (single or double line with crossings)   * 0: inside the table (single or double line with crossings)
  * 1: inner frame (single line with crossings and ends)   * 1: inside the table (single or double line with crossings and ends)
  * 2: outer frame (single line without crossings with ends)   * 2: inner frame (single line with crossings and ends)
    * 3: outer frame (single line without crossings with ends)
  */   */
 static void  static void
 tbl_hrule(struct termp *tp, const struct tbl_span *sp, int kind)  tbl_hrule(struct termp *tp, const struct tbl_span *sp, int kind)
 {  {
         const struct tbl_cell *c1, *c2;          const struct tbl_cell *cp, *cpn, *cpp;
           const struct roffcol *col;
         int      vert;          int      vert;
         char     line, cross;          char     cross, line, stdcross, stdline;
   
         line = (kind == 0 && TBL_SPAN_DHORIZ == sp->pos) ? '=' : '-';          stdline = (kind < 2 && TBL_SPAN_DHORIZ == sp->pos) ? '=' : '-';
         cross = (kind < 2) ? '+' : '-';          stdcross = (kind < 3) ? '+' : '-';
   
           cp = sp->layout->first;
           cpp = kind || sp->prev == NULL ? NULL : sp->prev->layout->first;
           if (cpp == cp)
                   cpp = NULL;
           cpn = kind > 1 || sp->next == NULL ? NULL : sp->next->layout->first;
           if (cpn == cp)
                   cpn = NULL;
         if (kind)          if (kind)
                 term_word(tp, "+");                  term_word(tp,
         c1 = sp->layout->first;                      cpn == NULL || cpn->pos != TBL_CELL_DOWN ? "+" : "|");
         c2 = sp->prev == NULL ? NULL : sp->prev->layout->first;  
         if (c2 == c1)  
                 c2 = NULL;  
         for (;;) {          for (;;) {
                 tbl_char(tp, line, tp->tbl.cols[c1->col].width + 1);                  col = tp->tbl.cols + cp->col;
                 vert = c1->vert;                  if (cpn == NULL || cpn->pos != TBL_CELL_DOWN) {
                 if ((c1 = c1->next) == NULL)                          line = stdline;
                           cross = stdcross;
                   } else {
                           line = ' ';
                           cross = (kind < 3) ? '|' : ' ';
                   }
                   tbl_char(tp, line, col->width + col->spacing / 2);
                   vert = cp->vert;
                   if ((cp = cp->next) == NULL)
                          break;                           break;
                 if (c2 != NULL) {                  if (cpp != NULL) {
                         if (vert < c2->vert)                          if (vert < cpp->vert)
                                 vert = c2->vert;                                  vert = cpp->vert;
                         c2 = c2->next;                          cpp = cpp->next;
                 }                  }
                   if (cpn != NULL) {
                           if (vert < cpn->vert)
                                   vert = cpn->vert;
                           cpn = cpn->next;
                   }
                   if (cpn == NULL || cpn->pos != TBL_CELL_DOWN) {
                           line = stdline;
                           cross = stdcross;
                   } else
                           line = ' ';
                 if (sp->opts->opts & TBL_OPT_ALLBOX && !vert)                  if (sp->opts->opts & TBL_OPT_ALLBOX && !vert)
                         vert = 1;                          vert = 1;
                 if (vert)                  if (col->spacing)
                         tbl_char(tp, cross, vert);                          tbl_char(tp, vert ? cross : line, 1);
                 if (vert < 2)                  if (col->spacing > 2)
                         tbl_char(tp, line, 2 - vert);                          tbl_char(tp, vert > 1 ? cross : line, 1);
                   if (col->spacing > 4)
                           tbl_char(tp, line, (col->spacing - 3) / 2);
         }          }
         if (kind) {          if (kind) {
                 term_word(tp, "+");                  term_word(tp,
                       cpn == NULL || cpn->pos != TBL_CELL_DOWN ? "+" : "|");
                 term_flushln(tp);                  term_flushln(tp);
         }          }
 }  }
   
 static void  static void
 tbl_data(struct termp *tp, const struct tbl_opts *opts,  tbl_data(struct termp *tp, const struct tbl_opts *opts,
         const struct tbl_dat *dp,      const struct tbl_cell *cp, const struct tbl_dat *dp,
         const struct roffcol *col)      const struct roffcol *col)
 {  {
           switch (cp->pos) {
         if (dp == NULL) {          case TBL_CELL_HORIZ:
                 tbl_char(tp, ASCII_NBRSP, col->width);                  tbl_char(tp, '-', col->width);
                 return;                  return;
           case TBL_CELL_DHORIZ:
                   tbl_char(tp, '=', col->width);
                   return;
           default:
                   break;
         }          }
   
           if (dp == NULL)
                   return;
   
         switch (dp->pos) {          switch (dp->pos) {
         case TBL_DATA_NONE:          case TBL_DATA_NONE:
                 tbl_char(tp, ASCII_NBRSP, col->width);  
                 return;                  return;
         case TBL_DATA_HORIZ:          case TBL_DATA_HORIZ:
         case TBL_DATA_NHORIZ:          case TBL_DATA_NHORIZ:
Line 398  tbl_data(struct termp *tp, const struct tbl_opts *opts
Line 554  tbl_data(struct termp *tp, const struct tbl_opts *opts
                 break;                  break;
         }          }
   
         switch (dp->layout->pos) {          switch (cp->pos) {
         case TBL_CELL_HORIZ:  
                 tbl_char(tp, '-', col->width);  
                 break;  
         case TBL_CELL_DHORIZ:  
                 tbl_char(tp, '=', col->width);  
                 break;  
         case TBL_CELL_LONG:          case TBL_CELL_LONG:
         case TBL_CELL_CENTRE:          case TBL_CELL_CENTRE:
         case TBL_CELL_LEFT:          case TBL_CELL_LEFT:
Line 415  tbl_data(struct termp *tp, const struct tbl_opts *opts
Line 565  tbl_data(struct termp *tp, const struct tbl_opts *opts
                 tbl_number(tp, opts, dp, col);                  tbl_number(tp, opts, dp, col);
                 break;                  break;
         case TBL_CELL_DOWN:          case TBL_CELL_DOWN:
                 tbl_char(tp, ASCII_NBRSP, col->width);          case TBL_CELL_SPAN:
                 break;                  break;
         default:          default:
                 abort();                  abort();
Line 442  tbl_literal(struct termp *tp, const struct tbl_dat *dp
Line 592  tbl_literal(struct termp *tp, const struct tbl_dat *dp
                 const struct roffcol *col)                  const struct roffcol *col)
 {  {
         size_t           len, padl, padr, width;          size_t           len, padl, padr, width;
         int              ic, spans;          int              ic, hspans;
   
         assert(dp->string);          assert(dp->string);
         len = term_strlen(tp, dp->string);          len = term_strlen(tp, dp->string);
         width = col->width;          width = col->width;
         ic = dp->layout->col;          ic = dp->layout->col;
         spans = dp->spans;          hspans = dp->hspans;
         while (spans--)          while (hspans--)
                 width += tp->tbl.cols[++ic].width + 3;                  width += tp->tbl.cols[++ic].width + 3;
   
         padr = width > len ? width - len : 0;          padr = width > len ? width - len : 0;
Line 484  tbl_number(struct termp *tp, const struct tbl_opts *op
Line 634  tbl_number(struct termp *tp, const struct tbl_opts *op
                 const struct tbl_dat *dp,                  const struct tbl_dat *dp,
                 const struct roffcol *col)                  const struct roffcol *col)
 {  {
         char            *cp;          const char      *cp, *lastdigit, *lastpoint;
           size_t           intsz, padl, totsz;
         char             buf[2];          char             buf[2];
         size_t           sz, psz, ssz, d, padl;  
         int              i;  
   
         /*          /*
          * See calc_data_number().  Left-pad by taking the offset of our           * Almost the same code as in tblcalc_number():
          * and the maximum decimal; right-pad by the remaining amount.           * First find the position of the decimal point.
          */           */
   
         assert(dp->string);          assert(dp->string);
           lastdigit = lastpoint = NULL;
           for (cp = dp->string; cp[0] != '\0'; cp++) {
                   if (cp[0] == '\\' && cp[1] == '&') {
                           lastdigit = lastpoint = cp;
                           break;
                   } else if (cp[0] == opts->decimal &&
                       (isdigit((unsigned char)cp[1]) ||
                        (cp > dp->string && isdigit((unsigned char)cp[-1]))))
                           lastpoint = cp;
                   else if (isdigit((unsigned char)cp[0]))
                           lastdigit = cp;
           }
   
         sz = term_strlen(tp, dp->string);          /* Then measure both widths. */
   
         buf[0] = opts->decimal;          padl = 0;
         buf[1] = '\0';          totsz = term_strlen(tp, dp->string);
           if (lastdigit != NULL) {
                   if (lastpoint == NULL)
                           lastpoint = lastdigit + 1;
                   intsz = 0;
                   buf[1] = '\0';
                   for (cp = dp->string; cp < lastpoint; cp++) {
                           buf[0] = cp[0];
                           intsz += term_strlen(tp, buf);
                   }
   
         psz = term_strlen(tp, buf);                  /*
                    * Pad left to match the decimal position,
                    * but avoid exceeding the total column width.
                    */
   
         if ((cp = strrchr(dp->string, opts->decimal)) != NULL) {                  if (col->decimal > intsz && col->width > totsz) {
                 for (ssz = 0, i = 0; cp != &dp->string[i]; i++) {                          padl = col->decimal - intsz;
                         buf[0] = dp->string[i];                          if (padl + totsz > col->width)
                         ssz += term_strlen(tp, buf);                                  padl = col->width - totsz;
                 }                  }
                 d = ssz + psz;  
         } else  
                 d = sz + psz;  
   
         if (col->decimal > d && col->width > sz) {          /* If it is not a number, simply center the string. */
                 padl = col->decimal - d;  
                 if (padl + sz > col->width)          } else if (col->width > totsz)
                         padl = col->width - sz;                  padl = (col->width - totsz) / 2;
                 tbl_char(tp, ASCII_NBRSP, padl);  
         } else          tbl_char(tp, ASCII_NBRSP, padl);
                 padl = 0;  
         tbl_word(tp, dp);          tbl_word(tp, dp);
         if (col->width > sz + padl)  
                 tbl_char(tp, ASCII_NBRSP, col->width - sz - padl);          /* Pad right to fill the column.  */
   
           if (col->width > padl + totsz)
                   tbl_char(tp, ASCII_NBRSP, col->width - padl - totsz);
 }  }
   
 static void  static void
Legend:
Removed from v.1.52  
changed lines
  Added in v.1.61
CVSweb