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

MODULE = dinfo		PACKAGE = dinfo

PROTOTYPES: ENABLE

void
nummer2str (char *nummer, int fill = 0)
	PPCODE:
        int len;
        unsigned long long num;
        char bin[5];

        for (len = num = 0; *nummer && len < 11; nummer++)
          if (*nummer >= '0' && *nummer <= '9')
            {
              len++;
              num = num * 11 + *nummer - '0';
            }

        while (len++ < 11)
          num = num * 11 + fill;

        bin[0] =               num >> 32;
        bin[1] = (unsigned int)num >> 24;
        bin[2] = (unsigned int)num >> 16;
        bin[3] = (unsigned int)num >>  8;
        bin[4] = (unsigned int)num >>  0;

        XPUSHs (sv_2mortal (newSVpvn (bin, 5)));