shithub: neatroff

ref: cb39077a4a8e2be1b11b02c0f3f93730f8de4658
dir: /roff.c/

/*
 * neatroff troff clone
 *
 * Copyright (C) 2012-2013 Ali Gholami Rudi <ali at rudi dot ir>
 *
 * This program is released under the modified BSD license.
 */
#include <stdarg.h>
#include <stdio.h>
#include <string.h>
#include "roff.h"

static void g_init(void)
{
	n_o = SC_IN;
	n_p = SC_IN * 11;
	n_lg = 1;
	n_kn = 0;
}

void errmsg(char *fmt, ...)
{
	va_list ap;
	va_start(ap, fmt);
	vfprintf(stderr, fmt, ap);
	va_end(ap);
}

static char *usage =
	"Usage: neatcc [options] input\n"
	"Options:\n"
	"  -mx   \tinclude macro x\n"
	"  -C    \tenable compatibility mode\n"
	"  -Tdev \tset output device\n"
	"  -Fdir \tset font directory (" TROFFFDIR ")\n"
	"  -Mdir \tset macro directory (" TROFFMDIR ")\n";

int main(int argc, char **argv)
{
	char fontdir[PATHLEN] = TROFFFDIR;
	char macrodir[PATHLEN] = TROFFMDIR;
	char dev[PATHLEN] = "utf";
	char path[PATHLEN];
	int i;
	int ret;
	for (i = 1; i < argc; i++) {
		if (argv[i][0] != '-' || !argv[i][1])
			break;
		switch (argv[i][1]) {
		case 'C':
			n_cp = 1;
			break;
		case 'm':
			sprintf(path, "%s/tmac.%s", macrodir, argv[i] + 2);
			in_queue(path);
			break;
		case 'F':
			strcpy(fontdir, argv[i][2] ? argv[i] + 2 : argv[++i]);
			break;
		case 'M':
			strcpy(macrodir, argv[i][2] ? argv[i] + 2 : argv[++i]);
			break;
		case 'T':
			strcpy(dev, argv[i][2] ? argv[i] + 2 : argv[++i]);
			break;
		default:
			printf("%s", usage);
			return 0;
		}
	}
	if (dev_open(fontdir, dev)) {
		fprintf(stderr, "neatroff: cannot open device %s\n", dev);
		return 1;
	}
	env_init();
	tr_init();
	g_init();
	if (i == argc)
		in_queue(NULL);	/* reading from standard input */
	for (; i < argc; i++)
		in_queue(!strcmp("-", argv[i]) ? NULL : argv[i]);
	str_set(REG('.', 'P'), macrodir);
	out("s%d\n", n_s);
	out("f%d\n", n_f);
	ret = render();
	out("V%d\n", n_p);
	env_done();
	dev_close();
	return ret;
}