Annotation of mandoc/man_macro.c, Revision 1.16
1.16 ! kristaps 1: /* $Id: man_macro.c,v 1.15 2009/06/10 20:18:43 kristaps Exp $ */
1.1 kristaps 2: /*
1.15 kristaps 3: * Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@kth.se>
1.1 kristaps 4: *
5: * Permission to use, copy, modify, and distribute this software for any
1.14 kristaps 6: * purpose with or without fee is hereby granted, provided that the above
7: * copyright notice and this permission notice appear in all copies.
1.1 kristaps 8: *
1.14 kristaps 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.
1.1 kristaps 16: */
17: #include <assert.h>
18: #include <ctype.h>
19: #include <stdlib.h>
20: #include <string.h>
21:
22: #include "libman.h"
23:
1.9 kristaps 24: #define FL_NLINE (1 << 0)
25: #define FL_TLINE (1 << 1)
26:
1.3 kristaps 27: static int man_args(struct man *, int,
28: int *, char *, char **);
1.1 kristaps 29:
1.9 kristaps 30: static int man_flags[MAN_MAX] = {
1.16 ! kristaps 31: 0, /* br */
1.9 kristaps 32: 0, /* TH */
33: 0, /* SH */
34: 0, /* SS */
35: FL_TLINE, /* TP */
36: 0, /* LP */
37: 0, /* PP */
38: 0, /* P */
39: 0, /* IP */
40: 0, /* HP */
41: FL_NLINE, /* SM */
42: FL_NLINE, /* SB */
43: FL_NLINE, /* BI */
44: FL_NLINE, /* IB */
45: FL_NLINE, /* BR */
46: FL_NLINE, /* RB */
47: FL_NLINE, /* R */
48: FL_NLINE, /* B */
49: FL_NLINE, /* I */
50: FL_NLINE, /* IR */
51: FL_NLINE, /* RI */
1.12 kristaps 52: 0, /* na */
1.13 kristaps 53: FL_NLINE, /* i */
1.9 kristaps 54: };
1.1 kristaps 55:
1.3 kristaps 56: int
57: man_macro(struct man *man, int tok, int line,
58: int ppos, int *pos, char *buf)
1.1 kristaps 59: {
1.3 kristaps 60: int w, la;
61: char *p;
62: struct man_node *n;
1.1 kristaps 63:
1.3 kristaps 64: if ( ! man_elem_alloc(man, line, ppos, tok))
1.1 kristaps 65: return(0);
1.3 kristaps 66: n = man->last;
67: man->next = MAN_NEXT_CHILD;
1.1 kristaps 68:
69: for (;;) {
70: la = *pos;
1.3 kristaps 71: w = man_args(man, line, pos, buf, &p);
1.1 kristaps 72:
1.3 kristaps 73: if (-1 == w)
1.1 kristaps 74: return(0);
1.3 kristaps 75: if (0 == w)
1.1 kristaps 76: break;
77:
1.3 kristaps 78: if ( ! man_word_alloc(man, line, la, p))
79: return(0);
80: man->next = MAN_NEXT_SIBLING;
81: }
1.1 kristaps 82:
1.9 kristaps 83: if (n == man->last && (FL_NLINE & man_flags[tok])) {
84: if (MAN_NLINE & man->flags)
85: return(man_verr(man, line, ppos,
86: "next-line scope already open"));
87: man->flags |= MAN_NLINE;
88: return(1);
89: }
90:
91: if (FL_TLINE & man_flags[tok]) {
92: if (MAN_NLINE & man->flags)
93: return(man_verr(man, line, ppos,
94: "next-line scope already open"));
95: man->flags |= MAN_NLINE;
96: return(1);
97: }
98:
1.7 kristaps 99: /*
100: * Note that when TH is pruned, we'll be back at the root, so
101: * make sure that we don't clobber as its sibling.
102: */
103:
104: for ( ; man->last; man->last = man->last->parent) {
105: if (man->last == n)
106: break;
107: if (man->last->type == MAN_ROOT)
108: break;
1.5 kristaps 109: if ( ! man_valid_post(man))
110: return(0);
1.6 kristaps 111: if ( ! man_action_post(man))
112: return(0);
113: }
1.1 kristaps 114:
1.5 kristaps 115: assert(man->last);
1.6 kristaps 116:
1.7 kristaps 117: /*
118: * Same here regarding whether we're back at the root.
119: */
120:
121: if (man->last->type != MAN_ROOT && ! man_valid_post(man))
1.5 kristaps 122: return(0);
1.7 kristaps 123: if (man->last->type != MAN_ROOT && ! man_action_post(man))
1.6 kristaps 124: return(0);
1.7 kristaps 125: if (man->last->type != MAN_ROOT)
126: man->next = MAN_NEXT_SIBLING;
1.1 kristaps 127:
128: return(1);
129: }
130:
1.3 kristaps 131:
1.4 kristaps 132: int
133: man_macroend(struct man *m)
134: {
135:
1.6 kristaps 136: for ( ; m->last && m->last != m->first;
137: m->last = m->last->parent) {
138: if ( ! man_valid_post(m))
139: return(0);
140: if ( ! man_action_post(m))
141: return(0);
142: }
1.7 kristaps 143: assert(m->last == m->first);
1.6 kristaps 144:
145: if ( ! man_valid_post(m))
146: return(0);
147: if ( ! man_action_post(m))
148: return(0);
149:
1.4 kristaps 150: return(1);
151: }
152:
153:
1.3 kristaps 154: /* ARGSUSED */
1.4 kristaps 155: static int
1.8 kristaps 156: man_args(struct man *m, int line,
1.3 kristaps 157: int *pos, char *buf, char **v)
158: {
159:
160: if (0 == buf[*pos])
161: return(0);
162:
163: /* First parse non-quoted strings. */
164:
165: if ('\"' != buf[*pos]) {
166: *v = &buf[*pos];
167:
168: while (buf[*pos]) {
169: if (' ' == buf[*pos])
170: if ('\\' != buf[*pos - 1])
171: break;
172: (*pos)++;
173: }
174:
175: if (0 == buf[*pos])
176: return(1);
177:
178: buf[(*pos)++] = 0;
179:
180: if (0 == buf[*pos])
181: return(1);
182:
183: while (buf[*pos] && ' ' == buf[*pos])
184: (*pos)++;
185:
186: if (buf[*pos])
187: return(1);
188:
1.8 kristaps 189: if ( ! man_vwarn(m, line, *pos, "trailing spaces"))
190: return(-1);
191:
192: return(1);
1.3 kristaps 193: }
194:
195: /*
196: * If we're a quoted string (and quoted strings are allowed),
197: * then parse ahead to the next quote. If none's found, it's an
198: * error. After, parse to the next word.
199: */
200:
201: *v = &buf[++(*pos)];
202:
203: while (buf[*pos] && '\"' != buf[*pos])
204: (*pos)++;
205:
206: if (0 == buf[*pos]) {
1.8 kristaps 207: if ( ! man_vwarn(m, line, *pos, "unterminated quote"))
208: return(-1);
209: return(1);
1.3 kristaps 210: }
211:
212: buf[(*pos)++] = 0;
213: if (0 == buf[*pos])
214: return(1);
215:
216: while (buf[*pos] && ' ' == buf[*pos])
217: (*pos)++;
218:
219: if (buf[*pos])
220: return(1);
221:
1.8 kristaps 222: if ( ! man_vwarn(m, line, *pos, "trailing spaces"))
223: return(-1);
224: return(1);
1.3 kristaps 225: }
CVSweb