Annotation of mandoc/mdoc_argv.c, Revision 1.6
1.6 ! kristaps 1: /* $Id: mdoc_argv.c,v 1.5 2009/06/16 19:45:51 kristaps Exp $ */
1.1 kristaps 2: /*
1.4 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.3 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.3 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 <sys/types.h>
18:
19: #include <assert.h>
20: #include <ctype.h>
21: #include <stdlib.h>
22: #include <stdio.h>
23: #include <string.h>
24:
25: #include "libmdoc.h"
26:
27: /*
28: * Routines to parse arguments of macros. Arguments follow the syntax
29: * of `-arg [val [valN...]]'. Arguments come in all types: quoted
30: * arguments, multiple arguments per value, no-value arguments, etc.
31: *
32: * There's no limit to the number or arguments that may be allocated.
33: */
34:
1.6 ! kristaps 35: /* FIXME .Bf Li raises "macro-like parameter". */
! 36:
1.1 kristaps 37: #define ARGS_QUOTED (1 << 0)
38: #define ARGS_DELIM (1 << 1)
39: #define ARGS_TABSEP (1 << 2)
40: #define ARGS_ARGVLIKE (1 << 3)
41:
42: #define ARGV_NONE (1 << 0)
43: #define ARGV_SINGLE (1 << 1)
44: #define ARGV_MULTI (1 << 2)
45: #define ARGV_OPT_SINGLE (1 << 3)
46:
47: #define MULTI_STEP 5
48:
49: enum mwarn {
50: WQUOTPARM,
51: WARGVPARM,
52: WCOLEMPTY,
53: WTAILWS
54: };
55:
56: enum merr {
57: EQUOTTERM,
1.2 kristaps 58: EMALLOC,
1.1 kristaps 59: EARGVAL
60: };
61:
62: static int argv_a2arg(int, const char *);
63: static int args(struct mdoc *, int, int *,
64: char *, int, char **);
65: static int argv(struct mdoc *, int,
66: struct mdoc_argv *, int *, char *);
67: static int argv_single(struct mdoc *, int,
68: struct mdoc_argv *, int *, char *);
69: static int argv_opt_single(struct mdoc *, int,
70: struct mdoc_argv *, int *, char *);
71: static int argv_multi(struct mdoc *, int,
72: struct mdoc_argv *, int *, char *);
73: static int pwarn(struct mdoc *, int, int, enum mwarn);
74: static int perr(struct mdoc *, int, int, enum merr);
75:
1.2 kristaps 76: #define verr(m, t) perr((m), (m)->last->line, (m)->last->pos, (t))
77:
1.1 kristaps 78: /* Per-argument flags. */
79:
80: static int mdoc_argvflags[MDOC_ARG_MAX] = {
81: ARGV_NONE, /* MDOC_Split */
82: ARGV_NONE, /* MDOC_Nosplit */
83: ARGV_NONE, /* MDOC_Ragged */
84: ARGV_NONE, /* MDOC_Unfilled */
85: ARGV_NONE, /* MDOC_Literal */
86: ARGV_NONE, /* MDOC_File */
87: ARGV_SINGLE, /* MDOC_Offset */
88: ARGV_NONE, /* MDOC_Bullet */
89: ARGV_NONE, /* MDOC_Dash */
90: ARGV_NONE, /* MDOC_Hyphen */
91: ARGV_NONE, /* MDOC_Item */
92: ARGV_NONE, /* MDOC_Enum */
93: ARGV_NONE, /* MDOC_Tag */
94: ARGV_NONE, /* MDOC_Diag */
95: ARGV_NONE, /* MDOC_Hang */
96: ARGV_NONE, /* MDOC_Ohang */
97: ARGV_NONE, /* MDOC_Inset */
98: ARGV_MULTI, /* MDOC_Column */
99: ARGV_SINGLE, /* MDOC_Width */
100: ARGV_NONE, /* MDOC_Compact */
101: ARGV_OPT_SINGLE, /* MDOC_Std */
102: ARGV_NONE, /* MDOC_Filled */
103: ARGV_NONE, /* MDOC_Words */
104: ARGV_NONE, /* MDOC_Emphasis */
105: ARGV_NONE, /* MDOC_Symbolic */
106: ARGV_NONE /* MDOC_Symbolic */
107: };
108:
109: static int mdoc_argflags[MDOC_MAX] = {
1.5 kristaps 110: 0, /* Ap */
1.1 kristaps 111: 0, /* Dd */
112: 0, /* Dt */
113: 0, /* Os */
114: ARGS_QUOTED, /* Sh */
115: ARGS_QUOTED, /* Ss */
116: ARGS_DELIM, /* Pp */
117: ARGS_DELIM, /* D1 */
118: ARGS_DELIM | ARGS_QUOTED, /* Dl */
119: 0, /* Bd */
120: 0, /* Ed */
121: 0, /* Bl */
122: 0, /* El */
123: 0, /* It */
124: ARGS_DELIM, /* Ad */
125: ARGS_DELIM, /* An */
126: ARGS_DELIM | ARGS_QUOTED, /* Ar */
127: ARGS_QUOTED, /* Cd */
128: ARGS_DELIM, /* Cm */
129: ARGS_DELIM, /* Dv */
130: ARGS_DELIM, /* Er */
131: ARGS_DELIM, /* Ev */
132: 0, /* Ex */
133: ARGS_DELIM | ARGS_QUOTED, /* Fa */
134: 0, /* Fd */
135: ARGS_DELIM, /* Fl */
136: ARGS_DELIM | ARGS_QUOTED, /* Fn */
137: ARGS_DELIM | ARGS_QUOTED, /* Ft */
138: ARGS_DELIM, /* Ic */
139: 0, /* In */
140: ARGS_DELIM | ARGS_QUOTED, /* Li */
141: ARGS_QUOTED, /* Nd */
142: ARGS_DELIM, /* Nm */
143: ARGS_DELIM, /* Op */
144: 0, /* Ot */
145: ARGS_DELIM, /* Pa */
146: 0, /* Rv */
147: ARGS_DELIM | ARGS_ARGVLIKE, /* St */
148: ARGS_DELIM, /* Va */
149: ARGS_DELIM, /* Vt */
150: ARGS_DELIM, /* Xr */
151: ARGS_QUOTED, /* %A */
152: ARGS_QUOTED, /* %B */
153: ARGS_QUOTED, /* %D */
154: ARGS_QUOTED, /* %I */
155: ARGS_QUOTED, /* %J */
156: ARGS_QUOTED, /* %N */
157: ARGS_QUOTED, /* %O */
158: ARGS_QUOTED, /* %P */
159: ARGS_QUOTED, /* %R */
160: ARGS_QUOTED, /* %T */
161: ARGS_QUOTED, /* %V */
162: ARGS_DELIM, /* Ac */
163: 0, /* Ao */
164: ARGS_DELIM, /* Aq */
165: ARGS_DELIM, /* At */
166: ARGS_DELIM, /* Bc */
167: 0, /* Bf */
168: 0, /* Bo */
169: ARGS_DELIM, /* Bq */
170: ARGS_DELIM, /* Bsx */
171: ARGS_DELIM, /* Bx */
172: 0, /* Db */
173: ARGS_DELIM, /* Dc */
174: 0, /* Do */
175: ARGS_DELIM, /* Dq */
176: ARGS_DELIM, /* Ec */
177: 0, /* Ef */
178: ARGS_DELIM, /* Em */
179: 0, /* Eo */
180: ARGS_DELIM, /* Fx */
181: ARGS_DELIM, /* Ms */
182: ARGS_DELIM, /* No */
183: ARGS_DELIM, /* Ns */
184: ARGS_DELIM, /* Nx */
185: ARGS_DELIM, /* Ox */
186: ARGS_DELIM, /* Pc */
187: ARGS_DELIM, /* Pf */
188: 0, /* Po */
189: ARGS_DELIM, /* Pq */
190: ARGS_DELIM, /* Qc */
191: ARGS_DELIM, /* Ql */
192: 0, /* Qo */
193: ARGS_DELIM, /* Qq */
194: 0, /* Re */
195: 0, /* Rs */
196: ARGS_DELIM, /* Sc */
197: 0, /* So */
198: ARGS_DELIM, /* Sq */
199: 0, /* Sm */
200: ARGS_DELIM, /* Sx */
201: ARGS_DELIM | ARGS_QUOTED, /* Sy */
202: ARGS_DELIM, /* Tn */
203: ARGS_DELIM, /* Ux */
204: ARGS_DELIM, /* Xc */
205: 0, /* Xo */
206: ARGS_QUOTED, /* Fo */
207: 0, /* Fc */
208: 0, /* Oo */
209: ARGS_DELIM, /* Oc */
210: 0, /* Bk */
211: 0, /* Ek */
212: 0, /* Bt */
213: 0, /* Hf */
214: 0, /* Fr */
215: 0, /* Ud */
216: 0, /* Lb */
217: ARGS_DELIM, /* Lp */
218: ARGS_DELIM | ARGS_QUOTED, /* Lk */
219: ARGS_DELIM | ARGS_QUOTED, /* Mt */
220: ARGS_DELIM, /* Brq */
221: 0, /* Bro */
222: ARGS_DELIM, /* Brc */
223: ARGS_QUOTED, /* %C */
224: 0, /* Es */
225: 0, /* En */
226: 0, /* Dx */
227: ARGS_QUOTED, /* %Q */
228: };
229:
230:
231: /*
232: * Parse an argument from line text. This comes in the form of -key
233: * [value0...], which may either have a single mandatory value, at least
234: * one mandatory value, an optional single value, or no value.
235: */
236: int
237: mdoc_argv(struct mdoc *mdoc, int line, int tok,
238: struct mdoc_arg **v, int *pos, char *buf)
239: {
240: int i;
241: char *p, sv;
242: struct mdoc_argv tmp;
243: struct mdoc_arg *arg;
244:
245: if (0 == buf[*pos])
246: return(ARGV_EOLN);
247:
248: assert(' ' != buf[*pos]);
249:
250: if ('-' != buf[*pos] || ARGS_ARGVLIKE & mdoc_argflags[tok])
251: return(ARGV_WORD);
252:
253: /* Parse through to the first unescaped space. */
254:
255: i = *pos;
256: p = &buf[++(*pos)];
257:
258: assert(*pos > 0);
259:
260: /* LINTED */
261: while (buf[*pos]) {
262: if (' ' == buf[*pos])
263: if ('\\' != buf[*pos - 1])
264: break;
265: (*pos)++;
266: }
267:
268: /* XXX - save zeroed byte, if not an argument. */
269:
270: sv = 0;
271: if (buf[*pos]) {
272: sv = buf[*pos];
273: buf[(*pos)++] = 0;
274: }
275:
276: (void)memset(&tmp, 0, sizeof(struct mdoc_argv));
277: tmp.line = line;
278: tmp.pos = *pos;
279:
280: /* See if our token accepts the argument. */
281:
282: if (MDOC_ARG_MAX == (tmp.arg = argv_a2arg(tok, p))) {
283: /* XXX - restore saved zeroed byte. */
284: if (sv)
285: buf[*pos - 1] = sv;
286: if ( ! pwarn(mdoc, line, i, WARGVPARM))
287: return(ARGV_ERROR);
288: return(ARGV_WORD);
289: }
290:
291: while (buf[*pos] && ' ' == buf[*pos])
292: (*pos)++;
293:
294: if ( ! argv(mdoc, line, &tmp, pos, buf))
295: return(ARGV_ERROR);
296:
297: if (NULL == (arg = *v)) {
1.2 kristaps 298: *v = calloc(1, sizeof(struct mdoc_arg));
299: if (NULL == *v) {
300: (void)verr(mdoc, EMALLOC);
301: return(ARGV_ERROR);
302: }
1.1 kristaps 303: arg = *v;
304: }
305:
306: arg->argc++;
1.2 kristaps 307: arg->argv = realloc(arg->argv, arg->argc *
1.1 kristaps 308: sizeof(struct mdoc_argv));
309:
1.2 kristaps 310: if (NULL == arg->argv) {
311: (void)verr(mdoc, EMALLOC);
312: return(ARGV_ERROR);
313: }
314:
1.1 kristaps 315: (void)memcpy(&arg->argv[(int)arg->argc - 1],
316: &tmp, sizeof(struct mdoc_argv));
317:
318: return(ARGV_ARG);
319: }
320:
321:
322: void
323: mdoc_argv_free(struct mdoc_arg *p)
324: {
325: int i, j;
326:
327: if (NULL == p)
328: return;
329:
330: if (p->refcnt) {
331: --(p->refcnt);
332: if (p->refcnt)
333: return;
334: }
335: assert(p->argc);
336:
337: /* LINTED */
338: for (i = 0; i < (int)p->argc; i++) {
339: if (0 == p->argv[i].sz)
340: continue;
341: /* LINTED */
342: for (j = 0; j < (int)p->argv[i].sz; j++)
343: free(p->argv[i].value[j]);
344:
345: free(p->argv[i].value);
346: }
347:
348: free(p->argv);
349: free(p);
350: }
351:
352:
353:
354: static int
355: perr(struct mdoc *mdoc, int line, int pos, enum merr code)
356: {
357: char *p;
358:
359: p = NULL;
360: switch (code) {
1.2 kristaps 361: case (EMALLOC):
362: p = "memory exhausted";
363: break;
1.1 kristaps 364: case (EQUOTTERM):
365: p = "unterminated quoted parameter";
366: break;
367: case (EARGVAL):
368: p = "argument requires a value";
369: break;
370: }
371: assert(p);
372: return(mdoc_perr(mdoc, line, pos, p));
373: }
374:
375:
376: static int
377: pwarn(struct mdoc *mdoc, int line, int pos, enum mwarn code)
378: {
379: char *p;
380: int c;
381:
382: p = NULL;
383: c = WARN_SYNTAX;
384: switch (code) {
385: case (WQUOTPARM):
386: p = "unexpected quoted parameter";
387: break;
388: case (WARGVPARM):
389: p = "argument-like parameter";
390: break;
391: case (WCOLEMPTY):
392: p = "last list column is empty";
393: c = WARN_COMPAT;
394: break;
395: case (WTAILWS):
396: p = "trailing whitespace";
397: c = WARN_COMPAT;
398: break;
399: }
400: assert(p);
401: return(mdoc_pwarn(mdoc, line, pos, c, p));
402: }
403:
404:
405: int
406: mdoc_args(struct mdoc *mdoc, int line,
407: int *pos, char *buf, int tok, char **v)
408: {
409: int fl, c, i;
410: struct mdoc_node *n;
411:
412: fl = (0 == tok) ? 0 : mdoc_argflags[tok];
413:
414: /*
415: * Override per-macro argument flags with context-specific ones.
416: * As of now, this is only valid for `It' depending on its list
417: * context.
418: */
419:
420: switch (tok) {
421: case (MDOC_It):
422: for (n = mdoc->last; n; n = n->parent)
423: if (MDOC_BLOCK == n->type && MDOC_Bl == n->tok)
424: break;
425:
426: assert(n);
427: c = (int)(n->args ? n->args->argc : 0);
428: assert(c > 0);
429:
430: /*
431: * Using `Bl -column' adds ARGS_TABSEP to the arguments
432: * and invalidates ARGS_DELIM. Using `Bl -diag' allows
433: * for quoted arguments.
434: */
435:
436: /* LINTED */
437: for (i = 0; i < c; i++) {
438: switch (n->args->argv[i].arg) {
439: case (MDOC_Column):
440: fl |= ARGS_TABSEP;
441: fl &= ~ARGS_DELIM;
442: i = c;
443: break;
444: case (MDOC_Diag):
445: fl |= ARGS_QUOTED;
446: i = c;
447: break;
448: default:
449: break;
450: }
451: }
452: break;
453: default:
454: break;
455: }
456:
457: return(args(mdoc, line, pos, buf, fl, v));
458: }
459:
460:
461: static int
462: args(struct mdoc *mdoc, int line,
463: int *pos, char *buf, int fl, char **v)
464: {
465: int i;
466: char *p, *pp;
467:
468: assert(*pos > 0);
469:
470: if (0 == buf[*pos])
471: return(ARGS_EOLN);
472:
473: if ('\"' == buf[*pos] && ! (fl & ARGS_QUOTED))
474: if ( ! pwarn(mdoc, line, *pos, WQUOTPARM))
475: return(ARGS_ERROR);
476:
477: if ( ! (fl & ARGS_ARGVLIKE) && '-' == buf[*pos])
478: if ( ! pwarn(mdoc, line, *pos, WARGVPARM))
479: return(ARGS_ERROR);
480:
481: /*
482: * If the first character is a delimiter and we're to look for
483: * delimited strings, then pass down the buffer seeing if it
484: * follows the pattern of [[::delim::][ ]+]+.
485: */
486:
487: if ((fl & ARGS_DELIM) && mdoc_iscdelim(buf[*pos])) {
488: for (i = *pos; buf[i]; ) {
489: if ( ! mdoc_iscdelim(buf[i]))
490: break;
491: i++;
492: /* There must be at least one space... */
493: if (0 == buf[i] || ' ' != buf[i])
494: break;
495: i++;
496: while (buf[i] && ' ' == buf[i])
497: i++;
498: }
499: if (0 == buf[i]) {
500: *v = &buf[*pos];
501: return(ARGS_PUNCT);
502: }
503: }
504:
505: /* First parse non-quoted strings. */
506:
507: if ('\"' != buf[*pos] || ! (ARGS_QUOTED & fl)) {
508: *v = &buf[*pos];
509:
510: /*
511: * Thar be dragons here! If we're tab-separated, search
512: * ahead for either a tab or the `Ta' macro.
513: * If a `Ta' is detected, it must be space-buffered before and
514: * after. If either of these hold true, then prune out the
515: * extra spaces and call it an argument.
516: */
517:
518: if (ARGS_TABSEP & fl) {
519: /* Scan ahead to unescaped tab. */
520:
521: p = strchr(*v, '\t');
522:
523: /* Scan ahead to unescaped `Ta'. */
524:
525: for (pp = *v; ; pp++) {
526: if (NULL == (pp = strstr(pp, "Ta")))
527: break;
528: if (pp > *v && ' ' != *(pp - 1))
529: continue;
530: if (' ' == *(pp + 2) || 0 == *(pp + 2))
531: break;
532: }
533:
534: /* Choose delimiter tab/Ta. */
535:
536: if (p && pp)
537: p = (p < pp ? p : pp);
538: else if ( ! p && pp)
539: p = pp;
540:
541: /* Strip delimiter's preceding whitespace. */
542:
543: if (p && p > *v) {
544: pp = p - 1;
545: while (pp > *v && ' ' == *pp)
546: pp--;
547: if (pp == *v && ' ' == *pp)
548: *pp = 0;
549: else if (' ' == *pp)
550: *(pp + 1) = 0;
551: }
552:
553: /* ...in- and proceding whitespace. */
554:
555: if (p && ('\t' != *p)) {
556: *p++ = 0;
557: *p++ = 0;
558: } else if (p)
559: *p++ = 0;
560:
561: if (p) {
562: while (' ' == *p)
563: p++;
564: if (0 != *p)
565: *(p - 1) = 0;
566: *pos += (int)(p - *v);
567: }
568:
569: if (p && 0 == *p)
570: if ( ! pwarn(mdoc, line, *pos, WCOLEMPTY))
571: return(0);
572: if (p && 0 == *p && p > *v && ' ' == *(p - 1))
573: if ( ! pwarn(mdoc, line, *pos, WTAILWS))
574: return(0);
575:
576: if (p)
577: return(ARGS_PHRASE);
578:
579: /* Configure the eoln case, too. */
580:
581: p = strchr(*v, 0);
582: assert(p);
583:
584: if (p > *v && ' ' == *(p - 1))
585: if ( ! pwarn(mdoc, line, *pos, WTAILWS))
586: return(0);
587: *pos += (int)(p - *v);
588:
589: return(ARGS_PHRASE);
590: }
591:
592: /* Do non-tabsep look-ahead here. */
593:
594: if ( ! (ARGS_TABSEP & fl))
595: while (buf[*pos]) {
596: if (' ' == buf[*pos])
597: if ('\\' != buf[*pos - 1])
598: break;
599: (*pos)++;
600: }
601:
602: if (0 == buf[*pos])
603: return(ARGS_WORD);
604:
605: buf[(*pos)++] = 0;
606:
607: if (0 == buf[*pos])
608: return(ARGS_WORD);
609:
610: if ( ! (ARGS_TABSEP & fl))
611: while (buf[*pos] && ' ' == buf[*pos])
612: (*pos)++;
613:
614: if (buf[*pos])
615: return(ARGS_WORD);
616:
617: if ( ! pwarn(mdoc, line, *pos, WTAILWS))
618: return(ARGS_ERROR);
619:
620: return(ARGS_WORD);
621: }
622:
623: /*
624: * If we're a quoted string (and quoted strings are allowed),
625: * then parse ahead to the next quote. If none's found, it's an
626: * error. After, parse to the next word.
627: */
628:
629: *v = &buf[++(*pos)];
630:
631: while (buf[*pos] && '\"' != buf[*pos])
632: (*pos)++;
633:
634: if (0 == buf[*pos]) {
635: (void)perr(mdoc, line, *pos, EQUOTTERM);
636: return(ARGS_ERROR);
637: }
638:
639: buf[(*pos)++] = 0;
640: if (0 == buf[*pos])
641: return(ARGS_QWORD);
642:
643: while (buf[*pos] && ' ' == buf[*pos])
644: (*pos)++;
645:
646: if (buf[*pos])
647: return(ARGS_QWORD);
648:
649: if ( ! pwarn(mdoc, line, *pos, WTAILWS))
650: return(ARGS_ERROR);
651:
652: return(ARGS_QWORD);
653: }
654:
655:
656: static int
657: argv_a2arg(int tok, const char *argv)
658: {
659:
660: /*
661: * Parse an argument identifier from its text. XXX - this
662: * should really be table-driven to clarify the code.
663: *
664: * If you add an argument to the list, make sure that you
665: * register it here with its one or more macros!
666: */
667:
668: switch (tok) {
669: case (MDOC_An):
1.2 kristaps 670: if (0 == strcmp(argv, "split"))
1.1 kristaps 671: return(MDOC_Split);
1.2 kristaps 672: else if (0 == strcmp(argv, "nosplit"))
1.1 kristaps 673: return(MDOC_Nosplit);
674: break;
675:
676: case (MDOC_Bd):
1.2 kristaps 677: if (0 == strcmp(argv, "ragged"))
1.1 kristaps 678: return(MDOC_Ragged);
1.2 kristaps 679: else if (0 == strcmp(argv, "unfilled"))
1.1 kristaps 680: return(MDOC_Unfilled);
1.2 kristaps 681: else if (0 == strcmp(argv, "filled"))
1.1 kristaps 682: return(MDOC_Filled);
1.2 kristaps 683: else if (0 == strcmp(argv, "literal"))
1.1 kristaps 684: return(MDOC_Literal);
1.2 kristaps 685: else if (0 == strcmp(argv, "file"))
1.1 kristaps 686: return(MDOC_File);
1.2 kristaps 687: else if (0 == strcmp(argv, "offset"))
1.1 kristaps 688: return(MDOC_Offset);
1.2 kristaps 689: else if (0 == strcmp(argv, "compact"))
1.1 kristaps 690: return(MDOC_Compact);
691: break;
692:
693: case (MDOC_Bf):
1.2 kristaps 694: if (0 == strcmp(argv, "emphasis"))
1.1 kristaps 695: return(MDOC_Emphasis);
1.2 kristaps 696: else if (0 == strcmp(argv, "literal"))
1.1 kristaps 697: return(MDOC_Literal);
1.2 kristaps 698: else if (0 == strcmp(argv, "symbolic"))
1.1 kristaps 699: return(MDOC_Symbolic);
700: break;
701:
702: case (MDOC_Bk):
1.2 kristaps 703: if (0 == strcmp(argv, "words"))
1.1 kristaps 704: return(MDOC_Words);
705: break;
706:
707: case (MDOC_Bl):
1.2 kristaps 708: if (0 == strcmp(argv, "bullet"))
1.1 kristaps 709: return(MDOC_Bullet);
1.2 kristaps 710: else if (0 == strcmp(argv, "dash"))
1.1 kristaps 711: return(MDOC_Dash);
1.2 kristaps 712: else if (0 == strcmp(argv, "hyphen"))
1.1 kristaps 713: return(MDOC_Hyphen);
1.2 kristaps 714: else if (0 == strcmp(argv, "item"))
1.1 kristaps 715: return(MDOC_Item);
1.2 kristaps 716: else if (0 == strcmp(argv, "enum"))
1.1 kristaps 717: return(MDOC_Enum);
1.2 kristaps 718: else if (0 == strcmp(argv, "tag"))
1.1 kristaps 719: return(MDOC_Tag);
1.2 kristaps 720: else if (0 == strcmp(argv, "diag"))
1.1 kristaps 721: return(MDOC_Diag);
1.2 kristaps 722: else if (0 == strcmp(argv, "hang"))
1.1 kristaps 723: return(MDOC_Hang);
1.2 kristaps 724: else if (0 == strcmp(argv, "ohang"))
1.1 kristaps 725: return(MDOC_Ohang);
1.2 kristaps 726: else if (0 == strcmp(argv, "inset"))
1.1 kristaps 727: return(MDOC_Inset);
1.2 kristaps 728: else if (0 == strcmp(argv, "column"))
1.1 kristaps 729: return(MDOC_Column);
1.2 kristaps 730: else if (0 == strcmp(argv, "width"))
1.1 kristaps 731: return(MDOC_Width);
1.2 kristaps 732: else if (0 == strcmp(argv, "offset"))
1.1 kristaps 733: return(MDOC_Offset);
1.2 kristaps 734: else if (0 == strcmp(argv, "compact"))
1.1 kristaps 735: return(MDOC_Compact);
1.2 kristaps 736: else if (0 == strcmp(argv, "nested"))
1.1 kristaps 737: return(MDOC_Nested);
738: break;
739:
740: case (MDOC_Rv):
741: /* FALLTHROUGH */
742: case (MDOC_Ex):
1.2 kristaps 743: if (0 == strcmp(argv, "std"))
1.1 kristaps 744: return(MDOC_Std);
745: break;
746: default:
747: break;
748: }
749:
750: return(MDOC_ARG_MAX);
751: }
752:
753:
754: static int
755: argv_multi(struct mdoc *mdoc, int line,
756: struct mdoc_argv *v, int *pos, char *buf)
757: {
758: int c, ppos;
759: char *p;
760:
761: ppos = *pos;
762:
763: for (v->sz = 0; ; v->sz++) {
764: if ('-' == buf[*pos])
765: break;
766: c = args(mdoc, line, pos, buf, ARGS_QUOTED, &p);
767: if (ARGS_ERROR == c)
768: return(0);
769: else if (ARGS_EOLN == c)
770: break;
771:
1.2 kristaps 772: if (0 == v->sz % MULTI_STEP) {
773: v->value = realloc(v->value,
1.1 kristaps 774: (v->sz + MULTI_STEP) * sizeof(char *));
1.2 kristaps 775: if (NULL == v->value) {
776: (void)verr(mdoc, EMALLOC);
777: return(ARGV_ERROR);
778: }
779: }
1.1 kristaps 780: if (NULL == (v->value[(int)v->sz] = strdup(p)))
1.2 kristaps 781: return(verr(mdoc, EMALLOC));
1.1 kristaps 782: }
783:
784: if (v->sz)
785: return(1);
786:
787: return(perr(mdoc, line, ppos, EARGVAL));
788: }
789:
790:
791: static int
792: argv_opt_single(struct mdoc *mdoc, int line,
793: struct mdoc_argv *v, int *pos, char *buf)
794: {
795: int c;
796: char *p;
797:
798: if ('-' == buf[*pos])
799: return(1);
800:
801: c = args(mdoc, line, pos, buf, ARGS_QUOTED, &p);
802: if (ARGS_ERROR == c)
803: return(0);
804: if (ARGS_EOLN == c)
805: return(1);
806:
807: v->sz = 1;
808: if (NULL == (v->value = calloc(1, sizeof(char *))))
1.2 kristaps 809: return(verr(mdoc, EMALLOC));
1.1 kristaps 810: if (NULL == (v->value[0] = strdup(p)))
1.2 kristaps 811: return(verr(mdoc, EMALLOC));
812:
1.1 kristaps 813: return(1);
814: }
815:
816:
817: /*
818: * Parse a single, mandatory value from the stream.
819: */
820: static int
821: argv_single(struct mdoc *mdoc, int line,
822: struct mdoc_argv *v, int *pos, char *buf)
823: {
824: int c, ppos;
825: char *p;
826:
827: ppos = *pos;
828:
829: c = args(mdoc, line, pos, buf, ARGS_QUOTED, &p);
830: if (ARGS_ERROR == c)
831: return(0);
832: if (ARGS_EOLN == c)
833: return(perr(mdoc, line, ppos, EARGVAL));
834:
835: v->sz = 1;
836: if (NULL == (v->value = calloc(1, sizeof(char *))))
1.2 kristaps 837: return(verr(mdoc, EMALLOC));
1.1 kristaps 838: if (NULL == (v->value[0] = strdup(p)))
1.2 kristaps 839: return(verr(mdoc, EMALLOC));
840:
1.1 kristaps 841: return(1);
842: }
843:
844:
845: /*
846: * Determine rules for parsing arguments. Arguments can either accept
847: * no parameters, an optional single parameter, one parameter, or
848: * multiple parameters.
849: */
850: static int
851: argv(struct mdoc *mdoc, int line,
852: struct mdoc_argv *v, int *pos, char *buf)
853: {
854:
855: v->sz = 0;
856: v->value = NULL;
857:
858: switch (mdoc_argvflags[v->arg]) {
859: case (ARGV_SINGLE):
860: return(argv_single(mdoc, line, v, pos, buf));
861: case (ARGV_MULTI):
862: return(argv_multi(mdoc, line, v, pos, buf));
863: case (ARGV_OPT_SINGLE):
864: return(argv_opt_single(mdoc, line, v, pos, buf));
865: default:
866: /* ARGV_NONE */
867: break;
868: }
869:
870: return(1);
871: }
CVSweb