Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/pp

Lines Matching defs:sv
350 	    SV *sv;
353 		sv = NEWSV(56, 79);
354 		if (sv_gets(sv, fp, 0) == Nullch) {
355 		    SvREFCNT_dec(sv);
358 		XPUSHs(sv_2mortal(sv));
359 		if (SvLEN(sv) - SvCUR(sv) > 20) {
360 		    SvLEN_set(sv, SvCUR(sv)+1);
361 		    Renew(SvPVX(sv), SvLEN(sv), char);
363 		SvTAINTED_on(sv);
521     SV *sv;
548 	sv = *++MARK;
551 	sv = GvSV(gv);
554     tmps = SvPV(sv, len);
781     SV *sv;
846     sv = TOPs;
848     if (sv_isobject(sv)) {
851 	if (varsv == SvRV(sv) &&
856 	sv_magic(varsv, (SvRV(sv) == varsv ? Nullsv : sv), how, Nullch, 0);
860     PUSHs(sv);
868     SV *sv = POPs;
869     char how = (SvTYPE(sv) == SVt_PVHV || SvTYPE(sv) == SVt_PVAV)
872     if (SvTYPE(sv) == SVt_PVGV && !(sv = (SV *)GvIOp(sv)))
875     if ((mg = SvTIED_mg(sv, how))) {
876 	SV *obj = SvRV(SvTIED_obj(sv, mg));
899     sv_unmagic(sv, how) ;
907     SV *sv = POPs;
908     char how = (SvTYPE(sv) == SVt_PVHV || SvTYPE(sv) == SVt_PVAV)
911     if (SvTYPE(sv) == SVt_PVGV && !(sv = (SV *)GvIOp(sv)))
914     if ((mg = SvTIED_mg(sv, how))) {
915 	SV *osv = SvTIED_obj(sv, mg);
931     SV *sv;
935     sv = sv_mortalcopy(&PL_sv_no);
936     sv_setpv(sv, "AnyDBM_File");
937     stash = gv_stashsv(sv, FALSE);
950     PUSHs(sv);
964 	PUSHs(sv);
993     register SV *sv;
1054     sv = SP[4];
1055     if (SvOK(sv)) {
1056 	value = SvNV(sv);
1067 	sv = SP[i];
1068 	if (!SvOK(sv)) {
1072 	else if (!SvPOK(sv))
1073 	    SvPV_force(sv,n_a);	/* force string conversion */
1074 	j = SvLEN(sv);
1076 	    Sv_Grow(sv, growsize);
1078 	j = SvCUR(sv);
1079 	s = SvPVX(sv) + j;
1085 	s = SvPVX(sv);
1092 	fd_sets[i] = SvPVX(sv);
1115 	    sv = SP[i];
1117 	    s = SvPVX(sv);
1124 	    SvSETMAGIC(sv);
1132 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
1133 	sv_setnv(sv, value);
1378 	        SV *sv = sv_newmortal();
1379 		gv_efullname4(sv, fgv, Nullch, FALSE);
1380 		name = SvPV_nolen(sv);
1437     SV *sv;
1467     sv = NEWSV(0,0);
1485 	do_sprintf(sv, SP - MARK, MARK + 1);
1486 	if (!do_print(sv, fp))
1493     SvREFCNT_dec(sv);
1499     SvREFCNT_dec(sv);
1509     SV *sv;
1519     sv = POPs;
1524     tmps = SvPV(sv, len);
1560 	SV *sv;
1568 	sv = POPs;
1570 	PUSHs(sv);
1766 	SV *sv;
1768 	sv = sv_2mortal(newSViv(sv_len(*SP)));
1769 	PUSHs(sv);
1792 	SV *sv;
1800 	sv = POPs;
1802 	PUSHs(sv);
2043             SV* sv = sought ?
2050             PUSHs(sv_2mortal(sv));
2108 	    SV *sv = POPs;
2111 	    if (SvTYPE(sv) == SVt_PVGV) {
2112 	        tmpgv = (GV*)sv;		/* *main::FRED for example */
2115 	    else if (SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PVGV) {
2116 	        tmpgv = (GV*) SvRV(sv);	/* \*main::FRED for example */
2119 	    else if (SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PVIO) {
2120 		io = (IO*) SvRV(sv); /* *main::FRED{IO} for example */
2124 	    name = SvPV(sv, n_a);
2617     SV *sv;
2626 	sv = sv_2mortal(NEWSV(22, 257));
2628 	sv = POPs;
2640 	SvGROW(sv, 257);
2641 	(void)SvPOK_only(sv);
2642 	SvCUR_set(sv,256);
2643 	*SvEND(sv) ='\0';
2644 	len = SvCUR(sv);
2645 	if (PerlSock_getsockopt(fd, lvl, optname, SvPVX(sv), &len) < 0)
2647 	SvCUR_set(sv, len);
2648 	*SvEND(sv) ='\0';
2649 	PUSHs(sv);
2654 	    if (SvPOKp(sv)) {
2656 		buf = SvPV(sv, l);
2660 		aint = (int)SvIV(sv);
2698     SV *sv;
2707     sv = sv_2mortal(NEWSV(22, 257));
2708     (void)SvPOK_only(sv);
2710     SvCUR_set(sv, len);
2711     *SvEND(sv) ='\0';
2715 	if (PerlSock_getsockname(fd, (struct sockaddr *)SvPVX(sv), &len) < 0)
2719 	if (PerlSock_getpeername(fd, (struct sockaddr *)SvPVX(sv), &len) < 0)
2725 	    if (((struct sockaddr *)SvPVX(sv))->sa_family == AF_INET &&
2726 		!memcmp((char *)SvPVX(sv) + sizeof(u_short), nowhere,
2740     SvCUR_set(sv, len);
2741     *SvEND(sv) ='\0';
2742     PUSHs(sv);
2798 	SV* sv = POPs;
2799 	if (SvTYPE(sv) == SVt_PVGV) {
2800 	    gv = (GV*)sv;
2803 	else if (SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PVGV) {
2804 	    gv = (GV*)SvRV(sv);
2810 	sv_setpv(PL_statname, SvPV(sv,n_a));
3294     register SV *sv;
3314 		sv = PL_statname;
3359 	sv = POPs;
3364 	sv_setpv(PL_statname, SvPV(sv, n_a));
3826     SV *sv;
3840         sv = newSVpvn(dp->d_name, dp->d_namlen);
3842         sv = newSVpv(dp->d_name, 0);
3846             SvTAINTED_on(sv);
3848         XPUSHs(sv_2mortal(sv));
4661     register SV *sv;
4711 	PUSHs(sv = sv_newmortal());
4715 		    sv_setpvn(sv, hent->h_addr, hent->h_length);
4718 		sv_setpv(sv, (char*)hent->h_name);
4724 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
4725 	sv_setpv(sv, (char*)hent->h_name);
4726 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
4728 	    sv_catpv(sv, *elem);
4730 		sv_catpvn(sv, " ", 1);
4732 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
4733 	sv_setiv(sv, (IV)hent->h_addrtype);
4734 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
4736 	sv_setiv(sv, (IV)len);
4739 	    XPUSHs(sv = sv_mortalcopy(&PL_sv_no));
4740 	    sv_setpvn(sv, *elem, len);
4743 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
4745 	    sv_setpvn(sv, hent->h_addr, len);
4778     register SV *sv;
4824 	PUSHs(sv = sv_newmortal());
4827 		sv_setiv(sv, (IV)nent->n_net);
4829 		sv_setpv(sv, nent->n_name);
4835 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
4836 	sv_setpv(sv, nent->n_name);
4837 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
4839 	    sv_catpv(sv, *elem);
4841 		sv_catpvn(sv, " ", 1);
4843 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
4844 	sv_setiv(sv, (IV)nent->n_addrtype);
4845 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
4846 	sv_setiv(sv, (IV)nent->n_net);
4879     register SV *sv;
4913 	PUSHs(sv = sv_newmortal());
4916 		sv_setiv(sv, (IV)pent->p_proto);
4918 		sv_setpv(sv, pent->p_name);
4924 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
4925 	sv_setpv(sv, pent->p_name);
4926 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
4928 	    sv_catpv(sv, *elem);
4930 		sv_catpvn(sv, " ", 1);
4932 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
4933 	sv_setiv(sv, (IV)pent->p_proto);
4966     register SV *sv;
5013 	PUSHs(sv = sv_newmortal());
5017 		sv_setiv(sv, (IV)PerlSock_ntohs(sent->s_port));
5019 		sv_setiv(sv, (IV)(sent->s_port));
5023 		sv_setpv(sv, sent->s_name);
5029 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
5030 	sv_setpv(sv, sent->s_name);
5031 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
5033 	    sv_catpv(sv, *elem);
5035 		sv_catpvn(sv, " ", 1);
5037 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
5039 	sv_setiv(sv, (IV)PerlSock_ntohs(sent->s_port));
5041 	sv_setiv(sv, (IV)(sent->s_port));
5043 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
5044 	sv_setpv(sv, sent->s_proto);
5168     register SV *sv;
5264 	PUSHs(sv = sv_newmortal());
5268 		sv_setiv(sv, (IV)pwent->pw_uid);
5270 		sv_setuv(sv, (UV)pwent->pw_uid);
5273 		sv_setpv(sv, pwent->pw_name);
5279 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
5280 	sv_setpv(sv, pwent->pw_name);
5282 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
5283 	SvPOK_off(sv);
5314 		sv_setpv(sv, spwent->sp_pwdp);
5318 	if (!SvPOK(sv)) /* Use the standard password, then. */
5319 	    sv_setpv(sv, pwent->pw_passwd);
5325 	SvTAINTED_on(sv);
5328 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
5330 	sv_setiv(sv, (IV)pwent->pw_uid);
5332 	sv_setuv(sv, (UV)pwent->pw_uid);
5335 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
5337 	sv_setiv(sv, (IV)pwent->pw_gid);
5339 	sv_setuv(sv, (UV)pwent->pw_gid);
5346 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
5348 	sv_setiv(sv, (IV)pwent->pw_change);
5351 	sv_setiv(sv, (IV)pwent->pw_quota);
5354 	sv_setpv(sv, pwent->pw_age);
5361 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
5363 	sv_setpv(sv, pwent->pw_class);
5366 	sv_setpv(sv, pwent->pw_comment);
5370 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
5372 	sv_setpv(sv, pwent->pw_gecos);
5376 	SvTAINTED_on(sv);
5379 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
5380 	sv_setpv(sv, pwent->pw_dir);
5382 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
5383 	sv_setpv(sv, pwent->pw_shell);
5386 	SvTAINTED_on(sv);
5390 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
5391 	sv_setiv(sv, (IV)pwent->pw_expire);
5446     register SV *sv;
5467 	PUSHs(sv = sv_newmortal());
5470 		sv_setiv(sv, (IV)grent->gr_gid);
5472 		sv_setpv(sv, grent->gr_name);
5478 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
5479 	sv_setpv(sv, grent->gr_name);
5481 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
5483 	sv_setpv(sv, grent->gr_passwd);
5486 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
5487 	sv_setiv(sv, (IV)grent->gr_gid);
5490 	PUSHs(sv = sv_mortalcopy(&PL_sv_no));
5500 	    sv_catpv(sv, *elem);
5502 		sv_catpvn(sv, " ", 1);