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.80 and 1.90

version 1.80, 2015/12/23 20:50:13

version 1.90, 2017/11/02 14:53:02

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 66 struct termp_ps {

Line 67 struct termp_ps {

size_t pscol; /* visible column (AFM units) */

size_t pscolnext; /* used for overstrike */

size_t psrow; /* visible row (AFM units) */

size_t lastrow; /* psrow of the previous word */

char *psmarg; /* margin buf */

size_t psmargsz; /* margin buf size */

size_t psmargcur; /* cur index in margin buf */

Line 77 struct termp_ps {

Line 79 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 98 static void ps_begin(struct termp *);

Line 101 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);

Line 540 pspdf_alloc(const struct manoutput *outopts)

Line 541 pspdf_alloc(const struct manoutput *outopts)

size_t marginx, marginy, lineheight;

const char *pp;

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

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

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 manoutput *outopts)

Line 562 pspdf_alloc(const struct manoutput *outopts)

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

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

pagex = 216;

pagey = 279;

Line 569 pspdf_alloc(const struct manoutput *outopts)

Line 574 pspdf_alloc(const struct manoutput *outopts)

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 manoutput *outopts)

Line 606 pspdf_alloc(const struct manoutput *outopts)

/* 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 732 ps_closepage(struct termp *p)

Line 743 ps_closepage(struct termp *p)

* Close out a page that we've already flushed to output. In

* PostScript, we simply note that the page must be showed. In

* PostScript, we simply note that the page must be shown. In

* PDF, we must now create the Length, Resource, and Page node

* for the page contents.

Line 741 ps_closepage(struct termp *p)

Line 752 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 758 ps_closepage(struct termp *p)

Line 767 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 782 ps_end(struct termp *p)

Line 791 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 820 ps_end(struct termp *p)

Line 832 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 844 ps_end(struct termp *p)

Line 856 ps_end(struct termp *p)

static void

ps_begin(struct termp *p)

{

size_t width, height;

int i;

Line 861 ps_begin(struct termp *p)

Line 874 ps_begin(struct termp *p)

p->ps->flags = PS_MARGINS;

p->ps->pscol = p->ps->left;

p->ps->psrow = p->ps->header;

p->ps->lastrow = 0; /* impossible row */

ps_setfont(p, TERMFONT_NONE);

Line 885 ps_begin(struct termp *p)

Line 899 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, "\n%%%%DocumentSuppliedResources: "

"procset MandocProcs 1.0 0\n");

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

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

ps_printf(p, "%%%%BeginResource: procset MandocProcs "

"10170 10170\n");

/* The font size is effectively hard-coded for now. */

ps_printf(p, "/fs %zu def\n", p->ps->scale);

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

ps_printf(p, "/f%d { /%s fs selectfont } def\n",

i, fonts[i].name);

ps_printf(p, "/s { 3 1 roll moveto show } bind def\n");

ps_printf(p, "/c { exch currentpoint exch pop "

"moveto show } bind def\n");

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

ps_printf(p, "%%%%EndProlog\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 914 ps_begin(struct termp *p)

Line 951 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 939 ps_pletter(struct termp *p, int c)

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

if (TERMTYPE_PS == p->type) {

ps_printf(p, "%%%%Page: %zu %zu\n",

p->ps->pages + 1, p->ps->pages + 1);

ps_printf(p, "/%s %zu selectfont\n",

ps_printf(p, "f%d\n", (int)p->ps->lastf);

fonts[(int)p->ps->lastf].name,

p->ps->scale);

} else {

pdf_obj(p, p->ps->pdfbody +

p->ps->pages * 4);

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

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

ps_printf(p, "%.3f %.3f Td\n(",

AFM2PNT(p, p->ps->pscol),

AFM2PNT(p, p->ps->psrow));

} else

} else {

ps_printf(p, "%.3f %.3f moveto\n(",

ps_printf(p, "%.3f", AFM2PNT(p, p->ps->pscol));

AFM2PNT(p, p->ps->pscol),

if (p->ps->psrow != p->ps->lastrow)

AFM2PNT(p, p->ps->psrow));

ps_printf(p, " %.3f",

AFM2PNT(p, p->ps->psrow));

ps_printf(p, "(");

}

p->ps->flags |= PS_INLINE;

}

Line 1017 ps_pclose(struct termp *p)

Line 1055 ps_pclose(struct termp *p)

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

return;

if (TERMTYPE_PS != p->type) {

if (TERMTYPE_PS != p->type)

ps_printf(p, ") Tj\nET\n");

} else

else if (p->ps->psrow == p->ps->lastrow)

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

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

else {

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

p->ps->lastrow = p->ps->psrow;

}

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 1123 ps_letter(struct termp *p, int arg)

Line 1179 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 1192 ps_advance(struct termp *p, size_t len)

Line 1217 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 1202 ps_endline(struct termp *p)

Line 1228 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 1233 ps_endline(struct termp *p)

Line 1260 ps_endline(struct termp *p)

}

ps_closepage(p);

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

p->ti = 0;

}

static void

Line 1251 ps_setfont(struct termp *p, enum termfont f)

Line 1281 ps_setfont(struct termp *p, enum termfont f)

return;

if (TERMTYPE_PS == p->type)

ps_printf(p, "/%s %zu selectfont\n",

ps_printf(p, "f%d\n", (int)f);

fonts[(int)f].name, p->ps->scale);

else

ps_printf(p, "/F%d %zu Tf\n",

(int)f, p->ps->scale);

CVSweb