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

Comparing CV/CV.xs (file contents):
Revision 1.37 by root, Thu Jun 22 22:01:26 2006 UTC vs.
Revision 1.61 by root, Sun Jul 25 11:24:48 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);	348	RETVAL = ix & 2
		349	? magic_buffer (magic_cookie[ix & 1], data, len)
		350	: magic_file (magic_cookie[ix & 1], data);
		351
		352	perlinterp_acquire ();
223	}	353	}
224	OUTPUT:	354	OUTPUT:
225	RETVAL	355	RETVAL
226		356
227	const char *
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	}
245	OUTPUT:
246	RETVAL
247
248	# missing in Gtk2 perl module	357	# missing/broken in Gtk2 perl module
		358
		359	void
		360	gdk_window_clear_hints (GdkWindow *window)
		361	CODE:
		362	gdk_window_set_geometry_hints (window, 0, 0);
249		363
250	gboolean	364	gboolean
251	gdk_net_wm_supports (GdkAtom property)	365	gdk_net_wm_supports (GdkAtom property)
252	CODE:	366	CODE:
253	#if defined(GDK_WINDOWING_X11) && !defined(GDK_MULTIHEAD_SAFE)	367	#if defined(GDK_WINDOWING_X11) && !defined(GDK_MULTIHEAD_SAFE)
…		…
259	RETVAL	373	RETVAL
260		374
261	GdkPixbuf_noinc *	375	GdkPixbuf_noinc *
262	dealpha_expose (GdkPixbuf *pb)	376	dealpha_expose (GdkPixbuf *pb)
263	CODE:	377	CODE:
		378	perlinterp_release ();
264	{	379	{
265	int w = gdk_pixbuf_get_width (pb);	380	int w = gdk_pixbuf_get_width (pb);
266	int h = gdk_pixbuf_get_height (pb);	381	int h = gdk_pixbuf_get_height (pb);
267	int bpp = gdk_pixbuf_get_n_channels (pb);	382	int bpp = gdk_pixbuf_get_n_channels (pb);
268	int x, y, i;	383	int x, y, i;
…		…
277	for (x = 0; x < w; x++)	392	for (x = 0; x < w; x++)
278	for (y = 0; y < h; y++)	393	for (y = 0; y < h; y++)
279	for (i = 0; i < 3; i++)	394	for (i = 0; i < 3; i++)
280	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];
281	}	396	}
		397	perlinterp_acquire ();
282	OUTPUT:	398	OUTPUT:
283	RETVAL	399	RETVAL
284		400
285	GdkPixbuf_noinc *	401	GdkPixbuf_noinc *
286	rotate (GdkPixbuf *pb, int angle)	402	rotate (GdkPixbuf *pb, int angle)
287	CODE:	403	CODE:
		404	perlinterp_release ();
		405	if (angle < 0)
		406	angle += 360;
288	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
289	: angle == 90 ? GDK_PIXBUF_ROTATE_COUNTERCLOCKWISE	408	: angle == 90 ? GDK_PIXBUF_ROTATE_COUNTERCLOCKWISE
290	: angle == 180 ? GDK_PIXBUF_ROTATE_UPSIDEDOWN	409	: angle == 180 ? GDK_PIXBUF_ROTATE_UPSIDEDOWN
291	: angle == 270 ? GDK_PIXBUF_ROTATE_CLOCKWISE	410	: angle == 270 ? GDK_PIXBUF_ROTATE_CLOCKWISE
292	: angle);	411	: angle);
		412	perlinterp_acquire ();
293	OUTPUT:	413	OUTPUT:
294	RETVAL	414	RETVAL
295		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	// skip a rare first graphic control extension block
		475	// we assume there is exactly one block
		476	if (data[ofs] == 0x21 && data[ofs + 1] == 0xf9)
		477	ofs += 3 + data[ofs + 2] + 1;
		478
		479	if (data_len >= ofs + 2 + 1 + 11)
		480	if (!memcmp (data + ofs, "\x21\xff\x0bNETSCAPE2.0", sizeof ("\x21\xff\x0bNETSCAPE2.0") - 1))
		481	RETVAL = "video/gif";
		482	}
		483	}
		484
		485	else
		486	XSRETURN_UNDEF;
		487	}
		488	OUTPUT:
		489	RETVAL
		490
296	GdkPixbuf_noinc *	491	GdkPixbuf_noinc *
297	load_jpeg (SV *path, int thumbnail=0)	492	decode_webp (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
		493	CODE:
		494	{
		495	#if WEBP
		496	STRLEN data_size;
		497	int alpha;
		498	WebPData data;
		499	WebPDemuxer *demux;
		500	WebPIterator iter;
		501	WebPDecoderConfig config;
		502	int inw, inh;
		503
		504	data.bytes = (uint8_t *)SvPVbyte (image_data, data_size);
		505	data.size = data_size;
		506
		507	perlinterp_release ();
		508
		509	RETVAL = 0;
		510
		511	if (!(demux = WebPDemux (&data)))
		512	goto err_demux;
		513
		514	if (!WebPDemuxGetFrame (demux, 1, &iter))
		515	goto err_iter;
		516
		517	if (!WebPInitDecoderConfig (&config))
		518	goto err_iter;
		519
		520	config.options.use_threads = 1;
		521
		522	if (WebPGetFeatures (iter.fragment.bytes, iter.fragment.size, &config.input) != VP8_STATUS_OK)
		523	goto err_iter;
		524
		525	inw = config.input.width;
		526	inh = config.input.height;
		527
		528	if (thumbnail)
		529	{
		530	if (inw * ih > inh * iw)
		531	ih = (iw * inh + inw - 1) / inw;
		532	else
		533	iw = (ih * inw + inh - 1) / inh;
		534
		535	config.options.bypass_filtering = 1;
		536	config.options.no_fancy_upsampling = 1;
		537
		538	config.options.use_scaling = 1;
		539	config.options.scaled_width = iw;
		540	config.options.scaled_height = ih;
		541	}
		542	else
		543	{
		544	iw = inw;
		545	ih = inh;
		546	}
		547
		548	alpha = !!config.input.has_alpha;
		549
		550	RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, alpha, 8, iw, ih);
		551	if (!RETVAL)
		552	goto err_iter;
		553
		554	config.output.colorspace = alpha ? MODE_RGBA : MODE_RGB;
		555	config.output.u.RGBA.rgba = gdk_pixbuf_get_pixels (RETVAL);
		556	config.output.u.RGBA.stride = gdk_pixbuf_get_rowstride (RETVAL);
		557	config.output.u.RGBA.size = gdk_pixbuf_get_byte_length (RETVAL);
		558	config.output.is_external_memory = 1;
		559
		560	if (WebPDecode (iter.fragment.bytes, iter.fragment.size, &config) != VP8_STATUS_OK)
		561	{
		562	g_object_unref (RETVAL);
		563	RETVAL = 0;
		564	goto err_iter;
		565	}
		566
		567	err_iter:
		568	WebPDemuxReleaseIterator (&iter);
		569	err_demux:
		570	WebPDemuxDelete (demux);
		571
		572	perlinterp_acquire ();
		573	#else
		574	croak ("load_webp: webp not enabled at compile time");
		575	#endif
		576	}
		577	OUTPUT:
		578	RETVAL
		579
		580	GdkPixbuf_noinc *
		581	decode_jxl (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
		582	CODE:
		583	{
		584	#if JXL
		585	JxlDecoder *dec = JxlDecoderCreate (0);
		586	JxlBasicInfo info;
		587	const uint8_t next_in = (uint8_t )SvPVbyte_nolen (image_data);
		588	size_t avail_in = SvCUR (image_data);
		589	const char *error = 0;
		590	void *runner = 0;
		591	struct bmff_box box;
		592
		593	perlinterp_release ();
		594
		595	RETVAL = 0;
		596
		597	error = "JxlDecoderCreate failed";
		598	if (!dec)
		599	goto done;
		600
		601	runner = JxlThreadParallelRunnerCreate (0, JxlThreadParallelRunnerDefaultNumWorkerThreads ());
		602
		603	error = "JxlDecoderSetParallelRunner failed";
		604	if (JxlDecoderSetParallelRunner (dec, JxlThreadParallelRunner, runner) != JXL_DEC_SUCCESS)
		605	goto done;
		606
		607	error = "JxlDecoderSubscribeEvents failed";
		608	if (JxlDecoderSubscribeEvents (dec, JXL_DEC_FULL_IMAGE \| JXL_DEC_BASIC_INFO) != JXL_DEC_SUCCESS)
		609	goto done;
		610
		611	error = "JxlDecoderSetInput failed";
		612	if (JxlDecoderSetInput (dec, next_in, avail_in) != JXL_DEC_SUCCESS)
		613	goto done;
		614
		615	for (;;)
		616	{
		617	JxlDecoderStatus status = JxlDecoderProcessInput (dec);
		618
		619	printf ("status %d\n",status);
		620
		621	switch (status)
		622	{
		623	case JXL_DEC_ERROR:
		624	error = "JxlDecoderProcessInput failed";
		625	goto done;
		626
		627	case JXL_DEC_NEED_MORE_INPUT:
		628	error = "incomplete file";
		629	goto done;
		630
		631	case JXL_DEC_SUCCESS:
		632	goto done;
		633
		634	case JXL_DEC_NEED_IMAGE_OUT_BUFFER:
		635	{
		636	error = "JxlDecoderGetBasicInfo failed";
		637	if (JxlDecoderGetBasicInfo (dec, &info) != JXL_DEC_SUCCESS)
		638	goto done;
		639
		640	RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, !!info.alpha_bits, 8, info.xsize, info.ysize);
		641	error = "unable to allocate pixbuf";
		642	if (!RETVAL)
		643	goto done;
		644
		645	JxlPixelFormat format = {
		646	info.alpha_bits ? 4 : 3,
		647	JXL_TYPE_UINT8,
		648	JXL_NATIVE_ENDIAN,
		649	gdk_pixbuf_get_rowstride (RETVAL)
		650	};
		651
		652	error = "JxlDecoderSetImageOutBuffer failed";
		653	if (JxlDecoderSetImageOutBuffer (
		654	dec,
		655	&format,
		656	gdk_pixbuf_get_pixels (RETVAL),
		657	gdk_pixbuf_get_byte_length (RETVAL)
		658	) != JXL_DEC_SUCCESS)
		659	goto done;
		660	}
		661	break;
		662
		663	default:
		664	error = "unexpected event";
		665	goto done;
		666	}
		667	}
		668
		669	done:
		670	if (dec)
		671	JxlDecoderDestroy (dec);
		672
		673	if (runner)
		674	JxlThreadParallelRunnerDestroy (runner);
		675
		676	perlinterp_acquire ();
		677
		678	if (error)
		679	{
		680	if (RETVAL)
		681	g_object_unref (RETVAL);
		682
		683	croak ("load_jxl: %s", error);
		684	}
		685	#else
		686	croak ("load_jxl: jpeg-xl not enabled at compile time");
		687	#endif
		688	}
		689	OUTPUT:
		690	RETVAL
		691
		692	GdkPixbuf_noinc *
		693	decode_jpeg (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
298	CODE:	694	CODE:
299	{	695	{
300	struct jpeg_decompress_struct cinfo;	696	struct jpeg_decompress_struct cinfo;
301	struct jpg_err_mgr jerr;	697	struct jpg_err_mgr jerr;
302	guchar *data;
303	int rs;	698	int rs;
304	FILE *fp;
305	volatile GdkPixbuf *pb = 0;	699	volatile GdkPixbuf *pb = 0;
		700	STRLEN data_len;
		701	guchar *data = SvPVbyte (image_data, data_len);
306		702
307	RETVAL = 0;	703	RETVAL = 0;
308		704
309	fp = fopen (SvPVbyte_nolen (path), "rb");	705	perlinterp_release ();
310
311	if (!fp)
312	XSRETURN_UNDEF;
313		706
314	cinfo.err = jpeg_std_error (&jerr.err);	707	cinfo.err = jpeg_std_error (&jerr.err);
315		708
316	jerr.err.error_exit = cv_error_exit;	709	jerr.err.error_exit = cv_error_exit;
317	jerr.err.output_message = cv_error_output;	710	jerr.err.output_message = cv_error_output;
318		711
319	if ((rs = setjmp (jerr.setjmp_buffer)))	712	if ((rs = setjmp (jerr.setjmp_buffer)))
320	{	713	{
321	fclose (fp);
322	jpeg_destroy_decompress (&cinfo);	714	jpeg_destroy_decompress (&cinfo);
323		715
324	if (pb)	716	if (pb)
325	g_object_unref ((gpointer)pb);	717	g_object_unref ((gpointer)pb);
326		718
		719	perlinterp_acquire ();
327	XSRETURN_UNDEF;	720	XSRETURN_UNDEF;
328	}	721	}
329		722
		723	if (!data_len)
		724	longjmp (jerr.setjmp_buffer, 4);
		725
330	jpeg_create_decompress (&cinfo);	726	jpeg_create_decompress (&cinfo);
		727	cv_jpeg_mem_src (&cinfo, data, data_len);
331		728
332	jpeg_stdio_src (&cinfo, fp);
333	jpeg_read_header (&cinfo, TRUE);	729	jpeg_read_header (&cinfo, TRUE);
334		730
335	cinfo.dct_method = JDCT_DEFAULT;	731	cinfo.dct_method = JDCT_DEFAULT;
336	cinfo.do_fancy_upsampling = FALSE; /* worse quality, but nobody compained so far, and gdk-pixbuf does the same */	732	cinfo.do_fancy_upsampling = FALSE; /* worse quality, but nobody compained so far, and gdk-pixbuf does the same */
337	cinfo.do_block_smoothing = FALSE;	733	cinfo.do_block_smoothing = FALSE;
…		…
347	{	743	{
348	cinfo.dct_method = JDCT_FASTEST;	744	cinfo.dct_method = JDCT_FASTEST;
349	cinfo.do_fancy_upsampling = FALSE;	745	cinfo.do_fancy_upsampling = FALSE;
350		746
351	while (cinfo.scale_denom < 8	747	while (cinfo.scale_denom < 8
352	&& cinfo.output_width >= IW*4	748	&& cinfo.output_width >= iw*4
353	&& cinfo.output_height >= IH*4)	749	&& cinfo.output_height >= ih*4)
354	{	750	{
355	cinfo.scale_denom <<= 1;	751	cinfo.scale_denom <<= 1;
356	jpeg_calc_output_dimensions (&cinfo);	752	jpeg_calc_output_dimensions (&cinfo);
357	}	753	}
358	}	754	}
359		755
		756	if (cinfo.output_components != 3)
		757	longjmp (jerr.setjmp_buffer, 3);
		758
		759	if (cinfo.jpeg_color_space == JCS_YCCK \|\| cinfo.jpeg_color_space == JCS_CMYK)
		760	{
		761	cinfo.out_color_space = JCS_CMYK;
		762	cinfo.output_components = 4;
		763	}
		764
360	pb = RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, 0, 8, cinfo.output_width, cinfo.output_height);	765	pb = RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, cinfo.output_components == 4, 8, cinfo.output_width, cinfo.output_height);
361	if (!RETVAL)	766	if (!RETVAL)
362	longjmp (jerr.setjmp_buffer, 2);	767	longjmp (jerr.setjmp_buffer, 2);
363		768
364	data = gdk_pixbuf_get_pixels (RETVAL);	769	data = gdk_pixbuf_get_pixels (RETVAL);
365	rs = gdk_pixbuf_get_rowstride (RETVAL);	770	rs = gdk_pixbuf_get_rowstride (RETVAL);
366
367	if (cinfo.output_components != 3)
368	longjmp (jerr.setjmp_buffer, 3);
369		771
370	jpeg_start_decompress (&cinfo);	772	jpeg_start_decompress (&cinfo);
371		773
372	while (cinfo.output_scanline < cinfo.output_height)	774	while (cinfo.output_scanline < cinfo.output_height)
373	{	775	{
…		…
380	rp [3] = (guchar *)rp [2] + rs;	782	rp [3] = (guchar *)rp [2] + rs;
381		783
382	jpeg_read_scanlines (&cinfo, rp, remaining < 4 ? remaining : 4);	784	jpeg_read_scanlines (&cinfo, rp, remaining < 4 ? remaining : 4);
383	}	785	}
384		786
		787	if (cinfo.out_color_space == JCS_CMYK)
		788	{
		789	guchar end = data + cinfo.output_height rs;
		790
		791	while (data < end)
		792	{
		793	U32 c = data [0];
		794	U32 m = data [1];
		795	U32 y = data [2];
		796	U32 k = data [3];
		797
		798	if (0)
		799	if (cinfo.Adobe_transform == 2)
		800	{
		801	c ^= 0xff;
		802	m ^= 0xff;
		803	y ^= 0xff;
		804	k ^= 0xff;
		805	}
		806
		807	data [0] = (c * k + 0x80) / 0xff;
		808	data [1] = (m * k + 0x80) / 0xff;
		809	data [2] = (y * k + 0x80) / 0xff;
		810	data [3] = 0xff;
		811
		812	data += 4;
		813	}
		814	}
		815
385	jpeg_finish_decompress (&cinfo);	816	jpeg_finish_decompress (&cinfo);
386	fclose (fp);
387	jpeg_destroy_decompress (&cinfo);	817	jpeg_destroy_decompress (&cinfo);
		818	perlinterp_acquire ();
388	}	819	}
389	OUTPUT:	820	OUTPUT:
390	RETVAL	821	RETVAL
391		822
392	void	823	void
393	compare (GdkPixbuf a, GdkPixbuf b)	824	compare (GdkPixbuf a, GdkPixbuf b)
394	PPCODE:	825	PPCODE:
		826	perlinterp_release ();
395	{	827	{
396	int w = gdk_pixbuf_get_width (a);	828	int w = gdk_pixbuf_get_width (a);
397	int h = gdk_pixbuf_get_height (a);	829	int h = gdk_pixbuf_get_height (a);
		830
398	int sa = gdk_pixbuf_get_rowstride (a);	831	int sa = gdk_pixbuf_get_rowstride (a);
399	int sb = gdk_pixbuf_get_rowstride (b);	832	int sb = gdk_pixbuf_get_rowstride (b);
400		833
401	guchar *pa = gdk_pixbuf_get_pixels (a);	834	guchar *pa = gdk_pixbuf_get_pixels (a);
402	guchar *pb = gdk_pixbuf_get_pixels (b);	835	guchar *pb = gdk_pixbuf_get_pixels (b);
…		…
426	d = ((int)pa_++) - ((int)pb_++); diff += d*d; peak = MAX (peak, abs (d));	859	d = ((int)pa_++) - ((int)pb_++); diff += d*d; peak = MAX (peak, abs (d));
427	d = ((int)pa_++) - ((int)pb_++); diff += d*d; peak = MAX (peak, abs (d));	860	d = ((int)pa_++) - ((int)pb_++); diff += d*d; peak = MAX (peak, abs (d));
428	}	861	}
429	}	862	}
430		863
		864	perlinterp_acquire ();
		865
431	EXTEND (SP, 2);	866	EXTEND (SP, 2);
432	PUSHs (sv_2mortal (newSVnv (sqrt (diff / (w * h * 3. * 255. * 255.)))));	867	PUSHs (sv_2mortal (newSVnv (sqrt (diff / (w * h * 3. * 255. * 255.)))));
433	PUSHs (sv_2mortal (newSVnv (peak / 255.)));	868	PUSHs (sv_2mortal (newSVnv (peak / 255.)));
434	}	869	}
435		870
436	#############################################################################	871	#############################################################################
437		872
438	MODULE = Gtk2::CV PACKAGE = Gtk2::CV::Schnauzer	873	MODULE = Gtk2::CV PACKAGE = Gtk2::CV::Schnauzer
439		874
		875	# currently only works for filenames (octet strings)
		876
440	SV *	877	SV *
441	foldcase (SV *pathsv)	878	foldcase (SV *pathsv)
442	PROTOTYPE: $	879	PROTOTYPE: $
443	CODE:	880	CODE:
444	{	881	{
445	STRLEN plen;	882	STRLEN plen;
446	U8 path = (U8 )SvPVutf8 (pathsv, plen);	883	U8 path = (U8 )SvPV (pathsv, plen);
447	U8 *pend = path + plen;	884	U8 *pend = path + plen;
448	U8 dst [plen * 6 * 3], *dstp = dst;	885	U8 dst [plen * 8 * 3], *dstp = dst;
449		886
450	while (path < pend)	887	while (path < pend)
451	{	888	{
452	U8 ch = *path;	889	U8 ch = *path;
453		890
454	if (ch >= 'a' && ch <= 'z')	891	if (ch >= 'a' && ch <= 'z')
455	dstp++ = path++;	892	dstp++ = path++;
		893	else if (ch >= 'A' && ch <= 'Z')
		894	dstp++ = path++ + ('a' - 'A');
456	else if (ch >= '0' && ch <= '9')	895	else if (ch >= '0' && ch <= '9')
457	{	896	{
		897	/* version sort, up to 8 digits */
458	STRLEN el, nl = 0;	898	STRLEN el, nl = 0;
459	while (path >= '0' && path <= '9' && path < pend)	899	while (path >= '0' && path <= '9' && path < pend)
460	path++, nl++;	900	path++, nl++;
461		901
462	for (el = nl; el < 6; el++)	902	for (el = nl; el < 8; el++)
463	*dstp++ = '0';	903	*dstp++ = '0';
464		904
465	memcpy (dstp, path - nl, nl);	905	memcpy (dstp, path - nl, nl);
466	dstp += nl;	906	dstp += nl;
467	}	907	}
		908	else
		909	dstp++ = path++;
		910	#if 0
468	else	911	else
469	{	912	{
470	STRLEN cl;	913	STRLEN cl;
471	to_utf8_fold (path, dstp, &cl);	914	to_utf8_fold (path, dstp, &cl);
472	dstp += cl;	915	dstp += cl;
473	path += is_utf8_char (path);	916	path += is_utf8_char (path);
474	}	917	}
		918	#endif
475	}	919	}
476		920
477	RETVAL = newSVpvn ((const char *)dst, dstp - dst);	921	RETVAL = newSVpvn ((const char *)dst, dstp - dst);
478	}	922	}
479	OUTPUT:	923	OUTPUT:
…		…
648	{	1092	{
649	int i;	1093	int i;
650	AV av, result;	1094	AV av, result;
651		1095
652	if (!SvROK (ar) \|\| SvTYPE (SvRV (ar)) != SVt_PVAV)	1096	if (!SvROK (ar) \|\| SvTYPE (SvRV (ar)) != SVt_PVAV)
653	croak ("Not an array ref as first argument to make_histogram");	1097	croak ("Not an array ref as first argument to extract_features");
654		1098
655	av = (AV *) SvRV (ar);	1099	av = (AV *) SvRV (ar);
656	result = newAV ();	1100	result = newAV ();
657		1101
658	for (i = 0; i <= av_len (av); ++i)	1102	for (i = 0; i <= av_len (av); ++i)
…		…
711	feature_finish_pass_2 (&f_v);	1155	feature_finish_pass_2 (&f_v);
712	}	1156	}
713		1157
714	hist [0] = f_h.v1 * 2.; hist [1] = f_h.v2 * 2.; hist [2] = f_h.v3 * 2.;	1158	hist [0] = f_h.v1 * 2.; hist [1] = f_h.v2 * 2.; hist [2] = f_h.v3 * 2.;
715	hist [3] = f_s.v1 ; hist [4] = f_s.v2 ; hist [5] = f_s.v3 ;	1159	hist [3] = f_s.v1 ; hist [4] = f_s.v2 ; hist [5] = f_s.v3 ;
716	hist [6] = f_v.v1 ; hist [7] = f_v.v2 ; hist [8] = f_v.v3 ;	1160	hist [6] = f_v.v1 * .5; hist [7] = f_v.v2 * .5; hist [8] = f_v.v3 * .5;
717		1161
718	av_push (result, histsv);	1162	av_push (result, histsv);
719	}	1163	}
720		1164
721	RETVAL = newRV_noinc ((SV *)result);	1165	RETVAL = newRV_noinc ((SV *)result);
722	}	1166	}
723	OUTPUT:	1167	OUTPUT:
724	RETVAL	1168	RETVAL
725		1169
726	SV *
727	make_histograms (SV *ar)
728	CODE:
729	{
730	int i;
731	AV av, result;
732
733	if (!SvROK (ar) \|\| SvTYPE (SvRV (ar)) != SVt_PVAV)
734	croak ("Not an array ref as first argument to make_histogram");
735
736	av = (AV *) SvRV (ar);
737	result = newAV ();
738
739	for (i = 0; i <= av_len (av); ++i)
740	{
741	const int HISTSIZE = 64;
742
743	int j;
744	SV sv = av_fetch (av, i, 1);
745	STRLEN len;
746	char *buf = SvPVbyte (sv, len);
747
748	int tmphist[HISTSIZE];
749	float *hist;
750
751	SV histsv = newSV (HISTSIZE sizeof (float) + 1);
752	SvPOK_on (histsv);
753	SvCUR_set (histsv, HISTSIZE * sizeof (float));
754	hist = (float *)SvPVX (histsv);
755
756	Zero (tmphist, sizeof (tmphist), char);
757
758	for (j = len; j--; )
759	{
760	unsigned int idx
761	= ((*buf & 0xc0) >> 2)
762	\| ((*buf & 0x18) >> 1)
763	\| (*buf & 0x03);
764
765	++tmphist[idx];
766	++buf;
767	}
768
769	for (j = 0; j < HISTSIZE; ++j)
770	hist[j] = (float)tmphist[j] / (len + 1e-30);
771
772	av_push (result, histsv);
773	}
774
775	RETVAL = newRV_noinc ((SV *)result);
776	}
777	OUTPUT:
778	RETVAL
779
780

Diff Legend

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

Comparing CV/CV.xs (file contents): Revision 1.37 by root, Thu Jun 22 22:01:26 2006 UTC vs. Revision 1.61 by root, Sun Jul 25 11:24:48 2021 UTC

Diff Legend

Comparing CV/CV.xs (file contents):
Revision 1.37 by root, Thu Jun 22 22:01:26 2006 UTC vs.
Revision 1.61 by root, Sun Jul 25 11:24:48 2021 UTC