bin/mandoc/mandoc.c

   1 /*      $Id: mandoc.c,v 1.103 2017/07/03 13:40:19 schwarze Exp $ */
   2 /*
   3  * Copyright (c) 2008-2011, 2014 Kristaps Dzonsons <kristaps@bsd.lv>
   4  * Copyright (c) 2011-2015, 2017 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 "config.h"
  19
  20 #include <sys/types.h>
  21
  22 #include <assert.h>
  23 #include <ctype.h>
  24 #include <errno.h>
  25 #include <limits.h>
  26 #include <stdlib.h>
  27 #include <stdio.h>
  28 #include <string.h>
  29 #include <time.h>
  30
  31 #include "mandoc_aux.h"
  32 #include "mandoc.h"
  33 #include "roff.h"
  34 #include "libmandoc.h"
  35
  36 static  int      a2time(time_t *, const char *, const char *);
  37 static  char    *time2a(time_t);
  38
  39
  40 enum mandoc_esc
  41 mandoc_escape(const char **end, const char **start, int *sz)
  42 {
  43         const char      *local_start;
  44         int              local_sz;
  45         char             term;
  46         enum mandoc_esc  gly;
  47
  48         /*
  49          * When the caller doesn't provide return storage,
  50          * use local storage.
  51          */
  52
  53         if (NULL == start)
  54                 start = &local_start;
  55         if (NULL == sz)
  56                 sz = &local_sz;
  57
  58         /*
  59          * Beyond the backslash, at least one input character
  60          * is part of the escape sequence.  With one exception
  61          * (see below), that character won't be returned.
  62          */
  63
  64         gly = ESCAPE_ERROR;
  65         *start = ++*end;
  66         *sz = 0;
  67         term = '\0';
  68
  69         switch ((*start)[-1]) {
  70         /*
  71          * First the glyphs.  There are several different forms of
  72          * these, but each eventually returns a substring of the glyph
  73          * name.
  74          */
  75         case '(':
  76                 gly = ESCAPE_SPECIAL;
  77                 *sz = 2;
  78                 break;
  79         case '[':
  80                 gly = ESCAPE_SPECIAL;
  81                 term = ']';
  82                 break;
  83         case 'C':
  84                 if ('\'' != **start)
  85                         return ESCAPE_ERROR;
  86                 *start = ++*end;
  87                 gly = ESCAPE_SPECIAL;
  88                 term = '\'';
  89                 break;
  90
  91         /*
  92          * Escapes taking no arguments at all.
  93          */
  94         case 'd':
  95         case 'u':
  96         case ',':
  97         case '/':
  98                 return ESCAPE_IGNORE;
  99         case 'p':
 100                 return ESCAPE_BREAK;
 101
 102         /*
 103          * The \z escape is supposed to output the following
 104          * character without advancing the cursor position.
 105          * Since we are mostly dealing with terminal mode,
 106          * let us just skip the next character.
 107          */
 108         case 'z':
 109                 return ESCAPE_SKIPCHAR;
 110
 111         /*
 112          * Handle all triggers matching \X(xy, \Xx, and \X[xxxx], where
 113          * 'X' is the trigger.  These have opaque sub-strings.
 114          */
 115         case 'F':
 116         case 'g':
 117         case 'k':
 118         case 'M':
 119         case 'm':
 120         case 'n':
 121         case 'V':
 122         case 'Y':
 123                 gly = ESCAPE_IGNORE;
 124                 /* FALLTHROUGH */
 125         case 'f':
 126                 if (ESCAPE_ERROR == gly)
 127                         gly = ESCAPE_FONT;
 128                 switch (**start) {
 129                 case '(':
 130                         *start = ++*end;
 131                         *sz = 2;
 132                         break;
 133                 case '[':
 134                         *start = ++*end;
 135                         term = ']';
 136                         break;
 137                 default:
 138                         *sz = 1;
 139                         break;
 140                 }
 141                 break;
 142
 143         /*
 144          * These escapes are of the form \X'Y', where 'X' is the trigger
 145          * and 'Y' is any string.  These have opaque sub-strings.
 146          * The \B and \w escapes are handled in roff.c, roff_res().
 147          */
 148         case 'A':
 149         case 'b':
 150         case 'D':
 151         case 'R':
 152         case 'X':
 153         case 'Z':
 154                 gly = ESCAPE_IGNORE;
 155                 /* FALLTHROUGH */
 156         case 'o':
 157                 if (**start == '\0')
 158                         return ESCAPE_ERROR;
 159                 if (gly == ESCAPE_ERROR)
 160                         gly = ESCAPE_OVERSTRIKE;
 161                 term = **start;
 162                 *start = ++*end;
 163                 break;
 164
 165         /*
 166          * These escapes are of the form \X'N', where 'X' is the trigger
 167          * and 'N' resolves to a numerical expression.
 168          */
 169         case 'h':
 170         case 'H':
 171         case 'L':
 172         case 'l':
 173         case 'S':
 174         case 'v':
 175         case 'x':
 176                 if (strchr(" %&()*+-./0123456789:<=>", **start)) {
 177                         if ('\0' != **start)
 178                                 ++*end;
 179                         return ESCAPE_ERROR;
 180                 }
 181                 switch ((*start)[-1]) {
 182                 case 'h':
 183                         gly = ESCAPE_HORIZ;
 184                         break;
 185                 case 'l':
 186                         gly = ESCAPE_HLINE;
 187                         break;
 188                 default:
 189                         gly = ESCAPE_IGNORE;
 190                         break;
 191                 }
 192                 term = **start;
 193                 *start = ++*end;
 194                 break;
 195
 196         /*
 197          * Special handling for the numbered character escape.
 198          * XXX Do any other escapes need similar handling?
 199          */
 200         case 'N':
 201                 if ('\0' == **start)
 202                         return ESCAPE_ERROR;
 203                 (*end)++;
 204                 if (isdigit((unsigned char)**start)) {
 205                         *sz = 1;
 206                         return ESCAPE_IGNORE;
 207                 }
 208                 (*start)++;
 209                 while (isdigit((unsigned char)**end))
 210                         (*end)++;
 211                 *sz = *end - *start;
 212                 if ('\0' != **end)
 213                         (*end)++;
 214                 return ESCAPE_NUMBERED;
 215
 216         /*
 217          * Sizes get a special category of their own.
 218          */
 219         case 's':
 220                 gly = ESCAPE_IGNORE;
 221
 222                 /* See +/- counts as a sign. */
 223                 if ('+' == **end || '-' == **end || ASCII_HYPH == **end)
 224                         *start = ++*end;
 225
 226                 switch (**end) {
 227                 case '(':
 228                         *start = ++*end;
 229                         *sz = 2;
 230                         break;
 231                 case '[':
 232                         *start = ++*end;
 233                         term = ']';
 234                         break;
 235                 case '\'':
 236                         *start = ++*end;
 237                         term = '\'';
 238                         break;
 239                 case '3':
 240                 case '2':
 241                 case '1':
 242                         *sz = (*end)[-1] == 's' &&
 243                             isdigit((unsigned char)(*end)[1]) ? 2 : 1;
 244                         break;
 245                 default:
 246                         *sz = 1;
 247                         break;
 248                 }
 249
 250                 break;
 251
 252         /*
 253          * Anything else is assumed to be a glyph.
 254          * In this case, pass back the character after the backslash.
 255          */
 256         default:
 257                 gly = ESCAPE_SPECIAL;
 258                 *start = --*end;
 259                 *sz = 1;
 260                 break;
 261         }
 262
 263         assert(ESCAPE_ERROR != gly);
 264
 265         /*
 266          * Read up to the terminating character,
 267          * paying attention to nested escapes.
 268          */
 269
 270         if ('\0' != term) {
 271                 while (**end != term) {
 272                         switch (**end) {
 273                         case '\0':
 274                                 return ESCAPE_ERROR;
 275                         case '\\':
 276                                 (*end)++;
 277                                 if (ESCAPE_ERROR ==
 278                                     mandoc_escape(end, NULL, NULL))
 279                                         return ESCAPE_ERROR;
 280                                 break;
 281                         default:
 282                                 (*end)++;
 283                                 break;
 284                         }
 285                 }
 286                 *sz = (*end)++ - *start;
 287         } else {
 288                 assert(*sz > 0);
 289                 if ((size_t)*sz > strlen(*start))
 290                         return ESCAPE_ERROR;
 291                 *end += *sz;
 292         }
 293
 294         /* Run post-processors. */
 295
 296         switch (gly) {
 297         case ESCAPE_FONT:
 298                 if (2 == *sz) {
 299                         if ('C' == **start) {
 300                                 /*
 301                                  * Treat constant-width font modes
 302                                  * just like regular font modes.
 303                                  */
 304                                 (*start)++;
 305                                 (*sz)--;
 306                         } else {
 307                                 if ('B' == (*start)[0] && 'I' == (*start)[1])
 308                                         gly = ESCAPE_FONTBI;
 309                                 break;
 310                         }
 311                 } else if (1 != *sz)
 312                         break;
 313
 314                 switch (**start) {
 315                 case '3':
 316                 case 'B':
 317                         gly = ESCAPE_FONTBOLD;
 318                         break;
 319                 case '2':
 320                 case 'I':
 321                         gly = ESCAPE_FONTITALIC;
 322                         break;
 323                 case 'P':
 324                         gly = ESCAPE_FONTPREV;
 325                         break;
 326                 case '1':
 327                 case 'R':
 328                         gly = ESCAPE_FONTROMAN;
 329                         break;
 330                 }
 331                 break;
 332         case ESCAPE_SPECIAL:
 333                 if (1 == *sz && 'c' == **start)
 334                         gly = ESCAPE_NOSPACE;
 335                 /*
 336                  * Unicode escapes are defined in groff as \[u0000]
 337                  * to \[u10FFFF], where the contained value must be
 338                  * a valid Unicode codepoint.  Here, however, only
 339                  * check the length and range.
 340                  */
 341                 if (**start != 'u' || *sz < 5 || *sz > 7)
 342                         break;
 343                 if (*sz == 7 && ((*start)[1] != '1' || (*start)[2] != '0'))
 344                         break;
 345                 if (*sz == 6 && (*start)[1] == '0')
 346                         break;
 347                 if (*sz == 5 && (*start)[1] == 'D' &&
 348                     strchr("89ABCDEF", (*start)[2]) != NULL)
 349                         break;
 350                 if ((int)strspn(*start + 1, "0123456789ABCDEFabcdef")
 351                     + 1 == *sz)
 352                         gly = ESCAPE_UNICODE;
 353                 break;
 354         default:
 355                 break;
 356         }
 357
 358         return gly;
 359 }
 360
 361 /*
 362  * Parse a quoted or unquoted roff-style request or macro argument.
 363  * Return a pointer to the parsed argument, which is either the original
 364  * pointer or advanced by one byte in case the argument is quoted.
 365  * NUL-terminate the argument in place.
 366  * Collapse pairs of quotes inside quoted arguments.
 367  * Advance the argument pointer to the next argument,
 368  * or to the NUL byte terminating the argument line.
 369  */
 370 char *
 371 mandoc_getarg(struct mparse *parse, char **cpp, int ln, int *pos)
 372 {
 373         char     *start, *cp;
 374         int       quoted, pairs, white;
 375
 376         /* Quoting can only start with a new word. */
 377         start = *cpp;
 378         quoted = 0;
 379         if ('"' == *start) {
 380                 quoted = 1;
 381                 start++;
 382         }
 383
 384         pairs = 0;
 385         white = 0;
 386         for (cp = start; '\0' != *cp; cp++) {
 387
 388                 /*
 389                  * Move the following text left
 390                  * after quoted quotes and after "\\" and "\t".
 391                  */
 392                 if (pairs)
 393                         cp[-pairs] = cp[0];
 394
 395                 if ('\\' == cp[0]) {
 396                         /*
 397                          * In copy mode, translate double to single
 398                          * backslashes and backslash-t to literal tabs.
 399                          */
 400                         switch (cp[1]) {
 401                         case 't':
 402                                 cp[0] = '\t';
 403                                 /* FALLTHROUGH */
 404                         case '\\':
 405                                 pairs++;
 406                                 cp++;
 407                                 break;
 408                         case ' ':
 409                                 /* Skip escaped blanks. */
 410                                 if (0 == quoted)
 411                                         cp++;
 412                                 break;
 413                         default:
 414                                 break;
 415                         }
 416                 } else if (0 == quoted) {
 417                         if (' ' == cp[0]) {
 418                                 /* Unescaped blanks end unquoted args. */
 419                                 white = 1;
 420                                 break;
 421                         }
 422                 } else if ('"' == cp[0]) {
 423                         if ('"' == cp[1]) {
 424                                 /* Quoted quotes collapse. */
 425                                 pairs++;
 426                                 cp++;
 427                         } else {
 428                                 /* Unquoted quotes end quoted args. */
 429                                 quoted = 2;
 430                                 break;
 431                         }
 432                 }
 433         }
 434
 435         /* Quoted argument without a closing quote. */
 436         if (1 == quoted)
 437                 mandoc_msg(MANDOCERR_ARG_QUOTE, parse, ln, *pos, NULL);
 438
 439         /* NUL-terminate this argument and move to the next one. */
 440         if (pairs)
 441                 cp[-pairs] = '\0';
 442         if ('\0' != *cp) {
 443                 *cp++ = '\0';
 444                 while (' ' == *cp)
 445                         cp++;
 446         }
 447         *pos += (int)(cp - start) + (quoted ? 1 : 0);
 448         *cpp = cp;
 449
 450         if ('\0' == *cp && (white || ' ' == cp[-1]))
 451                 mandoc_msg(MANDOCERR_SPACE_EOL, parse, ln, *pos, NULL);
 452
 453         return start;
 454 }
 455
 456 static int
 457 a2time(time_t *t, const char *fmt, const char *p)
 458 {
 459         struct tm        tm;
 460         char            *pp;
 461
 462         memset(&tm, 0, sizeof(struct tm));
 463
 464         pp = NULL;
 465 #if HAVE_STRPTIME
 466         pp = strptime(p, fmt, &tm);
 467 #endif
 468         if (NULL != pp && '\0' == *pp) {
 469                 *t = mktime(&tm);
 470                 return 1;
 471         }
 472
 473         return 0;
 474 }
 475
 476 static char *
 477 time2a(time_t t)
 478 {
 479         struct tm       *tm;
 480         char            *buf, *p;
 481         size_t           ssz;
 482         int              isz;
 483
 484         tm = localtime(&t);
 485         if (tm == NULL)
 486                 return NULL;
 487
 488         /*
 489          * Reserve space:
 490          * up to 9 characters for the month (September) + blank
 491          * up to 2 characters for the day + comma + blank
 492          * 4 characters for the year and a terminating '\0'
 493          */
 494
 495         p = buf = mandoc_malloc(10 + 4 + 4 + 1);
 496
 497         if ((ssz = strftime(p, 10 + 1, "%B ", tm)) == 0)
 498                 goto fail;
 499         p += (int)ssz;
 500
 501         /*
 502          * The output format is just "%d" here, not "%2d" or "%02d".
 503          * That's also the reason why we can't just format the
 504          * date as a whole with "%B %e, %Y" or "%B %d, %Y".
 505          * Besides, the present approach is less prone to buffer
 506          * overflows, in case anybody should ever introduce the bug
 507          * of looking at LC_TIME.
 508          */
 509
 510         if ((isz = snprintf(p, 4 + 1, "%d, ", tm->tm_mday)) == -1)
 511                 goto fail;
 512         p += isz;
 513
 514         if (strftime(p, 4 + 1, "%Y", tm) == 0)
 515                 goto fail;
 516         return buf;
 517
 518 fail:
 519         free(buf);
 520         return NULL;
 521 }
 522
 523 char *
 524 mandoc_normdate(struct roff_man *man, char *in, int ln, int pos)
 525 {
 526         char            *cp;
 527         time_t           t;
 528
 529         /* No date specified: use today's date. */
 530
 531         if (in == NULL || *in == '\0' || strcmp(in, "$" "Mdocdate$") == 0) {
 532                 mandoc_msg(MANDOCERR_DATE_MISSING, man->parse, ln, pos, NULL);
 533                 return time2a(time(NULL));
 534         }
 535
 536         /* Valid mdoc(7) date format. */
 537
 538         if (a2time(&t, "$" "Mdocdate: %b %d %Y $", in) ||
 539             a2time(&t, "%b %d, %Y", in)) {
 540                 cp = time2a(t);
 541                 if (t > time(NULL) + 86400)
 542                         mandoc_msg(MANDOCERR_DATE_FUTURE, man->parse,
 543                             ln, pos, cp);
 544                 return cp;
 545         }
 546
 547         /* In man(7), do not warn about the legacy format. */
 548
 549         if (a2time(&t, "%Y-%m-%d", in) == 0)
 550                 mandoc_msg(MANDOCERR_DATE_BAD, man->parse, ln, pos, in);
 551         else if (t > time(NULL) + 86400)
 552                 mandoc_msg(MANDOCERR_DATE_FUTURE, man->parse, ln, pos, in);
 553         else if (man->macroset == MACROSET_MDOC)
 554                 mandoc_vmsg(MANDOCERR_DATE_LEGACY, man->parse,
 555                     ln, pos, "Dd %s", in);
 556
 557         /* Use any non-mdoc(7) date verbatim. */
 558
 559         return mandoc_strdup(in);
 560 }
 561
 562 int
 563 mandoc_eos(const char *p, size_t sz)
 564 {
 565         const char      *q;
 566         int              enclosed, found;
 567
 568         if (0 == sz)
 569                 return 0;
 570
 571         /*
 572          * End-of-sentence recognition must include situations where
 573          * some symbols, such as `)', allow prior EOS punctuation to
 574          * propagate outward.
 575          */
 576
 577         enclosed = found = 0;
 578         for (q = p + (int)sz - 1; q >= p; q--) {
 579                 switch (*q) {
 580                 case '\"':
 581                 case '\'':
 582                 case ']':
 583                 case ')':
 584                         if (0 == found)
 585                                 enclosed = 1;
 586                         break;
 587                 case '.':
 588                 case '!':
 589                 case '?':
 590                         found = 1;
 591                         break;
 592                 default:
 593                         return found &&
 594                             (!enclosed || isalnum((unsigned char)*q));
 595                 }
 596         }
 597
 598         return found && !enclosed;
 599 }
 600
 601 /*
 602  * Convert a string to a long that may not be <0.
 603  * If the string is invalid, or is less than 0, return -1.
 604  */
 605 int
 606 mandoc_strntoi(const char *p, size_t sz, int base)
 607 {
 608         char             buf[32];
 609         char            *ep;
 610         long             v;
 611
 612         if (sz > 31)
 613                 return -1;
 614
 615         memcpy(buf, p, sz);
 616         buf[(int)sz] = '\0';
 617
 618         errno = 0;
 619         v = strtol(buf, &ep, base);
 620
 621         if (buf[0] == '\0' || *ep != '\0')
 622                 return -1;
 623
 624         if (v > INT_MAX)
 625                 v = INT_MAX;
 626         if (v < INT_MIN)
 627                 v = INT_MIN;
 628
 629         return (int)v;
 630 }