/* returns INT8 datatype or converts input to int8 */
castint8(s)
{
        if (argc < 1)
        {
                /* signed byte */
                return(INT8);
        }
        else
        {
                /* convert to signed byte */
                return(castbyte({s}, INT8));
        }
}