/* $Id: argv.c,v 1.1 2008/12/23 05:30:49 kristaps Exp $ */ /* * Copyright (c) 2008 Kristaps Dzonsons * * 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 #include #include #include #include #include #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); } }