view release on metacpan or  search on metacpan

OID.xs  view on Meta::CPAN

#include "ppport.h"

#define	set_bit(a,i)	((a)[(i) / 8] |= 1 << (7 - ((i) & 7)))

MODULE = Sort::Key::OID		PACKAGE = Sort::Key::OID		
PROTOTYPES: DISABLE
    
void
encode_oid(oid=NULL)
    SV *oid
PPCODE:
    if (!oid)
        oid = DEFSV;
    {
        STRLEN len;
        const char * str = SvPV(oid, len);
        STRLEN rlen = (len + 3) / 2;
        int i = 0;
        char *rstr;
        int ri = 0;
        int sep = -1;