version 1.38, 2010/07/25 19:37:38 |
version 1.45, 2010/09/27 23:03:44 |
|
|
#include "config.h" |
#include "config.h" |
#endif |
#endif |
|
|
#include <sys/param.h> |
#include <sys/types.h> |
|
|
#include <assert.h> |
#include <assert.h> |
#include <stdarg.h> |
#include <stdarg.h> |
|
|
#include <time.h> |
#include <time.h> |
#include <unistd.h> |
#include <unistd.h> |
|
|
|
#include "mandoc.h" |
#include "out.h" |
#include "out.h" |
#include "main.h" |
#include "main.h" |
#include "term.h" |
#include "term.h" |
Line 353 static const struct font fonts[TERMFONT__MAX] = { |
|
Line 354 static const struct font fonts[TERMFONT__MAX] = { |
|
|
|
/* These work the buffer used by the header and footer. */ |
/* These work the buffer used by the header and footer. */ |
#define PS_BUFSLOP 128 |
#define PS_BUFSLOP 128 |
#define PS_GROWBUF(p, sz) \ |
|
do if ((p)->engine.ps.psmargcur + (sz) > \ |
|
(p)->engine.ps.psmargsz) { \ |
|
(p)->engine.ps.psmargsz += /* CONSTCOND */ \ |
|
MAX(PS_BUFSLOP, (sz)); \ |
|
(p)->engine.ps.psmarg = realloc \ |
|
((p)->engine.ps.psmarg, \ |
|
(p)->engine.ps.psmargsz); \ |
|
if (NULL == (p)->engine.ps.psmarg) { \ |
|
perror(NULL); \ |
|
exit(EXIT_FAILURE); \ |
|
} \ |
|
} while (/* CONSTCOND */ 0) |
|
|
|
|
static void |
|
ps_growbuf(struct termp *p, size_t sz) |
|
{ |
|
if (p->engine.ps.psmargcur + sz <= p->engine.ps.psmargsz) |
|
return; |
|
|
|
if (sz < PS_BUFSLOP) |
|
sz = PS_BUFSLOP; |
|
|
|
p->engine.ps.psmargsz += sz; |
|
|
|
p->engine.ps.psmarg = realloc |
|
(p->engine.ps.psmarg, |
|
p->engine.ps.psmargsz); |
|
|
|
if (NULL == p->engine.ps.psmarg) { |
|
perror(NULL); |
|
exit((int)MANDOCLEVEL_SYSERR); |
|
} |
|
} |
|
|
static double ps_hspan(const struct termp *, |
static double ps_hspan(const struct termp *, |
const struct roffsu *); |
const struct roffsu *); |
static size_t ps_width(const struct termp *, char); |
static size_t ps_width(const struct termp *, char); |
Line 384 static void ps_printf(struct termp *, const char *, |
|
Line 392 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 struct termp *pspdf_alloc(char *); |
static struct termp *pspdf_alloc(char *); |
|
static void pdf_obj(struct termp *, size_t); |
|
|
|
|
void * |
void * |
Line 520 pspdf_free(void *arg) |
|
Line 529 pspdf_free(void *arg) |
|
|
|
if (p->engine.ps.psmarg) |
if (p->engine.ps.psmarg) |
free(p->engine.ps.psmarg); |
free(p->engine.ps.psmarg); |
|
if (p->engine.ps.pdfobjs) |
|
free(p->engine.ps.pdfobjs); |
|
|
term_free(p); |
term_free(p); |
} |
} |
Line 553 ps_printf(struct termp *p, const char *fmt, ...) |
|
Line 564 ps_printf(struct termp *p, const char *fmt, ...) |
|
* assumption that will cause pukeage if it's not the case. |
* assumption that will cause pukeage if it's not the case. |
*/ |
*/ |
|
|
PS_GROWBUF(p, PS_BUFSLOP); |
ps_growbuf(p, PS_BUFSLOP); |
|
|
pos = (int)p->engine.ps.psmargcur; |
pos = (int)p->engine.ps.psmargcur; |
len = vsnprintf(&p->engine.ps.psmarg[pos], PS_BUFSLOP, fmt, ap); |
len = vsnprintf(&p->engine.ps.psmarg[pos], PS_BUFSLOP, fmt, ap); |
Line 561 ps_printf(struct termp *p, const char *fmt, ...) |
|
Line 572 ps_printf(struct termp *p, const char *fmt, ...) |
|
va_end(ap); |
va_end(ap); |
|
|
p->engine.ps.psmargcur = strlen(p->engine.ps.psmarg); |
p->engine.ps.psmargcur = strlen(p->engine.ps.psmarg); |
p->engine.ps.pdfbytes += /* LINTED */ |
|
len < 0 ? 0 : (size_t)len; |
|
} |
} |
|
|
|
|
Line 574 ps_putchar(struct termp *p, char c) |
|
Line 583 ps_putchar(struct termp *p, char c) |
|
/* See ps_printf(). */ |
/* See ps_printf(). */ |
|
|
if ( ! (PS_MARGINS & p->engine.ps.flags)) { |
if ( ! (PS_MARGINS & p->engine.ps.flags)) { |
|
/* LINTED */ |
putchar(c); |
putchar(c); |
p->engine.ps.pdfbytes++; |
p->engine.ps.pdfbytes++; |
return; |
return; |
} |
} |
|
|
PS_GROWBUF(p, 2); |
ps_growbuf(p, 2); |
|
|
pos = (int)p->engine.ps.psmargcur++; |
pos = (int)p->engine.ps.psmargcur++; |
p->engine.ps.psmarg[pos++] = c; |
p->engine.ps.psmarg[pos++] = c; |
Line 588 ps_putchar(struct termp *p, char c) |
|
Line 598 ps_putchar(struct termp *p, char c) |
|
|
|
|
|
static void |
static void |
|
pdf_obj(struct termp *p, size_t obj) |
|
{ |
|
|
|
assert(obj > 0); |
|
|
|
if ((obj - 1) >= p->engine.ps.pdfobjsz) { |
|
p->engine.ps.pdfobjsz = obj + 128; |
|
p->engine.ps.pdfobjs = realloc |
|
(p->engine.ps.pdfobjs, |
|
p->engine.ps.pdfobjsz * sizeof(size_t)); |
|
if (NULL == p->engine.ps.pdfobjs) { |
|
perror(NULL); |
|
exit((int)MANDOCLEVEL_SYSERR); |
|
} |
|
} |
|
|
|
p->engine.ps.pdfobjs[(int)obj - 1] = p->engine.ps.pdfbytes; |
|
ps_printf(p, "%zu 0 obj\n", obj); |
|
} |
|
|
|
|
|
static void |
ps_closepage(struct termp *p) |
ps_closepage(struct termp *p) |
{ |
{ |
int i; |
int i; |
Line 612 ps_closepage(struct termp *p) |
|
Line 644 ps_closepage(struct termp *p) |
|
ps_printf(p, "endstream\nendobj\n"); |
ps_printf(p, "endstream\nendobj\n"); |
|
|
/* Length of content. */ |
/* Length of content. */ |
ps_printf(p, "%zu 0 obj\n", base + 1); |
pdf_obj(p, base + 1); |
ps_printf(p, "%zu\nendobj\n", len); |
ps_printf(p, "%zu\nendobj\n", len); |
|
|
/* Resource for content. */ |
/* Resource for content. */ |
ps_printf(p, "%zu 0 obj\n", base + 2); |
pdf_obj(p, base + 2); |
ps_printf(p, "<<\n/ProcSet [/PDF /Text]\n"); |
ps_printf(p, "<<\n/ProcSet [/PDF /Text]\n"); |
ps_printf(p, "/Font <<\n"); |
ps_printf(p, "/Font <<\n"); |
for (i = 0; i < 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>>\n"); |
|
|
/* Page node. */ |
/* Page node. */ |
ps_printf(p, "%zu 0 obj\n<<\n", base + 3); |
pdf_obj(p, base + 3); |
|
ps_printf(p, "<<\n"); |
ps_printf(p, "/Type /Page\n"); |
ps_printf(p, "/Type /Page\n"); |
ps_printf(p, "/Parent 2 0 R\n"); |
ps_printf(p, "/Parent 2 0 R\n"); |
ps_printf(p, "/Resources %zu 0 R\n", base + 2); |
ps_printf(p, "/Resources %zu 0 R\n", base + 2); |
Line 665 ps_end(struct termp *p) |
|
Line 698 ps_end(struct termp *p) |
|
return; |
return; |
} |
} |
|
|
ps_printf(p, "2 0 obj\n<<\n/Type /Pages\n"); |
pdf_obj(p, 2); |
|
ps_printf(p, "<<\n/Type /Pages\n"); |
ps_printf(p, "/MediaBox [0 0 %zu %zu]\n", |
ps_printf(p, "/MediaBox [0 0 %zu %zu]\n", |
(size_t)AFM2PNT(p, p->engine.ps.width), |
(size_t)AFM2PNT(p, p->engine.ps.width), |
(size_t)AFM2PNT(p, p->engine.ps.height)); |
(size_t)AFM2PNT(p, p->engine.ps.height)); |
Line 681 ps_end(struct termp *p) |
|
Line 715 ps_end(struct termp *p) |
|
p->engine.ps.pdfbody + 4; |
p->engine.ps.pdfbody + 4; |
|
|
ps_printf(p, "]\n>>\nendobj\n"); |
ps_printf(p, "]\n>>\nendobj\n"); |
ps_printf(p, "%zu 0 obj\n", base); |
pdf_obj(p, base); |
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"); |
Line 689 ps_end(struct termp *p) |
|
Line 723 ps_end(struct termp *p) |
|
xref = p->engine.ps.pdfbytes; |
xref = p->engine.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); |
ps_printf(p, "0000000000 65535 f\n"); |
ps_printf(p, "0000000000 65535 f \n"); |
|
|
|
for (i = 0; i < base; i++) |
|
ps_printf(p, "%.10zu 00000 n \n", |
|
p->engine.ps.pdfobjs[(int)i]); |
|
|
ps_printf(p, "trailer\n"); |
ps_printf(p, "trailer\n"); |
ps_printf(p, "<<\n"); |
ps_printf(p, "<<\n"); |
ps_printf(p, "/Size %zu\n", base + 1); |
ps_printf(p, "/Size %zu\n", base + 1); |
Line 718 ps_begin(struct termp *p) |
|
Line 757 ps_begin(struct termp *p) |
|
p->engine.ps.psmarg[0] = '\0'; |
p->engine.ps.psmarg[0] = '\0'; |
} |
} |
|
|
p->engine.ps.pdfbytes = 0; |
/*p->engine.ps.pdfbytes = 0;*/ |
p->engine.ps.psmargcur = 0; |
p->engine.ps.psmargcur = 0; |
p->engine.ps.flags = PS_MARGINS; |
p->engine.ps.flags = PS_MARGINS; |
p->engine.ps.pscol = p->engine.ps.left; |
p->engine.ps.pscol = p->engine.ps.left; |
Line 768 ps_begin(struct termp *p) |
|
Line 807 ps_begin(struct termp *p) |
|
ps_printf(p, "\n%%%%EndComments\n"); |
ps_printf(p, "\n%%%%EndComments\n"); |
} else { |
} else { |
ps_printf(p, "%%PDF-1.1\n"); |
ps_printf(p, "%%PDF-1.1\n"); |
ps_printf(p, "1 0 obj\n"); |
pdf_obj(p, 1); |
ps_printf(p, "<<\n"); |
ps_printf(p, "<<\n"); |
ps_printf(p, "/Creator mandoc-%s\n", VERSION); |
ps_printf(p, "/Creator mandoc-%s\n", VERSION); |
ps_printf(p, ">>\n"); |
ps_printf(p, ">>\n"); |
ps_printf(p, "endobj\n"); |
ps_printf(p, "endobj\n"); |
|
|
for (i = 0; i < (int)TERMFONT__MAX; i++) { |
for (i = 0; i < (int)TERMFONT__MAX; i++) { |
ps_printf(p, "%d 0 obj\n", i + 3); |
pdf_obj(p, (size_t)i + 3); |
ps_printf(p, "<<\n"); |
ps_printf(p, "<<\n"); |
ps_printf(p, "/Type /Font\n"); |
ps_printf(p, "/Type /Font\n"); |
ps_printf(p, "/Subtype /Type1\n"); |
ps_printf(p, "/Subtype /Type1\n"); |
Line 812 ps_pletter(struct termp *p, int c) |
|
Line 851 ps_pletter(struct termp *p, int c) |
|
fonts[(int)p->engine.ps.lastf].name, |
fonts[(int)p->engine.ps.lastf].name, |
p->engine.ps.scale); |
p->engine.ps.scale); |
} else { |
} else { |
ps_printf(p, "%zu 0 obj\n", |
pdf_obj(p, p->engine.ps.pdfbody + |
p->engine.ps.pdfbody + |
|
p->engine.ps.pages * 4); |
p->engine.ps.pages * 4); |
ps_printf(p, "<<\n"); |
ps_printf(p, "<<\n"); |
ps_printf(p, "/Length %zu 0 R\n", |
ps_printf(p, "/Length %zu 0 R\n", |
Line 870 ps_pletter(struct termp *p, int c) |
|
Line 908 ps_pletter(struct termp *p, int c) |
|
|
|
f = (int)p->engine.ps.lastf; |
f = (int)p->engine.ps.lastf; |
|
|
if (c <= 32 || (c - 32 > MAXCHAR)) { |
if (c <= 32 || (c - 32 >= MAXCHAR)) { |
ps_putchar(p, ' '); |
ps_putchar(p, ' '); |
p->engine.ps.pscol += (size_t)fonts[f].gly[0].wx; |
p->engine.ps.pscol += (size_t)fonts[f].gly[0].wx; |
return; |
return; |