/*
 * This file was generated automatically by ExtUtils::ParseXS version 2.22 from the
 * contents of bitvector.xs. Do not edit this file, edit bitvector.xs instead.
 *
 *	ANY CHANGES MADE HERE WILL BE LOST! 
 *
 */

#line 1 "bitvector.xs"
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "INLINE.h"

typedef unsigned __int64 U64;

char *newxz( U64 bytes ) {
    char *p;
    Newxz( p, bytes, char );
    if( !p ) croak( "Couldn't allocate %I64u bytes\n", bytes );
    return p;
}

SV* new( const char *classname, SV *bits ) {
    U64 bytes = ( SvUV( bits )+7 ) / 8;
    unsigned char *vector = newxz( bytes );
    SV      *obj = newSV_type( SVt_PV );
    SV      *obj_ref = newRV_noinc( obj );

    SvPOK_only( obj );
    SvPV_set( obj, vector );
    SvCUR_set( obj, bytes-1 );
    SvLEN_set( obj, bytes );
    sv_bless( obj_ref, gv_stashpv( classname, GV_ADD) );

    return obj_ref;
}

U64 setbit( SV *self, SV *offset ) {
    U64 *vec = (U64*)SvPVX( SvRV( self ) );
    U64 bit  = SvUV( offset ) & 0x000000000000003fULL;
    U64 quad = SvUV( offset ) >> 6;

    //return _bittestandset64( vec+quad, bit );
    return vec[ quad ] |= 1ULL << bit;
}

U64 tstbit( SV *self, SV *offset ) {
    U64 *vec = (U64*)SvPVX( SvRV( self ) );
    U64 bit  = SvUV( offset ) & 0x000000000000003fULL;
    U64 quad = SvUV( offset ) >> 6;

    //return _bittest64( vec+quad, bit );
    return ( vec[ quad ] & ( 1ULL << bit ) ) ? 1 : 0;
}

U64 clrbit( SV *self, SV *offset ) {
    U64 *vec = (U64*)SvPVX( SvRV( self ) );
    U64 bit  = SvUV( offset ) & 0x000000000000003fULL;
    U64 quad = SvUV( offset ) >> 6;

    //return _bittestandreset64( vec+quad, bit );
    return vec[ quad ] &= ~( 1ULL << bit );
}

_inline int _popcnt( U64 x ) {
    x -=( x >> 1 ) & 0x5555555555555555ULL;
    x = ( x & 0x3333333333333333Ul ) + ( ( x >> 2 ) & 0x3333333333333333ULL );
    x = ( x + (x >> 4)) & 0x0f0f0f0f0f0f0f0fULL;
    return ( x * 0x0101010101010101ULL ) >> 56;
}

U64 cntbit( SV *self ) {
    STRLEN l = 0;
    U64 *vec = (U64*)SvPV( SvRV( self ), l );
    U64 cnt = 0ULL;
    int i;

    l /= 8; ++l;

    for( i = 0; i <l; ++i ) {
        cnt += _popcnt( vec[ i ] );
    }
    return cnt;
}


#line 89 "bitvector.c"
#ifndef PERL_UNUSED_VAR
#  define PERL_UNUSED_VAR(var) if (0) var = var
#endif

#ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE
#define PERL_ARGS_ASSERT_CROAK_XS_USAGE assert(cv); assert(params)

/* prototype to pass -Wmissing-prototypes */
STATIC void
S_croak_xs_usage(pTHX_ const CV *const cv, const char *const params);

STATIC void
S_croak_xs_usage(pTHX_ const CV *const cv, const char *const params)
{
    const GV *const gv = CvGV(cv);

    PERL_ARGS_ASSERT_CROAK_XS_USAGE;

    if (gv) {
        const char *const gvname = GvNAME(gv);
        const HV *const stash = GvSTASH(gv);
        const char *const hvname = stash ? HvNAME(stash) : NULL;

        if (hvname)
            Perl_croak(aTHX_ "Usage: %s::%s(%s)", hvname, gvname, params);
        else
            Perl_croak(aTHX_ "Usage: %s(%s)", gvname, params);
    } else {
        /* Pants. I don't think that it should be possible to get here. */
        Perl_croak(aTHX_ "Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params);
    }
}
#undef  PERL_ARGS_ASSERT_CROAK_XS_USAGE

#ifdef PERL_IMPLICIT_CONTEXT
#define croak_xs_usage(a,b)	S_croak_xs_usage(aTHX_ a,b)
#else
#define croak_xs_usage		S_croak_xs_usage
#endif

#endif

/* NOTE: the prototype of newXSproto() is different in versions of perls,
 * so we define a portable version of newXSproto()
 */
#ifdef newXS_flags
#define newXSproto_portable(name, c_impl, file, proto) newXS_flags(name, c_impl, file, proto, 0)
#else
#define newXSproto_portable(name, c_impl, file, proto) (PL_Sv=(SV*)newXS(name, c_impl, file), sv_setpv(PL_Sv, proto), (CV*)PL_Sv)
#endif /* !defined(newXS_flags) */

#line 141 "bitvector.c"

XS(XS_main_new); /* prototype to pass -Wmissing-prototypes */
XS(XS_main_new)
{
#ifdef dVAR
    dVAR; dXSARGS;
#else
    dXSARGS;
#endif
    if (items != 2)
       croak_xs_usage(cv,  "classname, bits");
    {
	const char *	classname = (const char *)SvPV_nolen(ST(0));
	SV *	bits = ST(1);
	SV *	RETVAL;

	RETVAL = new(classname, bits);
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

#ifdef __cplusplus
extern "C"
#endif
XS(boot_bitvector); /* prototype to pass -Wmissing-prototypes */
XS(boot_bitvector)
{
#ifdef dVAR
    dVAR; dXSARGS;
#else
    dXSARGS;
#endif
#if (PERL_REVISION == 5 && PERL_VERSION < 9)
    char* file = __FILE__;
#else
    const char* file = __FILE__;
#endif

    PERL_UNUSED_VAR(cv); /* -W */
    PERL_UNUSED_VAR(items); /* -W */
    XS_VERSION_BOOTCHECK ;

        newXS("main::new", XS_main_new, file);
#if (PERL_REVISION == 5 && PERL_VERSION >= 9)
  if (PL_unitcheckav)
       call_list(PL_scopestack_ix, PL_unitcheckav);
#endif
    XSRETURN_YES;
}