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

Comparing CV/CV.xs (file contents):
Revision 1.28 by root, Mon Aug 22 00:30:58 2005 UTC vs.
Revision 1.30 by root, Wed Dec 28 20:56:20 2005 UTC

126 126
127MODULE = Gtk2::CV PACKAGE = Gtk2::CV 127MODULE = Gtk2::CV PACKAGE = Gtk2::CV
128 128
129PROTOTYPES: ENABLE 129PROTOTYPES: ENABLE
130 130
131# missing function in perl. really :)
132int
133common_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
133gboolean 150gboolean
134gdk_net_wm_supports (GdkAtom property) 151gdk_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);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines