Return to tbl_option.c CVS log

Up to [local] / src / usr.bin / mandoc

Move tbl output from plain stdio to mandoc terminal output routines.
This fixes (1) all escape sequences and (2) some aspects of indentation.
Table column widths are still way off, though.
"move forward" deraadt@

/*	$Id: tbl_option.c,v 1.2 2010/10/15 21:33:47 schwarze Exp $ */
/*
 * Copyright (c) 2009 Kristaps Dzonsons <kristaps@kth.se>
 *
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */
#include <sys/queue.h>

#include <stdlib.h>
#include <string.h>

#include "out.h"
#include "term.h"
#include "tbl_extern.h"

struct	tbl_phrase {
	char		*name;
	int		 key;
	int		 ident;
#define	KEY_CENTRE	 0
#define	KEY_DELIM	 1
#define	KEY_EXPAND	 2
#define	KEY_BOX		 3
#define	KEY_DBOX	 4
#define	KEY_ALLBOX	 5
#define	KEY_TAB		 6
#define	KEY_LINESIZE	 7
#define	KEY_NOKEEP	 8
#define	KEY_DPOINT	 9
#define	KEY_NOSPACE	 10
#define	KEY_FRAME	 11
#define	KEY_DFRAME	 12
};

#define	KEY_MAXKEYS	 14

static	const struct tbl_phrase keys[KEY_MAXKEYS] = {
	{ "center",	 TBL_OPT_CENTRE,	KEY_CENTRE},
	{ "centre",	 TBL_OPT_CENTRE,	KEY_CENTRE},
	{ "delim",	 0,	       		KEY_DELIM},
	{ "expand",	 TBL_OPT_EXPAND,	KEY_EXPAND},
	{ "box",	 TBL_OPT_BOX,   	KEY_BOX},
	{ "doublebox",	 TBL_OPT_DBOX,  	KEY_DBOX},
	{ "allbox",	 TBL_OPT_ALLBOX,	KEY_ALLBOX},
	{ "frame",	 TBL_OPT_BOX,		KEY_FRAME},
	{ "doubleframe", TBL_OPT_DBOX,		KEY_DFRAME},
	{ "tab",	 0,			KEY_TAB},
	{ "linesize",	 0,			KEY_LINESIZE},
	{ "nokeep",	 TBL_OPT_NOKEEP,	KEY_NOKEEP},
	{ "decimalpoint", 0,			KEY_DPOINT},
	{ "nospaces",	 TBL_OPT_NOSPACE,	KEY_NOSPACE},
};

static	int		 arg(struct tbl *, const char *, 
				int, const char *, int *, int);
static	int		 opt(struct tbl *, const char *, 
				int, const char *, int *);

static int
arg(struct tbl *tbl, const char *f, int ln,
		const char *p, int *pos, int key)
{
	const char	*buf;
	int		 sv;

again:
	sv = *pos;

	switch (tbl_next(p, pos)) {
	case (TBL_TOK_OPENPAREN):
		break;
	case (TBL_TOK_SPACE):
		/* FALLTHROUGH */
	case (TBL_TOK_TAB):
		goto again;
	default:
		return(tbl_errx(tbl, ERR_SYNTAX, f, ln, sv));
	}

	sv = *pos;

	switch (tbl_next(p, pos)) {
	case (TBL_TOK_WORD):
		break;
	default:
		return(tbl_errx(tbl, ERR_SYNTAX, f, ln, sv));
	}

	buf = tbl_last();

	switch (key) {
	case (KEY_DELIM):
		if (2 != strlen(buf))
			return(tbl_errx(tbl, ERR_SYNTAX, f, ln, sv));
		tbl->delims[0] = buf[0];
		tbl->delims[1] = buf[1];
		break;
	case (KEY_TAB):
		if (1 != strlen(buf))
			return(tbl_errx(tbl, ERR_SYNTAX, f, ln, sv));
		tbl->tab = buf[0];
		break;
	case (KEY_LINESIZE):
		if (-1 == (tbl->linesize = tbl_last_uint()))
			return(tbl_errx(tbl, ERR_SYNTAX, f, ln, sv));
		break;
	case (KEY_DPOINT):
		if (1 != strlen(buf))
			return(tbl_errx(tbl, ERR_SYNTAX, f, ln, sv));
		tbl->decimal = buf[0];
		break;
	default:
		abort();
	}

	sv = *pos;

	switch (tbl_next(p, pos)) {
	case (TBL_TOK_CLOSEPAREN):
		break;
	default:
		return(tbl_errx(tbl, ERR_SYNTAX, f, ln, sv));
	}

	return(1);
}


static int
opt(struct tbl *tbl, const char *f, int ln, const char *p, int *pos)
{
	int		 i, sv;

again:
	sv = *pos;

	/*
	 * EBNF describing this section:
	 *
	 * options	::= option_list [:space:]* [;][\n]
	 * option_list	::= option option_tail
	 * option_tail	::= [:space:]+ option_list |
	 * 		::= epsilon
	 * option	::= [:alpha:]+ args
	 * args		::= [:space:]* [(] [:alpha:]+ [)]
	 */

	switch (tbl_next(p, pos)) {
	case (TBL_TOK_WORD):
		break;
	case (TBL_TOK_SPACE):
		/* FALLTHROUGH */
	case (TBL_TOK_TAB):
		goto again;
	case (TBL_TOK_SEMICOLON):
		tbl->part = TBL_PART_LAYOUT;
		return(1);
	default:
		return(tbl_errx(tbl, ERR_SYNTAX, f, ln, sv));
	}

	for (i = 0; i < KEY_MAXKEYS; i++) {
		if (strcasecmp(tbl_last(), keys[i].name))
			continue;
		if (keys[i].key) 
			tbl->opts |= keys[i].key;
		else if ( ! arg(tbl, f, ln, p, pos, keys[i].ident))
			return(0);

		break;
	}

	if (KEY_MAXKEYS == i)
		return(tbl_errx(tbl, ERR_OPTION, f, ln, sv));

	return(opt(tbl, f, ln, p, pos));
}


int
tbl_option(struct tbl *tbl, const char *f, int ln, const char *p)
{
	int		 pos;

	pos = 0;
	return(opt(tbl, f, ln, p, &pos));
}