#include "wstp.h"

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

WSLINK f(WSENV env, WSLINK link)
{
    WSLINK loopbacklink;
    int error;

    loopbacklink = WSLoopbackOpen(env, &error);
    if(loopbacklink == (WSLINK)0 || error != WSEOK)
        { /* unable to create loopbacklink */ }

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

    return loopbacklink;    
}