#include <stdio.h>
#include "mathlink.h"

/* A function for printing MathLink error messages */

void f(MLINK l)
{
    int error;

    if((error = MLError(l),error) != MLEOK)
    {
        printf("MathLink error: %s\n", MLErrorString(
            MLLinkEnvironment(l), error));
    }
}