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

using namespace std;

static string homepath (const char *path)
{
	string ret;
	if (path[0] != '/'){
		ret = string(getenv("HOME")) + "/" + path;
	}else{
		ret = path;
	}
	return ret;
}

<mod>
int main (int argc, char *argv[])
{
	glocal int ret = -1;
	glocal const char *unixport = ".cfshell/cfshell_local.sock";
	glocal bool daemon = false;
	glocal const char *pidfile = ".cfshell/cfshell_local.pid";
	glocal.ret = <call tlmpprogram>(argc,argv);
	<f init>
		setarg ('p',"unixport","Socket unix",glocal.unixport,false); 
		setarg ('d',"daemon","Execute en arriere plan",glocal.daemon,false); 
		setarg (' ',"pidfile","Fichier PID",glocal.pidfile,false);
	</f>
	<f main_noarg>
		int ret = -1;
		signal (SIGPIPE,SIG_IGN);
		signal (SIGCHLD,SIG_IGN);
		string unixport = homepath (glocal.unixport);
		string pidfile = homepath (glocal.pidfile);
		string tmp = string("unix:") + unixport;
		<obj TCPSERVER o>(tmp.c_str(),1);
		<f newclient>
		</f>
		<f endclient>
		</f>
		<f receive>
		</f>
		</obj>
		if (o.is_ok()){
			if (glocal.daemon){
				daemon_init(pidfile.c_str(),NULL);
			}
			o.loop();
			ret = 0;
		}else{
			tlmp_error ("Ne peut installer le socket %s (%s)\n",unixport.c_str(),strerror(errno));
		}
		return ret;
	</f>
	</call>
	return glocal.ret;
}
</mod>