tbl.c

   1 /*      $Id: tbl.c,v 1.33 2015/01/26 00:57:22 schwarze Exp $ */
   2 /*
   3  * Copyright (c) 2009, 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv>
   4  * Copyright (c) 2011, 2015 Ingo Schwarze <schwarze@openbsd.org>
   5  *
   6  * Permission to use, copy, modify, and distribute this software for any
   7  * purpose with or without fee is hereby granted, provided that the above
   8  * copyright notice and this permission notice appear in all copies.
   9  *
  10  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  11  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  12  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  13  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  14  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  15  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  16  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  17  */
  18 #include "config.h"
  19
  20 #include <sys/types.h>
  21
  22 #include <assert.h>
  23 #include <stdio.h>
  24 #include <stdlib.h>
  25 #include <string.h>
  26 #include <time.h>
  27
  28 #include "mandoc.h"
  29 #include "mandoc_aux.h"
  30 #include "libmandoc.h"
  31 #include "libroff.h"
  32
  33
  34 enum rofferr
  35 tbl_read(struct tbl_node *tbl, int ln, const char *p, int offs)
  36 {
  37         const char      *cp;
  38         int              active;
  39
  40         /*
  41          * In the options section, proceed to the layout section
  42          * after a semicolon, or right away if there is no semicolon.
  43          * Ignore semicolons in arguments.
  44          */
  45
  46         if (tbl->part == TBL_PART_OPTS) {
  47                 tbl->part = TBL_PART_LAYOUT;
  48                 active = 1;
  49                 for (cp = p; *cp != '\0'; cp++) {
  50                         switch (*cp) {
  51                         case '(':
  52                                 active = 0;
  53                                 continue;
  54                         case ')':
  55                                 active = 1;
  56                                 continue;
  57                         case ';':
  58                                 if (active)
  59                                         break;
  60                                 continue;
  61                         default:
  62                                 continue;
  63                         }
  64                         break;
  65                 }
  66                 if (*cp == ';') {
  67                         tbl_option(tbl, ln, p);
  68                         if (*(p = cp + 1) == '\0')
  69                                 return(ROFF_IGN);
  70                 }
  71         }
  72
  73         /* Process the other section types.  */
  74
  75         switch (tbl->part) {
  76         case TBL_PART_LAYOUT:
  77                 tbl_layout(tbl, ln, p);
  78                 return(ROFF_IGN);
  79         case TBL_PART_CDATA:
  80                 return(tbl_cdata(tbl, ln, p) ? ROFF_TBL : ROFF_IGN);
  81         default:
  82                 break;
  83         }
  84
  85         tbl_data(tbl, ln, p);
  86         return(ROFF_TBL);
  87 }
  88
  89 struct tbl_node *
  90 tbl_alloc(int pos, int line, struct mparse *parse)
  91 {
  92         struct tbl_node *tbl;
  93
  94         tbl = mandoc_calloc(1, sizeof(struct tbl_node));
  95         tbl->line = line;
  96         tbl->pos = pos;
  97         tbl->parse = parse;
  98         tbl->part = TBL_PART_OPTS;
  99         tbl->opts.tab = '\t';
 100         tbl->opts.decimal = '.';
 101         return(tbl);
 102 }
 103
 104 void
 105 tbl_free(struct tbl_node *tbl)
 106 {
 107         struct tbl_row  *rp;
 108         struct tbl_cell *cp;
 109         struct tbl_span *sp;
 110         struct tbl_dat  *dp;
 111         struct tbl_head *hp;
 112
 113         while (NULL != (rp = tbl->first_row)) {
 114                 tbl->first_row = rp->next;
 115                 while (rp->first) {
 116                         cp = rp->first;
 117                         rp->first = cp->next;
 118                         free(cp);
 119                 }
 120                 free(rp);
 121         }
 122
 123         while (NULL != (sp = tbl->first_span)) {
 124                 tbl->first_span = sp->next;
 125                 while (sp->first) {
 126                         dp = sp->first;
 127                         sp->first = dp->next;
 128                         if (dp->string)
 129                                 free(dp->string);
 130                         free(dp);
 131                 }
 132                 free(sp);
 133         }
 134
 135         while (NULL != (hp = tbl->first_head)) {
 136                 tbl->first_head = hp->next;
 137                 free(hp);
 138         }
 139
 140         free(tbl);
 141 }
 142
 143 void
 144 tbl_restart(int line, int pos, struct tbl_node *tbl)
 145 {
 146         if (TBL_PART_CDATA == tbl->part)
 147                 mandoc_msg(MANDOCERR_TBLBLOCK, tbl->parse,
 148                     tbl->line, tbl->pos, NULL);
 149
 150         tbl->part = TBL_PART_LAYOUT;
 151         tbl->line = line;
 152         tbl->pos = pos;
 153
 154         if (NULL == tbl->first_span || NULL == tbl->first_span->first)
 155                 mandoc_msg(MANDOCERR_TBLNODATA, tbl->parse,
 156                     tbl->line, tbl->pos, NULL);
 157 }
 158
 159 const struct tbl_span *
 160 tbl_span(struct tbl_node *tbl)
 161 {
 162         struct tbl_span  *span;
 163
 164         assert(tbl);
 165         span = tbl->current_span ? tbl->current_span->next
 166                                  : tbl->first_span;
 167         if (span)
 168                 tbl->current_span = span;
 169         return(span);
 170 }
 171
 172 void
 173 tbl_end(struct tbl_node **tblp)
 174 {
 175         struct tbl_node *tbl;
 176
 177         tbl = *tblp;
 178         *tblp = NULL;
 179
 180         if (NULL == tbl->first_span || NULL == tbl->first_span->first)
 181                 mandoc_msg(MANDOCERR_TBLNODATA, tbl->parse,
 182                     tbl->line, tbl->pos, NULL);
 183
 184         if (tbl->last_span)
 185                 tbl->last_span->flags |= TBL_SPAN_LAST;
 186
 187         if (TBL_PART_CDATA == tbl->part)
 188                 mandoc_msg(MANDOCERR_TBLBLOCK, tbl->parse,
 189                     tbl->line, tbl->pos, NULL);
 190 }