#include <stdio.h>
#include <stdlib.h>
#include <sys/time.h>
#include <string.h>
#include <tlmplib.h>
#include <string>

using namespace std;
static long long getnow ()
{
	struct timeval tv;
	gettimeofday (&tv,NULL);
	return tv.tv_sec *(long long)1000000 + tv.tv_usec;
}

<mod>
int main (int argc, char *argv[])
{
	glocal int ret = -1;
	glocal const char *filetime = "/tmp/main.last";
	glocal int waittime = 3*1000000/4;	// Half a second
	glocal.ret = <call tlmpprogram>(argc,argv);
	<f init>
		setproginfo ("nocracks-time",VERSION,"...");
		setarg ('f',"filetime","File holding last access time",glocal.filetime,false);
		setarg ('w',"waittime","Return false until the waittime is over (microseconds)",glocal.waittime,false);
	</f>
	<f main_noarg>
		int ret = -1;
		glocal long long last = 0;
		<call loadfile>(glocal.filetime,true);
		<f oneline>
			glocal.last = atoll(line);
			return 0;
		</f>
		<f missing>
		</f>
		</call>
		glocal long long now = getnow();
		if (glocal.now - glocal.last > glocal.waittime){
			ret = 0;
			<call savefile>(glocal.filetime,false);
			<f dowrite>
				fprintf (fout,"%Ld\n",glocal.now);
				return 0;
			</f>
			</call>
		}
		return ret;
	</f>
	</call>
	return glocal.ret;
}
</mod>