#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <tlmplib.h>
#include <tlmpnet.h>

<mod>
int main (int argc, char *argv[])
{
	<glocal>
		bool server;
		int count;
	</glocal>
	glocal.server = false;
	glocal.count = 1000;
	int ret = <call tlmpprogram>(argc,argv);
	<f init>
		setproginfo ("pingpong","1.0"
			,"pingpong --server port\n"
			 "pingpong --count N server port\n"
			 "\n"
			 "Does a performance test, sending N small lines\n"
			 "to the server. It returns them immediatly. The client\n"
			 "wait for the answer to send the next request.\n");
		setarg ('s',"server","Turn on server mode",glocal.server,false);
		setarg ('c',"count","Packet exchanged, default 1000",glocal.count,false);
	</f>
	<f main>
		int ret = -1;
		if (glocal.server && argc == 1){
			<glocal>
				int packets;
			</glocal>
			glocal.packets = 0;
			<obj TCPSERVER serv>(argv[0],1000);
			<f newclient>
				glocal.packets = 0;
			</f>
			<f endclient>
				fprintf (stderr,"%d packets received\n",glocal.packets);
			</f>
			<f receive>
				glocal.packets++;
				sendf ("%s\n",line);
			</f>
			</obj>
			serv.loop ();
			ret = 0;
		}else if (argc == 2){
			ret = <call tcpconnect>(argv[0],argv[1],10);
			<f init>
				send ("allo\n");
			</f>
			<f oneline>
				glocal.count--;
				if (glocal.count <= 0){
					end = true;
				}else{
					send ("allo\n");
				}
			</f>
			</call>
		}else{
			usage();
		}
		return ret;
	</f>
	</call>
	return ret;
}
</mod>