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

Comparing CV/CV.xs (file contents):
Revision 1.52 by root, Sat Dec 23 04:25:50 2017 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>
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);
…		…
310	: angle);	411	: angle);
311	perlinterp_acquire ();	412	perlinterp_acquire ();
312	OUTPUT:	413	OUTPUT:
313	RETVAL	414	RETVAL
314		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
315	GdkPixbuf_noinc *	491	GdkPixbuf_noinc *
316	decode_webp (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)	492	decode_webp (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
317	CODE:	493	CODE:
318	{	494	{
319	#if WEBP	495	#if WEBP
320	guchar *data;
321	STRLEN data_size;	496	STRLEN data_size;
322	int alpha;	497	int alpha;
		498	WebPData data;
		499	WebPDemuxer *demux;
		500	WebPIterator iter;
323	WebPDecoderConfig config;	501	WebPDecoderConfig config;
324	int inw, inh;	502	int inw, inh;
325		503
326	data = SvPVbyte (image_data, data_size);	504	data.bytes = (uint8_t *)SvPVbyte (image_data, data_size);
		505	data.size = data_size;
327		506
328	perlinterp_release ();	507	perlinterp_release ();
329		508
330	RETVAL = 0;	509	RETVAL = 0;
331		510
		511	if (!(demux = WebPDemux (&data)))
		512	goto err_demux;
		513
		514	if (!WebPDemuxGetFrame (demux, 1, &iter))
		515	goto err_iter;
		516
332	if (!WebPInitDecoderConfig (&config))	517	if (!WebPInitDecoderConfig (&config))
333	goto err;	518	goto err_iter;
334		519
335	config.options.use_threads = 1;	520	config.options.use_threads = 1;
336		521
337	if (WebPGetFeatures (data, data_size, &config.input) != VP8_STATUS_OK)	522	if (WebPGetFeatures (iter.fragment.bytes, iter.fragment.size, &config.input) != VP8_STATUS_OK)
338	goto err;	523	goto err_iter;
339		524
340	inw = config.input.width;	525	inw = config.input.width;
341	inh = config.input.height;	526	inh = config.input.height;
342		527
343	if (thumbnail)	528	if (thumbnail)
…		…
358	{	543	{
359	iw = inw;	544	iw = inw;
360	ih = inh;	545	ih = inh;
361	}	546	}
362		547
363	alpha = config.input.has_alpha;	548	alpha = !!config.input.has_alpha;
364		549
365	RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, !!alpha, 8, iw, ih);	550	RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, alpha, 8, iw, ih);
366	if (!RETVAL)	551	if (!RETVAL)
367	goto err;	552	goto err_iter;
368		553
369	config.output.colorspace = alpha ? MODE_RGBA : MODE_RGB;	554	config.output.colorspace = alpha ? MODE_RGBA : MODE_RGB;
370	config.output.u.RGBA.rgba = gdk_pixbuf_get_pixels (RETVAL);	555	config.output.u.RGBA.rgba = gdk_pixbuf_get_pixels (RETVAL);
371	config.output.u.RGBA.stride = gdk_pixbuf_get_rowstride (RETVAL);	556	config.output.u.RGBA.stride = gdk_pixbuf_get_rowstride (RETVAL);
372	config.output.u.RGBA.size = gdk_pixbuf_get_byte_length (RETVAL);	557	config.output.u.RGBA.size = gdk_pixbuf_get_byte_length (RETVAL);
373	config.output.is_external_memory = 1;	558	config.output.is_external_memory = 1;
374		559
375	if (WebPDecode (data, data_size, &config) != VP8_STATUS_OK)	560	if (WebPDecode (iter.fragment.bytes, iter.fragment.size, &config) != VP8_STATUS_OK)
376	{	561	{
377	g_object_unref (RETVAL);	562	g_object_unref (RETVAL);
378	RETVAL = 0;	563	RETVAL = 0;
379	goto err;	564	goto err_iter;
380	}	565	}
381		566
382	err:	567	err_iter:
		568	WebPDemuxReleaseIterator (&iter);
		569	err_demux:
		570	WebPDemuxDelete (demux);
		571
383	perlinterp_acquire ();	572	perlinterp_acquire ();
384	#else	573	#else
385	croak ("load_webp: webp not enabled at compile time");	574	croak ("load_webp: webp not enabled at compile time");
386	#endif	575	#endif
387	}	576	}
388	OUTPUT:	577	OUTPUT:
389	RETVAL	578	RETVAL
390		579
391	GdkPixbuf_noinc *	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 *
392	load_jpeg (SV *path, int thumbnail = 0, int iw = 0, int ih = 0)	693	decode_jpeg (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
393	CODE:	694	CODE:
394	{	695	{
395	struct jpeg_decompress_struct cinfo;	696	struct jpeg_decompress_struct cinfo;
396	struct jpg_err_mgr jerr;	697	struct jpg_err_mgr jerr;
397	guchar *data;
398	int rs;	698	int rs;
399	FILE *fp;
400	volatile GdkPixbuf *pb = 0;	699	volatile GdkPixbuf *pb = 0;
		700	STRLEN data_len;
		701	guchar *data = SvPVbyte (image_data, data_len);
401		702
402	RETVAL = 0;	703	RETVAL = 0;
403
404	fp = fopen (SvPVbyte_nolen (path), "rb");
405
406	if (!fp)
407	XSRETURN_UNDEF;
408		704
409	perlinterp_release ();	705	perlinterp_release ();
410		706
411	cinfo.err = jpeg_std_error (&jerr.err);	707	cinfo.err = jpeg_std_error (&jerr.err);
412		708
413	jerr.err.error_exit = cv_error_exit;	709	jerr.err.error_exit = cv_error_exit;
414	jerr.err.output_message = cv_error_output;	710	jerr.err.output_message = cv_error_output;
415		711
416	if ((rs = setjmp (jerr.setjmp_buffer)))	712	if ((rs = setjmp (jerr.setjmp_buffer)))
417	{	713	{
418	fclose (fp);
419	jpeg_destroy_decompress (&cinfo);	714	jpeg_destroy_decompress (&cinfo);
420		715
421	if (pb)	716	if (pb)
422	g_object_unref ((gpointer)pb);	717	g_object_unref ((gpointer)pb);
423		718
424	perlinterp_acquire ();	719	perlinterp_acquire ();
425	XSRETURN_UNDEF;	720	XSRETURN_UNDEF;
426	}	721	}
427		722
		723	if (!data_len)
		724	longjmp (jerr.setjmp_buffer, 4);
		725
428	jpeg_create_decompress (&cinfo);	726	jpeg_create_decompress (&cinfo);
		727	cv_jpeg_mem_src (&cinfo, data, data_len);
429		728
430	jpeg_stdio_src (&cinfo, fp);
431	jpeg_read_header (&cinfo, TRUE);	729	jpeg_read_header (&cinfo, TRUE);
432		730
433	cinfo.dct_method = JDCT_DEFAULT;	731	cinfo.dct_method = JDCT_DEFAULT;
434	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 */
435	cinfo.do_block_smoothing = FALSE;	733	cinfo.do_block_smoothing = FALSE;
…		…
514	data += 4;	812	data += 4;
515	}	813	}
516	}	814	}
517		815
518	jpeg_finish_decompress (&cinfo);	816	jpeg_finish_decompress (&cinfo);
519	fclose (fp);
520	jpeg_destroy_decompress (&cinfo);	817	jpeg_destroy_decompress (&cinfo);
521	perlinterp_acquire ();	818	perlinterp_acquire ();
522	}	819	}
523	OUTPUT:	820	OUTPUT:
524	RETVAL	821	RETVAL
…		…
583	CODE:	880	CODE:
584	{	881	{
585	STRLEN plen;	882	STRLEN plen;
586	U8 path = (U8 )SvPV (pathsv, plen);	883	U8 path = (U8 )SvPV (pathsv, plen);
587	U8 *pend = path + plen;	884	U8 *pend = path + plen;
588	U8 dst [plen * 6 * 3], *dstp = dst;	885	U8 dst [plen * 8 * 3], *dstp = dst;
589		886
590	while (path < pend)	887	while (path < pend)
591	{	888	{
592	U8 ch = *path;	889	U8 ch = *path;
593		890
…		…
595	dstp++ = path++;	892	dstp++ = path++;
596	else if (ch >= 'A' && ch <= 'Z')	893	else if (ch >= 'A' && ch <= 'Z')
597	dstp++ = path++ + ('a' - 'A');	894	dstp++ = path++ + ('a' - 'A');
598	else if (ch >= '0' && ch <= '9')	895	else if (ch >= '0' && ch <= '9')
599	{	896	{
		897	/* version sort, up to 8 digits */
600	STRLEN el, nl = 0;	898	STRLEN el, nl = 0;
601	while (path >= '0' && path <= '9' && path < pend)	899	while (path >= '0' && path <= '9' && path < pend)
602	path++, nl++;	900	path++, nl++;
603		901
604	for (el = nl; el < 6; el++)	902	for (el = nl; el < 8; el++)
605	*dstp++ = '0';	903	*dstp++ = '0';
606		904
607	memcpy (dstp, path - nl, nl);	905	memcpy (dstp, path - nl, nl);
608	dstp += nl;	906	dstp += nl;
609	}	907	}

Diff Legend

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

Comparing CV/CV.xs (file contents): Revision 1.52 by root, Sat Dec 23 04:25:50 2017 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.52 by root, Sat Dec 23 04:25:50 2017 UTC vs.
Revision 1.61 by root, Sun Jul 25 11:24:48 2021 UTC