#include <stdio.h>
#include <sys/time.h>
#include <misc.h>
#include <tlmplib.h>
#include <tlmpdia.h>

static const char K_MESSAGES[]="messages";

<mod>
static void map_addmsg (const char *file, const char *msg)
{
	glocal const char *msg = msg;
	<call savefile>(file,true);
	<f dowrite>
		int ret = -1;
		struct timeval tv;
		if (gettimeofday(&tv,NULL)!=-1){
			fprintf (fout,"%08lx.%08lx msg %s\n",tv.tv_sec,tv.tv_usec
				,glocal.msg);
			ret = 0;
		}
		return ret;
	</f>
	</call>
}
</mod>

static void map_addmsg (const char *file, const SSTRING &msg)
{
	map_addmsg (file,msg.get());
}

<mod>
int main (int argc, char *argv[])
{
	int ret = -1;
	glocal const char *file = "mapmsg.log";
	ret = <call tlmpprogram>(argc,argv);
	<f init>
		setproginfo ("mapmsg",PACKAGE_REV
			,"Record message with time-stamp into a file\n");
		setarg ('f',"file","Record the message in this file",glocal.file,false);
	</f>
	<f main_noarg>
		DIALOG dia;

		SSTRING line;
		PRIVATE_MESSAGE msg;
		dia.newf_str ("Auto erased message",line);
		dia.set_helpdia (msg);

		const int NBRECMSG=10;
		SSTRING lines[NBRECMSG];
		PRIVATE_MESSAGE msgs[NBRECMSG];
		for (int i=0; i<NBRECMSG; i++){
			SSTRING tmp,key;
			tmp.setfromf ("Recorded msg %d",i+1);
			key.setfromf ("msg-%d",i);
			lines[i] = linuxconf_getval (K_MESSAGES,key.get());
			dia.newf_str (tmp.get(),lines[i]);
			dia.set_helpdia (msgs[i]);
		}
		dia.setbutinfo (MENU_USR1,"Truncate","");
		int nof = 0;
		while (1){
			MENU_STATUS code = dia.edit ("Message profiler"
				,"Enter a message and hit a button to add\n"
				 "a timestamped message to the log"
				,help_nil,nof,MENUBUT_CANCEL|MENUBUT_USR1);
			if (code == MENU_CANCEL || code == MENU_ESCAPE){
				break;
			}else if (code == MENU_USR1){
				<call savefile>(glocal.file,false);
				<f dowrite>
					return 0;
				</f>
				</call>
			}else if (code == MENU_MESSAGE){
				dia.save();
				if (dialog_testmessage(msg)){
					map_addmsg (glocal.file,line);
					line.setempty();
					dia.reload();
				}else{
					for (int i=0; i<NBRECMSG; i++){
						if (dialog_testmessage (msgs[i])){
							map_addmsg(glocal.file,lines[i]);
							break;
						}
					}
				}
			}
		}
		map_addmsg (glocal.file,"end of session");
		for (int i=0; i<NBRECMSG; i++){
			SSTRING tmp;
			tmp.setfromf ("msg-%d",i);
			linuxconf_replace (K_MESSAGES,tmp.get(),lines[i]);
		}
		linuxconf_save();
		return 0;
	</f>
	</call>
	return ret;
}
</mod>