summaryrefslogtreecommitdiff
path: root/apps/pdftool.c
diff options
context:
space:
mode:
Diffstat (limited to 'apps/pdftool.c')
-rw-r--r--apps/pdftool.c2437
1 files changed, 0 insertions, 2437 deletions
diff --git a/apps/pdftool.c b/apps/pdftool.c
deleted file mode 100644
index cedc4412..00000000
--- a/apps/pdftool.c
+++ /dev/null
@@ -1,2437 +0,0 @@
-/*
- * Swiss army knife for manipulating and debugging PDFs.
- *
- * There are a few major modes of operation:
- *
- * show -- pretty-print objects and streams
- * draw -- render pages to bitmap
- * clean -- simple rewrite of pdf file
- * edit -- edit pages (impose and copy operations)
- */
-
-#include "fitz.h"
-#include "mupdf.h"
-
-#ifdef _MSC_VER
-#include <winsock2.h>
-#else
-#include <sys/time.h>
-#endif
-
-/* put these up here so we can clean up in die() */
-fz_renderer *drawgc = nil;
-void closesrc(void);
-
-/*
- * Common operations.
- * Parse page selectors.
- * Load and decrypt a PDF file.
- * Select pages.
- */
-
-char *srcname = "(null)";
-pdf_xref *src = nil;
-pdf_outline *srcoutline = nil;
-pdf_pagetree *srcpages = nil;
-
-void die(fz_error *eo)
-{
- fflush(stdout);
- fz_printerror(eo);
- fz_droperror(eo);
- fflush(stderr);
- if (drawgc)
- fz_droprenderer(drawgc);
- closesrc();
- abort();
-}
-
-void closesrc(void)
-{
- if (srcpages)
- {
- pdf_droppagetree(srcpages);
- srcpages = nil;
- }
-
- if (src)
- {
- if (src->store)
- {
- pdf_dropstore(src->store);
- src->store = nil;
- }
- pdf_closexref(src);
- src = nil;
- }
-
- srcname = nil;
-}
-
-void opensrc(char *filename, char *password, int loadpages)
-{
- fz_error *error;
- fz_obj *obj;
-
- closesrc();
-
- srcname = filename;
-
- error = pdf_newxref(&src);
- if (error)
- die(error);
-
- error = pdf_loadxref(src, filename);
- if (error)
- {
- fz_printerror(error);
- fz_droperror(error);
- fz_warn("trying to repair");
- error = pdf_repairxref(src, filename);
- if (error)
- die(error);
- }
-
- error = pdf_decryptxref(src);
- if (error)
- die(error);
-
- if (src->crypt)
- {
- int okay = pdf_setpassword(src->crypt, password);
- if (!okay)
- die(fz_throw("invalid password"));
- }
-
- if (loadpages)
- {
- error = pdf_loadpagetree(&srcpages, src);
- if (error)
- die(error);
- }
-
- /* TODO: move into mupdf lib, see pdfapp_open in pdfapp.c */
- obj = fz_dictgets(src->trailer, "Root");
- if (!obj)
- die(error);
-
- error = pdf_loadindirect(&src->root, src, obj);
- if (error)
- die(error);
-
- obj = fz_dictgets(src->trailer, "Info");
- if (obj)
- {
- error = pdf_loadindirect(&src->info, src, obj);
- if (error)
- die(error);
- }
-
- error = pdf_loadnametrees(src);
- if (error)
- die(error);
-
- error = pdf_loadoutline(&srcoutline, src);
- if (error)
- die(error);
-}
-
-void preloadobjstms(void)
-{
- fz_error *error;
- fz_obj *obj;
- int i;
-
- for (i = 0; i < src->len; i++)
- {
- if (src->table[i].type == 'o')
- {
- error = pdf_loadobject(&obj, src, i, 0);
- if (error) die(error);
- fz_dropobj(obj);
- }
- }
-}
-
-/* --------------------------------------------------------------------- */
-
-/*
- * Debug print parts of the PDF.
- */
-
-int showbinary = 0;
-int showdecode = 0;
-int showcolumn;
-
-void showusage(void)
-{
- fprintf(stderr, "usage: mupdftool show [-bd] <file> [xref] [trailer] [object numbers]\n");
- fprintf(stderr, " -b \tprint streams as raw binary data\n");
- fprintf(stderr, " -d \tdecode streams\n");
- exit(1);
-}
-
-void showtrailer(void)
-{
- if (!src)
- die(fz_throw("no file specified"));
- printf("trailer\n");
- fz_debugobj(src->trailer);
- printf("\n");
-}
-
-void showxref(void)
-{
- if (!src)
- die(fz_throw("no file specified"));
- pdf_debugxref(src);
- printf("\n");
-}
-
-void showsafe(unsigned char *buf, int n)
-{
- int i;
- for (i = 0; i < n; i++) {
- if (buf[i] == '\r' || buf[i] == '\n') {
- putchar('\n');
- showcolumn = 0;
- }
- else if (buf[i] < 32 || buf[i] > 126) {
- putchar('.');
- showcolumn ++;
- }
- else {
- putchar(buf[i]);
- showcolumn ++;
- }
- if (showcolumn == 79) {
- putchar('\n');
- showcolumn = 0;
- }
- }
-}
-
-void showstream(int num, int gen)
-{
- fz_error *error;
- fz_stream *stm;
- unsigned char buf[2048];
- int n;
-
- showcolumn = 0;
-
- if (showdecode)
- error = pdf_openstream(&stm, src, num, gen);
- else
- error = pdf_openrawstream(&stm, src, num, gen);
- if (error)
- die(error);
-
- while (1)
- {
- error = fz_read(&n, stm, buf, sizeof buf);
- if (error)
- die(error);
- if (n == 0)
- break;
- if (showbinary)
- fwrite(buf, 1, n, stdout);
- else
- showsafe(buf, n);
- }
-
- fz_dropstream(stm);
-}
-
-void showobject(int num, int gen)
-{
- fz_error *error;
- fz_obj *obj;
-
- if (!src)
- die(fz_throw("no file specified"));
-
- error = pdf_loadobject(&obj, src, num, gen);
- if (error)
- die(error);
-
- printf("%d %d obj\n", num, gen);
- fz_debugobj(obj);
-
- if (pdf_isstream(src, num, gen))
- {
- printf("stream\n");
- showstream(num, gen);
- printf("endstream\n");
- }
-
- printf("endobj\n\n");
-
- fz_dropobj(obj);
-}
-
-void
-showmain(int argc, char **argv)
-{
- int c;
-
- while ((c = getopt(argc, argv, "bd")) != -1)
- {
- switch (c)
- {
- case 'b': showbinary ++; break;
- case 'd': showdecode ++; break;
- default:
- showusage();
- break;
- }
- }
-
- if (optind == argc)
- showusage();
-
- opensrc(argv[optind++], "", 0);
-
- if (optind == argc)
- showtrailer();
-
- while (optind < argc)
- {
- if (!strcmp(argv[optind], "trailer"))
- showtrailer();
- else if (!strcmp(argv[optind], "xref"))
- showxref();
- else
- showobject(atoi(argv[optind]), 0);
- optind++;
- }
-}
-
-/* --------------------------------------------------------------------- */
-
-/*
- * Clean tool.
- * Rewrite PDF.
- * Garbage collect.
- * Decompress streams.
- * Encrypt or decrypt.
- */
-
-void
-cleanusage(void)
-{
- fprintf(stderr,
- "usage: mupdftool clean [options] input.pdf [outfile.pdf]\n"
- " -d -\tpassword for decryption\n"
- " -g \tgarbage collect unused objects\n"
- " -x \texpand compressed streams\n"
- " -e \tencrypt output\n"
- " -u -\tset user password for encryption\n"
- " -o -\tset owner password\n"
- " -p -\tset permissions (combine letters 'pmca')\n"
- " -n -\tkey length in bits: 40 <= n <= 128\n");
- exit(1);
-}
-
-void
-cleanexpand(void)
-{
- fz_error *error;
- fz_obj *stmobj;
- fz_buffer *buf;
- fz_obj *stmlen;
- int i, gen;
-
- for (i = 0; i < src->len; i++)
- {
- if (src->table[i].type == 'n')
- {
- gen = src->table[i].gen;
-
- if (pdf_isstream(src, i, gen))
- {
- error = pdf_loadobject(&stmobj, src, i, gen);
- if (error) die(error);
-
- error = pdf_loadstream(&buf, src, i, gen);
- if (error) die(error);
-
- fz_dictdels(stmobj, "Filter");
- fz_dictdels(stmobj, "DecodeParms");
-
- error = fz_newint(&stmlen, buf->wp - buf->rp);
- if (error) die(error);
- error = fz_dictputs(stmobj, "Length", stmlen);
- if (error) die(error);
- fz_dropobj(stmlen);
-
- pdf_updateobject(src, i, gen, stmobj);
- pdf_updatestream(src, i, gen, buf);
-
- fz_dropobj(stmobj);
- }
- }
- }
-}
-
-void
-cleanmain(int argc, char **argv)
-{
- int doencrypt = 0;
- int dogarbage = 0;
- int doexpand = 0;
- pdf_crypt *encrypt = nil;
- char *infile;
- char *outfile = "out.pdf";
- char *userpw = "";
- char *ownerpw = "";
- unsigned perms = 0xfffff0c0; /* nothing allowed */
- int keylen = 40;
- char *password = "";
- fz_error *error;
- int c;
-
- while ((c = getopt(argc, argv, "d:egn:o:p:u:x")) != -1)
- {
- switch (c)
- {
- case 'p':
- /* see TABLE 3.15 User access permissions */
- perms = 0xfffff0c0;
- if (strchr(optarg, 'p')) /* print */
- perms |= (1 << 2) | (1 << 11);
- if (strchr(optarg, 'm')) /* modify */
- perms |= (1 << 3) | (1 << 10);
- if (strchr(optarg, 'c')) /* copy */
- perms |= (1 << 4) | (1 << 9);
- if (strchr(optarg, 'a')) /* annotate / forms */
- perms |= (1 << 5) | (1 << 8);
- break;
- case 'd': password = optarg; break;
- case 'e': doencrypt ++; break;
- case 'g': dogarbage ++; break;
- case 'n': keylen = atoi(optarg); break;
- case 'o': ownerpw = optarg; break;
- case 'u': userpw = optarg; break;
- case 'x': doexpand ++; break;
- default: cleanusage(); break;
- }
- }
-
- if (argc - optind < 1)
- cleanusage();
-
- infile = argv[optind++];
- if (argc - optind > 0)
- outfile = argv[optind++];
-
- opensrc(infile, password, 0);
-
- if (doencrypt)
- {
- fz_obj *id = fz_dictgets(src->trailer, "ID");
- if (!id)
- {
- error = fz_packobj(&id, "[(ABCDEFGHIJKLMNOP)(ABCDEFGHIJKLMNOP)]");
- if (error)
- die(error);
- }
- else
- fz_keepobj(id);
-
- error = pdf_newencrypt(&encrypt, userpw, ownerpw, perms, keylen, id);
- if (error)
- die(error);
-
- fz_dropobj(id);
- }
-
- if (doexpand)
- cleanexpand();
-
- if (dogarbage)
- {
- preloadobjstms();
- pdf_garbagecollect(src);
- }
-
- error = pdf_savexref(src, outfile, encrypt);
- if (error)
- die(error);
-
- if (encrypt)
- pdf_dropcrypt(encrypt);
-
- pdf_closexref(src);
-}
-
-
-/* --------------------------------------------------------------------- */
-
-/*
- * Draw pages to PPM bitmaps.
- */
-
-enum { DRAWPNM, DRAWTXT, DRAWXML };
-
-struct benchmark
-{
- int pages;
- long min;
- int minpage;
- long avg;
- long max;
- int maxpage;
-};
-
-int drawmode = DRAWPNM;
-char *drawpattern = nil;
-pdf_page *drawpage = nil;
-float drawzoom = 1.0;
-int drawrotate = 0;
-int drawbands = 1;
-int drawcount = 0;
-int benchmark = 0;
-
-void
-drawusage(void)
-{
- fprintf(stderr,
- "usage: mupdftool draw [options] [file.pdf pages ... ]\n"
- " -b -\tdraw page in N bands\n"
- " -d -\tpassword for decryption\n"
- " -o -\tpattern (%%d for page number) for output file\n"
- " -r -\tresolution in dpi\n"
- " -t \tutf-8 text output instead of graphics\n"
- " -x \txml dump of display tree\n"
- " -m \tprint benchmark results\n"
- " example:\n"
- " mupdftool draw -o out%%03d.pnm a.pdf 1-3,5,9-\n");
- exit(1);
-}
-
-void
-gettime(long *time_)
-{
- struct timeval tv;
-
- if (gettimeofday(&tv, NULL) < 0)
- abort();
-
- *time_ = tv.tv_sec * 1000000 + tv.tv_usec;
-}
-
-void
-drawloadpage(int pagenum, struct benchmark *loadtimes)
-{
- fz_error *error;
- fz_obj *pageobj;
- long start;
- long end;
- long elapsed;
-
- char *basename;
-
- basename = strrchr(srcname, '/');
- if (!basename)
- basename = srcname;
- else
- basename ++;
-
- fprintf(stderr, "draw %s:%03d ", basename, pagenum);
- if (benchmark && loadtimes)
- {
- fflush(stderr);
- gettime(&start);
- }
-
- pageobj = pdf_getpageobject(srcpages, pagenum - 1);
- error = pdf_loadpage(&drawpage, src, pageobj);
- if (error)
- die(error);
-
- if (benchmark && loadtimes)
- {
- gettime(&end);
- elapsed = end - start;
-
- if (elapsed < loadtimes->min)
- {
- loadtimes->min = elapsed;
- loadtimes->minpage = pagenum;
- }
- if (elapsed > loadtimes->max)
- {
- loadtimes->max = elapsed;
- loadtimes->maxpage = pagenum;
- }
- loadtimes->avg += elapsed;
- loadtimes->pages++;
- }
-
- if (benchmark)
- fflush(stderr);
-}
-
-void
-drawfreepage(void)
-{
- pdf_droppage(drawpage);
- drawpage = nil;
-
- /* Flush resources between pages.
- * TODO: should check memory usage before deciding to do this.
- */
- if (src && src->store)
- {
- fflush(stderr);
- /* pdf_debugstore(src->store); */
- pdf_emptystore(src->store);
- }
-}
-
-void
-drawpnm(int pagenum, struct benchmark *loadtimes, struct benchmark *drawtimes)
-{
- fz_error *error;
- fz_matrix ctm;
- fz_irect bbox;
- fz_pixmap *pix;
- char name[256];
- char pnmhdr[256];
- int i, x, y, w, h, b, bh;
- int fd = -1;
- long start;
- long end;
- long elapsed;
-
- fz_md5 digest;
-
- fz_md5init(&digest);
-
- drawloadpage(pagenum, loadtimes);
-
- if (benchmark)
- gettime(&start);
-
- ctm = fz_identity();
- ctm = fz_concat(ctm, fz_translate(0, -drawpage->mediabox.y1));
- ctm = fz_concat(ctm, fz_scale(drawzoom, -drawzoom));
- ctm = fz_concat(ctm, fz_rotate(drawrotate + drawpage->rotate));
-
- bbox = fz_roundrect(fz_transformaabb(ctm, drawpage->mediabox));
- w = bbox.x1 - bbox.x0;
- h = bbox.y1 - bbox.y0;
- bh = h / drawbands;
-
- if (drawpattern)
- {
- sprintf(name, drawpattern, drawcount++);
- fd = open(name, O_BINARY|O_WRONLY|O_CREAT|O_TRUNC, 0666);
- if (fd < 0)
- die(fz_throw("ioerror: could not open file '%s'", name));
-
- sprintf(pnmhdr, "P6\n%d %d\n255\n", w, h);
- write(fd, pnmhdr, strlen(pnmhdr));
- }
-
- error = fz_newpixmap(&pix, bbox.x0, bbox.y0, w, bh, 4);
- if (error)
- die(error);
-
- memset(pix->samples, 0xff, pix->h * pix->w * pix->n);
-
- for (b = 0; b < drawbands; b++)
- {
- if (drawbands > 1)
- fprintf(stderr, "drawing band %d / %d\n", b + 1, drawbands);
-
- error = fz_rendertreeover(drawgc, pix, drawpage->tree, ctm);
- if (error)
- die(error);
-
- if (drawpattern)
- {
- for (y = 0; y < pix->h; y++)
- {
- unsigned char *src = pix->samples + y * pix->w * 4;
- unsigned char *dst = src;
-
- for (x = 0; x < pix->w; x++)
- {
- dst[x * 3 + 0] = src[x * 4 + 1];
- dst[x * 3 + 1] = src[x * 4 + 2];
- dst[x * 3 + 2] = src[x * 4 + 3];
- }
-
- write(fd, dst, pix->w * 3);
-
- memset(src, 0xff, pix->w * 4);
- }
- }
-
- fz_md5update(&digest, pix->samples, pix->h * pix->w * 4);
-
- pix->y += bh;
- if (pix->y + pix->h > bbox.y1)
- pix->h = bbox.y1 - pix->y;
- }
-
- fz_droppixmap(pix);
-
- {
- unsigned char buf[16];
- fz_md5final(&digest, buf);
- for (i = 0; i < 16; i++)
- fprintf(stderr, "%02x", buf[i]);
- }
-
- if (drawpattern)
- close(fd);
-
- drawfreepage();
-
- if (benchmark)
- {
- gettime(&end);
- elapsed = end - start;
-
- if (elapsed < drawtimes->min)
- {
- drawtimes->min = elapsed;
- drawtimes->minpage = pagenum;
- }
- if (elapsed > drawtimes->max)
- {
- drawtimes->max = elapsed;
- drawtimes->maxpage = pagenum;
- }
- drawtimes->avg += elapsed;
- drawtimes->pages++;
-
- fprintf(stderr, " time %.3fs",
- elapsed / 1000000.0);
- }
-
- fprintf(stderr, "\n");
-}
-
-void
-drawtxt(int pagenum)
-{
-#if 0 /* removed temporarily pending rewrite of pdf_loadtextfromtree */
- fz_error *error;
- pdf_textline *line;
- fz_matrix ctm;
-
- drawloadpage(pagenum, NULL);
-
- ctm = fz_concat(
- fz_translate(0, -drawpage->mediabox.y1),
- fz_scale(drawzoom, -drawzoom));
-
- error = pdf_loadtextfromtree(&line, drawpage->tree, ctm);
- if (error)
- die(error);
-
- pdf_debugtextline(line);
- pdf_droptextline(line);
-
- drawfreepage();
-#endif
-}
-
-void
-drawxml(int pagenum)
-{
- drawloadpage(pagenum, NULL);
- fz_debugtree(drawpage->tree);
- drawfreepage();
-}
-
-void
-drawpages(char *pagelist)
-{
- int page, spage, epage;
- char *spec, *dash;
- struct benchmark loadtimes, drawtimes;
-
- if (!src)
- drawusage();
-
- if (benchmark)
- {
- memset(&loadtimes, 0x00, sizeof (loadtimes));
- loadtimes.min = LONG_MAX;
- memset(&drawtimes, 0x00, sizeof (drawtimes));
- drawtimes.min = LONG_MAX;
- }
-
- spec = strsep(&pagelist, ",");
- while (spec)
- {
- dash = strchr(spec, '-');
-
- if (dash == spec)
- spage = epage = 1;
- else
- spage = epage = atoi(spec);
-
- if (dash)
- {
- if (strlen(dash) > 1)
- epage = atoi(dash + 1);
- else
- epage = pdf_getpagecount(srcpages);
- }
-
- if (spage > epage)
- page = spage, spage = epage, epage = page;
-
- if (spage < 1)
- spage = 1;
- if (epage > pdf_getpagecount(srcpages))
- epage = pdf_getpagecount(srcpages);
-
- printf("Drawing pages %d-%d...\n", spage, epage);
- for (page = spage; page <= epage; page++)
- {
- switch (drawmode)
- {
- case DRAWPNM: drawpnm(page, &loadtimes, &drawtimes); break;
- case DRAWTXT: drawtxt(page); break;
- case DRAWXML: drawxml(page); break;
- }
- }
-
- spec = strsep(&pagelist, ",");
- }
-
- if (benchmark)
- {
- if (loadtimes.pages > 0)
- {
- loadtimes.avg /= loadtimes.pages;
- drawtimes.avg /= drawtimes.pages;
-
- printf("benchmark[load]: min: %6.3fs (page % 4d), avg: %6.3fs, max: %6.3fs (page % 4d)\n",
- loadtimes.min / 1000000.0, loadtimes.minpage,
- loadtimes.avg / 1000000.0,
- loadtimes.max / 1000000.0, loadtimes.maxpage);
- printf("benchmark[draw]: min: %6.3fs (page % 4d), avg: %6.3fs, max: %6.3fs (page % 4d)\n",
- drawtimes.min / 1000000.0, drawtimes.minpage,
- drawtimes.avg / 1000000.0,
- drawtimes.max / 1000000.0, drawtimes.maxpage);
- }
- }
-}
-
-void
-drawmain(int argc, char **argv)
-{
- fz_error *error;
- char *password = "";
- int c;
- enum { NO_FILE_OPENED, NO_PAGES_DRAWN, DREW_PAGES } state;
-
- while ((c = getopt(argc, argv, "b:d:o:r:txm")) != -1)
- {
- switch (c)
- {
- case 'b': drawbands = atoi(optarg); break;
- case 'd': password = optarg; break;
- case 'o': drawpattern = optarg; break;
- case 'r': drawzoom = atof(optarg) / 72.0; break;
- case 't': drawmode = DRAWTXT; break;
- case 'x': drawmode = DRAWXML; break;
- case 'm': benchmark = 1; break;
- default:
- drawusage();
- break;
- }
- }
-
- if (optind == argc)
- drawusage();
-
- error = fz_newrenderer(&drawgc, pdf_devicergb, 0, 1024 * 512);
- if (error)
- die(error);
-
- state = NO_FILE_OPENED;
- while (optind < argc)
- {
- if (strstr(argv[optind], ".pdf") ||
- strstr(argv[optind], ".PDF"))
- {
- if (state == NO_PAGES_DRAWN)
- drawpages("1-");
-
- opensrc(argv[optind], password, 1);
- state = NO_PAGES_DRAWN;
- }
- else
- {
- drawpages(argv[optind]);
- state = DREW_PAGES;
- }
- optind++;
- }
-
- if (state == NO_PAGES_DRAWN)
- drawpages("1-");
-
- closesrc();
-
- fz_droprenderer(drawgc);
-}
-
-/* --------------------------------------------------------------------- */
-
-/*
- * Information tool.
- * Print some information on input pdf.
- */
-
-enum
-{
- DIMENSIONS = 0x01,
- FONTS = 0x02,
- IMAGES = 0x04,
- SHADINGS = 0x08,
- PATTERNS = 0x10,
- XOBJS = 0x20,
- ALL = DIMENSIONS | FONTS | IMAGES | SHADINGS | PATTERNS | XOBJS
-};
-
-struct info
-{
- int page;
- fz_obj *pageref;
- fz_obj *ref;
- union {
- struct {
- fz_obj *obj;
- } info;
- struct {
- fz_rect *bbox;
- } dim;
- struct {
- fz_obj *subtype;
- fz_obj *name;
- } font;
- struct {
- fz_obj *width;
- fz_obj *height;
- fz_obj *bpc;
- fz_obj *filter;
- fz_obj *cs;
- fz_obj *altcs;
- } image;
- struct {
- fz_obj *type;
- } shading;
- struct {
- fz_obj *pattern;
- fz_obj *paint;
- fz_obj *tiling;
- } pattern;
- struct {
- fz_obj *group;
- fz_obj *reference;
- } form;
- } u;
-};
-
-struct info *info = nil;
-struct info **dim = nil;
-int dims = 0;
-struct info **font = nil;
-int fonts = 0;
-struct info **image = nil;
-int images = 0;
-struct info **shading = nil;
-int shadings = 0;
-struct info **pattern = nil;
-int patterns = 0;
-struct info **form = nil;
-int forms = 0;
-struct info **psobj = nil;
-int psobjs = 0;
-
-void
-infousage(void)
-{
- fprintf(stderr,
- "usage: mupdftool info [options] [file.pdf ... ]\n"
- " -d -\tpassword for decryption\n"
- " -f -\tlist fonts\n"
- " -i -\tlist images\n"
- " -m -\tlist dimensions\n"
- " -p -\tlist pattners\n"
- " -s -\tlist shadings\n"
- " -x -\tlist form and postscript xobjects\n"
- " example:\n"
- " mupdftool info -p mypassword a.pdf\n");
- exit(1);
-}
-
-void
-gatherglobalinfo()
-{
- info = malloc(sizeof (struct info));
- if (!info)
- die(fz_throw("out of memory"));
-
- info->page = -1;
- info->pageref = nil;
- info->ref = fz_dictgets(src->trailer, "Info");
-
- info->u.info.obj = nil;
-
- if (!info->ref)
- return;
-
- if (!fz_isdict(info->ref) && !fz_isindirect(info->ref))
- die(fz_throw("not an indirect info object"));
-
- info->u.info.obj = src->info;
-}
-
-fz_error *
-gatherdimensions(int page, fz_obj *pageref, fz_obj *pageobj)
-{
- fz_error *error;
- fz_obj *ref;
- fz_rect bbox;
- fz_obj *obj;
- int j;
-
- obj = ref = fz_dictgets(pageobj, "MediaBox");
- if (obj)
- {
- error = pdf_resolve(&obj, src);
- if (error)
- return error;
- }
- if (!fz_isarray(obj))
- return fz_throw("cannot find page bounds (%d %d R)", fz_tonum(ref), fz_togen(ref));
-
- bbox = pdf_torect(obj);
-
- for (j = 0; j < dims; j++)
- if (!memcmp(dim[j]->u.dim.bbox, &bbox, sizeof (fz_rect)))
- break;
-
- if (j < dims)
- return fz_okay;
-
- dims++;
-
- dim = realloc(dim, dims * sizeof (struct info *));
- if (!dim)
- return fz_throw("out of memory");
-
- dim[dims - 1] = malloc(sizeof (struct info));
- if (!dim[dims - 1])
- return fz_throw("out of memory");
-
- dim[dims - 1]->u.dim.bbox = malloc(sizeof (fz_rect));
- if (!dim[dims - 1]->u.dim.bbox)
- return fz_throw("out of memory");
-
- dim[dims - 1]->page = page;
- dim[dims - 1]->pageref = pageref;
- dim[dims - 1]->ref = nil;
- memcpy(dim[dims - 1]->u.dim.bbox, &bbox, sizeof (fz_rect));
-
- return fz_okay;
-}
-
-fz_error *
-gatherfonts(int page, fz_obj *pageref, fz_obj *pageobj, fz_obj *dict)
-{
- fz_error *error;
- int i;
-
- for (i = 0; i < fz_dictlen(dict); i++)
- {
- fz_obj *ref;
- fz_obj *fontdict;
- fz_obj *subtype;
- fz_obj *basefont;
- fz_obj *name;
- int k;
-
- fontdict = ref = fz_dictgetval(dict, i);
- if (fontdict)
- {
- error = pdf_resolve(&fontdict, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect font dict (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (!fz_isdict(fontdict))
- return fz_throw("not a font dict (%d %d R)", fz_tonum(ref), fz_togen(ref));
-
- subtype = fz_dictgets(fontdict, "Subtype");
- if (subtype)
- {
- error = pdf_resolve(&subtype, src);
- if (error)
- return fz_rethrow(error, "cannot find font dict subtype (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (!fz_isname(subtype))
- return fz_throw("not a font dict subtype (%d %d R)", fz_tonum(ref), fz_togen(ref));
-
- basefont = fz_dictgets(fontdict, "BaseFont");
- if (basefont)
- {
- error = pdf_resolve(&basefont, src);
- if (error)
- return fz_rethrow(error, "cannot find font dict basefont (%d %d R)", fz_tonum(ref), fz_togen(ref));
- if (!fz_isname(basefont))
- return fz_throw("not a font dict basefont (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- else
- {
- name = fz_dictgets(fontdict, "Name");
- if (name)
- error = pdf_resolve(&name, src);
- else
- error = fz_newnull(&name);
- if (error)
- return fz_rethrow(error, "cannot find font dict name (%d %d R)", fz_tonum(ref), fz_togen(ref));
- if (!fz_isnull(name) && !fz_isname(name))
- return fz_throw("not a font dict name (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
-
- for (k = 0; k < fonts; k++)
- if (fz_tonum(font[k]->ref) == fz_tonum(ref) &&
- fz_togen(font[k]->ref) == fz_togen(ref))
- break;
-
- if (k < fonts)
- return fz_okay;
-
- fonts++;
-
- font = realloc(font, fonts * sizeof (struct info *));
- if (!font)
- return fz_throw("out of memory");
-
- font[fonts - 1] = malloc(sizeof (struct info));
- if (!font[fonts - 1])
- return fz_throw("out of memory");
-
- font[fonts - 1]->page = page;
- font[fonts - 1]->pageref = pageref;
- font[fonts - 1]->ref = ref;
- font[fonts - 1]->u.font.subtype = subtype;
- font[fonts - 1]->u.font.name = basefont ? basefont : name;
- }
-
- return fz_okay;
-}
-
-fz_error *
-gatherimages(int page, fz_obj *pageref, fz_obj *pageobj, fz_obj *dict)
-{
- fz_error *error;
- int i;
-
- for (i = 0; i < fz_dictlen(dict); i++)
- {
- fz_obj *ref;
- fz_obj *imagedict;
- fz_obj *type;
- fz_obj *width;
- fz_obj *height;
- fz_obj *bpc;
- fz_obj *filter;
- fz_obj *mask;
- fz_obj *cs;
- fz_obj *altcs;
- int k;
-
- imagedict = ref = fz_dictgetval(dict, i);
- if (imagedict)
- {
- error = pdf_resolve(&imagedict, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect image dict (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (!fz_isdict(imagedict))
- return fz_throw("not an image dict (%d %d R)", fz_tonum(ref), fz_togen(ref));
-
- type = fz_dictgets(imagedict, "Subtype");
- if (type)
- {
- error = pdf_resolve(&type, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect image subtype (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (!fz_isname(type))
- return fz_throw("not an image subtype (%d %d R)", fz_tonum(ref), fz_togen(ref));
- if (strcmp(fz_toname(type), "Image"))
- continue;
-
- filter = fz_dictgets(imagedict, "Filter");
- if (filter)
- {
- error = pdf_resolve(&filter, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect image filter (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- else
- {
- error = fz_newname(&filter, "Raw");
- if (error)
- return fz_rethrow(error, "cannot create fake raw image filter (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (!fz_isname(filter) && !fz_isarray(filter))
- return fz_throw("not an image filter (%d %d R)", fz_tonum(ref), fz_togen(ref));
-
- mask = fz_dictgets(imagedict, "ImageMask");
- if (mask)
- {
- error = pdf_resolve(&mask, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect image mask (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
-
- altcs = nil;
- cs = fz_dictgets(imagedict, "ColorSpace");
- if (cs)
- {
- error = pdf_resolve(&cs, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect image colorspace (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (fz_isarray(cs))
- {
- fz_obj *cses = cs;
-
- cs = fz_arrayget(cses, 0);
- if (cs)
- {
- error = pdf_resolve(&cs, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect image colorspace name (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
-
- if (fz_isname(cs) && (!strcmp(fz_toname(cs), "DeviceN") || !strcmp(fz_toname(cs), "Separation")))
- {
- altcs = fz_arrayget(cses, 2);
- if (altcs)
- {
- error = pdf_resolve(&altcs, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect image alternate colorspace name (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
-
- if (fz_isarray(altcs))
- {
- altcs = fz_arrayget(altcs, 0);
- if (altcs)
- {
- error = pdf_resolve(&altcs, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect image alternate colorspace name (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- }
- }
- }
-
- if (fz_isbool(mask) && fz_tobool(mask))
- {
- if (cs)
- fz_warn("image mask (%d %d R) may not have colorspace", fz_tonum(ref), fz_togen(ref));
- error = fz_newname(&cs, "ImageMask");
- if (error)
- return fz_rethrow(error, "cannot create fake image mask colorspace (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (!fz_isname(cs))
- return fz_throw("not an image colorspace (%d %d R)", fz_tonum(ref), fz_togen(ref));
- if (altcs && !fz_isname(altcs))
- return fz_throw("not an image alternate colorspace (%d %d R)", fz_tonum(ref), fz_togen(ref));
-
- width = fz_dictgets(imagedict, "Width");
- if (width)
- {
- error = pdf_resolve(&type, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect image width (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (!fz_isint(width))
- return fz_throw("not an image width (%d %d R)", fz_tonum(ref), fz_togen(ref));
-
- height = fz_dictgets(imagedict, "Height");
- if (height)
- {
- error = pdf_resolve(&height, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect image height (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (!fz_isint(height))
- return fz_throw("not an image height (%d %d R)", fz_tonum(ref), fz_togen(ref));
-
- bpc = fz_dictgets(imagedict, "BitsPerComponent");
- if (bpc)
- {
- error = pdf_resolve(&bpc, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect image bits per component (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (!fz_tobool(mask) && !fz_isint(bpc))
- return fz_throw("not an image bits per component (%d %d R)", fz_tonum(ref), fz_togen(ref));
- if (fz_tobool(mask) && fz_isint(bpc) && fz_toint(bpc) != 1)
- return fz_throw("not an image mask bits per component (%d %d R)", fz_tonum(ref), fz_togen(ref));
- if (fz_tobool(mask) && !bpc)
- {
- error = fz_newint(&bpc, 1);
- if (error)
- return fz_rethrow(error, "cannot create fake image mask bits per components (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
-
- for (k = 0; k < images; k++)
- if (fz_tonum(image[k]->ref) == fz_tonum(ref) &&
- fz_togen(image[k]->ref) == fz_togen(ref))
- break;
-
- if (k < images)
- continue;
-
- images++;
-
- image = realloc(image, images * sizeof (struct info *));
- if (!image)
- return fz_throw("out of memory");
-
- image[images - 1] = malloc(sizeof (struct info));
- if (!image[images - 1])
- return fz_throw("out of memory");
-
- image[images - 1]->page = page;
- image[images - 1]->pageref = pageref;
- image[images - 1]->ref = ref;
- image[images - 1]->u.image.width = width;
- image[images - 1]->u.image.height = height;
- image[images - 1]->u.image.bpc = bpc;
- image[images - 1]->u.image.filter = filter;
- image[images - 1]->u.image.cs = cs;
- image[images - 1]->u.image.altcs = altcs;
- }
-
- return fz_okay;
-}
-
-fz_error *
-gatherforms(int page, fz_obj *pageref, fz_obj *pageobj, fz_obj *dict)
-{
- fz_error *error;
- int i;
-
- for (i = 0; i < fz_dictlen(dict); i++)
- {
- fz_obj *ref;
- fz_obj *xobjdict;
- fz_obj *type;
- fz_obj *subtype;
- fz_obj *group;
- fz_obj *reference;
- int k;
-
- xobjdict = ref = fz_dictgetval(dict, i);
- if (xobjdict)
- {
- error = pdf_resolve(&xobjdict, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect image dict (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (!fz_isdict(xobjdict))
- return fz_throw("not a xobject dict (%d %d R)", fz_tonum(ref), fz_togen(ref));
-
- type = fz_dictgets(xobjdict, "Subtype");
- if (type)
- {
- error = pdf_resolve(&type, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect xobject type (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (!fz_isname(type))
- return fz_throw("not a xobject type (%d %d R)", fz_tonum(ref), fz_togen(ref));
- if (strcmp(fz_toname(type), "Form"))
- return fz_okay;
-
- subtype = fz_dictgets(xobjdict, "Subtype2");
- if (subtype)
- {
- error = pdf_resolve(&subtype, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect xobject subtype (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (subtype && !fz_isname(subtype))
- return fz_throw("not a xobject subtype (%d %d R)", fz_tonum(ref), fz_togen(ref));
- if (strcmp(fz_toname(subtype), "PS"))
- return fz_okay;
-
- group = fz_dictgets(xobjdict, "Group");
- if (group)
- {
- error = pdf_resolve(&group, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect form xobject group dict (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (group && !fz_isdict(group))
- return fz_throw("not a form xobject group dict (%d %d R)", fz_tonum(ref), fz_togen(ref));
-
- reference = fz_dictgets(xobjdict, "Ref");
- if (reference)
- {
- error = pdf_resolve(&reference, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect form xobject reference dict (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (reference && !fz_isdict(reference))
- return fz_throw("not a form xobject reference dict (%d %d R)", fz_tonum(ref), fz_togen(ref));
-
- for (k = 0; k < forms; k++)
- if (fz_tonum(form[k]->ref) == fz_tonum(ref) &&
- fz_togen(form[k]->ref) == fz_togen(ref))
- break;
-
- if (k < forms)
- return fz_okay;
-
- forms++;
-
- form = realloc(form, forms * sizeof (struct info *));
- if (!form)
- return fz_throw("out of memory");
-
- form[forms - 1] = malloc(sizeof (struct info));
- if (!form[forms - 1])
- return fz_throw("out of memory");
-
- form[forms - 1]->page = page;
- form[forms - 1]->pageref = pageref;
- form[forms - 1]->ref = ref;
- form[forms - 1]->u.form.group = group;
- form[forms - 1]->u.form.reference = reference;
- }
-
- return fz_okay;
-}
-
-fz_error *
-gatherpsobjs(int page, fz_obj *pageref, fz_obj *pageobj, fz_obj *dict)
-{
- fz_error *error;
- int i;
-
- for (i = 0; i < fz_dictlen(dict); i++)
- {
- fz_obj *ref;
- fz_obj *xobjdict;
- fz_obj *type;
- fz_obj *subtype;
- int k;
-
- xobjdict = ref = fz_dictgetval(dict, i);
- if (xobjdict)
- {
- error = pdf_resolve(&xobjdict, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect image dict (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (!fz_isdict(xobjdict))
- return fz_throw("not a xobject dict (%d %d R)", fz_tonum(ref), fz_togen(ref));
-
- type = fz_dictgets(xobjdict, "Subtype");
- if (type)
- {
- error = pdf_resolve(&type, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect xobject type (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (!fz_isname(type))
- return fz_throw("not a xobject type (%d %d R)", fz_tonum(ref), fz_togen(ref));
- if (strcmp(fz_toname(type), "Form"))
- return fz_okay;
-
- subtype = fz_dictgets(xobjdict, "Subtype2");
- if (subtype)
- {
- error = pdf_resolve(&subtype, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect xobject subtype (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (subtype && !fz_isname(subtype))
- return fz_throw("not a xobject subtype (%d %d R)", fz_tonum(ref), fz_togen(ref));
- if (strcmp(fz_toname(type), "PS") &&
- (strcmp(fz_toname(type), "Form") || strcmp(fz_toname(subtype), "PS")))
- return fz_okay;
-
- for (k = 0; k < psobjs; k++)
- if (fz_tonum(psobj[k]->ref) == fz_tonum(ref) &&
- fz_togen(psobj[k]->ref) == fz_togen(ref))
- break;
-
- if (k < psobjs)
- return fz_okay;
-
- psobjs++;
-
- psobj = realloc(psobj, psobjs * sizeof (struct info *));
- if (!psobj)
- return fz_throw("out of memory");
-
- psobj[psobjs - 1] = malloc(sizeof (struct info));
- if (!psobj[psobjs - 1])
- return fz_throw("out of memory");
-
- psobj[psobjs - 1]->page = page;
- psobj[psobjs - 1]->pageref = pageref;
- psobj[psobjs - 1]->ref = ref;
- }
-
- return fz_okay;
-}
-
-fz_error *
-gathershadings(int page, fz_obj *pageref, fz_obj *pageobj, fz_obj *dict)
-{
- fz_error *error;
- int i;
-
- for (i = 0; i < fz_dictlen(dict); i++)
- {
- fz_obj *ref;
- fz_obj *shade;
- fz_obj *type;
- int k;
-
- shade = ref = fz_dictgetval(dict, i);
- if (shade)
- {
- error = pdf_resolve(&shade, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect shading dict (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (!fz_isdict(shade))
- return fz_throw("not a shading dict (%d %d R)", fz_tonum(ref), fz_togen(ref));
-
- type = fz_dictgets(shade, "ShadingType");
- if (type)
- {
- error = pdf_resolve(&type, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect shading type (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (!fz_isint(type) || fz_toint(type) < 1 || fz_toint(type) > 7)
- return fz_throw("not a shading type (%d %d R)", fz_tonum(ref), fz_togen(ref));
-
- for (k = 0; k < shadings; k++)
- if (fz_tonum(shading[k]->ref) == fz_tonum(ref) &&
- fz_togen(shading[k]->ref) == fz_togen(ref))
- break;
-
- if (k < shadings)
- return fz_okay;
-
- shadings++;
-
- shading = realloc(shading, shadings * sizeof (struct info *));
- if (!shading)
- return fz_throw("out of memory");
-
- shading[shadings - 1] = malloc(sizeof (struct info));
- if (!shading[shadings - 1])
- return fz_throw("out of memory");
-
- shading[shadings - 1]->page = page;
- shading[shadings - 1]->pageref = pageref;
- shading[shadings - 1]->ref = ref;
- shading[shadings - 1]->u.shading.type = type;
- }
-
- return fz_okay;
-}
-
-fz_error *
-gatherpatterns(int page, fz_obj *pageref, fz_obj *pageobj, fz_obj *dict)
-{
- fz_error *error;
- int i;
-
- for (i = 0; i < fz_dictlen(dict); i++)
- {
- fz_obj *ref;
- fz_obj *patterndict;
- fz_obj *type;
- fz_obj *paint;
- fz_obj *tiling;
- int k;
-
- patterndict = ref = fz_dictgetval(dict, i);
- if (patterndict)
- {
- error = pdf_resolve(&patterndict, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect pattern dict (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (!fz_isdict(patterndict))
- return fz_throw("not a pattern dict (%d %d R)", fz_tonum(ref), fz_togen(ref));
-
- type = fz_dictgets(patterndict, "PatternType");
- if (type)
- {
- error = pdf_resolve(&type, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect pattern type (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (!fz_isint(type) || fz_toint(type) < 1 || fz_toint(type) > 2)
- return fz_throw("not a pattern type (%d %d R)", fz_tonum(ref), fz_togen(ref));
-
- if (fz_toint(type) == 1)
- {
- paint = fz_dictgets(patterndict, "PaintType");
- if (paint)
- {
- error = pdf_resolve(&paint, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect pattern paint type (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (!fz_isint(paint) || fz_toint(paint) < 1 || fz_toint(paint) > 2)
- return fz_throw("not a pattern paint type (%d %d R)", fz_tonum(ref), fz_togen(ref));
-
- tiling = fz_dictgets(patterndict, "TilingType");
- if (tiling)
- {
- error = pdf_resolve(&tiling, src);
- if (error)
- return fz_rethrow(error, "cannot resolve indirect pattern tiling type (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- if (!fz_isint(tiling) || fz_toint(tiling) < 1 || fz_toint(tiling) > 3)
- return fz_throw("not a pattern tiling type (%d %d R)", fz_tonum(ref), fz_togen(ref));
- }
- else
- {
- error = fz_newint(&paint, 0);
- if (error)
- return fz_throw("cannot create fake pattern paint type");
- error = fz_newint(&tiling, 0);
- if (error)
- return fz_throw("cannot create fake pattern tiling type");
- }
-
- for (k = 0; k < patterns; k++)
- if (fz_tonum(pattern[k]->ref) == fz_tonum(ref) &&
- fz_togen(pattern[k]->ref) == fz_togen(ref))
- break;
-
- if (k < patterns)
- return fz_okay;
-
- patterns++;
-
- pattern = realloc(pattern, patterns * sizeof (struct info *));
- if (!pattern)
- return fz_throw("out of memory");
-
- pattern[patterns - 1] = malloc(sizeof (struct info));
- if (!pattern[patterns - 1])
- return fz_throw("out of memory");
-
- pattern[patterns - 1]->page = page;
- pattern[patterns - 1]->pageref = pageref;
- pattern[patterns - 1]->ref = ref;
- pattern[patterns - 1]->u.pattern.pattern = type;
- pattern[patterns - 1]->u.pattern.paint = paint;
- pattern[patterns - 1]->u.pattern.tiling = tiling;
- }
-
- return fz_okay;
-}
-
-void
-gatherinfo(int show, int page)
-{
- fz_error *error;
- fz_obj *pageref;
- fz_obj *pageobj;
- fz_obj *rsrc;
- fz_obj *font;
- fz_obj *xobj;
- fz_obj *shade;
- fz_obj *pattern;
-
- pageref = pdf_getpagereference(srcpages, page - 1);
- pageobj = pdf_getpageobject(srcpages, page - 1);
-
- if (!pageref || !pageobj)
- die(fz_throw("cannot retrieve info from page %d", page));
-
- if (show & DIMENSIONS)
- {
- error = gatherdimensions(page, pageref, pageobj);
- if (error)
- die(fz_rethrow(error, "gathering dimensions at page %d (%d %d R)", page, fz_tonum(pageref), fz_togen(pageref)));
- }
-
- rsrc = fz_dictgets(pageobj, "Resources");
- if (rsrc)
- {
- error = pdf_resolve(&rsrc, src);
- if (error)
- die(fz_rethrow(error, "retrieving resources at page %d (%d %d R)", page, fz_tonum(pageref), fz_togen(pageref)));
- }
-
- if (show & FONTS)
- {
- font = fz_dictgets(rsrc, "Font");
- if (font)
- {
- error = pdf_resolve(&font, src);
- if (error)
- die(fz_rethrow(error, "resolving font dict at page %d (%d %d R)", page, fz_tonum(pageref), fz_togen(pageref)));
-
- error = gatherfonts(page, pageref, pageobj, font);
- if (error)
- die(fz_rethrow(error, "gathering fonts at page %d (%d %d R)", page, fz_tonum(pageref), fz_togen(pageref)));
- }
- }
-
- if (show & IMAGES || show & XOBJS)
- {
- xobj = fz_dictgets(rsrc, "XObject");
- if (xobj)
- {
- error = pdf_resolve(&xobj, src);
- if (error)
- die(fz_rethrow(error, "resolving xobject dict at page %d (%d %d R)", page, fz_tonum(pageref), fz_togen(pageref)));
-
- error = gatherimages(page, pageref, pageobj, xobj);
- if (error)
- die(fz_rethrow(error, "gathering images at page %d (%d %d R)", page, fz_tonum(pageref), fz_togen(pageref)));
- error = gatherforms(page, pageref, pageobj, xobj);
- if (error)
- die(fz_rethrow(error, "gathering forms at page %d (%d %d R)", page, fz_tonum(pageref), fz_togen(pageref)));
- error = gatherpsobjs(page, pageref, pageobj, xobj);
- if (error)
- die(fz_rethrow(error, "gathering postscript objects at page %d (%d %d R)", page, fz_tonum(pageref), fz_togen(pageref)));
- }
- }
-
- if (show & SHADINGS)
- {
- shade = fz_dictgets(rsrc, "Shading");
- if (shade)
- {
- error = pdf_resolve(&shade, src);
- if (error)
- die(fz_rethrow(error, "resolving shading dict at page %d (%d %d R)", page, fz_tonum(pageref), fz_togen(pageref)));
-
- error = gathershadings(page, pageref, pageobj, shade);
- if (error)
- die(fz_rethrow(error, "gathering shadings at page %d (%d %d R)", page, fz_tonum(pageref), fz_togen(pageref)));
- }
- }
-
- if (show & PATTERNS)
- {
- pattern = fz_dictgets(rsrc, "Pattern");
- if (pattern)
- {
- error = pdf_resolve(&pattern, src);
- if (error)
- die(fz_rethrow(error, "resolving pattern dict at page %d (%d %d R)", page, fz_tonum(pageref), fz_togen(pageref)));
-
- error = gathershadings(page, pageref, pageobj, shade);
- if (error)
- die(fz_rethrow(error, "gathering shadings at page %d (%d %d R)", page, fz_tonum(pageref), fz_togen(pageref)));
- }
- }
-}
-
-void
-printglobalinfo(char *filename)
-{
- printf("%s:\n\n", filename);
- printf("PDF-%d.%d\n\n", src->version / 10, src->version % 10);
-
- if (info->u.info.obj)
- {
- printf("Info object (%d %d R):\n", fz_tonum(info->ref), fz_togen(info->ref));
- fz_debugobj(info->u.info.obj);
- }
-
- printf("\nPages: %d\n\n", pdf_getpagecount(srcpages));
-}
-
-void
-printinfo(char *filename, int show, int page)
-{
- int i;
- int j;
-
-#define PAGE_FMT "\t% 6d (% 6d %1d R): "
-
- if (show & DIMENSIONS && dims > 0)
- {
- printf("MediaBox: ");
- printf("\n");
- for (i = 0; i < dims; i++)
- printf(PAGE_FMT "[ %g %g %g %g ]\n",
- dim[i]->page,
- fz_tonum(dim[i]->pageref), fz_togen(dim[i]->pageref),
- dim[i]->u.dim.bbox->x0,
- dim[i]->u.dim.bbox->y0,
- dim[i]->u.dim.bbox->x1,
- dim[i]->u.dim.bbox->y1);
- printf("\n");
-
- for (i = 0; i < dims; i++)
- {
- free(dim[i]->u.dim.bbox);
- free(dim[i]);
- }
- free(dim);
- dim = nil;
- dims = 0;
- }
-
- if (show & FONTS && fonts > 0)
- {
- printf("Fonts (%d):\n", fonts);
- for (i = 0; i < fonts; i++)
- {
- printf(PAGE_FMT "%s %s (%d %d R)\n",
- font[i]->page,
- fz_tonum(font[i]->pageref), fz_togen(font[i]->pageref),
- fz_toname(font[i]->u.font.subtype),
- fz_toname(font[i]->u.font.name),
- fz_tonum(font[i]->ref), fz_togen(font[i]->ref));
- }
- printf("\n");
-
- for (i = 0; i < fonts; i++)
- free(font[i]);
- free(font);
- font = nil;
- fonts = 0;
- }
-
- if (show & IMAGES && images > 0)
- {
- printf("Images (%d):\n", images);
- for (i = 0; i < images; i++)
- {
- printf(PAGE_FMT "[ ",
- image[i]->page,
- fz_tonum(image[i]->pageref), fz_togen(image[i]->pageref));
-
- if (fz_isarray(image[i]->u.image.filter))
- for (j = 0; j < fz_arraylen(image[i]->u.image.filter); j++)
- {
- printf("%s%s",
- fz_toname(fz_arrayget(image[i]->u.image.filter, j)),
- j == fz_arraylen(image[i]->u.image.filter) - 1 ? "" : " ");
- }
- else
- printf("%s", fz_toname(image[i]->u.image.filter));
-
- printf(" ] %dx%d %dbpc %s%s%s (%d %d R)\n",
- fz_toint(image[i]->u.image.width),
- fz_toint(image[i]->u.image.height),
- fz_toint(image[i]->u.image.bpc),
- fz_toname(image[i]->u.image.cs),
- image[i]->u.image.altcs ? " " : "",
- image[i]->u.image.altcs ? fz_toname(image[i]->u.image.altcs) : "",
- fz_tonum(image[i]->ref), fz_togen(image[i]->ref));
- }
- printf("\n");
-
- for (i = 0; i < images; i++)
- free(image[i]);
- free(image);
- image = nil;
- images = 0;
- }
-
- if (show & SHADINGS && shadings > 0)
- {
- printf("Shading patterns (%d):\n", shadings);
- for (i = 0; i < shadings; i++)
- {
- char *shadingtype[] =
- {
- "",
- "Function",
- "Axial",
- "Radial",
- "Free-form triangle mesh",
- "Lattice-form triangle mesh",
- "Coons patch mesh",
- "Tendor-product patch mesh",
- };
-
- printf(PAGE_FMT "%s (%d %d R)\n",
- shading[i]->page,
- fz_tonum(shading[i]->pageref), fz_togen(shading[i]->pageref),
- shadingtype[fz_toint(shading[i]->u.shading.type)],
- fz_tonum(shading[i]->ref), fz_togen(shading[i]->ref));
- }
- printf("\n");
-
- for (i = 0; i < shadings; i++)
- free(shading[i]);
- free(shading);
- shading = nil;
- shadings = 0;
- }
-
- if (show & PATTERNS && patterns > 0)
- {
- printf("Patterns (%d):\n", patterns);
- for (i = 0; i < patterns; i++)
- {
- char *patterntype[] =
- {
- "",
- "Tiling",
- "Shading",
- };
- char *painttype[] =
- {
- "",
- "Colored",
- "Uncolored",
- };
- char *tilingtype[] =
- {
- "",
- "Constant spacing",
- "No distortion",
- "Constant space/fast tiling",
- };
-
- printf(PAGE_FMT "%s %s %s (%d %d R)\n",
- pattern[i]->page,
- fz_tonum(pattern[i]->pageref), fz_togen(pattern[i]->pageref),
- patterntype[fz_toint(pattern[i]->u.pattern.pattern)],
- painttype[fz_toint(pattern[i]->u.pattern.paint)],
- tilingtype[fz_toint(pattern[i]->u.pattern.tiling)],
- fz_tonum(pattern[i]->ref), fz_togen(pattern[i]->ref));
- }
- printf("\n");
-
- for (i = 0; i < patterns; i++)
- free(pattern[i]);
- free(pattern);
- pattern = nil;
- patterns = 0;
- }
-
- if (show & XOBJS && forms > 0)
- {
- printf("Form xobjects (%d):\n", forms);
- for (i = 0; i < forms; i++)
- {
- printf(PAGE_FMT "%s%s (%d %d R)\n",
- form[i]->page,
- fz_tonum(form[i]->pageref), fz_togen(form[i]->pageref),
- form[i]->u.form.group ? "Group" : "",
- form[i]->u.form.reference ? "Reference" : "",
- fz_tonum(form[i]->ref), fz_togen(form[i]->ref));
- }
- printf("\n");
-
- for (i = 0; i < forms; i++)
- free(form[i]);
- free(form);
- form = nil;
- forms = 0;
- }
-
- if (show & XOBJS && psobjs > 0)
- {
- printf("Postscript xobjects (%d):\n", psobjs);
- for (i = 0; i < psobjs; i++)
- {
- printf(PAGE_FMT "(%d %d R)\n",
- psobj[i]->page,
- fz_tonum(psobj[i]->pageref), fz_togen(psobj[i]->pageref),
- fz_tonum(psobj[i]->ref), fz_togen(psobj[i]->ref));
- }
- printf("\n");
-
- for (i = 0; i < psobjs; i++)
- free(psobj[i]);
- free(psobj);
- psobj = nil;
- psobjs = 0;
- }
-}
-
-void
-showinfo(char *filename, int show, char *pagelist)
-{
- int page, spage, epage;
- char *spec, *dash;
- int allpages;
-
- if (!src)
- infousage();
-
- allpages = !strcmp(pagelist, "1-");
-
- spec = strsep(&pagelist, ",");
- while (spec)
- {
- dash = strchr(spec, '-');
-
- if (dash == spec)
- spage = epage = 1;
- else
- spage = epage = atoi(spec);
-
- if (dash)
- {
- if (strlen(dash) > 1)
- epage = atoi(dash + 1);
- else
- epage = pdf_getpagecount(srcpages);
- }
-
- if (spage > epage)
- page = spage, spage = epage, epage = page;
-
- if (spage < 1)
- spage = 1;
- if (epage > pdf_getpagecount(srcpages))
- epage = pdf_getpagecount(srcpages);
- if (spage > pdf_getpagecount(srcpages))
- spage = pdf_getpagecount(srcpages);
-
- if (allpages)
- printf("Retrieving info from pages %d-%d...\n", spage, epage);
- if (spage >= 1)
- {
- for (page = spage; page <= epage; page++)
- {
- gatherinfo(show, page);
- if (!allpages)
- {
- printf("Page %05d:\n", page);
- printinfo(filename, show, page);
- printf("\n");
- }
- }
- }
-
- spec = strsep(&pagelist, ",");
- }
-
- if (allpages)
- printinfo(filename, show, -1);
-}
-
-void
-infomain(int argc, char **argv)
-{
- enum { NO_FILE_OPENED, NO_INFO_GATHERED, INFO_SHOWN } state;
- char *filename = "";
- char *password = "";
- int show = ALL;
- int c;
-
- while ((c = getopt(argc, argv, "mfispxd:")) != -1)
- {
- switch (c)
- {
- case 'm': if (show == ALL) show = DIMENSIONS; else show |= DIMENSIONS; break;
- case 'f': if (show == ALL) show = FONTS; else show |= FONTS; break;
- case 'i': if (show == ALL) show = IMAGES; else show |= IMAGES; break;
- case 's': if (show == ALL) show = SHADINGS; else show |= SHADINGS; break;
- case 'p': if (show == ALL) show = PATTERNS; else show |= PATTERNS; break;
- case 'x': if (show == ALL) show = XOBJS; else show |= XOBJS; break;
- case 'd': password = optarg; break;
- default:
- infousage();
- break;
- }
- }
-
- if (optind == argc)
- infousage();
-
- state = NO_FILE_OPENED;
- while (optind < argc)
- {
- if (strstr(argv[optind], ".pdf") || strstr(argv[optind], ".PDF"))
- {
- if (state == NO_INFO_GATHERED)
- {
- printglobalinfo(filename);
- showinfo(filename, show, "1-");
- }
-
- filename = argv[optind];
- opensrc(filename, password, 1);
- gatherglobalinfo();
- state = NO_INFO_GATHERED;
- }
- else
- {
- if (state == NO_INFO_GATHERED)
- printglobalinfo(filename);
- showinfo(filename, show, argv[optind]);
- state = INFO_SHOWN;
- }
-
- optind++;
- }
-
- if (state == NO_INFO_GATHERED)
- {
- printglobalinfo(filename);
- showinfo(filename, show, "1-");
- }
-
- closesrc();
-}
-
-/* --------------------------------------------------------------------- */
-
-/*
- * Edit tool.
- * Copy or impose pages from other pdf files into output pdf.
- */
-
-/* for each source pdf, build a list of objects to transplant.
- * for each source pdf, do the transplants at the end of object collecting.
- * build a new page tree structure for output.
- * change page nodes into xobjects for over and n-up modes.
- * create new page nodes.
- * create new page tree.
- */
-
-enum { COPY, OVER, NUP2, NUP4, NUP8 };
-
-pdf_xref *editxref = nil;
-fz_obj *editpagelist = nil;
-fz_obj *editmodelist = nil;
-fz_obj *editobjects = nil;
-int editmode = COPY;
-
-void
-editusage(void)
-{
- fprintf(stderr, "usage: mupdftool edit [-o file.pdf] [mode file.pdf pages ... ]\n");
- fprintf(stderr, " mode is one of: copy over 2up 4up 8up\n");
- fprintf(stderr, " pages is a comma separated list of ranges\n");
- fprintf(stderr, " example:\n");
- fprintf(stderr, " mupdftool edit -o output.pdf copy one.pdf 1-3,5,9 two.pdf 1-\n");
- exit(1);
-}
-
-void
-editcopy(int pagenum)
-{
- fz_error *error;
- fz_obj *obj;
- fz_obj *ref;
- fz_obj *num;
-
- printf("copy %s page %d\n", srcname, pagenum);
-
- ref = srcpages->pref[pagenum - 1];
- obj = pdf_getpageobject(srcpages, pagenum - 1);
-
- fz_dictdels(obj, "Parent");
- /*
- fz_dictdels(obj, "B");
- fz_dictdels(obj, "PieceInfo");
- fz_dictdels(obj, "Metadata");
- fz_dictdels(obj, "Annots");
- fz_dictdels(obj, "Tabs");
- */
-
- pdf_updateobject(src, fz_tonum(ref), fz_togen(ref), obj);
-
- error = fz_arraypush(editobjects, ref);
- if (error)
- die(error);
-
- error = fz_newint(&num, editmode);
- if (error)
- die(error);
-
- error = fz_arraypush(editmodelist, num);
- if (error)
- die(error);
-
- fz_dropobj(num);
-}
-
-void
-editflushobjects(void)
-{
- fz_error *error;
- fz_obj *results;
- int i;
-
- error = pdf_transplant(editxref, src, &results, editobjects);
- if (error)
- die(error);
-
- for (i = 0; i < fz_arraylen(results); i++)
- {
- error = fz_arraypush(editpagelist, fz_arrayget(results, i));
- if (error)
- die(error);
- }
-
- fz_dropobj(results);
-}
-
-void
-editflushpagetree(void)
-{
-
- /* TODO: merge pages where editmode != COPY by turning them into XObjects
- and creating a new page object with resource dictionary and content
- stream placing the xobjects on the page. */
-}
-
-void
-editflushcatalog(void)
-{
- fz_error *error;
- int rootnum, rootgen;
- int listnum, listgen;
- fz_obj *listref;
- fz_obj *obj;
- int i;
-
- /* Create page tree and add back-links */
-
- error = pdf_allocobject(editxref, &listnum, &listgen);
- if (error)
- die(error);
-
- error = fz_packobj(&obj, "<</Type/Pages/Count %i/Kids %o>>",
- fz_arraylen(editpagelist),
- editpagelist);
- if (error)
- die(error);
-
- pdf_updateobject(editxref, listnum, listgen, obj);
-
- fz_dropobj(obj);
-
- error = fz_newindirect(&listref, listnum, listgen);
- if (error)
- die(error);
-
- for (i = 0; i < fz_arraylen(editpagelist); i++)
- {
- int num = fz_tonum(fz_arrayget(editpagelist, i));
- int gen = fz_togen(fz_arrayget(editpagelist, i));
-
- error = pdf_loadobject(&obj, editxref, num, gen);
- if (error)
- die(error);
-
- error = fz_dictputs(obj, "Parent", listref);
- if (error)
- die(error);
-
- pdf_updateobject(editxref, num, gen, obj);
-
- fz_dropobj(obj);
- }
-
- /* Create catalog */
-
- error = pdf_allocobject(editxref, &rootnum, &rootgen);
- if (error)
- die(error);
-
- error = fz_packobj(&obj, "<</Type/Catalog/Pages %r>>", listnum, listgen);
- if (error)
- die(error);
-
- pdf_updateobject(editxref, rootnum, rootgen, obj);
-
- fz_dropobj(obj);
-
- /* Create trailer */
-
- error = fz_packobj(&editxref->trailer, "<</Root %r>>", rootnum, rootgen);
- if (error)
- die(error);
-}
-
-void
-editpages(char *pagelist)
-{
- int page, spage, epage;
- char *spec, *dash;
-
- if (!src)
- editusage();
-
- spec = strsep(&pagelist, ",");
- while (spec)
- {
- dash = strchr(spec, '-');
-
- if (dash == spec)
- spage = epage = 1;
- else
- spage = epage = atoi(spec);
-
- if (dash)
- {
- if (strlen(dash) > 1)
- epage = atoi(dash + 1);
- else
- epage = pdf_getpagecount(srcpages);
- }
-
- if (spage > epage)
- page = spage, spage = epage, epage = page;
-
- for (page = spage; page <= epage; page++)
- {
- if (page < 1 || page > pdf_getpagecount(srcpages))
- continue;
- editcopy(page);
- }
-
- spec = strsep(&pagelist, ",");
- }
-}
-
-void
-editmain(int argc, char **argv)
-{
- char *outfile = "out.pdf";
- fz_error *error;
- int c;
-
- while ((c = getopt(argc, argv, "o:")) != -1)
- {
- switch (c)
- {
- case 'o':
- outfile = optarg;
- break;
- default:
- editusage();
- break;
- }
- }
-
- if (optind == argc)
- editusage();
-
- error = pdf_newxref(&editxref);
- if (error)
- die(error);
-
- error = pdf_initxref(editxref);
- if (error)
- die(error);
-
- error = fz_newarray(&editpagelist, 100);
- if (error)
- die(error);
-
- error = fz_newarray(&editmodelist, 100);
- if (error)
- die(error);
-
- while (optind < argc)
- {
- if (strstr(argv[optind], ".pdf"))
- {
- if (editobjects)
- editflushobjects();
-
- opensrc(argv[optind], "", 1);
-
- error = fz_newarray(&editobjects, 100);
- if (error)
- die(error);
- }
- else if (!strcmp(argv[optind], "copy"))
- editmode = COPY;
- else if (!strcmp(argv[optind], "over"))
- editmode = OVER;
- else if (!strcmp(argv[optind], "2up"))
- editmode = NUP2;
- else if (!strcmp(argv[optind], "4up"))
- editmode = NUP4;
- else if (!strcmp(argv[optind], "8up"))
- editmode = NUP8;
- else
- editpages(argv[optind]);
- optind++;
- }
-
- if (editobjects)
- editflushobjects();
-
- closesrc();
-
- editflushpagetree();
- editflushcatalog();
-
- error = pdf_savexref(editxref, outfile, nil);
- if (error)
- die(error);
-
- pdf_closexref(editxref);
-}
-
-/* --------------------------------------------------------------------- */
-
-/*
- * Main!
- */
-
-void
-mainusage(void)
-{
- fprintf(stderr, "usage: mupdftool <command> [options...]\n");
- fprintf(stderr, " command is one of: show, draw, clean, edit, info\n");
- exit(1);
-}
-
-int
-main(int argc, char **argv)
-{
- if (argc >= 2)
- {
- optind = 2;
- if (!strcmp(argv[1], "show"))
- showmain(argc, argv);
- else if (!strcmp(argv[1], "draw"))
- drawmain(argc, argv);
- else if (!strcmp(argv[1], "clean"))
- cleanmain(argc, argv);
- else if (!strcmp(argv[1], "edit"))
- editmain(argc, argv);
- else if (!strcmp(argv[1], "info"))
- infomain(argc, argv);
- else
- mainusage();
- }
- else
- mainusage();
- return 0;
-}
-
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-10 01:45:12 +0000