[p5sagit/p5-mst-13.2.git] / doop.c

/*    doop.c
 *
 *    Copyright (c) 1991-1997, Larry Wall
 *
 *    You may distribute under the terms of either the GNU General Public
 *    License or the Artistic License, as specified in the README file.
 *
 */

/*
 * "'So that was the job I felt I had to do when I started,' thought Sam."
 */

#include "EXTERN.h"
#include "perl.h"

#if !defined(NSIG) || defined(M_UNIX) || defined(M_XENIX)
#include <signal.h>
#endif

I32
do_trans(SV *sv, OP *arg)
{
    dTHR;
    register short *tbl;
    register U8 *s;
    register U8 *send;
    register U8 *d;
    register I32 ch;
    register I32 matches = 0;
    register I32 squash = op->op_private & OPpTRANS_SQUASH;
    register U8 *p;
    STRLEN len;

    if (SvREADONLY(sv) && !(op->op_private & OPpTRANS_COUNTONLY))
	croak(no_modify);
    tbl = (short*)cPVOP->op_pv;
    s = (U8*)SvPV(sv, len);
    if (!len)
	return 0;
    if (!SvPOKp(sv))
	s = (U8*)SvPV_force(sv, len);
    (void)SvPOK_only(sv);
    send = s + len;
    if (!tbl || !s)
	croak("panic: do_trans");
    DEBUG_t( deb("2.TBL\n"));
    if (!op->op_private) {
	while (s < send) {
	    if ((ch = tbl[*s]) >= 0) {
		matches++;
		*s = ch;
	    }
	    s++;
	}
	SvSETMAGIC(sv);
    }
    else if (op->op_private & OPpTRANS_COUNTONLY) {
	while (s < send) {
	    if (tbl[*s] >= 0)
		matches++;
	    s++;
	}
    }
    else {
	d = s;
	p = send;
	while (s < send) {
	    if ((ch = tbl[*s]) >= 0) {
		*d = ch;
		matches++;
		if (squash) {
		    if (p == d - 1 && *p == *d)
			matches--;
		    else
		        p = d++;
		}
		else
		    d++;
	    }
	    else if (ch == -1)		/* -1 is unmapped character */
		*d++ = *s;		/* -2 is delete character */
	    s++;
	}
	matches += send - d;	/* account for disappeared chars */
	*d = '\0';
	SvCUR_set(sv, d - (U8*)SvPVX(sv));
	SvSETMAGIC(sv);
    }
    return matches;
}

void
do_join(register SV *sv, SV *del, register SV **mark, register SV **sp)
{
    SV **oldmark = mark;
    register I32 items = sp - mark;
    register STRLEN len;
    STRLEN delimlen;
    register char *delim = SvPV(del, delimlen);
    STRLEN tmplen;

    mark++;
    len = (items > 0 ? (delimlen * (items - 1) ) : 0);
    if (SvTYPE(sv) < SVt_PV)
	sv_upgrade(sv, SVt_PV);
    if (SvLEN(sv) < len + items) {	/* current length is way too short */
	while (items-- > 0) {
	    if (*mark && !SvGMAGICAL(*mark) && SvOK(*mark)) {
		SvPV(*mark, tmplen);
		len += tmplen;
	    }
	    mark++;
	}
	SvGROW(sv, len + 1);		/* so try to pre-extend */

	mark = oldmark;
	items = sp - mark;;
	++mark;
    }

    if (items-- > 0) {
	char *s;

	if (*mark) {
	    s = SvPV(*mark, tmplen);
	    sv_setpvn(sv, s, tmplen);
	}
	else
	    sv_setpv(sv, "");
	mark++;
    }
    else
	sv_setpv(sv,"");
    len = delimlen;
    if (len) {
	for (; items > 0; items--,mark++) {
	    sv_catpvn(sv,delim,len);
	    sv_catsv(sv,*mark);
	}
    }
    else {
	for (; items > 0; items--,mark++)
	    sv_catsv(sv,*mark);
    }
    SvSETMAGIC(sv);
}

void
do_sprintf(SV *sv, I32 len, SV **sarg)
{
    STRLEN patlen;
    char *pat = SvPV(*sarg, patlen);
    bool do_taint = FALSE;

    sv_vsetpvfn(sv, pat, patlen, Null(va_list*), sarg + 1, len - 1, &do_taint);
    SvSETMAGIC(sv);
    if (do_taint)
	SvTAINTED_on(sv);
}

void
do_vecset(SV *sv)
{
    SV *targ = LvTARG(sv);
    register I32 offset;
    register I32 size;
    register unsigned char *s;
    register unsigned long lval;
    I32 mask;
    STRLEN targlen;
    STRLEN len;

    if (!targ)
	return;
    s = (unsigned char*)SvPV_force(targ, targlen);
    lval = U_L(SvNV(sv));
    offset = LvTARGOFF(sv);
    size = LvTARGLEN(sv);
    
    len = (offset + size + 7) / 8;
    if (len > targlen) {
	s = (unsigned char*)SvGROW(targ, len + 1);
	(void)memzero(s + targlen, len - targlen + 1);
	SvCUR_set(targ, len);
    }
    
    if (size < 8) {
	mask = (1 << size) - 1;
	size = offset & 7;
	lval &= mask;
	offset >>= 3;
	s[offset] &= ~(mask << size);
	s[offset] |= lval << size;
    }
    else {
	offset >>= 3;
	if (size == 8)
	    s[offset] = lval & 255;
	else if (size == 16) {
	    s[offset] = (lval >> 8) & 255;
	    s[offset+1] = lval & 255;
	}
	else if (size == 32) {
	    s[offset] = (lval >> 24) & 255;
	    s[offset+1] = (lval >> 16) & 255;
	    s[offset+2] = (lval >> 8) & 255;
	    s[offset+3] = lval & 255;
	}
    }
}

void
do_chop(register SV *astr, register SV *sv)
{
    STRLEN len;
    char *s;
    
    if (SvTYPE(sv) == SVt_PVAV) {
	register I32 i;
        I32 max;
	AV* av = (AV*)sv;
        max = AvFILL(av);
        for (i = 0; i <= max; i++) {
	    sv = (SV*)av_fetch(av, i, FALSE);
	    if (sv && ((sv = *(SV**)sv), sv != &sv_undef))
		do_chop(astr, sv);
	}
        return;
    }
    if (SvTYPE(sv) == SVt_PVHV) {
        HV* hv = (HV*)sv;
	HE* entry;
        (void)hv_iterinit(hv);
        /*SUPPRESS 560*/
        while (entry = hv_iternext(hv))
            do_chop(astr,hv_iterval(hv,entry));
        return;
    }
    s = SvPV(sv, len);
    if (len && !SvPOK(sv))
	s = SvPV_force(sv, len);
    if (s && len) {
	s += --len;
	sv_setpvn(astr, s, 1);
	*s = '\0';
	SvCUR_set(sv, len);
	SvNIOK_off(sv);
    }
    else
	sv_setpvn(astr, "", 0);
    SvSETMAGIC(sv);
} 

I32
do_chomp(register SV *sv)
{
    dTHR;
    register I32 count;
    STRLEN len;
    char *s;

    if (RsSNARF(rs))
	return 0;
    count = 0;
    if (SvTYPE(sv) == SVt_PVAV) {
	register I32 i;
        I32 max;
	AV* av = (AV*)sv;
        max = AvFILL(av);
        for (i = 0; i <= max; i++) {
	    sv = (SV*)av_fetch(av, i, FALSE);
	    if (sv && ((sv = *(SV**)sv), sv != &sv_undef))
		count += do_chomp(sv);
	}
        return count;
    }
    if (SvTYPE(sv) == SVt_PVHV) {
        HV* hv = (HV*)sv;
	HE* entry;
        (void)hv_iterinit(hv);
        /*SUPPRESS 560*/
        while (entry = hv_iternext(hv))
            count += do_chomp(hv_iterval(hv,entry));
        return count;
    }
    s = SvPV(sv, len);
    if (len && !SvPOKp(sv))
	s = SvPV_force(sv, len);
    if (s && len) {
	s += --len;
	if (RsPARA(rs)) {
	    if (*s != '\n')
		goto nope;
	    ++count;
	    while (len && s[-1] == '\n') {
		--len;
		--s;
		++count;
	    }
	}
	else {
	    STRLEN rslen;
	    char *rsptr = SvPV(rs, rslen);
	    if (rslen == 1) {
		if (*s != *rsptr)
		    goto nope;
		++count;
	    }
	    else {
		if (len < rslen - 1)
		    goto nope;
		len -= rslen - 1;
		s -= rslen - 1;
		if (memNE(s, rsptr, rslen))
		    goto nope;
		count += rslen;
	    }
	}
	*s = '\0';
	SvCUR_set(sv, len);
	SvNIOK_off(sv);
    }
  nope:
    SvSETMAGIC(sv);
    return count;
} 

void
do_vop(I32 optype, SV *sv, SV *left, SV *right)
{
    dTHR;	/* just for taint */
#ifdef LIBERAL
    register long *dl;
    register long *ll;
    register long *rl;
#endif
    register char *dc;
    STRLEN leftlen;
    STRLEN rightlen;
    register char *lc;
    register char *rc;
    register I32 len;
    I32 lensave;
    char *lsave;
    char *rsave;

    if (sv != left || (optype != OP_BIT_AND && !SvOK(sv) && !SvGMAGICAL(sv)))
	sv_setpvn(sv, "", 0);	/* avoid undef warning on |= and ^= */
    lsave = lc = SvPV(left, leftlen);
    rsave = rc = SvPV(right, rightlen);
    len = leftlen < rightlen ? leftlen : rightlen;
    lensave = len;
    if (SvOK(sv) || SvTYPE(sv) > SVt_PVMG) {
	dc = SvPV_force(sv, na);
	if (SvCUR(sv) < len) {
	    dc = SvGROW(sv, len + 1);
	    (void)memzero(dc + SvCUR(sv), len - SvCUR(sv) + 1);
	}
    }
    else {
	I32 needlen = ((optype == OP_BIT_AND)
			? len : (leftlen > rightlen ? leftlen : rightlen));
	Newz(801, dc, needlen + 1, char);
	(void)sv_usepvn(sv, dc, needlen);
	dc = SvPVX(sv);		/* sv_usepvn() calls Renew() */
    }
    SvCUR_set(sv, len);
    (void)SvPOK_only(sv);
#ifdef LIBERAL
    if (len >= sizeof(long)*4 &&
	!((long)dc % sizeof(long)) &&
	!((long)lc % sizeof(long)) &&
	!((long)rc % sizeof(long)))	/* It's almost always aligned... */
    {
	I32 remainder = len % (sizeof(long)*4);
	len /= (sizeof(long)*4);

	dl = (long*)dc;
	ll = (long*)lc;
	rl = (long*)rc;

	switch (optype) {
	case OP_BIT_AND:
	    while (len--) {
		*dl++ = *ll++ & *rl++;
		*dl++ = *ll++ & *rl++;
		*dl++ = *ll++ & *rl++;
		*dl++ = *ll++ & *rl++;
	    }
	    break;
	case OP_BIT_XOR:
	    while (len--) {
		*dl++ = *ll++ ^ *rl++;
		*dl++ = *ll++ ^ *rl++;
		*dl++ = *ll++ ^ *rl++;
		*dl++ = *ll++ ^ *rl++;
	    }
	    break;
	case OP_BIT_OR:
	    while (len--) {
		*dl++ = *ll++ | *rl++;
		*dl++ = *ll++ | *rl++;
		*dl++ = *ll++ | *rl++;
		*dl++ = *ll++ | *rl++;
	    }
	}

	dc = (char*)dl;
	lc = (char*)ll;
	rc = (char*)rl;

	len = remainder;
    }
#endif
    {
	switch (optype) {
	case OP_BIT_AND:
	    while (len--)
		*dc++ = *lc++ & *rc++;
	    break;
	case OP_BIT_XOR:
	    while (len--)
		*dc++ = *lc++ ^ *rc++;
	    goto mop_up;
	case OP_BIT_OR:
	    while (len--)
		*dc++ = *lc++ | *rc++;
	  mop_up:
	    len = lensave;
	    if (rightlen > len)
		sv_catpvn(sv, rsave + len, rightlen - len);
	    else if (leftlen > len)
		sv_catpvn(sv, lsave + len, leftlen - len);
	    else
		*SvEND(sv) = '\0';
	    break;
	}
    }
    SvTAINT(sv);
}

OP *
do_kv(ARGSproto)
{
    djSP;
    HV *hv = (HV*)POPs;
    register HE *entry;
    SV *tmpstr;
    I32 gimme = GIMME_V;
    I32 dokeys =   (op->op_type == OP_KEYS);
    I32 dovalues = (op->op_type == OP_VALUES);
    I32 realhv = (SvTYPE(hv) == SVt_PVHV);
    
    if (op->op_type == OP_RV2HV || op->op_type == OP_PADHV) 
	dokeys = dovalues = TRUE;

    if (!hv) {
	if (op->op_flags & OPf_MOD) {	/* lvalue */
	    dTARGET;		/* make sure to clear its target here */
	    if (SvTYPE(TARG) == SVt_PVLV)
		LvTARG(TARG) = Nullsv;
	    PUSHs(TARG);
	}
	RETURN;
    }

    if (realhv)
	(void)hv_iterinit(hv);	/* always reset iterator regardless */
    else
	(void)avhv_iterinit((AV*)hv);

    if (gimme == G_VOID)
	RETURN;

    if (gimme == G_SCALAR) {
	IV i;
	dTARGET;

	if (op->op_flags & OPf_MOD) {	/* lvalue */
	    if (SvTYPE(TARG) < SVt_PVLV) {
		sv_upgrade(TARG, SVt_PVLV);
		sv_magic(TARG, Nullsv, 'k', Nullch, 0);
	    }
	    LvTYPE(TARG) = 'k';
	    if (LvTARG(TARG) != (SV*)hv) {
		if (LvTARG(TARG))
		    SvREFCNT_dec(LvTARG(TARG));
		LvTARG(TARG) = SvREFCNT_inc(hv);
	    }
	    PUSHs(TARG);
	    RETURN;
	}

	if (!SvRMAGICAL(hv) || !mg_find((SV*)hv,'P'))
	    i = HvKEYS(hv);
	else {
	    i = 0;
	    /*SUPPRESS 560*/
	    while (entry = realhv ? hv_iternext(hv) : avhv_iternext((AV*)hv)) {
		i++;
	    }
	}
	PUSHi( i );
	RETURN;
    }

    /* Guess how much room we need.  hv_max may be a few too many.  Oh well. */
    EXTEND(SP, HvMAX(hv) * (dokeys + dovalues));

    PUTBACK;	/* hv_iternext and hv_iterval might clobber stack_sp */
    while (entry = realhv ? hv_iternext(hv) : avhv_iternext((AV*)hv)) {
	SPAGAIN;
	if (dokeys)
	    XPUSHs(hv_iterkeysv(entry));	/* won't clobber stack_sp */
	if (dovalues) {
	    tmpstr = sv_newmortal();
	    PUTBACK;
	    sv_setsv(tmpstr,realhv ?
		     hv_iterval(hv,entry) : avhv_iterval((AV*)hv,entry));
	    DEBUG_H(sv_setpvf(tmpstr, "%lu%%%d=%lu",
			    (unsigned long)HeHASH(entry),
			    HvMAX(hv)+1,
			    (unsigned long)(HeHASH(entry) & HvMAX(hv))));
	    SPAGAIN;
	    XPUSHs(tmpstr);
	}
	PUTBACK;
    }
    return NORMAL;
}
Commit	Line	Data
a0d0e21e	1	/* doop.c
79072805	2	*
9607fc9c	3	* Copyright (c) 1991-1997, Larry Wall
79072805	4	*
	5	* You may distribute under the terms of either the GNU General Public
	6	* License or the Artistic License, as specified in the README file.
	7	*
a0d0e21e	8	*/
	9
	10	/*
	11	* "'So that was the job I felt I had to do when I started,' thought Sam."
79072805	12	*/
	13
	14	#include "EXTERN.h"
	15	#include "perl.h"
	16
	17	#if !defined(NSIG) \|\| defined(M_UNIX) \|\| defined(M_XENIX)
	18	#include <signal.h>
	19	#endif
	20
79072805	21	I32
8ac85365	22	do_trans(SV sv, OP arg)
79072805	23	{
11343788	24	dTHR;
79072805	25	register short *tbl;
1476d272	26	register U8 *s;
	27	register U8 *send;
	28	register U8 *d;
79072805	29	register I32 ch;
1476d272	30	register I32 matches = 0;
79072805	31	register I32 squash = op->op_private & OPpTRANS_SQUASH;
f3ea7b5e	32	register U8 *p;
463ee0b2	33	STRLEN len;
79072805	34
5d06d08e	35	if (SvREADONLY(sv) && !(op->op_private & OPpTRANS_COUNTONLY))
a0d0e21e	36	croak(no_modify);
1476d272	37	tbl = (short*)cPVOP->op_pv;
1476d272	38	s = (U8*)SvPV(sv, len);
a0d0e21e	39	if (!len)
	40	return 0;
	41	if (!SvPOKp(sv))
1476d272	42	s = (U8*)SvPV_force(sv, len);
a0d0e21e	43	(void)SvPOK_only(sv);
463ee0b2	44	send = s + len;
79072805	45	if (!tbl \|\| !s)
463ee0b2	46	croak("panic: do_trans");
79072805	47	DEBUG_t( deb("2.TBL\n"));
	48	if (!op->op_private) {
	49	while (s < send) {
1476d272	50	if ((ch = tbl[*s]) >= 0) {
79072805	51	matches++;
	52	*s = ch;
	53	}
	54	s++;
	55	}
5d06d08e	56	SvSETMAGIC(sv);
	57	}
	58	else if (op->op_private & OPpTRANS_COUNTONLY) {
	59	while (s < send) {
	60	if (tbl[*s] >= 0)
	61	matches++;
	62	s++;
	63	}
79072805	64	}
	65	else {
	66	d = s;
f3ea7b5e	67	p = send;
79072805	68	while (s < send) {
1476d272	69	if ((ch = tbl[*s]) >= 0) {
79072805	70	*d = ch;
f3ea7b5e	71	matches++;
	72	if (squash) {
	73	if (p == d - 1 && p == d)
79072805	74	matches--;
79072805	75	else
f3ea7b5e	76	p = d++;
79072805	77	}
	78	else
	79	d++;
	80	}
	81	else if (ch == -1) /* -1 is unmapped character */
	82	d++ = s; /* -2 is delete character */
	83	s++;
	84	}
	85	matches += send - d; /* account for disappeared chars */
	86	*d = '\0';
1476d272	87	SvCUR_set(sv, d - (U8*)SvPVX(sv));
5d06d08e	88	SvSETMAGIC(sv);
79072805	89	}
79072805	90	return matches;
	91	}
	92
	93	void
8ac85365	94	do_join(register SV sv, SV del, register SV mark, register SV sp)
79072805	95	{
	96	SV **oldmark = mark;
	97	register I32 items = sp - mark;
79072805	98	register STRLEN len;
463ee0b2	99	STRLEN delimlen;
	100	register char *delim = SvPV(del, delimlen);
	101	STRLEN tmplen;
79072805	102
	103	mark++;
	104	len = (items > 0 ? (delimlen * (items - 1) ) : 0);
	105	if (SvTYPE(sv) < SVt_PV)
	106	sv_upgrade(sv, SVt_PV);
	107	if (SvLEN(sv) < len + items) { /* current length is way too short */
	108	while (items-- > 0) {
48c036b1	109	if (mark && !SvGMAGICAL(mark) && SvOK(*mark)) {
463ee0b2	110	SvPV(*mark, tmplen);
463ee0b2	111	len += tmplen;
79072805	112	}
	113	mark++;
	114	}
	115	SvGROW(sv, len + 1); /* so try to pre-extend */
	116
	117	mark = oldmark;
	118	items = sp - mark;;
	119	++mark;
	120	}
	121
463ee0b2	122	if (items-- > 0) {
8990e307	123	char *s;
	124
	125	if (*mark) {
	126	s = SvPV(*mark, tmplen);
	127	sv_setpvn(sv, s, tmplen);
	128	}
	129	else
	130	sv_setpv(sv, "");
463ee0b2	131	mark++;
463ee0b2	132	}
79072805	133	else
	134	sv_setpv(sv,"");
	135	len = delimlen;
	136	if (len) {
	137	for (; items > 0; items--,mark++) {
	138	sv_catpvn(sv,delim,len);
	139	sv_catsv(sv,*mark);
	140	}
	141	}
	142	else {
	143	for (; items > 0; items--,mark++)
	144	sv_catsv(sv,*mark);
	145	}
	146	SvSETMAGIC(sv);
	147	}
	148
	149	void
8ac85365	150	do_sprintf(SV sv, I32 len, SV *sarg)
79072805	151	{
46fc3d4c	152	STRLEN patlen;
	153	char pat = SvPV(sarg, patlen);
	154	bool do_taint = FALSE;
	155
	156	sv_vsetpvfn(sv, pat, patlen, Null(va_list*), sarg + 1, len - 1, &do_taint);
79072805	157	SvSETMAGIC(sv);
46fc3d4c	158	if (do_taint)
46fc3d4c	159	SvTAINTED_on(sv);
79072805	160	}
	161
	162	void
8ac85365	163	do_vecset(SV *sv)
79072805	164	{
	165	SV *targ = LvTARG(sv);
	166	register I32 offset;
	167	register I32 size;
8990e307	168	register unsigned char *s;
8990e307	169	register unsigned long lval;
79072805	170	I32 mask;
a0d0e21e	171	STRLEN targlen;
a0d0e21e	172	STRLEN len;
79072805	173
8990e307	174	if (!targ)
8990e307	175	return;
a0d0e21e	176	s = (unsigned char*)SvPV_force(targ, targlen);
8990e307	177	lval = U_L(SvNV(sv));
79072805	178	offset = LvTARGOFF(sv);
79072805	179	size = LvTARGLEN(sv);
a0d0e21e	180
	181	len = (offset + size + 7) / 8;
	182	if (len > targlen) {
	183	s = (unsigned char*)SvGROW(targ, len + 1);
	184	(void)memzero(s + targlen, len - targlen + 1);
	185	SvCUR_set(targ, len);
	186	}
	187
79072805	188	if (size < 8) {
	189	mask = (1 << size) - 1;
	190	size = offset & 7;
	191	lval &= mask;
	192	offset >>= 3;
	193	s[offset] &= ~(mask << size);
	194	s[offset] \|= lval << size;
	195	}
	196	else {
a0d0e21e	197	offset >>= 3;
79072805	198	if (size == 8)
	199	s[offset] = lval & 255;
	200	else if (size == 16) {
	201	s[offset] = (lval >> 8) & 255;
	202	s[offset+1] = lval & 255;
	203	}
	204	else if (size == 32) {
	205	s[offset] = (lval >> 24) & 255;
	206	s[offset+1] = (lval >> 16) & 255;
	207	s[offset+2] = (lval >> 8) & 255;
	208	s[offset+3] = lval & 255;
	209	}
	210	}
	211	}
	212
	213	void
8ac85365	214	do_chop(register SV astr, register SV sv)
79072805	215	{
463ee0b2	216	STRLEN len;
a0d0e21e	217	char *s;
a0d0e21e	218
79072805	219	if (SvTYPE(sv) == SVt_PVAV) {
a0d0e21e	220	register I32 i;
	221	I32 max;
	222	AV* av = (AV*)sv;
	223	max = AvFILL(av);
	224	for (i = 0; i <= max; i++) {
	225	sv = (SV*)av_fetch(av, i, FALSE);
	226	if (sv && ((sv = (SV*)sv), sv != &sv_undef))
	227	do_chop(astr, sv);
	228	}
	229	return;
79072805	230	}
79072805	231	if (SvTYPE(sv) == SVt_PVHV) {
a0d0e21e	232	HV* hv = (HV*)sv;
	233	HE* entry;
	234	(void)hv_iterinit(hv);
	235	/SUPPRESS 560/
	236	while (entry = hv_iternext(hv))
	237	do_chop(astr,hv_iterval(hv,entry));
	238	return;
79072805	239	}
a0d0e21e	240	s = SvPV(sv, len);
748a9306	241	if (len && !SvPOK(sv))
a0d0e21e	242	s = SvPV_force(sv, len);
	243	if (s && len) {
	244	s += --len;
	245	sv_setpvn(astr, s, 1);
	246	*s = '\0';
	247	SvCUR_set(sv, len);
	248	SvNIOK_off(sv);
79072805	249	}
79072805	250	else
a0d0e21e	251	sv_setpvn(astr, "", 0);
	252	SvSETMAGIC(sv);
	253	}
	254
	255	I32
8ac85365	256	do_chomp(register SV *sv)
a0d0e21e	257	{
aeea060c	258	dTHR;
c07a80fd	259	register I32 count;
a0d0e21e	260	STRLEN len;
a0d0e21e	261	char *s;
c07a80fd	262
	263	if (RsSNARF(rs))
	264	return 0;
	265	count = 0;
a0d0e21e	266	if (SvTYPE(sv) == SVt_PVAV) {
	267	register I32 i;
	268	I32 max;
	269	AV* av = (AV*)sv;
	270	max = AvFILL(av);
	271	for (i = 0; i <= max; i++) {
	272	sv = (SV*)av_fetch(av, i, FALSE);
	273	if (sv && ((sv = (SV*)sv), sv != &sv_undef))
	274	count += do_chomp(sv);
	275	}
	276	return count;
	277	}
	278	if (SvTYPE(sv) == SVt_PVHV) {
	279	HV* hv = (HV*)sv;
	280	HE* entry;
	281	(void)hv_iterinit(hv);
	282	/SUPPRESS 560/
	283	while (entry = hv_iternext(hv))
	284	count += do_chomp(hv_iterval(hv,entry));
	285	return count;
	286	}
	287	s = SvPV(sv, len);
	288	if (len && !SvPOKp(sv))
	289	s = SvPV_force(sv, len);
	290	if (s && len) {
	291	s += --len;
c07a80fd	292	if (RsPARA(rs)) {
a0d0e21e	293	if (*s != '\n')
	294	goto nope;
	295	++count;
	296	while (len && s[-1] == '\n') {
	297	--len;
	298	--s;
	299	++count;
	300	}
	301	}
a0d0e21e	302	else {
c07a80fd	303	STRLEN rslen;
	304	char *rsptr = SvPV(rs, rslen);
	305	if (rslen == 1) {
	306	if (s != rsptr)
	307	goto nope;
	308	++count;
	309	}
	310	else {
8c2cee6f	311	if (len < rslen - 1)
c07a80fd	312	goto nope;
	313	len -= rslen - 1;
	314	s -= rslen - 1;
36477c24	315	if (memNE(s, rsptr, rslen))
c07a80fd	316	goto nope;
	317	count += rslen;
	318	}
a0d0e21e	319	}
a0d0e21e	320	*s = '\0';
	321	SvCUR_set(sv, len);
	322	SvNIOK_off(sv);
	323	}
	324	nope:
	325	SvSETMAGIC(sv);
	326	return count;
	327	}
79072805	328
79072805	329	void
8ac85365	330	do_vop(I32 optype, SV sv, SV left, SV *right)
79072805	331	{
aeea060c	332	dTHR; /* just for taint */
79072805	333	#ifdef LIBERAL
	334	register long *dl;
	335	register long *ll;
	336	register long *rl;
	337	#endif
	338	register char *dc;
463ee0b2	339	STRLEN leftlen;
463ee0b2	340	STRLEN rightlen;
7a4c00b4	341	register char *lc;
7a4c00b4	342	register char *rc;
79072805	343	register I32 len;
a0d0e21e	344	I32 lensave;
7a4c00b4	345	char *lsave;
7a4c00b4	346	char *rsave;
79072805	347
1fbd88dc	348	if (sv != left \|\| (optype != OP_BIT_AND && !SvOK(sv) && !SvGMAGICAL(sv)))
1fbd88dc	349	sv_setpvn(sv, "", 0); /* avoid undef warning on \|= and ^= */
7a4c00b4	350	lsave = lc = SvPV(left, leftlen);
7a4c00b4	351	rsave = rc = SvPV(right, rightlen);
93a17b20	352	len = leftlen < rightlen ? leftlen : rightlen;
a0d0e21e	353	lensave = len;
7a4c00b4	354	if (SvOK(sv) \|\| SvTYPE(sv) > SVt_PVMG) {
ff68c719	355	dc = SvPV_force(sv, na);
	356	if (SvCUR(sv) < len) {
	357	dc = SvGROW(sv, len + 1);
	358	(void)memzero(dc + SvCUR(sv), len - SvCUR(sv) + 1);
	359	}
	360	}
	361	else {
	362	I32 needlen = ((optype == OP_BIT_AND)
	363	? len : (leftlen > rightlen ? leftlen : rightlen));
	364	Newz(801, dc, needlen + 1, char);
	365	(void)sv_usepvn(sv, dc, needlen);
	366	dc = SvPVX(sv); /* sv_usepvn() calls Renew() */
79072805	367	}
a0d0e21e	368	SvCUR_set(sv, len);
a0d0e21e	369	(void)SvPOK_only(sv);
79072805	370	#ifdef LIBERAL
	371	if (len >= sizeof(long)*4 &&
	372	!((long)dc % sizeof(long)) &&
	373	!((long)lc % sizeof(long)) &&
	374	!((long)rc % sizeof(long))) /* It's almost always aligned... */
	375	{
	376	I32 remainder = len % (sizeof(long)*4);
	377	len /= (sizeof(long)*4);
	378
	379	dl = (long*)dc;
	380	ll = (long*)lc;
	381	rl = (long*)rc;
	382
	383	switch (optype) {
	384	case OP_BIT_AND:
	385	while (len--) {
	386	dl++ = ll++ & *rl++;
	387	dl++ = ll++ & *rl++;
	388	dl++ = ll++ & *rl++;
	389	dl++ = ll++ & *rl++;
	390	}
	391	break;
a0d0e21e	392	case OP_BIT_XOR:
79072805	393	while (len--) {
	394	dl++ = ll++ ^ *rl++;
	395	dl++ = ll++ ^ *rl++;
	396	dl++ = ll++ ^ *rl++;
	397	dl++ = ll++ ^ *rl++;
	398	}
	399	break;
	400	case OP_BIT_OR:
	401	while (len--) {
	402	dl++ = ll++ \| *rl++;
	403	dl++ = ll++ \| *rl++;
	404	dl++ = ll++ \| *rl++;
	405	dl++ = ll++ \| *rl++;
	406	}
	407	}
	408
	409	dc = (char*)dl;
	410	lc = (char*)ll;
	411	rc = (char*)rl;
	412
	413	len = remainder;
	414	}
	415	#endif
a0d0e21e	416	{
a0d0e21e	417	switch (optype) {
	418	case OP_BIT_AND:
	419	while (len--)
	420	dc++ = lc++ & *rc++;
	421	break;
	422	case OP_BIT_XOR:
	423	while (len--)
	424	dc++ = lc++ ^ *rc++;
	425	goto mop_up;
	426	case OP_BIT_OR:
	427	while (len--)
	428	dc++ = lc++ \| *rc++;
	429	mop_up:
	430	len = lensave;
	431	if (rightlen > len)
	432	sv_catpvn(sv, rsave + len, rightlen - len);
	433	else if (leftlen > len)
	434	sv_catpvn(sv, lsave + len, leftlen - len);
4633a7c4	435	else
4633a7c4	436	*SvEND(sv) = '\0';
a0d0e21e	437	break;
a0d0e21e	438	}
79072805	439	}
fb73857a	440	SvTAINT(sv);
79072805	441	}
463ee0b2	442
463ee0b2	443	OP *
8ac85365	444	do_kv(ARGSproto)
463ee0b2	445	{
4e35701f	446	djSP;
463ee0b2	447	HV hv = (HV)POPs;
463ee0b2	448	register HE *entry;
463ee0b2	449	SV *tmpstr;
54310121	450	I32 gimme = GIMME_V;
a0d0e21e	451	I32 dokeys = (op->op_type == OP_KEYS);
a0d0e21e	452	I32 dovalues = (op->op_type == OP_VALUES);
c750a3ec	453	I32 realhv = (SvTYPE(hv) == SVt_PVHV);
c750a3ec	454
a0d0e21e	455	if (op->op_type == OP_RV2HV \|\| op->op_type == OP_PADHV)
a0d0e21e	456	dokeys = dovalues = TRUE;
463ee0b2	457
85581909	458	if (!hv) {
	459	if (op->op_flags & OPf_MOD) { /* lvalue */
	460	dTARGET; /* make sure to clear its target here */
	461	if (SvTYPE(TARG) == SVt_PVLV)
	462	LvTARG(TARG) = Nullsv;
	463	PUSHs(TARG);
	464	}
463ee0b2	465	RETURN;
85581909	466	}
748a9306	467
c750a3ec	468	if (realhv)
	469	(void)hv_iterinit(hv); /* always reset iterator regardless */
	470	else
	471	(void)avhv_iterinit((AV*)hv);
748a9306	472
54310121	473	if (gimme == G_VOID)
aa689395	474	RETURN;
aa689395	475
54310121	476	if (gimme == G_SCALAR) {
6ee623d5	477	IV i;
463ee0b2	478	dTARGET;
463ee0b2	479
85581909	480	if (op->op_flags & OPf_MOD) { /* lvalue */
	481	if (SvTYPE(TARG) < SVt_PVLV) {
	482	sv_upgrade(TARG, SVt_PVLV);
	483	sv_magic(TARG, Nullsv, 'k', Nullch, 0);
	484	}
	485	LvTYPE(TARG) = 'k';
6ff81951	486	if (LvTARG(TARG) != (SV*)hv) {
	487	if (LvTARG(TARG))
	488	SvREFCNT_dec(LvTARG(TARG));
	489	LvTARG(TARG) = SvREFCNT_inc(hv);
	490	}
85581909	491	PUSHs(TARG);
	492	RETURN;
	493	}
	494
8990e307	495	if (!SvRMAGICAL(hv) \|\| !mg_find((SV*)hv,'P'))
463ee0b2	496	i = HvKEYS(hv);
	497	else {
	498	i = 0;
463ee0b2	499	/SUPPRESS 560/
c750a3ec	500	while (entry = realhv ? hv_iternext(hv) : avhv_iternext((AV*)hv)) {
463ee0b2	501	i++;
	502	}
	503	}
	504	PUSHi( i );
	505	RETURN;
	506	}
	507
	508	/* Guess how much room we need. hv_max may be a few too many. Oh well. */
924508f0	509	EXTEND(SP, HvMAX(hv) * (dokeys + dovalues));
463ee0b2	510
463ee0b2	511	PUTBACK; /* hv_iternext and hv_iterval might clobber stack_sp */
c750a3ec	512	while (entry = realhv ? hv_iternext(hv) : avhv_iternext((AV*)hv)) {
463ee0b2	513	SPAGAIN;
8c2cee6f	514	if (dokeys)
8c2cee6f	515	XPUSHs(hv_iterkeysv(entry)); /* won't clobber stack_sp */
463ee0b2	516	if (dovalues) {
46fc3d4c	517	tmpstr = sv_newmortal();
463ee0b2	518	PUTBACK;
c750a3ec	519	sv_setsv(tmpstr,realhv ?
c750a3ec	520	hv_iterval(hv,entry) : avhv_iterval((AV*)hv,entry));
46fc3d4c	521	DEBUG_H(sv_setpvf(tmpstr, "%lu%%%d=%lu",
	522	(unsigned long)HeHASH(entry),
	523	HvMAX(hv)+1,
	524	(unsigned long)(HeHASH(entry) & HvMAX(hv))));
463ee0b2	525	SPAGAIN;
46fc3d4c	526	XPUSHs(tmpstr);
463ee0b2	527	}
	528	PUTBACK;
	529	}
	530	return NORMAL;
	531	}
4e35701f	532