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

Comparing CV/CV.xs (file contents):
Revision 1.57 by root, Mon Jul 30 22:55:46 2018 UTC vs.
Revision 1.60 by root, Thu Jul 15 00:41:44 2021 UTC

… …
24#if WEBP 24#if WEBP
25#include <webp/demux.h> 25#include <webp/demux.h>
26#include <webp/decode.h> 26#include <webp/decode.h>
27#endif 27#endif
28 28
29#if JXL
30#include <jxl/decode.h>
31#include "jxl/thread_parallel_runner.h"
32#endif
33
29#include "perlmulticore.h" 34#include "perlmulticore.h"
30 35
31#define IW 80 /* MUST match Schnauzer.pm! */ 36#define IW 80 /* MUST match Schnauzer.pm! */
32#define IH 60 /* MUST match Schnauzer.pm! */ 37#define IH 60 /* MUST match Schnauzer.pm! */
33
34#define RAND (seed = (seed + 7141) * 54773 % 134456)
35 38
36#define LINELENGTH 240 39#define LINELENGTH 240
37 40
38#define ELLIPSIS "\xe2\x80\xa6" 41#define ELLIPSIS "\xe2\x80\xa6"
39 42
… …
257 src->bytes_in_buffer = buflen; 260 src->bytes_in_buffer = buflen;
258} 261}
259 262
260///////////////////////////////////////////////////////////////////////////// 263/////////////////////////////////////////////////////////////////////////////
261 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/////////////////////////////////////////////////////////////////////////////
303
262MODULE = Gtk2::CV PACKAGE = Gtk2::CV 304MODULE = Gtk2::CV PACKAGE = Gtk2::CV
263 305
264PROTOTYPES: ENABLE 306PROTOTYPES: ENABLE
265 307
266# calculate the common prefix length of two strings 308# calculate the common prefix length of two strings
… …
375filetype (SV *image_data) 417filetype (SV *image_data)
376 CODE: 418 CODE:
377{ 419{
378 STRLEN data_len; 420 STRLEN data_len;
379 U8 *data = SvPVbyte (image_data, 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 };
380 428
381 if (data_len >= 20 429 if (data_len >= 20
382 && data[0] == 0xff 430 && data[0] == 0xff
383 && data[1] == 0xd8 431 && data[1] == 0xd8
384 && data[2] == 0xff) 432 && data[2] == 0xff)
385 RETVAL = "jpg"; 433 RETVAL = "image/jpeg";
386 else if (data_len >= 12 434 else if (data_len >= 12
387 && data[ 0] == (U8)'R' 435 && data[ 0] == (U8)'R'
388 && data[ 1] == (U8)'I' 436 && data[ 1] == (U8)'I'
389 && data[ 2] == (U8)'F' 437 && data[ 2] == (U8)'F'
390 && data[ 3] == (U8)'F' 438 && data[ 3] == (U8)'F'
391 && data[ 8] == (U8)'W' 439 && data[ 8] == (U8)'W'
392 && data[ 9] == (U8)'E' 440 && data[ 9] == (U8)'E'
393 && data[10] == (U8)'B' 441 && data[10] == (U8)'B'
394 && data[11] == (U8)'P') 442 && data[11] == (U8)'P')
395 RETVAL = "webp"; 443 RETVAL = "image/webp";
396 else if (data_len >= 16 444 else if (data_len >= 16
397 && data[ 0] == 0x89 445 && data[ 0] == 0x89
398 && data[ 1] == (U8)'P' 446 && data[ 1] == (U8)'P'
399 && data[ 2] == (U8)'N' 447 && data[ 2] == (U8)'N'
400 && data[ 3] == (U8)'G' 448 && data[ 3] == (U8)'G'
401 && data[ 4] == 0x0d 449 && data[ 4] == 0x0d
402 && data[ 5] == 0x0a 450 && data[ 5] == 0x0a
403 && data[ 6] == 0x1a 451 && data[ 6] == 0x1a
404 && data[ 7] == 0x0a) 452 && data[ 7] == 0x0a)
405 RETVAL = "png"; 453 RETVAL = "image/png";
454 else if (data_len >= sizeof (jxl_header) && memcmp (data, jxl_header, sizeof (jxl_header)) == 0)
455 RETVAL = "image/jxl";
406 else 456 else
407 RETVAL = "other"; 457 XSRETURN_UNDEF;
408} 458}
409 OUTPUT: 459 OUTPUT:
410 RETVAL 460 RETVAL
411 461
412GdkPixbuf_noinc * 462GdkPixbuf_noinc *
… …
497} 547}
498 OUTPUT: 548 OUTPUT:
499 RETVAL 549 RETVAL
500 550
501GdkPixbuf_noinc * 551GdkPixbuf_noinc *
552decode_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
663GdkPixbuf_noinc *
502decode_jpeg (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0) 664decode_jpeg (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
503 CODE: 665 CODE:
504{ 666{
505 struct jpeg_decompress_struct cinfo; 667 struct jpeg_decompress_struct cinfo;
506 struct jpg_err_mgr jerr; 668 struct jpg_err_mgr jerr;
… …
689 CODE: 851 CODE:
690{ 852{
691 STRLEN plen; 853 STRLEN plen;
692 U8 *path = (U8 *)SvPV (pathsv, plen); 854 U8 *path = (U8 *)SvPV (pathsv, plen);
693 U8 *pend = path + plen; 855 U8 *pend = path + plen;
694 U8 dst [plen * 6 * 3], *dstp = dst; 856 U8 dst [plen * 8 * 3], *dstp = dst;
695 857
696 while (path < pend) 858 while (path < pend)
697 { 859 {
698 U8 ch = *path; 860 U8 ch = *path;
699 861
… …
701 *dstp++ = *path++; 863 *dstp++ = *path++;
702 else if (ch >= 'A' && ch <= 'Z') 864 else if (ch >= 'A' && ch <= 'Z')
703 *dstp++ = *path++ + ('a' - 'A'); 865 *dstp++ = *path++ + ('a' - 'A');
704 else if (ch >= '0' && ch <= '9') 866 else if (ch >= '0' && ch <= '9')
705 { 867 {
868 /* version sort, up to 8 digits */
706 STRLEN el, nl = 0; 869 STRLEN el, nl = 0;
707 while (*path >= '0' && *path <= '9' && path < pend) 870 while (*path >= '0' && *path <= '9' && path < pend)
708 path++, nl++; 871 path++, nl++;
709 872
710 for (el = nl; el < 6; el++) 873 for (el = nl; el < 8; el++)
711 *dstp++ = '0'; 874 *dstp++ = '0';
712 875
713 memcpy (dstp, path - nl, nl); 876 memcpy (dstp, path - nl, nl);
714 dstp += nl; 877 dstp += nl;
715 } 878 }

Diff Legend

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