/*
	Test to show how robust is the unix api control protocol of the various tools
*/
#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <tlmplib.h>
#include <tlmpnet.h>

<mod>
int main (int argc, char *argv[])
{
	glocal const char *unixp = NULL;
	glocal int ret = -1;
	glocal.ret = <call tlmpprogram>(argc,argv);
	<f init>
		setarg ('p',"unixport","Destination unix socket",glocal.unixp,true);
	</f>
	<f main_noarg>
		<call tcpconnect>("unix:",glocal.unixp,5);
		<f init>
			if (fork()==0){
				char verylong[1000000];
				// Very long line
				memset (verylong,'a',sizeof(verylong));
				verylong[sizeof(verylong)-2] = '\n';
				verylong[sizeof(verylong)-1] = '\0';
				for (int i=0; i<10; i++){
					send (verylong);
				}
				// No \n
				memset (verylong,'a',sizeof(verylong));
				verylong[sizeof(verylong)-1] = '\0';
				for (int i=0; i<10; i++){
					send (verylong);
				}
				_exit (0);
			}
		</f>
		<f oneline>
			printf ("Receive %d: %-100.100s\n",info.linelen,line);
		</f>
		</call>
		return 0;
	</f>
	</call>
	return glocal.ret;
}
</mod>