MLNewPacket()

#include "mathlink.h"

/* read the next number from a link and ignore everything else */

void f(MLINK lp)
{
    /* determine the type of the data on the link */
    switch(MLGetType(lp))
    {
        case MLTKINT:
            /* integer data */
            break;
        case MLTKREAL:
            /* floating point data */
            break;
        default:
            /* Skip to the next packet if not a number. */
            if(! MLNewPacket(lp))
                { /* unable to jump ahead to the next packet on lp */ }
    }
}