ref: 2537e65c9654edeacfb99ffa33c3b220294e2303
dir: /ren.c/
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "xroff.h"
struct word {
int beg; /* word beginning offset in buf */
int end; /* word ending offset in buf */
int wid; /* word width */
int blanks; /* blanks before word */
};
static char buf[LINELEN]; /* output buffer */
static int buflen;
static struct word words[LINELEN]; /* words in the buffer */
static int nwords;
static int wid; /* total width of the buffer */
static int ren_backed = -1; /* pushed back character */
static int req_br; /* pending .br request */
static int req_sp; /* pending .sp request */
static int ren_next(void)
{
int c = ren_backed >= 0 ? ren_backed : tr_next();
ren_backed = -1;
return c;
}
static void ren_back(int c)
{
ren_backed = c;
}
static int nextchar(char *s)
{
int c = ren_next();
int l = utf8len(c);
int i;
if (c < 0)
return 0;
s[0] = c;
for (i = 1; i < l; i++)
s[i] = ren_next();
s[l] = '\0';
return l;
}
static void adjust(char *s, int adj)
{
struct word *last = words;
struct word *cur;
int w = 0;
int lendiff;
int i;
int adj_div = 0;
int adj_rem = 0;
int n;
while (last < words + nwords && w + last->wid + last->blanks <= n_l) {
w += last->wid + last->blanks;
last++;
}
if (last > words)
last--;
n = last - words + 1;
if (adj && n > 1) {
adj_div = (n_l - w) / (n - 1);
adj_rem = n_l - w - adj_div * (n - 1);
}
for (i = 0; i < n - 1; i++)
words[i + 1].blanks += adj_div + (i < adj_rem);
for (cur = words; cur <= last; cur++) {
if (cur > words)
s += sprintf(s, "\\h'%du'", cur->blanks);
memcpy(s, buf + cur->beg, cur->end - cur->beg);
s += cur->end - cur->beg;
}
*s = '\0';
lendiff = n < nwords ? last[1].beg : buflen;
memmove(buf, buf + lendiff, buflen - lendiff);
buflen -= lendiff;
nwords -= n;
memmove(words, last + 1, nwords * sizeof(words[0]));
wid -= w;
for (i = 0; i < nwords; i++) {
words[i].beg -= lendiff;
words[i].end -= lendiff;
}
if (nwords)
wid -= words[0].blanks;
words[0].blanks = 0;
}
void tr_br(int argc, char **args)
{
req_br = 1;
}
void tr_sp(int argc, char **args)
{
tr_br(0, NULL);
if (argc > 1)
req_sp = tr_int(args[1], 0, 'v');
}
static void ren_ps(char *s)
{
int ps = !*s || !strcmp("0", s) ? n_s0 : tr_int(s, n_s, '\0');
n_s0 = n_s;
n_s = ps;
}
void tr_ps(int argc, char **args)
{
if (argc >= 2)
ren_ps(args[1]);
}
static void ren_ft(char *s)
{
int fn = !*s || !strcmp("P", s) ? n_f0 : dev_font(s);
if (fn >= 0) {
n_f0 = n_f;
n_f = fn;
}
}
void tr_ft(int argc, char **args)
{
if (argc > 1)
ren_ft(args[1]);
}
void tr_fp(int argc, char **args)
{
if (argc < 3)
return;
if (dev_mnt(atoi(args[1]), args[2], argc > 3 ? args[3] : args[2]) < 0)
errmsg("troff: failed to mount %s\n", args[2]);
}
static void escarg(char *s, int cmd)
{
int c;
c = ren_next();
if (cmd == 's' && (c == '-' || c == '+')) {
*s++ = c;
c = ren_next();
}
if (c == '(') {
*s++ = ren_next();
*s++ = ren_next();
*s = '\0';
return;
}
if (c == '\'') {
while (1) {
c = ren_next();
if (c == '\'' || c < 0)
break;
*s++ = c;
}
*s = '\0';
return;
}
*s++ = c;
if (cmd == 's' && c >= '1' && c <= '3') {
c = ren_next();
if (isdigit(c))
*s++ = c;
else
ren_back(c);
}
*s = '\0';
}
static void ren_br(int adj)
{
char out[LINELEN];
buf[buflen] = '\0';
if (buflen) {
adjust(out, adj);
out_put(out);
}
if (req_sp)
printf("v%d\n", req_sp);
req_br = 0;
req_sp = 0;
}
void render(void)
{
char c[LLEN];
char arg[LINELEN];
struct glyph *g;
int g_wid;
struct word *word = NULL;
int blanks = 0;
int newline = 0;
int r_s = n_s;
int r_f = n_f;
int esc = 0;
tr_br(0, NULL);
while (nextchar(c) > 0) {
g = NULL;
if (!word && (wid > n_l || req_br))
ren_br(wid > n_l ? n_ad : 0);
if (c[0] == ' ' || c[0] == '\n') {
if (word) {
word->end = buflen;
word = NULL;
}
if (c[0] == '\n')
newline = 1;
else
blanks += charwid(dev_spacewid(), n_s);
continue;
}
esc = 0;
if (c[0] == '\\') {
esc = 1;
nextchar(c);
if (c[0] == '(') {
int l = nextchar(c);
l += nextchar(c + l);
c[l] = '\0';
} else if (strchr("sf", c[0])) {
escarg(arg, c[0]);
if (c[0] == 'f')
ren_ft(arg);
if (c[0] == 's')
ren_ps(arg);
continue;
}
}
if (!word) {
word = &words[nwords++];
word->beg = buflen;
word->wid = 0;
if (newline)
word->blanks = charwid(dev_spacewid(), n_s);
else
word->blanks = blanks;
wid += blanks;
newline = 0;
blanks = 0;
}
if (r_s != n_s) {
buflen += sprintf(buf + buflen, "\\s(%02d", n_s);
r_s = n_s;
}
if (r_f != n_f) {
buflen += sprintf(buf + buflen, "\\f(%02d", n_f);
r_f = n_f;
}
if (utf8len(c[0]) == strlen(c))
buflen += sprintf(buf + buflen, "%s%s", esc ? "\\" : "", c);
else
buflen += sprintf(buf + buflen, "\\(%s", c);
g = dev_glyph(c, n_f);
g_wid = charwid(g ? g->wid : dev_spacewid(), n_s);
word->wid += g_wid;
wid += g_wid;
}
ren_br(wid > n_l ? n_ad : 0);
ren_br(0);
}