mandoc/term_ps.c - diff

Return to term_ps.c CVS log

Up to [cvsweb.bsd.lv] / mandoc

Diff for /mandoc/term_ps.c between version 1.76 and 1.89

version 1.76, 2015/10/11 21:12:55

version 1.89, 2017/10/29 19:25:31

Line 1

/* $Id$ */

* Permission to use, copy, modify, and distribute this software for any

* purpose with or without fee is hereby granted, provided that the above

Line 20

#include <sys/types.h>

#include <assert.h>

#if HAVE_ERR

#include <err.h>

#endif

#include <stdarg.h>

#include <stdint.h>

#include <stdio.h>

Line 75 struct termp_ps {

Line 77 struct termp_ps {

size_t lineheight; /* line height (AFM units) */

size_t top; /* body top (AFM units) */

size_t bottom; /* body bottom (AFM units) */

const char *medianame; /* for DocumentMedia and PageSize */

size_t height; /* page height (AFM units */

size_t width; /* page width (AFM units) */

size_t lastwidth; /* page width before last ll */

Line 96 static void ps_begin(struct termp *);

Line 99 static void ps_begin(struct termp *);

static void ps_closepage(struct termp *);

static void ps_end(struct termp *);

static void ps_endline(struct termp *);

static void ps_fclose(struct termp *);

static void ps_growbuf(struct termp *, size_t);

static void ps_letter(struct termp *, int);

static void ps_pclose(struct termp *);

static void ps_plast(struct termp *);

static void ps_pletter(struct termp *, int);

#if __GNUC__ - 0 >= 4

static void ps_printf(struct termp *, const char *, ...)

__attribute__((__format__ (__printf__, 2, 3)))

__attribute__((__format__ (__printf__, 2, 3)));

#endif

static void ps_printf(struct termp *, const char *, ...);

static void ps_putchar(struct termp *, char);

static void ps_setfont(struct termp *, enum termfont);

static void ps_setwidth(struct termp *, int, int);

static struct termp *pspdf_alloc(const struct mchars *,

static struct termp *pspdf_alloc(const struct manoutput *);

const struct manoutput *);

static void pdf_obj(struct termp *, size_t);

Line 510 static const struct font fonts[TERMFONT__MAX] = {

};

void *

pdf_alloc(const struct mchars *mchars, const struct manoutput *outopts)

pdf_alloc(const struct manoutput *outopts)

{

struct termp *p;

if (NULL != (p = pspdf_alloc(mchars, outopts)))

if (NULL != (p = pspdf_alloc(outopts)))

p->type = TERMTYPE_PDF;

return p;

}

void *

ps_alloc(const struct mchars *mchars, const struct manoutput *outopts)

ps_alloc(const struct manoutput *outopts)

{

struct termp *p;

if (NULL != (p = pspdf_alloc(mchars, outopts)))

if (NULL != (p = pspdf_alloc(outopts)))

p->type = TERMTYPE_PS;

return p;

}

static struct termp *

pspdf_alloc(const struct mchars *mchars, const struct manoutput *outopts)

pspdf_alloc(const struct manoutput *outopts)

{

struct termp *p;

unsigned int pagex, pagey;

size_t marginx, marginy, lineheight;

const char *pp;

p = mandoc_calloc(1, sizeof(struct termp));

p = mandoc_calloc(1, sizeof(*p));

p->symtab = mchars;

p->tcol = p->tcols = mandoc_calloc(1, sizeof(*p->tcol));

p->maxtcol = 1;

p->enc = TERMENC_ASCII;

p->fontq = mandoc_reallocarray(NULL,

(p->fontsz = 8), sizeof(enum termfont));

(p->fontsz = 8), sizeof(*p->fontq));

p->fontq[0] = p->fontl = TERMFONT_NONE;

p->ps = mandoc_calloc(1, sizeof(struct termp_ps));

p->ps = mandoc_calloc(1, sizeof(*p->ps));

p->advance = ps_advance;

p->begin = ps_begin;

Line 558 pspdf_alloc(const struct mchars *mchars, const struct

Line 560 pspdf_alloc(const struct mchars *mchars, const struct

/* Default to US letter (millimetres). */

p->ps->medianame = "Letter";

pagex = 216;

pagey = 279;

Line 569 pspdf_alloc(const struct mchars *mchars, const struct

Line 572 pspdf_alloc(const struct mchars *mchars, const struct

pp = outopts->paper;

if (pp && strcasecmp(pp, "letter")) {

if (pp != NULL && strcasecmp(pp, "letter") != 0) {

if (0 == strcasecmp(pp, "a3")) {

if (strcasecmp(pp, "a3") == 0) {

p->ps->medianame = "A3";

pagex = 297;

pagey = 420;

} else if (0 == strcasecmp(pp, "a4")) {

} else if (strcasecmp(pp, "a4") == 0) {

p->ps->medianame = "A4";

pagex = 210;

pagey = 297;

} else if (0 == strcasecmp(pp, "a5")) {

} else if (strcasecmp(pp, "a5") == 0) {

p->ps->medianame = "A5";

pagex = 148;

pagey = 210;

} else if (0 == strcasecmp(pp, "legal")) {

} else if (strcasecmp(pp, "legal") == 0) {

p->ps->medianame = "Legal";

pagex = 216;

pagey = 356;

} else if (2 != sscanf(pp, "%ux%u", &pagex, &pagey))

} else if (sscanf(pp, "%ux%u", &pagex, &pagey) == 2)

p->ps->medianame = "CustomSize";

else

warnx("%s: Unknown paper", pp);

}

Line 595 pspdf_alloc(const struct mchars *mchars, const struct

Line 604 pspdf_alloc(const struct mchars *mchars, const struct

/* Remember millimetres -> AFM units. */

pagex = PNT2AFM(p, ((double)pagex * 2.834));

pagex = PNT2AFM(p, ((double)pagex * 72.0 / 25.4));

pagey = PNT2AFM(p, ((double)pagey * 2.834));

pagey = PNT2AFM(p, ((double)pagey * 72.0 / 25.4));

/* Margins are 1/9 the page x and y. */

Line 644 pspdf_free(void *arg)

Line 653 pspdf_free(void *arg)

p = (struct termp *)arg;

if (p->ps->psmarg)

free(p->ps->psmarg);

free(p->ps->pdfobjs);

if (p->ps->pdfobjs)

free(p->ps->pdfobjs);

free(p->ps);

term_free(p);

Line 743 ps_closepage(struct termp *p)

Line 750 ps_closepage(struct termp *p)

ps_printf(p, "%s", p->ps->psmarg);

if (TERMTYPE_PS != p->type) {

ps_printf(p, "ET\n");

len = p->ps->pdfbytes - p->ps->pdflastpg;

base = p->ps->pages * 4 + p->ps->pdfbody;

Line 760 ps_closepage(struct termp *p)

Line 765 ps_closepage(struct termp *p)

ps_printf(p, "/Font <<\n");

for (i = 0; i < (int)TERMFONT__MAX; i++)

ps_printf(p, "/F%d %d 0 R\n", i, 3 + i);

ps_printf(p, ">>\n>>\n");

ps_printf(p, ">>\n>>\nendobj\n");

/* Page node. */

pdf_obj(p, base + 3);

Line 784 ps_end(struct termp *p)

Line 789 ps_end(struct termp *p)

{

size_t i, xref, base;

ps_plast(p);

ps_pclose(p);

* At the end of the file, do one last showpage. This is the

* same behaviour as groff(1) and works for multiple pages as

Line 822 ps_end(struct termp *p)

Line 830 ps_end(struct termp *p)

ps_printf(p, "<<\n");

ps_printf(p, "/Type /Catalog\n");

ps_printf(p, "/Pages 2 0 R\n");

ps_printf(p, ">>\n");

ps_printf(p, ">>\nendobj\n");

xref = p->ps->pdfbytes;

ps_printf(p, "xref\n");

ps_printf(p, "0 %zu\n", base + 1);

Line 846 ps_end(struct termp *p)

Line 854 ps_end(struct termp *p)

static void

ps_begin(struct termp *p)

{

size_t width, height;

int i;

Line 887 ps_begin(struct termp *p)

Line 896 ps_begin(struct termp *p)

if (TERMTYPE_PS == p->type) {

width = AFM2PNT(p, p->ps->width);

height = AFM2PNT(p, p->ps->height);

ps_printf(p, "%%!PS-Adobe-3.0\n");

ps_printf(p, "%%%%DocumentData: Clean7Bit\n");

ps_printf(p, "%%%%Orientation: Portrait\n");

ps_printf(p, "%%%%Pages: (atend)\n");

ps_printf(p, "%%%%PageOrder: Ascend\n");

ps_printf(p, "%%%%DocumentMedia: "

ps_printf(p, "%%%%DocumentMedia: man-%s %zu %zu 0 () ()\n",

"Default %zu %zu 0 () ()\n",

p->ps->medianame, width, height);

(size_t)AFM2PNT(p, p->ps->width),

(size_t)AFM2PNT(p, p->ps->height));

ps_printf(p, "%%%%DocumentNeededResources: font");

for (i = 0; i < (int)TERMFONT__MAX; i++)

ps_printf(p, " %s", fonts[i].name);

ps_printf(p, "\n%%%%EndComments\n");

ps_printf(p, "%%%%BeginSetup\n");

ps_printf(p, "%%%%BeginFeature: *PageSize %s\n",

p->ps->medianame);

ps_printf(p, "<</PageSize [%zu %zu]>>setpagedevice\n",

width, height);

ps_printf(p, "%%%%EndFeature\n");

ps_printf(p, "%%%%EndSetup\n");

} else {

ps_printf(p, "%%PDF-1.1\n");

pdf_obj(p, 1);

Line 916 ps_begin(struct termp *p)

Line 933 ps_begin(struct termp *p)

ps_printf(p, "/Subtype /Type1\n");

ps_printf(p, "/Name /F%d\n", i);

ps_printf(p, "/BaseFont /%s\n", fonts[i].name);

ps_printf(p, ">>\n");

ps_printf(p, ">>\nendobj\n");

}

Line 986 ps_pletter(struct termp *p, int c)

Line 1003 ps_pletter(struct termp *p, int c)

switch (c) {

case '(':

/* FALLTHROUGH */

case ')':

/* FALLTHROUGH */

case '\\':

ps_putchar(p, '\\');

break;

Line 1029 ps_pclose(struct termp *p)

Line 1044 ps_pclose(struct termp *p)

p->ps->flags &= ~PS_INLINE;

}

/* If we have a `last' char that wasn't printed yet, print it now. */

static void

ps_fclose(struct termp *p)

ps_plast(struct termp *p)

{

size_t wx;

if (p->ps->last == '\0')

return;

/* Check the font mode; open a new scope if it doesn't match. */

if (p->ps->nextf != p->ps->lastf) {

ps_pclose(p);

ps_setfont(p, p->ps->nextf);

}

p->ps->nextf = TERMFONT_NONE;

* Strong closure: if we have a last-char, spit it out after

* For an overstrike, if a previous character

* checking that we're in the right font mode. This will of

* was wider, advance to center the new one.

* course open a new scope, if applicable.

* Following this, close out any scope that's open.

if (p->ps->last != '\0') {

if (p->ps->pscolnext) {

assert( ! (p->ps->flags & PS_BACKSP));

wx = fonts[p->ps->lastf].gly[(int)p->ps->last-32].wx;

if (p->ps->nextf != p->ps->lastf) {

if (p->ps->pscol + wx < p->ps->pscolnext)

ps_pclose(p);

p->ps->pscol = (p->ps->pscol +

ps_setfont(p, p->ps->nextf);

p->ps->pscolnext - wx) / 2;

}

p->ps->nextf = TERMFONT_NONE;

ps_pletter(p, p->ps->last);

p->ps->last = '\0';

}

if ( ! (PS_INLINE & p->ps->flags))

ps_pletter(p, p->ps->last);

return;

p->ps->last = '\0';

ps_pclose(p);

* For an overstrike, if a previous character

* was wider, advance to the end of the old one.

if (p->ps->pscol < p->ps->pscolnext) {

ps_pclose(p);

p->ps->pscol = p->ps->pscolnext;

}

static void

ps_letter(struct termp *p, int arg)

{

size_t savecol, wx;

size_t savecol;

char c;

c = arg >= 128 || arg <= 0 ? '?' : arg;

Line 1127 ps_letter(struct termp *p, int arg)

Line 1156 ps_letter(struct termp *p, int arg)

* Use them and print it.

if (p->ps->last != '\0') {

ps_plast(p);

if (p->ps->nextf != p->ps->lastf) {

ps_pclose(p);

ps_setfont(p, p->ps->nextf);

}

p->ps->nextf = TERMFONT_NONE;

* For an overstrike, if a previous character

* was wider, advance to center the new one.

if (p->ps->pscolnext) {

wx = fonts[p->ps->lastf].gly[(int)p->ps->last-32].wx;

if (p->ps->pscol + wx < p->ps->pscolnext)

p->ps->pscol = (p->ps->pscol +

p->ps->pscolnext - wx) / 2;

}

ps_pletter(p, p->ps->last);

* For an overstrike, if a previous character

* was wider, advance to the end of the old one.

if (p->ps->pscol < p->ps->pscolnext) {

ps_pclose(p);

p->ps->pscol = p->ps->pscolnext;

}

* Do not print the current character yet because font

* instructions might follow; only remember it.

* instructions might follow; only remember the character.

* For the first character, nothing else is done.

* It will get printed later from ps_plast().

* The final character will get printed from ps_fclose().

p->ps->last = c;

Line 1196 ps_advance(struct termp *p, size_t len)

Line 1194 ps_advance(struct termp *p, size_t len)

* and readjust our column settings.

ps_fclose(p);

ps_plast(p);

ps_pclose(p);

p->ps->pscol += len;

}

Line 1206 ps_endline(struct termp *p)

Line 1205 ps_endline(struct termp *p)

/* Close out any scopes we have open: we're at eoln. */

ps_fclose(p);

ps_plast(p);

ps_pclose(p);

* If we're in the margin, don't try to recalculate our current

Line 1237 ps_endline(struct termp *p)

}

ps_closepage(p);

p->tcol->offset -= p->ti;

p->ti = 0;

}

static void

CVSweb