#pragma implementation
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <misc.h>
#include <tlmplib.h>
#include <tlmpnet.h>
#include "eventserver.h"

<mod>
int main (int argc, char *argv[])
{
	<glocal>
		SSTRING socket;
	</glocal>
	glocal.socket.setfromf ("unix:%s/.tlmp/eventmgr.sock",getenv("HOME"));
	int ret = <call tlmpprogram>(argc,argv,"tlmpwork");
	<f usage>
	</f>
	<f onearg>
		int ret = -1;
		if (strcmp(opt,"--socket")==0){
			glocal.socket.setfromf("unix:%s",val);
			ret = 1;
		}
		return ret;
	</f>
	<f main_noarg>
		<obj TCPSERVER serv>(glocal.socket.get(),10);
		<f newclient>
		</f>
		<f endclient>
		</f>
		<f time_out>
		</f>
		<f idle>
		</f>
		<f receive>
			fprintf (stderr,"line %s\n",line);
		</f>
		</obj>
		serv.loop();
		return 0;
	</f>
	</call>
	return ret;
}
</mod>