contrib/mdocml/tbl.c

   1 /*      $Id: tbl.c,v 1.39 2015/01/30 17:32:16 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);
 118                 }
 119                 free(rp);
 120         }
 121
 122         while ((sp = tbl->first_span) != NULL) {
 123                 tbl->first_span = sp->next;
 124                 while (sp->first != NULL) {
 125                         dp = sp->first;
 126                         sp->first = dp->next;
 127                         free(dp->string);
 128                         free(dp);
 129                 }
 130                 free(sp);
 131         }
 132
 133         free(tbl);
 134 }
 135
 136 void
 137 tbl_restart(int line, int pos, struct tbl_node *tbl)
 138 {
 139         if (tbl->part == TBL_PART_CDATA)
 140                 mandoc_msg(MANDOCERR_TBLDATA_BLK, tbl->parse,
 141                     line, pos, "T&");
 142
 143         tbl->part = TBL_PART_LAYOUT;
 144         tbl->line = line;
 145         tbl->pos = pos;
 146 }
 147
 148 const struct tbl_span *
 149 tbl_span(struct tbl_node *tbl)
 150 {
 151         struct tbl_span  *span;
 152
 153         assert(tbl);
 154         span = tbl->current_span ? tbl->current_span->next
 155                                  : tbl->first_span;
 156         if (span)
 157                 tbl->current_span = span;
 158         return(span);
 159 }
 160
 161 int
 162 tbl_end(struct tbl_node **tblp)
 163 {
 164         struct tbl_node *tbl;
 165         struct tbl_span *sp;
 166
 167         tbl = *tblp;
 168         *tblp = NULL;
 169
 170         if (tbl->part == TBL_PART_CDATA)
 171                 mandoc_msg(MANDOCERR_TBLDATA_BLK, tbl->parse,
 172                     tbl->line, tbl->pos, "TE");
 173
 174         sp = tbl->first_span;
 175         while (sp != NULL && sp->first == NULL)
 176                 sp = sp->next;
 177         if (sp == NULL) {
 178                 mandoc_msg(MANDOCERR_TBLDATA_NONE, tbl->parse,
 179                     tbl->line, tbl->pos, NULL);
 180                 return(0);
 181         }
 182         return(1);
 183 }