HPDF_STATUS
HPDF_Obj_Write (void *obj,
HPDF_Stream stream,
HPDF_Encrypt e)
{
HPDF_Obj_Header *header = (HPDF_Obj_Header *)obj;
HPDF_PTRACE((" HPDF_Obj_Write\n"));
if (header->obj_id & HPDF_OTYPE_HIDDEN) {
HPDF_PTRACE(("#HPDF_Obj_Write obj=0x%08X skipped\n", (HPDF_UINT)obj));
return HPDF_OK;
}
if (header->obj_class == HPDF_OCLASS_PROXY) {
char buf[HPDF_SHORT_BUF_SIZ];
char *pbuf = buf;
char *eptr = buf + HPDF_SHORT_BUF_SIZ - 1;
HPDF_Proxy p = obj;
header = (HPDF_Obj_Header*)p->obj;
pbuf = HPDF_IToA (pbuf, header->obj_id & 0x00FFFFFF, eptr);
*pbuf++ = ' ';
pbuf = HPDF_IToA (pbuf, header->gen_no, eptr);
HPDF_StrCpy(pbuf, " R", eptr);
return HPDF_Stream_WriteStr(stream, buf);
}
return HPDF_Obj_WriteValue(obj, stream, e);
}
const char*
HPDF_Page_GetLocalFontName (HPDF_Page page,
HPDF_Font font)
{
HPDF_PageAttr attr = (HPDF_PageAttr )page->attr;
const char *key;
HPDF_PTRACE((" HPDF_Page_GetLocalFontName\n"));
/* whether check font-resource exists. when it does not exists,
* create font-resource
* 2006.07.21 Fixed a problem which may cause a memory leak.
*/
if (!attr->fonts) {
HPDF_Dict resources;
HPDF_Dict fonts;
resources = HPDF_Page_GetInheritableItem (page, "Resources",
HPDF_OCLASS_DICT);
if (!resources)
return NULL;
fonts = HPDF_Dict_New (page->mmgr);
if (!fonts)
return NULL;
if (HPDF_Dict_Add (resources, "Font", fonts) != HPDF_OK)
return NULL;
attr->fonts = fonts;
}
/* search font-object from font-resource */
key = HPDF_Dict_GetKeyByObj (attr->fonts, font);
if (!key) {
/* if the font is not resisterd in font-resource, register font to
* font-resource.
*/
char fontName[HPDF_LIMIT_MAX_NAME_LEN + 1];
char *ptr;
char *end_ptr = fontName + HPDF_LIMIT_MAX_NAME_LEN;
ptr = (char *)HPDF_StrCpy (fontName, "F", end_ptr);
HPDF_IToA (ptr, attr->fonts->list->count + 1, end_ptr);
if (HPDF_Dict_Add (attr->fonts, fontName, font) != HPDF_OK)
return NULL;
key = HPDF_Dict_GetKeyByObj (attr->fonts, font);
}
return key;
}
const char*
HPDF_Page_GetExtGStateName (HPDF_Page page,
HPDF_ExtGState state)
{
HPDF_PageAttr attr = (HPDF_PageAttr )page->attr;
const char *key;
HPDF_PTRACE((" HPDF_Page_GetExtGStateName\n"));
if (!attr->ext_gstates) {
HPDF_Dict resources;
HPDF_Dict ext_gstates;
resources = HPDF_Page_GetInheritableItem (page, "Resources",
HPDF_OCLASS_DICT);
if (!resources)
return NULL;
ext_gstates = HPDF_Dict_New (page->mmgr);
if (!ext_gstates)
return NULL;
if (HPDF_Dict_Add (resources, "ExtGState", ext_gstates) != HPDF_OK)
return NULL;
attr->ext_gstates = ext_gstates;
}
/* search ext_gstate-object from ext_gstate-resource */
key = HPDF_Dict_GetKeyByObj (attr->ext_gstates, state);
if (!key) {
/* if the ext-gstate is not resisterd in ext-gstate resource, register
* to ext-gstate resource.
*/
char ext_gstate_name[HPDF_LIMIT_MAX_NAME_LEN + 1];
char *ptr;
char *end_ptr = ext_gstate_name + HPDF_LIMIT_MAX_NAME_LEN;
ptr = (char *)HPDF_StrCpy (ext_gstate_name, "E", end_ptr);
HPDF_IToA (ptr, attr->ext_gstates->list->count + 1, end_ptr);
if (HPDF_Dict_Add (attr->ext_gstates, ext_gstate_name, state) != HPDF_OK)
return NULL;
key = HPDF_Dict_GetKeyByObj (attr->ext_gstates, state);
}
return key;
}
const char*
HPDF_Page_GetXObjectName (HPDF_Page page,
HPDF_XObject xobj)
{
HPDF_PageAttr attr = (HPDF_PageAttr )page->attr;
const char *key;
HPDF_PTRACE((" HPDF_Page_GetXObjectName\n"));
if (!attr->xobjects) {
HPDF_Dict resources;
HPDF_Dict xobjects;
resources = HPDF_Page_GetInheritableItem (page, "Resources",
HPDF_OCLASS_DICT);
if (!resources)
return NULL;
xobjects = HPDF_Dict_New (page->mmgr);
if (!xobjects)
return NULL;
if (HPDF_Dict_Add (resources, "XObject", xobjects) != HPDF_OK)
return NULL;
attr->xobjects = xobjects;
}
/* search xobject-object from xobject-resource */
key = HPDF_Dict_GetKeyByObj (attr->xobjects, xobj);
if (!key) {
/* if the xobject is not resisterd in xobject-resource, register
* xobject to xobject-resource.
*/
char xobj_name[HPDF_LIMIT_MAX_NAME_LEN + 1];
char *ptr;
char *end_ptr = xobj_name + HPDF_LIMIT_MAX_NAME_LEN;
ptr = (char *)HPDF_StrCpy (xobj_name, "X", end_ptr);
HPDF_IToA (ptr, attr->xobjects->list->count + 1, end_ptr);
if (HPDF_Dict_Add (attr->xobjects, xobj_name, xobj) != HPDF_OK)
return NULL;
key = HPDF_Dict_GetKeyByObj (attr->xobjects, xobj);
}
return key;
}
static HPDF_STATUS
OnWrite (HPDF_Dict obj,
HPDF_Stream stream)
{
HPDF_FontAttr attr = (HPDF_FontAttr)obj->attr;
HPDF_BasicEncoderAttr encoder_attr =
(HPDF_BasicEncoderAttr)attr->encoder->attr;
HPDF_UINT i;
HPDF_STATUS ret;
char buf[128];
char *pbuf = buf;
char *eptr = buf + 127;
HPDF_PTRACE ((" HPDF_Font_OnWrite\n"));
/* Widths entry */
if ((ret = HPDF_Stream_WriteEscapeName (stream, "Widths")) != HPDF_OK)
return ret;
if ((ret = HPDF_Stream_WriteStr (stream, " [\012")) != HPDF_OK)
return ret;
for (i = encoder_attr->first_char; i <= encoder_attr->last_char; i++) {
pbuf = HPDF_IToA (pbuf, attr->widths[i], eptr);
*pbuf++ = ' ';
if ((i + 1) % 16 == 0) {
HPDF_StrCpy(pbuf, "\012", eptr);
if ((ret = HPDF_Stream_WriteStr (stream, buf)) != HPDF_OK)
return ret;
pbuf = buf;
}
}
HPDF_StrCpy (pbuf, "]\012", eptr);
if ((ret = HPDF_Stream_WriteStr (stream, buf)) != HPDF_OK)
return ret;
return attr->encoder->write_fn (attr->encoder, stream);
}
static HPDF_STATUS
Type1Font_OnWrite (HPDF_Dict obj,
HPDF_Stream stream)
{
HPDF_FontAttr attr = (HPDF_FontAttr)obj->attr;
HPDF_Type1FontDefAttr fontdef_attr =
(HPDF_Type1FontDefAttr)attr->fontdef->attr;
HPDF_BasicEncoderAttr encoder_attr =
(HPDF_BasicEncoderAttr)attr->encoder->attr;
HPDF_UINT i;
HPDF_STATUS ret;
char buf[HPDF_TMP_BUF_SIZ];
char *eptr = buf + HPDF_TMP_BUF_SIZ - 1;
HPDF_PTRACE ((" HPDF_Font_Type1Font_OnWrite\n"));
/* if font is base14-font these entries is not required */
if ( ( fontdef_attr->write_widths || fontdef_attr->font_data ) && ( !fontdef_attr->is_base14font || encoder_attr->has_differences ) ) {
char *pbuf;
pbuf = (char *)HPDF_StrCpy (buf, "/FirstChar ", eptr);
pbuf = HPDF_IToA (pbuf, encoder_attr->first_char, eptr);
HPDF_StrCpy (pbuf, "\012", eptr);
if ((ret = HPDF_Stream_WriteStr (stream, buf)) != HPDF_OK)
return ret;
pbuf = (char *)HPDF_StrCpy (buf, "/LastChar ", eptr);
pbuf = HPDF_IToA (pbuf, encoder_attr->last_char, eptr);
HPDF_StrCpy (pbuf, "\012", eptr);
if ((ret = HPDF_Stream_WriteStr (stream, buf)) != HPDF_OK)
return ret;
/* Widths entry */
if ((ret = HPDF_Stream_WriteEscapeName (stream, "Widths")) != HPDF_OK)
return ret;
if ((ret = HPDF_Stream_WriteStr (stream, " [\012")) != HPDF_OK)
return ret;
pbuf = buf;
for (i = encoder_attr->first_char; i <= encoder_attr->last_char; i++) {
pbuf = HPDF_IToA (pbuf, attr->widths[i], eptr);
*pbuf++ = ' ';
if ((i + 1) % 16 == 0) {
HPDF_StrCpy(pbuf, "\012", eptr);
if ((ret = HPDF_Stream_WriteStr (stream, buf)) != HPDF_OK)
return ret;
pbuf = buf;
}
}
HPDF_StrCpy (pbuf, "]\012", eptr);
if ((ret = HPDF_Stream_WriteStr (stream, buf)) != HPDF_OK)
return ret;
}
return attr->encoder->write_fn (attr->encoder, stream);
}
HPDF_STATUS
HPDF_Xref_WriteToStream (HPDF_Xref xref,
HPDF_Stream stream,
HPDF_Encrypt e)
{
HPDF_STATUS ret;
HPDF_UINT i;
char buf[HPDF_SHORT_BUF_SIZ];
char* pbuf;
char* eptr = buf + HPDF_SHORT_BUF_SIZ - 1;
HPDF_UINT str_idx;
HPDF_Xref tmp_xref = xref;
/* write each objects of xref to the specified stream */
HPDF_PTRACE((" HPDF_Xref_WriteToStream\n"));
while (tmp_xref) {
if (tmp_xref->start_offset == 0)
str_idx = 1;
else
str_idx = 0;
for (i = str_idx; i < tmp_xref->entries->count; i++) {
HPDF_XrefEntry entry =
(HPDF_XrefEntry)HPDF_List_ItemAt (tmp_xref->entries, i);
HPDF_UINT obj_id = tmp_xref->start_offset + i;
HPDF_UINT16 gen_no = entry->gen_no;
entry->byte_offset = stream->size;
pbuf = buf;
pbuf = HPDF_IToA (pbuf, obj_id, eptr);
*pbuf++ = ' ';
pbuf = HPDF_IToA (pbuf, gen_no, eptr);
HPDF_StrCpy(pbuf, " obj\012", eptr);
if ((ret = HPDF_Stream_WriteStr (stream, buf)) != HPDF_OK)
return ret;
if (e)
HPDF_Encrypt_InitKey (e, obj_id, gen_no);
if ((ret = HPDF_Obj_WriteValue (entry->obj, stream, e)) != HPDF_OK)
return ret;
if ((ret = HPDF_Stream_WriteStr (stream, "\012endobj\012"))
!= HPDF_OK)
return ret;
}
tmp_xref = tmp_xref->prev;
}
/* start to write cross-reference table */
tmp_xref = xref;
while (tmp_xref) {
tmp_xref->addr = stream->size;
pbuf = buf;
pbuf = (char *)HPDF_StrCpy (pbuf, "xref\012", eptr);
pbuf = HPDF_IToA (pbuf, tmp_xref->start_offset, eptr);
*pbuf++ = ' ';
pbuf = HPDF_IToA (pbuf, tmp_xref->entries->count, eptr);
HPDF_StrCpy (pbuf, "\012", eptr);
ret = HPDF_Stream_WriteStr (stream, buf);
if (ret != HPDF_OK)
return ret;
for (i = 0; i < tmp_xref->entries->count; i++) {
HPDF_XrefEntry entry = HPDF_Xref_GetEntry(tmp_xref, i);
pbuf = buf;
pbuf = HPDF_IToA2 (pbuf, entry->byte_offset, HPDF_BYTE_OFFSET_LEN +
1);
*pbuf++ = ' ';
pbuf = HPDF_IToA2 (pbuf, entry->gen_no, HPDF_GEN_NO_LEN + 1);
*pbuf++ = ' ';
*pbuf++ = entry->entry_typ;
HPDF_StrCpy (pbuf, "\015\012", eptr);
ret = HPDF_Stream_WriteStr (stream, buf);
if (ret != HPDF_OK)
return ret;
}
tmp_xref = tmp_xref->prev;
}
/* write trailer dictionary */
ret = WriteTrailer (xref, stream);
return ret;
}
static HPDF_STATUS
Type3RasterFont_OnWrite(HPDF_Dict obj,
HPDF_Stream stream)
{
HPDF_FontAttr attr = (HPDF_FontAttr)obj->attr;
HPDF_Type3RasterFontDefAttr fontdef_attr =
(HPDF_Type3RasterFontDefAttr)attr->fontdef->attr;
HPDF_BasicEncoderAttr encoder_attr =
(HPDF_BasicEncoderAttr)attr->encoder->attr;
HPDF_UINT i;
HPDF_STATUS ret;
char buf[HPDF_TMP_BUF_SIZ];
char *eptr = buf + HPDF_TMP_BUF_SIZ - 1;
HPDF_PTRACE((" HPDF_Font_Type3RasterFont_OnWrite\n"));
/* if font is base14-font these entries is not required */
if (1) {
char *pbuf;
pbuf = (char *)HPDF_StrCpy(buf, "/FirstChar ", eptr);
pbuf = HPDF_IToA(pbuf, /*encoder_attr->first_char*/0, eptr);
HPDF_StrCpy(pbuf, "\012", eptr);
if ((ret = HPDF_Stream_WriteStr(stream, buf)) != HPDF_OK)
return ret;
pbuf = (char *)HPDF_StrCpy(buf, "/LastChar ", eptr);
pbuf = HPDF_IToA(pbuf, /*encoder_attr->last_char*/255, eptr);
HPDF_StrCpy(pbuf, "\012", eptr);
if ((ret = HPDF_Stream_WriteStr(stream, buf)) != HPDF_OK)
return ret;
/* Widths entry */
if ((ret = HPDF_Stream_WriteEscapeName(stream, "Widths")) != HPDF_OK)
return ret;
if ((ret = HPDF_Stream_WriteStr(stream, " [\012")) != HPDF_OK)
return ret;
pbuf = buf;
for (i = 0 /*encoder_attr->first_char*/; i <= 255/*encoder_attr->last_char*/; i++) {
pbuf = HPDF_FToA(pbuf, fontdef_attr->chars[i].width / (72.0f / (HPDF_REAL)fontdef_attr->dpi_x), eptr);
*pbuf++ = ' ';
if ((i + 1) % 16 == 0) {
HPDF_StrCpy(pbuf, "\012", eptr);
if ((ret = HPDF_Stream_WriteStr(stream, buf)) != HPDF_OK)
return ret;
pbuf = buf;
}
}
HPDF_StrCpy(pbuf, "]\012", eptr);
if ((ret = HPDF_Stream_WriteStr(stream, buf)) != HPDF_OK)
return ret;
}
return ret;
}
