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 | |
4 | |
5 | #if PERL_VERSION < 7 |
5 | #define RETCOPY(sv) \ |
6 | # define is_utf8_string(s,l) (croak ("utf8_valid requires perl 5.7 or higher"), 0) |
6 | if (GIMME_V != G_VOID) \ |
7 | #endif |
7 | { \ |
|
|
8 | dXSTARG; \ |
|
|
9 | sv_setsv (TARG, (sv)); \ |
|
|
10 | EXTEND (SP, 1); \ |
|
|
11 | PUSHs (TARG); \ |
|
|
12 | } |
8 | |
13 | |
9 | MODULE = Convert::Scalar PACKAGE = Convert::Scalar |
14 | MODULE = Convert::Scalar PACKAGE = Convert::Scalar |
10 | |
15 | |
11 | int |
16 | bool |
12 | utf8(scalar,mode=0) |
17 | utf8 (SV *scalar, SV *mode = NO_INIT) |
13 | SV * scalar |
|
|
14 | SV * mode |
|
|
15 | PROTOTYPE: $;$ |
18 | PROTOTYPE: $;$ |
16 | CODE: |
19 | CODE: |
17 | SvGETMAGIC (scalar); |
20 | SvGETMAGIC (scalar); |
18 | RETVAL = !!SvUTF8 (scalar); |
21 | RETVAL = !!SvUTF8 (scalar); |
19 | if (items > 1) |
22 | if (items > 1) |
… | |
… | |
27 | } |
30 | } |
28 | OUTPUT: |
31 | OUTPUT: |
29 | RETVAL |
32 | RETVAL |
30 | |
33 | |
31 | void |
34 | void |
32 | utf8_on(scalar) |
35 | utf8_on (SV *scalar) |
33 | SV * scalar |
|
|
34 | PROTOTYPE: $ |
36 | PROTOTYPE: $ |
35 | PPCODE: |
37 | PPCODE: |
36 | if (SvREADONLY (scalar)) |
38 | if (SvREADONLY (scalar)) |
37 | croak ("Convert::Scalar::utf8_on called on read only scalar"); |
39 | croak ("Convert::Scalar::utf8_on called on read only scalar"); |
38 | |
40 | |
39 | SvGETMAGIC (scalar); |
41 | SvGETMAGIC (scalar); |
40 | SvUTF8_on (scalar); |
42 | SvUTF8_on (scalar); |
41 | if (GIMME_V != G_VOID) |
43 | RETCOPY (scalar); |
42 | XPUSHs (sv_2mortal (SvREFCNT_inc (scalar))); |
|
|
43 | |
44 | |
44 | void |
45 | void |
45 | utf8_off(scalar) |
46 | utf8_off (SV *scalar) |
46 | SV * scalar |
|
|
47 | PROTOTYPE: $ |
47 | PROTOTYPE: $ |
48 | PPCODE: |
48 | PPCODE: |
49 | if (SvREADONLY (scalar)) |
49 | if (SvREADONLY (scalar)) |
50 | croak ("Convert::Scalar::utf8_off called on read only scalar"); |
50 | croak ("Convert::Scalar::utf8_off called on read only scalar"); |
51 | |
51 | |
52 | SvGETMAGIC (scalar); |
52 | SvGETMAGIC (scalar); |
53 | SvUTF8_off (scalar); |
53 | SvUTF8_off (scalar); |
54 | if (GIMME_V != G_VOID) |
54 | RETCOPY (scalar); |
55 | XPUSHs (sv_2mortal (SvREFCNT_inc (scalar))); |
|
|
56 | |
55 | |
57 | int |
56 | int |
58 | utf8_valid(scalar) |
57 | utf8_valid (SV *scalar) |
59 | SV * scalar |
|
|
60 | PROTOTYPE: $ |
58 | PROTOTYPE: $ |
61 | CODE: |
59 | CODE: |
62 | STRLEN len; |
60 | STRLEN len; |
63 | char *str = SvPV (scalar, len); |
61 | char *str = SvPV (scalar, len); |
64 | RETVAL = !!is_utf8_string (str, len); |
62 | RETVAL = !!is_utf8_string (str, len); |
65 | OUTPUT: |
63 | OUTPUT: |
66 | RETVAL |
64 | RETVAL |
67 | |
65 | |
68 | void |
66 | void |
69 | utf8_upgrade(scalar) |
67 | utf8_upgrade (SV *scalar) |
70 | SV * scalar |
|
|
71 | PROTOTYPE: $ |
68 | PROTOTYPE: $ |
72 | PPCODE: |
69 | PPCODE: |
73 | if (SvREADONLY (scalar)) |
70 | if (SvREADONLY (scalar)) |
74 | croak ("Convert::Scalar::utf8_upgrade called on read only scalar"); |
71 | croak ("Convert::Scalar::utf8_upgrade called on read only scalar"); |
75 | |
72 | |
76 | sv_utf8_upgrade(scalar); |
73 | sv_utf8_upgrade(scalar); |
77 | if (GIMME_V != G_VOID) |
74 | RETCOPY (scalar); |
78 | XPUSHs (sv_2mortal (SvREFCNT_inc (scalar))); |
|
|
79 | |
75 | |
80 | bool |
76 | bool |
81 | utf8_downgrade(scalar, fail_ok = 0) |
77 | utf8_downgrade (SV *scalar, bool fail_ok = 0) |
82 | SV * scalar |
|
|
83 | bool fail_ok |
|
|
84 | PROTOTYPE: $;$ |
78 | PROTOTYPE: $;$ |
85 | CODE: |
79 | CODE: |
86 | if (SvREADONLY (scalar)) |
80 | if (SvREADONLY (scalar)) |
87 | croak ("Convert::Scalar::utf8_downgrade called on read only scalar"); |
81 | croak ("Convert::Scalar::utf8_downgrade called on read only scalar"); |
88 | |
82 | |
89 | RETVAL = sv_utf8_downgrade (scalar, fail_ok); |
83 | RETVAL = !!sv_utf8_downgrade (scalar, fail_ok); |
90 | OUTPUT: |
84 | OUTPUT: |
91 | RETVAL |
85 | RETVAL |
92 | |
86 | |
93 | void |
87 | void |
94 | utf8_encode(scalar) |
88 | utf8_encode (SV *scalar) |
95 | SV * scalar |
|
|
96 | PROTOTYPE: $ |
89 | PROTOTYPE: $ |
97 | PPCODE: |
90 | PPCODE: |
98 | if (SvREADONLY (scalar)) |
91 | if (SvREADONLY (scalar)) |
99 | croak ("Convert::Scalar::utf8_encode called on read only scalar"); |
92 | croak ("Convert::Scalar::utf8_encode called on read only scalar"); |
100 | |
93 | |
101 | sv_utf8_encode (scalar); |
94 | sv_utf8_encode (scalar); |
102 | if (GIMME_V != G_VOID) |
95 | RETCOPY (scalar); |
103 | XPUSHs (sv_2mortal (SvREFCNT_inc (scalar))); |
|
|
104 | |
96 | |
105 | UV |
97 | UV |
106 | utf8_length(scalar) |
98 | utf8_length (SV *scalar) |
107 | SV * scalar |
|
|
108 | PROTOTYPE: $ |
99 | PROTOTYPE: $ |
109 | CODE: |
100 | CODE: |
110 | RETVAL = (UV) utf8_length (SvPV_nolen (scalar), SvEND (scalar)); |
101 | RETVAL = (UV) utf8_length (SvPV_nolen (scalar), SvEND (scalar)); |
111 | OUTPUT: |
102 | OUTPUT: |
112 | RETVAL |
103 | RETVAL |
113 | |
104 | |
|
|
105 | bool |
|
|
106 | readonly (SV *scalar, SV *on = NO_INIT) |
|
|
107 | PROTOTYPE: $;$ |
|
|
108 | CODE: |
|
|
109 | RETVAL = SvREADONLY (scalar); |
|
|
110 | if (items > 1) |
|
|
111 | { |
|
|
112 | if (SvTRUE (on)) |
|
|
113 | SvREADONLY_on (scalar); |
|
|
114 | else |
|
|
115 | SvREADONLY_off (scalar); |
|
|
116 | } |
|
|
117 | OUTPUT: |
|
|
118 | RETVAL |
|
|
119 | |
114 | void |
120 | void |
|
|
121 | readonly_on (SV *scalar) |
|
|
122 | PROTOTYPE: $ |
|
|
123 | CODE: |
|
|
124 | SvREADONLY_on (scalar); |
|
|
125 | |
|
|
126 | void |
|
|
127 | readonly_off (SV *scalar) |
|
|
128 | PROTOTYPE: $ |
|
|
129 | CODE: |
|
|
130 | SvREADONLY_off (scalar); |
|
|
131 | |
|
|
132 | void |
115 | unmagic(scalar, type) |
133 | unmagic (SV *scalar, char type) |
116 | SV * scalar |
|
|
117 | char type |
|
|
118 | PROTOTYPE: $ |
134 | PROTOTYPE: $$ |
119 | CODE: |
135 | CODE: |
120 | sv_unmagic (scalar, type); |
136 | sv_unmagic (scalar, type); |
121 | |
137 | |
122 | void |
138 | void |
123 | weaken(scalar) |
139 | weaken (SV *scalar) |
124 | SV * scalar |
|
|
125 | PROTOTYPE: $ |
140 | PROTOTYPE: $ |
126 | CODE: |
141 | CODE: |
127 | sv_rvweaken (scalar); |
142 | sv_rvweaken (scalar); |
128 | |
143 | |
129 | void |
144 | void |
130 | taint(scalar) |
145 | taint (SV *scalar) |
131 | SV * scalar |
|
|
132 | PROTOTYPE: $ |
146 | PROTOTYPE: $ |
133 | CODE: |
147 | CODE: |
134 | SvTAINTED_on (scalar); |
148 | SvTAINTED_on (scalar); |
135 | |
149 | |
136 | int |
150 | bool |
137 | tainted(scalar) |
151 | tainted (SV *scalar) |
138 | SV * scalar |
|
|
139 | PROTOTYPE: $ |
152 | PROTOTYPE: $ |
140 | CODE: |
153 | CODE: |
141 | RETVAL = SvTAINTED (scalar); |
154 | RETVAL = !!SvTAINTED (scalar); |
142 | OUTPUT: |
155 | OUTPUT: |
143 | RETVAL |
156 | RETVAL |
144 | |
157 | |
145 | void |
158 | void |
146 | untaint(scalar) |
159 | untaint (SV *scalar) |
147 | SV * scalar |
|
|
148 | PROTOTYPE: $ |
160 | PROTOTYPE: $ |
149 | CODE: |
161 | CODE: |
150 | SvTAINTED_off (scalar); |
162 | SvTAINTED_off (scalar); |
151 | |
163 | |
|
|
164 | STRLEN |
|
|
165 | len (SV *scalar) |
|
|
166 | PROTOTYPE: $ |
|
|
167 | CODE: |
|
|
168 | if (SvTYPE (scalar) < SVt_PV) |
|
|
169 | XSRETURN_UNDEF; |
|
|
170 | RETVAL = SvLEN (scalar); |
|
|
171 | OUTPUT: |
|
|
172 | RETVAL |
|
|
173 | |
152 | void |
174 | void |
153 | grow(scalar,newlen) |
175 | grow (SV *scalar, STRLEN newlen) |
154 | SV * scalar |
|
|
155 | U32 newlen |
|
|
156 | PROTOTYPE: $$ |
176 | PROTOTYPE: $$ |
157 | PPCODE: |
177 | PPCODE: |
158 | sv_grow (scalar, newlen); |
178 | sv_grow (scalar, newlen); |
159 | if (GIMME_V != G_VOID) |
179 | if (GIMME_V != G_VOID) |
160 | XPUSHs (sv_2mortal (SvREFCNT_inc (scalar))); |
180 | XPUSHs (sv_2mortal (SvREFCNT_inc (scalar))); |
161 | |
181 | |
|
|
182 | void |
|
|
183 | extend (SV *scalar, STRLEN addlen) |
|
|
184 | PROTOTYPE: $$ |
|
|
185 | PPCODE: |
|
|
186 | { |
|
|
187 | if (SvTYPE (scalar) < SVt_PV) |
|
|
188 | sv_upgrade (scalar, SVt_PV); |
|
|
189 | |
|
|
190 | if (SvCUR (scalar) + addlen >= SvLEN (scalar)) |
|
|
191 | { |
|
|
192 | STRLEN l = SvLEN (scalar); |
|
|
193 | STRLEN o = SvCUR (scalar) + addlen >= 4096 ? sizeof (void *) * 4 : 0; |
|
|
194 | |
|
|
195 | if (l < 64) |
|
|
196 | l = 64; |
|
|
197 | |
|
|
198 | /* for big sizes, leave a bit of space for malloc management, and assume 4kb or smaller pages */ |
|
|
199 | addlen += o; |
|
|
200 | |
|
|
201 | while (SvCUR (scalar) + addlen >= l) |
|
|
202 | l <<= 1; |
|
|
203 | |
|
|
204 | l -= o; |
|
|
205 | |
|
|
206 | sv_grow (scalar, l); |
|
|
207 | } |
|
|
208 | |
|
|
209 | if (GIMME_V != G_VOID) |
|
|
210 | XPUSHs (sv_2mortal (SvREFCNT_inc (scalar))); |
|
|
211 | } |
|
|
212 | |
162 | int |
213 | int |
163 | refcnt(scalar,newrefcnt=0) |
214 | refcnt (SV *scalar, U32 newrefcnt = NO_INIT) |
164 | SV * scalar |
|
|
165 | int newrefcnt |
|
|
166 | PROTOTYPE: $;$ |
215 | PROTOTYPE: $;$ |
167 | ALIAS: |
216 | ALIAS: |
168 | refcnt_rv = 1 |
217 | refcnt_rv = 1 |
169 | CODE: |
218 | CODE: |
170 | if (ix) |
219 | if (ix) |
… | |
… | |
177 | SvREFCNT (scalar) = newrefcnt; |
226 | SvREFCNT (scalar) = newrefcnt; |
178 | OUTPUT: |
227 | OUTPUT: |
179 | RETVAL |
228 | RETVAL |
180 | |
229 | |
181 | void |
230 | void |
182 | refcnt_inc(scalar) |
231 | refcnt_inc (SV *scalar) |
183 | SV * scalar |
|
|
184 | ALIAS: |
232 | ALIAS: |
185 | refcnt_inc_rv = 1 |
233 | refcnt_inc_rv = 1 |
186 | PROTOTYPE: $ |
234 | PROTOTYPE: $ |
187 | CODE: |
235 | CODE: |
188 | if (ix) |
236 | if (ix) |
… | |
… | |
191 | scalar = SvRV (scalar); |
239 | scalar = SvRV (scalar); |
192 | } |
240 | } |
193 | SvREFCNT_inc (scalar); |
241 | SvREFCNT_inc (scalar); |
194 | |
242 | |
195 | void |
243 | void |
196 | refcnt_dec(scalar) |
244 | refcnt_dec (SV *scalar) |
197 | SV * scalar |
|
|
198 | ALIAS: |
245 | ALIAS: |
199 | refcnt_dec_rv = 1 |
246 | refcnt_dec_rv = 1 |
200 | PROTOTYPE: $ |
247 | PROTOTYPE: $ |
201 | CODE: |
248 | CODE: |
202 | if (ix) |
249 | if (ix) |
… | |
… | |
205 | scalar = SvRV (scalar); |
252 | scalar = SvRV (scalar); |
206 | } |
253 | } |
207 | SvREFCNT_dec (scalar); |
254 | SvREFCNT_dec (scalar); |
208 | |
255 | |
209 | bool |
256 | bool |
210 | ok(scalar) |
257 | ok (SV *scalar) |
211 | SV * scalar |
|
|
212 | PROTOTYPE: $ |
258 | PROTOTYPE: $ |
213 | CODE: |
259 | CODE: |
214 | RETVAL = SvOK (scalar); |
260 | RETVAL = !!SvOK (scalar); |
215 | OUTPUT: |
261 | OUTPUT: |
216 | RETVAL |
262 | RETVAL |
217 | |
263 | |
218 | bool |
264 | bool |
219 | uok(scalar) |
265 | uok (SV *scalar) |
220 | SV * scalar |
|
|
221 | PROTOTYPE: $ |
266 | PROTOTYPE: $ |
222 | CODE: |
267 | CODE: |
223 | RETVAL = SvUOK (scalar); |
268 | RETVAL = !!SvUOK (scalar); |
224 | OUTPUT: |
269 | OUTPUT: |
225 | RETVAL |
270 | RETVAL |
226 | |
271 | |
227 | bool |
272 | bool |
228 | rok(scalar) |
273 | rok (SV *scalar) |
229 | SV * scalar |
|
|
230 | PROTOTYPE: $ |
274 | PROTOTYPE: $ |
231 | CODE: |
275 | CODE: |
232 | RETVAL = SvROK (scalar); |
276 | RETVAL = !!SvROK (scalar); |
233 | OUTPUT: |
277 | OUTPUT: |
234 | RETVAL |
278 | RETVAL |
235 | |
279 | |
236 | bool |
280 | bool |
237 | pok(scalar) |
281 | pok (SV *scalar) |
238 | SV * scalar |
|
|
239 | PROTOTYPE: $ |
282 | PROTOTYPE: $ |
240 | CODE: |
283 | CODE: |
241 | RETVAL = SvPOK (scalar); |
284 | RETVAL = !!SvPOK (scalar); |
242 | OUTPUT: |
285 | OUTPUT: |
243 | RETVAL |
286 | RETVAL |
244 | |
287 | |
245 | bool |
288 | bool |
246 | nok(scalar) |
289 | nok (SV *scalar) |
247 | SV * scalar |
|
|
248 | PROTOTYPE: $ |
290 | PROTOTYPE: $ |
249 | CODE: |
291 | CODE: |
250 | RETVAL = SvNOK (scalar); |
292 | RETVAL = !!SvNOK (scalar); |
251 | OUTPUT: |
293 | OUTPUT: |
252 | RETVAL |
294 | RETVAL |
253 | |
295 | |
254 | bool |
296 | bool |
255 | niok(scalar) |
297 | niok (SV *scalar) |
256 | SV * scalar |
|
|
257 | PROTOTYPE: $ |
298 | PROTOTYPE: $ |
258 | CODE: |
299 | CODE: |
259 | RETVAL = SvNIOK (scalar); |
300 | RETVAL = !!SvNIOK (scalar); |
260 | OUTPUT: |
301 | OUTPUT: |
261 | RETVAL |
302 | RETVAL |
262 | |
303 | |