Lines Matching refs:sv
54 # define IS_UTF8(x) (SvUTF8(sv))
66 #define TRACK_OBJECT(sv) (av_push(((struct parser_xtra *)p->bonus)->objects, sv))
67 #define USE_OBJECT(sv) (SvREFCNT_inc(sv))
76 SV *sv = NULL;
93 sv = newSV(0);
96 sv = newSVpvn(n->data.str->ptr, n->data.str->len);
100 sv = newSV(0);
102 sv = newSVsv(&PL_sv_yes);
104 sv = newSVsv(&PL_sv_no);
106 sv = newSVpvn(n->data.str->ptr, n->data.str->len);
130 sv = newSVnv(total);
133 sv = newSVnv(NV_NAN);
137 sv = newSVnv(NV_INF);
139 sv = newSVnv(-NV_INF);
145 sv = newSVnv( f );
168 sv = newSVuv(total);
173 sv = newSVuv( grok_hex( n->data.str->ptr, &len, &flags, NULL) );
178 sv = newSVuv( grok_oct( n->data.str->ptr, &len, &flags, NULL) );
188 sv = newSViv(uv);
191 sv = newSVuv(uv);
195 sv = newSViv(-(IV)uv);
198 sv = newSVnv(Atof( n->data.str->ptr ));
203 sv = newSVpv(blob, len);
237 sv = cv;
243 SvREFCNT_inc(sv); /* XXX seems to be necessary */
249 sv_bless(sv, gv_stashpv(pkg, TRUE));
260 sv = newSVpv(type, 0);
263 sv = newSVpv(form((type == NULL) ? "%s" : "%s::%s", lang, type), 0);
270 sv = newSV(0);
273 sv = newSVpvn(n->data.str->ptr, n->data.str->len);
277 sv = newRV_inc(sv);
279 sv_bless(sv, gv_stashpv(id + 12, TRUE));
295 sv = newSVsv(POPs);
310 sv_bless(sv, gv_stashpv(type, TRUE));
314 sv_bless(sv, gv_stashpv(form((type == NULL) ? "%s" : "%s::%s", lang, type), TRUE));
320 sv = newSVpvn(n->data.str->ptr, n->data.str->len);
333 /* create the ref to the new array in the sv */
334 sv = newRV_noinc((SV*)seq);
355 sv_bless(sv, gv_stashpv(type, TRUE));
359 sv_bless(sv, gv_stashpv(form((type == NULL) ? "%s" : "%s::%s", lang, type), TRUE));
373 sv = newRV_noinc(val);
378 sv_bless(sv, gv_stashpv(ref_type, TRUE));
393 sv_bless(sv, gv_stashpv(type, TRUE));
397 sv_bless(sv, gv_stashpv(form((type == NULL) ? "%s" : "%s::%s", lang, type), TRUE));
416 sv = newSVsv(POPs);
424 sv_bless(sv, gv_stashpv(ref_type, TRUE));
439 sv_bless(sv, gv_stashpv(type, TRUE));
443 sv_bless(sv, gv_stashpv(form((type == NULL) ? "%s" : "%s::%s", lang, type), TRUE));
459 sv = newRV_noinc((SV*)map);
479 sv_bless(sv, gv_stashpv(type, TRUE));
482 sv_bless(sv, gv_stashpv(form((type == NULL) ? "%s" : "%s::%s", lang, type), TRUE));
493 sv_setsv( perl_syck_lookup_sym(p, n->id), sv );
497 TRACK_OBJECT(sv);
499 return syck_add_sym(p, (char *)sv);
544 void perl_json_postprocess(SV *sv) {
550 char *s = SvPVX(sv);
551 STRLEN len = sv_len(sv);
585 SvCUR_set(sv, final_len);
677 (SyckEmitter *e, SV *sv) {
678 if (syck_emitter_mark_node(e, (st_data_t)sv) == 0) {
685 if (SvROK(sv)) {
686 PERL_SYCK_MARK_EMITTER(e, SvRV(sv));
688 st_insert(e->markers, (st_data_t)sv, 0);
693 switch (SvTYPE(sv)) {
696 len = av_len((AV*)sv) + 1;
698 SV** sav = av_fetch((AV*)sv, i, 0);
708 len = HvTOTALKEYS((HV*)sv);
710 len = HvKEYS((HV*)sv);
712 hv_iterinit((HV*)sv);
715 HE *he = hv_iternext_flags((HV*)sv, HV_ITERNEXT_WANTPLACEHOLDERS);
717 HE *he = hv_iternext((HV*)sv);
719 SV *val = hv_iterval((HV*)sv, he);
727 st_insert(e->markers, (st_data_t)sv, 0);
740 SV* sv = (SV*)data;
743 svtype ty = SvTYPE(sv);
752 if (SvMAGICAL(sv)) {
753 mg_get(sv);
759 if (sv_isobject(sv)) {
760 ref = savepv(sv_reftype(SvRV(sv), TRUE));
764 switch (SvTYPE(SvRV(sv))) {
783 if ( SvROK(SvRV(sv)) ) {
790 sv = SvRV(sv);
791 ty = SvTYPE(sv);
797 if ( (mg = mg_find(SvRV(sv), PERL_MAGIC_qr) ) ) {
805 sv = newSVpvn(SvPV_nolen(sv), sv_len(sv));
806 ty = SvTYPE(sv);
810 sv = SvRV(sv);
811 ty = SvTYPE(sv);
822 if (SvROK(sv)) {
825 PERL_SYCK_EMITTER_HANDLER(e, (st_data_t)SvRV(sv));
827 switch (SvTYPE(SvRV(sv))) {
833 syck_emit_item(e, (st_data_t)SvRV(sv));
839 STRLEN len = sv_len(sv);
840 syck_emit_scalar( e, OBJOF("tag:!perl:regexp"), SCALAR_STRING, 0, 0, 0, SvPV_nolen(sv), len );
849 syck_emit_item( e, (st_data_t)SvRV(sv) );
859 else if ((ty == SVt_PVMG) && !SvOK(sv)) {
863 else if (SvNIOKp(sv) && (sv_len(sv) != 0)) {
865 syck_emit_scalar(e, OBJOF("str"), SCALAR_NUMBER, 0, 0, 0, SvPV_nolen(sv), sv_len(sv));
867 else if (SvPOKp(sv)) {
869 STRLEN len = sv_len(sv);
873 else if (IS_UTF8(sv)) {
877 syck_emit_scalar(e, OBJOF("str"), SCALAR_STRING, 0, 0, 0, SvPV_nolen(sv), len);
884 char *str = SvPV_nolen(sv);
885 STRLEN len = sv_len(sv);
903 syck_emit_scalar(e, OBJOF("str"), SCALAR_STRING, 0, 0, 0, SvPV_nolen(sv), len);
913 len = av_len((AV*)sv) + 1;
915 SV** sav = av_fetch((AV*)sv, i, 0);
927 HV *hv = (HV*)sv;
933 len = HvTOTALKEYS((HV*)sv);
935 len = HvKEYS((HV*)sv);
937 hv_iterinit((HV*)sv);
993 CV *cv = (CV*)sv;
1048 syck_emit_scalar(e, OBJOF("str"), SCALAR_STRING, 0, 0, 0, SvPV_nolen(sv), sv_len(sv));
1052 syck_emit_scalar(e, OBJOF("str"), SCALAR_STRING, 0, 0, 0, SvPV_nolen(sv), sv_len(sv));
1070 (SV *sv) {
1119 PERL_SYCK_MARK_EMITTER( emitter, sv );
1126 syck_emit( emitter, (st_data_t)sv );