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

Comparing CV/CV.xs (file contents):
Revision 1.49 by root, Wed May 24 19:22:32 2017 UTC vs.
Revision 1.62 by root, Sun Jul 25 11:32:46 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>
16#include <gdk/gdkx.h>
14#include <gdk-pixbuf/gdk-pixbuf.h> 17#include <gdk-pixbuf/gdk-pixbuf.h>
15 18
16#include <gperl.h> 19#include <gperl.h>
17#include <gtk2perl.h> 20#include <gtk2perl.h>
18 21
19#include <assert.h> 22#include <assert.h>
20 23
24#if WEBP
25#include <webp/demux.h>
26#include <webp/decode.h>
27#endif
28
29#if JXL
30#include <jxl/decode.h>
31#include "jxl/thread_parallel_runner.h"
32#endif
33
21#include "perlmulticore.h" 34#include "perlmulticore.h"
22 35
23#define IW 80 /* MUST match Schnauzer.pm! */ 36#define IW 80 /* MUST match Schnauzer.pm! */
24#define IH 60 /* MUST match Schnauzer.pm! */ 37#define IH 60 /* MUST match Schnauzer.pm! */
25 38
26#define RAND (seed = (seed + 7141) * 54773 % 134456)
27
28#define LINELENGTH 240 39#define LINELENGTH 240
29 40
30#define ELLIPSIS "\xe2\x80\xa6" 41#define ELLIPSIS "\xe2\x80\xa6"
31 42
32typedef char *octet_string; 43typedef char *octet_string;
44
45static magic_t magic_cookie[2]; /* !mime, mime */
33 46
34struct jpg_err_mgr 47struct jpg_err_mgr
35{ 48{
36 struct jpeg_error_mgr err; 49 struct jpeg_error_mgr err;
37 jmp_buf setjmp_buffer; 50 jmp_buf setjmp_buffer;
… …
191 204
192 PerlIO_write (fp, a85_buf, a85_ptr - a85_buf); 205 PerlIO_write (fp, a85_buf, a85_ptr - a85_buf);
193} 206}
194 207
195///////////////////////////////////////////////////////////////////////////// 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/////////////////////////////////////////////////////////////////////////////
196 303
197MODULE = Gtk2::CV PACKAGE = Gtk2::CV 304MODULE = Gtk2::CV PACKAGE = Gtk2::CV
198 305
199PROTOTYPES: ENABLE 306PROTOTYPES: ENABLE
200 307
308# calculate the common prefix length of two strings
201# missing function in perl. really :) 309# missing function in perl. really :)
202int 310int
203common_prefix_length (a, b) 311common_prefix_length (a, b)
204 unsigned char *a = (unsigned char *)SvPVutf8_nolen ($arg); 312 unsigned char *a = (unsigned char *)SvPVutf8_nolen ($arg);
205 unsigned char *b = (unsigned char *)SvPVutf8_nolen ($arg); 313 unsigned char *b = (unsigned char *)SvPVutf8_nolen ($arg);
… …
214 322
215 OUTPUT: 323 OUTPUT:
216 RETVAL 324 RETVAL
217 325
218const char * 326const char *
219magic (octet_string path) 327magic (SV *path_or_data)
328 ALIAS:
329 magic = 0
330 magic_mime = 1
331 magic_buffer = 2
332 magic_buffer_mime = 3
220 CODE: 333 CODE:
221{ 334{
222 static magic_t cookie; 335 STRLEN len;
336 char *data = SvPVbyte (path_or_data, len);
223 337
224 if (!cookie) 338 if (!magic_cookie[0])
225 { 339 {
226 cookie = magic_open (MAGIC_SYMLINK); 340 magic_cookie[0] = magic_open (MAGIC_SYMLINK);
227 341 magic_cookie[1] = magic_open (MAGIC_SYMLINK | MAGIC_MIME_TYPE);
228 if (cookie)
229 magic_load (cookie, 0); 342 magic_load (magic_cookie[0], 0);
230 else
231 XSRETURN_UNDEF;
232 }
233
234 RETVAL = magic_file (cookie, path);
235}
236 OUTPUT:
237 RETVAL
238
239const char *
240magic_mime (octet_string path)
241 CODE:
242{
243 static magic_t cookie;
244
245 if (!cookie)
246 {
247 cookie = magic_open (MAGIC_MIME | MAGIC_SYMLINK);
248
249 if (cookie)
250 magic_load (cookie, 0); 343 magic_load (magic_cookie[1], 0);
251 else
252 XSRETURN_UNDEF;
253 } 344 }
254 345
255 perlinterp_release (); 346 perlinterp_release ();
256 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
257 perlinterp_acquire (); 352 perlinterp_acquire ();
258} 353}
259 OUTPUT: 354 OUTPUT:
260 RETVAL 355 RETVAL
261 356
… …
316 : angle); 411 : angle);
317 perlinterp_acquire (); 412 perlinterp_acquire ();
318 OUTPUT: 413 OUTPUT:
319 RETVAL 414 RETVAL
320 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
475 // skip a graphic control extension block. we assume
476 // there is at most one such block - while the NAB
477 // has to come firstz, some files do not obey this
478 if (data[ofs] == 0x21 && data[ofs + 1] == 0xf9)
479 ofs += 3 + data[ofs + 2] + 1;
480
481 if (data_len >= ofs + 2 + 1 + 11)
482 if (!memcmp (data + ofs, "\x21\xff\x0bNETSCAPE2.0", sizeof ("\x21\xff\x0bNETSCAPE2.0") - 1))
483 RETVAL = "video/gif";
484 }
485 }
486
487 else
488 XSRETURN_UNDEF;
489}
490 OUTPUT:
491 RETVAL
492
321GdkPixbuf_noinc * 493GdkPixbuf_noinc *
494decode_webp (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
495 CODE:
496{
497#if WEBP
498 STRLEN data_size;
499 int alpha;
500 WebPData data;
501 WebPDemuxer *demux;
502 WebPIterator iter;
503 WebPDecoderConfig config;
504 int inw, inh;
505
506 data.bytes = (uint8_t *)SvPVbyte (image_data, data_size);
507 data.size = data_size;
508
509 perlinterp_release ();
510
511 RETVAL = 0;
512
513 if (!(demux = WebPDemux (&data)))
514 goto err_demux;
515
516 if (!WebPDemuxGetFrame (demux, 1, &iter))
517 goto err_iter;
518
519 if (!WebPInitDecoderConfig (&config))
520 goto err_iter;
521
522 config.options.use_threads = 1;
523
524 if (WebPGetFeatures (iter.fragment.bytes, iter.fragment.size, &config.input) != VP8_STATUS_OK)
525 goto err_iter;
526
527 inw = config.input.width;
528 inh = config.input.height;
529
530 if (thumbnail)
531 {
532 if (inw * ih > inh * iw)
533 ih = (iw * inh + inw - 1) / inw;
534 else
535 iw = (ih * inw + inh - 1) / inh;
536
537 config.options.bypass_filtering = 1;
538 config.options.no_fancy_upsampling = 1;
539
540 config.options.use_scaling = 1;
541 config.options.scaled_width = iw;
542 config.options.scaled_height = ih;
543 }
544 else
545 {
546 iw = inw;
547 ih = inh;
548 }
549
550 alpha = !!config.input.has_alpha;
551
552 RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, alpha, 8, iw, ih);
553 if (!RETVAL)
554 goto err_iter;
555
556 config.output.colorspace = alpha ? MODE_RGBA : MODE_RGB;
557 config.output.u.RGBA.rgba = gdk_pixbuf_get_pixels (RETVAL);
558 config.output.u.RGBA.stride = gdk_pixbuf_get_rowstride (RETVAL);
559 config.output.u.RGBA.size = gdk_pixbuf_get_byte_length (RETVAL);
560 config.output.is_external_memory = 1;
561
562 if (WebPDecode (iter.fragment.bytes, iter.fragment.size, &config) != VP8_STATUS_OK)
563 {
564 g_object_unref (RETVAL);
565 RETVAL = 0;
566 goto err_iter;
567 }
568
569 err_iter:
570 WebPDemuxReleaseIterator (&iter);
571 err_demux:
572 WebPDemuxDelete (demux);
573
574 perlinterp_acquire ();
575#else
576 croak ("load_webp: webp not enabled at compile time");
577#endif
578}
579 OUTPUT:
580 RETVAL
581
582GdkPixbuf_noinc *
583decode_jxl (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
584 CODE:
585{
586#if JXL
587 JxlDecoder *dec = JxlDecoderCreate (0);
588 JxlBasicInfo info;
589 const uint8_t *next_in = (uint8_t *)SvPVbyte_nolen (image_data);
590 size_t avail_in = SvCUR (image_data);
591 const char *error = 0;
592 void *runner = 0;
593 struct bmff_box box;
594
595 perlinterp_release ();
596
597 RETVAL = 0;
598
599 error = "JxlDecoderCreate failed";
600 if (!dec)
601 goto done;
602
603 runner = JxlThreadParallelRunnerCreate (0, JxlThreadParallelRunnerDefaultNumWorkerThreads ());
604
605 error = "JxlDecoderSetParallelRunner failed";
606 if (JxlDecoderSetParallelRunner (dec, JxlThreadParallelRunner, runner) != JXL_DEC_SUCCESS)
607 goto done;
608
609 error = "JxlDecoderSubscribeEvents failed";
610 if (JxlDecoderSubscribeEvents (dec, JXL_DEC_FULL_IMAGE | JXL_DEC_BASIC_INFO) != JXL_DEC_SUCCESS)
611 goto done;
612
613 error = "JxlDecoderSetInput failed";
614 if (JxlDecoderSetInput (dec, next_in, avail_in) != JXL_DEC_SUCCESS)
615 goto done;
616
617 for (;;)
618 {
619 JxlDecoderStatus status = JxlDecoderProcessInput (dec);
620
621 printf ("status %d\n",status);
622
623 switch (status)
624 {
625 case JXL_DEC_ERROR:
626 error = "JxlDecoderProcessInput failed";
627 goto done;
628
629 case JXL_DEC_NEED_MORE_INPUT:
630 error = "incomplete file";
631 goto done;
632
633 case JXL_DEC_SUCCESS:
634 goto done;
635
636 case JXL_DEC_NEED_IMAGE_OUT_BUFFER:
637 {
638 error = "JxlDecoderGetBasicInfo failed";
639 if (JxlDecoderGetBasicInfo (dec, &info) != JXL_DEC_SUCCESS)
640 goto done;
641
642 RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, !!info.alpha_bits, 8, info.xsize, info.ysize);
643 error = "unable to allocate pixbuf";
644 if (!RETVAL)
645 goto done;
646
647 JxlPixelFormat format = {
648 info.alpha_bits ? 4 : 3,
649 JXL_TYPE_UINT8,
650 JXL_NATIVE_ENDIAN,
651 gdk_pixbuf_get_rowstride (RETVAL)
652 };
653
654 error = "JxlDecoderSetImageOutBuffer failed";
655 if (JxlDecoderSetImageOutBuffer (
656 dec,
657 &format,
658 gdk_pixbuf_get_pixels (RETVAL),
659 gdk_pixbuf_get_byte_length (RETVAL)
660 ) != JXL_DEC_SUCCESS)
661 goto done;
662 }
663 break;
664
665 default:
666 error = "unexpected event";
667 goto done;
668 }
669 }
670
671 done:
672 if (dec)
673 JxlDecoderDestroy (dec);
674
675 if (runner)
676 JxlThreadParallelRunnerDestroy (runner);
677
678 perlinterp_acquire ();
679
680 if (error)
681 {
682 if (RETVAL)
683 g_object_unref (RETVAL);
684
685 croak ("load_jxl: %s", error);
686 }
687#else
688 croak ("load_jxl: jpeg-xl not enabled at compile time");
689#endif
690}
691 OUTPUT:
692 RETVAL
693
694GdkPixbuf_noinc *
322load_jpeg (SV *path, int thumbnail = 0, int iw = 0, int ih = 0) 695decode_jpeg (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
323 CODE: 696 CODE:
324{ 697{
325 struct jpeg_decompress_struct cinfo; 698 struct jpeg_decompress_struct cinfo;
326 struct jpg_err_mgr jerr; 699 struct jpg_err_mgr jerr;
327 guchar *data;
328 int rs; 700 int rs;
329 FILE *fp;
330 volatile GdkPixbuf *pb = 0; 701 volatile GdkPixbuf *pb = 0;
702 STRLEN data_len;
703 guchar *data = SvPVbyte (image_data, data_len);
331 704
332 RETVAL = 0; 705 RETVAL = 0;
333
334 fp = fopen (SvPVbyte_nolen (path), "rb");
335
336 if (!fp)
337 XSRETURN_UNDEF;
338 706
339 perlinterp_release (); 707 perlinterp_release ();
340 708
341 cinfo.err = jpeg_std_error (&jerr.err); 709 cinfo.err = jpeg_std_error (&jerr.err);
342 710
343 jerr.err.error_exit = cv_error_exit; 711 jerr.err.error_exit = cv_error_exit;
344 jerr.err.output_message = cv_error_output; 712 jerr.err.output_message = cv_error_output;
345 713
346 if ((rs = setjmp (jerr.setjmp_buffer))) 714 if ((rs = setjmp (jerr.setjmp_buffer)))
347 { 715 {
348 fclose (fp);
349 jpeg_destroy_decompress (&cinfo); 716 jpeg_destroy_decompress (&cinfo);
350 717
351 if (pb) 718 if (pb)
352 g_object_unref ((gpointer)pb); 719 g_object_unref ((gpointer)pb);
353 720
354 perlinterp_acquire (); 721 perlinterp_acquire ();
355 XSRETURN_UNDEF; 722 XSRETURN_UNDEF;
356 } 723 }
357 724
725 if (!data_len)
726 longjmp (jerr.setjmp_buffer, 4);
727
358 jpeg_create_decompress (&cinfo); 728 jpeg_create_decompress (&cinfo);
729 cv_jpeg_mem_src (&cinfo, data, data_len);
359 730
360 jpeg_stdio_src (&cinfo, fp);
361 jpeg_read_header (&cinfo, TRUE); 731 jpeg_read_header (&cinfo, TRUE);
362 732
363 cinfo.dct_method = JDCT_DEFAULT; 733 cinfo.dct_method = JDCT_DEFAULT;
364 cinfo.do_fancy_upsampling = FALSE; /* worse quality, but nobody compained so far, and gdk-pixbuf does the same */ 734 cinfo.do_fancy_upsampling = FALSE; /* worse quality, but nobody compained so far, and gdk-pixbuf does the same */
365 cinfo.do_block_smoothing = FALSE; 735 cinfo.do_block_smoothing = FALSE;
… …
444 data += 4; 814 data += 4;
445 } 815 }
446 } 816 }
447 817
448 jpeg_finish_decompress (&cinfo); 818 jpeg_finish_decompress (&cinfo);
449 fclose (fp);
450 jpeg_destroy_decompress (&cinfo); 819 jpeg_destroy_decompress (&cinfo);
451 perlinterp_acquire (); 820 perlinterp_acquire ();
452} 821}
453 OUTPUT: 822 OUTPUT:
454 RETVAL 823 RETVAL
… …
513 CODE: 882 CODE:
514{ 883{
515 STRLEN plen; 884 STRLEN plen;
516 U8 *path = (U8 *)SvPV (pathsv, plen); 885 U8 *path = (U8 *)SvPV (pathsv, plen);
517 U8 *pend = path + plen; 886 U8 *pend = path + plen;
518 U8 dst [plen * 6 * 3], *dstp = dst; 887 U8 dst [plen * 8 * 3], *dstp = dst;
519 888
520 while (path < pend) 889 while (path < pend)
521 { 890 {
522 U8 ch = *path; 891 U8 ch = *path;
523 892
… …
525 *dstp++ = *path++; 894 *dstp++ = *path++;
526 else if (ch >= 'A' && ch <= 'Z') 895 else if (ch >= 'A' && ch <= 'Z')
527 *dstp++ = *path++ + ('a' - 'A'); 896 *dstp++ = *path++ + ('a' - 'A');
528 else if (ch >= '0' && ch <= '9') 897 else if (ch >= '0' && ch <= '9')
529 { 898 {
899 /* version sort, up to 8 digits */
530 STRLEN el, nl = 0; 900 STRLEN el, nl = 0;
531 while (*path >= '0' && *path <= '9' && path < pend) 901 while (*path >= '0' && *path <= '9' && path < pend)
532 path++, nl++; 902 path++, nl++;
533 903
534 for (el = nl; el < 6; el++) 904 for (el = nl; el < 8; el++)
535 *dstp++ = '0'; 905 *dstp++ = '0';
536 906
537 memcpy (dstp, path - nl, nl); 907 memcpy (dstp, path - nl, nl);
538 dstp += nl; 908 dstp += nl;
539 } 909 }

Diff Legend

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