[ViewVC] Diff of: cvs/CV/CV.xs

Comparing CV/CV.xs (file contents):
Revision 1.46 by root, Sat Jul 4 05:31:17 2015 UTC vs.
Revision 1.51 by root, Sat Dec 23 04:11:49 2017 UTC

…		…
9	#include <magic.h>	9	#include <magic.h>
10		10
11	#include <jpeglib.h>	11	#include <jpeglib.h>
12	#include <glib.h>	12	#include <glib.h>
13	#include <gtk/gtk.h>	13	#include <gtk/gtk.h>
		14	#include <gdk/gdkx.h>
14	#include <gdk-pixbuf/gdk-pixbuf.h>	15	#include <gdk-pixbuf/gdk-pixbuf.h>
15		16
16	#include <gperl.h>	17	#include <gperl.h>
17	#include <gtk2perl.h>	18	#include <gtk2perl.h>
18		19
19	#include <assert.h>	20	#include <assert.h>
20		21
		22	#if WEBP
		23	#include <webp/decode.h>
		24	#endif
		25
21	#include "perlmulticore.h"	26	#include "perlmulticore.h"
22		27
23	#define IW 80 /* MUST match Schnauzer.pm! */	28	#define IW 80 /* MUST match Schnauzer.pm! */
24	#define IH 60 /* MUST match Schnauzer.pm! */	29	#define IH 60 /* MUST match Schnauzer.pm! */
25		30
…		…
28	#define LINELENGTH 240	33	#define LINELENGTH 240
29		34
30	#define ELLIPSIS "\xe2\x80\xa6"	35	#define ELLIPSIS "\xe2\x80\xa6"
31		36
32	typedef char *octet_string;	37	typedef char *octet_string;
		38
		39	static magic_t magic_cookie[2]; /* !mime, mime */
33		40
34	struct jpg_err_mgr	41	struct jpg_err_mgr
35	{	42	{
36	struct jpeg_error_mgr err;	43	struct jpeg_error_mgr err;
37	jmp_buf setjmp_buffer;	44	jmp_buf setjmp_buffer;
38	};	45	};
39		46
40	static void	47	static void
41	cv_error_exit (j_common_ptr cinfo)	48	cv_error_exit (j_common_ptr cinfo)
42	{	49	{
		50	cinfo->err->output_message (cinfo);
43	longjmp (((struct jpg_err_mgr *)cinfo->err)->setjmp_buffer, 99);	51	longjmp (((struct jpg_err_mgr *)cinfo->err)->setjmp_buffer, 99);
44	}	52	}
45		53
46	static void	54	static void
47	cv_error_output (j_common_ptr cinfo)	55	cv_error_output (j_common_ptr cinfo)
48	{	56	{
		57	char msg[JMSG_LENGTH_MAX];
		58
		59	cinfo->err->format_message (cinfo, msg);
		60
		61	fprintf (stderr, "JPEG decoding error: %s\n", msg);
49	return;	62	return;
50	}	63	}
51		64
52	static void	65	static void
53	rgb_to_hsv (unsigned int r, unsigned int g, unsigned int b,	66	rgb_to_hsv (unsigned int r, unsigned int g, unsigned int b,
…		…
150	if (!--a85_cnt)	163	if (!--a85_cnt)
151	{	164	{
152	a85_cnt = 4;	165	a85_cnt = 4;
153	if (a85_val)	166	if (a85_val)
154	{	167	{
155	a85_ptr[4] = (a85_val % 85) + 33; a85_val /= 85;	168	a85_ptr[4] = (a85_val % 85) + 33; a85_val /= 85;
156	a85_ptr[3] = (a85_val % 85) + 33; a85_val /= 85;	169	a85_ptr[3] = (a85_val % 85) + 33; a85_val /= 85;
157	a85_ptr[2] = (a85_val % 85) + 33; a85_val /= 85;	170	a85_ptr[2] = (a85_val % 85) + 33; a85_val /= 85;
158	a85_ptr[1] = (a85_val % 85) + 33; a85_val /= 85;	171	a85_ptr[1] = (a85_val % 85) + 33; a85_val /= 85;
159	a85_ptr[0] = (a85_val ) + 33;	172	a85_ptr[0] = (a85_val ) + 33;
160		173
161	a85_ptr += 5;	174	a85_ptr += 5;
162	}	175	}
…		…
208		221
209	OUTPUT:	222	OUTPUT:
210	RETVAL	223	RETVAL
211		224
212	const char *	225	const char *
213	magic (octet_string path)	226	magic (SV *path_or_data)
		227	ALIAS:
		228	magic = 0
		229	magic_mime = 1
		230	magic_buffer = 2
		231	magic_buffer_mime = 3
214	CODE:	232	CODE:
215	{	233	{
216	static magic_t cookie;	234	STRLEN len;
217		235	char *data = SvPVbyte (path_or_data, len);
218	if (!cookie)
219	{
220	cookie = magic_open (MAGIC_SYMLINK);
221
222	if (cookie)
223	magic_load (cookie, 0);
224	else
225	XSRETURN_UNDEF;
226	}
227
228	RETVAL = magic_file (cookie, path);
229	}
230	OUTPUT:
231	RETVAL
232
233	const char *
234	magic_mime (octet_string path)
235	CODE:
236	{
237	static magic_t cookie;
238
239	if (!cookie)
240	{
241	cookie = magic_open (MAGIC_MIME \| MAGIC_SYMLINK);
242
243	if (cookie)
244	magic_load (cookie, 0);
245	else
246	XSRETURN_UNDEF;
247	}
248		236
249	perlinterp_release ();	237	perlinterp_release ();
250	RETVAL = magic_file (cookie, path);	238
		239	if (!magic_cookie[0])
		240	{
		241	magic_cookie[0] = magic_open (MAGIC_SYMLINK);
		242	magic_cookie[1] = magic_open (MAGIC_SYMLINK \| MAGIC_MIME);
		243	}
		244
		245	RETVAL = ix & 2
		246	? magic_buffer (magic_cookie[ix], data, len)
		247	: magic_file (magic_cookie[ix], data);
		248
251	perlinterp_acquire ();	249	perlinterp_acquire ();
252	}	250	}
253	OUTPUT:	251	OUTPUT:
254	RETVAL	252	RETVAL
255		253
…		…
311	perlinterp_acquire ();	309	perlinterp_acquire ();
312	OUTPUT:	310	OUTPUT:
313	RETVAL	311	RETVAL
314		312
315	GdkPixbuf_noinc *	313	GdkPixbuf_noinc *
316	load_jpeg (SV *path, int thumbnail=0)	314	decode_webp (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
		315	CODE:
		316	{
		317	#if WEBP
		318	guchar *data;
		319	STRLEN data_size;
		320	int alpha;
		321	WebPDecoderConfig config;
		322	int inw, inh;
		323
		324	data = SvPVbyte (image_data, data_size);
		325
		326	perlinterp_release ();
		327
		328	RETVAL = 0;
		329
		330	if (!WebPInitDecoderConfig (&config))
		331	goto err;
		332
		333	config.options.use_threads = 1;
		334
		335	if (WebPGetFeatures (data, data_size, &config.input) != VP8_STATUS_OK)
		336	goto err;
		337
		338	inw = config.input.width;
		339	inh = config.input.height;
		340
		341	if (thumbnail)
		342	{
		343	if (inw * ih > inh * iw)
		344	ih = (iw * inh + inw - 1) / inw;
		345	else
		346	iw = (ih * inw + inh - 1) / inh;
		347
		348	config.options.bypass_filtering = 1;
		349	config.options.no_fancy_upsampling = 1;
		350
		351	config.options.use_scaling = 1;
		352	config.options.scaled_width = iw;
		353	config.options.scaled_height = ih;
		354	}
		355	else
		356	{
		357	iw = inw;
		358	ih = inh;
		359	}
		360
		361	alpha = config.input.has_alpha;
		362
		363	RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, !!alpha, 8, iw, ih);
		364	if (!RETVAL)
		365	goto err;
		366
		367	config.output.colorspace = alpha ? MODE_RGBA : MODE_RGB;
		368	config.output.u.RGBA.rgba = gdk_pixbuf_get_pixels (RETVAL);
		369	config.output.u.RGBA.stride = gdk_pixbuf_get_rowstride (RETVAL);
		370	config.output.u.RGBA.size = gdk_pixbuf_get_byte_length (RETVAL);
		371	config.output.is_external_memory = 1;
		372
		373	if (WebPDecode (data, data_size, &config) != VP8_STATUS_OK)
		374	{
		375	g_object_unref (RETVAL);
		376	RETVAL = 0;
		377	goto err;
		378	}
		379
		380	err:
		381	perlinterp_acquire ();
		382	#else
		383	croak ("load_webp: webp not enabled at compile time");
		384	#endif
		385	}
		386	OUTPUT:
		387	RETVAL
		388
		389	GdkPixbuf_noinc *
		390	load_jpeg (SV *path, int thumbnail = 0, int iw = 0, int ih = 0)
317	CODE:	391	CODE:
318	{	392	{
319	struct jpeg_decompress_struct cinfo;	393	struct jpeg_decompress_struct cinfo;
320	struct jpg_err_mgr jerr;	394	struct jpg_err_mgr jerr;
321	guchar *data;	395	guchar *data;
…		…
369	{	443	{
370	cinfo.dct_method = JDCT_FASTEST;	444	cinfo.dct_method = JDCT_FASTEST;
371	cinfo.do_fancy_upsampling = FALSE;	445	cinfo.do_fancy_upsampling = FALSE;
372		446
373	while (cinfo.scale_denom < 8	447	while (cinfo.scale_denom < 8
374	&& cinfo.output_width >= IW*4	448	&& cinfo.output_width >= iw*4
375	&& cinfo.output_height >= IH*4)	449	&& cinfo.output_height >= ih*4)
376	{	450	{
377	cinfo.scale_denom <<= 1;	451	cinfo.scale_denom <<= 1;
378	jpeg_calc_output_dimensions (&cinfo);	452	jpeg_calc_output_dimensions (&cinfo);
379	}	453	}
380	}	454	}
381		455
		456	if (cinfo.output_components != 3)
		457	longjmp (jerr.setjmp_buffer, 3);
		458
		459	if (cinfo.jpeg_color_space == JCS_YCCK \|\| cinfo.jpeg_color_space == JCS_CMYK)
		460	{
		461	cinfo.out_color_space = JCS_CMYK;
		462	cinfo.output_components = 4;
		463	}
		464
382	pb = RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, 0, 8, cinfo.output_width, cinfo.output_height);	465	pb = RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, cinfo.output_components == 4, 8, cinfo.output_width, cinfo.output_height);
383	if (!RETVAL)	466	if (!RETVAL)
384	longjmp (jerr.setjmp_buffer, 2);	467	longjmp (jerr.setjmp_buffer, 2);
385		468
386	data = gdk_pixbuf_get_pixels (RETVAL);	469	data = gdk_pixbuf_get_pixels (RETVAL);
387	rs = gdk_pixbuf_get_rowstride (RETVAL);	470	rs = gdk_pixbuf_get_rowstride (RETVAL);
388
389	if (cinfo.output_components != 3)
390	longjmp (jerr.setjmp_buffer, 3);
391		471
392	jpeg_start_decompress (&cinfo);	472	jpeg_start_decompress (&cinfo);
393		473
394	while (cinfo.output_scanline < cinfo.output_height)	474	while (cinfo.output_scanline < cinfo.output_height)
395	{	475	{
…		…
400	rp [1] = (guchar *)rp [0] + rs;	480	rp [1] = (guchar *)rp [0] + rs;
401	rp [2] = (guchar *)rp [1] + rs;	481	rp [2] = (guchar *)rp [1] + rs;
402	rp [3] = (guchar *)rp [2] + rs;	482	rp [3] = (guchar *)rp [2] + rs;
403		483
404	jpeg_read_scanlines (&cinfo, rp, remaining < 4 ? remaining : 4);	484	jpeg_read_scanlines (&cinfo, rp, remaining < 4 ? remaining : 4);
		485	}
		486
		487	if (cinfo.out_color_space == JCS_CMYK)
		488	{
		489	guchar end = data + cinfo.output_height rs;
		490
		491	while (data < end)
		492	{
		493	U32 c = data [0];
		494	U32 m = data [1];
		495	U32 y = data [2];
		496	U32 k = data [3];
		497
		498	if (0)
		499	if (cinfo.Adobe_transform == 2)
		500	{
		501	c ^= 0xff;
		502	m ^= 0xff;
		503	y ^= 0xff;
		504	k ^= 0xff;
		505	}
		506
		507	data [0] = (c * k + 0x80) / 0xff;
		508	data [1] = (m * k + 0x80) / 0xff;
		509	data [2] = (y * k + 0x80) / 0xff;
		510	data [3] = 0xff;
		511
		512	data += 4;
		513	}
405	}	514	}
406		515
407	jpeg_finish_decompress (&cinfo);	516	jpeg_finish_decompress (&cinfo);
408	fclose (fp);	517	fclose (fp);
409	jpeg_destroy_decompress (&cinfo);	518	jpeg_destroy_decompress (&cinfo);

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing CV/CV.xs (file contents): Revision 1.46 by root, Sat Jul 4 05:31:17 2015 UTC vs. Revision 1.51 by root, Sat Dec 23 04:11:49 2017 UTC

Diff Legend

Comparing CV/CV.xs (file contents):
Revision 1.46 by root, Sat Jul 4 05:31:17 2015 UTC vs.
Revision 1.51 by root, Sat Dec 23 04:11:49 2017 UTC