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

Diff for /mandoc/tbl.c between version 1.19 and 1.24

version 1.19, 2011/01/02 20:34:05 version 1.24, 2011/03/22 09:48:13
Line 1 
Line 1 
 /*      $Id$ */  /*      $Id$ */
 /*  /*
  * Copyright (c) 2009, 2010 Kristaps Dzonsons <kristaps@bsd.lv>   * Copyright (c) 2009, 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv>
    * Copyright (c) 2011 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 21 
Line 22 
 #include <time.h>  #include <time.h>
   
 #include "mandoc.h"  #include "mandoc.h"
 #include "roff.h"  
 #include "libmandoc.h"  #include "libmandoc.h"
 #include "libroff.h"  #include "libroff.h"
   
 static  void     tbl_calc(struct tbl_node *);  
 static  void     tbl_calc_data(struct tbl_node *, struct tbl_dat *);  
 static  void     tbl_calc_data_literal(struct tbl_dat *);  
 static  void     tbl_calc_data_number(struct tbl_node *, struct tbl_dat *);  
 static  void     tbl_calc_data_spanner(struct tbl_dat *);  
   
 enum rofferr  enum rofferr
 tbl_read(struct tbl_node *tbl, int ln, const char *p, int offs)  tbl_read(struct tbl_node *tbl, int ln, const char *p, int offs)
 {  {
Line 58  tbl_read(struct tbl_node *tbl, int ln, const char *p, 
Line 52  tbl_read(struct tbl_node *tbl, int ln, const char *p, 
                 return(tbl_option(tbl, ln, p) ? ROFF_IGN : ROFF_ERR);                  return(tbl_option(tbl, ln, p) ? ROFF_IGN : ROFF_ERR);
         case (TBL_PART_LAYOUT):          case (TBL_PART_LAYOUT):
                 return(tbl_layout(tbl, ln, p) ? ROFF_IGN : ROFF_ERR);                  return(tbl_layout(tbl, ln, p) ? ROFF_IGN : ROFF_ERR);
         case (TBL_PART_DATA):          case (TBL_PART_CDATA):
                   return(tbl_cdata(tbl, ln, p) ? ROFF_TBL : ROFF_IGN);
           default:
                 break;                  break;
         }          }
   
Line 70  tbl_read(struct tbl_node *tbl, int ln, const char *p, 
Line 66  tbl_read(struct tbl_node *tbl, int ln, const char *p, 
 }  }
   
 struct tbl_node *  struct tbl_node *
 tbl_alloc(int pos, int line, void *data, const mandocmsg msg)  tbl_alloc(int pos, int line, struct mparse *parse)
 {  {
         struct tbl_node *p;          struct tbl_node *p;
   
         p = mandoc_calloc(1, sizeof(struct tbl_node));          p = mandoc_calloc(1, sizeof(struct tbl_node));
         p->line = line;          p->line = line;
         p->pos = pos;          p->pos = pos;
         p->data = data;          p->parse = parse;
         p->msg = msg;  
         p->part = TBL_PART_OPTS;          p->part = TBL_PART_OPTS;
         p->opts.tab = '\t';          p->opts.tab = '\t';
         p->opts.linesize = 12;          p->opts.linesize = 12;
Line 128  tbl_free(struct tbl_node *p)
Line 123  tbl_free(struct tbl_node *p)
 void  void
 tbl_restart(int line, int pos, struct tbl_node *tbl)  tbl_restart(int line, int pos, struct tbl_node *tbl)
 {  {
           if (TBL_PART_CDATA == tbl->part)
                   mandoc_msg(MANDOCERR_TBLBLOCK, tbl->parse,
                                   tbl->line, tbl->pos, NULL);
   
         tbl->part = TBL_PART_LAYOUT;          tbl->part = TBL_PART_LAYOUT;
         tbl->line = line;          tbl->line = line;
         tbl->pos = pos;          tbl->pos = pos;
   
         if (NULL == tbl->first_span || NULL == tbl->first_span->first)          if (NULL == tbl->first_span || NULL == tbl->first_span->first)
                 TBL_MSG(tbl, MANDOCERR_TBLNODATA, tbl->line, tbl->pos);                  mandoc_msg(MANDOCERR_TBLNODATA, tbl->parse,
                                   tbl->line, tbl->pos, NULL);
 }  }
   
 const struct tbl_span *  const struct tbl_span *
 tbl_span(const struct tbl_node *tbl)  tbl_span(struct tbl_node *tbl)
 {  {
           struct tbl_span  *span;
   
         assert(tbl);          assert(tbl);
         return(tbl->last_span);          span = tbl->current_span ? tbl->current_span->next
                                    : tbl->first_span;
           if (span)
                   tbl->current_span = span;
           return(span);
 }  }
   
 void  void
Line 150  tbl_end(struct tbl_node *tbl)
Line 154  tbl_end(struct tbl_node *tbl)
 {  {
   
         if (NULL == tbl->first_span || NULL == tbl->first_span->first)          if (NULL == tbl->first_span || NULL == tbl->first_span->first)
                 TBL_MSG(tbl, MANDOCERR_TBLNODATA, tbl->line, tbl->pos);                  mandoc_msg(MANDOCERR_TBLNODATA, tbl->parse,
         else                                  tbl->line, tbl->pos, NULL);
                 tbl_calc(tbl);  
   
         if (tbl->last_span)          if (tbl->last_span)
                 tbl->last_span->flags |= TBL_SPAN_LAST;                  tbl->last_span->flags |= TBL_SPAN_LAST;
 }  
   
 static void          if (TBL_PART_CDATA == tbl->part)
 tbl_calc(struct tbl_node *tbl)                  mandoc_msg(MANDOCERR_TBLBLOCK, tbl->parse,
 {                                  tbl->line, tbl->pos, NULL);
         struct tbl_span *sp;  
         struct tbl_dat  *dp;  
         struct tbl_head *hp;  
   
         /* Calculate width as the max of column cells' widths. */  
   
         for (sp = tbl->first_span; sp; sp = sp->next) {  
                 switch (sp->pos) {  
                 case (TBL_DATA_HORIZ):  
                         /* FALLTHROUGH */  
                 case (TBL_DATA_DHORIZ):  
                         continue;  
                 default:  
                         break;  
                 }  
                 for (dp = sp->first; dp; dp = dp->next)  
                         tbl_calc_data(tbl, dp);  
         }  
   
         /* Calculate width as the simple spanner value. */  
   
         for (hp = tbl->first_head; hp; hp = hp->next)  
                 switch (hp->pos) {  
                 case (TBL_HEAD_VERT):  
                         hp->width = 1;  
                         break;  
                 case (TBL_HEAD_DVERT):  
                         hp->width = 2;  
                         break;  
                 default:  
                         break;  
                 }  
 }  }
   
 static void  
 tbl_calc_data(struct tbl_node *tbl, struct tbl_dat *data)  
 {  
   
         if (NULL == data->layout)  
                 return;  
   
         /* Branch down into data sub-types. */  
   
         switch (data->layout->pos) {  
         case (TBL_CELL_HORIZ):  
                 /* FALLTHROUGH */  
         case (TBL_CELL_DHORIZ):  
                 tbl_calc_data_spanner(data);  
                 break;  
         case (TBL_CELL_LONG):  
                 /* FALLTHROUGH */  
         case (TBL_CELL_CENTRE):  
                 /* FALLTHROUGH */  
         case (TBL_CELL_LEFT):  
                 /* FALLTHROUGH */  
         case (TBL_CELL_RIGHT):  
                 tbl_calc_data_literal(data);  
                 break;  
         case (TBL_CELL_NUMBER):  
                 tbl_calc_data_number(tbl, data);  
                 break;  
         default:  
                 abort();  
                 /* NOTREACHED */  
         }  
 }  
   
 static void  
 tbl_calc_data_spanner(struct tbl_dat *data)  
 {  
   
         /* N.B., these are horiz spanners (not vert) so always 1. */  
         data->layout->head->width = 1;  
 }  
   
 static void  
 tbl_calc_data_number(struct tbl_node *tbl, struct tbl_dat *data)  
 {  
         int              sz, d;  
         char            *dp, pnt;  
   
         /*  
          * First calculate number width and decimal place (last + 1 for  
          * no-decimal numbers).  If the stored decimal is subsequent  
          * ours, make our size longer by that difference  
          * (right-"shifting"); similarly, if ours is subsequent the  
          * stored, then extend the stored size by the difference.  
          * Finally, re-assign the stored values.  
          */  
   
         /* TODO: use spacing modifier. */  
   
         assert(data->string);  
         sz = (int)strlen(data->string);  
         pnt = tbl->opts.decimal;  
   
         if (NULL == (dp = strchr(data->string, pnt)))  
                 d = sz + 1;  
         else  
                 d = (int)(dp - data->string) + 1;  
   
         sz += 2;  
   
         if (data->layout->head->decimal > d) {  
                 sz += data->layout->head->decimal - d;  
                 d = data->layout->head->decimal;  
         } else  
                 data->layout->head->width +=  
                         d - data->layout->head->decimal;  
   
         if (sz > data->layout->head->width)  
                 data->layout->head->width = sz;  
         if (d > data->layout->head->decimal)  
                 data->layout->head->decimal = d;  
 }  
   
 static void  
 tbl_calc_data_literal(struct tbl_dat *data)  
 {  
         int              sz, bufsz;  
   
         /*  
          * Calculate our width and use the spacing, with a minimum  
          * spacing dictated by position (centre, e.g,. gets a space on  
          * either side, while right/left get a single adjacent space).  
          */  
   
         assert(data->string);  
         sz = (int)strlen(data->string);  
   
         switch (data->layout->pos) {  
         case (TBL_CELL_LONG):  
                 /* FALLTHROUGH */  
         case (TBL_CELL_CENTRE):  
                 bufsz = 2;  
                 break;  
         default:  
                 bufsz = 1;  
                 break;  
         }  
   
         if (data->layout->spacing)  
                 bufsz = bufsz > data->layout->spacing ?  
                         bufsz : data->layout->spacing;  
   
         sz += bufsz;  
         if (data->layout->head->width < sz)  
                 data->layout->head->width = sz;  
 }  
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.24
CVSweb