… | |
… | |
126 | |
126 | |
127 | MODULE = Gtk2::CV PACKAGE = Gtk2::CV |
127 | MODULE = Gtk2::CV PACKAGE = Gtk2::CV |
128 | |
128 | |
129 | PROTOTYPES: ENABLE |
129 | PROTOTYPES: ENABLE |
130 | |
130 | |
|
|
131 | # missing function in perl. really :) |
|
|
132 | int |
|
|
133 | common_prefix_length (a, b) |
|
|
134 | unsigned char *a = (unsigned char *)SvPVutf8_nolen ($arg); |
|
|
135 | unsigned char *b = (unsigned char *)SvPVutf8_nolen ($arg); |
|
|
136 | CODE: |
|
|
137 | RETVAL = 0; |
|
|
138 | |
|
|
139 | while (*a == *b && *a) |
|
|
140 | { |
|
|
141 | RETVAL += (*a & 0xc0) != 0x80; |
|
|
142 | a++, b++; |
|
|
143 | } |
|
|
144 | |
|
|
145 | OUTPUT: |
|
|
146 | RETVAL |
|
|
147 | |
131 | # missing in Gtk2 perl module |
148 | # missing in Gtk2 perl module |
132 | |
149 | |
133 | gboolean |
150 | gboolean |
134 | gdk_net_wm_supports (GdkAtom property) |
151 | gdk_net_wm_supports (GdkAtom property) |
135 | CODE: |
152 | CODE: |
… | |
… | |
184 | struct jpg_err_mgr jerr; |
201 | struct jpg_err_mgr jerr; |
185 | guchar *data; |
202 | guchar *data; |
186 | int rs; |
203 | int rs; |
187 | FILE *fp; |
204 | FILE *fp; |
188 | volatile GdkPixbuf *pb = 0; |
205 | volatile GdkPixbuf *pb = 0; |
189 | gchar *filename; |
|
|
190 | |
206 | |
191 | RETVAL = 0; |
207 | RETVAL = 0; |
192 | |
208 | |
193 | filename = g_filename_from_utf8 (SvPVutf8_nolen (path), -1, 0, 0, 0); |
|
|
194 | fp = fopen (filename, "rb"); |
209 | fp = fopen (SvPVbyte_nolen (path), "rb"); |
195 | g_free (filename); |
|
|
196 | |
210 | |
197 | if (!fp) |
211 | if (!fp) |
198 | XSRETURN_UNDEF; |
212 | XSRETURN_UNDEF; |
199 | |
213 | |
200 | cinfo.err = jpeg_std_error (&jerr.err); |
214 | cinfo.err = jpeg_std_error (&jerr.err); |