371584c2eae4cf827fd406ba26c14f021adaaa70Yuri Pankov/* $Id: tbl_opts.c,v 1.21 2015/09/26 00:54:04 schwarze Exp $ */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore/*
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Copyright (c) 2009, 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv>
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Copyright (c) 2015 Ingo Schwarze <schwarze@openbsd.org>
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore *
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * Permission to use, copy, modify, and distribute this software for any
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * purpose with or without fee is hereby granted, provided that the above
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * copyright notice and this permission notice appear in all copies.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore *
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore#include "config.h"
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov#include <sys/types.h>
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore#include <ctype.h>
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore#include <stdio.h>
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore#include <stdlib.h>
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore#include <string.h>
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore#include "mandoc.h"
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore#include "libmandoc.h"
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore#include "libroff.h"
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov#define KEY_DPOINT 0
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov#define KEY_DELIM 1
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov#define KEY_LINESIZE 2
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov#define KEY_TAB 3
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amorestruct tbl_phrase {
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore const char *name;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore int key;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore};
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovstatic const struct tbl_phrase keys[] = {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov {"decimalpoint", 0},
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov {"delim", 0},
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov {"linesize", 0},
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov {"tab", 0},
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov {"allbox", TBL_OPT_ALLBOX | TBL_OPT_BOX},
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov {"box", TBL_OPT_BOX},
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov {"frame", TBL_OPT_BOX},
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov {"center", TBL_OPT_CENTRE},
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov {"centre", TBL_OPT_CENTRE},
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov {"doublebox", TBL_OPT_DBOX},
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov {"doubleframe", TBL_OPT_DBOX},
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov {"expand", TBL_OPT_EXPAND},
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov {"nokeep", TBL_OPT_NOKEEP},
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov {"nospaces", TBL_OPT_NOSPACE},
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov {"nowarn", TBL_OPT_NOWARN},
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov};
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov#define KEY_MAXKEYS ((int)(sizeof(keys)/sizeof(keys[0])))
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovstatic void arg(struct tbl_node *, int, const char *, int *, int);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovstatic void
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovarg(struct tbl_node *tbl, int ln, const char *p, int *pos, int key)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore{
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov int len, want;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov while (p[*pos] == ' ' || p[*pos] == '\t')
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore (*pos)++;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Arguments are enclosed in parentheses. */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov len = 0;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (p[*pos] == '(') {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov (*pos)++;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov while (p[*pos + len] != ')')
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov len++;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore }
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore switch (key) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov case KEY_DELIM:
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_vmsg(MANDOCERR_TBLOPT_EQN, tbl->parse,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov ln, *pos, "%.*s", len, p + *pos);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov want = 2;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov break;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov case KEY_TAB:
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov want = 1;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (len == want)
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov tbl->opts.tab = p[*pos];
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov break;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov case KEY_LINESIZE:
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov want = 0;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov break;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov case KEY_DPOINT:
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov want = 1;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (len == want)
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov tbl->opts.decimal = p[*pos];
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore break;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore default:
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore abort();
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore }
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (len == 0)
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_msg(MANDOCERR_TBLOPT_NOARG,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov tbl->parse, ln, *pos, keys[key].name);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov else if (want && len != want)
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_vmsg(MANDOCERR_TBLOPT_ARGSZ,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov tbl->parse, ln, *pos, "%s want %d have %d",
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov keys[key].name, want, len);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov *pos += len;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (p[*pos] == ')')
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov (*pos)++;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore}
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov/*
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Parse one line of options up to the semicolon.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * Each option can be preceded by blanks and/or commas,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov * and some options are followed by arguments.
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov */
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovvoid
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankovtbl_option(struct tbl_node *tbl, int ln, const char *p, int *offs)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore{
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov int i, pos, len;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov pos = *offs;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov for (;;) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov while (p[pos] == ' ' || p[pos] == '\t' || p[pos] == ',')
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov pos++;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (p[pos] == ';') {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov *offs = pos + 1;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov return;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov }
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Parse one option name. */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov len = 0;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov while (isalpha((unsigned char)p[pos + len]))
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov len++;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (len == 0) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_vmsg(MANDOCERR_TBLOPT_ALPHA,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov tbl->parse, ln, pos, "%c", p[pos]);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov pos++;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov continue;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov }
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Look up the option name. */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov i = 0;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov while (i < KEY_MAXKEYS &&
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov (strncasecmp(p + pos, keys[i].name, len) ||
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov keys[i].name[len] != '\0'))
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov i++;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (i == KEY_MAXKEYS) {
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov mandoc_vmsg(MANDOCERR_TBLOPT_BAD, tbl->parse,
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov ln, pos, "%.*s", len, p + pos);
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov pos += len;
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore continue;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov }
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov /* Handle the option. */
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov pos += len;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov if (keys[i].key)
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore tbl->opts.opts |= keys[i].key;
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov else
260e9a87725c090ba5835b1f9f0b62fa2f96036fYuri Pankov arg(tbl, ln, p, &pos, i);
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore }
95c635efb7c3b86efc493e0447eaec7aecca3f0fGarrett D'Amore}