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

Comparing CV/CV.xs (file contents):
Revision 1.54 by root, Sat Dec 23 08:04:48 2017 UTC vs.
Revision 1.58 by root, Mon Jan 4 04:49:04 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
… …
201 204
202 PerlIO_write (fp, a85_buf, a85_ptr - a85_buf); 205 PerlIO_write (fp, a85_buf, a85_ptr - a85_buf);
203} 206}
204 207
205///////////////////////////////////////////////////////////////////////////// 208/////////////////////////////////////////////////////////////////////////////
209// memory source for libjpeg
206 210
207static void cv_ms_init (j_decompress_ptr cinfo) 211static void cv_ms_init (j_decompress_ptr cinfo)
208{ 212{
209} 213}
210 214
… …
212{ 216{
213} 217}
214 218
215static boolean cv_ms_fill (j_decompress_ptr cinfo) 219static boolean cv_ms_fill (j_decompress_ptr cinfo)
216{ 220{
217 ERREXIT (cinfo, JERR_INPUT_EMPTY); 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);
218 231
219 return TRUE; 232 return TRUE;
220} 233}
221 234
222static void cv_ms_skip (j_decompress_ptr cinfo, long num_bytes) 235static void cv_ms_skip (j_decompress_ptr cinfo, long num_bytes)
223{ 236{
224 if (num_bytes > 0)
225 {
226 struct jpeg_source_mgr *src = (struct jpeg_source_mgr *)cinfo->src; 237 struct jpeg_source_mgr *src = (struct jpeg_source_mgr *)cinfo->src;
227 238
228 src->next_input_byte += num_bytes; 239 src->next_input_byte += num_bytes;
229 src->bytes_in_buffer -= num_bytes; 240 src->bytes_in_buffer -= num_bytes;
230 }
231} 241}
232 242
233static void cv_jpeg_mem_src (j_decompress_ptr cinfo, void *buf, size_t buflen) 243static void cv_jpeg_mem_src (j_decompress_ptr cinfo, void *buf, size_t buflen)
234{ 244{
235 struct jpeg_source_mgr *src; 245 struct jpeg_source_mgr *src;
… …
250 src->bytes_in_buffer = buflen; 260 src->bytes_in_buffer = buflen;
251} 261}
252 262
253///////////////////////////////////////////////////////////////////////////// 263/////////////////////////////////////////////////////////////////////////////
254 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
255MODULE = Gtk2::CV PACKAGE = Gtk2::CV 304MODULE = Gtk2::CV PACKAGE = Gtk2::CV
256 305
257PROTOTYPES: ENABLE 306PROTOTYPES: ENABLE
258 307
308# calculate the common prefix length of two strings
259# missing function in perl. really :) 309# missing function in perl. really :)
260int 310int
261common_prefix_length (a, b) 311common_prefix_length (a, b)
262 unsigned char *a = (unsigned char *)SvPVutf8_nolen ($arg); 312 unsigned char *a = (unsigned char *)SvPVutf8_nolen ($arg);
263 unsigned char *b = (unsigned char *)SvPVutf8_nolen ($arg); 313 unsigned char *b = (unsigned char *)SvPVutf8_nolen ($arg);
… …
367filetype (SV *image_data) 417filetype (SV *image_data)
368 CODE: 418 CODE:
369{ 419{
370 STRLEN data_len; 420 STRLEN data_len;
371 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 };
372 428
373 if (data_len >= 20 429 if (data_len >= 20
374 && data[0] == 0xff 430 && data[0] == 0xff
375 && data[1] == 0xd8 431 && data[1] == 0xd8
376 && data[2] == 0xff) 432 && data[2] == 0xff)
377 RETVAL = "jpg"; 433 RETVAL = "image/jpeg";
378 else if (data_len >= 12 434 else if (data_len >= 12
379 && data[ 0] == (U8)'R' 435 && data[ 0] == (U8)'R'
380 && data[ 1] == (U8)'I' 436 && data[ 1] == (U8)'I'
381 && data[ 2] == (U8)'F' 437 && data[ 2] == (U8)'F'
382 && data[ 3] == (U8)'F' 438 && data[ 3] == (U8)'F'
383 && data[ 8] == (U8)'W' 439 && data[ 8] == (U8)'W'
384 && data[ 9] == (U8)'E' 440 && data[ 9] == (U8)'E'
385 && data[10] == (U8)'B' 441 && data[10] == (U8)'B'
386 && data[11] == (U8)'P') 442 && data[11] == (U8)'P')
387 RETVAL = "webp"; 443 RETVAL = "image/webp";
388 else if (data_len >= 16 444 else if (data_len >= 16
389 && data[ 0] == 0x89 445 && data[ 0] == 0x89
390 && data[ 1] == (U8)'P' 446 && data[ 1] == (U8)'P'
391 && data[ 2] == (U8)'N' 447 && data[ 2] == (U8)'N'
392 && data[ 3] == (U8)'G' 448 && data[ 3] == (U8)'G'
393 && data[ 4] == 0x0d 449 && data[ 4] == 0x0d
394 && data[ 5] == 0x0a 450 && data[ 5] == 0x0a
395 && data[ 6] == 0x1a 451 && data[ 6] == 0x1a
396 && data[ 7] == 0x0a) 452 && data[ 7] == 0x0a)
397 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";
398 else 456 else
399 RETVAL = "other"; 457 XSRETURN_UNDEF;
400} 458}
401 OUTPUT: 459 OUTPUT:
402 RETVAL 460 RETVAL
403 461
404GdkPixbuf_noinc * 462GdkPixbuf_noinc *
… …
478 } 536 }
479 537
480 err_iter: 538 err_iter:
481 WebPDemuxReleaseIterator (&iter); 539 WebPDemuxReleaseIterator (&iter);
482 err_demux: 540 err_demux:
541 WebPDemuxDelete (demux);
483 542
484 perlinterp_acquire (); 543 perlinterp_acquire ();
485#else 544#else
486 croak ("load_webp: webp not enabled at compile time"); 545 croak ("load_webp: webp not enabled at compile time");
546#endif
547}
548 OUTPUT:
549 RETVAL
550
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 | 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");
487#endif 654#endif
488} 655}
489 OUTPUT: 656 OUTPUT:
490 RETVAL 657 RETVAL
491 658
… …
517 g_object_unref ((gpointer)pb); 684 g_object_unref ((gpointer)pb);
518 685
519 perlinterp_acquire (); 686 perlinterp_acquire ();
520 XSRETURN_UNDEF; 687 XSRETURN_UNDEF;
521 } 688 }
689
690 if (!data_len)
691 longjmp (jerr.setjmp_buffer, 4);
522 692
523 jpeg_create_decompress (&cinfo); 693 jpeg_create_decompress (&cinfo);
524 cv_jpeg_mem_src (&cinfo, data, data_len); 694 cv_jpeg_mem_src (&cinfo, data, data_len);
525 695
526 jpeg_read_header (&cinfo, TRUE); 696 jpeg_read_header (&cinfo, TRUE);

Diff Legend

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