static int check_ftyp_data (FILE *fp, unsigned long size) { int supported = 0; unsigned long BR, CLi; BR = get_unsigned_quad(fp); size -= 4; /* MinV = */ get_unsigned_quad(fp); size -= 4; switch (BR) { case FTYP_BR_JP2_: /* "jp2 " ... supported */ seek_relative(fp, size); size = 0; supported = 1; break; case FTYP_BR_JPX_: /* "jpx " ... baseline subset supported */ while (size > 0) { CLi = get_unsigned_quad(fp); if (CLi == FTYP_CL_JPXB) supported = 1; size -= 4; } break; default: WARN("Unknown JPEG 2000 File Type box Brand field value."); seek_relative(fp, size); size = 0; supported = 0; } return supported; }
static int check_jp___box (FILE *fp) { if (get_unsigned_quad(fp) != 0x0c) return 0; if (get_unsigned_quad(fp) != JP2_BOX_JP__) return 0; /* Next 4 bytes shall be 0D 0A 87 0A */ if (get_unsigned_quad(fp) != 0x0D0A870A) return 0; return 1; }
static int scan_jp2h (ximage_info *info, int *smask, FILE *fp, unsigned int size) { int error = 0, have_ihdr = 0; unsigned int len, lbox, tbox; while (size > 0 && !error) { len = read_box_hdr(fp, &lbox, &tbox); if (lbox == 0) { WARN("JPEG2000: Unexpected lbox value 0 in JP2 Header box..."); error = -1; break; } switch (tbox) { case JP2_BOX_IHDR: info->height = get_unsigned_quad(fp); info->width = get_unsigned_quad(fp); info->num_components = get_unsigned_pair(fp); /* c = */ get_unsigned_byte(fp); /* BPC - 1 */ /* c = */ get_unsigned_byte(fp); /* C: Compression type */ /* c = */ get_unsigned_byte(fp); /* UnkC */ /* c = */ get_unsigned_byte(fp); /* IPR */ have_ihdr = 1; break; case JP2_BOX_RES_: error = scan_res_(info, fp, lbox - len); break; case JP2_BOX_CDEF: error = scan_cdef(info, smask, fp, lbox - len); break; case JP2_BOX_BPCC: case JP2_BOX_COLR: case JP2_BOX_PCLR: case JP2_BOX_CMAP: case JPX_BOX_LBL_: seek_relative(fp, lbox - len); break; default: WARN("JPEG2000: Unknown JPEG 2000 box in JP2 Header box."); seek_relative(fp, lbox - len); error = -1; } size -= lbox; } if (!have_ihdr) WARN("JPEG2000: Expecting JPEG 2000 Image Header box but could not find."); return (!error && have_ihdr && size == 0) ? 0 : -1; }
static unsigned long read_box_hdr (FILE *fp, unsigned long *lbox, unsigned long *tbox) { unsigned long bytesread = 0; *lbox = get_unsigned_quad(fp); *tbox = get_unsigned_quad(fp); bytesread += 8; if (*lbox == 1) { *lbox = get_unsigned_quad(fp); bytesread += 4; } else if (*lbox > 1 && *lbox < 8) { WARN("Unknown LBox value %lu in JP2 file!", lbox); } return bytesread; }
static unsigned int read_box_hdr (FILE *fp, unsigned int *lbox, unsigned int *tbox) { unsigned int bytesread = 0; *lbox = get_unsigned_quad(fp); *tbox = get_unsigned_quad(fp); bytesread += 8; if (*lbox == 1) { if (get_unsigned_quad(fp) != 0) ERROR("JPEG2000: LBox value in JP2 file >32 bits.\nI can't handle this!"); *lbox = get_unsigned_quad(fp); bytesread += 8; } else if (*lbox > 1 && *lbox < 8) { WARN("JPEG2000: Unknown LBox value %lu in JP2 file!", lbox); } return bytesread; }
static int read_pk_char_header (struct pk_header_ *h, unsigned char opcode, FILE *fp) { ASSERT(h); if ((opcode & 4) == 0) { /* short */ h->pkt_len = (opcode & 3) * 0x100U + get_unsigned_byte(fp); h->chrcode = get_unsigned_byte(fp); h->wd = get_unsigned_triple(fp); /* TFM width */ h->dx = get_unsigned_byte(fp) << 16; /* horizontal escapement */ h->dy = 0L; h->bm_wd = get_unsigned_byte(fp); h->bm_ht = get_unsigned_byte(fp); h->bm_hoff = get_signed_byte(fp); h->bm_voff = get_signed_byte(fp); h->pkt_len -= 8; } else if ((opcode & 7) == 7) { /* long */ h->pkt_len = get_unsigned_quad(fp); h->chrcode = get_signed_quad(fp); h->wd = get_signed_quad(fp); h->dx = get_signed_quad(fp); /* 16.16 fixed point number in pixels */ h->dy = get_signed_quad(fp); h->bm_wd = get_signed_quad(fp); h->bm_ht = get_signed_quad(fp); h->bm_hoff = get_signed_quad(fp); h->bm_voff = get_signed_quad(fp); h->pkt_len -= 28; } else { /* extended short */ h->pkt_len = (opcode & 3) * 0x10000UL + get_unsigned_pair(fp); h->chrcode = get_unsigned_byte(fp); h->wd = get_unsigned_triple(fp); h->dx = get_unsigned_pair(fp) << 16; h->dy = 0x0L; h->bm_wd = get_unsigned_pair(fp); h->bm_ht = get_unsigned_pair(fp); h->bm_hoff = get_signed_pair(fp); h->bm_voff = get_signed_pair(fp); h->pkt_len -= 13; } h->dyn_f = opcode / 16; h->run_color = (opcode & 8) ? 1 : 0; if (h->chrcode > 0xff) { WARN("Unable to handle long characters in PK files: code=0x%04x", h->chrcode); return -1; } return 0; }
int pdf_font_load_pkfont (pdf_font *font) { pdf_obj *fontdict; char *usedchars; char *ident; unsigned dpi; FILE *fp; double point_size, pix2charu; int opcode, code, firstchar, lastchar, prev; pdf_obj *charprocs, *procset, *encoding, *tmp_array; double widths[256]; pdf_rect bbox; char charavail[256]; #if ENABLE_GLYPHENC int encoding_id; char **enc_vec; #endif /* ENABLE_GLYPHENC */ int error = 0; if (!pdf_font_is_in_use(font)) { return 0; } ident = pdf_font_get_ident(font); point_size = pdf_font_get_param(font, PDF_FONT_PARAM_POINT_SIZE); usedchars = pdf_font_get_usedchars(font); #if ENABLE_GLYPHENC encoding_id = pdf_font_get_encoding(font); if (encoding_id < 0) enc_vec = NULL; else { enc_vec = pdf_encoding_get_encoding(encoding_id); } #endif /* ENABLE_GLYPHENC */ ASSERT(ident && usedchars && point_size > 0.0); dpi = truedpi(ident, point_size, base_dpi); { char *fontfile = pdf_font_get_fontfile (font); if (fontfile) fp = MFOPEN(fontfile, FOPEN_RBIN_MODE); else fp = dpx_open_pk_font_at(ident, dpi); } if (!fp) { ERROR("Could not find/open PK font file: %s (at %udpi)", ident, dpi); } memset(charavail, 0, 256); charprocs = pdf_new_dict(); /* Include bitmap as 72dpi image: * There seems to be problems in "scaled" bitmap glyph * rendering in several viewers. */ pix2charu = 72. * 1000. / ((double) base_dpi) / point_size; bbox.llx = bbox.lly = HUGE_VAL; bbox.urx = bbox.ury = -HUGE_VAL; while ((opcode = fgetc(fp)) >= 0 && opcode != PK_POST) { if (opcode < 240) { struct pk_header_ pkh; error = read_pk_char_header(&pkh, opcode, fp); if (error) ERROR("Error in reading PK character header."); else if (charavail[pkh.chrcode & 0xff]) WARN("More than two bitmap image for single glyph?: font=\"%s\" code=0x%02x", ident, pkh.chrcode); if (!usedchars[pkh.chrcode & 0xff]) do_skip(fp, pkh.pkt_len); else { char *charname; pdf_obj *charproc; unsigned char *pkt_ptr; size_t bytesread; double charwidth; /* Charwidth in PDF units */ charwidth = ROUND(1000.0 * pkh.wd / (((double) (1<<20))*pix2charu), 0.1); widths[pkh.chrcode & 0xff] = charwidth; /* Update font BBox info */ bbox.llx = MIN(bbox.llx, -pkh.bm_hoff); bbox.lly = MIN(bbox.lly, pkh.bm_voff - pkh.bm_ht); bbox.urx = MAX(bbox.urx, pkh.bm_wd - pkh.bm_hoff); bbox.ury = MAX(bbox.ury, pkh.bm_voff); pkt_ptr = NEW(pkh.pkt_len, unsigned char); if ((bytesread = fread(pkt_ptr, 1, pkh.pkt_len, fp))!= pkh.pkt_len) { ERROR("Only %ld bytes PK packet read. (expected %ld bytes)", bytesread, pkh.pkt_len); } charproc = create_pk_CharProc_stream(&pkh, charwidth, pkt_ptr, bytesread); RELEASE(pkt_ptr); if (!charproc) ERROR("Unpacking PK character data failed."); #if ENABLE_GLYPHENC if (encoding_id >= 0 && enc_vec) { charname = (char *) enc_vec[pkh.chrcode & 0xff]; if (!charname) { WARN("\".notdef\" glyph used in font (code=0x%02x): %s", pkh.chrcode, ident); charname = work_buffer; pk_char2name(charname, pkh.chrcode); } } else #endif /* ENABLE_GLYPHENC */ { charname = work_buffer; pk_char2name(charname, pkh.chrcode); } pdf_add_dict(charprocs, pdf_new_name(charname), pdf_ref_obj(charproc)); /* _FIXME_ */ pdf_release_obj(charproc); } charavail[pkh.chrcode & 0xff] = 1; } else { /* A command byte */ switch (opcode) { case PK_NO_OP: break; case PK_XXX1: do_skip(fp, get_unsigned_byte(fp)); break; case PK_XXX2: do_skip(fp, get_unsigned_pair(fp)); break; case PK_XXX3: do_skip(fp, get_unsigned_triple(fp)); break; case PK_XXX4: do_skip(fp, get_unsigned_quad(fp)); break; case PK_YYY: do_skip(fp, 4); break; case PK_PRE: do_preamble(fp); break; } } }