static void copy_image(lua_State * L, lua_Number scale)
{
image *a, **aa, *b, **bb;
if (lua_gettop(L) != 1)
luaL_error(L, "img.copy() needs exactly 1 argument");
aa = (image **) luaL_checkudata(L, 1, TYPE_IMG); /* a */
lua_pop(L, 1); /* - */
a = *aa;
bb = (image **) lua_newuserdata(L, sizeof(image *)); /* b */
luaL_getmetatable(L, TYPE_IMG); /* m b */
lua_setmetatable(L, -2); /* b */
b = *bb = new_image();
if (!is_wd_running(a))
img_width(b) = do_zround(img_width(a) * scale);
if (!is_ht_running(a))
img_height(b) = do_zround(img_height(a) * scale);
if (!is_dp_running(a))
img_depth(b) = do_zround(img_depth(a) * scale);
img_transform(b) = img_transform(a);
img_dict(b) = img_dict(a);
if (img_dictref(a) != LUA_NOREF) {
lua_rawgeti(L, LUA_GLOBALSINDEX, img_dictref(a)); /* ad b */
img_dictref(b) = luaL_ref(L, LUA_GLOBALSINDEX); /* b */
} else
assert(img_state(img_dict(a)) >= DICT_REFERED);
}
static void copy_image(lua_State * L, lua_Number scale)
{
image *a, **aa, *b, **bb;
image_dict *d;
if (lua_gettop(L) == 0)
luaL_error(L, "img.copy needs an image as argument");
aa = (image **) luaL_checkudata(L, 1, TYPE_IMG); /* a */
lua_pop(L, 1); /* - */
a = *aa;
bb = (image **) lua_newuserdata(L, sizeof(image *)); /* b */
luaL_getmetatable(L, TYPE_IMG); /* m b */
lua_setmetatable(L, -2); /* b */
b = *bb = new_image();
if (!is_wd_running(a))
img_width(b) = do_zround(img_width(a) * scale);
if (!is_ht_running(a))
img_height(b) = do_zround(img_height(a) * scale);
if (!is_dp_running(a))
img_depth(b) = do_zround(img_depth(a) * scale);
img_transform(b) = img_transform(a);
img_dict(b) = img_dict(a);
if (img_dictref(a) != LUA_NOREF) {
lua_rawgeti(L, LUA_REGISTRYINDEX, img_dictref(a)); /* ad b */
img_dictref(b) = luaL_ref(L, LUA_REGISTRYINDEX); /* b */
d = img_dict(*aa);
img_luaref(d) += 1;
} else if (img_state(img_dict(a)) < DICT_REFERED) {
luaL_error(L, "img.copy needs an proper image as argument");
}
}
static void read_scale_img(image * a)
{
image_dict *ad;
if (a == NULL) {
luaL_error(Luas, "the image scaler needs a valid image");
} else {
ad = img_dict(a);
if (a == NULL) {
luaL_error(Luas, "the image scaler needs a valid dictionary");
} else {
if (img_state(ad) == DICT_NEW) {
if (img_type(ad) == IMG_TYPE_PDFSTREAM)
check_pdfstream_dict(ad);
else {
read_img(ad);
}
}
if ((img_type(ad) == IMG_TYPE_NONE) || (img_state(ad) == DICT_NEW)) {
normal_warning("image","don't rely on the image data to be okay");
img_width(a) = 0;
img_height(a) = 0;
img_depth(a) = 0;
} else if (is_wd_running(a) || is_ht_running(a) || is_dp_running(a)) {
img_dimen(a) = scale_img(ad, img_dimen(a), img_transform(a));
}
}
}
}
void write_jpg(integer img)
{
long unsigned l;
FILE *f;
pdf_puts("/Type /XObject\n/Subtype /Image\n");
pdf_printf("/Width %i\n/Height %i\n/BitsPerComponent %i\n/Length %i\n",
(int) img_width(img),
(int) img_height(img),
(int) jpg_ptr(img)->bits_per_component,
(int) jpg_ptr(img)->length);
pdf_puts("/ColorSpace ");
if (img_colorspace_ref(img) != 0) {
pdf_printf("%i 0 R\n", (int) img_colorspace_ref(img));
} else {
switch (jpg_ptr(img)->color_space) {
case JPG_GRAY:
pdf_puts("/DeviceGray\n");
break;
case JPG_RGB:
pdf_puts("/DeviceRGB\n");
break;
case JPG_CMYK:
pdf_puts("/DeviceCMYK\n/Decode [1 0 1 0 1 0 1 0]\n");
break;
default:
pdftex_fail("Unsupported color space %i",
(int) jpg_ptr(img)->color_space);
}
}
pdf_puts("/Filter /DCTDecode\n>>\nstream\n");
for (l = jpg_ptr(img)->length, f = jpg_ptr(img)->file; l > 0; l--)
pdfout(xgetc(f));
pdfendstream();
}
static halfword img_to_node(image * a)
{
image_dict *ad;
halfword n;
assert(a != NULL);
ad = img_dict(a);
assert(ad != NULL);
assert(img_objnum(ad) != 0);
n = new_node(whatsit_node, pdf_refximage_node);
pdf_ximage_index(n) = img_index(ad);
width(n) = img_width(a);
height(n) = img_height(a);
depth(n) = img_depth(a);
pdf_ximage_transform(n) = img_transform(a);
return n;
}
static halfword img_to_node(lua_State * L, image * a)
{
image_dict *ad;
halfword n = null;
if (a == NULL) {
luaL_error(L, "img.tonode needs a valid image");
} else {
ad = img_dict(a);
if (a == NULL) {
luaL_error(L, "img.tonode image has no dictionary");
} else if (img_objnum(ad) == 0) {
luaL_error(L, "img.tonode got image without object number");
} else {
n = new_rule(image_rule);
rule_index(n) = img_index(ad);
width(n) = img_width(a);
height(n) = img_height(a);
depth(n) = img_depth(a);
rule_transform(n) = img_transform(a);
}
}
return n;
}
static void lua_to_image(lua_State * L, image * a)
{ /* value key table ... */
int i;
image_dict *d = img_dict(a);
assert(d != NULL);
lua_pushstring(L, IMG_ENV); /* s v k t ... */
lua_gettable(L, LUA_REGISTRYINDEX); /* t v k t ... */
lua_pushvalue(L, -3); /* k t v k t ... */
lua_gettable(L, -2); /* i? t v k t ... */
if (!lua_isnumber(L, -1)) /* !i t v k t ... */
luaL_error(L, "lua_to_image(): %s is not a valid image key",
lua_tostring(L, -4));
i = (int) lua_tointeger(L, -1); /* i t v k t ... */
lua_pop(L, 2); /* v k t ... */
switch (i) {
case P_WIDTH:
if (lua_isnil(L, -1))
set_wd_running(a);
else if (lua_type(L, -1) == LUA_TNUMBER)
img_width(a) = (int) lua_tointeger(L, -1);
else if (lua_type(L, -1) == LUA_TSTRING)
img_width(a) = dimen_to_number(L, lua_tostring(L, -1));
else
luaL_error(L,
"image.width needs integer or nil value or dimension string");
break;
case P_HEIGHT:
if (lua_isnil(L, -1))
set_ht_running(a);
else if (lua_type(L, -1) == LUA_TNUMBER)
img_height(a) = (int) lua_tointeger(L, -1);
else if (lua_type(L, -1) == LUA_TSTRING)
img_height(a) = dimen_to_number(L, lua_tostring(L, -1));
else
luaL_error(L,
"image.height needs integer or nil value or dimension string");
break;
case P_DEPTH:
if (lua_isnil(L, -1))
set_dp_running(a);
else if (lua_type(L, -1) == LUA_TNUMBER)
img_depth(a) = (int) lua_tointeger(L, -1);
else if (lua_type(L, -1) == LUA_TSTRING)
img_depth(a) = dimen_to_number(L, lua_tostring(L, -1));
else
luaL_error(L,
"image.depth needs integer or nil value or dimension string");
break;
case P_TRANSFORM:
if (lua_isnumber(L, -1))
img_transform(a) = (int) lua_tointeger(L, -1);
else
luaL_error(L, "image.transform needs integer value");
break;
/* now follow all image_dict entries */
case P_FILENAME:
if (img_state(d) >= DICT_FILESCANNED)
luaL_error(L, "image.filename is now read-only");
if (img_type(d) == IMG_TYPE_PDFSTREAM)
luaL_error(L, "image.filename can't be used with image.stream");
if (lua_isstring(L, -1)) {
xfree(img_filename(d));
img_filename(d) = xstrdup(lua_tostring(L, -1));
} else
luaL_error(L, "image.filename needs string value");
break;
case P_VISIBLEFILENAME:
if (img_state(d) >= DICT_FILESCANNED)
luaL_error(L, "image.visiblefilename is now read-only");
if (img_type(d) == IMG_TYPE_PDFSTREAM)
luaL_error(L,
"image.visiblefilename can't be used with image.stream");
if (lua_isstring(L, -1)) {
xfree(img_visiblefilename(d));
img_visiblefilename(d) = xstrdup(lua_tostring(L, -1));
} else
luaL_error(L, "image.visiblefilename needs string value");
break;
case P_ATTR:
if (img_state(d) >= DICT_FILESCANNED)
luaL_error(L, "image.attr is now read-only");
if (lua_isstring(L, -1) || lua_isnil(L, -1)) {
xfree(img_attr(d));
if (lua_isstring(L, -1))
img_attr(d) = xstrdup(lua_tostring(L, -1));
} else
luaL_error(L, "image.attr needs string or nil value");
break;
case P_PAGE:
if (img_state(d) >= DICT_FILESCANNED)
luaL_error(L, "image.page is now read-only");
if (lua_type(L, -1) == LUA_TSTRING) {
xfree(img_pagename(d));
img_pagename(d) = xstrdup(lua_tostring(L, -1));
img_pagenum(d) = 0;
} else if (lua_type(L, -1) == LUA_TNUMBER) {
img_pagenum(d) = (int) lua_tointeger(L, -1);
xfree(img_pagename(d));
} else
luaL_error(L, "image.page needs integer or string value");
break;
case P_COLORSPACE:
if (img_state(d) >= DICT_FILESCANNED)
luaL_error(L, "image.colorspace is now read-only");
if (lua_isnil(L, -1))
img_colorspace(d) = 0;
else if (lua_isnumber(L, -1))
img_colorspace(d) = (int) lua_tointeger(L, -1);
else
luaL_error(L, "image.colorspace needs integer or nil value");
break;
case P_PAGEBOX:
if (img_state(d) >= DICT_FILESCANNED)
luaL_error(L, "image.pagebox is now read-only");
if (lua_isnil(L, -1))
img_pagebox(d) = PDF_BOX_SPEC_NONE;
else if (lua_isstring(L, -1))
img_pagebox(d) = luaL_checkoption(L, -1, "none", pdfboxspec_s);
else
luaL_error(L, "image.pagebox needs string or nil value");
break;
case P_BBOX:
if (img_state(d) >= DICT_FILESCANNED)
luaL_error(L, "image.bbox is now read-only");
if (!lua_istable(L, -1))
luaL_error(L, "image.bbox needs table value");
if (lua_objlen(L, -1) != 4)
luaL_error(L, "image.bbox table must have exactly 4 elements");
for (i = 1; i <= 4; i++) { /* v k t ... */
lua_pushinteger(L, i); /* idx v k t ... */
lua_gettable(L, -2); /* int v k t ... */
if (lua_type(L, -1) == LUA_TNUMBER)
img_bbox(d)[i - 1] = (int) lua_tointeger(L, -1);
else if (lua_type(L, -1) == LUA_TSTRING)
img_bbox(d)[i - 1] = dimen_to_number(L, lua_tostring(L, -1));
else
luaL_error(L,
"image.bbox table needs integer value or dimension string elements");
lua_pop(L, 1); /* v k t ... */
}
img_set_bbox(d);
break;
case P_STREAM:
if (img_filename(d) != NULL)
luaL_error(L, "image.stream can't be used with image.filename");
if (img_state(d) >= DICT_FILESCANNED)
luaL_error(L, "image.stream is now read-only");
if (img_pdfstream_ptr(d) == NULL)
new_img_pdfstream_struct(d);
xfree(img_pdfstream_stream(d));
img_pdfstream_stream(d) = xstrdup(lua_tostring(L, -1));
img_type(d) = IMG_TYPE_PDFSTREAM;
break;
case P_FILEPATH:
case P_TOTALPAGES:
case P_XSIZE:
case P_YSIZE:
case P_XRES:
case P_YRES:
case P_ROTATION:
case P_IMAGETYPE:
case P_OBJNUM:
case P_INDEX:
case P_COLORDEPTH:
luaL_error(L, "image.%s is a read-only variable", img_parms[i].name);
break;
default:
assert(0);
} /* v k t ... */
}
static void image_to_lua(lua_State * L, image * a)
{ /* key user ... */
int i, j;
image_dict *d = img_dict(a);
assert(d != NULL);
lua_pushstring(L, IMG_ENV); /* s k u ... */
lua_gettable(L, LUA_REGISTRYINDEX); /* t k u ... */
lua_pushvalue(L, -2); /* k t k u ... */
lua_gettable(L, -2); /* i? t k u ... */
if (!lua_isnumber(L, -1)) /* !i t k u ... */
luaL_error(L, "image_to_lua(): %s is not a valid image key",
lua_tostring(L, -3));
i = (int) lua_tointeger(L, -1); /* i t k u ... */
lua_pop(L, 3); /* u ... */
switch (i) {
case P_WIDTH:
if (is_wd_running(a))
lua_pushnil(L);
else
lua_pushinteger(L, img_width(a));
break;
case P_HEIGHT:
if (is_ht_running(a))
lua_pushnil(L);
else
lua_pushinteger(L, img_height(a));
break;
case P_DEPTH:
if (is_dp_running(a))
lua_pushnil(L);
else
lua_pushinteger(L, img_depth(a));
break;
case P_TRANSFORM:
lua_pushinteger(L, img_transform(a));
break;
/* now follow all image_dict entries */
case P_FILENAME:
if (img_filename(d) == NULL || strlen(img_filename(d)) == 0)
lua_pushnil(L);
else
lua_pushstring(L, img_filename(d));
break;
case P_VISIBLEFILENAME:
if (img_visiblefilename(d) == NULL
|| strlen(img_visiblefilename(d)) == 0)
lua_pushnil(L);
else
lua_pushstring(L, img_visiblefilename(d));
break;
case P_FILEPATH:
if (img_filepath(d) == NULL || strlen(img_filepath(d)) == 0)
lua_pushnil(L);
else
lua_pushstring(L, img_filepath(d));
break;
case P_ATTR:
if (img_attr(d) == NULL || strlen(img_attr(d)) == 0)
lua_pushnil(L);
else
lua_pushstring(L, img_attr(d));
break;
case P_PAGE:
if (img_pagename(d) != NULL && strlen(img_pagename(d)) != 0)
lua_pushstring(L, img_pagename(d));
else
lua_pushinteger(L, img_pagenum(d));
break;
case P_TOTALPAGES:
lua_pushinteger(L, img_totalpages(d));
break;
case P_XSIZE: /* Modify by /Rotate only for output */
if ((img_rotation(d) & 1) == 0)
lua_pushinteger(L, img_xsize(d));
else
lua_pushinteger(L, img_ysize(d));
break;
case P_YSIZE: /* Modify by /Rotate only for output */
if ((img_rotation(d) & 1) == 0)
lua_pushinteger(L, img_ysize(d));
else
lua_pushinteger(L, img_xsize(d));
break;
case P_XRES:
lua_pushinteger(L, img_xres(d));
break;
case P_YRES:
lua_pushinteger(L, img_yres(d));
break;
case P_ROTATION:
lua_pushinteger(L, img_rotation(d));
break;
case P_COLORSPACE:
if (img_colorspace(d) == 0)
lua_pushnil(L);
else
lua_pushinteger(L, img_colorspace(d));
break;
case P_COLORDEPTH:
if (img_colordepth(d) == 0)
lua_pushnil(L);
else
lua_pushinteger(L, img_colordepth(d));
break;
case P_IMAGETYPE:
j = img_type(d);
if (j >= 0 && j <= imgtype_max) {
if (j == IMG_TYPE_NONE)
lua_pushnil(L);
else
lua_pushstring(L, imgtype_s[j]);
} else
assert(0);
break;
case P_PAGEBOX:
j = img_pagebox(d);
if (j >= 0 && j <= pagebox_max) {
if (j == PDF_BOX_SPEC_NONE)
lua_pushnil(L);
else
lua_pushstring(L, pdfboxspec_s[j]);
} else
assert(0);
break;
case P_BBOX:
if (!img_is_bbox(d)) {
img_bbox(d)[0] = img_xorig(d);
img_bbox(d)[1] = img_yorig(d);
img_bbox(d)[2] = img_xorig(d) + img_xsize(d);
img_bbox(d)[3] = img_yorig(d) + img_ysize(d);
}
lua_newtable(L);
lua_pushinteger(L, 1);
lua_pushinteger(L, img_bbox(d)[0]);
lua_settable(L, -3);
lua_pushinteger(L, 2);
lua_pushinteger(L, img_bbox(d)[1]);
lua_settable(L, -3);
lua_pushinteger(L, 3);
lua_pushinteger(L, img_bbox(d)[2]);
lua_settable(L, -3);
lua_pushinteger(L, 4);
lua_pushinteger(L, img_bbox(d)[3]);
lua_settable(L, -3);
break;
case P_OBJNUM:
if (img_objnum(d) == 0)
lua_pushnil(L);
else
lua_pushinteger(L, img_objnum(d));
break;
case P_INDEX:
if (img_index(d) == 0)
lua_pushnil(L);
else
lua_pushinteger(L, img_index(d));
break;
case P_STREAM:
if (img_type(d) != IMG_TYPE_PDFSTREAM || img_pdfstream_ptr(d) == NULL
|| img_pdfstream_stream(d) == NULL
|| strlen(img_pdfstream_stream(d)) == 0)
lua_pushnil(L);
else
lua_pushstring(L, img_pdfstream_stream(d));
break;
default:
assert(0);
} /* v u ... */
}
static void lua_to_image(lua_State * L, image * a, image_dict * d)
{
int i, t;
const char *s;
s = lua_tostring(L,-2);
t = lua_type(L, -1);
if (lua_key_eq(s,width)) {
if (t == LUA_TNIL) {
set_wd_running(a);
} else if (t == LUA_TNUMBER) {
img_width(a) = (int) lua_roundnumber(L, -1);
} else if (t == LUA_TSTRING) {
img_width(a) = dimen_to_number(L, lua_tostring(L, -1));
} else {
luaL_error(L, "image.width needs integer or nil value or dimension string");
}
} else if (lua_key_eq(s,height)) {
if (t == LUA_TNIL) {
set_ht_running(a);
} else if (t == LUA_TNUMBER) {
img_height(a) = (int) lua_roundnumber(L, -1);
} else if (t == LUA_TSTRING) {
img_height(a) = dimen_to_number(L, lua_tostring(L, -1));
} else {
luaL_error(L, "image.height needs integer or nil value or dimension string");
}
} else if (lua_key_eq(s,depth)) {
if (t == LUA_TNIL) {
set_dp_running(a);
} else if (t == LUA_TNUMBER) {
img_depth(a) = (int) lua_roundnumber(L, -1);
} else if (t == LUA_TSTRING) {
img_depth(a) = dimen_to_number(L, lua_tostring(L, -1));
} else {
luaL_error(L, "image.depth needs integer or nil value or dimension string");
}
} else if (lua_key_eq(s,transform)) {
if (t == LUA_TNUMBER) {
img_transform(a) = (int) lua_tointeger(L, -1);
} else {
luaL_error(L, "image.transform needs integer value");
}
} else if (lua_key_eq(s,filename)) {
if (img_state(d) >= DICT_FILESCANNED) {
luaL_error(L, "image.filename is now read-only");
} else if (img_type(d) == IMG_TYPE_PDFSTREAM) {
luaL_error(L, "image.filename can't be used with image.stream");
} else if (t == LUA_TSTRING) {
xfree(img_filename(d));
img_filename(d) = xstrdup(lua_tostring(L, -1));
} else {
luaL_error(L, "image.filename needs string value");
}
} else if (lua_key_eq(s,visiblefilename)) {
if (img_state(d) >= DICT_FILESCANNED) {
luaL_error(L, "image.visiblefilename is now read-only");
} else if (img_type(d) == IMG_TYPE_PDFSTREAM) {
luaL_error(L, "image.visiblefilename can't be used with image.stream");
} else if (t == LUA_TSTRING) {
xfree(img_visiblefilename(d));
img_visiblefilename(d) = xstrdup(lua_tostring(L, -1));
} else {
luaL_error(L, "image.visiblefilename needs string value");
}
} else if (lua_key_eq(s,attr)) {
if (img_state(d) >= DICT_FILESCANNED) {
luaL_error(L, "image.attr is now read-only");
} else if (t == LUA_TSTRING) {
xfree(img_attr(d));
img_attr(d) = xstrdup(lua_tostring(L, -1));
} else if (t == LUA_TNIL) {
xfree(img_attr(d));
} else {
luaL_error(L, "image.attr needs string or nil value");
}
} else if (lua_key_eq(s,page)) {
if (img_state(d) >= DICT_FILESCANNED) {
luaL_error(L, "image.page is now read-only");
} else if (t == LUA_TSTRING) {
xfree(img_pagename(d));
img_pagename(d) = xstrdup(lua_tostring(L, -1));
img_pagenum(d) = 0;
} else if (t == LUA_TNUMBER) {
img_pagenum(d) = (int) lua_tointeger(L, -1);
xfree(img_pagename(d));
} else {
luaL_error(L, "image.page needs integer or string value");
}
} else if (lua_key_eq(s,colorspace)) {
if (img_state(d) >= DICT_FILESCANNED) {
luaL_error(L, "image.colorspace is now read-only");
} else if (t == LUA_TNIL) {
img_colorspace(d) = 0;
} else if (t == LUA_TNUMBER) {
img_colorspace(d) = (int) lua_tointeger(L, -1);
} else {
luaL_error(L, "image.colorspace needs integer or nil value");
}
} else if (lua_key_eq(s,pagebox)) {
if (img_state(d) >= DICT_FILESCANNED) {
luaL_error(L, "image.pagebox is now read-only");
} else if (t == LUA_TNIL) {
img_pagebox(d) = PDF_BOX_SPEC_MEDIA;
} else if (t == LUA_TNUMBER) {
i = lua_tointeger(L,-1);
if (i < 0 || i >= img_pageboxes_max) {
img_pagebox(d) = PDF_BOX_SPEC_MEDIA;
} else {
img_pagebox(d) = i;
}
} else if (t == LUA_TSTRING) {
img_pagebox(d) = PDF_BOX_SPEC_MEDIA;
for (i = 0; i < img_pageboxes_max; i++) {
lua_rawgeti(L, LUA_REGISTRYINDEX, img_pageboxes[i]);
if (lua_rawequal(L,-1,-2)) {
img_pagebox(d) = i;
lua_pop(L, 1);
break;
} else {
lua_pop(L, 1);
}
}
} else {
luaL_error(L, "image.pagebox needs string, number or nil value");
}
} else if (lua_key_eq(s,keepopen)) {
if (img_state(d) >= DICT_FILESCANNED) {
luaL_error(L, "image.keepopen is now read-only");
} else if (t != LUA_TBOOLEAN) {
luaL_error(L, "image.bbox needs boolean value");
} else {
img_keepopen(d) = lua_toboolean(L, -1);
}
} else if (lua_key_eq(s,bbox)) {
if (img_state(d) >= DICT_FILESCANNED) {
luaL_error(L, "image.bbox is now read-only");
} else if (t != LUA_TTABLE) {
luaL_error(L, "image.bbox needs table value");
} else if (lua_rawlen(L, -1) != 4) {
luaL_error(L, "image.bbox table must have exactly 4 elements");
} else {
for (i = 1; i <= 4; i++) { /* v k t ... */
lua_pushinteger(L, i); /* idx v k t ... */
lua_gettable(L, -2); /* int v k t ... */
t = lua_type(L, -1);
if (t == LUA_TNUMBER) {
img_bbox(d)[i - 1] = (int) lua_roundnumber(L, -1);
} else if (t == LUA_TSTRING) {
img_bbox(d)[i - 1] = dimen_to_number(L, lua_tostring(L, -1));
} else {
luaL_error(L, "image.bbox table needs integer value or dimension string elements");
}
lua_pop(L, 1); /* v k t ... */
}
img_set_bbox(d);
}
} else if (lua_key_eq(s,stream)) {
if (img_filename(d) != NULL) {
luaL_error(L, "image.stream can't be used with image.filename");
} else if (img_state(d) >= DICT_FILESCANNED) {
luaL_error(L, "image.stream is now read-only");
} else {
if (img_pdfstream_ptr(d) == NULL) {
new_img_pdfstream_struct(d);
}
xfree(img_pdfstream_stream(d));
img_pdfstream_stream(d) = xstrdup(lua_tostring(L, -1));
img_type(d) = IMG_TYPE_PDFSTREAM;
}
} else {
luaL_error(L, "image.%s can not be set", s);
}
}
static int m_img_get(lua_State * L)
{
int j;
const char *s;
image **a = (image **) luaL_checkudata(L, 1, TYPE_IMG); /* k u */
image_dict *d = img_dict(*a);
if (d == NULL) {
luaL_error(L, "invalid image dictionary");
}
s = lua_tostring(L, 2);
if (lua_key_eq(s,width)) {
if (is_wd_running(*a)) {
lua_pushnil(L);
} else {
lua_pushinteger(L, img_width(*a));
}
} else if (lua_key_eq(s,height)) {
if (is_ht_running(*a)) {
lua_pushnil(L);
} else {
lua_pushinteger(L, img_height(*a));
}
} else if (lua_key_eq(s,depth)) {
if (is_dp_running(*a)) {
lua_pushnil(L);
} else {
lua_pushinteger(L, img_depth(*a));
}
} else if (lua_key_eq(s,transform)) {
lua_pushinteger(L, img_transform(*a));
} else if (lua_key_eq(s,filename)) {
if (img_filename(d) == NULL || strlen(img_filename(d)) == 0) {
lua_pushnil(L);
} else {
lua_pushstring(L, img_filename(d));
}
} else if (lua_key_eq(s,visiblefilename)) {
if (img_visiblefilename(d) == NULL || strlen(img_visiblefilename(d)) == 0) {
lua_pushnil(L);
} else {
lua_pushstring(L, img_visiblefilename(d));
}
} else if (lua_key_eq(s,keepopen)) {
lua_pushboolean(L, img_keepopen(d));
} else if (lua_key_eq(s,filepath)) {
if (img_filepath(d) == NULL || strlen(img_filepath(d)) == 0) {
lua_pushnil(L);
} else {
lua_pushstring(L, img_filepath(d));
}
} else if (lua_key_eq(s,attr)) {
if (img_attr(d) == NULL || strlen(img_attr(d)) == 0) {
lua_pushnil(L);
} else {
lua_pushstring(L, img_attr(d));
}
} else if (lua_key_eq(s,page)) {
if (img_pagename(d) != NULL && strlen(img_pagename(d)) != 0) {
lua_pushstring(L, img_pagename(d));
} else {
lua_pushinteger(L, img_pagenum(d));
}
} else if (lua_key_eq(s,pages)) {
lua_pushinteger(L, img_totalpages(d));
} else if (lua_key_eq(s,xsize)) {
if ((img_rotation(d) & 1) == 0) {
lua_pushinteger(L, img_xsize(d));
} else {
lua_pushinteger(L, img_ysize(d));
}
} else if (lua_key_eq(s,ysize)) {
if ((img_rotation(d) & 1) == 0) {
lua_pushinteger(L, img_ysize(d));
} else {
lua_pushinteger(L, img_xsize(d));
}
} else if (lua_key_eq(s,xres)) {
lua_pushinteger(L, img_xres(d));
} else if (lua_key_eq(s,yres)) {
lua_pushinteger(L, img_yres(d));
} else if (lua_key_eq(s,rotation)) {
lua_pushinteger(L, img_rotation(d));
} else if (lua_key_eq(s,colorspace)) {
if (img_colorspace(d) == 0) {
lua_pushnil(L);
} else {
lua_pushinteger(L, img_colorspace(d));
}
} else if (lua_key_eq(s,colordepth)) {
if (img_colordepth(d) == 0) {
lua_pushnil(L);
} else {
lua_pushinteger(L, img_colordepth(d));
}
} else if (lua_key_eq(s,imagetype)) {
j = img_type(d);
if (j >= 0 && j <= img_types_max) {
if (j == IMG_TYPE_NONE) {
lua_pushnil(L);
} else {
lua_pushstring(L, img_types[j]);
}
} else {
lua_pushnil(L);
}
} else if (lua_key_eq(s,pagebox)) {
j = img_pagebox(d);
if (j < 0 || j >= img_pageboxes_max) {
j = 0;
}
lua_push_img_pagebox(L, j);
} else if (lua_key_eq(s,bbox)) {
if (!img_is_bbox(d)) {
img_bbox(d)[0] = img_xorig(d);
img_bbox(d)[1] = img_yorig(d);
img_bbox(d)[2] = img_xorig(d) + img_xsize(d);
img_bbox(d)[3] = img_yorig(d) + img_ysize(d);
}
lua_newtable(L);
lua_pushinteger(L, 1);
lua_pushinteger(L, img_bbox(d)[0]);
lua_settable(L, -3);
lua_pushinteger(L, 2);
lua_pushinteger(L, img_bbox(d)[1]);
lua_settable(L, -3);
lua_pushinteger(L, 3);
lua_pushinteger(L, img_bbox(d)[2]);
lua_settable(L, -3);
lua_pushinteger(L, 4);
lua_pushinteger(L, img_bbox(d)[3]);
lua_settable(L, -3);
} else if (lua_key_eq(s,objnum)) {
if (img_objnum(d) == 0) {
lua_pushnil(L);
} else {
lua_pushinteger(L, img_objnum(d));
}
} else if (lua_key_eq(s,index)) {
if (img_index(d) == 0) {
lua_pushnil(L);
} else {
lua_pushinteger(L, img_index(d));
}
} else if (lua_key_eq(s,stream)) {
if (img_type(d) != IMG_TYPE_PDFSTREAM
|| img_pdfstream_ptr(d) == NULL
|| img_pdfstream_stream(d) == NULL
|| strlen(img_pdfstream_stream(d)) == 0) {
lua_pushnil(L);
} else {
lua_pushstring(L, img_pdfstream_stream(d));
}
} else if (lua_key_eq(s,ref_count)) {
lua_pushinteger(L, img_luaref(d));
} else {
lua_pushnil(L);
}
return 1;
}
void read_jpg_info(integer img)
{
int i, units = 0;
unsigned char jpg_id[] = "JFIF";
img_xres(img) = img_yres(img) = 0;
jpg_ptr(img)->file = xfopen(img_name(img), FOPEN_RBIN_MODE);
/* no LFS needed, as JPEG is limited to <4GiB */
xfseek(jpg_ptr(img)->file, 0, SEEK_END, cur_file_name);
jpg_ptr(img)->length = xftell(jpg_ptr(img)->file, cur_file_name);
xfseek(jpg_ptr(img)->file, 0, SEEK_SET, cur_file_name);
if (read2bytes(jpg_ptr(img)->file) != 0xFFD8)
pdftex_fail("reading JPEG image failed (no JPEG header found)");
/* currently only true JFIF files allow extracting img_xres and img_yres */
if (read2bytes(jpg_ptr(img)->file) == 0xFFE0) { /* check for JFIF */
(void) read2bytes(jpg_ptr(img)->file);
for (i = 0; i < 5; i++) {
if (xgetc(jpg_ptr(img)->file) != jpg_id[i])
break;
}
if (i == 5) { /* it's JFIF */
read2bytes(jpg_ptr(img)->file);
units = xgetc(jpg_ptr(img)->file);
img_xres(img) = read2bytes(jpg_ptr(img)->file);
img_yres(img) = read2bytes(jpg_ptr(img)->file);
switch (units) {
case 1:
break; /* pixels per inch */
case 2:
img_xres(img) *= 2.54;
img_yres(img) *= 2.54;
break; /* pixels per cm */
default:
img_xres(img) = img_yres(img) = 0;
break;
}
}
}
xfseek(jpg_ptr(img)->file, 0, SEEK_SET, cur_file_name);
while (1) {
if (feof(jpg_ptr(img)->file))
pdftex_fail("reading JPEG image failed (premature file end)");
if (fgetc(jpg_ptr(img)->file) != 0xFF)
pdftex_fail("reading JPEG image failed (no marker found)");
switch (xgetc(jpg_ptr(img)->file)) {
case M_SOF5:
case M_SOF6:
case M_SOF7:
case M_SOF9:
case M_SOF10:
case M_SOF11:
case M_SOF13:
case M_SOF14:
case M_SOF15:
pdftex_fail("unsupported type of compression");
case M_SOF2:
if (fixedpdfminorversion <= 2)
pdftex_fail("cannot use progressive DCT with PDF-1.2");
case M_SOF0:
case M_SOF1:
case M_SOF3:
(void) read2bytes(jpg_ptr(img)->file); /* read segment length */
jpg_ptr(img)->bits_per_component = xgetc(jpg_ptr(img)->file);
img_height(img) = read2bytes(jpg_ptr(img)->file);
img_width(img) = read2bytes(jpg_ptr(img)->file);
jpg_ptr(img)->color_space = xgetc(jpg_ptr(img)->file);
xfseek(jpg_ptr(img)->file, 0, SEEK_SET, cur_file_name);
switch (jpg_ptr(img)->color_space) {
case JPG_GRAY:
img_color(img) = IMAGE_COLOR_B;
break;
case JPG_RGB:
img_color(img) = IMAGE_COLOR_C;
break;
case JPG_CMYK:
img_color(img) = IMAGE_COLOR_C;
break;
default:
pdftex_fail("Unsupported color space %i",
(int) jpg_ptr(img)->color_space);
}
return;
case M_SOI: /* ignore markers without parameters */
case M_EOI:
case M_TEM:
case M_RST0:
case M_RST1:
case M_RST2:
case M_RST3:
case M_RST4:
case M_RST5:
case M_RST6:
case M_RST7:
break;
default: /* skip variable length markers */
xfseek(jpg_ptr(img)->file, read2bytes(jpg_ptr(img)->file) - 2,
SEEK_CUR, cur_file_name);
break;
}
}
}