tbl.c

   1 /*      $Id: tbl.c,v 1.44 2018/12/13 02:06:07 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_aux.h"
  29 #include "mandoc.h"
  30 #include "tbl.h"
  31 #include "libmandoc.h"
  32 #include "tbl_parse.h"
  33 #include "tbl_int.h"
  34
  35
  36 void
  37 tbl_read(struct tbl_node *tbl, int ln, const char *p, int pos)
  38 {
  39         const char      *cp;
  40         int              active;
  41
  42         /*
  43          * In the options section, proceed to the layout section
  44          * after a semicolon, or right away if there is no semicolon.
  45          * Ignore semicolons in arguments.
  46          */
  47
  48         if (tbl->part == TBL_PART_OPTS) {
  49                 tbl->part = TBL_PART_LAYOUT;
  50                 active = 1;
  51                 for (cp = p + pos; *cp != '\0'; cp++) {
  52                         switch (*cp) {
  53                         case '(':
  54                                 active = 0;
  55                                 continue;
  56                         case ')':
  57                                 active = 1;
  58                                 continue;
  59                         case ';':
  60                                 if (active)
  61                                         break;
  62                                 continue;
  63                         default:
  64                                 continue;
  65                         }
  66                         break;
  67                 }
  68                 if (*cp == ';') {
  69                         tbl_option(tbl, ln, p, &pos);
  70                         if (p[pos] == '\0')
  71                                 return;
  72                 }
  73         }
  74
  75         /* Process the other section types.  */
  76
  77         switch (tbl->part) {
  78         case TBL_PART_LAYOUT:
  79                 tbl_layout(tbl, ln, p, pos);
  80                 break;
  81         case TBL_PART_CDATA:
  82                 tbl_cdata(tbl, ln, p, pos);
  83                 break;
  84         default:
  85                 tbl_data(tbl, ln, p, pos);
  86                 break;
  87         }
  88 }
  89
  90 struct tbl_node *
  91 tbl_alloc(int pos, int line, struct mparse *parse, struct tbl_node *last_tbl)
  92 {
  93         struct tbl_node *tbl;
  94
  95         tbl = mandoc_calloc(1, sizeof(*tbl));
  96         if (last_tbl != NULL)
  97                 last_tbl->next = tbl;
  98         tbl->line = line;
  99         tbl->pos = pos;
 100         tbl->parse = parse;
 101         tbl->part = TBL_PART_OPTS;
 102         tbl->opts.tab = '\t';
 103         tbl->opts.decimal = '.';
 104         return tbl;
 105 }
 106
 107 void
 108 tbl_free(struct tbl_node *tbl)
 109 {
 110         struct tbl_node *old_tbl;
 111         struct tbl_row  *rp;
 112         struct tbl_cell *cp;
 113         struct tbl_span *sp;
 114         struct tbl_dat  *dp;
 115
 116         while (tbl != NULL) {
 117                 while ((rp = tbl->first_row) != NULL) {
 118                         tbl->first_row = rp->next;
 119                         while (rp->first != NULL) {
 120                                 cp = rp->first;
 121                                 rp->first = cp->next;
 122                                 free(cp->wstr);
 123                                 free(cp);
 124                         }
 125                         free(rp);
 126                 }
 127                 while ((sp = tbl->first_span) != NULL) {
 128                         tbl->first_span = sp->next;
 129                         while (sp->first != NULL) {
 130                                 dp = sp->first;
 131                                 sp->first = dp->next;
 132                                 free(dp->string);
 133                                 free(dp);
 134                         }
 135                         free(sp);
 136                 }
 137                 old_tbl = tbl;
 138                 tbl = tbl->next;
 139                 free(old_tbl);
 140         }
 141 }
 142
 143 void
 144 tbl_restart(int line, int pos, struct tbl_node *tbl)
 145 {
 146         if (tbl->part == TBL_PART_CDATA)
 147                 mandoc_msg(MANDOCERR_TBLDATA_BLK, tbl->parse,
 148                     line, pos, "T&");
 149
 150         tbl->part = TBL_PART_LAYOUT;
 151         tbl->line = line;
 152         tbl->pos = pos;
 153 }
 154
 155 struct tbl_span *
 156 tbl_span(struct tbl_node *tbl)
 157 {
 158         struct tbl_span  *span;
 159
 160         span = tbl->current_span ? tbl->current_span->next
 161                                  : tbl->first_span;
 162         if (span != NULL)
 163                 tbl->current_span = span;
 164         return span;
 165 }
 166
 167 int
 168 tbl_end(struct tbl_node *tbl, int still_open)
 169 {
 170         struct tbl_span *sp;
 171
 172         if (still_open)
 173                 mandoc_msg(MANDOCERR_BLK_NOEND, tbl->parse,
 174                     tbl->line, tbl->pos, "TS");
 175         else if (tbl->part == TBL_PART_CDATA)
 176                 mandoc_msg(MANDOCERR_TBLDATA_BLK, tbl->parse,
 177                     tbl->line, tbl->pos, "TE");
 178
 179         sp = tbl->first_span;
 180         while (sp != NULL && sp->first == NULL)
 181                 sp = sp->next;
 182         if (sp == NULL) {
 183                 mandoc_msg(MANDOCERR_TBLDATA_NONE, tbl->parse,
 184                     tbl->line, tbl->pos, NULL);
 185                 return 0;
 186         }
 187         return 1;
 188 }