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.2 by root, Sun Jan 20 04:23:59 2002 UTC vs.
Revision 1.3 by root, Fri Jul 5 11:44:55 2002 UTC

… …
16 CODE: 16 CODE:
17 SvGETMAGIC (scalar); 17 SvGETMAGIC (scalar);
18 RETVAL = !!SvUTF8 (scalar); 18 RETVAL = !!SvUTF8 (scalar);
19 if (items > 1) 19 if (items > 1)
20 { 20 {
21 if (SvREADONLY (scalar))
22 croak ("Convert::Scalar::utf8 called on read only scalar");
21 if (SvTRUE (mode)) 23 if (SvTRUE (mode))
22 SvUTF8_on (scalar); 24 SvUTF8_on (scalar);
23 else 25 else
24 SvUTF8_off (scalar); 26 SvUTF8_off (scalar);
25 } 27 }
… …
29void 31void
30utf8_on(scalar) 32utf8_on(scalar)
31 SV * scalar 33 SV * scalar
32 PROTOTYPE: $ 34 PROTOTYPE: $
33 PPCODE: 35 PPCODE:
36 if (SvREADONLY (scalar))
37 croak ("Convert::Scalar::utf8_on called on read only scalar");
38
34 SvGETMAGIC (scalar); 39 SvGETMAGIC (scalar);
35 SvUTF8_on (scalar); 40 SvUTF8_on (scalar);
36 if (GIMME_V != G_VOID) 41 if (GIMME_V != G_VOID)
37 XPUSHs (sv_2mortal (SvREFCNT_inc (scalar))); 42 XPUSHs (sv_2mortal (SvREFCNT_inc (scalar)));
38 43
39void 44void
40utf8_off(scalar) 45utf8_off(scalar)
41 SV * scalar 46 SV * scalar
42 PROTOTYPE: $ 47 PROTOTYPE: $
43 PPCODE: 48 PPCODE:
49 if (SvREADONLY (scalar))
50 croak ("Convert::Scalar::utf8_off called on read only scalar");
51
44 SvGETMAGIC (scalar); 52 SvGETMAGIC (scalar);
45 SvUTF8_off (scalar); 53 SvUTF8_off (scalar);
46 if (GIMME_V != G_VOID) 54 if (GIMME_V != G_VOID)
47 XPUSHs (sv_2mortal (SvREFCNT_inc (scalar))); 55 XPUSHs (sv_2mortal (SvREFCNT_inc (scalar)));
48 56
… …
60void 68void
61utf8_upgrade(scalar) 69utf8_upgrade(scalar)
62 SV * scalar 70 SV * scalar
63 PROTOTYPE: $ 71 PROTOTYPE: $
64 PPCODE: 72 PPCODE:
73 if (SvREADONLY (scalar))
74 croak ("Convert::Scalar::utf8_upgrade called on read only scalar");
75
65 sv_utf8_upgrade(scalar); 76 sv_utf8_upgrade(scalar);
66 if (GIMME_V != G_VOID) 77 if (GIMME_V != G_VOID)
67 XPUSHs (sv_2mortal (SvREFCNT_inc (scalar))); 78 XPUSHs (sv_2mortal (SvREFCNT_inc (scalar)));
68 79
69bool 80bool
70utf8_downgrade(scalar, fail_ok = 0) 81utf8_downgrade(scalar, fail_ok = 0)
71 SV * scalar 82 SV * scalar
72 bool fail_ok 83 bool fail_ok
73 PROTOTYPE: $;$ 84 PROTOTYPE: $;$
74 CODE: 85 CODE:
86 if (SvREADONLY (scalar))
87 croak ("Convert::Scalar::utf8_downgrade called on read only scalar");
88
75 RETVAL = sv_utf8_downgrade (scalar, fail_ok); 89 RETVAL = sv_utf8_downgrade (scalar, fail_ok);
76 OUTPUT: 90 OUTPUT:
77 RETVAL 91 RETVAL
78 92
79void 93void
80utf8_encode(scalar) 94utf8_encode(scalar)
81 SV * scalar 95 SV * scalar
82 PROTOTYPE: $ 96 PROTOTYPE: $
83 PPCODE: 97 PPCODE:
98 if (SvREADONLY (scalar))
99 croak ("Convert::Scalar::utf8_encode called on read only scalar");
100
84 sv_utf8_encode (scalar); 101 sv_utf8_encode (scalar);
85 if (GIMME_V != G_VOID) 102 if (GIMME_V != G_VOID)
86 XPUSHs (sv_2mortal (SvREFCNT_inc (scalar))); 103 XPUSHs (sv_2mortal (SvREFCNT_inc (scalar)));
87 104
88UV 105UV

Diff Legend

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