… | |
… | |
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); |