tbl_opts.c

   1 /*      $Id: tbl_opts.c,v 1.22 2018/12/12 21:54:35 schwarze Exp $ */
   2 /*
   3  * Copyright (c) 2009, 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv>
   4  * Copyright (c) 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 AUTHOR DISCLAIMS ALL WARRANTIES
  11  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  12  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR 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 <ctype.h>
  23 #include <stdio.h>
  24 #include <stdlib.h>
  25 #include <string.h>
  26
  27 #include "mandoc.h"
  28 #include "tbl.h"
  29 #include "libmandoc.h"
  30 #include "libroff.h"
  31
  32 #define KEY_DPOINT      0
  33 #define KEY_DELIM       1
  34 #define KEY_LINESIZE    2
  35 #define KEY_TAB         3
  36
  37 struct  tbl_phrase {
  38         const char      *name;
  39         int              key;
  40 };
  41
  42 static  const struct tbl_phrase keys[] = {
  43         {"decimalpoint", 0},
  44         {"delim",        0},
  45         {"linesize",     0},
  46         {"tab",          0},
  47         {"allbox",       TBL_OPT_ALLBOX | TBL_OPT_BOX},
  48         {"box",          TBL_OPT_BOX},
  49         {"frame",        TBL_OPT_BOX},
  50         {"center",       TBL_OPT_CENTRE},
  51         {"centre",       TBL_OPT_CENTRE},
  52         {"doublebox",    TBL_OPT_DBOX},
  53         {"doubleframe",  TBL_OPT_DBOX},
  54         {"expand",       TBL_OPT_EXPAND},
  55         {"nokeep",       TBL_OPT_NOKEEP},
  56         {"nospaces",     TBL_OPT_NOSPACE},
  57         {"nowarn",       TBL_OPT_NOWARN},
  58 };
  59
  60 #define KEY_MAXKEYS ((int)(sizeof(keys)/sizeof(keys[0])))
  61
  62 static  void     arg(struct tbl_node *, int, const char *, int *, int);
  63
  64
  65 static void
  66 arg(struct tbl_node *tbl, int ln, const char *p, int *pos, int key)
  67 {
  68         int              len, want;
  69
  70         while (p[*pos] == ' ' || p[*pos] == '\t')
  71                 (*pos)++;
  72
  73         /* Arguments are enclosed in parentheses. */
  74
  75         len = 0;
  76         if (p[*pos] == '(') {
  77                 (*pos)++;
  78                 while (p[*pos + len] != ')')
  79                         len++;
  80         }
  81
  82         switch (key) {
  83         case KEY_DELIM:
  84                 mandoc_vmsg(MANDOCERR_TBLOPT_EQN, tbl->parse,
  85                     ln, *pos, "%.*s", len, p + *pos);
  86                 want = 2;
  87                 break;
  88         case KEY_TAB:
  89                 want = 1;
  90                 if (len == want)
  91                         tbl->opts.tab = p[*pos];
  92                 break;
  93         case KEY_LINESIZE:
  94                 want = 0;
  95                 break;
  96         case KEY_DPOINT:
  97                 want = 1;
  98                 if (len == want)
  99                         tbl->opts.decimal = p[*pos];
 100                 break;
 101         default:
 102                 abort();
 103         }
 104
 105         if (len == 0)
 106                 mandoc_msg(MANDOCERR_TBLOPT_NOARG,
 107                     tbl->parse, ln, *pos, keys[key].name);
 108         else if (want && len != want)
 109                 mandoc_vmsg(MANDOCERR_TBLOPT_ARGSZ,
 110                     tbl->parse, ln, *pos, "%s want %d have %d",
 111                     keys[key].name, want, len);
 112
 113         *pos += len;
 114         if (p[*pos] == ')')
 115                 (*pos)++;
 116 }
 117
 118 /*
 119  * Parse one line of options up to the semicolon.
 120  * Each option can be preceded by blanks and/or commas,
 121  * and some options are followed by arguments.
 122  */
 123 void
 124 tbl_option(struct tbl_node *tbl, int ln, const char *p, int *offs)
 125 {
 126         int              i, pos, len;
 127
 128         pos = *offs;
 129         for (;;) {
 130                 while (p[pos] == ' ' || p[pos] == '\t' || p[pos] == ',')
 131                         pos++;
 132
 133                 if (p[pos] == ';') {
 134                         *offs = pos + 1;
 135                         return;
 136                 }
 137
 138                 /* Parse one option name. */
 139
 140                 len = 0;
 141                 while (isalpha((unsigned char)p[pos + len]))
 142                         len++;
 143
 144                 if (len == 0) {
 145                         mandoc_vmsg(MANDOCERR_TBLOPT_ALPHA,
 146                             tbl->parse, ln, pos, "%c", p[pos]);
 147                         pos++;
 148                         continue;
 149                 }
 150
 151                 /* Look up the option name. */
 152
 153                 i = 0;
 154                 while (i < KEY_MAXKEYS &&
 155                     (strncasecmp(p + pos, keys[i].name, len) ||
 156                      keys[i].name[len] != '\0'))
 157                         i++;
 158
 159                 if (i == KEY_MAXKEYS) {
 160                         mandoc_vmsg(MANDOCERR_TBLOPT_BAD, tbl->parse,
 161                             ln, pos, "%.*s", len, p + pos);
 162                         pos += len;
 163                         continue;
 164                 }
 165
 166                 /* Handle the option. */
 167
 168                 pos += len;
 169                 if (keys[i].key)
 170                         tbl->opts.opts |= keys[i].key;
 171                 else
 172                         arg(tbl, ln, p, &pos, i);
 173         }
 174 }