#include "wstp.h"
/* transfer an expression to link 2 from loopback link 1 */
void f(WSLINK lp2, WSLINK lp1)
{
/* send EvaluatePacket[ToExpression[str]] to lp1 */
if(! WSPutFunction(lp1, "EvaluatePacket", 1))
{ /* unable to put function to lp1 */ }
if(! WSPutFunction(lp1, "ToExpression", 1))
{ /* unable to put function to lp1 */ }
if(! WSPutString(lp1, "a = Table[RandomInteger[2,12]];"))
{ /* unable to put the string to lp1 */ }
if(! WSEndPacket(lp1))
{ /* unable to put the end-of-packet indicator to lp1 */ }
if(! WSFlush(lp1))
{ /* unable to put flush any outgoing data buffered in lp1 */ }
/* now transfer to lp2 from lp1 */
if(! WSTransferExpression(lp2, lp1))
{ /* unable to transfer an expression from lp1 to lp2 */ }
}