view release on metacpan or  search on metacpan

ravemp.c  view on Meta::CPAN

    for (i=0;i<count;i++) {

	if (strncasecmp(p,"0x",2)==0)
	    j = sscanf(p+2,"%x",&arg);
	else
	    j = sscanf(p,"%u",&arg);

	if (j < 1)
	    break;

	/* Get argument pointer (if any) and return decoded value */

	if ((ip=va_arg(ap,unsigned int *)) != NULL)
	    *ip = arg;

	/* Skip field just processed and white space following it */

	while (isdigit(*p)||tolower(*p)=='x'|| (tolower(*p)>='a'&&tolower(*p)<='f'))
	    p++;

	while (isblank(*p))
	    p++;
    }

    return i;	/* Return number of fields decoded */
}
/********************** XPV *****************************/
static void XPV(int level,char *fmt,...)
{
    /* To be implemented... */

#if 0
    if (level < xpv_level)
	return;
#endif