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

Comparing CV/CV.xs (file contents):
Revision 1.48 by root, Wed May 24 05:00:57 2017 UTC vs.
Revision 1.57 by root, Mon Jul 30 22:55:46 2018 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
21#include "perlmulticore.h" 29#include "perlmulticore.h"
22 30
23#define IW 80 /* MUST match Schnauzer.pm! */ 31#define IW 80 /* MUST match Schnauzer.pm! */
24#define IH 60 /* MUST match Schnauzer.pm! */ 32#define IH 60 /* MUST match Schnauzer.pm! */
25 33
… …
28#define LINELENGTH 240 36#define LINELENGTH 240
29 37
30#define ELLIPSIS "\xe2\x80\xa6" 38#define ELLIPSIS "\xe2\x80\xa6"
31 39
32typedef char *octet_string; 40typedef char *octet_string;
41
42static magic_t magic_cookie[2]; /* !mime, mime */
33 43
34struct jpg_err_mgr 44struct jpg_err_mgr
35{ 45{
36 struct jpeg_error_mgr err; 46 struct jpeg_error_mgr err;
37 jmp_buf setjmp_buffer; 47 jmp_buf setjmp_buffer;
… …
156 if (!--a85_cnt) 166 if (!--a85_cnt)
157 { 167 {
158 a85_cnt = 4; 168 a85_cnt = 4;
159 if (a85_val) 169 if (a85_val)
160 { 170 {
161 a85_ptr[4] = (a85_val % 85) + 33; a85_val /= 85; 171 a85_ptr[4] = (a85_val % 85) + 33; a85_val /= 85;
162 a85_ptr[3] = (a85_val % 85) + 33; a85_val /= 85; 172 a85_ptr[3] = (a85_val % 85) + 33; a85_val /= 85;
163 a85_ptr[2] = (a85_val % 85) + 33; a85_val /= 85; 173 a85_ptr[2] = (a85_val % 85) + 33; a85_val /= 85;
164 a85_ptr[1] = (a85_val % 85) + 33; a85_val /= 85; 174 a85_ptr[1] = (a85_val % 85) + 33; a85_val /= 85;
165 a85_ptr[0] = (a85_val ) + 33; 175 a85_ptr[0] = (a85_val ) + 33;
166 176
167 a85_ptr += 5; 177 a85_ptr += 5;
168 } 178 }
… …
191 201
192 PerlIO_write (fp, a85_buf, a85_ptr - a85_buf); 202 PerlIO_write (fp, a85_buf, a85_ptr - a85_buf);
193} 203}
194 204
195///////////////////////////////////////////////////////////////////////////// 205/////////////////////////////////////////////////////////////////////////////
206// memory source for libjpeg
207
208static void cv_ms_init (j_decompress_ptr cinfo)
209{
210}
211
212static void cv_ms_term (j_decompress_ptr cinfo)
213{
214}
215
216static boolean cv_ms_fill (j_decompress_ptr cinfo)
217{
218 // unexpected EOF, warn and generate fake EOI marker
219
220 WARNMS (cinfo, JWRN_JPEG_EOF);
221
222 struct jpeg_source_mgr *src = (struct jpeg_source_mgr *)cinfo->src;
223
224 static const JOCTET eoi[] = { 0xFF, JPEG_EOI };
225
226 src->next_input_byte = eoi;
227 src->bytes_in_buffer = sizeof (eoi);
228
229 return TRUE;
230}
231
232static void cv_ms_skip (j_decompress_ptr cinfo, long num_bytes)
233{
234 struct jpeg_source_mgr *src = (struct jpeg_source_mgr *)cinfo->src;
235
236 src->next_input_byte += num_bytes;
237 src->bytes_in_buffer -= num_bytes;
238}
239
240static void cv_jpeg_mem_src (j_decompress_ptr cinfo, void *buf, size_t buflen)
241{
242 struct jpeg_source_mgr *src;
243
244 if (!cinfo->src)
245 cinfo->src = (struct jpeg_source_mgr *)
246 (*cinfo->mem->alloc_small) (
247 (j_common_ptr) cinfo, JPOOL_PERMANENT, sizeof (struct jpeg_source_mgr)
248 );
249
250 src = (struct jpeg_source_mgr *)cinfo->src;
251 src->init_source = cv_ms_init;
252 src->fill_input_buffer = cv_ms_fill;
253 src->skip_input_data = cv_ms_skip;
254 src->resync_to_restart = jpeg_resync_to_restart;
255 src->term_source = cv_ms_term;
256 src->next_input_byte = (JOCTET *)buf;
257 src->bytes_in_buffer = buflen;
258}
259
260/////////////////////////////////////////////////////////////////////////////
196 261
197MODULE = Gtk2::CV PACKAGE = Gtk2::CV 262MODULE = Gtk2::CV PACKAGE = Gtk2::CV
198 263
199PROTOTYPES: ENABLE 264PROTOTYPES: ENABLE
200 265
266# calculate the common prefix length of two strings
201# missing function in perl. really :) 267# missing function in perl. really :)
202int 268int
203common_prefix_length (a, b) 269common_prefix_length (a, b)
204 unsigned char *a = (unsigned char *)SvPVutf8_nolen ($arg); 270 unsigned char *a = (unsigned char *)SvPVutf8_nolen ($arg);
205 unsigned char *b = (unsigned char *)SvPVutf8_nolen ($arg); 271 unsigned char *b = (unsigned char *)SvPVutf8_nolen ($arg);
… …
214 280
215 OUTPUT: 281 OUTPUT:
216 RETVAL 282 RETVAL
217 283
218const char * 284const char *
219magic (octet_string path) 285magic (SV *path_or_data)
286 ALIAS:
287 magic = 0
288 magic_mime = 1
289 magic_buffer = 2
290 magic_buffer_mime = 3
220 CODE: 291 CODE:
221{ 292{
222 static magic_t cookie; 293 STRLEN len;
294 char *data = SvPVbyte (path_or_data, len);
223 295
224 if (!cookie) 296 if (!magic_cookie[0])
225 { 297 {
226 cookie = magic_open (MAGIC_SYMLINK); 298 magic_cookie[0] = magic_open (MAGIC_SYMLINK);
227 299 magic_cookie[1] = magic_open (MAGIC_SYMLINK | MAGIC_MIME_TYPE);
228 if (cookie)
229 magic_load (cookie, 0); 300 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); 301 magic_load (magic_cookie[1], 0);
251 else
252 XSRETURN_UNDEF;
253 } 302 }
254 303
255 perlinterp_release (); 304 perlinterp_release ();
256 RETVAL = magic_file (cookie, path); 305
306 RETVAL = ix & 2
307 ? magic_buffer (magic_cookie[ix & 1], data, len)
308 : magic_file (magic_cookie[ix & 1], data);
309
257 perlinterp_acquire (); 310 perlinterp_acquire ();
258} 311}
259 OUTPUT: 312 OUTPUT:
260 RETVAL 313 RETVAL
261 314
… …
316 : angle); 369 : angle);
317 perlinterp_acquire (); 370 perlinterp_acquire ();
318 OUTPUT: 371 OUTPUT:
319 RETVAL 372 RETVAL
320 373
374const char *
375filetype (SV *image_data)
376 CODE:
377{
378 STRLEN data_len;
379 U8 *data = SvPVbyte (image_data, data_len);
380
381 if (data_len >= 20
382 && data[0] == 0xff
383 && data[1] == 0xd8
384 && data[2] == 0xff)
385 RETVAL = "jpg";
386 else if (data_len >= 12
387 && data[ 0] == (U8)'R'
388 && data[ 1] == (U8)'I'
389 && data[ 2] == (U8)'F'
390 && data[ 3] == (U8)'F'
391 && data[ 8] == (U8)'W'
392 && data[ 9] == (U8)'E'
393 && data[10] == (U8)'B'
394 && data[11] == (U8)'P')
395 RETVAL = "webp";
396 else if (data_len >= 16
397 && data[ 0] == 0x89
398 && data[ 1] == (U8)'P'
399 && data[ 2] == (U8)'N'
400 && data[ 3] == (U8)'G'
401 && data[ 4] == 0x0d
402 && data[ 5] == 0x0a
403 && data[ 6] == 0x1a
404 && data[ 7] == 0x0a)
405 RETVAL = "png";
406 else
407 RETVAL = "other";
408}
409 OUTPUT:
410 RETVAL
411
321GdkPixbuf_noinc * 412GdkPixbuf_noinc *
413decode_webp (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
414 CODE:
415{
416#if WEBP
417 STRLEN data_size;
418 int alpha;
419 WebPData data;
420 WebPDemuxer *demux;
421 WebPIterator iter;
422 WebPDecoderConfig config;
423 int inw, inh;
424
425 data.bytes = (uint8_t *)SvPVbyte (image_data, data_size);
426 data.size = data_size;
427
428 perlinterp_release ();
429
430 RETVAL = 0;
431
432 if (!(demux = WebPDemux (&data)))
433 goto err_demux;
434
435 if (!WebPDemuxGetFrame (demux, 1, &iter))
436 goto err_iter;
437
438 if (!WebPInitDecoderConfig (&config))
439 goto err_iter;
440
441 config.options.use_threads = 1;
442
443 if (WebPGetFeatures (iter.fragment.bytes, iter.fragment.size, &config.input) != VP8_STATUS_OK)
444 goto err_iter;
445
446 inw = config.input.width;
447 inh = config.input.height;
448
449 if (thumbnail)
450 {
451 if (inw * ih > inh * iw)
452 ih = (iw * inh + inw - 1) / inw;
453 else
454 iw = (ih * inw + inh - 1) / inh;
455
456 config.options.bypass_filtering = 1;
457 config.options.no_fancy_upsampling = 1;
458
459 config.options.use_scaling = 1;
460 config.options.scaled_width = iw;
461 config.options.scaled_height = ih;
462 }
463 else
464 {
465 iw = inw;
466 ih = inh;
467 }
468
469 alpha = !!config.input.has_alpha;
470
471 RETVAL = gdk_pixbuf_new (GDK_COLORSPACE_RGB, alpha, 8, iw, ih);
472 if (!RETVAL)
473 goto err_iter;
474
475 config.output.colorspace = alpha ? MODE_RGBA : MODE_RGB;
476 config.output.u.RGBA.rgba = gdk_pixbuf_get_pixels (RETVAL);
477 config.output.u.RGBA.stride = gdk_pixbuf_get_rowstride (RETVAL);
478 config.output.u.RGBA.size = gdk_pixbuf_get_byte_length (RETVAL);
479 config.output.is_external_memory = 1;
480
481 if (WebPDecode (iter.fragment.bytes, iter.fragment.size, &config) != VP8_STATUS_OK)
482 {
483 g_object_unref (RETVAL);
484 RETVAL = 0;
485 goto err_iter;
486 }
487
488 err_iter:
489 WebPDemuxReleaseIterator (&iter);
490 err_demux:
491 WebPDemuxDelete (demux);
492
493 perlinterp_acquire ();
494#else
495 croak ("load_webp: webp not enabled at compile time");
496#endif
497}
498 OUTPUT:
499 RETVAL
500
501GdkPixbuf_noinc *
322load_jpeg (SV *path, int thumbnail = 0, int iw = 0, int ih = 0) 502decode_jpeg (SV *image_data, int thumbnail = 0, int iw = 0, int ih = 0)
323 CODE: 503 CODE:
324{ 504{
325 struct jpeg_decompress_struct cinfo; 505 struct jpeg_decompress_struct cinfo;
326 struct jpg_err_mgr jerr; 506 struct jpg_err_mgr jerr;
327 guchar *data;
328 int rs; 507 int rs;
329 FILE *fp;
330 volatile GdkPixbuf *pb = 0; 508 volatile GdkPixbuf *pb = 0;
509 STRLEN data_len;
510 guchar *data = SvPVbyte (image_data, data_len);
331 511
332 RETVAL = 0; 512 RETVAL = 0;
333
334 fp = fopen (SvPVbyte_nolen (path), "rb");
335
336 if (!fp)
337 XSRETURN_UNDEF;
338 513
339 perlinterp_release (); 514 perlinterp_release ();
340 515
341 cinfo.err = jpeg_std_error (&jerr.err); 516 cinfo.err = jpeg_std_error (&jerr.err);
342 517
343 jerr.err.error_exit = cv_error_exit; 518 jerr.err.error_exit = cv_error_exit;
344 jerr.err.output_message = cv_error_output; 519 jerr.err.output_message = cv_error_output;
345 520
346 if ((rs = setjmp (jerr.setjmp_buffer))) 521 if ((rs = setjmp (jerr.setjmp_buffer)))
347 { 522 {
348 fclose (fp);
349 jpeg_destroy_decompress (&cinfo); 523 jpeg_destroy_decompress (&cinfo);
350 524
351 if (pb) 525 if (pb)
352 g_object_unref ((gpointer)pb); 526 g_object_unref ((gpointer)pb);
353 527
354 perlinterp_acquire (); 528 perlinterp_acquire ();
355 XSRETURN_UNDEF; 529 XSRETURN_UNDEF;
356 } 530 }
357 531
532 if (!data_len)
533 longjmp (jerr.setjmp_buffer, 4);
534
358 jpeg_create_decompress (&cinfo); 535 jpeg_create_decompress (&cinfo);
536 cv_jpeg_mem_src (&cinfo, data, data_len);
359 537
360 jpeg_stdio_src (&cinfo, fp);
361 jpeg_read_header (&cinfo, TRUE); 538 jpeg_read_header (&cinfo, TRUE);
362 539
363 cinfo.dct_method = JDCT_DEFAULT; 540 cinfo.dct_method = JDCT_DEFAULT;
364 cinfo.do_fancy_upsampling = FALSE; /* worse quality, but nobody compained so far, and gdk-pixbuf does the same */ 541 cinfo.do_fancy_upsampling = FALSE; /* worse quality, but nobody compained so far, and gdk-pixbuf does the same */
365 cinfo.do_block_smoothing = FALSE; 542 cinfo.do_block_smoothing = FALSE;
… …
425 U32 c = data [0]; 602 U32 c = data [0];
426 U32 m = data [1]; 603 U32 m = data [1];
427 U32 y = data [2]; 604 U32 y = data [2];
428 U32 k = data [3]; 605 U32 k = data [3];
429 606
607 if (0)
608 if (cinfo.Adobe_transform == 2)
609 {
610 c ^= 0xff;
611 m ^= 0xff;
612 y ^= 0xff;
613 k ^= 0xff;
614 }
615
430 data [0] = c * k / 255; 616 data [0] = (c * k + 0x80) / 0xff;
431 data [1] = m * k / 255; 617 data [1] = (m * k + 0x80) / 0xff;
432 data [2] = y * k / 255; 618 data [2] = (y * k + 0x80) / 0xff;
433 data [3] = 255; 619 data [3] = 0xff;
434 620
435 data += 4; 621 data += 4;
436 } 622 }
437 } 623 }
438 624
439 jpeg_finish_decompress (&cinfo); 625 jpeg_finish_decompress (&cinfo);
440 fclose (fp);
441 jpeg_destroy_decompress (&cinfo); 626 jpeg_destroy_decompress (&cinfo);
442 perlinterp_acquire (); 627 perlinterp_acquire ();
443} 628}
444 OUTPUT: 629 OUTPUT:
445 RETVAL 630 RETVAL

Diff Legend

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