Lines Matching refs:scalar

15 extend (SV *scalar, STRLEN addlen)  in extend()  argument
17 SvUPGRADE (scalar, SVt_PV); in extend()
19 STRLEN cur = SvCUR (scalar); in extend()
20 STRLEN len = SvLEN (scalar); in extend()
37 sv_grow (scalar, l - o); in extend()
49 utf8 (SV *scalar, SV *mode = NO_INIT)
51 SvGETMAGIC (scalar);
52 RETVAL = !!SvUTF8 (scalar);
55 if (SvREADONLY (scalar))
58 SvUTF8_on (scalar);
60 SvUTF8_off (scalar);
66 utf8_on (SV *scalar)
68 if (SvREADONLY (scalar))
71 SvGETMAGIC (scalar);
72 SvUTF8_on (scalar);
73 RETCOPY (scalar);
76 utf8_off (SV *scalar)
78 if (SvREADONLY (scalar))
81 SvGETMAGIC (scalar);
82 SvUTF8_off (scalar);
83 RETCOPY (scalar);
86 utf8_valid (SV *scalar)
89 char *str = SvPV (scalar, len);
95 utf8_upgrade (SV *scalar)
97 if (SvREADONLY (scalar))
100 sv_utf8_upgrade(scalar);
101 RETCOPY (scalar);
104 utf8_downgrade (SV *scalar, bool fail_ok = 0)
106 if (SvREADONLY (scalar))
109 RETVAL = !!sv_utf8_downgrade (scalar, fail_ok);
114 utf8_encode (SV *scalar)
116 if (SvREADONLY (scalar))
119 sv_utf8_encode (scalar);
120 RETCOPY (scalar);
123 utf8_length (SV *scalar)
125 RETVAL = (UV) utf8_length (SvPV_nolen (scalar), SvEND (scalar));
130 readonly (SV *scalar, SV *on = NO_INIT)
132 RETVAL = SvREADONLY (scalar);
136 SvREADONLY_on (scalar);
138 SvREADONLY_off (scalar);
144 readonly_on (SV *scalar)
146 SvREADONLY_on (scalar);
149 readonly_off (SV *scalar)
151 SvREADONLY_off (scalar);
154 unmagic (SV *scalar, char type)
156 sv_unmagic (scalar, type);
159 weaken (SV *scalar)
161 sv_rvweaken (scalar);
164 taint (SV *scalar)
166 SvTAINTED_on (scalar);
169 tainted (SV *scalar)
171 RETVAL = !!SvTAINTED (scalar);
176 untaint (SV *scalar)
178 SvTAINTED_off (scalar);
181 len (SV *scalar)
183 if (SvTYPE (scalar) < SVt_PV)
185 RETVAL = SvLEN (scalar);
190 grow (SV *scalar, STRLEN newlen)
192 sv_grow (scalar, newlen);
194 XPUSHs (sv_2mortal (SvREFCNT_inc (scalar)));
197 extend (SV *scalar, STRLEN addlen = 64)
200 extend (scalar, addlen);
203 XPUSHs (sv_2mortal (SvREFCNT_inc (scalar)));
207 extend_read (PerlIO *fh, SV *scalar, STRLEN addlen = 64)
210 if (SvUTF8 (scalar))
211 sv_utf8_downgrade (scalar, 0);
213 extend (scalar, addlen);
215 RETVAL = PerlLIO_read (PerlIO_fileno (fh), SvEND (scalar), SvLEN (scalar) - SvCUR (scalar));
220 SvPOK_only (scalar);
221 SvCUR_set (scalar, SvCUR (scalar) + RETVAL);
226 read_all (PerlIO *fh, SV *scalar, STRLEN count) in read_all() argument
229 SvUPGRADE (scalar, SVt_PV); in read_all()
230 if (SvUTF8 (scalar)) in read_all()
231 sv_utf8_downgrade (scalar, 0); in read_all()
233 SvPOK_only (scalar); in read_all()
238 SvGROW (scalar, count); in read_all()
247 STRLEN got = PerlLIO_read (fd, SvPVX (scalar) + RETVAL, rem); in read_all()
260 SvCUR_set (scalar, RETVAL); in read_all()
265 write_all (PerlIO *fh, SV *scalar) in write_all() argument
269 char *ptr = SvPVbyte (scalar, count); in write_all()
295 refcnt (SV *scalar, U32 newrefcnt = NO_INIT)
301 if (!SvROK (scalar)) croak ("refcnt_rv requires a reference as it's first argument");
302 scalar = SvRV (scalar);
304 RETVAL = SvREFCNT (scalar);
306 SvREFCNT (scalar) = newrefcnt;
311 refcnt_inc (SV *scalar)
317 … if (!SvROK (scalar)) croak ("refcnt_inc_rv requires a reference as it's first argument");
318 scalar = SvRV (scalar);
320 SvREFCNT_inc (scalar);
323 refcnt_dec (SV *scalar)
329 … if (!SvROK (scalar)) croak ("refcnt_dec_rv requires a reference as it's first argument");
330 scalar = SvRV (scalar);
332 SvREFCNT_dec (scalar);
335 ok (SV *scalar)
337 RETVAL = !!SvOK (scalar);
342 uok (SV *scalar)
344 RETVAL = !!SvUOK (scalar);
349 rok (SV *scalar)
351 RETVAL = !!SvROK (scalar);
356 pok (SV *scalar)
358 RETVAL = !!SvPOK (scalar);
363 nok (SV *scalar)
365 RETVAL = !!SvNOK (scalar);
370 niok (SV *scalar)
372 RETVAL = !!SvNIOK (scalar);