void pdf_delete_portfolio_schema(fz_context *ctx, pdf_document *doc, int entry)
{
pdf_portfolio **pp;
pdf_portfolio *p;
pdf_obj *s;
if (!doc)
fz_throw(ctx, FZ_ERROR_GENERIC, "Bad pdf_delete_portfolio_schema call");
if (doc->portfolio == NULL)
load_portfolio(ctx, doc);
pp = &doc->portfolio;
while (*pp && entry > 0)
pp = &(*pp)->next, entry--;
p = *pp;
if (p == NULL || entry)
fz_throw(ctx, FZ_ERROR_GENERIC, "entry out of range in pdf_delete_portfolio_schema");
*pp = p->next;
/* Delete the key from the schema */
s = pdf_dict_getl(ctx, pdf_trailer(ctx, doc), PDF_NAME_Root, PDF_NAME_Collection, PDF_NAME_Schema, NULL);
pdf_dict_del(ctx, s, p->key);
/* Delete this entry from all the collection entries */
s = pdf_dict_getl(ctx, pdf_trailer(ctx, doc), PDF_NAME_Root, PDF_NAME_Names, PDF_NAME_EmbeddedFiles, NULL);
pdf_name_tree_map(ctx, s, delete_from_node, p->key);
pdf_drop_obj(ctx, p->entry.name);
pdf_drop_obj(ctx, p->key);
pdf_drop_obj(ctx, p->val);
fz_free(ctx, p);
}
pdf_obj *pdf_portfolio_entry_info(fz_context *ctx, pdf_document *doc, int entry, int schema_entry)
{
pdf_obj *obj = pdf_portfolio_entry_obj_name(ctx, doc, entry, NULL);
pdf_portfolio *p;
pdf_obj *lookup;
int ef = 0;
if (!obj)
return NULL;
for (p = doc->portfolio; p != NULL && schema_entry > 0; p = p->next, schema_entry--);
if (schema_entry)
fz_throw(ctx, FZ_ERROR_GENERIC, "schema_entry out of range");
switch (p->entry.type)
{
default:
case PDF_SCHEMA_TEXT:
case PDF_SCHEMA_DATE:
case PDF_SCHEMA_NUMBER:
lookup = NULL;
break;
case PDF_SCHEMA_FILENAME:
lookup = PDF_NAME_UF;
break;
case PDF_SCHEMA_DESC:
lookup = PDF_NAME_Desc;
break;
case PDF_SCHEMA_MODDATE:
lookup = PDF_NAME_ModDate;
ef = 1;
break;
case PDF_SCHEMA_CREATIONDATE:
lookup = PDF_NAME_CreationDate;
ef = 1;
break;
case PDF_SCHEMA_SIZE:
lookup = PDF_NAME_Size;
ef = 1;
break;
}
if (lookup)
{
pdf_obj *res;
if (ef)
obj = pdf_dict_getl(ctx, obj, PDF_NAME_EF, PDF_NAME_F, PDF_NAME_Params, NULL);
res = pdf_dict_get(ctx, obj, lookup);
if (res == NULL && lookup == PDF_NAME_UF)
res = pdf_dict_get(ctx, obj, PDF_NAME_F);
return res;
}
return pdf_dict_getl(ctx, obj, PDF_NAME_CI, p->key, NULL);
}
void pdf_set_portfolio_entry_info(fz_context *ctx, pdf_document *doc, int entry, int schema_entry, pdf_obj *data)
{
pdf_portfolio *p;
pdf_obj *obj, *lookup;
int ef = 0;
if (!doc)
fz_throw(ctx, FZ_ERROR_GENERIC, "Bad pdf_add_portfolio_entry call");
if (doc->portfolio == NULL)
load_portfolio(ctx, doc);
obj = pdf_portfolio_entry_obj_name(ctx, doc, entry, NULL);
if (!obj)
fz_throw(ctx, FZ_ERROR_GENERIC, "Can't set info on non existent portfolio entry");
for (p = doc->portfolio; p != NULL && schema_entry > 0; p = p->next, schema_entry--);
if (schema_entry)
fz_throw(ctx, FZ_ERROR_GENERIC, "schema_entry out of range");
switch (p->entry.type)
{
default:
case PDF_SCHEMA_TEXT:
case PDF_SCHEMA_DATE:
case PDF_SCHEMA_NUMBER:
lookup = NULL;
break;
case PDF_SCHEMA_FILENAME:
lookup = PDF_NAME_UF;
break;
case PDF_SCHEMA_DESC:
lookup = PDF_NAME_Desc;
break;
case PDF_SCHEMA_MODDATE:
lookup = PDF_NAME_ModDate;
ef = 1;
break;
case PDF_SCHEMA_CREATIONDATE:
lookup = PDF_NAME_CreationDate;
ef = 1;
break;
case PDF_SCHEMA_SIZE:
fz_throw(ctx, FZ_ERROR_GENERIC, "Can't set size!");
break;
}
if (lookup)
{
if (ef)
obj = pdf_dict_getl(ctx, obj, PDF_NAME_EF, PDF_NAME_F, PDF_NAME_Params, NULL);
pdf_dict_put(ctx, obj, lookup, data);
if (lookup == PDF_NAME_UF)
pdf_dict_put(ctx, obj, PDF_NAME_F, data);
return;
}
pdf_dict_putl(ctx, obj, data, PDF_NAME_CI, p->key, NULL);
}
static void
load_portfolio(fz_context *ctx, pdf_document *doc)
{
pdf_obj *obj;
int i, n;
pdf_portfolio **pp;
obj = pdf_dict_getl(ctx, pdf_trailer(ctx, doc), PDF_NAME_Root, PDF_NAME_Collection, PDF_NAME_Schema, NULL);
n = pdf_dict_len(ctx, obj);
for (i = 0; i < n; i++)
{
pdf_obj *k = pdf_dict_get_key(ctx, obj, i);
pdf_obj *v = pdf_dict_get_val(ctx, obj, i);
int sort = pdf_to_int(ctx, pdf_dict_get(ctx, v, PDF_NAME_O));
pdf_obj *eo = pdf_dict_get(ctx, v, PDF_NAME_E);
int editable = eo ? pdf_to_bool(ctx, eo) : 0;
pdf_obj *vo = pdf_dict_get(ctx, v, PDF_NAME_V);
int visible = vo ? pdf_to_bool(ctx, vo) : 1;
char *subtype = pdf_to_name(ctx, pdf_dict_get(ctx, v, PDF_NAME_Subtype));
pdf_obj *name = pdf_dict_get(ctx, v, PDF_NAME_N);
pdf_portfolio *p = fz_malloc_struct(ctx, pdf_portfolio);
p->key = pdf_keep_obj(ctx, k);
p->val = pdf_keep_obj(ctx, v);
p->sort = sort;
p->entry.visible = visible;
p->entry.editable = editable;
p->entry.name = pdf_keep_obj(ctx, name);
if (!strcmp(subtype, "S"))
p->entry.type = PDF_SCHEMA_TEXT;
else if (!strcmp(subtype, "D"))
p->entry.type = PDF_SCHEMA_DATE;
else if (!strcmp(subtype, "N"))
p->entry.type = PDF_SCHEMA_NUMBER;
else if (!strcmp(subtype, "F"))
p->entry.type = PDF_SCHEMA_FILENAME;
else if (!strcmp(subtype, "Desc"))
p->entry.type = PDF_SCHEMA_DESC;
else if (!strcmp(subtype, "ModDate"))
p->entry.type = PDF_SCHEMA_MODDATE;
else if (!strcmp(subtype, "CreationDate"))
p->entry.type = PDF_SCHEMA_CREATIONDATE;
else if (!strcmp(subtype, "Size"))
p->entry.type = PDF_SCHEMA_SIZE;
else
p->entry.type = PDF_SCHEMA_UNKNOWN;
/* Now insert p */
pp = &doc->portfolio;
while (*pp && (*pp)->sort <= p->sort)
pp = &(*pp)->next;
p->next = *pp;
*pp = p;
}
}
/*
pdf_count_portfolio_entries: Get the number of portfolio entries
in this document.
doc: The document in question.
*/
int pdf_count_portfolio_entries(fz_context *ctx, pdf_document *doc)
{
pdf_obj *s;
int count;
if (!doc)
return 0;
if (doc->portfolio == NULL)
load_portfolio(ctx, doc);
s = pdf_dict_getl(ctx, pdf_trailer(ctx, doc), PDF_NAME_Root, PDF_NAME_Names, PDF_NAME_EmbeddedFiles, NULL);
count = 0;
pdf_name_tree_map(ctx, s, count_nodes, &count);
return count;
}
/*
pdf_portfolio_entry_info: Fetch information about a given
portfolio entry.
doc: The document in question.
entry: A value in the 0..n-1 range, where n is the
value returned from pdf_count_portfolio.
Returns pdf_object representing this entry. This reference
is borrowed, so call pdf_keep_obj on it if you wish to keep
it.
*/
pdf_obj *pdf_portfolio_entry_obj_name(fz_context *ctx, pdf_document *doc, int entry, pdf_obj **name)
{
struct find_data data;
pdf_obj *s;
if (name)
*name = NULL;
if (!doc)
return NULL;
if (doc->portfolio == NULL)
load_portfolio(ctx, doc);
s = pdf_dict_getl(ctx, pdf_trailer(ctx, doc), PDF_NAME_Root, PDF_NAME_Names, PDF_NAME_EmbeddedFiles, NULL);
data.count = entry;
data.key = NULL;
data.val = NULL;
pdf_name_tree_map(ctx, s, find_entry, &data);
if (name)
*name = data.key;
return data.val;
}
/*
When resetting or submitting a form, the fields to act upon are defined
by an array of either field references or field names, plus a flag determining
whether to act upon the fields in the array, or all fields other than those in
the array. specified_fields interprets this information and produces the array
of fields to be acted upon.
*/
static pdf_obj *specified_fields(fz_context *ctx, pdf_document *doc, pdf_obj *fields, int exclude)
{
pdf_obj *form = pdf_dict_getl(ctx, pdf_trailer(ctx, doc), PDF_NAME_Root, PDF_NAME_AcroForm, PDF_NAME_Fields, NULL);
int i, n;
pdf_obj *result = pdf_new_array(ctx, doc, 0);
pdf_obj *nil = NULL;
fz_var(nil);
fz_try(ctx)
{
/* The 'fields' array not being present signals that all fields
* should be acted upon, so handle it using the exclude case - excluding none */
if (exclude || !fields)
{
/* mark the fields we don't want to act upon */
nil = pdf_new_null(ctx, doc);
n = pdf_array_len(ctx, fields);
for (i = 0; i < n; i++)
{
pdf_obj *field = pdf_array_get(ctx, fields, i);
if (pdf_is_string(ctx, field))
field = pdf_lookup_field(ctx, form, pdf_to_str_buf(ctx, field));
if (field)
pdf_dict_put(ctx, field, PDF_NAME_Exclude, nil);
}
/* Act upon all unmarked fields */
n = pdf_array_len(ctx, form);
for (i = 0; i < n; i++)
add_field_hierarchy_to_array(ctx, result, pdf_array_get(ctx, form, i));
/* Unmark the marked fields */
n = pdf_array_len(ctx, fields);
for (i = 0; i < n; i++)
{
pdf_obj *field = pdf_array_get(ctx, fields, i);
if (pdf_is_string(ctx, field))
field = pdf_lookup_field(ctx, form, pdf_to_str_buf(ctx, field));
if (field)
pdf_dict_del(ctx, field, PDF_NAME_Exclude);
}
}
else
{
n = pdf_array_len(ctx, fields);
for (i = 0; i < n; i++)
{
pdf_obj *field = pdf_array_get(ctx, fields, i);
if (pdf_is_string(ctx, field))
field = pdf_lookup_field(ctx, form, pdf_to_str_buf(ctx, field));
if (field)
add_field_hierarchy_to_array(ctx, result, field);
}
}
}
fz_always(ctx)
{
pdf_drop_obj(ctx, nil);
}
fz_catch(ctx)
{
pdf_drop_obj(ctx, result);
fz_rethrow(ctx);
}
return result;
}
int pdf_add_portfolio_entry(fz_context *ctx, pdf_document *doc,
const char *name, int name_len,
const char *desc, int desc_len,
const char *filename, int filename_len,
const char *unifile, int unifile_len, fz_buffer *buf)
{
int entry, len;
pdf_obj *ef, *f, *params, *s;
pdf_obj *key;
pdf_obj *val = NULL;
fz_var(val);
if (!doc)
fz_throw(ctx, FZ_ERROR_GENERIC, "Bad pdf_add_portfolio_entry call");
if (doc->portfolio == NULL)
load_portfolio(ctx, doc);
key = pdf_new_string(ctx, doc, name, name_len);
fz_try(ctx)
{
val = pdf_new_dict(ctx, doc, 6);
pdf_dict_put_drop(ctx, val, PDF_NAME_CI, pdf_new_dict(ctx, doc, 4));
pdf_dict_put_drop(ctx, val, PDF_NAME_EF, (ef = pdf_new_dict(ctx, doc, 4)));
pdf_dict_put_drop(ctx, val, PDF_NAME_F, pdf_new_string(ctx, doc, filename, filename_len));
pdf_dict_put_drop(ctx, val, PDF_NAME_UF, pdf_new_string(ctx, doc, unifile, unifile_len));
pdf_dict_put_drop(ctx, val, PDF_NAME_Desc, pdf_new_string(ctx, doc, desc, desc_len));
pdf_dict_put_drop(ctx, val, PDF_NAME_Type, PDF_NAME_Filespec);
pdf_dict_put_drop(ctx, ef, PDF_NAME_F, (f = pdf_add_stream(ctx, doc, buf, NULL, 0)));
len = fz_buffer_storage(ctx, buf, NULL);
pdf_dict_put_drop(ctx, f, PDF_NAME_DL, pdf_new_int(ctx, doc, len));
pdf_dict_put_drop(ctx, f, PDF_NAME_Length, pdf_new_int(ctx, doc, len));
pdf_dict_put_drop(ctx, f, PDF_NAME_Params, (params = pdf_new_dict(ctx, doc, 4)));
pdf_dict_put_drop(ctx, params, PDF_NAME_Size, pdf_new_int(ctx, doc, len));
s = pdf_dict_getl(ctx, pdf_trailer(ctx, doc), PDF_NAME_Root, PDF_NAME_Collection, NULL);
if (s == NULL)
{
s = pdf_new_dict(ctx, doc, 4);
pdf_dict_putl_drop(ctx, pdf_trailer(ctx, doc), s, PDF_NAME_Root, PDF_NAME_Collection, NULL);
}
s = pdf_dict_getl(ctx, pdf_trailer(ctx, doc), PDF_NAME_Root, PDF_NAME_Names, PDF_NAME_EmbeddedFiles, NULL);
if (s == NULL)
{
s = pdf_new_dict(ctx, doc, 4);
pdf_dict_putl_drop(ctx, pdf_trailer(ctx, doc), s, PDF_NAME_Root, PDF_NAME_Names, PDF_NAME_EmbeddedFiles, NULL);
}
entry = pdf_name_tree_insert(ctx, doc, s, key, val);
}
fz_always(ctx)
{
pdf_drop_obj(ctx, key);
pdf_drop_obj(ctx, val);
}
fz_catch(ctx)
fz_rethrow(ctx);
return entry;
}
fz_buffer *pdf_portfolio_entry(fz_context *ctx, pdf_document *doc, int entry)
{
pdf_obj *obj = pdf_portfolio_entry_obj(ctx, doc, entry);
return pdf_load_stream(ctx, pdf_dict_getl(ctx, obj, PDF_NAME_EF, PDF_NAME_F, NULL));
}
void pdf_add_portfolio_schema(fz_context *ctx, pdf_document *doc, int entry, const pdf_portfolio_schema *info)
{
pdf_portfolio **pp;
pdf_portfolio *p;
pdf_obj *s;
pdf_obj *sc;
int num;
char str_name[32];
pdf_obj *num_name = NULL;
if (!doc)
fz_throw(ctx, FZ_ERROR_GENERIC, "Bad pdf_add_portfolio_schema call");
if (doc->portfolio == NULL)
load_portfolio(ctx, doc);
fz_var(num_name);
pp = &doc->portfolio;
while (*pp && entry > 0)
pp = &(*pp)->next, entry--;
fz_try(ctx)
{
/* Find a name for the new schema entry */
num = 0;
do
{
pdf_drop_obj(ctx, num_name);
num_name = NULL;
num++;
sprintf(str_name, "%d", num);
num_name = pdf_new_name(ctx, doc, str_name);
p = doc->portfolio;
for (p = doc->portfolio; p; p = p->next)
if (pdf_name_eq(ctx, num_name, p->key))
break;
}
while (p);
sc = pdf_new_dict(ctx, doc, 4);
pdf_dict_put_drop(ctx, sc, PDF_NAME_E, pdf_new_bool(ctx, doc, !!info->editable));
pdf_dict_put_drop(ctx, sc, PDF_NAME_V, pdf_new_bool(ctx, doc, !!info->visible));
pdf_dict_put_drop(ctx, sc, PDF_NAME_N, info->name);
pdf_dict_put(ctx, sc, PDF_NAME_Subtype, PDF_NAME_S);
/* Add to our linked list (in the correct sorted place) */
p = fz_malloc_struct(ctx, pdf_portfolio);
p->entry = *info;
p->sort = 0; /* Will be rewritten in a mo */
p->key = pdf_keep_obj(ctx, num_name);
p->val = pdf_keep_obj(ctx, sc);
p->next = *pp;
*pp = p;
/* Add the key to the schema */
s = pdf_dict_getl(ctx, pdf_trailer(ctx, doc), PDF_NAME_Root, PDF_NAME_Collection, PDF_NAME_Schema, NULL);
pdf_dict_put(ctx, s, num_name, sc);
/* Renumber the schema entries */
for (num = 0, p = doc->portfolio; p; num++, p = p->next)
{
pdf_dict_put_drop(ctx, p->val, PDF_NAME_O, pdf_new_int(ctx, doc, num));
p->sort = num;
}
}
fz_always(ctx)
pdf_drop_obj(ctx, num_name);
fz_catch(ctx)
fz_rethrow(ctx);
}
