view release on metacpan or  search on metacpan

String.xsX  view on Meta::CPAN

	    }
	    if (p < e || lim < 0) {
		++cnt;
		if (wantarray)
		    XPUSHs(sv_2mortal(newSVpvn((char*)p, e - p)));
	    }
	    if (!wantarray)
		XPUSHs(sv_2mortal(newSViv(cnt)));
	} /* end splitchar */

	else  { /* strsplit main */
	    I32 numLastEmpty = 0;
	    cnt = 0;
	    p = anc = s;
	    e = s + byte;

	    if (sepbyte <= byte) {
		last = e - (sepbyte - 1); /* sepbyte after p */
		while ((lim <= 0 || cnt < lim - 1) && p < last) {
		    if (*p == *sep && (sepbyte == 1 || memEQ(p,sep,sepbyte))) {
			if (lim == 0 && p == anc)

String.xsX  view on Meta::CPAN

		}
	    } /* sepbyte <= byte */

	    if (!(lim == 0 && e == anc)) {
		++cnt;
		if (wantarray)
		    XPUSHs(sv_2mortal(newSVpvn((char*)anc, e - anc)));
	    }
	    if (!wantarray)
		XPUSHs(sv_2mortal(newSViv(cnt)));
	} /* end strsplit main */
    }



SV*
strxfrm(src)
    SV * src
  PROTOTYPE: $
  PREINIT:
    U8 *s, *p, *e, *d;