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

Comparing Convert-Scalar/Scalar.xs (file contents):
Revision 1.7 by root, Fri Nov 26 21:14:09 2004 UTC vs.
Revision 1.9 by root, Fri Mar 7 10:33:46 2008 UTC

1#include "EXTERN.h" 1#include "EXTERN.h"
2#include "perl.h" 2#include "perl.h"
3#include "XSUB.h" 3#include "XSUB.h"
4
5#if PERL_VERSION < 7
6# define is_utf8_string(s,l) (croak ("utf8_valid requires perl 5.7 or higher"), 0)
7#endif
8 4
9#define RETCOPY(sv) \ 5#define RETCOPY(sv) \
10 if (GIMME_V != G_VOID) \ 6 if (GIMME_V != G_VOID) \
11 { \ 7 { \
12 dXSTARG; \ 8 dXSTARG; \
… …
90 PROTOTYPE: $;$ 86 PROTOTYPE: $;$
91 CODE: 87 CODE:
92 if (SvREADONLY (scalar)) 88 if (SvREADONLY (scalar))
93 croak ("Convert::Scalar::utf8_downgrade called on read only scalar"); 89 croak ("Convert::Scalar::utf8_downgrade called on read only scalar");
94 90
95 RETVAL = sv_utf8_downgrade (scalar, fail_ok); 91 RETVAL = !!sv_utf8_downgrade (scalar, fail_ok);
96 OUTPUT: 92 OUTPUT:
97 RETVAL 93 RETVAL
98 94
99void 95void
100utf8_encode(scalar) 96utf8_encode(scalar)
… …
136 SV * scalar 132 SV * scalar
137 PROTOTYPE: $ 133 PROTOTYPE: $
138 CODE: 134 CODE:
139 SvTAINTED_on (scalar); 135 SvTAINTED_on (scalar);
140 136
141int 137bool
142tainted(scalar) 138tainted(scalar)
143 SV * scalar 139 SV * scalar
144 PROTOTYPE: $ 140 PROTOTYPE: $
145 CODE: 141 CODE:
146 RETVAL = SvTAINTED (scalar); 142 RETVAL = !!SvTAINTED (scalar);
147 OUTPUT: 143 OUTPUT:
148 RETVAL 144 RETVAL
149 145
150void 146void
151untaint(scalar) 147untaint(scalar)
… …
214bool 210bool
215ok(scalar) 211ok(scalar)
216 SV * scalar 212 SV * scalar
217 PROTOTYPE: $ 213 PROTOTYPE: $
218 CODE: 214 CODE:
219 RETVAL = SvOK (scalar); 215 RETVAL = !!SvOK (scalar);
220 OUTPUT: 216 OUTPUT:
221 RETVAL 217 RETVAL
222 218
223bool 219bool
224uok(scalar) 220uok(scalar)
225 SV * scalar 221 SV * scalar
226 PROTOTYPE: $ 222 PROTOTYPE: $
227 CODE: 223 CODE:
228 RETVAL = SvUOK (scalar); 224 RETVAL = !!SvUOK (scalar);
229 OUTPUT: 225 OUTPUT:
230 RETVAL 226 RETVAL
231 227
232bool 228bool
233rok(scalar) 229rok(scalar)
234 SV * scalar 230 SV * scalar
235 PROTOTYPE: $ 231 PROTOTYPE: $
236 CODE: 232 CODE:
237 RETVAL = SvROK (scalar); 233 RETVAL = !!SvROK (scalar);
238 OUTPUT: 234 OUTPUT:
239 RETVAL 235 RETVAL
240 236
241bool 237bool
242pok(scalar) 238pok(scalar)
243 SV * scalar 239 SV * scalar
244 PROTOTYPE: $ 240 PROTOTYPE: $
245 CODE: 241 CODE:
246 RETVAL = SvPOK (scalar); 242 RETVAL = !!SvPOK (scalar);
247 OUTPUT: 243 OUTPUT:
248 RETVAL 244 RETVAL
249 245
250bool 246bool
251nok(scalar) 247nok(scalar)
252 SV * scalar 248 SV * scalar
253 PROTOTYPE: $ 249 PROTOTYPE: $
254 CODE: 250 CODE:
255 RETVAL = SvNOK (scalar); 251 RETVAL = !!SvNOK (scalar);
256 OUTPUT: 252 OUTPUT:
257 RETVAL 253 RETVAL
258 254
259bool 255bool
260niok(scalar) 256niok(scalar)
261 SV * scalar 257 SV * scalar
262 PROTOTYPE: $ 258 PROTOTYPE: $
263 CODE: 259 CODE:
264 RETVAL = SvNIOK (scalar); 260 RETVAL = !!SvNIOK (scalar);
265 OUTPUT: 261 OUTPUT:
266 RETVAL 262 RETVAL
267 263

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines