File Coverage

XS.xs

Criterion	Covered	Total	%
statement	56	56	100.0
branch	26	36	72.2
condition			n/a
subroutine			n/a
pod			n/a
total	82	92	89.1

#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "ppport.h"

static const char base32[32] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ234567";

MODULE = MIME::Base32::XS     PACKAGE = MIME::Base32::XS

SV *
encode_base32(SV *sv)
    PREINIT:
    STRLEN len;
    SSize_t size;
    unsigned char *input;
    unsigned char *output;
    unsigned long int x = 0;
    unsigned int i, z, n = 0;
    char ap[5] = {0, 6, 4, 3, 1};

    CODE:
    input = SvPV(sv, len);
    size = (SSize_t)len;

    len = (size * 2) + ap[size % 5];

    RETVAL = newSV(len ? len : 1);
    SvPOK_on(RETVAL);
    output = SvPVX(RETVAL);

    for (i=0; i
        for (z=0; z<5 && i
            x |= input[i];
	    x <<= 8;
	}

	x <<= (7 - z) << 3;
	*output++ = base32[x >> 59];
	*output++ = base32[(x << 5) >> 59];
	*output++ = base32[(x << 10) >> 59];
	*output++ = base32[(x << 15) >> 59];
	*output++ = base32[(x << 20) >> 59];
	*output++ = base32[(x << 25) >> 59];
	*output++ = base32[(x << 30) >> 59];
	*output++ = base32[(x << 35) >> 59];
    	--i;

        n += 8;
    }

    *output = '\0';

    for (i = ap[size % 5]; i; i--)
        *--output = '=';

    SvCUR_set(RETVAL, n);

    OUTPUT:
    RETVAL

SV *
decode_base32(SV *sv)
    PREINIT:
    STRLEN len;
    SSize_t size;
    unsigned char *input;
    char *output;
    unsigned long int x;
    unsigned int i, z, rtsize, n = 0;
    unsigned char pad;
    unsigned char t;
    char lkpad[7] = {0, 4, 0, 3, 2, 0, 1};

    CODE:
    input = SvPV(sv, len);
    size = (SSize_t)len;

    for (pad = 0, i = len-1; input[i] == '='; i--)
	++pad;

    len = len * 3 / 4;
    size -= pad;

    RETVAL = newSV(len ? len : 1);
    SvPOK_on(RETVAL);
    output = SvPVX(RETVAL);

    for (i = 0; i < size; i++) {
        if (input[i] != '=') {
	    for (x = 0, z = 0; z < 8 && i < size; z++, i++) {
		if ((input[i] >= 'A' && input[i] <= 'Z') || (input[i] >= '2' && input[i] <= '7')) {
		    for (t = 0; input[i] != base32[t]; t++);
		    x |= t;
		    x <<= 5;
		}
	    }

	    x <<= (19 + ((8-z)*5));
	    *output++ = x >> 56;
	    *output++ = (x << 8) >> 56;
	    *output++ = (x << 16) >> 56;
	    *output++ = (x << 24) >> 56;
	    *output++ = (x << 32) >> 56;
	    --i;

            n += 5;
        }
    }

    *output = '\0';

    SvCUR_set(RETVAL, n - 4);

    OUTPUT:
    RETVAL