static void sweepobj(fz_obj *obj)
{
int i;
if (fz_isindirect(obj))
sweepref(obj);
else if (fz_isdict(obj))
for (i = 0; i < fz_dictlen(obj); i++)
sweepobj(fz_dictgetval(obj, i));
else if (fz_isarray(obj))
for (i = 0; i < fz_arraylen(obj); i++)
sweepobj(fz_arrayget(obj, i));
}
static void sweepobj(fz_obj *obj)
{
int i;
if (fz_is_indirect(obj))
sweepref(obj);
else if (fz_is_dict(ctx, obj))
for (i = 0; i < fz_dict_len(ctx, obj); i++)
sweepobj(fz_dict_get_val(ctx, obj, i));
else if (fz_is_array(ctx, obj))
for (i = 0; i < fz_array_len(ctx, obj); i++)
sweepobj(fz_array_get(ctx, obj, i));
}
static void sweepref(fz_obj *obj)
{
int num = fz_tonum(obj);
int gen = fz_togen(obj);
if (num < 0 || num >= xref->len)
return;
if (uselist[num])
return;
uselist[num] = 1;
/* Bake in /Length in stream objects */
if (pdf_isstream(xref, num, gen))
{
fz_obj *len = fz_dictgets(obj, "Length");
if (fz_isindirect(len))
{
uselist[fz_tonum(len)] = 0;
len = fz_resolveindirect(len);
fz_dictputs(obj, "Length", len);
}
}
sweepobj(fz_resolveindirect(obj));
}
static void sweepref(fz_obj *obj)
{
int num = fz_to_num(obj);
int gen = fz_to_gen(obj);
if (num < 0 || num >= xref->len)
return;
if (uselist[num])
return;
uselist[num] = 1;
/* Bake in /Length in stream objects */
fz_try(ctx)
{
if (pdf_is_stream(xref, num, gen))
{
fz_obj *len = fz_dict_gets(obj, "Length");
if (fz_is_indirect(len))
{
uselist[fz_to_num(len)] = 0;
len = fz_resolve_indirect(len);
fz_dict_puts(obj, "Length", len);
}
}
}
fz_catch(ctx)
{
/* Leave broken */
}
sweepobj(fz_resolve_indirect(obj));
}
static void sweepobj(fz_obj *obj)
{
int i;
if (fz_is_indirect(obj))
sweepref(obj);
else if (fz_is_dict(obj))
{
int n = fz_dict_len(obj);
for (i = 0; i < n; i++)
sweepobj(fz_dict_get_val(obj, i));
}
else if (fz_is_array(obj))
{
int n = fz_array_len(obj);
for (i = 0; i < n; i++)
sweepobj(fz_array_get(obj, i));
}
}
int main(int argc, char **argv)
{
fz_error error;
char *infile;
char *outfile = "out.pdf";
char *password = "";
int c, num;
int subset;
while ((c = fz_getopt(argc, argv, "adgp:")) != -1)
{
switch (c)
{
case 'p': password = fz_optarg; break;
case 'g': dogarbage ++; break;
case 'd': doexpand ++; break;
case 'a': doascii ++; break;
default: usage(); break;
}
}
if (argc - fz_optind < 1)
usage();
infile = argv[fz_optind++];
if (argc - fz_optind > 0 &&
(strstr(argv[fz_optind], ".pdf") || strstr(argv[fz_optind], ".PDF")))
{
outfile = argv[fz_optind++];
}
subset = 0;
if (argc - fz_optind > 0)
subset = 1;
error = pdf_openxref(&xref, infile, password);
if (error)
die(fz_rethrow(error, "cannot open input file '%s'", infile));
out = fopen(outfile, "wb");
if (!out)
die(fz_throw("cannot open output file '%s'", outfile));
fprintf(out, "%%PDF-%d.%d\n", xref->version / 10, xref->version % 10);
fprintf(out, "%%\316\274\341\277\246\n\n");
uselist = fz_calloc(xref->len + 1, sizeof(char));
ofslist = fz_calloc(xref->len + 1, sizeof(int));
genlist = fz_calloc(xref->len + 1, sizeof(int));
renumbermap = fz_calloc(xref->len + 1, sizeof(int));
for (num = 0; num < xref->len; num++)
{
uselist[num] = 0;
ofslist[num] = 0;
genlist[num] = 0;
renumbermap[num] = num;
}
/* Make sure any objects hidden in compressed streams have been loaded */
preloadobjstms();
/* Only retain the specified subset of the pages */
if (subset)
retainpages(argc, argv);
/* Sweep & mark objects from the trailer */
if (dogarbage >= 1)
sweepobj(xref->trailer);
/* Coalesce and renumber duplicate objects */
if (dogarbage >= 3)
removeduplicateobjs();
/* Compact xref by renumbering and removing unused objects */
if (dogarbage >= 2)
compactxref();
/* Make renumbering affect all indirect references and update xref */
if (dogarbage >= 2)
renumberobjs();
writepdf();
if (fclose(out))
die(fz_throw("cannot close output file '%s'", outfile));
fz_free(uselist);
fz_free(ofslist);
fz_free(genlist);
fz_free(renumbermap);
pdf_freexref(xref);
fz_flushwarnings();
return 0;
}
int main(int argc, char **argv)
#endif
{
char *infile;
char *outfile = "out.pdf";
char *password = "";
int c, num;
int subset;
while ((c = fz_getopt(argc, argv, "adfgip:")) != -1)
{
switch (c)
{
case 'p': password = fz_optarg; break;
case 'g': dogarbage ++; break;
case 'd': doexpand ^= expand_all; break;
case 'f': doexpand ^= expand_fonts; break;
case 'i': doexpand ^= expand_images; break;
case 'a': doascii ++; break;
default: usage(); break;
}
}
if (argc - fz_optind < 1)
usage();
infile = argv[fz_optind++];
if (argc - fz_optind > 0 &&
(strstr(argv[fz_optind], ".pdf") || strstr(argv[fz_optind], ".PDF")))
{
outfile = argv[fz_optind++];
}
subset = 0;
if (argc - fz_optind > 0)
subset = 1;
ctx = fz_new_context(NULL, NULL, FZ_STORE_UNLIMITED);
if (!ctx)
{
fprintf(stderr, "cannot initialise context\n");
exit(1);
}
xref = pdf_open_document(ctx, infile);
if (pdf_needs_password(xref))
if (!pdf_authenticate_password(xref, password))
fz_throw(ctx, "cannot authenticate password: %s\n", infile);
out = fopen(outfile, "wb");
if (!out)
fz_throw(ctx, "cannot open output file '%s'", outfile);
fprintf(out, "%%PDF-%d.%d\n", xref->version / 10, xref->version % 10);
fprintf(out, "%%\316\274\341\277\246\n\n");
uselist = fz_malloc_array(ctx, xref->len + 1, sizeof(char));
ofslist = fz_malloc_array(ctx, xref->len + 1, sizeof(int));
genlist = fz_malloc_array(ctx, xref->len + 1, sizeof(int));
renumbermap = fz_malloc_array(ctx, xref->len + 1, sizeof(int));
for (num = 0; num < xref->len; num++)
{
uselist[num] = 0;
ofslist[num] = 0;
genlist[num] = 0;
renumbermap[num] = num;
}
/* Make sure any objects hidden in compressed streams have been loaded */
preloadobjstms();
/* Only retain the specified subset of the pages */
if (subset)
retainpages(argc, argv);
/* Sweep & mark objects from the trailer */
if (dogarbage >= 1)
sweepobj(xref->trailer);
/* Coalesce and renumber duplicate objects */
if (dogarbage >= 3)
removeduplicateobjs();
/* Compact xref by renumbering and removing unused objects */
if (dogarbage >= 2)
compactxref();
/* Make renumbering affect all indirect references and update xref */
/* Do not renumber objects if encryption is in use, as the object
* numbers are baked into the streams/strings, and we can't currently
* cope with moving them. See bug 692627. */
if (dogarbage >= 2 && !xref->crypt)
renumberobjs();
writepdf();
if (fclose(out))
fz_throw(ctx, "cannot close output file '%s'", outfile);
fz_free(xref->ctx, uselist);
fz_free(xref->ctx, ofslist);
fz_free(xref->ctx, genlist);
fz_free(xref->ctx, renumbermap);
pdf_close_document(xref);
fz_free_context(ctx);
return 0;
}
int main(int argc, char **argv)
{
fz_error error;
char *infile;
char *outfile = "out.pdf";
char *password = "";
int c, num;
int subset;
while ((c = fz_getopt(argc, argv, "adgp:")) != -1)
{
switch (c)
{
case 'p': password = fz_optarg; break;
case 'g': dogarbage ++; break;
case 'd': doexpand ++; break;
case 'a': doascii ++; break;
default: usage(); break;
}
}
if (argc - fz_optind < 1)
usage();
infile = argv[fz_optind++];
if (argc - fz_optind > 0 &&
(strstr(argv[fz_optind], ".pdf") || strstr(argv[fz_optind], ".PDF")))
{
outfile = argv[fz_optind++];
}
subset = 0;
if (argc - fz_optind > 0)
subset = 1;
ctx = fz_context_init(&fz_alloc_default);
if (ctx == NULL)
die(fz_error_note(ctx, 1, "failed to initialise context"));
error = pdf_open_xref(ctx, &xref, infile, password);
if (error)
die(fz_error_note(ctx, error, "cannot open input file '%s'", infile));
out = fopen(outfile, "wb");
if (!out)
die(fz_error_make(ctx, "cannot open output file '%s'", outfile));
fprintf(out, "%%PDF-%d.%d\n", xref->version / 10, xref->version % 10);
fprintf(out, "%%\316\274\341\277\246\n\n");
uselist = fz_calloc(ctx, xref->len + 1, sizeof(char));
ofslist = fz_calloc(ctx, xref->len + 1, sizeof(int));
genlist = fz_calloc(ctx, xref->len + 1, sizeof(int));
renumbermap = fz_calloc(ctx, xref->len + 1, sizeof(int));
for (num = 0; num < xref->len; num++)
{
uselist[num] = 0;
ofslist[num] = 0;
genlist[num] = 0;
renumbermap[num] = num;
}
/* Make sure any objects hidden in compressed streams have been loaded */
preloadobjstms();
/* Only retain the specified subset of the pages */
if (subset)
retainpages(argc, argv);
/* Sweep & mark objects from the trailer */
if (dogarbage >= 1)
sweepobj(xref->trailer);
/* Coalesce and renumber duplicate objects */
if (dogarbage >= 3)
removeduplicateobjs();
/* Compact xref by renumbering and removing unused objects */
if (dogarbage >= 2)
compactxref();
/* Make renumbering affect all indirect references and update xref */
/* Do not renumber objects if encryption is in use, as the object
* numbers are baked into the streams/strings, and we can't currently
* cope with moving them. See bug 692627. */
if (dogarbage >= 2 && xref->crypt == NULL)
renumberobjs();
writepdf();
if (fclose(out))
die(fz_error_make(ctx, "cannot close output file '%s'", outfile));
fz_free(xref->ctx, uselist);
fz_free(xref->ctx, ofslist);
fz_free(xref->ctx, genlist);
fz_free(xref->ctx, renumbermap);
pdf_free_xref(xref);
fz_flush_warnings(ctx);
fz_context_fin(ctx);
return 0;
}