#include "wstp.h"

/* check a link for a function and return the number of arguments */

int f(WSLINK lp)
{
    int a;

    switch(WSGetType(lp))
    {
        case WSTKFUNC:
            /* get the argument size */
            if(! WSGetArgCount(lp, &a))
                { /* unable to get the number of arguments from lp */ }
            return a;
        default:
            /* ... */
    }

    /* ... */
}