1 /* $OpenBSD: mdoc_argv.c,v 1.60 2015/04/19 13:59:37 schwarze Exp $ */ 2 /* 3 * Copyright (c) 2008, 2009, 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv> 4 * Copyright (c) 2012, 2014, 2015 Ingo Schwarze <schwarze@openbsd.org> 5 * 6 * Permission to use, copy, modify, and distribute this software for any 7 * purpose with or without fee is hereby granted, provided that the above 8 * copyright notice and this permission notice appear in all copies. 9 * 10 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHORS DISCLAIM ALL WARRANTIES 11 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF 12 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR 13 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES 14 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN 15 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF 16 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 17 */ 18 #include <sys/types.h> 19 20 #include <assert.h> 21 #include <stdlib.h> 22 #include <stdio.h> 23 #include <string.h> 24 25 #include "mandoc_aux.h" 26 #include "mandoc.h" 27 #include "roff.h" 28 #include "mdoc.h" 29 #include "libmandoc.h" 30 #include "libmdoc.h" 31 32 #define MULTI_STEP 5 /* pre-allocate argument values */ 33 #define DELIMSZ 6 /* max possible size of a delimiter */ 34 35 enum argsflag { 36 ARGSFL_NONE = 0, 37 ARGSFL_DELIM, /* handle delimiters of [[::delim::][ ]+]+ */ 38 ARGSFL_TABSEP /* handle tab/`Ta' separated phrases */ 39 }; 40 41 enum argvflag { 42 ARGV_NONE, /* no args to flag (e.g., -split) */ 43 ARGV_SINGLE, /* one arg to flag (e.g., -file xxx) */ 44 ARGV_MULTI /* multiple args (e.g., -column xxx yyy) */ 45 }; 46 47 struct mdocarg { 48 enum argsflag flags; 49 const enum mdocargt *argvs; 50 }; 51 52 static void argn_free(struct mdoc_arg *, int); 53 static enum margserr args(struct roff_man *, int, int *, 54 char *, enum argsflag, char **); 55 static int args_checkpunct(const char *, int); 56 static void argv_multi(struct roff_man *, int, 57 struct mdoc_argv *, int *, char *); 58 static void argv_single(struct roff_man *, int, 59 struct mdoc_argv *, int *, char *); 60 61 static const enum argvflag argvflags[MDOC_ARG_MAX] = { 62 ARGV_NONE, /* MDOC_Split */ 63 ARGV_NONE, /* MDOC_Nosplit */ 64 ARGV_NONE, /* MDOC_Ragged */ 65 ARGV_NONE, /* MDOC_Unfilled */ 66 ARGV_NONE, /* MDOC_Literal */ 67 ARGV_SINGLE, /* MDOC_File */ 68 ARGV_SINGLE, /* MDOC_Offset */ 69 ARGV_NONE, /* MDOC_Bullet */ 70 ARGV_NONE, /* MDOC_Dash */ 71 ARGV_NONE, /* MDOC_Hyphen */ 72 ARGV_NONE, /* MDOC_Item */ 73 ARGV_NONE, /* MDOC_Enum */ 74 ARGV_NONE, /* MDOC_Tag */ 75 ARGV_NONE, /* MDOC_Diag */ 76 ARGV_NONE, /* MDOC_Hang */ 77 ARGV_NONE, /* MDOC_Ohang */ 78 ARGV_NONE, /* MDOC_Inset */ 79 ARGV_MULTI, /* MDOC_Column */ 80 ARGV_SINGLE, /* MDOC_Width */ 81 ARGV_NONE, /* MDOC_Compact */ 82 ARGV_NONE, /* MDOC_Std */ 83 ARGV_NONE, /* MDOC_Filled */ 84 ARGV_NONE, /* MDOC_Words */ 85 ARGV_NONE, /* MDOC_Emphasis */ 86 ARGV_NONE, /* MDOC_Symbolic */ 87 ARGV_NONE /* MDOC_Symbolic */ 88 }; 89 90 static const enum mdocargt args_Ex[] = { 91 MDOC_Std, 92 MDOC_ARG_MAX 93 }; 94 95 static const enum mdocargt args_An[] = { 96 MDOC_Split, 97 MDOC_Nosplit, 98 MDOC_ARG_MAX 99 }; 100 101 static const enum mdocargt args_Bd[] = { 102 MDOC_Ragged, 103 MDOC_Unfilled, 104 MDOC_Filled, 105 MDOC_Literal, 106 MDOC_File, 107 MDOC_Offset, 108 MDOC_Compact, 109 MDOC_Centred, 110 MDOC_ARG_MAX 111 }; 112 113 static const enum mdocargt args_Bf[] = { 114 MDOC_Emphasis, 115 MDOC_Literal, 116 MDOC_Symbolic, 117 MDOC_ARG_MAX 118 }; 119 120 static const enum mdocargt args_Bk[] = { 121 MDOC_Words, 122 MDOC_ARG_MAX 123 }; 124 125 static const enum mdocargt args_Bl[] = { 126 MDOC_Bullet, 127 MDOC_Dash, 128 MDOC_Hyphen, 129 MDOC_Item, 130 MDOC_Enum, 131 MDOC_Tag, 132 MDOC_Diag, 133 MDOC_Hang, 134 MDOC_Ohang, 135 MDOC_Inset, 136 MDOC_Column, 137 MDOC_Width, 138 MDOC_Offset, 139 MDOC_Compact, 140 MDOC_Nested, 141 MDOC_ARG_MAX 142 }; 143 144 static const struct mdocarg mdocargs[MDOC_MAX] = { 145 { ARGSFL_DELIM, NULL }, /* Ap */ 146 { ARGSFL_NONE, NULL }, /* Dd */ 147 { ARGSFL_NONE, NULL }, /* Dt */ 148 { ARGSFL_NONE, NULL }, /* Os */ 149 { ARGSFL_NONE, NULL }, /* Sh */ 150 { ARGSFL_NONE, NULL }, /* Ss */ 151 { ARGSFL_NONE, NULL }, /* Pp */ 152 { ARGSFL_DELIM, NULL }, /* D1 */ 153 { ARGSFL_DELIM, NULL }, /* Dl */ 154 { ARGSFL_NONE, args_Bd }, /* Bd */ 155 { ARGSFL_NONE, NULL }, /* Ed */ 156 { ARGSFL_NONE, args_Bl }, /* Bl */ 157 { ARGSFL_NONE, NULL }, /* El */ 158 { ARGSFL_NONE, NULL }, /* It */ 159 { ARGSFL_DELIM, NULL }, /* Ad */ 160 { ARGSFL_DELIM, args_An }, /* An */ 161 { ARGSFL_DELIM, NULL }, /* Ar */ 162 { ARGSFL_DELIM, NULL }, /* Cd */ 163 { ARGSFL_DELIM, NULL }, /* Cm */ 164 { ARGSFL_DELIM, NULL }, /* Dv */ 165 { ARGSFL_DELIM, NULL }, /* Er */ 166 { ARGSFL_DELIM, NULL }, /* Ev */ 167 { ARGSFL_NONE, args_Ex }, /* Ex */ 168 { ARGSFL_DELIM, NULL }, /* Fa */ 169 { ARGSFL_NONE, NULL }, /* Fd */ 170 { ARGSFL_DELIM, NULL }, /* Fl */ 171 { ARGSFL_DELIM, NULL }, /* Fn */ 172 { ARGSFL_DELIM, NULL }, /* Ft */ 173 { ARGSFL_DELIM, NULL }, /* Ic */ 174 { ARGSFL_DELIM, NULL }, /* In */ 175 { ARGSFL_DELIM, NULL }, /* Li */ 176 { ARGSFL_NONE, NULL }, /* Nd */ 177 { ARGSFL_DELIM, NULL }, /* Nm */ 178 { ARGSFL_DELIM, NULL }, /* Op */ 179 { ARGSFL_DELIM, NULL }, /* Ot */ 180 { ARGSFL_DELIM, NULL }, /* Pa */ 181 { ARGSFL_NONE, args_Ex }, /* Rv */ 182 { ARGSFL_DELIM, NULL }, /* St */ 183 { ARGSFL_DELIM, NULL }, /* Va */ 184 { ARGSFL_DELIM, NULL }, /* Vt */ 185 { ARGSFL_DELIM, NULL }, /* Xr */ 186 { ARGSFL_NONE, NULL }, /* %A */ 187 { ARGSFL_NONE, NULL }, /* %B */ 188 { ARGSFL_NONE, NULL }, /* %D */ 189 { ARGSFL_NONE, NULL }, /* %I */ 190 { ARGSFL_NONE, NULL }, /* %J */ 191 { ARGSFL_NONE, NULL }, /* %N */ 192 { ARGSFL_NONE, NULL }, /* %O */ 193 { ARGSFL_NONE, NULL }, /* %P */ 194 { ARGSFL_NONE, NULL }, /* %R */ 195 { ARGSFL_NONE, NULL }, /* %T */ 196 { ARGSFL_NONE, NULL }, /* %V */ 197 { ARGSFL_DELIM, NULL }, /* Ac */ 198 { ARGSFL_NONE, NULL }, /* Ao */ 199 { ARGSFL_DELIM, NULL }, /* Aq */ 200 { ARGSFL_DELIM, NULL }, /* At */ 201 { ARGSFL_DELIM, NULL }, /* Bc */ 202 { ARGSFL_NONE, args_Bf }, /* Bf */ 203 { ARGSFL_NONE, NULL }, /* Bo */ 204 { ARGSFL_DELIM, NULL }, /* Bq */ 205 { ARGSFL_DELIM, NULL }, /* Bsx */ 206 { ARGSFL_DELIM, NULL }, /* Bx */ 207 { ARGSFL_NONE, NULL }, /* Db */ 208 { ARGSFL_DELIM, NULL }, /* Dc */ 209 { ARGSFL_NONE, NULL }, /* Do */ 210 { ARGSFL_DELIM, NULL }, /* Dq */ 211 { ARGSFL_DELIM, NULL }, /* Ec */ 212 { ARGSFL_NONE, NULL }, /* Ef */ 213 { ARGSFL_DELIM, NULL }, /* Em */ 214 { ARGSFL_NONE, NULL }, /* Eo */ 215 { ARGSFL_DELIM, NULL }, /* Fx */ 216 { ARGSFL_DELIM, NULL }, /* Ms */ 217 { ARGSFL_DELIM, NULL }, /* No */ 218 { ARGSFL_DELIM, NULL }, /* Ns */ 219 { ARGSFL_DELIM, NULL }, /* Nx */ 220 { ARGSFL_DELIM, NULL }, /* Ox */ 221 { ARGSFL_DELIM, NULL }, /* Pc */ 222 { ARGSFL_DELIM, NULL }, /* Pf */ 223 { ARGSFL_NONE, NULL }, /* Po */ 224 { ARGSFL_DELIM, NULL }, /* Pq */ 225 { ARGSFL_DELIM, NULL }, /* Qc */ 226 { ARGSFL_DELIM, NULL }, /* Ql */ 227 { ARGSFL_NONE, NULL }, /* Qo */ 228 { ARGSFL_DELIM, NULL }, /* Qq */ 229 { ARGSFL_NONE, NULL }, /* Re */ 230 { ARGSFL_NONE, NULL }, /* Rs */ 231 { ARGSFL_DELIM, NULL }, /* Sc */ 232 { ARGSFL_NONE, NULL }, /* So */ 233 { ARGSFL_DELIM, NULL }, /* Sq */ 234 { ARGSFL_NONE, NULL }, /* Sm */ 235 { ARGSFL_DELIM, NULL }, /* Sx */ 236 { ARGSFL_DELIM, NULL }, /* Sy */ 237 { ARGSFL_DELIM, NULL }, /* Tn */ 238 { ARGSFL_DELIM, NULL }, /* Ux */ 239 { ARGSFL_DELIM, NULL }, /* Xc */ 240 { ARGSFL_NONE, NULL }, /* Xo */ 241 { ARGSFL_NONE, NULL }, /* Fo */ 242 { ARGSFL_DELIM, NULL }, /* Fc */ 243 { ARGSFL_NONE, NULL }, /* Oo */ 244 { ARGSFL_DELIM, NULL }, /* Oc */ 245 { ARGSFL_NONE, args_Bk }, /* Bk */ 246 { ARGSFL_NONE, NULL }, /* Ek */ 247 { ARGSFL_NONE, NULL }, /* Bt */ 248 { ARGSFL_NONE, NULL }, /* Hf */ 249 { ARGSFL_DELIM, NULL }, /* Fr */ 250 { ARGSFL_NONE, NULL }, /* Ud */ 251 { ARGSFL_DELIM, NULL }, /* Lb */ 252 { ARGSFL_NONE, NULL }, /* Lp */ 253 { ARGSFL_DELIM, NULL }, /* Lk */ 254 { ARGSFL_DELIM, NULL }, /* Mt */ 255 { ARGSFL_DELIM, NULL }, /* Brq */ 256 { ARGSFL_NONE, NULL }, /* Bro */ 257 { ARGSFL_DELIM, NULL }, /* Brc */ 258 { ARGSFL_NONE, NULL }, /* %C */ 259 { ARGSFL_NONE, NULL }, /* Es */ 260 { ARGSFL_DELIM, NULL }, /* En */ 261 { ARGSFL_DELIM, NULL }, /* Dx */ 262 { ARGSFL_NONE, NULL }, /* %Q */ 263 { ARGSFL_NONE, NULL }, /* br */ 264 { ARGSFL_NONE, NULL }, /* sp */ 265 { ARGSFL_NONE, NULL }, /* %U */ 266 { ARGSFL_NONE, NULL }, /* Ta */ 267 { ARGSFL_NONE, NULL }, /* ll */ 268 }; 269 270 271 /* 272 * Parse flags and their arguments from the input line. 273 * These come in the form -flag [argument ...]. 274 * Some flags take no argument, some one, some multiple. 275 */ 276 void 277 mdoc_argv(struct roff_man *mdoc, int line, int tok, 278 struct mdoc_arg **reta, int *pos, char *buf) 279 { 280 struct mdoc_argv tmpv; 281 struct mdoc_argv **retv; 282 const enum mdocargt *argtable; 283 char *argname; 284 int ipos, retc; 285 char savechar; 286 287 *reta = NULL; 288 289 /* Which flags does this macro support? */ 290 291 argtable = mdocargs[tok].argvs; 292 if (argtable == NULL) 293 return; 294 295 /* Loop over the flags on the input line. */ 296 297 ipos = *pos; 298 while (buf[ipos] == '-') { 299 300 /* Seek to the first unescaped space. */ 301 302 for (argname = buf + ++ipos; buf[ipos] != '\0'; ipos++) 303 if (buf[ipos] == ' ' && buf[ipos - 1] != '\\') 304 break; 305 306 /* 307 * We want to nil-terminate the word to look it up. 308 * But we may not have a flag, in which case we need 309 * to restore the line as-is. So keep around the 310 * stray byte, which we'll reset upon exiting. 311 */ 312 313 if ((savechar = buf[ipos]) != '\0') 314 buf[ipos++] = '\0'; 315 316 /* 317 * Now look up the word as a flag. Use temporary 318 * storage that we'll copy into the node's flags. 319 */ 320 321 while ((tmpv.arg = *argtable++) != MDOC_ARG_MAX) 322 if ( ! strcmp(argname, mdoc_argnames[tmpv.arg])) 323 break; 324 325 /* If it isn't a flag, restore the saved byte. */ 326 327 if (tmpv.arg == MDOC_ARG_MAX) { 328 if (savechar != '\0') 329 buf[ipos - 1] = savechar; 330 break; 331 } 332 333 /* Read to the next word (the first argument). */ 334 335 while (buf[ipos] == ' ') 336 ipos++; 337 338 /* Parse the arguments of the flag. */ 339 340 tmpv.line = line; 341 tmpv.pos = *pos; 342 tmpv.sz = 0; 343 tmpv.value = NULL; 344 345 switch (argvflags[tmpv.arg]) { 346 case ARGV_SINGLE: 347 argv_single(mdoc, line, &tmpv, &ipos, buf); 348 break; 349 case ARGV_MULTI: 350 argv_multi(mdoc, line, &tmpv, &ipos, buf); 351 break; 352 case ARGV_NONE: 353 break; 354 } 355 356 /* Append to the return values. */ 357 358 if (*reta == NULL) 359 *reta = mandoc_calloc(1, sizeof(**reta)); 360 361 retc = ++(*reta)->argc; 362 retv = &(*reta)->argv; 363 *retv = mandoc_reallocarray(*retv, retc, sizeof(**retv)); 364 memcpy(*retv + retc - 1, &tmpv, sizeof(**retv)); 365 366 /* Prepare for parsing the next flag. */ 367 368 *pos = ipos; 369 argtable = mdocargs[tok].argvs; 370 } 371 } 372 373 void 374 mdoc_argv_free(struct mdoc_arg *p) 375 { 376 int i; 377 378 if (NULL == p) 379 return; 380 381 if (p->refcnt) { 382 --(p->refcnt); 383 if (p->refcnt) 384 return; 385 } 386 assert(p->argc); 387 388 for (i = (int)p->argc - 1; i >= 0; i--) 389 argn_free(p, i); 390 391 free(p->argv); 392 free(p); 393 } 394 395 static void 396 argn_free(struct mdoc_arg *p, int iarg) 397 { 398 struct mdoc_argv *arg; 399 int j; 400 401 arg = &p->argv[iarg]; 402 403 if (arg->sz && arg->value) { 404 for (j = (int)arg->sz - 1; j >= 0; j--) 405 free(arg->value[j]); 406 free(arg->value); 407 } 408 409 for (--p->argc; iarg < (int)p->argc; iarg++) 410 p->argv[iarg] = p->argv[iarg+1]; 411 } 412 413 enum margserr 414 mdoc_args(struct roff_man *mdoc, int line, int *pos, 415 char *buf, int tok, char **v) 416 { 417 struct roff_node *n; 418 char *v_local; 419 enum argsflag fl; 420 421 if (v == NULL) 422 v = &v_local; 423 fl = tok == TOKEN_NONE ? ARGSFL_NONE : mdocargs[tok].flags; 424 if (tok != MDOC_It) 425 return(args(mdoc, line, pos, buf, fl, v)); 426 427 /* 428 * We know that we're in an `It', so it's reasonable to expect 429 * us to be sitting in a `Bl'. Someday this may not be the case 430 * (if we allow random `It's sitting out there), so provide a 431 * safe fall-back into the default behaviour. 432 */ 433 434 for (n = mdoc->last; n; n = n->parent) 435 if (MDOC_Bl == n->tok) 436 if (LIST_column == n->norm->Bl.type) { 437 fl = ARGSFL_TABSEP; 438 break; 439 } 440 441 return(args(mdoc, line, pos, buf, fl, v)); 442 } 443 444 static enum margserr 445 args(struct roff_man *mdoc, int line, int *pos, 446 char *buf, enum argsflag fl, char **v) 447 { 448 char *p, *pp; 449 int pairs; 450 enum margserr rc; 451 452 if ('\0' == buf[*pos]) { 453 if (MDOC_PPHRASE & mdoc->flags) 454 return(ARGS_EOLN); 455 /* 456 * If we're not in a partial phrase and the flag for 457 * being a phrase literal is still set, the punctuation 458 * is unterminated. 459 */ 460 if (MDOC_PHRASELIT & mdoc->flags) 461 mandoc_msg(MANDOCERR_ARG_QUOTE, 462 mdoc->parse, line, *pos, NULL); 463 464 mdoc->flags &= ~MDOC_PHRASELIT; 465 return(ARGS_EOLN); 466 } 467 468 *v = &buf[*pos]; 469 470 if (ARGSFL_DELIM == fl) 471 if (args_checkpunct(buf, *pos)) 472 return(ARGS_PUNCT); 473 474 /* 475 * First handle TABSEP items, restricted to `Bl -column'. This 476 * ignores conventional token parsing and instead uses tabs or 477 * `Ta' macros to separate phrases. Phrases are parsed again 478 * for arguments at a later phase. 479 */ 480 481 if (ARGSFL_TABSEP == fl) { 482 /* Scan ahead to tab (can't be escaped). */ 483 p = strchr(*v, '\t'); 484 pp = NULL; 485 486 /* Scan ahead to unescaped `Ta'. */ 487 if ( ! (MDOC_PHRASELIT & mdoc->flags)) 488 for (pp = *v; ; pp++) { 489 if (NULL == (pp = strstr(pp, "Ta"))) 490 break; 491 if (pp > *v && ' ' != *(pp - 1)) 492 continue; 493 if (' ' == *(pp + 2) || '\0' == *(pp + 2)) 494 break; 495 } 496 497 /* By default, assume a phrase. */ 498 rc = ARGS_PHRASE; 499 500 /* 501 * Adjust new-buffer position to be beyond delimiter 502 * mark (e.g., Ta -> end + 2). 503 */ 504 if (p && pp) { 505 *pos += pp < p ? 2 : 1; 506 rc = pp < p ? ARGS_PHRASE : ARGS_PPHRASE; 507 p = pp < p ? pp : p; 508 } else if (p && ! pp) { 509 rc = ARGS_PPHRASE; 510 *pos += 1; 511 } else if (pp && ! p) { 512 p = pp; 513 *pos += 2; 514 } else { 515 rc = ARGS_PEND; 516 p = strchr(*v, 0); 517 } 518 519 /* Whitespace check for eoln case... */ 520 if ('\0' == *p && ' ' == *(p - 1)) 521 mandoc_msg(MANDOCERR_SPACE_EOL, mdoc->parse, 522 line, *pos, NULL); 523 524 *pos += (int)(p - *v); 525 526 /* Strip delimiter's preceding whitespace. */ 527 pp = p - 1; 528 while (pp > *v && ' ' == *pp) { 529 if (pp > *v && '\\' == *(pp - 1)) 530 break; 531 pp--; 532 } 533 *(pp + 1) = 0; 534 535 /* Strip delimiter's proceeding whitespace. */ 536 for (pp = &buf[*pos]; ' ' == *pp; pp++, (*pos)++) 537 /* Skip ahead. */ ; 538 539 return(rc); 540 } 541 542 /* 543 * Process a quoted literal. A quote begins with a double-quote 544 * and ends with a double-quote NOT preceded by a double-quote. 545 * NUL-terminate the literal in place. 546 * Collapse pairs of quotes inside quoted literals. 547 * Whitespace is NOT involved in literal termination. 548 */ 549 550 if (MDOC_PHRASELIT & mdoc->flags || '\"' == buf[*pos]) { 551 if ( ! (MDOC_PHRASELIT & mdoc->flags)) 552 *v = &buf[++(*pos)]; 553 554 if (MDOC_PPHRASE & mdoc->flags) 555 mdoc->flags |= MDOC_PHRASELIT; 556 557 pairs = 0; 558 for ( ; buf[*pos]; (*pos)++) { 559 /* Move following text left after quoted quotes. */ 560 if (pairs) 561 buf[*pos - pairs] = buf[*pos]; 562 if ('\"' != buf[*pos]) 563 continue; 564 /* Unquoted quotes end quoted args. */ 565 if ('\"' != buf[*pos + 1]) 566 break; 567 /* Quoted quotes collapse. */ 568 pairs++; 569 (*pos)++; 570 } 571 if (pairs) 572 buf[*pos - pairs] = '\0'; 573 574 if ('\0' == buf[*pos]) { 575 if (MDOC_PPHRASE & mdoc->flags) 576 return(ARGS_QWORD); 577 mandoc_msg(MANDOCERR_ARG_QUOTE, 578 mdoc->parse, line, *pos, NULL); 579 return(ARGS_QWORD); 580 } 581 582 mdoc->flags &= ~MDOC_PHRASELIT; 583 buf[(*pos)++] = '\0'; 584 585 if ('\0' == buf[*pos]) 586 return(ARGS_QWORD); 587 588 while (' ' == buf[*pos]) 589 (*pos)++; 590 591 if ('\0' == buf[*pos]) 592 mandoc_msg(MANDOCERR_SPACE_EOL, mdoc->parse, 593 line, *pos, NULL); 594 595 return(ARGS_QWORD); 596 } 597 598 p = &buf[*pos]; 599 *v = mandoc_getarg(mdoc->parse, &p, line, pos); 600 601 return(ARGS_WORD); 602 } 603 604 /* 605 * Check if the string consists only of space-separated closing 606 * delimiters. This is a bit of a dance: the first must be a close 607 * delimiter, but it may be followed by middle delimiters. Arbitrary 608 * whitespace may separate these tokens. 609 */ 610 static int 611 args_checkpunct(const char *buf, int i) 612 { 613 int j; 614 char dbuf[DELIMSZ]; 615 enum mdelim d; 616 617 /* First token must be a close-delimiter. */ 618 619 for (j = 0; buf[i] && ' ' != buf[i] && j < DELIMSZ; j++, i++) 620 dbuf[j] = buf[i]; 621 622 if (DELIMSZ == j) 623 return(0); 624 625 dbuf[j] = '\0'; 626 if (DELIM_CLOSE != mdoc_isdelim(dbuf)) 627 return(0); 628 629 while (' ' == buf[i]) 630 i++; 631 632 /* Remaining must NOT be open/none. */ 633 634 while (buf[i]) { 635 j = 0; 636 while (buf[i] && ' ' != buf[i] && j < DELIMSZ) 637 dbuf[j++] = buf[i++]; 638 639 if (DELIMSZ == j) 640 return(0); 641 642 dbuf[j] = '\0'; 643 d = mdoc_isdelim(dbuf); 644 if (DELIM_NONE == d || DELIM_OPEN == d) 645 return(0); 646 647 while (' ' == buf[i]) 648 i++; 649 } 650 651 return('\0' == buf[i]); 652 } 653 654 static void 655 argv_multi(struct roff_man *mdoc, int line, 656 struct mdoc_argv *v, int *pos, char *buf) 657 { 658 enum margserr ac; 659 char *p; 660 661 for (v->sz = 0; ; v->sz++) { 662 if (buf[*pos] == '-') 663 break; 664 ac = args(mdoc, line, pos, buf, ARGSFL_NONE, &p); 665 if (ac == ARGS_EOLN) 666 break; 667 668 if (v->sz % MULTI_STEP == 0) 669 v->value = mandoc_reallocarray(v->value, 670 v->sz + MULTI_STEP, sizeof(char *)); 671 672 v->value[(int)v->sz] = mandoc_strdup(p); 673 } 674 } 675 676 static void 677 argv_single(struct roff_man *mdoc, int line, 678 struct mdoc_argv *v, int *pos, char *buf) 679 { 680 enum margserr ac; 681 char *p; 682 683 ac = args(mdoc, line, pos, buf, ARGSFL_NONE, &p); 684 if (ac == ARGS_EOLN) 685 return; 686 687 v->sz = 1; 688 v->value = mandoc_malloc(sizeof(char *)); 689 v->value[0] = mandoc_strdup(p); 690 } 691