ref: 333bf8409e656a9676c60d94de7aaa0f0af1e58e
dir: /out.c/
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "xroff.h"
#define LINELEN 1024
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 utf8len(int c)
{
if (c <= 0x7f)
return 1;
if (c >= 0xfc)
return 6;
if (c >= 0xf8)
return 5;
if (c >= 0xf0)
return 4;
if (c >= 0xe0)
return 3;
if (c >= 0xc0)
return 2;
return 1;
}
static int nextchar(char *s)
{
int c = tr_next();
int l = utf8len(c);
int i;
if (c < 0)
return 0;
s[0] = c;
for (i = 1; i < l; i++)
s[i] = tr_next();
s[l] = '\0';
memcpy(buf + buflen, s, l + 1);
buflen += l;
return l;
}
static char *utf8get(char *d, char *s)
{
int l = utf8len(*s);
int i;
for (i = 0; i < l; i++)
d[i] = s[i];
d[l] = '\0';
return s + l;
}
static char *readint(char *s, int *d)
{
*d = 0;
while (isdigit(*s))
*d = *d * 10 + *s++ - '0';
return s;
}
static int charwid(int wid, int sz)
{
/* the original troff rounds the widths up */
return (wid * sz + dev_uwid - 1) / dev_uwid;
}
static int o_s, o_f;
static void flush(char *s)
{
struct glyph *g;
char c[LLEN];
int o_blank = 0;
printf("v%d\n", n_v);
printf("H%d\n", n_o + n_i);
while (*s) {
s = utf8get(c, s);
if (c[0] == '\\') {
s = utf8get(c, s);
if (c[0] == 's') {
s = readint(s, &o_s);
printf("s%d\n", o_s);
continue;
}
if (c[0] == 'f') {
s = readint(s, &o_f);
printf("f%d\n", o_f);
continue;
}
if (c[0] == '(') {
s = utf8get(c, s);
s = utf8get(c + strlen(c), s);
}
}
g = dev_glyph(c, o_f);
if (g) {
if (o_blank)
printf("h%d", charwid(dev_spacewid(), o_s));
if (utf8len(c[0]) == strlen(c)) {
printf("c%s%s", c, c[1] ? "\n" : "");
} else {
printf("C%s\n", c);
}
printf("h%d", charwid(g->wid, o_s));
o_blank = 0;
} else {
o_blank = 1;
}
}
}
static void down(int n)
{
printf("v%d\n", n);
}
static void adjust(char *s)
{
struct word *last = words;
int w = 0;
int lendiff;
int i;
if (!nwords) {
s[0] = '\0';
return;
}
while (last < words + nwords && w + last->wid + last->blanks <= n_l) {
w += last->wid + last->blanks;
last++;
}
if (last > words)
last--;
memcpy(s, buf, last->end);
s[last->end] = '\0';
lendiff = last + 1 < words + nwords ? last[1].beg : buflen;
memmove(buf, buf + lendiff, buflen - lendiff);
buflen -= lendiff;
nwords -= last - words + 1;
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)
{
char out[LINELEN];
buf[buflen] = '\0';
if (buflen) {
adjust(out);
flush(out);
}
o_s = n_s;
o_f = n_f;
}
void tr_sp(int argc, char **args)
{
tr_br(0, NULL);
if (argc > 1)
down(tr_int(args[1], 0, 'v'));
}
void tr_ps(int argc, char **args)
{
if (argc >= 2)
n_s = tr_int(args[1], n_s, '\0');
buflen += sprintf(buf + buflen, "\\s%d", n_s);
}
void tr_ft(int argc, char **args)
{
int fn;
if (argc < 2)
return;
fn = dev_font(args[1]);
if (fn >= 0)
n_f = fn;
buflen += sprintf(buf + buflen, "\\f%d", n_f);
}
void render(void)
{
char c[LLEN];
struct glyph *g;
struct word *word = NULL;
int word_beg;
int blanks = 0;
tr_br(0, NULL);
while (nextchar(c) > 0) {
g = NULL;
word_beg = buflen - strlen(c);
if (c[0] == '\\') {
nextchar(c);
if (c[0] == '(') {
int l = nextchar(c);
l += nextchar(c + l);
c[l] = '\0';
}
}
g = dev_glyph(c, n_f);
if (!g) {
blanks += charwid(dev_spacewid(), n_s);
word = NULL;
continue;
}
if (!word) {
word = &words[nwords++];
word->beg = word_beg;
word->wid = 0;
word->blanks = blanks;
wid += blanks;
blanks = 0;
}
word->end = buflen;
word->wid += charwid(g->wid, n_s);
wid += charwid(g->wid, n_s);
if (wid > n_l) {
word = NULL;
tr_br(0, NULL);
}
}
tr_br(0, NULL);
}