1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
#include<lua.h>
#include<stdio.h>
#include<stdlib.h>
#include<png.h>
#include<string.h>
#if !defined(_MSC_VER)
#include<unistd.h>
#endif
static void *l_alloc (void *ud, void *ptr, size_t osize,
size_t nsize) {
(void)ud;
(void)osize;
if (nsize == 0) {
free(ptr);
return NULL;
} else {
return realloc(ptr, nsize);
}
}
void open_image(const char *fname) {
png_image image;
memset(&image, 0, (sizeof image));
image.version = PNG_IMAGE_VERSION;
if(png_image_begin_read_from_file(&image, fname) != 0) {
png_bytep buffer;
image.format = PNG_FORMAT_RGBA;
buffer = malloc(PNG_IMAGE_SIZE(image));
if(png_image_finish_read(&image, NULL, buffer, 0, NULL) != 0) {
printf("Image %s read failed: %s\n", fname, image.message);
}
// png_free_image(&image);
free(buffer);
} else {
printf("Image %s open failed: %s", fname, image.message);
}
}
int printer(lua_State *l) {
if(!lua_isstring(l, 1)) {
fprintf(stderr, "Incorrect call.\n");
return 0;
}
open_image(lua_tostring(l, 1));
return 0;
}
int main(int argc, char **argv) {
lua_State *l = lua_newstate(l_alloc, NULL);
if(!l) {
printf("Lua state allocation failed.\n");
return 1;
}
lua_register(l, "printer", printer);
lua_getglobal(l, "printer");
lua_pushliteral(l, "foobar.png");
lua_call(l, 1, 0);
lua_close(l);
return 0;
}
|
