1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/libs/imago/file_png.c	Sun Nov 01 00:36:56 2015 +0200
     1.3 @@ -0,0 +1,261 @@
     1.4 +/*
     1.5 +libimago - a multi-format image file input/output library.
     1.6 +Copyright (C) 2010 John Tsiombikas <nuclear@member.fsf.org>
     1.7 +
     1.8 +This program is free software: you can redistribute it and/or modify
     1.9 +it under the terms of the GNU Lesser General Public License as published
    1.10 +by the Free Software Foundation, either version 3 of the License, or
    1.11 +(at your option) any later version.
    1.12 +
    1.13 +This program is distributed in the hope that it will be useful,
    1.14 +but WITHOUT ANY WARRANTY; without even the implied warranty of
    1.15 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    1.16 +GNU Lesser General Public License for more details.
    1.17 +
    1.18 +You should have received a copy of the GNU Lesser General Public License
    1.19 +along with this program.  If not, see <http://www.gnu.org/licenses/>.
    1.20 +*/
    1.21 +
    1.22 +/* -- PNG module -- */
    1.23 +
    1.24 +#include <stdlib.h>
    1.25 +#include "png.h"
    1.26 +#include "imago2.h"
    1.27 +#include "ftype_module.h"
    1.28 +
    1.29 +static int check_file(struct img_io *io);
    1.30 +static int read_file(struct img_pixmap *img, struct img_io *io);
    1.31 +static int write_file(struct img_pixmap *img, struct img_io *io);
    1.32 +
    1.33 +static void read_func(png_struct *png, unsigned char *data, size_t len);
    1.34 +static void write_func(png_struct *png, unsigned char *data, size_t len);
    1.35 +static void flush_func(png_struct *png);
    1.36 +
    1.37 +static int png_type_to_fmt(int color_type, int channel_bits);
    1.38 +static int fmt_to_png_type(enum img_fmt fmt);
    1.39 +
    1.40 +
    1.41 +int img_register_png(void)
    1.42 +{
    1.43 +	static struct ftype_module mod = {".png", check_file, read_file, write_file};
    1.44 +	return img_register_module(&mod);
    1.45 +}
    1.46 +
    1.47 +static int check_file(struct img_io *io)
    1.48 +{
    1.49 +	unsigned char sig[8];
    1.50 +	int res;
    1.51 +	long pos = io->seek(0, SEEK_CUR, io->uptr);
    1.52 +
    1.53 +	if(io->read(sig, 8, io->uptr) < 8) {
    1.54 +		io->seek(pos, SEEK_SET, io->uptr);
    1.55 +		return -1;
    1.56 +	}
    1.57 +
    1.58 +	res = png_sig_cmp(sig, 0, 8) == 0 ? 0 : -1;
    1.59 +	io->seek(pos, SEEK_SET, io->uptr);
    1.60 +	return res;
    1.61 +}
    1.62 +
    1.63 +static int read_file(struct img_pixmap *img, struct img_io *io)
    1.64 +{
    1.65 +	png_struct *png;
    1.66 +	png_info *info;
    1.67 +	int channel_bits, color_type, ilace_type, compression, filtering, fmt;
    1.68 +	png_uint_32 xsz, ysz;
    1.69 +
    1.70 +	if(!(png = png_create_read_struct(PNG_LIBPNG_VER_STRING, 0, 0, 0))) {
    1.71 +		return -1;
    1.72 +	}
    1.73 +
    1.74 +	if(!(info = png_create_info_struct(png))) {
    1.75 +		png_destroy_read_struct(&png, 0, 0);
    1.76 +		return -1;
    1.77 +	}
    1.78 +
    1.79 +	if(setjmp(png_jmpbuf(png))) {
    1.80 +		png_destroy_read_struct(&png, &info, 0);
    1.81 +		return -1;
    1.82 +	}
    1.83 +
    1.84 +	png_set_read_fn(png, io, read_func);
    1.85 +	png_set_sig_bytes(png, 0);
    1.86 +	png_read_png(png, info, 0, 0);
    1.87 +
    1.88 +	png_get_IHDR(png, info, &xsz, &ysz, &channel_bits, &color_type, &ilace_type,
    1.89 +			&compression, &filtering);
    1.90 +	if((fmt = png_type_to_fmt(color_type, channel_bits)) == -1) {
    1.91 +		png_destroy_read_struct(&png, &info, 0);
    1.92 +		return -1;
    1.93 +	}
    1.94 +
    1.95 +	if(img_set_pixels(img, xsz, ysz, fmt, 0) == -1) {
    1.96 +		png_destroy_read_struct(&png, &info, 0);
    1.97 +		return -1;
    1.98 +	}
    1.99 +
   1.100 +
   1.101 +	if(channel_bits == 8) {
   1.102 +		unsigned int i;
   1.103 +		unsigned char **lineptr = (unsigned char**)png_get_rows(png, info);
   1.104 +		unsigned char *dest = img->pixels;
   1.105 +
   1.106 +		for(i=0; i<ysz; i++) {
   1.107 +			memcpy(dest, lineptr[i], xsz * img->pixelsz);
   1.108 +			dest += xsz * img->pixelsz;
   1.109 +		}
   1.110 +	} else {
   1.111 +		unsigned int i, j, num_elem;
   1.112 +		unsigned char **lineptr = (unsigned char**)png_get_rows(png, info);
   1.113 +		float *dest = img->pixels;
   1.114 +
   1.115 +		num_elem = img->pixelsz / sizeof(float);
   1.116 +		for(i=0; i<ysz; i++) {
   1.117 +			for(j=0; j<xsz * num_elem; j++) {
   1.118 +				unsigned short val = (lineptr[i][j * 2] << 8) | lineptr[i][j * 2 + 1];
   1.119 +				*dest++ = (float)val / 65535.0;
   1.120 +			}
   1.121 +		}
   1.122 +	}
   1.123 +
   1.124 +
   1.125 +	png_destroy_read_struct(&png, &info, 0);
   1.126 +	return 0;
   1.127 +}
   1.128 +
   1.129 +
   1.130 +static int write_file(struct img_pixmap *img, struct img_io *io)
   1.131 +{
   1.132 +	png_struct *png;
   1.133 +	png_info *info;
   1.134 +	png_text txt;
   1.135 +	struct img_pixmap tmpimg;
   1.136 +	unsigned char **rows;
   1.137 +	unsigned char *pixptr;
   1.138 +	int i, coltype;
   1.139 +
   1.140 +	img_init(&tmpimg);
   1.141 +
   1.142 +	if(!(png = png_create_write_struct(PNG_LIBPNG_VER_STRING, 0, 0, 0))) {
   1.143 +		return -1;
   1.144 +	}
   1.145 +	if(!(info = png_create_info_struct(png))) {
   1.146 +		png_destroy_write_struct(&png, 0);
   1.147 +		return -1;
   1.148 +	}
   1.149 +
   1.150 +	/* if the input image is floating-point, we need to convert it to integer */
   1.151 +	if(img_is_float(img)) {
   1.152 +		if(img_copy(&tmpimg, img) == -1) {
   1.153 +			return -1;
   1.154 +		}
   1.155 +		if(img_to_integer(&tmpimg) == -1) {
   1.156 +			img_destroy(&tmpimg);
   1.157 +			return -1;
   1.158 +		}
   1.159 +		img = &tmpimg;
   1.160 +	}
   1.161 +
   1.162 +	txt.compression = PNG_TEXT_COMPRESSION_NONE;
   1.163 +	txt.key = "Software";
   1.164 +	txt.text = "libimago2";
   1.165 +	txt.text_length = 0;
   1.166 +
   1.167 +	if(setjmp(png_jmpbuf(png))) {
   1.168 +		png_destroy_write_struct(&png, &info);
   1.169 +		img_destroy(&tmpimg);
   1.170 +		return -1;
   1.171 +	}
   1.172 +	png_set_write_fn(png, io, write_func, flush_func);
   1.173 +
   1.174 +	coltype = fmt_to_png_type(img->fmt);
   1.175 +	png_set_IHDR(png, info, img->width, img->height, 8, coltype, PNG_INTERLACE_NONE,
   1.176 +			PNG_COMPRESSION_TYPE_DEFAULT, PNG_FILTER_TYPE_DEFAULT);
   1.177 +	png_set_text(png, info, &txt, 1);
   1.178 +
   1.179 +	if(!(rows = malloc(img->height * sizeof *rows))) {
   1.180 +		png_destroy_write_struct(&png, &info);
   1.181 +		img_destroy(&tmpimg);
   1.182 +		return -1;
   1.183 +	}
   1.184 +
   1.185 +	pixptr = img->pixels;
   1.186 +	for(i=0; i<img->height; i++) {
   1.187 +		rows[i] = pixptr;
   1.188 +		pixptr += img->width * img->pixelsz;
   1.189 +	}
   1.190 +	png_set_rows(png, info, rows);
   1.191 +
   1.192 +	png_write_png(png, info, 0, 0);
   1.193 +	png_write_end(png, info);
   1.194 +	png_destroy_write_struct(&png, &info);
   1.195 +
   1.196 +	free(rows);
   1.197 +
   1.198 +	img_destroy(&tmpimg);
   1.199 +	return 0;
   1.200 +}
   1.201 +
   1.202 +static void read_func(png_struct *png, unsigned char *data, size_t len)
   1.203 +{
   1.204 +	struct img_io *io = (struct img_io*)png_get_io_ptr(png);
   1.205 +
   1.206 +	if(io->read(data, len, io->uptr) == -1) {
   1.207 +		longjmp(png_jmpbuf(png), 1);
   1.208 +	}
   1.209 +}
   1.210 +
   1.211 +static void write_func(png_struct *png, unsigned char *data, size_t len)
   1.212 +{
   1.213 +	struct img_io *io = (struct img_io*)png_get_io_ptr(png);
   1.214 +
   1.215 +	if(io->write(data, len, io->uptr) == -1) {
   1.216 +		longjmp(png_jmpbuf(png), 1);
   1.217 +	}
   1.218 +}
   1.219 +
   1.220 +static void flush_func(png_struct *png)
   1.221 +{
   1.222 +	/* XXX does it matter that we can't flush? */
   1.223 +}
   1.224 +
   1.225 +static int png_type_to_fmt(int color_type, int channel_bits)
   1.226 +{
   1.227 +	/* only 8 and 16 bits per channel ar supported at the moment */
   1.228 +	if(channel_bits != 8 && channel_bits != 16) {
   1.229 +		return -1;
   1.230 +	}
   1.231 +
   1.232 +	switch(color_type) {
   1.233 +	case PNG_COLOR_TYPE_RGB:
   1.234 +		return channel_bits == 16 ? IMG_FMT_RGBF : IMG_FMT_RGB24;
   1.235 +
   1.236 +	case PNG_COLOR_TYPE_RGB_ALPHA:
   1.237 +		return channel_bits == 16 ? IMG_FMT_RGBAF : IMG_FMT_RGBA32;
   1.238 +
   1.239 +	case PNG_COLOR_TYPE_GRAY:
   1.240 +		return channel_bits == 16 ? IMG_FMT_GREYF : IMG_FMT_GREY8;
   1.241 +
   1.242 +	default:
   1.243 +		break;
   1.244 +	}
   1.245 +	return -1;
   1.246 +}
   1.247 +
   1.248 +static int fmt_to_png_type(enum img_fmt fmt)
   1.249 +{
   1.250 +	switch(fmt) {
   1.251 +	case IMG_FMT_GREY8:
   1.252 +		return PNG_COLOR_TYPE_GRAY;
   1.253 +
   1.254 +	case IMG_FMT_RGB24:
   1.255 +		return PNG_COLOR_TYPE_RGB;
   1.256 +
   1.257 +	case IMG_FMT_RGBA32:
   1.258 +		return PNG_COLOR_TYPE_RGBA;
   1.259 +
   1.260 +	default:
   1.261 +		break;
   1.262 +	}
   1.263 +	return -1;
   1.264 +}