Import mdocml-1.12.1
[dragonfly.git] / contrib / mdocml / tbl.c
CommitLineData
36342e81 1/* $Id: tbl.c,v 1.26 2011/07/25 15:37:00 kristaps Exp $ */
80387638 2/*
60e1e752
SW
3 * Copyright (c) 2009, 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv>
4 * Copyright (c) 2011 Ingo Schwarze <schwarze@openbsd.org>
80387638
SW
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 */
a4c7eb57
SW
18#ifdef HAVE_CONFIG_H
19#include "config.h"
20#endif
21
80387638
SW
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"
80387638
SW
29#include "libmandoc.h"
30#include "libroff.h"
31
32enum rofferr
33tbl_read(struct tbl_node *tbl, int ln, const char *p, int offs)
34{
35 int len;
36 const char *cp;
37
38 cp = &p[offs];
39 len = (int)strlen(cp);
40
41 /*
42 * If we're in the options section and we don't have a
43 * terminating semicolon, assume we've moved directly into the
44 * layout section. No need to report a warning: this is,
45 * apparently, standard behaviour.
46 */
47
48 if (TBL_PART_OPTS == tbl->part && len)
49 if (';' != cp[len - 1])
50 tbl->part = TBL_PART_LAYOUT;
51
52 /* Now process each logical section of the table. */
53
54 switch (tbl->part) {
55 case (TBL_PART_OPTS):
56 return(tbl_option(tbl, ln, p) ? ROFF_IGN : ROFF_ERR);
57 case (TBL_PART_LAYOUT):
58 return(tbl_layout(tbl, ln, p) ? ROFF_IGN : ROFF_ERR);
59 case (TBL_PART_CDATA):
60 return(tbl_cdata(tbl, ln, p) ? ROFF_TBL : ROFF_IGN);
61 default:
62 break;
63 }
64
65 /*
66 * This only returns zero if the line is empty, so we ignore it
67 * and continue on.
68 */
69 return(tbl_data(tbl, ln, p) ? ROFF_TBL : ROFF_IGN);
70}
71
72struct tbl_node *
60e1e752 73tbl_alloc(int pos, int line, struct mparse *parse)
80387638
SW
74{
75 struct tbl_node *p;
76
77 p = mandoc_calloc(1, sizeof(struct tbl_node));
78 p->line = line;
79 p->pos = pos;
60e1e752 80 p->parse = parse;
80387638
SW
81 p->part = TBL_PART_OPTS;
82 p->opts.tab = '\t';
83 p->opts.linesize = 12;
84 p->opts.decimal = '.';
85 return(p);
86}
87
88void
89tbl_free(struct tbl_node *p)
90{
91 struct tbl_row *rp;
92 struct tbl_cell *cp;
93 struct tbl_span *sp;
94 struct tbl_dat *dp;
95 struct tbl_head *hp;
96
97 while (NULL != (rp = p->first_row)) {
98 p->first_row = rp->next;
99 while (rp->first) {
100 cp = rp->first;
101 rp->first = cp->next;
102 free(cp);
103 }
104 free(rp);
105 }
106
107 while (NULL != (sp = p->first_span)) {
108 p->first_span = sp->next;
109 while (sp->first) {
110 dp = sp->first;
111 sp->first = dp->next;
112 if (dp->string)
113 free(dp->string);
114 free(dp);
115 }
116 free(sp);
117 }
118
119 while (NULL != (hp = p->first_head)) {
120 p->first_head = hp->next;
121 free(hp);
122 }
123
124 free(p);
125}
126
127void
128tbl_restart(int line, int pos, struct tbl_node *tbl)
129{
130 if (TBL_PART_CDATA == tbl->part)
60e1e752
SW
131 mandoc_msg(MANDOCERR_TBLBLOCK, tbl->parse,
132 tbl->line, tbl->pos, NULL);
80387638
SW
133
134 tbl->part = TBL_PART_LAYOUT;
135 tbl->line = line;
136 tbl->pos = pos;
137
138 if (NULL == tbl->first_span || NULL == tbl->first_span->first)
60e1e752
SW
139 mandoc_msg(MANDOCERR_TBLNODATA, tbl->parse,
140 tbl->line, tbl->pos, NULL);
80387638
SW
141}
142
143const struct tbl_span *
60e1e752 144tbl_span(struct tbl_node *tbl)
80387638 145{
60e1e752 146 struct tbl_span *span;
80387638
SW
147
148 assert(tbl);
60e1e752
SW
149 span = tbl->current_span ? tbl->current_span->next
150 : tbl->first_span;
151 if (span)
152 tbl->current_span = span;
153 return(span);
80387638
SW
154}
155
156void
36342e81 157tbl_end(struct tbl_node **tblp)
80387638 158{
36342e81
SW
159 struct tbl_node *tbl;
160
161 tbl = *tblp;
162 *tblp = NULL;
80387638
SW
163
164 if (NULL == tbl->first_span || NULL == tbl->first_span->first)
60e1e752
SW
165 mandoc_msg(MANDOCERR_TBLNODATA, tbl->parse,
166 tbl->line, tbl->pos, NULL);
80387638
SW
167
168 if (tbl->last_span)
169 tbl->last_span->flags |= TBL_SPAN_LAST;
170
171 if (TBL_PART_CDATA == tbl->part)
60e1e752
SW
172 mandoc_msg(MANDOCERR_TBLBLOCK, tbl->parse,
173 tbl->line, tbl->pos, NULL);
80387638
SW
174}
175