… | |
… | |
201 | |
201 | |
202 | PerlIO_write (fp, a85_buf, a85_ptr - a85_buf); |
202 | PerlIO_write (fp, a85_buf, a85_ptr - a85_buf); |
203 | } |
203 | } |
204 | |
204 | |
205 | ///////////////////////////////////////////////////////////////////////////// |
205 | ///////////////////////////////////////////////////////////////////////////// |
|
|
206 | // memory source for libjpeg |
206 | |
207 | |
207 | static void cv_ms_init (j_decompress_ptr cinfo) |
208 | static void cv_ms_init (j_decompress_ptr cinfo) |
208 | { |
209 | { |
209 | } |
210 | } |
210 | |
211 | |
… | |
… | |
254 | |
255 | |
255 | MODULE = Gtk2::CV PACKAGE = Gtk2::CV |
256 | MODULE = Gtk2::CV PACKAGE = Gtk2::CV |
256 | |
257 | |
257 | PROTOTYPES: ENABLE |
258 | PROTOTYPES: ENABLE |
258 | |
259 | |
|
|
260 | # calculate the common prefix length of two strings |
259 | # missing function in perl. really :) |
261 | # missing function in perl. really :) |
260 | int |
262 | int |
261 | common_prefix_length (a, b) |
263 | common_prefix_length (a, b) |
262 | unsigned char *a = (unsigned char *)SvPVutf8_nolen ($arg); |
264 | unsigned char *a = (unsigned char *)SvPVutf8_nolen ($arg); |
263 | unsigned char *b = (unsigned char *)SvPVutf8_nolen ($arg); |
265 | unsigned char *b = (unsigned char *)SvPVutf8_nolen ($arg); |
… | |
… | |
478 | } |
480 | } |
479 | |
481 | |
480 | err_iter: |
482 | err_iter: |
481 | WebPDemuxReleaseIterator (&iter); |
483 | WebPDemuxReleaseIterator (&iter); |
482 | err_demux: |
484 | err_demux: |
|
|
485 | WebPDemuxDelete (demux); |
483 | |
486 | |
484 | perlinterp_acquire (); |
487 | perlinterp_acquire (); |
485 | #else |
488 | #else |
486 | croak ("load_webp: webp not enabled at compile time"); |
489 | croak ("load_webp: webp not enabled at compile time"); |
487 | #endif |
490 | #endif |