ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/CV/CV.xs
(Generate patch)

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

Diff Legend

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