#include "wstp.h"
/* build up an expression on a loopback link and send that expression to a second link */
void f(WSLINK lp1, WSLINK lp2)
{
if(! WSPutFunction(lp1, "EvaluatePacket", 1))
{ /* unable to put the function to lp1 */ }
if(! WSPutFunction(lp1, "ToExpression", 1))
{ /* unable to put the function to lp1 */ }
if(! WSPutString(lp1, "a = Table[Random[Integer, 11],{12}];", 36))
{ /* unable to put the string to lp1 */ }
if(! WSEndPacket(lp1))
{ /* unable to send the end-of-packet indicator to lp1 */ }
if(! WSFlush(lp1))
{ /* unable to flush any outgoing data buffered in lp1 */ }
if(! WSTransferToEndOfLoopbackLink(lp2, lp1))
{ /* unable to transfer all the data from lp1 to lp2 */ }
}