contrib/mdocml/tbl.c

   1 /*      $Id: tbl.c,v 1.41 2017/06/08 18:11: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 pos)
  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 + pos; *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, &pos);
  68                         if (p[pos] == '\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, pos);
  78                 return ROFF_IGN;
  79         case TBL_PART_CDATA:
  80                 return tbl_cdata(tbl, ln, p, pos) ? ROFF_TBL : ROFF_IGN;
  81         default:
  82                 break;
  83         }
  84
  85         tbl_data(tbl, ln, p, pos);
  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(*tbl));
  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
 112         while ((rp = tbl->first_row) != NULL) {
 113                 tbl->first_row = rp->next;
 114                 while (rp->first != NULL) {
 115                         cp = rp->first;
 116                         rp->first = cp->next;
 117                         free(cp->wstr);
 118                         free(cp);
 119                 }
 120                 free(rp);
 121         }
 122
 123         while ((sp = tbl->first_span) != NULL) {
 124                 tbl->first_span = sp->next;
 125                 while (sp->first != NULL) {
 126                         dp = sp->first;
 127                         sp->first = dp->next;
 128                         free(dp->string);
 129                         free(dp);
 130                 }
 131                 free(sp);
 132         }
 133
 134         free(tbl);
 135 }
 136
 137 void
 138 tbl_restart(int line, int pos, struct tbl_node *tbl)
 139 {
 140         if (tbl->part == TBL_PART_CDATA)
 141                 mandoc_msg(MANDOCERR_TBLDATA_BLK, tbl->parse,
 142                     line, pos, "T&");
 143
 144         tbl->part = TBL_PART_LAYOUT;
 145         tbl->line = line;
 146         tbl->pos = pos;
 147 }
 148
 149 const struct tbl_span *
 150 tbl_span(struct tbl_node *tbl)
 151 {
 152         struct tbl_span  *span;
 153
 154         assert(tbl);
 155         span = tbl->current_span ? tbl->current_span->next
 156                                  : tbl->first_span;
 157         if (span)
 158                 tbl->current_span = span;
 159         return span;
 160 }
 161
 162 int
 163 tbl_end(struct tbl_node **tblp)
 164 {
 165         struct tbl_node *tbl;
 166         struct tbl_span *sp;
 167
 168         tbl = *tblp;
 169         *tblp = NULL;
 170
 171         if (tbl->part == TBL_PART_CDATA)
 172                 mandoc_msg(MANDOCERR_TBLDATA_BLK, tbl->parse,
 173                     tbl->line, tbl->pos, "TE");
 174
 175         sp = tbl->first_span;
 176         while (sp != NULL && sp->first == NULL)
 177                 sp = sp->next;
 178         if (sp == NULL) {
 179                 mandoc_msg(MANDOCERR_TBLDATA_NONE, tbl->parse,
 180                     tbl->line, tbl->pos, NULL);
 181                 return 0;
 182         }
 183         return 1;
 184 }