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

Comparing CV/CV.xs (file contents):
Revision 1.50 by root, Sat Dec 23 03:30:28 2017 UTC vs.
Revision 1.60 by root, Thu Jul 15 00:41:44 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		38
31	#define RAND (seed = (seed + 7141) * 54773 % 134456)
32
33	#define LINELENGTH 240	39	#define LINELENGTH 240
34		40
35	#define ELLIPSIS "\xe2\x80\xa6"	41	#define ELLIPSIS "\xe2\x80\xa6"
36		42
37	typedef char *octet_string;	43	typedef char *octet_string;
		44
		45	static magic_t magic_cookie[2]; /* !mime, mime */
38		46
39	struct jpg_err_mgr	47	struct jpg_err_mgr
40	{	48	{
41	struct jpeg_error_mgr err;	49	struct jpeg_error_mgr err;
42	jmp_buf setjmp_buffer;	50	jmp_buf setjmp_buffer;
…		…
196		204
197	PerlIO_write (fp, a85_buf, a85_ptr - a85_buf);	205	PerlIO_write (fp, a85_buf, a85_ptr - a85_buf);
198	}	206	}
199		207
200	/////////////////////////////////////////////////////////////////////////////	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	/////////////////////////////////////////////////////////////////////////////
201		303
202	MODULE = Gtk2::CV PACKAGE = Gtk2::CV	304	MODULE = Gtk2::CV PACKAGE = Gtk2::CV
203		305
204	PROTOTYPES: ENABLE	306	PROTOTYPES: ENABLE
205		307
		308	# calculate the common prefix length of two strings
206	# missing function in perl. really :)	309	# missing function in perl. really :)
207	int	310	int
208	common_prefix_length (a, b)	311	common_prefix_length (a, b)
209	unsigned char a = (unsigned char )SvPVutf8_nolen ($arg);	312	unsigned char a = (unsigned char )SvPVutf8_nolen ($arg);
210	unsigned char b = (unsigned char )SvPVutf8_nolen ($arg);	313	unsigned char b = (unsigned char )SvPVutf8_nolen ($arg);
…		…
219		322
220	OUTPUT:	323	OUTPUT:
221	RETVAL	324	RETVAL
222		325
223	const char *	326	const char *
224	magic (octet_string 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
225	CODE:	333	CODE:
226	{	334	{
227	static magic_t cookie;	335	STRLEN len;
		336	char *data = SvPVbyte (path_or_data, len);
228		337
229	if (!cookie)	338	if (!magic_cookie[0])
230	{	339	{
231	cookie = magic_open (MAGIC_SYMLINK);	340	magic_cookie[0] = magic_open (MAGIC_SYMLINK);
232		341	magic_cookie[1] = magic_open (MAGIC_SYMLINK \| MAGIC_MIME_TYPE);
233	if (cookie)
234	magic_load (cookie, 0);	342	magic_load (magic_cookie[0], 0);
235	else
236	XSRETURN_UNDEF;
237	}
238
239	RETVAL = magic_file (cookie, path);
240	}
241	OUTPUT:
242	RETVAL
243
244	const char *
245	magic_mime (octet_string path)
246	CODE:
247	{
248	static magic_t cookie;
249
250	if (!cookie)
251	{
252	cookie = magic_open (MAGIC_MIME \| MAGIC_SYMLINK);
253
254	if (cookie)
255	magic_load (cookie, 0);	343	magic_load (magic_cookie[1], 0);
256	else
257	XSRETURN_UNDEF;
258	}	344	}
259		345
260	perlinterp_release ();	346	perlinterp_release ();
261	RETVAL = magic_file (cookie, path);	347
		348	RETVAL = ix & 2
		349	? magic_buffer (magic_cookie[ix & 1], data, len)
		350	: magic_file (magic_cookie[ix & 1], data);
		351
262	perlinterp_acquire ();	352	perlinterp_acquire ();
263	}	353	}
264	OUTPUT:	354	OUTPUT:
265	RETVAL	355	RETVAL
266		356
…		…
321	: angle);	411	: angle);
322	perlinterp_acquire ();	412	perlinterp_acquire ();
323	OUTPUT:	413	OUTPUT:
324	RETVAL	414	RETVAL
325		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
326	GdkPixbuf_noinc *	462	GdkPixbuf_noinc *
327	load_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)
328	CODE:	464	CODE:
329	{	465	{
330	#if WEBP	466	#if WEBP
331	STRLEN data_size;	467	STRLEN data_size;
332	guchar *data = SvPVbyte (image_data, data_size);
333	int alpha;	468	int alpha;
		469	WebPData data;
		470	WebPDemuxer *demux;
		471	WebPIterator iter;
334	WebPDecoderConfig config;	472	WebPDecoderConfig config;
		473	int inw, inh;
		474
		475	data.bytes = (uint8_t *)SvPVbyte (image_data, data_size);
		476	data.size = data_size;
335		477
336	perlinterp_release ();	478	perlinterp_release ();
337		479
338	RETVAL = 0;	480	RETVAL = 0;
339		481
		482	if (!(demux = WebPDemux (&data)))
		483	goto err_demux;
		484
		485	if (!WebPDemuxGetFrame (demux, 1, &iter))
		486	goto err_iter;
		487
340	if (!WebPInitDecoderConfig (&config))	488	if (!WebPInitDecoderConfig (&config))
341	goto err;	489	goto err_iter;
342		490
343	config.options.use_threads = 1;	491	config.options.use_threads = 1;
		492
		493	if (WebPGetFeatures (iter.fragment.bytes, iter.fragment.size, &config.input) != VP8_STATUS_OK)
		494	goto err_iter;
		495
		496	inw = config.input.width;
		497	inh = config.input.height;
344		498
345	if (thumbnail)	499	if (thumbnail)
346	{	500	{
		501	if (inw * ih > inh * iw)
		502	ih = (iw * inh + inw - 1) / inw;
		503	else
		504	iw = (ih * inw + inh - 1) / inh;
		505
347	config.options.bypass_filtering = 1;	506	config.options.bypass_filtering = 1;
348	config.options.no_fancy_upsampling = 1;	507	config.options.no_fancy_upsampling = 1;
349		508
350	config.options.use_scaling = 1;	509	config.options.use_scaling = 1;
351	config.options.scaled_width = iw;	510	config.options.scaled_width = iw;
352	config.options.scaled_height = ih;	511	config.options.scaled_height = ih;
353	}	512	}
354	else	513	else
355	{	514	{
356	iw = config.input.width;	515	iw = inw;
357	ih = config.input.height;	516	ih = inh;
358	}	517	}
359		518
360	if (WebPGetFeatures (data, data_size, &config.input) != VP8_STATUS_OK)
361	goto err;
362
363	alpha = config.input.has_alpha;	519	alpha = !!config.input.has_alpha;
364		520
365	RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, !!alpha, 8, iw, ih);	521	RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, alpha, 8, iw, ih);
366	if (!RETVAL)	522	if (!RETVAL)
367	goto err;	523	goto err_iter;
368		524
369	config.output.colorspace = alpha ? MODE_RGBA : MODE_RGB;	525	config.output.colorspace = alpha ? MODE_RGBA : MODE_RGB;
370	config.output.u.RGBA.rgba = gdk_pixbuf_get_pixels (RETVAL);	526	config.output.u.RGBA.rgba = gdk_pixbuf_get_pixels (RETVAL);
371	config.output.u.RGBA.stride = gdk_pixbuf_get_rowstride (RETVAL);	527	config.output.u.RGBA.stride = gdk_pixbuf_get_rowstride (RETVAL);
372	config.output.u.RGBA.size = gdk_pixbuf_get_byte_length (RETVAL);	528	config.output.u.RGBA.size = gdk_pixbuf_get_byte_length (RETVAL);
373	config.output.is_external_memory = 1;	529	config.output.is_external_memory = 1;
374		530
375	if (WebPDecode (data, data_size, &config) != VP8_STATUS_OK)	531	if (WebPDecode (iter.fragment.bytes, iter.fragment.size, &config) != VP8_STATUS_OK)
376	{	532	{
377	g_object_unref (RETVAL);	533	g_object_unref (RETVAL);
378	RETVAL = 0;	534	RETVAL = 0;
379	goto err;	535	goto err_iter;
380	}	536	}
381		537
382	err:	538	err_iter:
		539	WebPDemuxReleaseIterator (&iter);
		540	err_demux:
		541	WebPDemuxDelete (demux);
		542
383	perlinterp_acquire ();	543	perlinterp_acquire ();
384	#else	544	#else
385	croak ("load_webp: webp not enabled at compile time");	545	croak ("load_webp: webp not enabled at compile time");
386	#endif	546	#endif
387	}	547	}
388	OUTPUT:	548	OUTPUT:
389	RETVAL	549	RETVAL
390		550
391	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 \| JXL_DEC_BASIC_INFO) != JXL_DEC_SUCCESS)
		580	goto done;
		581
		582	error = "JxlDecoderSetInput failed";
		583	if (JxlDecoderSetInput (dec, next_in, avail_in) != JXL_DEC_SUCCESS)
		584	goto done;
		585
		586	for (;;)
		587	{
		588	JxlDecoderStatus status = JxlDecoderProcessInput (dec);
		589
		590	printf ("status %d\n",status);
		591
		592	switch (status)
		593	{
		594	case JXL_DEC_ERROR:
		595	error = "JxlDecoderProcessInput failed";
		596	goto done;
		597
		598	case JXL_DEC_NEED_MORE_INPUT:
		599	error = "incomplete file";
		600	goto done;
		601
		602	case JXL_DEC_SUCCESS:
		603	goto done;
		604
		605	case JXL_DEC_NEED_IMAGE_OUT_BUFFER:
		606	{
		607	error = "JxlDecoderGetBasicInfo failed";
		608	if (JxlDecoderGetBasicInfo (dec, &info) != JXL_DEC_SUCCESS)
		609	goto done;
		610
		611	RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, !!info.alpha_bits, 8, info.xsize, info.ysize);
		612	error = "unable to allocate pixbuf";
		613	if (!RETVAL)
		614	goto done;
		615
		616	JxlPixelFormat format = {
		617	info.alpha_bits ? 4 : 3,
		618	JXL_TYPE_UINT8,
		619	JXL_NATIVE_ENDIAN,
		620	gdk_pixbuf_get_rowstride (RETVAL)
		621	};
		622
		623	error = "JxlDecoderSetImageOutBuffer failed";
		624	if (JxlDecoderSetImageOutBuffer (
		625	dec,
		626	&format,
		627	gdk_pixbuf_get_pixels (RETVAL),
		628	gdk_pixbuf_get_byte_length (RETVAL)
		629	) != JXL_DEC_SUCCESS)
		630	goto done;
		631	}
		632	break;
		633
		634	default:
		635	error = "unexpected event";
		636	goto done;
		637	}
		638	}
		639
		640	done:
		641	if (dec)
		642	JxlDecoderDestroy (dec);
		643
		644	if (runner)
		645	JxlThreadParallelRunnerDestroy (runner);
		646
		647	perlinterp_acquire ();
		648
		649	if (error)
		650	{
		651	if (RETVAL)
		652	g_object_unref (RETVAL);
		653
		654	croak ("load_jxl: %s", error);
		655	}
		656	#else
		657	croak ("load_jxl: jpeg-xl not enabled at compile time");
		658	#endif
		659	}
		660	OUTPUT:
		661	RETVAL
		662
		663	GdkPixbuf_noinc *
392	load_jpeg (SV *path, int thumbnail = 0, int iw = 0, int ih = 0)	664	decode_jpeg (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
393	CODE:	665	CODE:
394	{	666	{
395	struct jpeg_decompress_struct cinfo;	667	struct jpeg_decompress_struct cinfo;
396	struct jpg_err_mgr jerr;	668	struct jpg_err_mgr jerr;
397	guchar *data;
398	int rs;	669	int rs;
399	FILE *fp;
400	volatile GdkPixbuf *pb = 0;	670	volatile GdkPixbuf *pb = 0;
		671	STRLEN data_len;
		672	guchar *data = SvPVbyte (image_data, data_len);
401		673
402	RETVAL = 0;	674	RETVAL = 0;
403
404	fp = fopen (SvPVbyte_nolen (path), "rb");
405
406	if (!fp)
407	XSRETURN_UNDEF;
408		675
409	perlinterp_release ();	676	perlinterp_release ();
410		677
411	cinfo.err = jpeg_std_error (&jerr.err);	678	cinfo.err = jpeg_std_error (&jerr.err);
412		679
413	jerr.err.error_exit = cv_error_exit;	680	jerr.err.error_exit = cv_error_exit;
414	jerr.err.output_message = cv_error_output;	681	jerr.err.output_message = cv_error_output;
415		682
416	if ((rs = setjmp (jerr.setjmp_buffer)))	683	if ((rs = setjmp (jerr.setjmp_buffer)))
417	{	684	{
418	fclose (fp);
419	jpeg_destroy_decompress (&cinfo);	685	jpeg_destroy_decompress (&cinfo);
420		686
421	if (pb)	687	if (pb)
422	g_object_unref ((gpointer)pb);	688	g_object_unref ((gpointer)pb);
423		689
424	perlinterp_acquire ();	690	perlinterp_acquire ();
425	XSRETURN_UNDEF;	691	XSRETURN_UNDEF;
426	}	692	}
427		693
		694	if (!data_len)
		695	longjmp (jerr.setjmp_buffer, 4);
		696
428	jpeg_create_decompress (&cinfo);	697	jpeg_create_decompress (&cinfo);
		698	cv_jpeg_mem_src (&cinfo, data, data_len);
429		699
430	jpeg_stdio_src (&cinfo, fp);
431	jpeg_read_header (&cinfo, TRUE);	700	jpeg_read_header (&cinfo, TRUE);
432		701
433	cinfo.dct_method = JDCT_DEFAULT;	702	cinfo.dct_method = JDCT_DEFAULT;
434	cinfo.do_fancy_upsampling = FALSE; /* worse quality, but nobody compained so far, and gdk-pixbuf does the same */	703	cinfo.do_fancy_upsampling = FALSE; /* worse quality, but nobody compained so far, and gdk-pixbuf does the same */
435	cinfo.do_block_smoothing = FALSE;	704	cinfo.do_block_smoothing = FALSE;
…		…
514	data += 4;	783	data += 4;
515	}	784	}
516	}	785	}
517		786
518	jpeg_finish_decompress (&cinfo);	787	jpeg_finish_decompress (&cinfo);
519	fclose (fp);
520	jpeg_destroy_decompress (&cinfo);	788	jpeg_destroy_decompress (&cinfo);
521	perlinterp_acquire ();	789	perlinterp_acquire ();
522	}	790	}
523	OUTPUT:	791	OUTPUT:
524	RETVAL	792	RETVAL
…		…
583	CODE:	851	CODE:
584	{	852	{
585	STRLEN plen;	853	STRLEN plen;
586	U8 path = (U8 )SvPV (pathsv, plen);	854	U8 path = (U8 )SvPV (pathsv, plen);
587	U8 *pend = path + plen;	855	U8 *pend = path + plen;
588	U8 dst [plen * 6 * 3], *dstp = dst;	856	U8 dst [plen * 8 * 3], *dstp = dst;
589		857
590	while (path < pend)	858	while (path < pend)
591	{	859	{
592	U8 ch = *path;	860	U8 ch = *path;
593		861
…		…
595	dstp++ = path++;	863	dstp++ = path++;
596	else if (ch >= 'A' && ch <= 'Z')	864	else if (ch >= 'A' && ch <= 'Z')
597	dstp++ = path++ + ('a' - 'A');	865	dstp++ = path++ + ('a' - 'A');
598	else if (ch >= '0' && ch <= '9')	866	else if (ch >= '0' && ch <= '9')
599	{	867	{
		868	/* version sort, up to 8 digits */
600	STRLEN el, nl = 0;	869	STRLEN el, nl = 0;
601	while (path >= '0' && path <= '9' && path < pend)	870	while (path >= '0' && path <= '9' && path < pend)
602	path++, nl++;	871	path++, nl++;
603		872
604	for (el = nl; el < 6; el++)	873	for (el = nl; el < 8; el++)
605	*dstp++ = '0';	874	*dstp++ = '0';
606		875
607	memcpy (dstp, path - nl, nl);	876	memcpy (dstp, path - nl, nl);
608	dstp += nl;	877	dstp += nl;
609	}	878	}

Diff Legend

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

Comparing CV/CV.xs (file contents): Revision 1.50 by root, Sat Dec 23 03:30:28 2017 UTC vs. Revision 1.60 by root, Thu Jul 15 00:41:44 2021 UTC

Diff Legend

Comparing CV/CV.xs (file contents):
Revision 1.50 by root, Sat Dec 23 03:30:28 2017 UTC vs.
Revision 1.60 by root, Thu Jul 15 00:41:44 2021 UTC