Annotation of mandoc/libmdocml.c, Revision 1.21
1.21 ! kristaps 1: /* $Id: libmdocml.c,v 1.20 2008/12/09 17:09:12 kristaps Exp $ */
1.1 kristaps 2: /*
3: * Copyright (c) 2008 Kristaps Dzonsons <kristaps@kth.se>
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
7: * above copyright notice and this permission notice appear in all
8: * copies.
9: *
10: * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
11: * WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
12: * WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE
13: * AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
14: * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
15: * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
16: * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
17: * PERFORMANCE OF THIS SOFTWARE.
18: */
1.2 kristaps 19: #include <assert.h>
1.10 kristaps 20: #include <ctype.h>
1.2 kristaps 21: #include <fcntl.h>
22: #include <err.h>
23: #include <stdio.h>
1.1 kristaps 24: #include <stdlib.h>
1.2 kristaps 25: #include <string.h>
26: #include <unistd.h>
1.1 kristaps 27:
1.5 kristaps 28: #include "private.h"
1.2 kristaps 29:
1.5 kristaps 30: static int md_run_enter(const struct md_args *,
31: struct md_mbuf *, struct md_rbuf *, void *);
32: static int md_run_leave(const struct md_args *, struct md_mbuf *,
33: struct md_rbuf *, int, void *);
1.7 kristaps 34:
1.5 kristaps 35: static ssize_t md_buf_fill(struct md_rbuf *);
36: static int md_buf_flush(struct md_mbuf *);
1.2 kristaps 37:
38:
1.3 kristaps 39: static ssize_t
1.2 kristaps 40: md_buf_fill(struct md_rbuf *in)
41: {
42: ssize_t ssz;
43:
44: assert(in);
45: assert(in->buf);
46: assert(in->bufsz > 0);
47: assert(in->name);
48:
49: if (-1 == (ssz = read(in->fd, in->buf, in->bufsz)))
50: warn("%s", in->name);
51:
52: return(ssz);
53: }
54:
55:
1.13 kristaps 56: static int md_buf_flush(struct md_mbuf *buf)
1.2 kristaps 57: {
58: ssize_t sz;
59:
60: assert(buf);
61: assert(buf->buf);
62: assert(buf->name);
63:
64: if (0 == buf->pos)
65: return(1);
66:
67: sz = write(buf->fd, buf->buf, buf->pos);
68:
69: if (-1 == sz) {
70: warn("%s", buf->name);
71: return(0);
72: } else if ((size_t)sz != buf->pos) {
73: warnx("%s: short write", buf->name);
74: return(0);
75: }
76:
77: buf->pos = 0;
78: return(1);
79: }
80:
81:
1.5 kristaps 82: int
1.2 kristaps 83: md_buf_putchar(struct md_mbuf *buf, char c)
84: {
1.14 kristaps 85:
86: assert(buf);
1.2 kristaps 87: return(md_buf_puts(buf, &c, 1));
88: }
89:
90:
1.5 kristaps 91: int
1.4 kristaps 92: md_buf_putstring(struct md_mbuf *buf, const char *p)
93: {
1.14 kristaps 94:
95: assert(buf);
1.4 kristaps 96: return(md_buf_puts(buf, p, strlen(p)));
97: }
98:
99:
1.5 kristaps 100: int
1.2 kristaps 101: md_buf_puts(struct md_mbuf *buf, const char *p, size_t sz)
102: {
103: size_t ssz;
104:
105: assert(p);
106: assert(buf);
107: assert(buf->buf);
108:
109: /* LINTED */
110: while (buf->pos + sz > buf->bufsz) {
111: ssz = buf->bufsz - buf->pos;
112: (void)memcpy(/* LINTED */
113: buf->buf + buf->pos, p, ssz);
114: p += (long)ssz;
115: sz -= ssz;
116: buf->pos += ssz;
117:
118: if ( ! md_buf_flush(buf))
119: return(0);
120: }
121:
122: (void)memcpy(/* LINTED */
123: buf->buf + buf->pos, p, sz);
124: buf->pos += sz;
125: return(1);
126: }
127:
128:
1.3 kristaps 129: static int
1.5 kristaps 130: md_run_leave(const struct md_args *args, struct md_mbuf *mbuf,
131: struct md_rbuf *rbuf, int c, void *data)
1.3 kristaps 132: {
1.21 ! kristaps 133: md_exit fp;
! 134:
1.3 kristaps 135: assert(args);
136: assert(mbuf);
137: assert(rbuf);
138:
139: /* Run exiters. */
140: switch (args->type) {
1.18 kristaps 141: case (MD_HTML):
1.21 ! kristaps 142: fp = md_exit_html;
! 143: break;
! 144: case (MD_XML):
! 145: fp = md_exit_xml;
1.3 kristaps 146: break;
1.9 kristaps 147: default:
1.21 ! kristaps 148: fp = md_exit_noop;
1.3 kristaps 149: break;
150: }
151:
1.21 ! kristaps 152: if ( ! (*fp)(data, -1 == c ? 0 : 1))
! 153: c = -1;
! 154:
1.3 kristaps 155: /* Make final flush of buffer. */
1.17 kristaps 156: if (-1 != c && ! md_buf_flush(mbuf))
1.3 kristaps 157: return(-1);
158:
159: return(c);
160: }
161:
162:
163: static int
1.5 kristaps 164: md_run_enter(const struct md_args *args, struct md_mbuf *mbuf,
165: struct md_rbuf *rbuf, void *p)
1.2 kristaps 166: {
167: ssize_t sz, i;
168: size_t pos;
1.19 kristaps 169: char line[MD_LINE];
1.3 kristaps 170: md_line fp;
1.2 kristaps 171:
1.3 kristaps 172: assert(args);
173: assert(mbuf);
174: assert(rbuf);
175:
176: /* Function ptrs to line-parsers. */
177: switch (args->type) {
1.18 kristaps 178: case (MD_HTML):
179: fp = md_line_html;
1.3 kristaps 180: break;
1.21 ! kristaps 181: case (MD_XML):
! 182: fp = md_line_xml;
! 183: break;
1.7 kristaps 184: default:
1.21 ! kristaps 185: fp = md_line_noop;
1.3 kristaps 186: break;
187: }
1.2 kristaps 188:
1.7 kristaps 189: pos = 0;
1.2 kristaps 190:
1.7 kristaps 191: again:
192: if (-1 == (sz = md_buf_fill(rbuf))) {
193: return(md_run_leave(args, mbuf, rbuf, -1, p));
194: } else if (0 == sz && 0 != pos) {
195: warnx("%s: no newline at end of file", rbuf->name);
196: return(md_run_leave(args, mbuf, rbuf, -1, p));
197: } else if (0 == sz)
198: return(md_run_leave(args, mbuf, rbuf, 0, p));
1.2 kristaps 199:
1.7 kristaps 200: for (i = 0; i < sz; i++) {
201: if ('\n' != rbuf->buf[i]) {
1.19 kristaps 202: if (pos < MD_LINE) {
1.2 kristaps 203: /* LINTED */
1.19 kristaps 204: rbuf->linebuf[pos++] = rbuf->buf[i];
1.2 kristaps 205: continue;
206: }
207: warnx("%s: line %zu too long",
1.3 kristaps 208: rbuf->name, rbuf->line);
1.5 kristaps 209: return(md_run_leave(args, mbuf, rbuf, -1, p));
1.2 kristaps 210: }
1.7 kristaps 211:
1.19 kristaps 212: rbuf->linebuf[(int)pos] = 0;
213: (void)memcpy(line, rbuf->linebuf, sizeof(line));
1.14 kristaps 214: if ( ! (*fp)(p, line))
1.7 kristaps 215: return(md_run_leave(args, mbuf, rbuf, -1, p));
216: rbuf->line++;
217: pos = 0;
1.2 kristaps 218: }
219:
1.7 kristaps 220: goto again;
221: /* NOTREACHED */
1.3 kristaps 222: }
223:
224:
225: int
226: md_run(const struct md_args *args,
227: const struct md_buf *out, const struct md_buf *in)
228: {
1.21 ! kristaps 229: md_init fp;
1.3 kristaps 230: struct md_mbuf mbuf;
231: struct md_rbuf rbuf;
1.5 kristaps 232: void *data;
1.3 kristaps 233:
234: assert(args);
235: assert(in);
236: assert(out);
237:
238: (void)memcpy(&mbuf, out, sizeof(struct md_buf));
239: (void)memcpy(&rbuf, in, sizeof(struct md_buf));
240:
241: mbuf.pos = 0;
242: rbuf.line = 1;
243:
244: /* Run initialisers. */
245: switch (args->type) {
1.18 kristaps 246: case (MD_HTML):
1.21 ! kristaps 247: fp = md_init_html;
! 248: break;
! 249: case (MD_XML):
! 250: fp = md_init_xml;
1.3 kristaps 251: break;
1.9 kristaps 252: default:
1.21 ! kristaps 253: fp = md_init_noop;
1.3 kristaps 254: break;
255: }
1.2 kristaps 256:
1.21 ! kristaps 257: data = (*fp)(args, &mbuf, &rbuf);
! 258:
1.3 kristaps 259: /* Go into mainline. */
1.5 kristaps 260: return(md_run_enter(args, &mbuf, &rbuf, data));
1.3 kristaps 261: }
CVSweb
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to libmdocml.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [cvsweb.bsd.lv] / mandoc