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

Comparing CV/CV.xs (file contents):
Revision 1.41 by root, Sat Mar 1 04:11:26 2008 UTC vs.
Revision 1.62 by root, Sun Jul 25 11:32:46 2021 UTC

…		…
7	#include <math.h>	7	#include <math.h>
8		8
9	#include <magic.h>	9	#include <magic.h>
10		10
11	#include <jpeglib.h>	11	#include <jpeglib.h>
		12	#include <jerror.h>
		13
12	#include <glib.h>	14	#include <glib.h>
13	#include <gtk/gtk.h>	15	#include <gtk/gtk.h>
		16	#include <gdk/gdkx.h>
14	#include <gdk-pixbuf/gdk-pixbuf.h>	17	#include <gdk-pixbuf/gdk-pixbuf.h>
15		18
16	#include <gperl.h>	19	#include <gperl.h>
17	#include <gtk2perl.h>	20	#include <gtk2perl.h>
18		21
		22	#include <assert.h>
		23
		24	#if WEBP
		25	#include <webp/demux.h>
		26	#include <webp/decode.h>
		27	#endif
		28
		29	#if JXL
		30	#include <jxl/decode.h>
		31	#include "jxl/thread_parallel_runner.h"
		32	#endif
		33
		34	#include "perlmulticore.h"
		35
19	#define IW 80 /* MUST match Schnauzer.pm! */	36	#define IW 80 /* MUST match Schnauzer.pm! */
20	#define IH 60 /* MUST match Schnauzer.pm! */	37	#define IH 60 /* MUST match Schnauzer.pm! */
21		38
22	#define RAND (seed = (seed + 7141) * 54773 % 134456)
23
24	#define LINELENGTH 240	39	#define LINELENGTH 240
25		40
26	#define ELLIPSIS "\xe2\x80\xa6"	41	#define ELLIPSIS "\xe2\x80\xa6"
		42
		43	typedef char *octet_string;
		44
		45	static magic_t magic_cookie[2]; /* !mime, mime */
27		46
28	struct jpg_err_mgr	47	struct jpg_err_mgr
29	{	48	{
30	struct jpeg_error_mgr err;	49	struct jpeg_error_mgr err;
31	jmp_buf setjmp_buffer;	50	jmp_buf setjmp_buffer;
32	};	51	};
33		52
34	static void	53	static void
35	cv_error_exit (j_common_ptr cinfo)	54	cv_error_exit (j_common_ptr cinfo)
36	{	55	{
		56	cinfo->err->output_message (cinfo);
37	longjmp (((struct jpg_err_mgr *)cinfo->err)->setjmp_buffer, 99);	57	longjmp (((struct jpg_err_mgr *)cinfo->err)->setjmp_buffer, 99);
38	}	58	}
39		59
40	static void	60	static void
41	cv_error_output (j_common_ptr cinfo)	61	cv_error_output (j_common_ptr cinfo)
42	{	62	{
		63	char msg[JMSG_LENGTH_MAX];
		64
		65	cinfo->err->format_message (cinfo, msg);
		66
		67	fprintf (stderr, "JPEG decoding error: %s\n", msg);
43	return;	68	return;
44	}	69	}
45		70
46	static void	71	static void
47	rgb_to_hsv (unsigned int r, unsigned int g, unsigned int b,	72	rgb_to_hsv (unsigned int r, unsigned int g, unsigned int b,
…		…
144	if (!--a85_cnt)	169	if (!--a85_cnt)
145	{	170	{
146	a85_cnt = 4;	171	a85_cnt = 4;
147	if (a85_val)	172	if (a85_val)
148	{	173	{
149	a85_ptr[4] = (a85_val % 85) + 33; a85_val /= 85;	174	a85_ptr[4] = (a85_val % 85) + 33; a85_val /= 85;
150	a85_ptr[3] = (a85_val % 85) + 33; a85_val /= 85;	175	a85_ptr[3] = (a85_val % 85) + 33; a85_val /= 85;
151	a85_ptr[2] = (a85_val % 85) + 33; a85_val /= 85;	176	a85_ptr[2] = (a85_val % 85) + 33; a85_val /= 85;
152	a85_ptr[1] = (a85_val % 85) + 33; a85_val /= 85;	177	a85_ptr[1] = (a85_val % 85) + 33; a85_val /= 85;
153	a85_ptr[0] = (a85_val ) + 33;	178	a85_ptr[0] = (a85_val ) + 33;
154		179
155	a85_ptr += 5;	180	a85_ptr += 5;
156	}	181	}
…		…
179		204
180	PerlIO_write (fp, a85_buf, a85_ptr - a85_buf);	205	PerlIO_write (fp, a85_buf, a85_ptr - a85_buf);
181	}	206	}
182		207
183	/////////////////////////////////////////////////////////////////////////////	208	/////////////////////////////////////////////////////////////////////////////
		209	// memory source for libjpeg
		210
		211	static void cv_ms_init (j_decompress_ptr cinfo)
		212	{
		213	}
		214
		215	static void cv_ms_term (j_decompress_ptr cinfo)
		216	{
		217	}
		218
		219	static boolean cv_ms_fill (j_decompress_ptr cinfo)
		220	{
		221	// unexpected EOF, warn and generate fake EOI marker
		222
		223	WARNMS (cinfo, JWRN_JPEG_EOF);
		224
		225	struct jpeg_source_mgr src = (struct jpeg_source_mgr )cinfo->src;
		226
		227	static const JOCTET eoi[] = { 0xFF, JPEG_EOI };
		228
		229	src->next_input_byte = eoi;
		230	src->bytes_in_buffer = sizeof (eoi);
		231
		232	return TRUE;
		233	}
		234
		235	static void cv_ms_skip (j_decompress_ptr cinfo, long num_bytes)
		236	{
		237	struct jpeg_source_mgr src = (struct jpeg_source_mgr )cinfo->src;
		238
		239	src->next_input_byte += num_bytes;
		240	src->bytes_in_buffer -= num_bytes;
		241	}
		242
		243	static void cv_jpeg_mem_src (j_decompress_ptr cinfo, void *buf, size_t buflen)
		244	{
		245	struct jpeg_source_mgr *src;
		246
		247	if (!cinfo->src)
		248	cinfo->src = (struct jpeg_source_mgr *)
		249	(*cinfo->mem->alloc_small) (
		250	(j_common_ptr) cinfo, JPOOL_PERMANENT, sizeof (struct jpeg_source_mgr)
		251	);
		252
		253	src = (struct jpeg_source_mgr *)cinfo->src;
		254	src->init_source = cv_ms_init;
		255	src->fill_input_buffer = cv_ms_fill;
		256	src->skip_input_data = cv_ms_skip;
		257	src->resync_to_restart = jpeg_resync_to_restart;
		258	src->term_source = cv_ms_term;
		259	src->next_input_byte = (JOCTET *)buf;
		260	src->bytes_in_buffer = buflen;
		261	}
		262
		263	/////////////////////////////////////////////////////////////////////////////
		264
		265	/* great, the jpeg-xl reference implementaton requires us to parse bmff files */
		266
		267	struct bmff_box
		268	{
		269	char type[4];
		270	const uint8_t *ptr;
		271	size_t size;
		272	};
		273
		274	static int
		275	bmff_parse_box (struct bmff_box box, const uint8_t next_in, size_t avail_in)
		276	{
		277	if (*avail_in < 8)
		278	return 0;
		279
		280	box->size = ((*next_in)[0] << 24)
		281	\| ((*next_in)[1] << 16)
		282	\| ((*next_in)[2] << 8)
		283	\| ((*next_in)[3] );
		284
		285	if (box->size < 8)
		286	return 0;
		287
		288	if (*avail_in < box->size)
		289	return 0;
		290
		291	memcpy (box->type, *next_in + 4, 4);
		292	box->ptr = *next_in + 8;
		293
		294	*next_in += box->size;
		295	*avail_in -= box->size;
		296
		297	box->size -= 8;
		298
		299	return 1;
		300	}
		301
		302	/////////////////////////////////////////////////////////////////////////////
184		303
185	MODULE = Gtk2::CV PACKAGE = Gtk2::CV	304	MODULE = Gtk2::CV PACKAGE = Gtk2::CV
186		305
187	PROTOTYPES: ENABLE	306	PROTOTYPES: ENABLE
188		307
		308	# calculate the common prefix length of two strings
189	# missing function in perl. really :)	309	# missing function in perl. really :)
190	int	310	int
191	common_prefix_length (a, b)	311	common_prefix_length (a, b)
192	unsigned char a = (unsigned char )SvPVutf8_nolen ($arg);	312	unsigned char a = (unsigned char )SvPVutf8_nolen ($arg);
193	unsigned char b = (unsigned char )SvPVutf8_nolen ($arg);	313	unsigned char b = (unsigned char )SvPVutf8_nolen ($arg);
…		…
202		322
203	OUTPUT:	323	OUTPUT:
204	RETVAL	324	RETVAL
205		325
206	const char *	326	const char *
207	magic (const char *path)	327	magic (SV *path_or_data)
		328	ALIAS:
		329	magic = 0
		330	magic_mime = 1
		331	magic_buffer = 2
		332	magic_buffer_mime = 3
208	CODE:	333	CODE:
209	{	334	{
210	static magic_t cookie;	335	STRLEN len;
		336	char *data = SvPVbyte (path_or_data, len);
211		337
212	if (!cookie)	338	if (!magic_cookie[0])
		339	{
		340	magic_cookie[0] = magic_open (MAGIC_SYMLINK);
		341	magic_cookie[1] = magic_open (MAGIC_SYMLINK \| MAGIC_MIME_TYPE);
		342	magic_load (magic_cookie[0], 0);
		343	magic_load (magic_cookie[1], 0);
213	{	344	}
214	cookie = magic_open (MAGIC_NONE);
215		345
216	if (cookie)	346	perlinterp_release ();
217	magic_load (cookie, 0);
218	else
219	XSRETURN_UNDEF;
220	}
221		347
222	RETVAL = magic_file (cookie, path);
223	}
224	OUTPUT:
225	RETVAL	348	RETVAL = ix & 2
		349	? magic_buffer (magic_cookie[ix & 1], data, len)
		350	: magic_file (magic_cookie[ix & 1], data);
226		351
227	const char *	352	perlinterp_acquire ();
228	magic_mime (const char *path)
229	CODE:
230	{
231	static magic_t cookie;
232
233	if (!cookie)
234	{
235	cookie = magic_open (MAGIC_MIME);
236
237	if (cookie)
238	magic_load (cookie, 0);
239	else
240	XSRETURN_UNDEF;
241	}
242
243	RETVAL = magic_file (cookie, path);
244	}	353	}
245	OUTPUT:	354	OUTPUT:
246	RETVAL	355	RETVAL
247		356
248	# missing/broken in Gtk2 perl module	357	# missing/broken in Gtk2 perl module
…		…
264	RETVAL	373	RETVAL
265		374
266	GdkPixbuf_noinc *	375	GdkPixbuf_noinc *
267	dealpha_expose (GdkPixbuf *pb)	376	dealpha_expose (GdkPixbuf *pb)
268	CODE:	377	CODE:
		378	perlinterp_release ();
269	{	379	{
270	int w = gdk_pixbuf_get_width (pb);	380	int w = gdk_pixbuf_get_width (pb);
271	int h = gdk_pixbuf_get_height (pb);	381	int h = gdk_pixbuf_get_height (pb);
272	int bpp = gdk_pixbuf_get_n_channels (pb);	382	int bpp = gdk_pixbuf_get_n_channels (pb);
273	int x, y, i;	383	int x, y, i;
…		…
282	for (x = 0; x < w; x++)	392	for (x = 0; x < w; x++)
283	for (y = 0; y < h; y++)	393	for (y = 0; y < h; y++)
284	for (i = 0; i < 3; i++)	394	for (i = 0; i < 3; i++)
285	dst[x * 3 + y * dstr + i] = src[x * bpp + y * sstr + i];	395	dst[x * 3 + y * dstr + i] = src[x * bpp + y * sstr + i];
286	}	396	}
		397	perlinterp_acquire ();
287	OUTPUT:	398	OUTPUT:
288	RETVAL	399	RETVAL
289		400
290	GdkPixbuf_noinc *	401	GdkPixbuf_noinc *
291	rotate (GdkPixbuf *pb, int angle)	402	rotate (GdkPixbuf *pb, int angle)
292	CODE:	403	CODE:
		404	perlinterp_release ();
		405	if (angle < 0)
		406	angle += 360;
293	RETVAL = gdk_pixbuf_rotate_simple (pb, angle == 0 ? GDK_PIXBUF_ROTATE_NONE	407	RETVAL = gdk_pixbuf_rotate_simple (pb, angle == 0 ? GDK_PIXBUF_ROTATE_NONE
294	: angle == 90 ? GDK_PIXBUF_ROTATE_COUNTERCLOCKWISE	408	: angle == 90 ? GDK_PIXBUF_ROTATE_COUNTERCLOCKWISE
295	: angle == 180 ? GDK_PIXBUF_ROTATE_UPSIDEDOWN	409	: angle == 180 ? GDK_PIXBUF_ROTATE_UPSIDEDOWN
296	: angle == 270 ? GDK_PIXBUF_ROTATE_CLOCKWISE	410	: angle == 270 ? GDK_PIXBUF_ROTATE_CLOCKWISE
297	: angle);	411	: angle);
		412	perlinterp_acquire ();
298	OUTPUT:	413	OUTPUT:
299	RETVAL	414	RETVAL
300		415
		416	const char *
		417	filetype (SV *image_data)
		418	CODE:
		419	{
		420	STRLEN data_len;
		421	U8 *data = SvPVbyte (image_data, data_len);
		422	static const unsigned char jxl_header[] = {
		423	0, 0, 0, 0x0c, 0x4a, 0x58, 0x4c, 0x20,
		424	0x0d, 0xa, 0x87, 0x0a, 0, 0, 0, 0x14,
		425	0x66, 0x74, 0x79, 0x70, 0x6a, 0x78, 0x6c, 0x20,
		426	0, 0, 0, 0, 0x6a, 0x78, 0x6c, 0x20,
		427	};
		428
		429	if (data_len >= 20
		430	&& data[0] == 0xff
		431	&& data[1] == 0xd8
		432	&& data[2] == 0xff)
		433	RETVAL = "image/jpeg";
		434	else if (data_len >= 12
		435	&& data[ 0] == (U8)'R'
		436	&& data[ 1] == (U8)'I'
		437	&& data[ 2] == (U8)'F'
		438	&& data[ 3] == (U8)'F'
		439	&& data[ 8] == (U8)'W'
		440	&& data[ 9] == (U8)'E'
		441	&& data[10] == (U8)'B'
		442	&& data[11] == (U8)'P')
		443	RETVAL = "image/webp";
		444	else if (data_len >= 16
		445	&& data[ 0] == 0x89
		446	&& data[ 1] == (U8)'P'
		447	&& data[ 2] == (U8)'N'
		448	&& data[ 3] == (U8)'G'
		449	&& data[ 4] == 0x0d
		450	&& data[ 5] == 0x0a
		451	&& data[ 6] == 0x1a
		452	&& data[ 7] == 0x0a)
		453	RETVAL = "image/png";
		454	else if (data_len >= sizeof (jxl_header) && memcmp (data, jxl_header, sizeof (jxl_header)) == 0)
		455	RETVAL = "image/jxl";
		456	else if (data_len >= 13
		457	&& data[0] == 'G'
		458	&& data[1] == 'I'
		459	&& data[2] == 'F'
		460	&& data[3] == '8'
		461	//&& (data[4] == '7' \|\| data[4] == '9')
		462	&& data[5] == 'a')
		463	{
		464	RETVAL = "image/gif";
		465
		466	// now see if its animated - we require the netscape application header for this
		467	int ofs = 13;
		468
		469	if (data[10] & 0x80)
		470	ofs += (1 << ((data[10] & 7) + 1)) * 3;
		471
		472	if (data_len >= ofs + 2 + 1 + 11)
		473	{
		474
		475	// skip a graphic control extension block. we assume
		476	// there is at most one such block - while the NAB
		477	// has to come firstz, some files do not obey this
		478	if (data[ofs] == 0x21 && data[ofs + 1] == 0xf9)
		479	ofs += 3 + data[ofs + 2] + 1;
		480
		481	if (data_len >= ofs + 2 + 1 + 11)
		482	if (!memcmp (data + ofs, "\x21\xff\x0bNETSCAPE2.0", sizeof ("\x21\xff\x0bNETSCAPE2.0") - 1))
		483	RETVAL = "video/gif";
		484	}
		485	}
		486
		487	else
		488	XSRETURN_UNDEF;
		489	}
		490	OUTPUT:
		491	RETVAL
		492
301	GdkPixbuf_noinc *	493	GdkPixbuf_noinc *
302	load_jpeg (SV *path, int thumbnail=0)	494	decode_webp (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
		495	CODE:
		496	{
		497	#if WEBP
		498	STRLEN data_size;
		499	int alpha;
		500	WebPData data;
		501	WebPDemuxer *demux;
		502	WebPIterator iter;
		503	WebPDecoderConfig config;
		504	int inw, inh;
		505
		506	data.bytes = (uint8_t *)SvPVbyte (image_data, data_size);
		507	data.size = data_size;
		508
		509	perlinterp_release ();
		510
		511	RETVAL = 0;
		512
		513	if (!(demux = WebPDemux (&data)))
		514	goto err_demux;
		515
		516	if (!WebPDemuxGetFrame (demux, 1, &iter))
		517	goto err_iter;
		518
		519	if (!WebPInitDecoderConfig (&config))
		520	goto err_iter;
		521
		522	config.options.use_threads = 1;
		523
		524	if (WebPGetFeatures (iter.fragment.bytes, iter.fragment.size, &config.input) != VP8_STATUS_OK)
		525	goto err_iter;
		526
		527	inw = config.input.width;
		528	inh = config.input.height;
		529
		530	if (thumbnail)
		531	{
		532	if (inw * ih > inh * iw)
		533	ih = (iw * inh + inw - 1) / inw;
		534	else
		535	iw = (ih * inw + inh - 1) / inh;
		536
		537	config.options.bypass_filtering = 1;
		538	config.options.no_fancy_upsampling = 1;
		539
		540	config.options.use_scaling = 1;
		541	config.options.scaled_width = iw;
		542	config.options.scaled_height = ih;
		543	}
		544	else
		545	{
		546	iw = inw;
		547	ih = inh;
		548	}
		549
		550	alpha = !!config.input.has_alpha;
		551
		552	RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, alpha, 8, iw, ih);
		553	if (!RETVAL)
		554	goto err_iter;
		555
		556	config.output.colorspace = alpha ? MODE_RGBA : MODE_RGB;
		557	config.output.u.RGBA.rgba = gdk_pixbuf_get_pixels (RETVAL);
		558	config.output.u.RGBA.stride = gdk_pixbuf_get_rowstride (RETVAL);
		559	config.output.u.RGBA.size = gdk_pixbuf_get_byte_length (RETVAL);
		560	config.output.is_external_memory = 1;
		561
		562	if (WebPDecode (iter.fragment.bytes, iter.fragment.size, &config) != VP8_STATUS_OK)
		563	{
		564	g_object_unref (RETVAL);
		565	RETVAL = 0;
		566	goto err_iter;
		567	}
		568
		569	err_iter:
		570	WebPDemuxReleaseIterator (&iter);
		571	err_demux:
		572	WebPDemuxDelete (demux);
		573
		574	perlinterp_acquire ();
		575	#else
		576	croak ("load_webp: webp not enabled at compile time");
		577	#endif
		578	}
		579	OUTPUT:
		580	RETVAL
		581
		582	GdkPixbuf_noinc *
		583	decode_jxl (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
		584	CODE:
		585	{
		586	#if JXL
		587	JxlDecoder *dec = JxlDecoderCreate (0);
		588	JxlBasicInfo info;
		589	const uint8_t next_in = (uint8_t )SvPVbyte_nolen (image_data);
		590	size_t avail_in = SvCUR (image_data);
		591	const char *error = 0;
		592	void *runner = 0;
		593	struct bmff_box box;
		594
		595	perlinterp_release ();
		596
		597	RETVAL = 0;
		598
		599	error = "JxlDecoderCreate failed";
		600	if (!dec)
		601	goto done;
		602
		603	runner = JxlThreadParallelRunnerCreate (0, JxlThreadParallelRunnerDefaultNumWorkerThreads ());
		604
		605	error = "JxlDecoderSetParallelRunner failed";
		606	if (JxlDecoderSetParallelRunner (dec, JxlThreadParallelRunner, runner) != JXL_DEC_SUCCESS)
		607	goto done;
		608
		609	error = "JxlDecoderSubscribeEvents failed";
		610	if (JxlDecoderSubscribeEvents (dec, JXL_DEC_FULL_IMAGE \| JXL_DEC_BASIC_INFO) != JXL_DEC_SUCCESS)
		611	goto done;
		612
		613	error = "JxlDecoderSetInput failed";
		614	if (JxlDecoderSetInput (dec, next_in, avail_in) != JXL_DEC_SUCCESS)
		615	goto done;
		616
		617	for (;;)
		618	{
		619	JxlDecoderStatus status = JxlDecoderProcessInput (dec);
		620
		621	printf ("status %d\n",status);
		622
		623	switch (status)
		624	{
		625	case JXL_DEC_ERROR:
		626	error = "JxlDecoderProcessInput failed";
		627	goto done;
		628
		629	case JXL_DEC_NEED_MORE_INPUT:
		630	error = "incomplete file";
		631	goto done;
		632
		633	case JXL_DEC_SUCCESS:
		634	goto done;
		635
		636	case JXL_DEC_NEED_IMAGE_OUT_BUFFER:
		637	{
		638	error = "JxlDecoderGetBasicInfo failed";
		639	if (JxlDecoderGetBasicInfo (dec, &info) != JXL_DEC_SUCCESS)
		640	goto done;
		641
		642	RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, !!info.alpha_bits, 8, info.xsize, info.ysize);
		643	error = "unable to allocate pixbuf";
		644	if (!RETVAL)
		645	goto done;
		646
		647	JxlPixelFormat format = {
		648	info.alpha_bits ? 4 : 3,
		649	JXL_TYPE_UINT8,
		650	JXL_NATIVE_ENDIAN,
		651	gdk_pixbuf_get_rowstride (RETVAL)
		652	};
		653
		654	error = "JxlDecoderSetImageOutBuffer failed";
		655	if (JxlDecoderSetImageOutBuffer (
		656	dec,
		657	&format,
		658	gdk_pixbuf_get_pixels (RETVAL),
		659	gdk_pixbuf_get_byte_length (RETVAL)
		660	) != JXL_DEC_SUCCESS)
		661	goto done;
		662	}
		663	break;
		664
		665	default:
		666	error = "unexpected event";
		667	goto done;
		668	}
		669	}
		670
		671	done:
		672	if (dec)
		673	JxlDecoderDestroy (dec);
		674
		675	if (runner)
		676	JxlThreadParallelRunnerDestroy (runner);
		677
		678	perlinterp_acquire ();
		679
		680	if (error)
		681	{
		682	if (RETVAL)
		683	g_object_unref (RETVAL);
		684
		685	croak ("load_jxl: %s", error);
		686	}
		687	#else
		688	croak ("load_jxl: jpeg-xl not enabled at compile time");
		689	#endif
		690	}
		691	OUTPUT:
		692	RETVAL
		693
		694	GdkPixbuf_noinc *
		695	decode_jpeg (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
303	CODE:	696	CODE:
304	{	697	{
305	struct jpeg_decompress_struct cinfo;	698	struct jpeg_decompress_struct cinfo;
306	struct jpg_err_mgr jerr;	699	struct jpg_err_mgr jerr;
307	guchar *data;
308	int rs;	700	int rs;
309	FILE *fp;
310	volatile GdkPixbuf *pb = 0;	701	volatile GdkPixbuf *pb = 0;
		702	STRLEN data_len;
		703	guchar *data = SvPVbyte (image_data, data_len);
311		704
312	RETVAL = 0;	705	RETVAL = 0;
313		706
314	fp = fopen (SvPVbyte_nolen (path), "rb");	707	perlinterp_release ();
315
316	if (!fp)
317	XSRETURN_UNDEF;
318		708
319	cinfo.err = jpeg_std_error (&jerr.err);	709	cinfo.err = jpeg_std_error (&jerr.err);
320		710
321	jerr.err.error_exit = cv_error_exit;	711	jerr.err.error_exit = cv_error_exit;
322	jerr.err.output_message = cv_error_output;	712	jerr.err.output_message = cv_error_output;
323		713
324	if ((rs = setjmp (jerr.setjmp_buffer)))	714	if ((rs = setjmp (jerr.setjmp_buffer)))
325	{	715	{
326	fclose (fp);
327	jpeg_destroy_decompress (&cinfo);	716	jpeg_destroy_decompress (&cinfo);
328		717
329	if (pb)	718	if (pb)
330	g_object_unref ((gpointer)pb);	719	g_object_unref ((gpointer)pb);
331		720
		721	perlinterp_acquire ();
332	XSRETURN_UNDEF;	722	XSRETURN_UNDEF;
333	}	723	}
334		724
		725	if (!data_len)
		726	longjmp (jerr.setjmp_buffer, 4);
		727
335	jpeg_create_decompress (&cinfo);	728	jpeg_create_decompress (&cinfo);
		729	cv_jpeg_mem_src (&cinfo, data, data_len);
336		730
337	jpeg_stdio_src (&cinfo, fp);
338	jpeg_read_header (&cinfo, TRUE);	731	jpeg_read_header (&cinfo, TRUE);
339		732
340	cinfo.dct_method = JDCT_DEFAULT;	733	cinfo.dct_method = JDCT_DEFAULT;
341	cinfo.do_fancy_upsampling = FALSE; /* worse quality, but nobody compained so far, and gdk-pixbuf does the same */	734	cinfo.do_fancy_upsampling = FALSE; /* worse quality, but nobody compained so far, and gdk-pixbuf does the same */
342	cinfo.do_block_smoothing = FALSE;	735	cinfo.do_block_smoothing = FALSE;
…		…
352	{	745	{
353	cinfo.dct_method = JDCT_FASTEST;	746	cinfo.dct_method = JDCT_FASTEST;
354	cinfo.do_fancy_upsampling = FALSE;	747	cinfo.do_fancy_upsampling = FALSE;
355		748
356	while (cinfo.scale_denom < 8	749	while (cinfo.scale_denom < 8
357	&& cinfo.output_width >= IW*4	750	&& cinfo.output_width >= iw*4
358	&& cinfo.output_height >= IH*4)	751	&& cinfo.output_height >= ih*4)
359	{	752	{
360	cinfo.scale_denom <<= 1;	753	cinfo.scale_denom <<= 1;
361	jpeg_calc_output_dimensions (&cinfo);	754	jpeg_calc_output_dimensions (&cinfo);
362	}	755	}
363	}	756	}
364		757
		758	if (cinfo.output_components != 3)
		759	longjmp (jerr.setjmp_buffer, 3);
		760
		761	if (cinfo.jpeg_color_space == JCS_YCCK \|\| cinfo.jpeg_color_space == JCS_CMYK)
		762	{
		763	cinfo.out_color_space = JCS_CMYK;
		764	cinfo.output_components = 4;
		765	}
		766
365	pb = RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, 0, 8, cinfo.output_width, cinfo.output_height);	767	pb = RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, cinfo.output_components == 4, 8, cinfo.output_width, cinfo.output_height);
366	if (!RETVAL)	768	if (!RETVAL)
367	longjmp (jerr.setjmp_buffer, 2);	769	longjmp (jerr.setjmp_buffer, 2);
368		770
369	data = gdk_pixbuf_get_pixels (RETVAL);	771	data = gdk_pixbuf_get_pixels (RETVAL);
370	rs = gdk_pixbuf_get_rowstride (RETVAL);	772	rs = gdk_pixbuf_get_rowstride (RETVAL);
371
372	if (cinfo.output_components != 3)
373	longjmp (jerr.setjmp_buffer, 3);
374		773
375	jpeg_start_decompress (&cinfo);	774	jpeg_start_decompress (&cinfo);
376		775
377	while (cinfo.output_scanline < cinfo.output_height)	776	while (cinfo.output_scanline < cinfo.output_height)
378	{	777	{
…		…
385	rp [3] = (guchar *)rp [2] + rs;	784	rp [3] = (guchar *)rp [2] + rs;
386		785
387	jpeg_read_scanlines (&cinfo, rp, remaining < 4 ? remaining : 4);	786	jpeg_read_scanlines (&cinfo, rp, remaining < 4 ? remaining : 4);
388	}	787	}
389		788
		789	if (cinfo.out_color_space == JCS_CMYK)
		790	{
		791	guchar end = data + cinfo.output_height rs;
		792
		793	while (data < end)
		794	{
		795	U32 c = data [0];
		796	U32 m = data [1];
		797	U32 y = data [2];
		798	U32 k = data [3];
		799
		800	if (0)
		801	if (cinfo.Adobe_transform == 2)
		802	{
		803	c ^= 0xff;
		804	m ^= 0xff;
		805	y ^= 0xff;
		806	k ^= 0xff;
		807	}
		808
		809	data [0] = (c * k + 0x80) / 0xff;
		810	data [1] = (m * k + 0x80) / 0xff;
		811	data [2] = (y * k + 0x80) / 0xff;
		812	data [3] = 0xff;
		813
		814	data += 4;
		815	}
		816	}
		817
390	jpeg_finish_decompress (&cinfo);	818	jpeg_finish_decompress (&cinfo);
391	fclose (fp);
392	jpeg_destroy_decompress (&cinfo);	819	jpeg_destroy_decompress (&cinfo);
		820	perlinterp_acquire ();
393	}	821	}
394	OUTPUT:	822	OUTPUT:
395	RETVAL	823	RETVAL
396		824
397	void	825	void
398	compare (GdkPixbuf a, GdkPixbuf b)	826	compare (GdkPixbuf a, GdkPixbuf b)
399	PPCODE:	827	PPCODE:
		828	perlinterp_release ();
400	{	829	{
401	int w = gdk_pixbuf_get_width (a);	830	int w = gdk_pixbuf_get_width (a);
402	int h = gdk_pixbuf_get_height (a);	831	int h = gdk_pixbuf_get_height (a);
		832
403	int sa = gdk_pixbuf_get_rowstride (a);	833	int sa = gdk_pixbuf_get_rowstride (a);
404	int sb = gdk_pixbuf_get_rowstride (b);	834	int sb = gdk_pixbuf_get_rowstride (b);
405		835
406	guchar *pa = gdk_pixbuf_get_pixels (a);	836	guchar *pa = gdk_pixbuf_get_pixels (a);
407	guchar *pb = gdk_pixbuf_get_pixels (b);	837	guchar *pb = gdk_pixbuf_get_pixels (b);
…		…
431	d = ((int)pa_++) - ((int)pb_++); diff += d*d; peak = MAX (peak, abs (d));	861	d = ((int)pa_++) - ((int)pb_++); diff += d*d; peak = MAX (peak, abs (d));
432	d = ((int)pa_++) - ((int)pb_++); diff += d*d; peak = MAX (peak, abs (d));	862	d = ((int)pa_++) - ((int)pb_++); diff += d*d; peak = MAX (peak, abs (d));
433	}	863	}
434	}	864	}
435		865
		866	perlinterp_acquire ();
		867
436	EXTEND (SP, 2);	868	EXTEND (SP, 2);
437	PUSHs (sv_2mortal (newSVnv (sqrt (diff / (w * h * 3. * 255. * 255.)))));	869	PUSHs (sv_2mortal (newSVnv (sqrt (diff / (w * h * 3. * 255. * 255.)))));
438	PUSHs (sv_2mortal (newSVnv (peak / 255.)));	870	PUSHs (sv_2mortal (newSVnv (peak / 255.)));
439	}	871	}
440		872
…		…
450	CODE:	882	CODE:
451	{	883	{
452	STRLEN plen;	884	STRLEN plen;
453	U8 path = (U8 )SvPV (pathsv, plen);	885	U8 path = (U8 )SvPV (pathsv, plen);
454	U8 *pend = path + plen;	886	U8 *pend = path + plen;
455	U8 dst [plen * 6 * 3], *dstp = dst;	887	U8 dst [plen * 8 * 3], *dstp = dst;
456		888
457	while (path < pend)	889	while (path < pend)
458	{	890	{
459	U8 ch = *path;	891	U8 ch = *path;
460		892
…		…
462	dstp++ = path++;	894	dstp++ = path++;
463	else if (ch >= 'A' && ch <= 'Z')	895	else if (ch >= 'A' && ch <= 'Z')
464	dstp++ = path++ + ('a' - 'A');	896	dstp++ = path++ + ('a' - 'A');
465	else if (ch >= '0' && ch <= '9')	897	else if (ch >= '0' && ch <= '9')
466	{	898	{
		899	/* version sort, up to 8 digits */
467	STRLEN el, nl = 0;	900	STRLEN el, nl = 0;
468	while (path >= '0' && path <= '9' && path < pend)	901	while (path >= '0' && path <= '9' && path < pend)
469	path++, nl++;	902	path++, nl++;
470		903
471	for (el = nl; el < 6; el++)	904	for (el = nl; el < 8; el++)
472	*dstp++ = '0';	905	*dstp++ = '0';
473		906
474	memcpy (dstp, path - nl, nl);	907	memcpy (dstp, path - nl, nl);
475	dstp += nl;	908	dstp += nl;
476	}	909	}

Diff Legend

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

Comparing CV/CV.xs (file contents): Revision 1.41 by root, Sat Mar 1 04:11:26 2008 UTC vs. Revision 1.62 by root, Sun Jul 25 11:32:46 2021 UTC

Diff Legend

Comparing CV/CV.xs (file contents):
Revision 1.41 by root, Sat Mar 1 04:11:26 2008 UTC vs.
Revision 1.62 by root, Sun Jul 25 11:32:46 2021 UTC