MLLoopbackOpen()

#include "mathlink.h"

/* read data from a link, store it in a loopback link, and return the loopback link */

MLINK f(MLENV env, MLINK link)
{
    MLINK loopbacklink;
    int error;

    loopbacklink = MLLoopbackOpen(env, &error);
    if(loopbacklink == (MLINK)0 || error != MLEOK)
        { /* unable to create loopbacklink */ }

    if(! MLTransferExpression(loopbacklink, link))
        { /* unable to transfer an expression from link to
             loopbacklink */ }

    return loopbacklink;    
}