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

Comparing CV/CV.xs (file contents):
Revision 1.51 by root, Sat Dec 23 04:11:49 2017 UTC vs.
Revision 1.58 by root, Mon Jan 4 04:49:04 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>
14	#include <gdk/gdkx.h>	16	#include <gdk/gdkx.h>
15	#include <gdk-pixbuf/gdk-pixbuf.h>	17	#include <gdk-pixbuf/gdk-pixbuf.h>
16		18
…		…
18	#include <gtk2perl.h>	20	#include <gtk2perl.h>
19		21
20	#include <assert.h>	22	#include <assert.h>
21		23
22	#if WEBP	24	#if WEBP
		25	#include <webp/demux.h>
23	#include <webp/decode.h>	26	#include <webp/decode.h>
24	#endif	27	#endif
25		28
		29	#if JXL
		30	#include <jxl/decode.h>
		31	#include "jxl/thread_parallel_runner.h"
		32	#endif
		33
26	#include "perlmulticore.h"	34	#include "perlmulticore.h"
27		35
28	#define IW 80 /* MUST match Schnauzer.pm! */	36	#define IW 80 /* MUST match Schnauzer.pm! */
29	#define IH 60 /* MUST match Schnauzer.pm! */	37	#define IH 60 /* MUST match Schnauzer.pm! */
30
31	#define RAND (seed = (seed + 7141) * 54773 % 134456)
32		38
33	#define LINELENGTH 240	39	#define LINELENGTH 240
34		40
35	#define ELLIPSIS "\xe2\x80\xa6"	41	#define ELLIPSIS "\xe2\x80\xa6"
36		42
…		…
198		204
199	PerlIO_write (fp, a85_buf, a85_ptr - a85_buf);	205	PerlIO_write (fp, a85_buf, a85_ptr - a85_buf);
200	}	206	}
201		207
202	/////////////////////////////////////////////////////////////////////////////	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	/////////////////////////////////////////////////////////////////////////////
203		303
204	MODULE = Gtk2::CV PACKAGE = Gtk2::CV	304	MODULE = Gtk2::CV PACKAGE = Gtk2::CV
205		305
206	PROTOTYPES: ENABLE	306	PROTOTYPES: ENABLE
207		307
		308	# calculate the common prefix length of two strings
208	# missing function in perl. really :)	309	# missing function in perl. really :)
209	int	310	int
210	common_prefix_length (a, b)	311	common_prefix_length (a, b)
211	unsigned char a = (unsigned char )SvPVutf8_nolen ($arg);	312	unsigned char a = (unsigned char )SvPVutf8_nolen ($arg);
212	unsigned char b = (unsigned char )SvPVutf8_nolen ($arg);	313	unsigned char b = (unsigned char )SvPVutf8_nolen ($arg);
…		…
232	CODE:	333	CODE:
233	{	334	{
234	STRLEN len;	335	STRLEN len;
235	char *data = SvPVbyte (path_or_data, len);	336	char *data = SvPVbyte (path_or_data, len);
236		337
237	perlinterp_release ();
238
239	if (!magic_cookie[0])	338	if (!magic_cookie[0])
240	{	339	{
241	magic_cookie[0] = magic_open (MAGIC_SYMLINK);	340	magic_cookie[0] = magic_open (MAGIC_SYMLINK);
242	magic_cookie[1] = magic_open (MAGIC_SYMLINK \| MAGIC_MIME);	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);
243	}	344	}
		345
		346	perlinterp_release ();
244		347
245	RETVAL = ix & 2	348	RETVAL = ix & 2
246	? magic_buffer (magic_cookie[ix], data, len)	349	? magic_buffer (magic_cookie[ix & 1], data, len)
247	: magic_file (magic_cookie[ix], data);	350	: magic_file (magic_cookie[ix & 1], data);
248		351
249	perlinterp_acquire ();	352	perlinterp_acquire ();
250	}	353	}
251	OUTPUT:	354	OUTPUT:
252	RETVAL	355	RETVAL
…		…
308	: angle);	411	: angle);
309	perlinterp_acquire ();	412	perlinterp_acquire ();
310	OUTPUT:	413	OUTPUT:
311	RETVAL	414	RETVAL
312		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
		457	XSRETURN_UNDEF;
		458	}
		459	OUTPUT:
		460	RETVAL
		461
313	GdkPixbuf_noinc *	462	GdkPixbuf_noinc *
314	decode_webp (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)	463	decode_webp (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
315	CODE:	464	CODE:
316	{	465	{
317	#if WEBP	466	#if WEBP
318	guchar *data;
319	STRLEN data_size;	467	STRLEN data_size;
320	int alpha;	468	int alpha;
		469	WebPData data;
		470	WebPDemuxer *demux;
		471	WebPIterator iter;
321	WebPDecoderConfig config;	472	WebPDecoderConfig config;
322	int inw, inh;	473	int inw, inh;
323		474
324	data = SvPVbyte (image_data, data_size);	475	data.bytes = (uint8_t *)SvPVbyte (image_data, data_size);
		476	data.size = data_size;
325		477
326	perlinterp_release ();	478	perlinterp_release ();
327		479
328	RETVAL = 0;	480	RETVAL = 0;
329		481
		482	if (!(demux = WebPDemux (&data)))
		483	goto err_demux;
		484
		485	if (!WebPDemuxGetFrame (demux, 1, &iter))
		486	goto err_iter;
		487
330	if (!WebPInitDecoderConfig (&config))	488	if (!WebPInitDecoderConfig (&config))
331	goto err;	489	goto err_iter;
332		490
333	config.options.use_threads = 1;	491	config.options.use_threads = 1;
334		492
335	if (WebPGetFeatures (data, data_size, &config.input) != VP8_STATUS_OK)	493	if (WebPGetFeatures (iter.fragment.bytes, iter.fragment.size, &config.input) != VP8_STATUS_OK)
336	goto err;	494	goto err_iter;
337		495
338	inw = config.input.width;	496	inw = config.input.width;
339	inh = config.input.height;	497	inh = config.input.height;
340		498
341	if (thumbnail)	499	if (thumbnail)
…		…
356	{	514	{
357	iw = inw;	515	iw = inw;
358	ih = inh;	516	ih = inh;
359	}	517	}
360		518
361	alpha = config.input.has_alpha;	519	alpha = !!config.input.has_alpha;
362		520
363	RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, !!alpha, 8, iw, ih);	521	RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, alpha, 8, iw, ih);
364	if (!RETVAL)	522	if (!RETVAL)
365	goto err;	523	goto err_iter;
366		524
367	config.output.colorspace = alpha ? MODE_RGBA : MODE_RGB;	525	config.output.colorspace = alpha ? MODE_RGBA : MODE_RGB;
368	config.output.u.RGBA.rgba = gdk_pixbuf_get_pixels (RETVAL);	526	config.output.u.RGBA.rgba = gdk_pixbuf_get_pixels (RETVAL);
369	config.output.u.RGBA.stride = gdk_pixbuf_get_rowstride (RETVAL);	527	config.output.u.RGBA.stride = gdk_pixbuf_get_rowstride (RETVAL);
370	config.output.u.RGBA.size = gdk_pixbuf_get_byte_length (RETVAL);	528	config.output.u.RGBA.size = gdk_pixbuf_get_byte_length (RETVAL);
371	config.output.is_external_memory = 1;	529	config.output.is_external_memory = 1;
372		530
373	if (WebPDecode (data, data_size, &config) != VP8_STATUS_OK)	531	if (WebPDecode (iter.fragment.bytes, iter.fragment.size, &config) != VP8_STATUS_OK)
374	{	532	{
375	g_object_unref (RETVAL);	533	g_object_unref (RETVAL);
376	RETVAL = 0;	534	RETVAL = 0;
377	goto err;	535	goto err_iter;
378	}	536	}
379		537
380	err:	538	err_iter:
		539	WebPDemuxReleaseIterator (&iter);
		540	err_demux:
		541	WebPDemuxDelete (demux);
		542
381	perlinterp_acquire ();	543	perlinterp_acquire ();
382	#else	544	#else
383	croak ("load_webp: webp not enabled at compile time");	545	croak ("load_webp: webp not enabled at compile time");
384	#endif	546	#endif
385	}	547	}
386	OUTPUT:	548	OUTPUT:
387	RETVAL	549	RETVAL
388		550
389	GdkPixbuf_noinc *	551	GdkPixbuf_noinc *
		552	decode_jxl (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
		553	CODE:
		554	{
		555	#if JXL
		556	JxlDecoder *dec = JxlDecoderCreate (0);
		557	JxlBasicInfo info;
		558	const uint8_t next_in = (uint8_t )SvPVbyte_nolen (image_data);
		559	size_t avail_in = SvCUR (image_data);
		560	const char *error = 0;
		561	void *runner = 0;
		562	struct bmff_box box;
		563
		564	perlinterp_release ();
		565
		566	RETVAL = 0;
		567
		568	error = "JxlDecoderCreate failed";
		569	if (!dec)
		570	goto done;
		571
		572	runner = JxlThreadParallelRunnerCreate (0, JxlThreadParallelRunnerDefaultNumWorkerThreads ());
		573
		574	error = "JxlDecoderSetParallelRunner failed";
		575	if (JxlDecoderSetParallelRunner (dec, JxlThreadParallelRunner, runner) != JXL_DEC_SUCCESS)
		576	goto done;
		577
		578	error = "JxlDecoderSubscribeEvents failed";
		579	if (JxlDecoderSubscribeEvents (dec, JXL_DEC_FULL_IMAGE \| 0xffc0) != JXL_DEC_SUCCESS)
		580	goto done;
		581
		582	for (;;)
		583	{
		584	JxlDecoderStatus status = JxlDecoderProcessInput (dec, &next_in, &avail_in);
		585
		586	printf ("status %d\n",status);
		587
		588	switch (status)
		589	{
		590	case JXL_DEC_ERROR:
		591	error = "JxlDecoderProcessInput failed";
		592	goto done;
		593
		594	case JXL_DEC_NEED_MORE_INPUT:
		595	error = "incomplete file";
		596	goto done;
		597
		598	case JXL_DEC_SUCCESS:
		599	goto done;
		600
		601	case JXL_DEC_NEED_IMAGE_OUT_BUFFER:
		602	{
		603	error = "JxlDecoderGetBasicInfo failed";
		604	if (JxlDecoderGetBasicInfo (dec, &info) != JXL_DEC_SUCCESS)
		605	goto done;
		606
		607	RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, !!info.alpha_bits, 8, info.xsize, info.ysize);
		608	error = "unable to allocate pixbuf";
		609	if (!RETVAL)
		610	goto done;
		611
		612	JxlPixelFormat format = {
		613	info.alpha_bits ? 4 : 3,
		614	JXL_TYPE_UINT8,
		615	JXL_NATIVE_ENDIAN,
		616	gdk_pixbuf_get_rowstride (RETVAL)
		617	};
		618
		619	error = "JxlDecoderSetImageOutBuffer failed";
		620	if (JxlDecoderSetImageOutBuffer (
		621	dec,
		622	&format,
		623	gdk_pixbuf_get_pixels (RETVAL),
		624	gdk_pixbuf_get_byte_length (RETVAL)
		625	) != JXL_DEC_SUCCESS)
		626	goto done;
		627	}
		628	break;
		629
		630	default:
		631	error = "unexpected event";
		632	goto done;
		633	}
		634	}
		635
		636	done:
		637	if (dec)
		638	JxlDecoderDestroy (dec);
		639
		640	if (runner)
		641	JxlThreadParallelRunnerDestroy (runner);
		642
		643	perlinterp_acquire ();
		644
		645	if (error)
		646	{
		647	if (RETVAL)
		648	g_object_unref (RETVAL);
		649
		650	croak ("load_jxl: %s", error);
		651	}
		652	#else
		653	croak ("load_jxl: jpeg-xl not enabled at compile time");
		654	#endif
		655	}
		656	OUTPUT:
		657	RETVAL
		658
		659	GdkPixbuf_noinc *
390	load_jpeg (SV *path, int thumbnail = 0, int iw = 0, int ih = 0)	660	decode_jpeg (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
391	CODE:	661	CODE:
392	{	662	{
393	struct jpeg_decompress_struct cinfo;	663	struct jpeg_decompress_struct cinfo;
394	struct jpg_err_mgr jerr;	664	struct jpg_err_mgr jerr;
395	guchar *data;
396	int rs;	665	int rs;
397	FILE *fp;
398	volatile GdkPixbuf *pb = 0;	666	volatile GdkPixbuf *pb = 0;
		667	STRLEN data_len;
		668	guchar *data = SvPVbyte (image_data, data_len);
399		669
400	RETVAL = 0;	670	RETVAL = 0;
401
402	fp = fopen (SvPVbyte_nolen (path), "rb");
403
404	if (!fp)
405	XSRETURN_UNDEF;
406		671
407	perlinterp_release ();	672	perlinterp_release ();
408		673
409	cinfo.err = jpeg_std_error (&jerr.err);	674	cinfo.err = jpeg_std_error (&jerr.err);
410		675
411	jerr.err.error_exit = cv_error_exit;	676	jerr.err.error_exit = cv_error_exit;
412	jerr.err.output_message = cv_error_output;	677	jerr.err.output_message = cv_error_output;
413		678
414	if ((rs = setjmp (jerr.setjmp_buffer)))	679	if ((rs = setjmp (jerr.setjmp_buffer)))
415	{	680	{
416	fclose (fp);
417	jpeg_destroy_decompress (&cinfo);	681	jpeg_destroy_decompress (&cinfo);
418		682
419	if (pb)	683	if (pb)
420	g_object_unref ((gpointer)pb);	684	g_object_unref ((gpointer)pb);
421		685
422	perlinterp_acquire ();	686	perlinterp_acquire ();
423	XSRETURN_UNDEF;	687	XSRETURN_UNDEF;
424	}	688	}
425		689
		690	if (!data_len)
		691	longjmp (jerr.setjmp_buffer, 4);
		692
426	jpeg_create_decompress (&cinfo);	693	jpeg_create_decompress (&cinfo);
		694	cv_jpeg_mem_src (&cinfo, data, data_len);
427		695
428	jpeg_stdio_src (&cinfo, fp);
429	jpeg_read_header (&cinfo, TRUE);	696	jpeg_read_header (&cinfo, TRUE);
430		697
431	cinfo.dct_method = JDCT_DEFAULT;	698	cinfo.dct_method = JDCT_DEFAULT;
432	cinfo.do_fancy_upsampling = FALSE; /* worse quality, but nobody compained so far, and gdk-pixbuf does the same */	699	cinfo.do_fancy_upsampling = FALSE; /* worse quality, but nobody compained so far, and gdk-pixbuf does the same */
433	cinfo.do_block_smoothing = FALSE;	700	cinfo.do_block_smoothing = FALSE;
…		…
512	data += 4;	779	data += 4;
513	}	780	}
514	}	781	}
515		782
516	jpeg_finish_decompress (&cinfo);	783	jpeg_finish_decompress (&cinfo);
517	fclose (fp);
518	jpeg_destroy_decompress (&cinfo);	784	jpeg_destroy_decompress (&cinfo);
519	perlinterp_acquire ();	785	perlinterp_acquire ();
520	}	786	}
521	OUTPUT:	787	OUTPUT:
522	RETVAL	788	RETVAL

Diff Legend

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

Comparing CV/CV.xs (file contents): Revision 1.51 by root, Sat Dec 23 04:11:49 2017 UTC vs. Revision 1.58 by root, Mon Jan 4 04:49:04 2021 UTC

Diff Legend

Comparing CV/CV.xs (file contents):
Revision 1.51 by root, Sat Dec 23 04:11:49 2017 UTC vs.
Revision 1.58 by root, Mon Jan 4 04:49:04 2021 UTC