shithub: neatroff

ref: b90d9861a09c39d09fea4bec8ed11a1eafa9d159
dir: /out.c/

/* generating troff output */
#include <ctype.h>
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "roff.h"

static int out_nl = 1;

/* output troff code; newlines may appear only at the end of s */
static void out_out(char *s, va_list ap)
{
	out_nl = strchr(s, '\n') != NULL;
	vfprintf(stdout, s, ap);
}

/* output troff code; no preceding newline is necessary */
static void outnn(char *s, ...)
{
	va_list ap;
	va_start(ap, s);
	out_out(s, ap);
	va_end(ap);
}

/* output troff cmd; should appear after a newline */
void out(char *s, ...)
{
	va_list ap;
	if (!out_nl)
		outnn("\n");
	va_start(ap, s);
	out_out(s, ap);
	va_end(ap);
}

static int o_s = 10;
static int o_f = 1;
static int o_m = 0;

static void out_ps(int n)
{
	if (o_s != n) {
		o_s = n;
		out("s%d\n", o_s);
	}
}

static void out_ft(int n)
{
	if (n >= 0 && o_f != n) {
		o_f = n;
		out("f%d\n", o_f);
	}
}

static void out_clr(int n)
{
	if (n >= 0 && o_m != n) {
		o_m = n;
		out("m%s\n", clr_str(o_m));
	}
}

static int tok_num(char **s, int scale)
{
	char tok[ILNLEN];
	char *d = tok;
	while (isspace(**s))
		(*s)++;
	while (**s && !isspace(**s))
		*d++ = *(*s)++;
	*d = '\0';
	return eval(tok, scale);
}

static void out_draw(char *s)
{
	int c = *s++;
	out("D%c", c);
	switch (tolower(c)) {
	case 'l':
		outnn(" %d", tok_num(&s, 'm'));
		outnn(" %d", tok_num(&s, 'v'));
		outnn(" .");			/* dpost requires this */
		break;
	case 'c':
		outnn(" %d", tok_num(&s, 'm'));
		break;
	case 'e':
		outnn(" %d", tok_num(&s, 'm'));
		outnn(" %d", tok_num(&s, 'v'));
		break;
	case 'a':
		outnn(" %d", tok_num(&s, 'm'));
		outnn(" %d", tok_num(&s, 'v'));
		outnn(" %d", tok_num(&s, 'm'));
		outnn(" %d", tok_num(&s, 'v'));
		break;
	case '~':
	case 'p':
		outnn(" %d", tok_num(&s, 'm'));
		outnn(" %d", tok_num(&s, 'v'));
		while (*s) {
			outnn(" %d", tok_num(&s, 'm'));
			outnn(" %d", tok_num(&s, 'v'));
		}
		break;
	}
	outnn("\n");
}

static void outg(char *c, int fn)
{
	int ofn = o_f;
	out_ft(fn);
	if (utf8one(c))
		outnn("c%s%s", c, c[1] ? "\n" : "");
	else
		out("C%s\n", c[0] == c_ec && c[1] == '(' ? c + 2 : c);
	out_ft(ofn);
}

static void outc(char *c)
{
	struct glyph *g = dev_glyph(c, o_f);
	struct font *fn = dev_font(o_f);
	int cwid, bwid;
	if (!g)
		return;
	cwid = charwid(o_f, o_s, g->wid);
	bwid = DEVWID(o_s, g->wid);
	if (font_mapped(g->font, c))
		c = g->name;
	if (font_getcs(fn))
		outnn("h%d", (cwid - bwid) / 2);
	outg(c, dev_fontpos(g->font));
	if (font_getbd(fn)) {
		outnn("h%d", font_getbd(fn) - 1);
		outg(c, dev_fontpos(g->font));
		outnn("h%d", -font_getbd(fn) + 1);
	}
	if (font_getcs(fn))
		outnn("h%d", -(cwid - bwid) / 2);
	outnn("h%d", cwid);
}

void out_line(char *s)
{
	char c[ILNLEN + GNLEN * 4];
	int t;
	while ((t = escread(&s, c)) >= 0) {
		if (!t) {
			if (c[0] == c_ni || (c[0] == '\\' && c[1] == '\\')) {
				c[0] = c[1];
				c[1] = '\0';
			}
			if (c[0] == '\t' || c[0] == '
' ||
					!strcmp(c_hc, c) || !strcmp(c_bp, c))
				continue;
			outc(cmap_map(c));
			continue;
		}
		switch (t) {
		case 'D':
			out_draw(c);
			break;
		case 'f':
			out_ft(dev_pos(c));
			break;
		case 'h':
			outnn("h%d", eval(c, 'm'));
			break;
		case 'm':
			if (!n_cp)
				out_clr(clr_get(c));
			break;
		case 's':
			out_ps(eval_re(c, o_s, '\0'));
			break;
		case 'v':
			outnn("v%d", eval(c, 'v'));
			break;
		case 'X':
			out("x X %s\n", c);
			break;
		}
	}
}