int pdf_destination(lua_State *L) { pdf_obj* array = texpdf_new_array(); const char* name = luaL_checkstring(L, 1); double x = luaL_checknumber(L, 2); double y = luaL_checknumber(L, 3); texpdf_add_array(array, texpdf_doc_this_page_ref(p)); texpdf_add_array(array, texpdf_new_name("XYZ")); texpdf_add_array(array, texpdf_new_number(x)); texpdf_add_array(array, texpdf_new_number(y)); texpdf_add_array(array, texpdf_new_null()); texpdf_doc_add_names(p, "Dests", name, strlen(name), array); return 0; }
int pdf_push_array(lua_State *L) { pdf_obj* array = lua_touserdata(L, 1); if (!PDF_OBJ_ARRAYTYPE(array)) { return luaL_error(L, "push_array called on non-array"); } pdf_obj* val = lua_touserdata(L, 2); texpdf_add_array(array, val); return 0; }
int jpeg_include_image (pdf_ximage *ximage, FILE *fp) { pdf_obj *stream; pdf_obj *stream_dict; pdf_obj *colorspace; int colortype; ximage_info info; struct JPEG_info j_info; if (!texpdf_check_for_jpeg(fp)) { WARN("%s: Not a JPEG file?", JPEG_DEBUG_STR); rewind(fp); return -1; } /* File position is 2 here... */ texpdf_ximage_init_image_info(&info); JPEG_info_init(&j_info); if (JPEG_scan_file(&j_info, fp) < 0) { WARN("%s: Not a JPEG file?", JPEG_DEBUG_STR); JPEG_info_clear(&j_info); return -1; } switch (j_info.num_components) { case 1: colortype = PDF_COLORSPACE_TYPE_GRAY; break; case 3: colortype = PDF_COLORSPACE_TYPE_RGB; break; case 4: colortype = PDF_COLORSPACE_TYPE_CMYK; break; default: WARN("%s: Unknown color space (num components: %d)", JPEG_DEBUG_STR, info.num_components); JPEG_info_clear(&j_info); return -1; } /* JPEG image use DCTDecode. */ stream = texpdf_new_stream (0); stream_dict = texpdf_stream_dict(stream); texpdf_add_dict(stream_dict, texpdf_new_name("Filter"), texpdf_new_name("DCTDecode")); /* XMP Metadata */ if (texpdf_get_version() >= 4) { if (j_info.flags & HAVE_APPn_XMP) { pdf_obj *XMP_stream; XMP_stream = JPEG_get_XMP(&j_info); texpdf_add_dict(stream_dict, texpdf_new_name("Metadata"), texpdf_ref_obj(XMP_stream)); texpdf_release_obj(XMP_stream); } } /* Check embedded ICC Profile */ colorspace = NULL; if (j_info.flags & HAVE_APPn_ICC) { pdf_obj *icc_stream, *intent; int cspc_id; icc_stream = JPEG_get_iccp(&j_info); if (!icc_stream) colorspace = NULL; else { if (iccp_check_colorspace(colortype, pdf_stream_dataptr(icc_stream), pdf_stream_length (icc_stream)) < 0) colorspace = NULL; else { cspc_id = iccp_load_profile(NULL, /* noname */ pdf_stream_dataptr(icc_stream), pdf_stream_length (icc_stream)); if (cspc_id < 0) colorspace = NULL; else { colorspace = texpdf_get_colorspace_reference(cspc_id); intent = iccp_get_rendering_intent(pdf_stream_dataptr(icc_stream), pdf_stream_length (icc_stream)); if (intent) texpdf_add_dict(stream_dict, texpdf_new_name("Intent"), intent); } } texpdf_release_obj(icc_stream); } } /* No ICC or invalid ICC profile. */ if (!colorspace) { switch (colortype) { case PDF_COLORSPACE_TYPE_GRAY: colorspace = texpdf_new_name("DeviceGray"); break; case PDF_COLORSPACE_TYPE_RGB: colorspace = texpdf_new_name("DeviceRGB"); break; case PDF_COLORSPACE_TYPE_CMYK: colorspace = texpdf_new_name("DeviceCMYK"); break; } } texpdf_add_dict(stream_dict, texpdf_new_name("ColorSpace"), colorspace); #define IS_ADOBE_CMYK(j) (((j).flags & HAVE_APPn_ADOBE) && (j).num_components == 4) if (IS_ADOBE_CMYK(j_info)) { pdf_obj *decode; int i; WARN("Adobe CMYK JPEG: Inverted color assumed."); decode = texpdf_new_array(); for (i = 0; i < j_info.num_components; i++) { texpdf_add_array(decode, texpdf_new_number(1.0)); texpdf_add_array(decode, texpdf_new_number(0.0)); } texpdf_add_dict(stream_dict, texpdf_new_name("Decode"), decode); } /* Copy file */ JPEG_copy_stream(&j_info, stream, fp); info.width = j_info.width; info.height = j_info.height; info.bits_per_component = j_info.bits_per_component; info.num_components = j_info.num_components; jpeg_get_density(&j_info, &info.xdensity, &info.ydensity); texpdf_ximage_set_image(ximage, &info, stream); JPEG_info_clear(&j_info); return 0; }