view release on metacpan or  search on metacpan

LargeInt.xs  view on Meta::CPAN

#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

MODULE = Sort::Key::LargeInt		PACKAGE = Sort::Key::LargeInt		

void
encode_largeint(li=NULL)
    SV *li
PPCODE:
    if (!li) 
        li = DEFSV;
    {
	STRLEN len;
	const char *li_pv = SvPV(li, len);
	STRLEN i;
	int neg = 0;
	const char *from;
	const char *start;
	const char *top = li_pv + len;