// Very simple code to understand how tlcc works
#include <stdio.h>
#include <string.h>
#include <misc.h>
#include <tlmpnet.h>
#include <tlmplib.h>
#include <string>

using namespace std;

<mod>
int main (int argc, char *argv[])
{
	glocal int ret = -1;
	glocal.ret = <call tlmpprogram>(argc,argv);
	<f init>
		setproginfo ("obj2","0.0","...");
	</f>
	<f main>
		int ret = -1;
		struct HANDLE_INFO: public ARRAY_OBJ{
			unsigned count = 0;
		};
		<obj TCPSERVER o>("4000",10);
		<f newclient>
			info.data = new HANDLE_INFO;
		</f>
		<f endclient>
		</f>
		<f receive>
			HANDLE_INFO *n = (HANDLE_INFO*)info.data;
			n->count++;
			sendf ("echo %s\n",line);
			sendf ("count=%u\n",n->count);
			if (strcmp(line,"quit")==0){
				endclient = true;
			}else if (strcmp(line,"end")==0){
				endserver = true;
			}
		</f>
		</obj>
		o.loop();
		return ret;
	</f>
	</call>
	return glocal.ret;
}
</mod>