1322249Sbapt/* $Id: mdoc_argv.c,v 1.115 2017/05/30 16:22:03 schwarze Exp $ */ 2241675Suqs/* 3241675Suqs * Copyright (c) 2008, 2009, 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv> 4322249Sbapt * Copyright (c) 2012, 2014-2017 Ingo Schwarze <schwarze@openbsd.org> 5241675Suqs * 6241675Suqs * Permission to use, copy, modify, and distribute this software for any 7241675Suqs * purpose with or without fee is hereby granted, provided that the above 8241675Suqs * copyright notice and this permission notice appear in all copies. 9241675Suqs * 10294113Sbapt * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHORS DISCLAIM ALL WARRANTIES 11241675Suqs * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF 12294113Sbapt * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR 13241675Suqs * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES 14241675Suqs * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN 15241675Suqs * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF 16241675Suqs * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 17241675Suqs */ 18241675Suqs#include "config.h" 19241675Suqs 20241675Suqs#include <sys/types.h> 21241675Suqs 22241675Suqs#include <assert.h> 23241675Suqs#include <stdlib.h> 24241675Suqs#include <stdio.h> 25241675Suqs#include <string.h> 26241675Suqs 27294113Sbapt#include "mandoc_aux.h" 28294113Sbapt#include "mandoc.h" 29294113Sbapt#include "roff.h" 30241675Suqs#include "mdoc.h" 31294113Sbapt#include "libmandoc.h" 32316420Sbapt#include "roff_int.h" 33241675Suqs#include "libmdoc.h" 34241675Suqs 35241675Suqs#define MULTI_STEP 5 /* pre-allocate argument values */ 36274880Sbapt#define DELIMSZ 6 /* max possible size of a delimiter */ 37241675Suqs 38241675Suqsenum argsflag { 39241675Suqs ARGSFL_NONE = 0, 40241675Suqs ARGSFL_DELIM, /* handle delimiters of [[::delim::][ ]+]+ */ 41241675Suqs ARGSFL_TABSEP /* handle tab/`Ta' separated phrases */ 42241675Suqs}; 43241675Suqs 44241675Suqsenum argvflag { 45241675Suqs ARGV_NONE, /* no args to flag (e.g., -split) */ 46241675Suqs ARGV_SINGLE, /* one arg to flag (e.g., -file xxx) */ 47261344Suqs ARGV_MULTI /* multiple args (e.g., -column xxx yyy) */ 48241675Suqs}; 49241675Suqs 50241675Suqsstruct mdocarg { 51241675Suqs enum argsflag flags; 52241675Suqs const enum mdocargt *argvs; 53241675Suqs}; 54241675Suqs 55241675Suqsstatic void argn_free(struct mdoc_arg *, int); 56294113Sbaptstatic enum margserr args(struct roff_man *, int, int *, 57241675Suqs char *, enum argsflag, char **); 58241675Suqsstatic int args_checkpunct(const char *, int); 59294113Sbaptstatic void argv_multi(struct roff_man *, int, 60241675Suqs struct mdoc_argv *, int *, char *); 61294113Sbaptstatic void argv_single(struct roff_man *, int, 62241675Suqs struct mdoc_argv *, int *, char *); 63241675Suqs 64241675Suqsstatic const enum argvflag argvflags[MDOC_ARG_MAX] = { 65241675Suqs ARGV_NONE, /* MDOC_Split */ 66241675Suqs ARGV_NONE, /* MDOC_Nosplit */ 67241675Suqs ARGV_NONE, /* MDOC_Ragged */ 68241675Suqs ARGV_NONE, /* MDOC_Unfilled */ 69241675Suqs ARGV_NONE, /* MDOC_Literal */ 70241675Suqs ARGV_SINGLE, /* MDOC_File */ 71261344Suqs ARGV_SINGLE, /* MDOC_Offset */ 72241675Suqs ARGV_NONE, /* MDOC_Bullet */ 73241675Suqs ARGV_NONE, /* MDOC_Dash */ 74241675Suqs ARGV_NONE, /* MDOC_Hyphen */ 75241675Suqs ARGV_NONE, /* MDOC_Item */ 76241675Suqs ARGV_NONE, /* MDOC_Enum */ 77241675Suqs ARGV_NONE, /* MDOC_Tag */ 78241675Suqs ARGV_NONE, /* MDOC_Diag */ 79241675Suqs ARGV_NONE, /* MDOC_Hang */ 80241675Suqs ARGV_NONE, /* MDOC_Ohang */ 81241675Suqs ARGV_NONE, /* MDOC_Inset */ 82241675Suqs ARGV_MULTI, /* MDOC_Column */ 83261344Suqs ARGV_SINGLE, /* MDOC_Width */ 84241675Suqs ARGV_NONE, /* MDOC_Compact */ 85241675Suqs ARGV_NONE, /* MDOC_Std */ 86241675Suqs ARGV_NONE, /* MDOC_Filled */ 87241675Suqs ARGV_NONE, /* MDOC_Words */ 88241675Suqs ARGV_NONE, /* MDOC_Emphasis */ 89241675Suqs ARGV_NONE, /* MDOC_Symbolic */ 90241675Suqs ARGV_NONE /* MDOC_Symbolic */ 91241675Suqs}; 92241675Suqs 93241675Suqsstatic const enum mdocargt args_Ex[] = { 94241675Suqs MDOC_Std, 95241675Suqs MDOC_ARG_MAX 96241675Suqs}; 97241675Suqs 98241675Suqsstatic const enum mdocargt args_An[] = { 99241675Suqs MDOC_Split, 100241675Suqs MDOC_Nosplit, 101241675Suqs MDOC_ARG_MAX 102241675Suqs}; 103241675Suqs 104241675Suqsstatic const enum mdocargt args_Bd[] = { 105241675Suqs MDOC_Ragged, 106241675Suqs MDOC_Unfilled, 107241675Suqs MDOC_Filled, 108241675Suqs MDOC_Literal, 109241675Suqs MDOC_File, 110241675Suqs MDOC_Offset, 111241675Suqs MDOC_Compact, 112241675Suqs MDOC_Centred, 113241675Suqs MDOC_ARG_MAX 114241675Suqs}; 115241675Suqs 116241675Suqsstatic const enum mdocargt args_Bf[] = { 117241675Suqs MDOC_Emphasis, 118241675Suqs MDOC_Literal, 119241675Suqs MDOC_Symbolic, 120241675Suqs MDOC_ARG_MAX 121241675Suqs}; 122241675Suqs 123241675Suqsstatic const enum mdocargt args_Bk[] = { 124241675Suqs MDOC_Words, 125241675Suqs MDOC_ARG_MAX 126241675Suqs}; 127241675Suqs 128241675Suqsstatic const enum mdocargt args_Bl[] = { 129241675Suqs MDOC_Bullet, 130241675Suqs MDOC_Dash, 131241675Suqs MDOC_Hyphen, 132241675Suqs MDOC_Item, 133241675Suqs MDOC_Enum, 134241675Suqs MDOC_Tag, 135241675Suqs MDOC_Diag, 136241675Suqs MDOC_Hang, 137241675Suqs MDOC_Ohang, 138241675Suqs MDOC_Inset, 139241675Suqs MDOC_Column, 140241675Suqs MDOC_Width, 141241675Suqs MDOC_Offset, 142241675Suqs MDOC_Compact, 143241675Suqs MDOC_Nested, 144241675Suqs MDOC_ARG_MAX 145241675Suqs}; 146241675Suqs 147322249Sbaptstatic const struct mdocarg __mdocargs[MDOC_MAX - MDOC_Dd] = { 148241675Suqs { ARGSFL_NONE, NULL }, /* Dd */ 149241675Suqs { ARGSFL_NONE, NULL }, /* Dt */ 150241675Suqs { ARGSFL_NONE, NULL }, /* Os */ 151241675Suqs { ARGSFL_NONE, NULL }, /* Sh */ 152274880Sbapt { ARGSFL_NONE, NULL }, /* Ss */ 153274880Sbapt { ARGSFL_NONE, NULL }, /* Pp */ 154241675Suqs { ARGSFL_DELIM, NULL }, /* D1 */ 155241675Suqs { ARGSFL_DELIM, NULL }, /* Dl */ 156241675Suqs { ARGSFL_NONE, args_Bd }, /* Bd */ 157241675Suqs { ARGSFL_NONE, NULL }, /* Ed */ 158241675Suqs { ARGSFL_NONE, args_Bl }, /* Bl */ 159241675Suqs { ARGSFL_NONE, NULL }, /* El */ 160241675Suqs { ARGSFL_NONE, NULL }, /* It */ 161274880Sbapt { ARGSFL_DELIM, NULL }, /* Ad */ 162241675Suqs { ARGSFL_DELIM, args_An }, /* An */ 163322249Sbapt { ARGSFL_DELIM, NULL }, /* Ap */ 164241675Suqs { ARGSFL_DELIM, NULL }, /* Ar */ 165261344Suqs { ARGSFL_DELIM, NULL }, /* Cd */ 166241675Suqs { ARGSFL_DELIM, NULL }, /* Cm */ 167274880Sbapt { ARGSFL_DELIM, NULL }, /* Dv */ 168274880Sbapt { ARGSFL_DELIM, NULL }, /* Er */ 169274880Sbapt { ARGSFL_DELIM, NULL }, /* Ev */ 170241675Suqs { ARGSFL_NONE, args_Ex }, /* Ex */ 171274880Sbapt { ARGSFL_DELIM, NULL }, /* Fa */ 172274880Sbapt { ARGSFL_NONE, NULL }, /* Fd */ 173241675Suqs { ARGSFL_DELIM, NULL }, /* Fl */ 174274880Sbapt { ARGSFL_DELIM, NULL }, /* Fn */ 175274880Sbapt { ARGSFL_DELIM, NULL }, /* Ft */ 176274880Sbapt { ARGSFL_DELIM, NULL }, /* Ic */ 177274880Sbapt { ARGSFL_DELIM, NULL }, /* In */ 178241675Suqs { ARGSFL_DELIM, NULL }, /* Li */ 179274880Sbapt { ARGSFL_NONE, NULL }, /* Nd */ 180274880Sbapt { ARGSFL_DELIM, NULL }, /* Nm */ 181241675Suqs { ARGSFL_DELIM, NULL }, /* Op */ 182274880Sbapt { ARGSFL_DELIM, NULL }, /* Ot */ 183241675Suqs { ARGSFL_DELIM, NULL }, /* Pa */ 184241675Suqs { ARGSFL_NONE, args_Ex }, /* Rv */ 185274880Sbapt { ARGSFL_DELIM, NULL }, /* St */ 186241675Suqs { ARGSFL_DELIM, NULL }, /* Va */ 187274880Sbapt { ARGSFL_DELIM, NULL }, /* Vt */ 188241675Suqs { ARGSFL_DELIM, NULL }, /* Xr */ 189241675Suqs { ARGSFL_NONE, NULL }, /* %A */ 190241675Suqs { ARGSFL_NONE, NULL }, /* %B */ 191241675Suqs { ARGSFL_NONE, NULL }, /* %D */ 192241675Suqs { ARGSFL_NONE, NULL }, /* %I */ 193241675Suqs { ARGSFL_NONE, NULL }, /* %J */ 194241675Suqs { ARGSFL_NONE, NULL }, /* %N */ 195241675Suqs { ARGSFL_NONE, NULL }, /* %O */ 196241675Suqs { ARGSFL_NONE, NULL }, /* %P */ 197241675Suqs { ARGSFL_NONE, NULL }, /* %R */ 198241675Suqs { ARGSFL_NONE, NULL }, /* %T */ 199241675Suqs { ARGSFL_NONE, NULL }, /* %V */ 200241675Suqs { ARGSFL_DELIM, NULL }, /* Ac */ 201241675Suqs { ARGSFL_NONE, NULL }, /* Ao */ 202241675Suqs { ARGSFL_DELIM, NULL }, /* Aq */ 203241675Suqs { ARGSFL_DELIM, NULL }, /* At */ 204241675Suqs { ARGSFL_DELIM, NULL }, /* Bc */ 205274880Sbapt { ARGSFL_NONE, args_Bf }, /* Bf */ 206241675Suqs { ARGSFL_NONE, NULL }, /* Bo */ 207241675Suqs { ARGSFL_DELIM, NULL }, /* Bq */ 208241675Suqs { ARGSFL_DELIM, NULL }, /* Bsx */ 209241675Suqs { ARGSFL_DELIM, NULL }, /* Bx */ 210241675Suqs { ARGSFL_NONE, NULL }, /* Db */ 211241675Suqs { ARGSFL_DELIM, NULL }, /* Dc */ 212241675Suqs { ARGSFL_NONE, NULL }, /* Do */ 213241675Suqs { ARGSFL_DELIM, NULL }, /* Dq */ 214241675Suqs { ARGSFL_DELIM, NULL }, /* Ec */ 215241675Suqs { ARGSFL_NONE, NULL }, /* Ef */ 216274880Sbapt { ARGSFL_DELIM, NULL }, /* Em */ 217241675Suqs { ARGSFL_NONE, NULL }, /* Eo */ 218241675Suqs { ARGSFL_DELIM, NULL }, /* Fx */ 219241675Suqs { ARGSFL_DELIM, NULL }, /* Ms */ 220241675Suqs { ARGSFL_DELIM, NULL }, /* No */ 221241675Suqs { ARGSFL_DELIM, NULL }, /* Ns */ 222241675Suqs { ARGSFL_DELIM, NULL }, /* Nx */ 223241675Suqs { ARGSFL_DELIM, NULL }, /* Ox */ 224241675Suqs { ARGSFL_DELIM, NULL }, /* Pc */ 225241675Suqs { ARGSFL_DELIM, NULL }, /* Pf */ 226241675Suqs { ARGSFL_NONE, NULL }, /* Po */ 227241675Suqs { ARGSFL_DELIM, NULL }, /* Pq */ 228241675Suqs { ARGSFL_DELIM, NULL }, /* Qc */ 229241675Suqs { ARGSFL_DELIM, NULL }, /* Ql */ 230241675Suqs { ARGSFL_NONE, NULL }, /* Qo */ 231241675Suqs { ARGSFL_DELIM, NULL }, /* Qq */ 232241675Suqs { ARGSFL_NONE, NULL }, /* Re */ 233241675Suqs { ARGSFL_NONE, NULL }, /* Rs */ 234241675Suqs { ARGSFL_DELIM, NULL }, /* Sc */ 235241675Suqs { ARGSFL_NONE, NULL }, /* So */ 236241675Suqs { ARGSFL_DELIM, NULL }, /* Sq */ 237241675Suqs { ARGSFL_NONE, NULL }, /* Sm */ 238241675Suqs { ARGSFL_DELIM, NULL }, /* Sx */ 239241675Suqs { ARGSFL_DELIM, NULL }, /* Sy */ 240241675Suqs { ARGSFL_DELIM, NULL }, /* Tn */ 241241675Suqs { ARGSFL_DELIM, NULL }, /* Ux */ 242241675Suqs { ARGSFL_DELIM, NULL }, /* Xc */ 243241675Suqs { ARGSFL_NONE, NULL }, /* Xo */ 244274880Sbapt { ARGSFL_NONE, NULL }, /* Fo */ 245274880Sbapt { ARGSFL_DELIM, NULL }, /* Fc */ 246241675Suqs { ARGSFL_NONE, NULL }, /* Oo */ 247241675Suqs { ARGSFL_DELIM, NULL }, /* Oc */ 248241675Suqs { ARGSFL_NONE, args_Bk }, /* Bk */ 249241675Suqs { ARGSFL_NONE, NULL }, /* Ek */ 250241675Suqs { ARGSFL_NONE, NULL }, /* Bt */ 251241675Suqs { ARGSFL_NONE, NULL }, /* Hf */ 252274880Sbapt { ARGSFL_DELIM, NULL }, /* Fr */ 253241675Suqs { ARGSFL_NONE, NULL }, /* Ud */ 254261344Suqs { ARGSFL_DELIM, NULL }, /* Lb */ 255241675Suqs { ARGSFL_NONE, NULL }, /* Lp */ 256241675Suqs { ARGSFL_DELIM, NULL }, /* Lk */ 257241675Suqs { ARGSFL_DELIM, NULL }, /* Mt */ 258241675Suqs { ARGSFL_DELIM, NULL }, /* Brq */ 259241675Suqs { ARGSFL_NONE, NULL }, /* Bro */ 260241675Suqs { ARGSFL_DELIM, NULL }, /* Brc */ 261241675Suqs { ARGSFL_NONE, NULL }, /* %C */ 262241675Suqs { ARGSFL_NONE, NULL }, /* Es */ 263274880Sbapt { ARGSFL_DELIM, NULL }, /* En */ 264261344Suqs { ARGSFL_DELIM, NULL }, /* Dx */ 265241675Suqs { ARGSFL_NONE, NULL }, /* %Q */ 266241675Suqs { ARGSFL_NONE, NULL }, /* %U */ 267241675Suqs { ARGSFL_NONE, NULL }, /* Ta */ 268241675Suqs}; 269322249Sbaptstatic const struct mdocarg *const mdocargs = __mdocargs - MDOC_Dd; 270241675Suqs 271241675Suqs 272241675Suqs/* 273275432Sbapt * Parse flags and their arguments from the input line. 274275432Sbapt * These come in the form -flag [argument ...]. 275275432Sbapt * Some flags take no argument, some one, some multiple. 276241675Suqs */ 277275432Sbaptvoid 278322249Sbaptmdoc_argv(struct roff_man *mdoc, int line, enum roff_tok tok, 279275432Sbapt struct mdoc_arg **reta, int *pos, char *buf) 280241675Suqs{ 281275432Sbapt struct mdoc_argv tmpv; 282275432Sbapt struct mdoc_argv **retv; 283275432Sbapt const enum mdocargt *argtable; 284275432Sbapt char *argname; 285275432Sbapt int ipos, retc; 286275432Sbapt char savechar; 287241675Suqs 288275432Sbapt *reta = NULL; 289241675Suqs 290275432Sbapt /* Which flags does this macro support? */ 291241675Suqs 292322249Sbapt assert(tok >= MDOC_Dd && tok < MDOC_MAX); 293275432Sbapt argtable = mdocargs[tok].argvs; 294275432Sbapt if (argtable == NULL) 295275432Sbapt return; 296241675Suqs 297275432Sbapt /* Loop over the flags on the input line. */ 298241675Suqs 299275432Sbapt ipos = *pos; 300275432Sbapt while (buf[ipos] == '-') { 301241675Suqs 302275432Sbapt /* Seek to the first unescaped space. */ 303241675Suqs 304275432Sbapt for (argname = buf + ++ipos; buf[ipos] != '\0'; ipos++) 305275432Sbapt if (buf[ipos] == ' ' && buf[ipos - 1] != '\\') 306275432Sbapt break; 307241675Suqs 308275432Sbapt /* 309275432Sbapt * We want to nil-terminate the word to look it up. 310275432Sbapt * But we may not have a flag, in which case we need 311275432Sbapt * to restore the line as-is. So keep around the 312275432Sbapt * stray byte, which we'll reset upon exiting. 313275432Sbapt */ 314241675Suqs 315275432Sbapt if ((savechar = buf[ipos]) != '\0') 316275432Sbapt buf[ipos++] = '\0'; 317241675Suqs 318275432Sbapt /* 319275432Sbapt * Now look up the word as a flag. Use temporary 320275432Sbapt * storage that we'll copy into the node's flags. 321275432Sbapt */ 322241675Suqs 323275432Sbapt while ((tmpv.arg = *argtable++) != MDOC_ARG_MAX) 324275432Sbapt if ( ! strcmp(argname, mdoc_argnames[tmpv.arg])) 325275432Sbapt break; 326275432Sbapt 327275432Sbapt /* If it isn't a flag, restore the saved byte. */ 328275432Sbapt 329275432Sbapt if (tmpv.arg == MDOC_ARG_MAX) { 330275432Sbapt if (savechar != '\0') 331275432Sbapt buf[ipos - 1] = savechar; 332241675Suqs break; 333275432Sbapt } 334241675Suqs 335275432Sbapt /* Read to the next word (the first argument). */ 336241675Suqs 337275432Sbapt while (buf[ipos] == ' ') 338275432Sbapt ipos++; 339241675Suqs 340275432Sbapt /* Parse the arguments of the flag. */ 341241675Suqs 342275432Sbapt tmpv.line = line; 343279527Sbapt tmpv.pos = *pos; 344275432Sbapt tmpv.sz = 0; 345275432Sbapt tmpv.value = NULL; 346241675Suqs 347275432Sbapt switch (argvflags[tmpv.arg]) { 348275432Sbapt case ARGV_SINGLE: 349275432Sbapt argv_single(mdoc, line, &tmpv, &ipos, buf); 350275432Sbapt break; 351275432Sbapt case ARGV_MULTI: 352275432Sbapt argv_multi(mdoc, line, &tmpv, &ipos, buf); 353275432Sbapt break; 354275432Sbapt case ARGV_NONE: 355275432Sbapt break; 356275432Sbapt } 357241675Suqs 358275432Sbapt /* Append to the return values. */ 359241675Suqs 360275432Sbapt if (*reta == NULL) 361275432Sbapt *reta = mandoc_calloc(1, sizeof(**reta)); 362241675Suqs 363275432Sbapt retc = ++(*reta)->argc; 364275432Sbapt retv = &(*reta)->argv; 365275432Sbapt *retv = mandoc_reallocarray(*retv, retc, sizeof(**retv)); 366275432Sbapt memcpy(*retv + retc - 1, &tmpv, sizeof(**retv)); 367275432Sbapt 368275432Sbapt /* Prepare for parsing the next flag. */ 369275432Sbapt 370275432Sbapt *pos = ipos; 371275432Sbapt argtable = mdocargs[tok].argvs; 372275432Sbapt } 373241675Suqs} 374241675Suqs 375241675Suqsvoid 376241675Suqsmdoc_argv_free(struct mdoc_arg *p) 377241675Suqs{ 378241675Suqs int i; 379241675Suqs 380241675Suqs if (NULL == p) 381241675Suqs return; 382241675Suqs 383241675Suqs if (p->refcnt) { 384241675Suqs --(p->refcnt); 385241675Suqs if (p->refcnt) 386241675Suqs return; 387241675Suqs } 388241675Suqs assert(p->argc); 389241675Suqs 390241675Suqs for (i = (int)p->argc - 1; i >= 0; i--) 391241675Suqs argn_free(p, i); 392241675Suqs 393241675Suqs free(p->argv); 394241675Suqs free(p); 395241675Suqs} 396241675Suqs 397241675Suqsstatic void 398241675Suqsargn_free(struct mdoc_arg *p, int iarg) 399241675Suqs{ 400241675Suqs struct mdoc_argv *arg; 401241675Suqs int j; 402241675Suqs 403241675Suqs arg = &p->argv[iarg]; 404241675Suqs 405241675Suqs if (arg->sz && arg->value) { 406274880Sbapt for (j = (int)arg->sz - 1; j >= 0; j--) 407241675Suqs free(arg->value[j]); 408241675Suqs free(arg->value); 409241675Suqs } 410241675Suqs 411241675Suqs for (--p->argc; iarg < (int)p->argc; iarg++) 412241675Suqs p->argv[iarg] = p->argv[iarg+1]; 413241675Suqs} 414241675Suqs 415241675Suqsenum margserr 416294113Sbaptmdoc_args(struct roff_man *mdoc, int line, int *pos, 417322249Sbapt char *buf, enum roff_tok tok, char **v) 418241675Suqs{ 419294113Sbapt struct roff_node *n; 420275432Sbapt char *v_local; 421241675Suqs enum argsflag fl; 422241675Suqs 423275432Sbapt if (v == NULL) 424275432Sbapt v = &v_local; 425294113Sbapt fl = tok == TOKEN_NONE ? ARGSFL_NONE : mdocargs[tok].flags; 426241675Suqs 427241675Suqs /* 428241675Suqs * We know that we're in an `It', so it's reasonable to expect 429241675Suqs * us to be sitting in a `Bl'. Someday this may not be the case 430241675Suqs * (if we allow random `It's sitting out there), so provide a 431241675Suqs * safe fall-back into the default behaviour. 432241675Suqs */ 433241675Suqs 434322249Sbapt if (tok == MDOC_It) { 435322249Sbapt for (n = mdoc->last; n != NULL; n = n->parent) { 436322249Sbapt if (n->tok != MDOC_Bl) 437322249Sbapt continue; 438322249Sbapt if (n->norm->Bl.type == LIST_column) 439241675Suqs fl = ARGSFL_TABSEP; 440322249Sbapt break; 441322249Sbapt } 442322249Sbapt } 443241675Suqs 444294113Sbapt return args(mdoc, line, pos, buf, fl, v); 445241675Suqs} 446241675Suqs 447241675Suqsstatic enum margserr 448294113Sbaptargs(struct roff_man *mdoc, int line, int *pos, 449241675Suqs char *buf, enum argsflag fl, char **v) 450241675Suqs{ 451294113Sbapt char *p; 452261344Suqs int pairs; 453241675Suqs 454294113Sbapt if (buf[*pos] == '\0') { 455294113Sbapt if (mdoc->flags & MDOC_PHRASELIT && 456294113Sbapt ! (mdoc->flags & MDOC_PHRASE)) { 457274880Sbapt mandoc_msg(MANDOCERR_ARG_QUOTE, 458274880Sbapt mdoc->parse, line, *pos, NULL); 459294113Sbapt mdoc->flags &= ~MDOC_PHRASELIT; 460294113Sbapt } 461294113Sbapt return ARGS_EOLN; 462241675Suqs } 463241675Suqs 464294113Sbapt *v = buf + *pos; 465241675Suqs 466294113Sbapt if (fl == ARGSFL_DELIM && args_checkpunct(buf, *pos)) 467294113Sbapt return ARGS_PUNCT; 468241675Suqs 469241675Suqs /* 470294113Sbapt * Tabs in `It' lines in `Bl -column' can't be escaped. 471294113Sbapt * Phrases are reparsed for `Ta' and other macros later. 472241675Suqs */ 473241675Suqs 474294113Sbapt if (fl == ARGSFL_TABSEP) { 475294113Sbapt if ((p = strchr(*v, '\t')) != NULL) { 476241675Suqs 477294113Sbapt /* 478294113Sbapt * Words right before and right after 479294113Sbapt * tab characters are not parsed, 480294113Sbapt * unless there is a blank in between. 481294113Sbapt */ 482241675Suqs 483316420Sbapt if (p > buf && p[-1] != ' ') 484294113Sbapt mdoc->flags |= MDOC_PHRASEQL; 485294113Sbapt if (p[1] != ' ') 486294113Sbapt mdoc->flags |= MDOC_PHRASEQN; 487241675Suqs 488294113Sbapt /* 489294113Sbapt * One or more blanks after a tab cause 490294113Sbapt * one leading blank in the next column. 491294113Sbapt * So skip all but one of them. 492294113Sbapt */ 493241675Suqs 494294113Sbapt *pos += (int)(p - *v) + 1; 495294113Sbapt while (buf[*pos] == ' ' && buf[*pos + 1] == ' ') 496294113Sbapt (*pos)++; 497241675Suqs 498294113Sbapt /* 499294113Sbapt * A tab at the end of an input line 500294113Sbapt * switches to the next column. 501294113Sbapt */ 502241675Suqs 503294113Sbapt if (buf[*pos] == '\0' || buf[*pos + 1] == '\0') 504294113Sbapt mdoc->flags |= MDOC_PHRASEQN; 505294113Sbapt } else { 506294113Sbapt p = strchr(*v, '\0'); 507294113Sbapt if (p[-1] == ' ') 508294113Sbapt mandoc_msg(MANDOCERR_SPACE_EOL, 509294113Sbapt mdoc->parse, line, *pos, NULL); 510294113Sbapt *pos += (int)(p - *v); 511241675Suqs } 512241675Suqs 513294113Sbapt /* Skip any trailing blank characters. */ 514294113Sbapt while (p > *v && p[-1] == ' ' && 515294113Sbapt (p - 1 == *v || p[-2] != '\\')) 516294113Sbapt p--; 517294113Sbapt *p = '\0'; 518241675Suqs 519294113Sbapt return ARGS_PHRASE; 520261344Suqs } 521241675Suqs 522261344Suqs /* 523241675Suqs * Process a quoted literal. A quote begins with a double-quote 524241675Suqs * and ends with a double-quote NOT preceded by a double-quote. 525261344Suqs * NUL-terminate the literal in place. 526261344Suqs * Collapse pairs of quotes inside quoted literals. 527241675Suqs * Whitespace is NOT involved in literal termination. 528241675Suqs */ 529241675Suqs 530294113Sbapt if (mdoc->flags & MDOC_PHRASELIT || buf[*pos] == '\"') { 531294113Sbapt if ( ! (mdoc->flags & MDOC_PHRASELIT)) 532241675Suqs *v = &buf[++(*pos)]; 533241675Suqs 534294113Sbapt if (mdoc->flags & MDOC_PHRASE) 535261344Suqs mdoc->flags |= MDOC_PHRASELIT; 536241675Suqs 537261344Suqs pairs = 0; 538241675Suqs for ( ; buf[*pos]; (*pos)++) { 539261344Suqs /* Move following text left after quoted quotes. */ 540261344Suqs if (pairs) 541261344Suqs buf[*pos - pairs] = buf[*pos]; 542241675Suqs if ('\"' != buf[*pos]) 543241675Suqs continue; 544261344Suqs /* Unquoted quotes end quoted args. */ 545241675Suqs if ('\"' != buf[*pos + 1]) 546241675Suqs break; 547261344Suqs /* Quoted quotes collapse. */ 548261344Suqs pairs++; 549241675Suqs (*pos)++; 550241675Suqs } 551261344Suqs if (pairs) 552261344Suqs buf[*pos - pairs] = '\0'; 553241675Suqs 554294113Sbapt if (buf[*pos] == '\0') { 555294113Sbapt if ( ! (mdoc->flags & MDOC_PHRASE)) 556294113Sbapt mandoc_msg(MANDOCERR_ARG_QUOTE, 557294113Sbapt mdoc->parse, line, *pos, NULL); 558322249Sbapt return ARGS_WORD; 559241675Suqs } 560241675Suqs 561261344Suqs mdoc->flags &= ~MDOC_PHRASELIT; 562241675Suqs buf[(*pos)++] = '\0'; 563241675Suqs 564241675Suqs if ('\0' == buf[*pos]) 565322249Sbapt return ARGS_WORD; 566241675Suqs 567241675Suqs while (' ' == buf[*pos]) 568241675Suqs (*pos)++; 569241675Suqs 570241675Suqs if ('\0' == buf[*pos]) 571274880Sbapt mandoc_msg(MANDOCERR_SPACE_EOL, mdoc->parse, 572274880Sbapt line, *pos, NULL); 573241675Suqs 574322249Sbapt return ARGS_WORD; 575241675Suqs } 576241675Suqs 577241675Suqs p = &buf[*pos]; 578261344Suqs *v = mandoc_getarg(mdoc->parse, &p, line, pos); 579241675Suqs 580294113Sbapt /* 581294113Sbapt * After parsing the last word in this phrase, 582294113Sbapt * tell lookup() whether or not to interpret it. 583294113Sbapt */ 584294113Sbapt 585294113Sbapt if (*p == '\0' && mdoc->flags & MDOC_PHRASEQL) { 586294113Sbapt mdoc->flags &= ~MDOC_PHRASEQL; 587294113Sbapt mdoc->flags |= MDOC_PHRASEQF; 588294113Sbapt } 589294113Sbapt return ARGS_WORD; 590241675Suqs} 591241675Suqs 592274880Sbapt/* 593241675Suqs * Check if the string consists only of space-separated closing 594241675Suqs * delimiters. This is a bit of a dance: the first must be a close 595241675Suqs * delimiter, but it may be followed by middle delimiters. Arbitrary 596241675Suqs * whitespace may separate these tokens. 597241675Suqs */ 598241675Suqsstatic int 599241675Suqsargs_checkpunct(const char *buf, int i) 600241675Suqs{ 601241675Suqs int j; 602241675Suqs char dbuf[DELIMSZ]; 603241675Suqs enum mdelim d; 604241675Suqs 605241675Suqs /* First token must be a close-delimiter. */ 606241675Suqs 607241675Suqs for (j = 0; buf[i] && ' ' != buf[i] && j < DELIMSZ; j++, i++) 608241675Suqs dbuf[j] = buf[i]; 609241675Suqs 610241675Suqs if (DELIMSZ == j) 611294113Sbapt return 0; 612241675Suqs 613241675Suqs dbuf[j] = '\0'; 614241675Suqs if (DELIM_CLOSE != mdoc_isdelim(dbuf)) 615294113Sbapt return 0; 616241675Suqs 617241675Suqs while (' ' == buf[i]) 618241675Suqs i++; 619241675Suqs 620241675Suqs /* Remaining must NOT be open/none. */ 621274880Sbapt 622241675Suqs while (buf[i]) { 623241675Suqs j = 0; 624241675Suqs while (buf[i] && ' ' != buf[i] && j < DELIMSZ) 625241675Suqs dbuf[j++] = buf[i++]; 626241675Suqs 627241675Suqs if (DELIMSZ == j) 628294113Sbapt return 0; 629241675Suqs 630241675Suqs dbuf[j] = '\0'; 631241675Suqs d = mdoc_isdelim(dbuf); 632241675Suqs if (DELIM_NONE == d || DELIM_OPEN == d) 633294113Sbapt return 0; 634241675Suqs 635241675Suqs while (' ' == buf[i]) 636241675Suqs i++; 637241675Suqs } 638241675Suqs 639294113Sbapt return '\0' == buf[i]; 640241675Suqs} 641241675Suqs 642275432Sbaptstatic void 643294113Sbaptargv_multi(struct roff_man *mdoc, int line, 644241675Suqs struct mdoc_argv *v, int *pos, char *buf) 645241675Suqs{ 646241675Suqs enum margserr ac; 647241675Suqs char *p; 648241675Suqs 649241675Suqs for (v->sz = 0; ; v->sz++) { 650275432Sbapt if (buf[*pos] == '-') 651241675Suqs break; 652261344Suqs ac = args(mdoc, line, pos, buf, ARGSFL_NONE, &p); 653275432Sbapt if (ac == ARGS_EOLN) 654241675Suqs break; 655241675Suqs 656275432Sbapt if (v->sz % MULTI_STEP == 0) 657274880Sbapt v->value = mandoc_reallocarray(v->value, 658274880Sbapt v->sz + MULTI_STEP, sizeof(char *)); 659241675Suqs 660241675Suqs v->value[(int)v->sz] = mandoc_strdup(p); 661241675Suqs } 662241675Suqs} 663241675Suqs 664275432Sbaptstatic void 665294113Sbaptargv_single(struct roff_man *mdoc, int line, 666241675Suqs struct mdoc_argv *v, int *pos, char *buf) 667241675Suqs{ 668241675Suqs enum margserr ac; 669241675Suqs char *p; 670241675Suqs 671261344Suqs ac = args(mdoc, line, pos, buf, ARGSFL_NONE, &p); 672275432Sbapt if (ac == ARGS_EOLN) 673275432Sbapt return; 674241675Suqs 675241675Suqs v->sz = 1; 676241675Suqs v->value = mandoc_malloc(sizeof(char *)); 677241675Suqs v->value[0] = mandoc_strdup(p); 678241675Suqs} 679