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.6 by root, Fri Nov 26 21:05:13 2004 UTC vs.
Revision 1.8 by root, Sat Nov 27 23:36:37 2004 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; \
… …
15 PUSHs (TARG); \ 11 PUSHs (TARG); \
16 } 12 }
17 13
18MODULE = Convert::Scalar PACKAGE = Convert::Scalar 14MODULE = Convert::Scalar PACKAGE = Convert::Scalar
19 15
20int 16bool
21utf8(scalar,mode=0) 17utf8(scalar,mode=0)
22 SV * scalar 18 SV * scalar
23 SV * mode 19 SV * mode
24 PROTOTYPE: $;$ 20 PROTOTYPE: $;$
25 CODE: 21 CODE:

Diff Legend

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