tbl.c

   1 /*      $Id: tbl.c,v 1.12 2011/01/01 13:37:40 kristaps Exp $ */
   2 /*
   3  * Copyright (c) 2009, 2010 Kristaps Dzonsons <kristaps@bsd.lv>
   4  *
   5  * Permission to use, copy, modify, and distribute this software for any
   6  * purpose with or without fee is hereby granted, provided that the above
   7  * copyright notice and this permission notice appear in all copies.
   8  *
   9  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  10  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  11  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  12  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  13  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  14  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  15  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  16  */
  17 #include <assert.h>
  18 #include <stdio.h>
  19 #include <stdlib.h>
  20 #include <string.h>
  21 #include <time.h>
  22
  23 #include "mandoc.h"
  24 #include "roff.h"
  25 #include "libmandoc.h"
  26 #include "libroff.h"
  27
  28 enum rofferr
  29 tbl_read(struct tbl *tbl, int ln, const char *p, int offs)
  30 {
  31         int              len;
  32         const char      *cp;
  33
  34         cp = &p[offs];
  35         len = (int)strlen(cp);
  36
  37         /*
  38          * If we're in the options section and we don't have a
  39          * terminating semicolon, assume we've moved directly into the
  40          * layout section.  No need to report a warning: this is,
  41          * apparently, standard behaviour.
  42          */
  43
  44         if (TBL_PART_OPTS == tbl->part && len)
  45                 if (';' != cp[len - 1])
  46                         tbl->part = TBL_PART_LAYOUT;
  47
  48         /* Now process each logical section of the table.  */
  49
  50         switch (tbl->part) {
  51         case (TBL_PART_OPTS):
  52                 return(tbl_option(tbl, ln, p) ? ROFF_IGN : ROFF_ERR);
  53         case (TBL_PART_LAYOUT):
  54                 return(tbl_layout(tbl, ln, p) ? ROFF_IGN : ROFF_ERR);
  55         case (TBL_PART_DATA):
  56                 break;
  57         }
  58
  59         /*
  60          * This only returns zero if the line is empty, so we ignore it
  61          * and continue on.
  62          */
  63         return(tbl_data(tbl, ln, p) ? ROFF_TBL : ROFF_IGN);
  64 }
  65
  66 struct tbl *
  67 tbl_alloc(void *data, const mandocmsg msg)
  68 {
  69         struct tbl      *p;
  70
  71         p = mandoc_calloc(1, sizeof(struct tbl));
  72         p->data = data;
  73         p->msg = msg;
  74         p->part = TBL_PART_OPTS;
  75         p->tab = '\t';
  76         p->linesize = 12;
  77         p->decimal = '.';
  78         return(p);
  79 }
  80
  81 void
  82 tbl_free(struct tbl *p)
  83 {
  84         struct tbl_row  *rp;
  85         struct tbl_cell *cp;
  86         struct tbl_span *sp;
  87         struct tbl_dat  *dp;
  88
  89         while (p->first_row) {
  90                 rp = p->first_row;
  91                 p->first_row = rp->next;
  92                 while (rp->first) {
  93                         cp = rp->first;
  94                         rp->first = cp->next;
  95                         free(cp);
  96                 }
  97                 free(rp);
  98         }
  99
 100         while (p->first_span) {
 101                 sp = p->first_span;
 102                 p->first_span = sp->next;
 103                 while (sp->first) {
 104                         dp = sp->first;
 105                         sp->first = dp->next;
 106                         if (dp->string)
 107                                 free(dp->string);
 108                         free(dp);
 109                 }
 110                 free(sp);
 111         }
 112
 113         free(p);
 114 }
 115
 116 void
 117 tbl_restart(struct tbl *tbl)
 118 {
 119
 120         tbl->part = TBL_PART_LAYOUT;
 121 }
 122
 123 const struct tbl_span *
 124 tbl_span(const struct tbl *tbl)
 125 {
 126
 127         assert(tbl);
 128         return(tbl->last_span);
 129 }