/*
* Load uncompressed contents of a stream into buf.
*/
fz_error
pdf_load_stream(fz_buffer **bufp, pdf_xref *xref, int num, int gen)
{
fz_error error;
fz_stream *stm;
fz_obj *dict, *obj;
int i, len;
error = pdf_open_stream(&stm, xref, num, gen);
if (error)
return fz_rethrow(error, "cannot open stream (%d %d R)", num, gen);
error = pdf_load_object(&dict, xref, num, gen);
if (error)
return fz_rethrow(error, "cannot load stream dictionary (%d %d R)", num, gen);
len = fz_to_int(fz_dict_gets(dict, "Length"));
obj = fz_dict_gets(dict, "Filter");
len = pdf_guess_filter_length(len, fz_to_name(obj));
for (i = 0; i < fz_array_len(obj); i++)
len = pdf_guess_filter_length(len, fz_to_name(fz_array_get(obj, i)));
fz_drop_obj(dict);
error = fz_read_all(bufp, stm, len);
if (error)
{
fz_close(stm);
return fz_rethrow(error, "cannot read raw stream (%d %d R)", num, gen);
}
fz_close(stm);
return fz_okay;
}
static int
fz_dict_finds(fz_obj *obj, char *key, int *location)
{
if (obj->u.d.sorted && obj->u.d.len > 0)
{
int l = 0;
int r = obj->u.d.len - 1;
if (strcmp(fz_to_name(obj->u.d.items[r].k), key) < 0)
{
if (location)
*location = r + 1;
return -1;
}
while (l <= r)
{
int m = (l + r) >> 1;
int c = -strcmp(fz_to_name(obj->u.d.items[m].k), key);
if (c < 0)
r = m - 1;
else if (c > 0)
l = m + 1;
else
return m;
if (location)
*location = l;
}
}
int
pdf_is_jpx_image(fz_obj *dict)
{
fz_obj *filter;
int i;
filter = fz_dict_gets(dict, "Filter");
if (!strcmp(fz_to_name(filter), "JPXDecode"))
return 1;
for (i = 0; i < fz_array_len(filter); i++)
if (!strcmp(fz_to_name(fz_array_get(filter, i)), "JPXDecode"))
return 1;
return 0;
}
/* SumatraPDF: partial support for file attachment icons */
static pdf_annot *
pdf_create_file_annot(pdf_xref *xref, fz_obj *obj)
{
fz_buffer *content = fz_new_buffer(xref->ctx, 512);
fz_rect rect = pdf_to_rect(xref->ctx, fz_dict_gets(xref->ctx, obj, "Rect"));
char *icon_name = fz_to_name(xref->ctx, fz_dict_gets(xref->ctx, obj, "Name"));
char *content_ap = ANNOT_FILE_ATTACHMENT_AP_PUSHPIN;
float rgb[3];
pdf_get_annot_color(xref->ctx, obj, rgb);
if (!strcmp(icon_name, "Graph"))
content_ap = ANNOT_FILE_ATTACHMENT_AP_GRAPH;
else if (!strcmp(icon_name, "Paperclip"))
content_ap = ANNOT_FILE_ATTACHMENT_AP_PAPERCLIP;
else if (!strcmp(icon_name, "Tag"))
content_ap = ANNOT_FILE_ATTACHMENT_AP_TAG;
fz_buffer_printf(xref->ctx, content, "q %.4f 0 0 %.4f 0 0 cm ",
(rect.x1 - rect.x0) / 24, (rect.y1 - rect.y0) / 24);
fz_buffer_printf(xref->ctx, content, content_ap, 0.5, 0.5, 0.5);
fz_buffer_printf(xref->ctx, content, " 1 0 0 1 0 1 cm ");
fz_buffer_printf(xref->ctx, content, content_ap, rgb[0], rgb[1], rgb[2]);
fz_buffer_printf(xref->ctx, content, " Q", content_ap);
obj = pdf_clone_for_view_only(xref, obj);
return pdf_create_annot(xref->ctx, rect, obj, content, NULL, 0);
}
static void writeobject(int num, int gen)
{
fz_error error;
fz_obj *obj;
fz_obj *type;
error = pdf_load_object(&obj, xref, num, gen);
if (error)
die(error);
/* skip ObjStm and XRef objects */
if (fz_is_dict(ctx, obj))
{
type = fz_dict_gets(ctx, obj, "Type");
if (fz_is_name(ctx, type) && !strcmp(fz_to_name(ctx, type), "ObjStm"))
{
uselist[num] = 0;
fz_drop_obj(ctx, obj);
return;
}
if (fz_is_name(ctx, type) && !strcmp(fz_to_name(ctx, type), "XRef"))
{
uselist[num] = 0;
fz_drop_obj(ctx, obj);
return;
}
}
if (!pdf_is_stream(xref, num, gen))
{
fprintf(out, "%d %d obj\n", num, gen);
fz_fprint_obj(ctx, out, obj, !doexpand);
fprintf(out, "endobj\n\n");
}
else
{
if (doexpand && !pdf_is_jpx_image(ctx, obj))
expandstream(obj, num, gen);
else
copystream(obj, num, gen);
}
fz_drop_obj(ctx, obj);
}
/*
* Scan stream dictionary for an explicit /Crypt filter
*/
static int
pdf_stream_has_crypt(fz_obj *stm)
{
fz_obj *filters;
fz_obj *obj;
int i;
filters = fz_dict_getsa(stm, "Filter", "F");
if (filters)
{
if (!strcmp(fz_to_name(filters), "Crypt"))
return 1;
if (fz_is_array(filters))
{
for (i = 0; i < fz_array_len(filters); i++)
{
obj = fz_array_get(filters, i);
if (!strcmp(fz_to_name(obj), "Crypt"))
return 1;
}
}
}
return 0;
}
/* SumatraPDF: partial support for text icons */
static pdf_annot *
pdf_create_text_annot(pdf_xref *xref, fz_obj *obj)
{
fz_context *ctx = xref->ctx;
fz_buffer *content = fz_new_buffer(ctx, 512);
fz_rect rect = pdf_to_rect(ctx, fz_dict_gets(ctx, obj, "Rect"));
char *icon_name = fz_to_name(ctx, fz_dict_gets(ctx, obj, "Name"));
char *content_ap = ANNOT_TEXT_AP_NOTE;
float rgb[3];
rect.x1 = rect.x0 + 24;
rect.y0 = rect.y1 - 24;
pdf_get_annot_color(ctx, obj, rgb);
if (!strcmp(icon_name, "Comment"))
content_ap = ANNOT_TEXT_AP_COMMENT;
else if (!strcmp(icon_name, "Key"))
content_ap = ANNOT_TEXT_AP_KEY;
else if (!strcmp(icon_name, "Help"))
content_ap = ANNOT_TEXT_AP_HELP;
else if (!strcmp(icon_name, "Paragraph"))
content_ap = ANNOT_TEXT_AP_PARAGRAPH;
else if (!strcmp(icon_name, "NewParagraph"))
content_ap = ANNOT_TEXT_AP_NEW_PARAGRAPH;
else if (!strcmp(icon_name, "Insert"))
content_ap = ANNOT_TEXT_AP_INSERT;
else if (!strcmp(icon_name, "Cross"))
content_ap = ANNOT_TEXT_AP_CROSS;
else if (!strcmp(icon_name, "Circle"))
content_ap = ANNOT_TEXT_AP_CIRCLE;
// TODO: make icons semi-transparent (cf. pdf_create_highlight_annot)?
fz_buffer_printf(ctx, content, "q ");
fz_buffer_printf(ctx, content, content_ap, 0.5, 0.5, 0.5);
fz_buffer_printf(ctx, content, " 1 0 0 1 0 1 cm ");
fz_buffer_printf(ctx, content, content_ap, rgb[0], rgb[1], rgb[2]);
fz_buffer_printf(ctx, content, " Q", content_ap);
obj = pdf_clone_for_view_only(xref, obj);
return pdf_create_annot(ctx, rect, obj, content, NULL, 0);
}
static pdf_annot *
pdf_create_annot_with_appearance(pdf_xref *xref, fz_obj *obj)
{
fz_context *ctx = xref->ctx;
char *type = fz_to_name(ctx, fz_dict_gets(ctx, obj, "Subtype"));
if (!strcmp(type, "Link"))
return pdf_create_link_annot(xref, obj);
if (!strcmp(type, "Text"))
return pdf_create_text_annot(xref, obj);
if (!strcmp(type, "FileAttachment"))
return pdf_create_file_annot(xref, obj);
/* TODO: Adobe Reader seems to sometimes ignore the appearance stream for highlights(?) */
if (!strcmp(type, "Highlight"))
return pdf_create_highlight_annot(xref, obj);
if (!strcmp(type, "Underline") || !strcmp(type, "StrikeOut") || !strcmp(type, "Squiggly"))
return pdf_create_markup_annot(xref, obj, type);
if (!strcmp(type, "FreeText"))
return pdf_create_freetext_annot(xref, obj);
return NULL;
}
static mume_rect_t _pdf_doc_get_link_dest_rect(
struct _pdf_doc *self, pdf_link *link)
{
mume_rect_t rect = mume_rect_empty;
fz_obj *dest = link->dest;
fz_obj *obj = fz_array_get(dest, 1);
const char *type = fz_to_name(obj);
if (strcmp(type, "XYZ") == 0) {
/* NULL values for the coordinates mean: keep the
* current position. */
if (!fz_is_null(fz_array_get(dest, 2)))
rect.x = round(fz_to_real(fz_array_get(dest, 2)));
if (!fz_is_null(fz_array_get(dest, 3)))
rect.y = round(fz_to_real(fz_array_get(dest, 3)));
}
else if (strcmp(type, "FitR") == 0) {
double x0, y0, x1, y1;
x0 = fz_to_real(fz_array_get(dest, 2));
y0 = fz_to_real(fz_array_get(dest, 5));
x1 = fz_to_real(fz_array_get(dest, 4));
y1 = fz_to_real(fz_array_get(dest, 3));
rect.x = round(x0);
rect.y = round(y0);
rect.width = round(x1 - x0);
rect.height = round(y1 - y0);
}
else if (strcmp(type, "FitH") == 0 || strcmp(type, "FitBH") == 0) {
rect.y = round(fz_to_real(fz_array_get(dest, 2)));
}
return rect;
}
static void savefont(fz_obj *dict, int num)
{
fz_error error;
char name[1024];
char *subtype;
fz_buffer *buf;
fz_obj *stream = NULL;
fz_obj *obj;
char *ext = "";
FILE *f;
char *fontname = "font";
int n;
obj = fz_dict_gets(ctx, dict, "FontName");
if (obj)
fontname = fz_to_name(ctx, obj);
obj = fz_dict_gets(ctx, dict, "FontFile");
if (obj)
{
stream = obj;
ext = "pfa";
}
obj = fz_dict_gets(ctx, dict, "FontFile2");
if (obj)
{
stream = obj;
ext = "ttf";
}
obj = fz_dict_gets(ctx, dict, "FontFile3");
if (obj)
{
stream = obj;
obj = fz_dict_gets(ctx, obj, "Subtype");
if (obj && !fz_is_name(ctx, obj))
die(fz_error_make(ctx, "Invalid font descriptor subtype"));
subtype = fz_to_name(ctx, obj);
if (!strcmp(subtype, "Type1C"))
ext = "cff";
else if (!strcmp(subtype, "CIDFontType0C"))
ext = "cid";
else
die(fz_error_make(ctx, "Unhandled font type '%s'", subtype));
}
if (!stream)
{
fz_warn(ctx, "Unhandled font type");
return;
}
buf = fz_new_buffer(ctx, 0);
error = pdf_load_stream(&buf, xref, fz_to_num(stream), fz_to_gen(stream));
if (error)
die(error);
sprintf(name, "%s-%04d.%s", fontname, num, ext);
printf("extracting font %s\n", name);
f = fopen(name, "wb");
if (f == NULL)
die(fz_error_make(ctx, "Error creating font file"));
n = fwrite(buf->data, 1, buf->len, f);
if (n < buf->len)
die(fz_error_make(ctx, "Error writing font file"));
if (fclose(f) < 0)
die(fz_error_make(ctx, "Error closing font file"));
fz_drop_buffer(ctx, buf);
}
static fz_error
pdf_load_colorspace_imp(fz_colorspace **csp, pdf_xref *xref, fz_obj *obj)
{
if (fz_is_name(obj))
{
if (!strcmp(fz_to_name(obj), "Pattern"))
*csp = fz_device_gray;
else if (!strcmp(fz_to_name(obj), "G"))
*csp = fz_device_gray;
else if (!strcmp(fz_to_name(obj), "RGB"))
*csp = fz_device_rgb;
else if (!strcmp(fz_to_name(obj), "CMYK"))
*csp = fz_device_cmyk;
else if (!strcmp(fz_to_name(obj), "DeviceGray"))
*csp = fz_device_gray;
else if (!strcmp(fz_to_name(obj), "DeviceRGB"))
*csp = fz_device_rgb;
else if (!strcmp(fz_to_name(obj), "DeviceCMYK"))
*csp = fz_device_cmyk;
else
return fz_throw("unknown colorspace: %s", fz_to_name(obj));
return fz_okay;
}
else if (fz_is_array(obj))
{
fz_obj *name = fz_array_get(obj, 0);
if (fz_is_name(name))
{
/* load base colorspace instead */
if (!strcmp(fz_to_name(name), "Pattern"))
{
fz_error error;
obj = fz_array_get(obj, 1);
if (!obj)
{
*csp = fz_device_gray;
return fz_okay;
}
error = pdf_load_colorspace(csp, xref, obj);
if (error)
return fz_rethrow(error, "cannot load pattern (%d %d R)", fz_to_num(obj), fz_to_gen(obj));
}
else if (!strcmp(fz_to_name(name), "G"))
*csp = fz_device_gray;
else if (!strcmp(fz_to_name(name), "RGB"))
*csp = fz_device_rgb;
else if (!strcmp(fz_to_name(name), "CMYK"))
*csp = fz_device_cmyk;
else if (!strcmp(fz_to_name(name), "DeviceGray"))
*csp = fz_device_gray;
else if (!strcmp(fz_to_name(name), "DeviceRGB"))
*csp = fz_device_rgb;
else if (!strcmp(fz_to_name(name), "DeviceCMYK"))
*csp = fz_device_cmyk;
else if (!strcmp(fz_to_name(name), "CalGray"))
*csp = fz_device_gray;
else if (!strcmp(fz_to_name(name), "CalRGB"))
*csp = fz_device_rgb;
else if (!strcmp(fz_to_name(name), "CalCMYK"))
*csp = fz_device_cmyk;
else if (!strcmp(fz_to_name(name), "Lab"))
*csp = fz_device_lab;
else if (!strcmp(fz_to_name(name), "ICCBased"))
return load_icc_based(csp, xref, fz_array_get(obj, 1));
else if (!strcmp(fz_to_name(name), "Indexed"))
return load_indexed(csp, xref, obj);
else if (!strcmp(fz_to_name(name), "I"))
return load_indexed(csp, xref, obj);
else if (!strcmp(fz_to_name(name), "Separation"))
return load_separation(csp, xref, obj);
else if (!strcmp(fz_to_name(name), "DeviceN"))
return load_separation(csp, xref, obj);
else
return fz_throw("syntaxerror: unknown colorspace %s", fz_to_name(name));
return fz_okay;
}
}
return fz_throw("syntaxerror: could not parse color space (%d %d R)", fz_to_num(obj), fz_to_gen(obj));
}
static void writeobject(int num, int gen)
{
fz_obj *obj;
fz_obj *type;
obj = pdf_load_object(xref, num, gen);
/* skip ObjStm and XRef objects */
if (fz_is_dict(obj))
{
type = fz_dict_gets(obj, "Type");
if (fz_is_name(type) && !strcmp(fz_to_name(type), "ObjStm"))
{
uselist[num] = 0;
fz_drop_obj(obj);
return;
}
if (fz_is_name(type) && !strcmp(fz_to_name(type), "XRef"))
{
uselist[num] = 0;
fz_drop_obj(obj);
return;
}
}
if (!pdf_is_stream(xref, num, gen))
{
fprintf(out, "%d %d obj\n", num, gen);
fz_fprint_obj(out, obj, doexpand == 0);
fprintf(out, "endobj\n\n");
}
else
{
int dontexpand = 0;
if (doexpand != 0 && doexpand != expand_all)
{
fz_obj *o;
if ((o = fz_dict_gets(obj, "Type"), !strcmp(fz_to_name(o), "XObject")) &&
(o = fz_dict_gets(obj, "Subtype"), !strcmp(fz_to_name(o), "Image")))
dontexpand = !(doexpand & expand_images);
if (o = fz_dict_gets(obj, "Type"), !strcmp(fz_to_name(o), "Font"))
dontexpand = !(doexpand & expand_fonts);
if (o = fz_dict_gets(obj, "Type"), !strcmp(fz_to_name(o), "FontDescriptor"))
dontexpand = !(doexpand & expand_fonts);
if ((o = fz_dict_gets(obj, "Length1")) != NULL)
dontexpand = !(doexpand & expand_fonts);
if ((o = fz_dict_gets(obj, "Length2")) != NULL)
dontexpand = !(doexpand & expand_fonts);
if ((o = fz_dict_gets(obj, "Length3")) != NULL)
dontexpand = !(doexpand & expand_fonts);
if (o = fz_dict_gets(obj, "Subtype"), !strcmp(fz_to_name(o), "Type1C"))
dontexpand = !(doexpand & expand_fonts);
if (o = fz_dict_gets(obj, "Subtype"), !strcmp(fz_to_name(o), "CIDFontType0C"))
dontexpand = !(doexpand & expand_fonts);
}
if (doexpand && !dontexpand && !pdf_is_jpx_image(ctx, obj))
expandstream(obj, num, gen);
else
copystream(obj, num, gen);
}
fz_drop_obj(obj);
}
static int keyvalcmp(const void *ap, const void *bp)
{
const struct keyval *a = ap;
const struct keyval *b = bp;
return strcmp(fz_to_name(a->k), fz_to_name(b->k));
}
/*
* Create a filter given a name and param dictionary.
*/
static fz_stream *
build_filter(fz_stream *chain, pdf_xref * xref, fz_obj * f, fz_obj * p, int num, int gen)
{
fz_error error;
char *s;
s = fz_to_name(f);
if (!strcmp(s, "ASCIIHexDecode") || !strcmp(s, "AHx"))
return fz_open_ahxd(chain);
else if (!strcmp(s, "ASCII85Decode") || !strcmp(s, "A85"))
return fz_open_a85d(chain);
else if (!strcmp(s, "CCITTFaxDecode") || !strcmp(s, "CCF"))
return fz_open_faxd(chain, p);
else if (!strcmp(s, "DCTDecode") || !strcmp(s, "DCT"))
return fz_open_dctd(chain, p);
else if (!strcmp(s, "RunLengthDecode") || !strcmp(s, "RL"))
return fz_open_rld(chain);
else if (!strcmp(s, "FlateDecode") || !strcmp(s, "Fl"))
{
fz_obj *obj = fz_dict_gets(p, "Predictor");
if (fz_to_int(obj) > 1)
return fz_open_predict(fz_open_flated(chain), p);
return fz_open_flated(chain);
}
else if (!strcmp(s, "LZWDecode") || !strcmp(s, "LZW"))
{
fz_obj *obj = fz_dict_gets(p, "Predictor");
if (fz_to_int(obj) > 1)
return fz_open_predict(fz_open_lzwd(chain, p), p);
return fz_open_lzwd(chain, p);
}
else if (!strcmp(s, "JBIG2Decode"))
{
fz_obj *obj = fz_dict_gets(p, "JBIG2Globals");
if (obj)
{
fz_buffer *globals;
error = pdf_load_stream(&globals, xref, fz_to_num(obj), fz_to_gen(obj));
if (error)
fz_catch(error, "cannot load jbig2 global segments");
chain = fz_open_jbig2d(chain, globals);
fz_drop_buffer(globals);
return chain;
}
return fz_open_jbig2d(chain, NULL);
}
else if (!strcmp(s, "JPXDecode"))
return chain; /* JPX decoding is special cased in the image loading code */
else if (!strcmp(s, "Crypt"))
{
fz_obj *name;
if (!xref->crypt)
{
fz_warn("crypt filter in unencrypted document");
return chain;
}
name = fz_dict_gets(p, "Name");
if (fz_is_name(name))
return pdf_open_crypt_with_filter(chain, xref->crypt, fz_to_name(name), num, gen);
return chain;
}
fz_warn("unknown filter name (%s)", s);
return chain;
}
static void retainpages(int argc, char **argv)
{
fz_obj *oldroot, *root, *pages, *kids, *countobj, *parent, *olddests;
/* Keep only pages/type and (reduced) dest entries to avoid
* references to unretained pages */
oldroot = fz_dict_gets(xref->trailer, "Root");
pages = fz_dict_gets(oldroot, "Pages");
olddests = pdf_load_name_tree(xref, "Dests");
root = fz_new_dict(ctx, 2);
fz_dict_puts(root, "Type", fz_dict_gets(oldroot, "Type"));
fz_dict_puts(root, "Pages", fz_dict_gets(oldroot, "Pages"));
pdf_update_object(xref, fz_to_num(oldroot), fz_to_gen(oldroot), root);
fz_drop_obj(root);
/* Create a new kids array with only the pages we want to keep */
parent = fz_new_indirect(ctx, fz_to_num(pages), fz_to_gen(pages), xref);
kids = fz_new_array(ctx, 1);
/* Retain pages specified */
while (argc - fz_optind)
{
int page, spage, epage;
char *spec, *dash;
char *pagelist = argv[fz_optind];
spec = fz_strsep(&pagelist, ",");
while (spec)
{
dash = strchr(spec, '-');
if (dash == spec)
spage = epage = pdf_count_pages(xref);
else
spage = epage = atoi(spec);
if (dash)
{
if (strlen(dash) > 1)
epage = atoi(dash + 1);
else
epage = pdf_count_pages(xref);
}
if (spage > epage)
page = spage, spage = epage, epage = page;
if (spage < 1)
spage = 1;
if (epage > pdf_count_pages(xref))
epage = pdf_count_pages(xref);
for (page = spage; page <= epage; page++)
{
fz_obj *pageobj = xref->page_objs[page-1];
fz_obj *pageref = xref->page_refs[page-1];
fz_dict_puts(pageobj, "Parent", parent);
/* Store page object in new kids array */
fz_array_push(kids, pageref);
}
spec = fz_strsep(&pagelist, ",");
}
fz_optind++;
}
fz_drop_obj(parent);
/* Update page count and kids array */
countobj = fz_new_int(ctx, fz_array_len(kids));
fz_dict_puts(pages, "Count", countobj);
fz_drop_obj(countobj);
fz_dict_puts(pages, "Kids", kids);
fz_drop_obj(kids);
/* Also preserve the (partial) Dests name tree */
if (olddests)
{
int i;
fz_obj *names = fz_new_dict(ctx, 1);
fz_obj *dests = fz_new_dict(ctx, 1);
fz_obj *names_list = fz_new_array(ctx, 32);
for (i = 0; i < fz_dict_len(olddests); i++)
{
fz_obj *key = fz_dict_get_key(olddests, i);
fz_obj *val = fz_dict_get_val(olddests, i);
fz_obj *key_str = fz_new_string(ctx, fz_to_name(key), strlen(fz_to_name(key)));
fz_obj *dest = fz_dict_gets(val, "D");
dest = fz_array_get(dest ? dest : val, 0);
if (fz_array_contains(fz_dict_gets(pages, "Kids"), dest))
{
fz_array_push(names_list, key_str);
fz_array_push(names_list, val);
}
fz_drop_obj(key_str);
}
root = fz_dict_gets(xref->trailer, "Root");
fz_dict_puts(dests, "Names", names_list);
fz_dict_puts(names, "Dests", dests);
fz_dict_puts(root, "Names", names);
fz_drop_obj(names);
fz_drop_obj(dests);
fz_drop_obj(names_list);
fz_drop_obj(olddests);
}
}
pdf_link *
pdf_load_link(pdf_xref *xref, fz_obj *dict)
{
fz_obj *dest;
fz_obj *action;
fz_obj *obj;
fz_rect bbox;
pdf_link_kind kind;
fz_context *ctx = xref->ctx;
dest = NULL;
obj = fz_dict_gets(ctx, dict, "Rect");
if (obj)
bbox = pdf_to_rect(ctx, obj);
else
bbox = fz_empty_rect;
obj = fz_dict_gets(ctx, dict, "Dest");
if (obj)
{
kind = PDF_LINK_GOTO;
dest = resolve_dest(xref, obj);
}
action = fz_dict_gets(ctx, dict, "A");
/* fall back to additional action button's down/up action */
if (!action)
action = fz_dict_getsa(ctx, fz_dict_gets(ctx, dict, "AA"), "U", "D");
if (action)
{
obj = fz_dict_gets(ctx, action, "S");
if (fz_is_name(ctx, obj) && !strcmp(fz_to_name(ctx, obj), "GoTo"))
{
kind = PDF_LINK_GOTO;
dest = resolve_dest(xref, fz_dict_gets(ctx, action, "D"));
}
else if (fz_is_name(ctx, obj) && !strcmp(fz_to_name(ctx, obj), "URI"))
{
kind = PDF_LINK_URI;
dest = fz_dict_gets(ctx, action, "URI");
}
else if (fz_is_name(ctx, obj) && !strcmp(fz_to_name(ctx, obj), "Launch"))
{
kind = PDF_LINK_LAUNCH;
dest = fz_dict_gets(ctx, action, "F");
}
else if (fz_is_name(ctx, obj) && !strcmp(fz_to_name(ctx, obj), "Named"))
{
kind = PDF_LINK_NAMED;
dest = fz_dict_gets(ctx, action, "N");
}
else if (fz_is_name(ctx, obj) && (!strcmp(fz_to_name(ctx, obj), "GoToR")))
{
kind = PDF_LINK_ACTION;
dest = action;
}
else
{
dest = NULL;
}
}
if (dest)
{
pdf_link *link = fz_malloc(ctx, sizeof(pdf_link));
link->kind = kind;
link->rect = bbox;
link->dest = fz_keep_obj(dest);
link->next = NULL;
return link;
}
return NULL;
}
fz_error
pdf_open_xref_with_stream(pdf_xref **xrefp, fz_stream *file, char *password)
{
pdf_xref *xref;
fz_error error;
fz_obj *encrypt, *id;
fz_obj *dict, *obj;
int i, repaired = 0;
/* install pdf specific callback */
fz_resolve_indirect = pdf_resolve_indirect;
xref = fz_malloc(sizeof(pdf_xref));
memset(xref, 0, sizeof(pdf_xref));
xref->file = fz_keep_stream(file);
error = pdf_load_xref(xref, xref->scratch, sizeof xref->scratch);
if (error)
{
fz_catch(error, "trying to repair");
if (xref->table)
{
fz_free(xref->table);
xref->table = NULL;
xref->len = 0;
}
if (xref->trailer)
{
fz_drop_obj(xref->trailer);
xref->trailer = NULL;
}
error = pdf_repair_xref(xref, xref->scratch, sizeof xref->scratch);
if (error)
{
pdf_free_xref(xref);
return fz_rethrow(error, "cannot repair document");
}
repaired = 1;
}
encrypt = fz_dict_gets(xref->trailer, "Encrypt");
id = fz_dict_gets(xref->trailer, "ID");
if (fz_is_dict(encrypt))
{
error = pdf_new_crypt(&xref->crypt, encrypt, id);
if (error)
{
pdf_free_xref(xref);
return fz_rethrow(error, "cannot decrypt document");
}
}
if (pdf_needs_password(xref))
{
/* Only care if we have a password */
if (password)
{
int okay = pdf_authenticate_password(xref, password);
if (!okay)
{
pdf_free_xref(xref);
return fz_throw("invalid password");
}
}
}
if (repaired)
{
int hasroot, hasinfo;
error = pdf_repair_obj_stms(xref);
if (error)
{
pdf_free_xref(xref);
return fz_rethrow(error, "cannot repair document");
}
hasroot = fz_dict_gets(xref->trailer, "Root") != NULL;
hasinfo = fz_dict_gets(xref->trailer, "Info") != NULL;
for (i = 1; i < xref->len; i++)
{
if (xref->table[i].type == 0 || xref->table[i].type == 'f')
continue;
error = pdf_load_object(&dict, xref, i, 0);
if (error)
{
fz_catch(error, "ignoring broken object (%d 0 R)", i);
continue;
}
if (!hasroot)
{
obj = fz_dict_gets(dict, "Type");
if (fz_is_name(obj) && !strcmp(fz_to_name(obj), "Catalog"))
{
obj = fz_new_indirect(i, 0, xref);
fz_dict_puts(xref->trailer, "Root", obj);
fz_drop_obj(obj);
}
}
if (!hasinfo)
{
if (fz_dict_gets(dict, "Creator") || fz_dict_gets(dict, "Producer"))
{
obj = fz_new_indirect(i, 0, xref);
fz_dict_puts(xref->trailer, "Info", obj);
fz_drop_obj(obj);
}
}
fz_drop_obj(dict);
}
}
error = pdf_read_ocg(xref);
if (error)
{
pdf_free_xref(xref);
return fz_rethrow(error, "Broken Optional Content");
}
*xrefp = xref;
return fz_okay;
}
static int isfontdesc(fz_obj *obj)
{
fz_obj *type = fz_dict_gets(ctx, obj, "Type");
return fz_is_name(ctx, type) && !strcmp(fz_to_name(ctx, type), "FontDescriptor");
}
/*
* Load CMap stream in PDF file
*/
fz_error
pdf_load_embedded_cmap(pdf_cmap **cmapp, pdf_xref *xref, fz_obj *stmobj)
{
fz_error error = fz_okay;
fz_stream *file = NULL;
pdf_cmap *cmap = NULL;
pdf_cmap *usecmap;
fz_obj *wmode;
fz_obj *obj;
if ((*cmapp = pdf_find_item(xref->store, pdf_drop_cmap, stmobj)))
{
pdf_keep_cmap(*cmapp);
return fz_okay;
}
error = pdf_open_stream(&file, xref, fz_to_num(stmobj), fz_to_gen(stmobj));
if (error)
{
error = fz_rethrow(error, "cannot open cmap stream (%d %d R)", fz_to_num(stmobj), fz_to_gen(stmobj));
goto cleanup;
}
error = pdf_parse_cmap(&cmap, file);
if (error)
{
error = fz_rethrow(error, "cannot parse cmap stream (%d %d R)", fz_to_num(stmobj), fz_to_gen(stmobj));
goto cleanup;
}
fz_close(file);
wmode = fz_dict_gets(stmobj, "WMode");
if (fz_is_int(wmode))
pdf_set_wmode(cmap, fz_to_int(wmode));
obj = fz_dict_gets(stmobj, "UseCMap");
if (fz_is_name(obj))
{
error = pdf_load_system_cmap(&usecmap, fz_to_name(obj));
if (error)
{
error = fz_rethrow(error, "cannot load system usecmap '%s'", fz_to_name(obj));
goto cleanup;
}
pdf_set_usecmap(cmap, usecmap);
pdf_drop_cmap(usecmap);
}
else if (fz_is_indirect(obj))
{
error = pdf_load_embedded_cmap(&usecmap, xref, obj);
if (error)
{
error = fz_rethrow(error, "cannot load embedded usecmap (%d %d R)", fz_to_num(obj), fz_to_gen(obj));
goto cleanup;
}
pdf_set_usecmap(cmap, usecmap);
pdf_drop_cmap(usecmap);
}
pdf_store_item(xref->store, pdf_keep_cmap, pdf_drop_cmap, stmobj, cmap);
*cmapp = cmap;
return fz_okay;
cleanup:
if (file)
fz_close(file);
if (cmap)
pdf_drop_cmap(cmap);
return error; /* already rethrown */
}
static pdf_annot *
pdf_update_tx_widget_annot(pdf_xref *xref, fz_obj *obj)
{
fz_obj *ap, *res, *value;
fz_rect rect;
fz_buffer *content, *base_ap;
int flags, align, rotate, is_multiline;
float font_size, x, y;
char *font_name;
unsigned short *ucs2, *rest;
fz_context *ctx = xref->ctx;
if (strcmp(fz_to_name(ctx, fz_dict_gets(ctx, obj, "Subtype")), "Widget") != 0)
return NULL;
if (!fz_to_bool(ctx, pdf_dict_get_inheritable(xref, NULL, "NeedAppearances")) && pdf_get_ap_stream(xref, obj))
return NULL;
value = pdf_dict_get_inheritable(xref, obj, "FT");
if (strcmp(fz_to_name(ctx, value), "Tx") != 0)
return NULL;
ap = pdf_dict_get_inheritable(xref, obj, "DA");
value = pdf_dict_get_inheritable(xref, obj, "V");
if (!ap || !value)
return NULL;
res = pdf_dict_get_inheritable(xref, obj, "DR");
rect = pdf_to_rect(ctx, fz_dict_gets(ctx, obj, "Rect"));
rotate = fz_to_int(ctx, fz_dict_gets(ctx, fz_dict_gets(ctx, obj, "MK"), "R"));
rect = fz_transform_rect(fz_rotate(rotate), rect);
flags = fz_to_int(ctx, fz_dict_gets(ctx, obj, "Ff"));
is_multiline = (flags & (1 << 12)) != 0;
if ((flags & (1 << 25) /* richtext */))
fz_warn(ctx, "missing support for richtext fields");
align = fz_to_int(ctx, fz_dict_gets(ctx, obj, "Q"));
font_size = pdf_extract_font_size(xref, fz_to_str_buf(ctx, ap), &font_name);
if (!font_size || !font_name)
font_size = is_multiline ? 10 /* FIXME */ : floor(rect.y1 - rect.y0 - 2);
content = fz_new_buffer(ctx, 256);
base_ap = fz_new_buffer(ctx, 256);
pdf_prepend_ap_background(content, xref, obj);
fz_buffer_printf(ctx, content, "/Tx BMC q 1 1 %.4f %.4f re W n BT %s ",
rect.x1 - rect.x0 - 2.0f, rect.y1 - rect.y0 - 2.0f, fz_to_str_buf(ctx, ap));
fz_buffer_printf(ctx, base_ap, "/Tx BMC q BT %s ", fz_to_str_buf(ctx, ap));
if (font_name)
{
fz_buffer_printf(ctx, content, "/%s %.4f Tf ", font_name, font_size);
fz_buffer_printf(ctx, base_ap, "/%s %.4f Tf ", font_name, font_size);
fz_free(ctx, font_name);
}
y = 0.5f * (rect.y1 - rect.y0) + 0.6f * font_size;
if (is_multiline)
y = rect.y1 - rect.y0 - 2;
fz_buffer_printf(ctx, content, "1 0 0 1 2 %.4f Tm ", y);
ucs2 = pdf_to_ucs2(ctx, value);
for (rest = ucs2; *rest; rest++)
if (*rest > 0xFF)
*rest = '?';
if ((flags & (1 << 13) /* password */))
for (rest = ucs2; *rest; rest++)
*rest = '*';
x = 0;
rest = ucs2;
if ((flags & (1 << 24) /* comb */))
{
pdf_append_combed_line(xref, res, content, base_ap, ucs2, font_size, rect.x1 - rect.x0, fz_to_int(ctx, pdf_dict_get_inheritable(xref, obj, "MaxLen")));
rest = L"";
}
while (*rest)
rest = pdf_append_line(xref, res, content, base_ap, rest, font_size, align, rect.x1 - rect.x0 - 4.0f, is_multiline, &x);
fz_free(ctx, ucs2);
fz_buffer_printf(ctx, content, "ET Q EMC");
fz_drop_buffer(ctx, base_ap);
rect = fz_transform_rect(fz_rotate(-rotate), rect);
return pdf_create_annot(ctx, rect, fz_keep_obj(obj), content, res ? fz_keep_obj(res) : NULL, 0);
}
fz_error
pdf_ocg_set_config(pdf_xref *xref, int config)
{
int i, j, len, len2;
pdf_ocg_descriptor *desc = xref->ocg;
fz_obj *obj, *cobj;
char *name;
obj = fz_dict_gets(fz_dict_gets(xref->trailer, "Root"), "OCProperties");
if (obj == NULL)
{
if (config == 0)
return fz_okay;
else
return fz_throw("Unknown OCG config (None known!)");
}
if (config == 0)
{
cobj = fz_dict_gets(obj, "D");
if (cobj == NULL)
return fz_throw("No default OCG config");
}
else
{
cobj = fz_array_get(fz_dict_gets(obj, "Configs"), config);
if (cobj == NULL)
return fz_throw("Illegal OCG config");
}
if (desc->intent != NULL)
fz_drop_obj(desc->intent);
desc->intent = fz_dict_gets(cobj, "Intent");
if (desc->intent != NULL)
fz_keep_obj(desc->intent);
len = desc->len;
name = fz_to_name(fz_dict_gets(cobj, "BaseState"));
if (strcmp(name, "Unchanged") == 0)
{
/* Do nothing */
}
else if (strcmp(name, "OFF") == 0)
{
for (i = 0; i < len; i++)
{
desc->ocgs[i].state = 0;
}
}
else /* Default to ON */
{
for (i = 0; i < len; i++)
{
desc->ocgs[i].state = 1;
}
}
obj = fz_dict_gets(cobj, "ON");
len2 = fz_array_len(obj);
for (i = 0; i < len2; i++)
{
fz_obj *o = fz_array_get(obj, i);
int n = fz_to_num(o);
int g = fz_to_gen(o);
for (j=0; j < len; j++)
{
if (desc->ocgs[j].num == n && desc->ocgs[j].gen == g)
{
desc->ocgs[j].state = 1;
break;
}
}
}
obj = fz_dict_gets(cobj, "OFF");
len2 = fz_array_len(obj);
for (i = 0; i < len2; i++)
{
fz_obj *o = fz_array_get(obj, i);
int n = fz_to_num(o);
int g = fz_to_gen(o);
for (j=0; j < len; j++)
{
if (desc->ocgs[j].num == n && desc->ocgs[j].gen == g)
{
desc->ocgs[j].state = 0;
break;
}
}
}
/* FIXME: Should make 'num configs' available in the descriptor. */
/* FIXME: Should copy out 'Intent' here into the descriptor, and remove
* csi->intent in favour of that. */
/* FIXME: Should copy 'AS' into the descriptor, and visibility
* decisions should respect it. */
/* FIXME: Make 'Order' available via the descriptor (when we have an
* app that needs it) */
/* FIXME: Make 'ListMode' available via the descriptor (when we have
* an app that needs it) */
/* FIXME: Make 'RBGroups' available via the descriptor (when we have
* an app that needs it) */
/* FIXME: Make 'Locked' available via the descriptor (when we have
* an app that needs it) */
return fz_okay;
}
static int isimage(fz_obj *obj)
{
fz_obj *type = fz_dict_gets(ctx, obj, "Subtype");
return fz_is_name(ctx, type) && !strcmp(fz_to_name(ctx, type), "Image");
}
