… | |
… | |
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: |