diff options
Diffstat (limited to 'argv.c')
| -rw-r--r-- | argv.c | 256 |
1 files changed, 256 insertions, 0 deletions
@@ -0,0 +1,256 @@ +/* $Id: argv.c,v 1.1 2008/12/23 05:30:49 kristaps Exp $ */ +/* + * Copyright (c) 2008 Kristaps Dzonsons <kristaps@kth.se> + * + * Permission to use, copy, modify, and distribute this software for any + * purpose with or without fee is hereby granted, provided that the + * above copyright notice and this permission notice appear in all + * copies. + * + * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL + * WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED + * WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE + * AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL + * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR + * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER + * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR + * PERFORMANCE OF THIS SOFTWARE. + */ +#include <assert.h> +#include <ctype.h> +#include <err.h> +#include <stdlib.h> +#include <stdio.h> +#include <string.h> + +#include "private.h" + + +static int parse_next(struct mdoc *, int, + int *, char *, char **); + + +static int +parse_next(struct mdoc *mdoc, int tok, + int *pos, char *buf, char **v) +{ + + if (0 == buf[*pos]) + return(0); + + if ('\"' != buf[*pos]) { + *v = &buf[*pos]; + + while (buf[*pos] && ! isspace(buf[*pos])) + (*pos)++; + + if (0 == buf[*pos]) + return(1); + + buf[(*pos)++] = 0; + if (0 == buf[*pos]) + return(1); + + while (buf[*pos] && isspace(buf[*pos])) + (*pos)++; + + if (buf[*pos]) + return(1); + + if ( ! mdoc_warn(mdoc, tok, *pos, WARN_SYNTAX_WS_EOLN)) + return(-1); + return(1); + } + + if ('-' == buf[*pos]) + if ( ! mdoc_warn(mdoc, tok, *pos, WARN_SYNTAX_ARGLIKE)) + return(-1); + + *v = &buf[++(*pos)]; + + while (buf[*pos] && '\"' != buf[*pos]) + (*pos)++; + + if (0 == buf[*pos]) { + (void)mdoc_err(mdoc, tok, *pos, ERR_SYNTAX_UNQUOTE); + return(-1); + } + + buf[(*pos)++] = 0; + if (0 == buf[*pos]) + return(1); + + while (buf[*pos] && isspace(buf[*pos])) + (*pos)++; + + if (buf[*pos]) + return(1); + + if ( ! mdoc_warn(mdoc, tok, *pos, WARN_SYNTAX_WS_EOLN)) + return(-1); + return(1); +} + + +int +mdoc_argv_lookup(int tok, const char *argv) +{ + + switch (tok) { + case (MDOC_Bl): + if (xstrcmp(argv, "ragged")) + return(MDOC_Ragged); + else if (xstrcmp(argv, "unfilled")) + return(MDOC_Unfilled); + else if (xstrcmp(argv, "literal")) + return(MDOC_Literal); + else if (xstrcmp(argv, "file")) + return(MDOC_File); + else if (xstrcmp(argv, "offset")) + return(MDOC_Offset); + else if (xstrcmp(argv, "bullet")) + return(MDOC_Bullet); + else if (xstrcmp(argv, "dash")) + return(MDOC_Dash); + else if (xstrcmp(argv, "hyphen")) + return(MDOC_Hyphen); + else if (xstrcmp(argv, "item")) + return(MDOC_Item); + else if (xstrcmp(argv, "enum")) + return(MDOC_Enum); + else if (xstrcmp(argv, "tag")) + return(MDOC_Tag); + else if (xstrcmp(argv, "diag")) + return(MDOC_Diag); + else if (xstrcmp(argv, "hang")) + return(MDOC_Hang); + else if (xstrcmp(argv, "ohang")) + return(MDOC_Ohang); + else if (xstrcmp(argv, "inset")) + return(MDOC_Inset); + else if (xstrcmp(argv, "column")) + return(MDOC_Column); + else if (xstrcmp(argv, "width")) + return(MDOC_Width); + else if (xstrcmp(argv, "compact")) + return(MDOC_Compact); + + break; + default: + abort(); + /* NOTREACHED */ + } + + return(MDOC_ARG_MAX); +} + + +int +mdoc_argv_parse(struct mdoc *mdoc, int tok, int arg, + struct mdoc_arg *v, int *pos, char *buf) +{ + char *p; + int c, ppos, i; + + v->arg = arg; + ppos = *pos; + + switch (arg) { + case(MDOC_Compact): + /* FALLTHROUGH */ + case(MDOC_Ragged): + /* FALLTHROUGH */ + case(MDOC_Unfilled): + /* FALLTHROUGH */ + case(MDOC_Literal): + /* FALLTHROUGH */ + case(MDOC_File): + /* FALLTHROUGH */ + case(MDOC_Bullet): + /* FALLTHROUGH */ + case(MDOC_Dash): + /* FALLTHROUGH */ + case(MDOC_Hyphen): + /* FALLTHROUGH */ + case(MDOC_Item): + /* FALLTHROUGH */ + case(MDOC_Enum): + /* FALLTHROUGH */ + case(MDOC_Tag): + /* FALLTHROUGH */ + case(MDOC_Diag): + /* FALLTHROUGH */ + case(MDOC_Hang): + /* FALLTHROUGH */ + case(MDOC_Ohang): + /* FALLTHROUGH */ + case(MDOC_Inset): + v->sz = 0; + v->value = NULL; + break; + + case(MDOC_Width): + /* FALLTHROUGH */ + case(MDOC_Offset): + /* + * This has a single value for an argument. + */ + c = parse_next(mdoc, tok, pos, buf, &p); + if (-1 == c) + return(0); + else if (0 == c) + return(mdoc_err(mdoc, tok, ppos, ERR_SYNTAX_ARGVAL)); + + v->sz = 1; + v->value = xcalloc(1, sizeof(char *)); + v->value[0] = p; + break; + + case(MDOC_Column): + /* + * This has several value for a single argument. We + * pre-allocate a pointer array and don't let it exceed + * this size. + */ + v->sz = 0; + v->value = xcalloc(MDOC_LINEARG_MAX, sizeof(char *)); + for (i = 0; i < MDOC_LINEARG_MAX; i++) { + c = parse_next(mdoc, tok, pos, buf, &p); + if (-1 == c) { + free(v->value); + return(0); + } else if (0 == c) + break; + v->value[i] = p; + } + if (0 == i) { + free(v->value); + return(mdoc_err(mdoc, tok, ppos, ERR_SYNTAX_ARGVAL)); + } else if (MDOC_LINEARG_MAX == i) + return(mdoc_err(mdoc, tok, ppos, ERR_SYNTAX_ARGMANY)); + + v->sz = i; + break; + default: + abort(); + /* NOTREACHED */ + } + + return(1); +} + + +void +mdoc_argv_free(int sz, struct mdoc_arg *arg) +{ + int i; + + for (i = 0; i < sz; i++) { + if (0 == arg[i].sz) { + assert(NULL == arg[i].value); + continue; + } + assert(arg[i].value); + free(arg[i].value); + } +} |