Annotation of mandoc/libmdocml.c, Revision 1.7
1.7 ! kristaps 1: /* $Id: libmdocml.c,v 1.6 2008/11/23 22:30:53 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>
20: #include <fcntl.h>
21: #include <err.h>
22: #include <stdio.h>
1.1 kristaps 23: #include <stdlib.h>
1.2 kristaps 24: #include <string.h>
25: #include <unistd.h>
1.1 kristaps 26:
27: #include "libmdocml.h"
1.5 kristaps 28: #include "private.h"
1.2 kristaps 29:
1.7 ! kristaps 30: #define BUFFER_LINE BUFSIZ /* Default line-buffer size. */
1.2 kristaps 31:
1.5 kristaps 32: static int md_run_enter(const struct md_args *,
33: struct md_mbuf *, struct md_rbuf *, void *);
34: static int md_run_leave(const struct md_args *, struct md_mbuf *,
35: struct md_rbuf *, int, void *);
1.7 ! kristaps 36:
1.5 kristaps 37: static ssize_t md_buf_fill(struct md_rbuf *);
38: static int md_buf_flush(struct md_mbuf *);
1.2 kristaps 39:
40:
1.3 kristaps 41: static ssize_t
1.2 kristaps 42: md_buf_fill(struct md_rbuf *in)
43: {
44: ssize_t ssz;
45:
46: assert(in);
47: assert(in->buf);
48: assert(in->bufsz > 0);
49: assert(in->name);
50:
51: if (-1 == (ssz = read(in->fd, in->buf, in->bufsz)))
52: warn("%s", in->name);
53:
54: return(ssz);
55: }
56:
57:
1.3 kristaps 58: static int
1.2 kristaps 59: md_buf_flush(struct md_mbuf *buf)
60: {
61: ssize_t sz;
62:
63: assert(buf);
64: assert(buf->buf);
65: assert(buf->name);
66:
67: if (0 == buf->pos)
68: return(1);
69:
70: sz = write(buf->fd, buf->buf, buf->pos);
71:
72: if (-1 == sz) {
73: warn("%s", buf->name);
74: return(0);
75: } else if ((size_t)sz != buf->pos) {
76: warnx("%s: short write", buf->name);
77: return(0);
78: }
79:
80: buf->pos = 0;
81: return(1);
82: }
83:
84:
1.5 kristaps 85: int
1.2 kristaps 86: md_buf_putchar(struct md_mbuf *buf, char c)
87: {
88: return(md_buf_puts(buf, &c, 1));
89: }
90:
91:
1.5 kristaps 92: int
1.4 kristaps 93: md_buf_putstring(struct md_mbuf *buf, const char *p)
94: {
95: return(md_buf_puts(buf, p, strlen(p)));
96: }
97:
98:
1.5 kristaps 99: int
1.2 kristaps 100: md_buf_puts(struct md_mbuf *buf, const char *p, size_t sz)
101: {
102: size_t ssz;
103:
104: assert(p);
105: assert(buf);
106: assert(buf->buf);
107:
108: /* LINTED */
109: while (buf->pos + sz > buf->bufsz) {
110: ssz = buf->bufsz - buf->pos;
111: (void)memcpy(/* LINTED */
112: buf->buf + buf->pos, p, ssz);
113: p += (long)ssz;
114: sz -= ssz;
115: buf->pos += ssz;
116:
117: if ( ! md_buf_flush(buf))
118: return(0);
119: }
120:
121: (void)memcpy(/* LINTED */
122: buf->buf + buf->pos, p, sz);
123: buf->pos += sz;
124: return(1);
125: }
126:
127:
1.3 kristaps 128: static int
1.5 kristaps 129: md_run_leave(const struct md_args *args, struct md_mbuf *mbuf,
130: struct md_rbuf *rbuf, int c, void *data)
1.3 kristaps 131: {
132: assert(args);
133: assert(mbuf);
134: assert(rbuf);
135:
136: /* Run exiters. */
137: switch (args->type) {
138: case (MD_HTML4_STRICT):
1.6 kristaps 139: if ( ! md_exit_html4_strict(args, mbuf, rbuf, c, data))
1.3 kristaps 140: return(-1);
141: break;
142: case (MD_DUMMY):
143: break;
144: default:
145: abort();
146: }
147:
148: /* Make final flush of buffer. */
149: if ( ! md_buf_flush(mbuf))
150: return(-1);
151:
152: return(c);
153: }
154:
155:
156: static int
1.5 kristaps 157: md_run_enter(const struct md_args *args, struct md_mbuf *mbuf,
158: struct md_rbuf *rbuf, void *p)
1.2 kristaps 159: {
160: ssize_t sz, i;
161: char line[BUFFER_LINE];
162: size_t pos;
1.3 kristaps 163: md_line fp;
1.2 kristaps 164:
1.3 kristaps 165: assert(args);
166: assert(mbuf);
167: assert(rbuf);
168:
169: /* Function ptrs to line-parsers. */
170: switch (args->type) {
171: case (MD_HTML4_STRICT):
172: fp = md_line_html4_strict;
173: break;
1.7 ! kristaps 174: default:
1.3 kristaps 175: fp = md_line_dummy;
176: break;
177: }
1.2 kristaps 178:
1.7 ! kristaps 179: pos = 0;
1.2 kristaps 180:
1.7 ! kristaps 181: again:
! 182: if (-1 == (sz = md_buf_fill(rbuf))) {
! 183: return(md_run_leave(args, mbuf, rbuf, -1, p));
! 184: } else if (0 == sz && 0 != pos) {
! 185: warnx("%s: no newline at end of file", rbuf->name);
! 186: return(md_run_leave(args, mbuf, rbuf, -1, p));
! 187: } else if (0 == sz)
! 188: return(md_run_leave(args, mbuf, rbuf, 0, p));
1.2 kristaps 189:
1.7 ! kristaps 190: for (i = 0; i < sz; i++) {
! 191: if ('\n' != rbuf->buf[i]) {
1.2 kristaps 192: if (pos < BUFFER_LINE) {
193: /* LINTED */
1.3 kristaps 194: line[pos++] = rbuf->buf[i];
1.2 kristaps 195: continue;
196: }
197: warnx("%s: line %zu too long",
1.3 kristaps 198: rbuf->name, rbuf->line);
1.5 kristaps 199: return(md_run_leave(args, mbuf, rbuf, -1, p));
1.2 kristaps 200: }
1.7 ! kristaps 201:
! 202: if ( ! (*fp)(args, mbuf, rbuf, line, pos, p))
! 203: return(md_run_leave(args, mbuf, rbuf, -1, p));
! 204: rbuf->line++;
! 205: pos = 0;
1.2 kristaps 206: }
207:
1.7 ! kristaps 208: goto again;
! 209: /* NOTREACHED */
1.3 kristaps 210: }
211:
212:
213: int
214: md_run(const struct md_args *args,
215: const struct md_buf *out, const struct md_buf *in)
216: {
217: struct md_mbuf mbuf;
218: struct md_rbuf rbuf;
1.5 kristaps 219: void *data;
1.3 kristaps 220:
221: assert(args);
222: assert(in);
223: assert(out);
224:
225: (void)memcpy(&mbuf, out, sizeof(struct md_buf));
226: (void)memcpy(&rbuf, in, sizeof(struct md_buf));
227:
228: mbuf.pos = 0;
229: rbuf.line = 1;
1.5 kristaps 230: data = NULL;
1.3 kristaps 231:
232: /* Run initialisers. */
233: switch (args->type) {
234: case (MD_HTML4_STRICT):
1.6 kristaps 235: if ( ! md_init_html4_strict(args, &mbuf, &rbuf, &data))
1.3 kristaps 236: return(-1);
237: break;
238: case (MD_DUMMY):
239: break;
240: default:
241: abort();
242: }
1.2 kristaps 243:
1.3 kristaps 244: /* Go into mainline. */
1.5 kristaps 245: return(md_run_enter(args, &mbuf, &rbuf, data));
1.3 kristaps 246: }
CVSweb