campo-sirio/pdf/pdflib/p_template.c
guy 3bf951f42c Patch level : 10.0
Files correlati     : pdflib
Ricompilazione Demo : [ ]
Commento            :
Aggiornata pdflib.dll alla versione 7.0.4


git-svn-id: svn://10.65.10.50/trunk@18580 c028cbd2-c16b-5b4b-a496-9718f37d4682
2009-03-23 08:55:58 +00:00

248 lines
6.9 KiB
C
Executable File

/*---------------------------------------------------------------------------*
| PDFlib - A library for generating PDF on the fly |
+---------------------------------------------------------------------------+
| Copyright (c) 1997-2006 Thomas Merz and PDFlib GmbH. All rights reserved. |
+---------------------------------------------------------------------------+
| |
| This software is subject to the PDFlib license. It is NOT in the |
| public domain. Extended versions and commercial licenses are |
| available, please check http://www.pdflib.com. |
| |
*---------------------------------------------------------------------------*/
/* $Id: p_template.c,v 1.4 2009-03-23 08:55:35 guy Exp $
*
* PDFlib template routines
*
*/
#define P_TEMPLATE_C
#include "p_intern.h"
#include "p_image.h"
int
pdf_embed_image(PDF *p, int im)
{
pdf_image *image = &p->images[im];
char optlist[PDC_GEN_BUFSIZE], *ol;
pdc_scalar width, height;
int templ;
width = image->width;
height = fabs(image->height);
/* create option list */
optlist[0] = 0;
ol = optlist;
if (image->iconname)
pdc_sprintf(p->pdc, pdc_false, ol, "iconname {%s}", image->iconname);
/* create template */
templ = pdf__begin_template(p, width, height, optlist);
/* fit image */
pdc_sprintf(p->pdc, pdc_false, optlist, "boxsize {%g %g} fitmethod meet",
width, height);
pdf__fit_image(p, im, 0, 0, optlist);
/* end template */
pdf__end_template(p);
return templ;
}
#define PDF_OPIOPT_FLAG PDC_OPT_UNSUPP
#define PDF_METADATA_FLAG PDC_OPT_UNSUPP
#define PDF_LAYER_FLAG PDC_OPT_UNSUPP
/* definitions of begin template options */
static const pdc_defopt pdf_begin_template_options[] =
{
{"topdown", pdc_booleanlist, PDC_OPT_NONE, 1, 1, 0.0, 0.0, NULL},
{"OPI-1.3", pdc_stringlist, PDF_OPIOPT_FLAG, 1, 1, 0.0, 32000.0, NULL},
{"OPI-2.0", pdc_stringlist, PDF_OPIOPT_FLAG | PDC_OPT_IGNOREIF1,
1, 1, 0.0, 32000.0, NULL},
{"iconname", pdc_stringlist, 0, 1, 1, 1.0, PDF_MAX_NAMESTRING, NULL},
{"metadata", pdc_stringlist, PDF_METADATA_FLAG, 1, 1,
0.0, PDC_INT_MAX, NULL},
{"layer", pdc_layerhandle, PDF_LAYER_FLAG, 1, 1,
0.0, 0.0, NULL},
PDF_ERRORPOLICY_OPTION
PDC_OPT_TERMINATE
};
/* Start a new template definition. */
int
pdf__begin_template(PDF *p, pdc_scalar width, pdc_scalar height,
const char *optlist)
{
pdf_image *image;
pdc_resopt *resopts;
const char *keyword;
pdc_clientdata cdata;
pdc_bool topdown;
char *iconname = NULL;
pdc_bool verbose = pdc_true;
int im = -1;
pdc_check_number_limits(p->pdc, "width", width,
PDC_FLOAT_PREC, PDC_FLOAT_MAX);
pdc_check_number_limits(p->pdc, "height", height,
PDC_FLOAT_PREC, PDC_FLOAT_MAX);
for (im = 0; im < p->images_capacity; im++)
if (!p->images[im].in_use) /* found free slot */
break;
if (im == p->images_capacity)
pdf_grow_images(p);
image = &p->images[im];
image->verbose = pdf_get_errorpolicy(p, NULL, image->verbose);
image->topdown_save = (p->ydirection == -1) ? pdc_true : pdc_false;
topdown = image->topdown_save;
image->in_use = pdc_true; /* mark slot as used */
/* parsing optlist */
pdf_set_clientdata(p, &cdata);
resopts = pdc_parse_optionlist(p->pdc, optlist, pdf_begin_template_options,
&cdata, pdc_true);
/* save and check options */
if (optlist && *optlist)
{
image->verbose = pdf_get_errorpolicy(p, resopts, image->verbose);
keyword = "topdown";
pdc_get_optvalues(keyword, resopts, &topdown, NULL);
keyword = "iconname";
if (pdc_get_optvalues(keyword, resopts, NULL, NULL))
iconname = (char *) pdc_save_lastopt(resopts, PDC_OPT_SAVE1ELEM);
pdc_cleanup_optionlist(p->pdc, resopts);
}
verbose = image->verbose;
p->ydirection = topdown ? -1 : 1;
pdf_pg_suspend(p);
PDF_SET_STATE(p, pdf_state_template);
/* form xobject */
image->no = pdf_new_xobject(p, form_xobject, PDC_NEW_ID);
image->width = width;
image->height = height;
p->templ = im; /* remember the current template id */
pdc_begin_dict(p->out); /* form xobject dict*/
pdc_puts(p->out, "/Type/XObject\n");
pdc_puts(p->out, "/Subtype/Form\n");
/* contrary to the PDF reference /FormType and /Matrix are required! */
pdc_printf(p->out, "/FormType 1\n");
pdc_printf(p->out, "/Matrix[1 0 0 1 0 0]\n");
p->res_id = pdc_alloc_id(p->out);
pdc_objref(p->out, "/Resources", p->res_id);
pdc_printf(p->out, "/BBox[0 0 %f %f]\n", width, height);
p->length_id = pdc_alloc_id(p->out);
pdc_objref(p->out, "/Length", p->length_id);
if (pdc_get_compresslevel(p->out))
pdc_puts(p->out, "/Filter/FlateDecode\n");
pdc_end_dict(p->out); /* form xobject dict*/
pdc_begin_pdfstream(p->out);
/* top-down y-coordinates */
pdf_set_topdownsystem(p, height);
/* set color differing from PDF default */
pdf_set_default_color(p, pdc_false);
/* insert icon name */
if (iconname)
{
pdc_id obj_id = pdf_get_xobject(p, im);
pdf_insert_name(p, iconname, names_ap, obj_id);
}
if (!p->pdc->smokerun)
pdc_logg_cond(p->pdc, 1, trc_api, "[Begin template %d]\n", p->templ);
return im;
}
/* Finish the template definition. */
void
pdf__end_template(PDF *p)
{
pdf_image *image = &p->images[p->templ];
/* check whether pdf__save() and pdf__restore() calls are balanced */
if (p->curr_ppt->sl > 0)
pdc_error(p->pdc, PDF_E_GSTATE_UNMATCHEDSAVE, 0, 0, 0, 0);
pdf_end_text(p);
pdc_end_pdfstream(p->out);
pdc_end_obj(p->out); /* form xobject */
pdc_put_pdfstreamlength(p->out, p->length_id);
pdc_begin_obj(p->out, p->res_id); /* Resource object */
pdc_begin_dict(p->out); /* Resource dict */
pdf_write_page_fonts(p); /* Font resources */
pdf_write_page_colorspaces(p); /* Color space resources */
pdf_write_page_pattern(p); /* Pattern resources */
pdf_write_xobjects(p); /* XObject resources */
pdf_write_page_extgstates(p); /* ExtGState resources */
pdc_end_dict(p->out); /* resource dict */
pdc_end_obj(p->out); /* resource object */
pdf_pg_resume(p, -1);
if (p->flush & pdc_flush_content)
pdc_flush_stream(p->out);
p->ydirection = image->topdown_save ? -1 : 1;
if (!p->pdc->smokerun)
pdc_logg_cond(p->pdc, 1, trc_api, "[End template %d]\n", p->templ);
}