view release on metacpan or  search on metacpan

LRC.xs  view on Meta::CPAN

VERSIONCHECK: DISABLE
PROTOTYPES: DISABLE 


unsigned char
lrc(data, ...)
    char *data = NO_INIT
    PREINIT:
    unsigned char lrcinit = 0x00;
    STRLEN data_len;
    PPCODE:
	int sv_type;
	IO *io;
	SV *sv;
	unsigned char rv;
      {
	if ( items > 1 )
		lrcinit = (unsigned char) SvNV(ST(items - 1));

	sv_type = getsvtype(ST(0));