/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | pp_ctl.c | 84 SV *sv = SvRV(tmpstr); local 85 if(SvMAGICAL(sv)) 86 mg = mg_find(sv, PERL_MAGIC_qr); 241 SV *sv = cx->sb_targ; local 244 if (SvTYPE(sv) < SVt_PVMG) 245 (void)SvUPGRADE(sv, SVt_PVMG); 246 if (!(mg = mg_find(sv, PERL_MAGIC_regex_global))) { 247 sv_magic(sv, Nullsv, PERL_MAGIC_regex_global, Nullch, 0); 248 mg = mg_find(sv, PERL_MAGIC_regex_global); 251 if (DO_UTF8(sv)) 333 register SV *sv = Nullsv; local 1032 register SV *sv; local 1271 SV *sv; local 1440 SV *sv; local 1804 SV *sv; local 1916 SV *sv = Nullsv; local 2114 SV *sv = POPs; local 2314 SV *sv = GvSV(PL_DBsub); local 2532 S_save_lines(pTHX_ AV *array, SV *sv) argument 2628 Perl_sv_compile_2op(pTHX_ SV *sv, OP** startop, char *code, PAD** padp) argument 2656 SV *sv = sv_newmortal(); local 2956 SV *sv; local 3354 SV *sv = sv_newmortal(); local 3557 S_doparseform(pTHX_ SV *sv) argument [all...] |
H A D | doio.c | 637 SV *sv; local 640 sv = *av_fetch(PL_fdpid,fd,TRUE); 641 (void)SvUPGRADE(sv, SVt_IV); 642 pid = SvIVX(sv); 643 SvIVX(sv) = 0; 644 sv = *av_fetch(PL_fdpid,savefd,TRUE); 645 (void)SvUPGRADE(sv, SVt_IV); 646 SvIVX(sv) = pid; 712 register SV *sv; local 746 sv 748 sv_setsv(GvSV(gv),sv); local 801 sv); local 812 PL_oldname, sv, Strerror(errno) ); local 828 PL_oldname, sv, Strerror(errno) ); local 927 Perl_do_pipe(pTHX_ SV *sv, GV *rgv, GV *wgv) argument 1257 Perl_do_print(pTHX_ register SV *sv, PerlIO *fp) argument 1350 SV* sv = POPs; local 1379 SV *sv; local [all...] |
H A D | hv.c | 156 SV *sv = sv_newmortal(), *esv = sv_newmortal(); local 158 sv_setpvn(sv, key, klen); 162 /* XXX is this line an error ???: SV *sv = sv_newmortal(); */ 163 sv_usepvn(sv, (char *) key, klen); 166 SvUTF8_on(sv); 169 Perl_croak(aTHX_ SvPVX(esv), sv); local 347 /* note that hent_val will be a mortal sv for MAGICAL hashes */ 380 SV *sv; local 402 sv = sv_newmortal(); 415 mg_copy((SV*)hv, sv, (cha 813 SV *sv; local 881 SV *sv; local 1832 SV *sv; local 1878 SV* sv = sv_newmortal(); local [all...] |
H A D | gv.c | 261 SV* sv = *svp++; local 262 HV* basestash = gv_stashsv(sv, FALSE); 266 sv, HvNAME(stash)); local 633 Perl_gv_stashsv(pTHX_ SV *sv, I32 create) argument 637 ptr = SvPV(sv,len); 1056 SV *sv = GvSV(gv); local 1057 (void)SvUPGRADE(sv, SVt_PVNV); 1058 Perl_sv_setpvf(aTHX_ sv, 1066 SvNVX(sv) = SvNVX(PL_patchlevel); 1067 SvNOK_on(sv); 1073 SV *sv = GvSV(gv); local 1083 Perl_gv_fullname4(pTHX_ SV *sv, GV *gv, const char *prefix, bool keepmain) argument 1099 Perl_gv_fullname3(pTHX_ SV *sv, GV *gv, const char *prefix) argument 1105 Perl_gv_efullname4(pTHX_ SV *sv, GV *gv, const char *prefix, bool keepmain) argument 1114 Perl_gv_efullname3(pTHX_ SV *sv, GV *gv, const char *prefix) argument 1121 Perl_gv_fullname(pTHX_ SV *sv, GV *gv) argument 1128 Perl_gv_efullname(pTHX_ SV *sv, GV *gv) argument [all...] |
H A D | pad.h | 89 =for apidoc m|SV *|PAD_SETSV |PADOFFSET po|SV* sv 90 Set the slot at offset C<po> in the current pad to C<sv> 126 # define PAD_SETSV(po,sv) pad_setsv(po,sv) 129 # define PAD_SETSV(po,sv) PL_curpad[po] = (sv)
|
H A D | hv.h | 33 /* This structure must match the beginning of struct xpvmg in sv.h. */ 166 =for apidoc Am|SV*|HeSVKEY_set|HE* he|SV* sv 271 #define HeSVKEY_set(he,sv) ((HeKLEN(he) = HEf_SVKEY), (HeKEY_sv(he) = sv)) 322 #define Perl_sharepvn(sv, len, hash) HEK_KEY(share_hek(sv, len, hash)) 323 #define sharepvn(sv, len, hash) Perl_sharepvn(sv, len, hash)
|
H A D | util.c | 355 Perl_fbm_compile(pTHX_ SV *sv, U32 flags) argument 365 MAGIC *mg = SvUTF8(sv) && SvMAGICAL(sv) ? mg_find(sv, PERL_MAGIC_utf8) : NULL; 366 sv_catpvn(sv, "\n", 1); /* Taken into account in fbm_instr() */ 370 s = (U8*)SvPV_force(sv, len); 371 (void)SvUPGRADE(sv, SVt_PVBM); 382 Sv_Grow(sv, len + 256 + FBM_TABLE_OFFSET); 383 table = (unsigned char*)(SvPVX(sv) + len + FBM_TABLE_OFFSET); 395 sv_magic(sv, Nulls 818 SV *sv; local 885 SV *sv = mess_alloc(); local 949 SV *sv = mess_alloc(); local 1810 SV *sv; local 1943 SV *sv; local 2436 SV *sv; local 2454 SV *sv; local 2504 register SV *sv; local 2950 Perl_condpair_magic(pTHX_ SV *sv) argument 2991 SV *sv = osv; local 3029 SV *sv; local 3122 SV *sv = newSVsv(*svp); local 3801 Perl_getcwd_sv(pTHX_ register SV *sv) argument 4213 Perl_sv_nosharing(pTHX_ SV *sv) argument 4228 Perl_sv_nolocking(pTHX_ SV *sv) argument 4244 Perl_sv_nounlocking(pTHX_ SV *sv) argument [all...] |
H A D | perl.c | 552 * destructors and destructees still exist. Some sv's might remain. 955 SV* sv; local 960 for (sv = sva + 1; sv < svend; ++sv) { 961 if (SvTYPE(sv) != SVTYPEMASK) { 962 PerlIO_printf(Perl_debug_log, "leaked: 0x%p\n", sv); 1317 register SV *sv; local 1324 sv = newSVpvn("",0); /* first used for -I flags */ 1325 SAVEFREESV(sv); 1708 SV* sv; local 2112 Perl_call_sv(pTHX_ SV *sv, I32 flags) argument 2300 Perl_eval_sv(pTHX_ SV *sv, I32 flags) argument 2403 SV* sv = newSVpv(p, 0); local 2436 SV* sv; local 2613 SV *sv; local 2725 SV *sv; local 3049 S_open_script(pTHX_ char *scriptname, bool dosearch, SV *sv) argument 4079 SV *sv = newSVpv(argv[0],0); local 4080 av_push(GvAVn(PL_argvgv),sv); local 4096 S_procself_val(pTHX_ SV *sv, char *arg0) argument 4130 SV *sv; local [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/ |
H A D | Dumper.xs | 8 static I32 esc_q_utf8 (pTHX_ SV *sv, char *src, STRLEN slen); 9 static SV *sv_x (pTHX_ SV *sv, char *str, STRLEN len, I32 n); 45 #define DD_is_integer(sv) (SvIOK(sv) && (SvIsUV(val) ? SvUV(sv) == SvNV(sv) : SvIV(sv) == SvNV(sv))) 47 #define DD_is_integer(sv) SvIOK(sv) [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/scalar/ |
H A D | scalar.xs | 122 SV *sv = s->var; 125 dst = SvGROW(sv, SvCUR(sv) + count); 126 offset = SvCUR(sv); 130 if ((s->posn + count) > SvCUR(sv)) 131 dst = SvGROW(sv, (STRLEN)s->posn + count); 133 dst = SvPV_nolen(sv); 138 if ((STRLEN) s->posn > SvCUR(sv)) 139 SvCUR_set(sv, (STRLEN)s->posn);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/ByteLoader/ |
H A D | ByteLoader.xs | 130 SV *sv = newSVpvn ("", 0); 132 if (!sv) 134 filter_add(byteloader_filter, sv);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/CN/ |
H A D | Makefile.PL | 118 SV *sv = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash); 121 XPUSHs(sv); 129 SvREFCNT_dec(sv);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/EBCDIC/ |
H A D | Makefile.PL | 99 SV *sv = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash); 102 XPUSHs(sv); 110 SvREFCNT_dec(sv);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/JP/ |
H A D | Makefile.PL | 118 SV *sv = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash); 121 XPUSHs(sv); 129 SvREFCNT_dec(sv);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/KR/ |
H A D | Makefile.PL | 116 SV *sv = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash); 119 XPUSHs(sv); 127 SvREFCNT_dec(sv);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/Symbol/ |
H A D | Makefile.PL | 104 SV *sv = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash); 107 XPUSHs(sv); 115 SvREFCNT_dec(sv);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/TW/ |
H A D | Makefile.PL | 114 SV *sv = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash); 117 XPUSHs(sv); 125 SvREFCNT_dec(sv);
|
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/ |
H A D | Exacct.xs | 129 SV *sv; 133 sv = SvRV(catalog); 134 if (SvIOK(sv) && 135 SvSTASH(sv) == Sun_Solaris_Exacct_Catalog_stash) { 136 return (SvIV(sv)); 254 deflate_xs_ea_object(SV *sv) 260 PERL_ASSERT(sv != NULL); 261 sv = SvRV(sv); 262 PERL_ASSERT(sv ! [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/PPPort/ |
H A D | PPPort.pm | 96 newCONSTSUB(stash,name,sv) 97 newRV_inc(sv) 98 newRV_noinc(sv) 136 SvPVbyte(sv,lp) [*] 522 # define newRV_inc(sv) newRV(sv) 537 # define newRV_noinc(sv) \ 539 SV *nsv = (SV*)newRV(sv); \ 540 SvREFCNT_dec(sv); \ 545 static SV * newRV_noinc (SV * sv) [all...] |
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Object/ |
H A D | Object.xs | 62 SV *sv; 84 sv = copy_xs_ea_object(*svp); 85 if (av_store(dst_av, i, sv) == NULL) { 86 SvREFCNT_dec(sv); 92 sv = newRV_noinc((SV *)dst_av); 93 sv_bless(sv, Sun_Solaris_Exacct_Object__Array_stash); 95 sv_magic((SV *)tied_av, sv, 'P', Nullch, 0); 96 SvREFCNT_dec(sv); 138 SV *rv, *sv; 471 SV *sv, *r [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Digest/MD5/ |
H A D | MD5.xs | 72 #define SvPVbyte(sv, lp) \ 73 ((SvFLAGS(sv) & (SVf_POK|SVf_UTF8)) == (SVf_POK) \ 74 ? ((lp = SvCUR(sv)), SvPVX(sv)) : my_sv_2pvbyte(aTHX_ sv, &lp)) 77 my_sv_2pvbyte(pTHX_ register SV *sv, STRLEN *lp) 79 sv_utf8_downgrade(sv,0); 80 return SvPV(sv,*lp); 469 static MD5_CTX* get_md5_ctx(pTHX_ SV* sv) 471 if (SvROK(sv)) { [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/Byte/ |
H A D | Makefile.PL | 142 SV *sv = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash); 145 XPUSHs(sv); 153 SvREFCNT_dec(sv);
|
/osnet-11/usr/src/lib/libsocket/common/ |
H A D | llib-lsocket | 76 int socketpair(int domain, int type, int protocol, int sv[]); 77 int _socketpair(int domain, int type, int protocol, int *sv); 78 int _socketpair_bsd(int domain, int type, int protocol, int *sv); 79 int __xnet_socketpair(int domain, int type, int protocol, int *sv);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IPC/SysV/ |
H A D | SysV.xs | 65 SV *sv; 68 sv = *av_fetch(list,0,TRUE); ds.msg_perm.uid = SvIV(sv); 69 sv = *av_fetch(list,1,TRUE); ds.msg_perm.gid = SvIV(sv); 70 sv = *av_fetch(list,4,TRUE); ds.msg_perm.mode = SvIV(sv); 71 sv = *av_fetch(list,6,TRUE); ds.msg_qbytes = SvIV(sv);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/re/ |
H A D | re.xs | 17 extern char* my_re_intuit_start (pTHX_ regexp *prog, SV *sv, char *strpos,
|