version 1.76, 2015/10/11 21:12:55 |
version 1.92, 2020/09/06 14:45:22 |
|
|
/* $Id$ */ |
/* $Id$ */ |
/* |
/* |
* Copyright (c) 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv> |
* Copyright (c) 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv> |
* Copyright (c) 2014, 2015 Ingo Schwarze <schwarze@openbsd.org> |
* Copyright (c) 2014,2015,2016,2017,2020 Ingo Schwarze <schwarze@openbsd.org> |
|
* Copyright (c) 2017 Marc Espie <espie@openbsd.org> |
* |
* |
* Permission to use, copy, modify, and distribute this software for any |
* Permission to use, copy, modify, and distribute this software for any |
* purpose with or without fee is hereby granted, provided that the above |
* purpose with or without fee is hereby granted, provided that the above |
|
|
#include <sys/types.h> |
#include <sys/types.h> |
|
|
#include <assert.h> |
#include <assert.h> |
|
#if HAVE_ERR |
#include <err.h> |
#include <err.h> |
|
#endif |
#include <stdarg.h> |
#include <stdarg.h> |
#include <stdint.h> |
#include <stdint.h> |
#include <stdio.h> |
#include <stdio.h> |
Line 64 struct termp_ps { |
|
Line 67 struct termp_ps { |
|
size_t pscol; /* visible column (AFM units) */ |
size_t pscol; /* visible column (AFM units) */ |
size_t pscolnext; /* used for overstrike */ |
size_t pscolnext; /* used for overstrike */ |
size_t psrow; /* visible row (AFM units) */ |
size_t psrow; /* visible row (AFM units) */ |
|
size_t lastrow; /* psrow of the previous word */ |
char *psmarg; /* margin buf */ |
char *psmarg; /* margin buf */ |
size_t psmargsz; /* margin buf size */ |
size_t psmargsz; /* margin buf size */ |
size_t psmargcur; /* cur index in margin buf */ |
size_t psmargcur; /* cur index in margin buf */ |
Line 75 struct termp_ps { |
|
Line 79 struct termp_ps { |
|
size_t lineheight; /* line height (AFM units) */ |
size_t lineheight; /* line height (AFM units) */ |
size_t top; /* body top (AFM units) */ |
size_t top; /* body top (AFM units) */ |
size_t bottom; /* body bottom (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 height; /* page height (AFM units */ |
size_t width; /* page width (AFM units) */ |
size_t width; /* page width (AFM units) */ |
size_t lastwidth; /* page width before last ll */ |
size_t lastwidth; /* page width before last ll */ |
Line 96 static void ps_begin(struct termp *); |
|
Line 101 static void ps_begin(struct termp *); |
|
static void ps_closepage(struct termp *); |
static void ps_closepage(struct termp *); |
static void ps_end(struct termp *); |
static void ps_end(struct termp *); |
static void ps_endline(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_growbuf(struct termp *, size_t); |
static void ps_letter(struct termp *, int); |
static void ps_letter(struct termp *, int); |
static void ps_pclose(struct termp *); |
static void ps_pclose(struct termp *); |
|
static void ps_plast(struct termp *); |
static void ps_pletter(struct termp *, int); |
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_putchar(struct termp *, char); |
static void ps_setfont(struct termp *, enum termfont); |
static void ps_setfont(struct termp *, enum termfont); |
static void ps_setwidth(struct termp *, int, int); |
static void ps_setwidth(struct termp *, int, int); |
static struct termp *pspdf_alloc(const struct mchars *, |
static struct termp *pspdf_alloc(const struct manoutput *, enum termtype); |
const struct manoutput *); |
|
static void pdf_obj(struct termp *, size_t); |
static void pdf_obj(struct termp *, size_t); |
|
|
/* |
/* |
Line 510 static const struct font fonts[TERMFONT__MAX] = { |
|
Line 512 static const struct font fonts[TERMFONT__MAX] = { |
|
}; |
}; |
|
|
void * |
void * |
pdf_alloc(const struct mchars *mchars, const struct manoutput *outopts) |
pdf_alloc(const struct manoutput *outopts) |
{ |
{ |
struct termp *p; |
return pspdf_alloc(outopts, TERMTYPE_PDF); |
|
|
if (NULL != (p = pspdf_alloc(mchars, outopts))) |
|
p->type = TERMTYPE_PDF; |
|
|
|
return p; |
|
} |
} |
|
|
void * |
void * |
ps_alloc(const struct mchars *mchars, const struct manoutput *outopts) |
ps_alloc(const struct manoutput *outopts) |
{ |
{ |
struct termp *p; |
return pspdf_alloc(outopts, TERMTYPE_PS); |
|
|
if (NULL != (p = pspdf_alloc(mchars, outopts))) |
|
p->type = TERMTYPE_PS; |
|
|
|
return p; |
|
} |
} |
|
|
static struct termp * |
static struct termp * |
pspdf_alloc(const struct mchars *mchars, const struct manoutput *outopts) |
pspdf_alloc(const struct manoutput *outopts, enum termtype type) |
{ |
{ |
struct termp *p; |
struct termp *p; |
unsigned int pagex, pagey; |
unsigned int pagex, pagey; |
size_t marginx, marginy, lineheight; |
size_t marginx, marginy, lineheight; |
const char *pp; |
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->type = type; |
|
|
p->enc = TERMENC_ASCII; |
p->enc = TERMENC_ASCII; |
p->fontq = mandoc_reallocarray(NULL, |
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->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->advance = ps_advance; |
p->begin = ps_begin; |
p->begin = ps_begin; |
Line 558 pspdf_alloc(const struct mchars *mchars, const struct |
|
Line 553 pspdf_alloc(const struct mchars *mchars, const struct |
|
|
|
/* Default to US letter (millimetres). */ |
/* Default to US letter (millimetres). */ |
|
|
|
p->ps->medianame = "Letter"; |
pagex = 216; |
pagex = 216; |
pagey = 279; |
pagey = 279; |
|
|
Line 569 pspdf_alloc(const struct mchars *mchars, const struct |
|
Line 565 pspdf_alloc(const struct mchars *mchars, const struct |
|
*/ |
*/ |
|
|
pp = outopts->paper; |
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; |
pagex = 297; |
pagey = 420; |
pagey = 420; |
} else if (0 == strcasecmp(pp, "a4")) { |
} else if (strcasecmp(pp, "a4") == 0) { |
|
p->ps->medianame = "A4"; |
pagex = 210; |
pagex = 210; |
pagey = 297; |
pagey = 297; |
} else if (0 == strcasecmp(pp, "a5")) { |
} else if (strcasecmp(pp, "a5") == 0) { |
|
p->ps->medianame = "A5"; |
pagex = 148; |
pagex = 148; |
pagey = 210; |
pagey = 210; |
} else if (0 == strcasecmp(pp, "legal")) { |
} else if (strcasecmp(pp, "legal") == 0) { |
|
p->ps->medianame = "Legal"; |
pagex = 216; |
pagex = 216; |
pagey = 356; |
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); |
warnx("%s: Unknown paper", pp); |
} |
} |
|
|
Line 595 pspdf_alloc(const struct mchars *mchars, const struct |
|
Line 597 pspdf_alloc(const struct mchars *mchars, const struct |
|
|
|
/* Remember millimetres -> AFM units. */ |
/* 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. */ |
/* Margins are 1/9 the page x and y. */ |
|
|
Line 644 pspdf_free(void *arg) |
|
Line 646 pspdf_free(void *arg) |
|
|
|
p = (struct termp *)arg; |
p = (struct termp *)arg; |
|
|
if (p->ps->psmarg) |
free(p->ps->psmarg); |
free(p->ps->psmarg); |
free(p->ps->pdfobjs); |
if (p->ps->pdfobjs) |
|
free(p->ps->pdfobjs); |
|
|
|
free(p->ps); |
free(p->ps); |
term_free(p); |
term_free(p); |
Line 734 ps_closepage(struct termp *p) |
|
Line 734 ps_closepage(struct termp *p) |
|
|
|
/* |
/* |
* Close out a page that we've already flushed to output. In |
* 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 |
* PDF, we must now create the Length, Resource, and Page node |
* for the page contents. |
* for the page contents. |
*/ |
*/ |
Line 743 ps_closepage(struct termp *p) |
|
Line 743 ps_closepage(struct termp *p) |
|
ps_printf(p, "%s", p->ps->psmarg); |
ps_printf(p, "%s", p->ps->psmarg); |
|
|
if (TERMTYPE_PS != p->type) { |
if (TERMTYPE_PS != p->type) { |
ps_printf(p, "ET\n"); |
|
|
|
len = p->ps->pdfbytes - p->ps->pdflastpg; |
len = p->ps->pdfbytes - p->ps->pdflastpg; |
base = p->ps->pages * 4 + p->ps->pdfbody; |
base = p->ps->pages * 4 + p->ps->pdfbody; |
|
|
Line 760 ps_closepage(struct termp *p) |
|
Line 758 ps_closepage(struct termp *p) |
|
ps_printf(p, "/Font <<\n"); |
ps_printf(p, "/Font <<\n"); |
for (i = 0; i < (int)TERMFONT__MAX; i++) |
for (i = 0; i < (int)TERMFONT__MAX; i++) |
ps_printf(p, "/F%d %d 0 R\n", i, 3 + 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. */ |
/* Page node. */ |
pdf_obj(p, base + 3); |
pdf_obj(p, base + 3); |
Line 784 ps_end(struct termp *p) |
|
Line 782 ps_end(struct termp *p) |
|
{ |
{ |
size_t i, xref, base; |
size_t i, xref, base; |
|
|
|
ps_plast(p); |
|
ps_pclose(p); |
|
|
/* |
/* |
* At the end of the file, do one last showpage. This is the |
* At the end of the file, do one last showpage. This is the |
* same behaviour as groff(1) and works for multiple pages as |
* same behaviour as groff(1) and works for multiple pages as |
Line 822 ps_end(struct termp *p) |
|
Line 823 ps_end(struct termp *p) |
|
ps_printf(p, "<<\n"); |
ps_printf(p, "<<\n"); |
ps_printf(p, "/Type /Catalog\n"); |
ps_printf(p, "/Type /Catalog\n"); |
ps_printf(p, "/Pages 2 0 R\n"); |
ps_printf(p, "/Pages 2 0 R\n"); |
ps_printf(p, ">>\n"); |
ps_printf(p, ">>\nendobj\n"); |
xref = p->ps->pdfbytes; |
xref = p->ps->pdfbytes; |
ps_printf(p, "xref\n"); |
ps_printf(p, "xref\n"); |
ps_printf(p, "0 %zu\n", base + 1); |
ps_printf(p, "0 %zu\n", base + 1); |
Line 846 ps_end(struct termp *p) |
|
Line 847 ps_end(struct termp *p) |
|
static void |
static void |
ps_begin(struct termp *p) |
ps_begin(struct termp *p) |
{ |
{ |
|
size_t width, height; |
int i; |
int i; |
|
|
/* |
/* |
Line 863 ps_begin(struct termp *p) |
|
Line 865 ps_begin(struct termp *p) |
|
p->ps->flags = PS_MARGINS; |
p->ps->flags = PS_MARGINS; |
p->ps->pscol = p->ps->left; |
p->ps->pscol = p->ps->left; |
p->ps->psrow = p->ps->header; |
p->ps->psrow = p->ps->header; |
|
p->ps->lastrow = 0; /* impossible row */ |
|
|
ps_setfont(p, TERMFONT_NONE); |
ps_setfont(p, TERMFONT_NONE); |
|
|
Line 887 ps_begin(struct termp *p) |
|
Line 890 ps_begin(struct termp *p) |
|
*/ |
*/ |
|
|
if (TERMTYPE_PS == p->type) { |
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, "%%!PS-Adobe-3.0\n"); |
ps_printf(p, "%%%%DocumentData: Clean7Bit\n"); |
ps_printf(p, "%%%%DocumentData: Clean7Bit\n"); |
ps_printf(p, "%%%%Orientation: Portrait\n"); |
ps_printf(p, "%%%%Orientation: Portrait\n"); |
ps_printf(p, "%%%%Pages: (atend)\n"); |
ps_printf(p, "%%%%Pages: (atend)\n"); |
ps_printf(p, "%%%%PageOrder: Ascend\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"); |
ps_printf(p, "%%%%DocumentNeededResources: font"); |
|
|
for (i = 0; i < (int)TERMFONT__MAX; i++) |
for (i = 0; i < (int)TERMFONT__MAX; i++) |
ps_printf(p, " %s", fonts[i].name); |
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 { |
} else { |
ps_printf(p, "%%PDF-1.1\n"); |
ps_printf(p, "%%PDF-1.1\n"); |
pdf_obj(p, 1); |
pdf_obj(p, 1); |
Line 916 ps_begin(struct termp *p) |
|
Line 942 ps_begin(struct termp *p) |
|
ps_printf(p, "/Subtype /Type1\n"); |
ps_printf(p, "/Subtype /Type1\n"); |
ps_printf(p, "/Name /F%d\n", i); |
ps_printf(p, "/Name /F%d\n", i); |
ps_printf(p, "/BaseFont /%s\n", fonts[i].name); |
ps_printf(p, "/BaseFont /%s\n", fonts[i].name); |
ps_printf(p, ">>\n"); |
ps_printf(p, ">>\nendobj\n"); |
} |
} |
} |
} |
|
|
Line 941 ps_pletter(struct termp *p, int c) |
|
Line 967 ps_pletter(struct termp *p, int c) |
|
if (TERMTYPE_PS == p->type) { |
if (TERMTYPE_PS == p->type) { |
ps_printf(p, "%%%%Page: %zu %zu\n", |
ps_printf(p, "%%%%Page: %zu %zu\n", |
p->ps->pages + 1, p->ps->pages + 1); |
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 { |
} else { |
pdf_obj(p, p->ps->pdfbody + |
pdf_obj(p, p->ps->pdfbody + |
p->ps->pages * 4); |
p->ps->pages * 4); |
Line 968 ps_pletter(struct termp *p, int c) |
|
Line 992 ps_pletter(struct termp *p, int c) |
|
ps_printf(p, "%.3f %.3f Td\n(", |
ps_printf(p, "%.3f %.3f Td\n(", |
AFM2PNT(p, p->ps->pscol), |
AFM2PNT(p, p->ps->pscol), |
AFM2PNT(p, p->ps->psrow)); |
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; |
p->ps->flags |= PS_INLINE; |
} |
} |
|
|
Line 986 ps_pletter(struct termp *p, int c) |
|
Line 1013 ps_pletter(struct termp *p, int c) |
|
|
|
switch (c) { |
switch (c) { |
case '(': |
case '(': |
/* FALLTHROUGH */ |
|
case ')': |
case ')': |
/* FALLTHROUGH */ |
|
case '\\': |
case '\\': |
ps_putchar(p, '\\'); |
ps_putchar(p, '\\'); |
break; |
break; |
Line 1021 ps_pclose(struct termp *p) |
|
Line 1046 ps_pclose(struct termp *p) |
|
if ( ! (PS_INLINE & p->ps->flags)) |
if ( ! (PS_INLINE & p->ps->flags)) |
return; |
return; |
|
|
if (TERMTYPE_PS != p->type) { |
if (TERMTYPE_PS != p->type) |
ps_printf(p, ") Tj\nET\n"); |
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; |
p->ps->flags &= ~PS_INLINE; |
} |
} |
|
|
|
/* If we have a `last' char that wasn't printed yet, print it now. */ |
static void |
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 |
static void |
ps_letter(struct termp *p, int arg) |
ps_letter(struct termp *p, int arg) |
{ |
{ |
size_t savecol, wx; |
size_t savecol; |
char c; |
char c; |
|
|
c = arg >= 128 || arg <= 0 ? '?' : arg; |
c = arg >= 128 || arg <= 0 ? '?' : arg; |
Line 1127 ps_letter(struct termp *p, int arg) |
|
Line 1170 ps_letter(struct termp *p, int arg) |
|
* Use them and print it. |
* 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 |
* 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; |
p->ps->last = c; |
Line 1196 ps_advance(struct termp *p, size_t len) |
|
Line 1208 ps_advance(struct termp *p, size_t len) |
|
* and readjust our column settings. |
* and readjust our column settings. |
*/ |
*/ |
|
|
ps_fclose(p); |
ps_plast(p); |
|
ps_pclose(p); |
p->ps->pscol += len; |
p->ps->pscol += len; |
} |
} |
|
|
Line 1206 ps_endline(struct termp *p) |
|
Line 1219 ps_endline(struct termp *p) |
|
|
|
/* Close out any scopes we have open: we're at eoln. */ |
/* 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 |
* If we're in the margin, don't try to recalculate our current |
Line 1237 ps_endline(struct termp *p) |
|
Line 1251 ps_endline(struct termp *p) |
|
} |
} |
|
|
ps_closepage(p); |
ps_closepage(p); |
|
|
|
if ((int)p->tcol->offset > p->ti) |
|
p->tcol->offset -= p->ti; |
|
else |
|
p->tcol->offset = 0; |
|
p->ti = 0; |
} |
} |
|
|
static void |
static void |
Line 1255 ps_setfont(struct termp *p, enum termfont f) |
|
Line 1275 ps_setfont(struct termp *p, enum termfont f) |
|
return; |
return; |
|
|
if (TERMTYPE_PS == p->type) |
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 |
else |
ps_printf(p, "/F%d %zu Tf\n", |
ps_printf(p, "/F%d %zu Tf\n", |
(int)f, p->ps->scale); |
(int)f, p->ps->scale); |