MLTransferToEndOfLoopbackLink()

#include "mathlink.h"

/* build up an expression on a loopback link and send that expression to a second link */

void f(MLINK lp1, MLINK lp2)
{
    if(! MLPutFunction(lp1, "EvaluatePacket", 1))
        { /* unable to put the function to lp1 */ }

    if(! MLPutFunction(lp1, "ToExpression", 1))
        { /* unable to put the function to lp1 */ }

    if(! MLPutString(lp1, "a = Table[Random[Integer, 11],{12}];", 36))
        { /* unable to put the string to lp1 */ }

    if(! MLEndPacket(lp1))
        { /* unable to send the end-of-packet indicator to lp1 */ }

    if(! MLFlush(lp1))
        { /* unable to flush any outgoing data buffered in lp1 */ }

    if(! MLTransferToEndOfLoopbackLink(lp2, lp1))
        { /* unable to transfer all the data from lp1 to lp2 */ }
}