#include <string.h>
#include "mathlink.h"
/* send an approximation of Pi across a link */
void f(MLINK lp)
{
char *Pi = "3.141592654";
int bytes_left, i;
if(! MLPutType(lp, MLTKOLDREAL))
{ /* unable to send the data type to lp */ }
if(! MLPutRawSize(lp, strlen(Pi))
{ /* unable to send the length of Pi to lp */ }
if(! MLBytesToPut(lp, &bytes_left))
{ /* unable to get the remaining bytes to send from lp */ }
i = 0;
while(bytes_left > 0)
{
/* send the data one byte at a time */
if(! MLPutRawData(lp, Pi + i, 1))
{ /* unable to send a character of Pi to lp */ }
if(! MLBytesToPut(lp, &bytes_left))
{ /* unable to get the remaining bytes to send from lp */ }
i++;
}
}