/*
 *	Ivy perf mesure le temp de round trip
 *
 *	Copyright (C) 1997-2004
 *	Centre d'Études de la Navigation Aérienne
 *
 * 	Main and only file
 *
 *	Authors: François-Régis Colin <fcolin@cena.fr>
 * 	         Yannick Jestin <jestin@cena.fr>
 *
 *	Please refer to file version.h for the
 *	copyright notice regarding this software
 */

#include "version.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#ifdef WIN32
#include <windows.h>
#ifdef __MINGW32__
#include <regex.h> 
#include <getopt.h>
#endif
#else
#include <sys/time.h>
#include <unistd.h>
#ifdef __INTERIX
extern char *optarg;
extern int optind;
#endif
#endif


#include "ivysocket.h"
#include "ivy.h"
#include "timer.h"
#include "ivyloop.h"
#define MILLISEC 1000.0

static double currentTime()
{
        double current;
#ifdef WIN32
        current = GetTickCount();
#else
        struct timeval stamp;
        gettimeofday( &stamp, NULL );
        current = (double)stamp.tv_sec * MILLISEC + (double)(stamp.tv_usec/MILLISEC);
#endif
        return  current;
}

void Reply (IvyClientPtr app, void *user_data, IvyArgument args)
{
	IvyArgument arg;
	int len;
	const void* val;
	arg = IvyArgumentGetChildrens( args );
	IvyArgumentGetValue( arg , &len, &val);
	IvySendMsg ("pong ts=%.*s tr=%f", len, (char*)val, currentTime());
}
void Pong (IvyClientPtr app, void *user_data, IvyArgument args)
{
	double current, ts, tr, roundtrip1, roundtrip2, roundtrip3;
	IvyArgument arg;
	int len;
	const void* val;
	/* TODO  bug atof non limite a la longeur de la valeur !!!*/
	
	current = currentTime();
	arg = IvyArgumentGetChildrens( args );
	IvyArgumentGetValue( arg , &len, &val);
	ts = atof( (char*)val );
	arg = IvyArgumentGetNextChild( arg );
	IvyArgumentGetValue( arg , &len, &val);
	tr = atof( (char*)val );
	roundtrip1 = tr-ts;
	roundtrip2 = current - tr;
	roundtrip3 = current - ts;
	fprintf(stderr,"roundtrip %f %f %f \n", roundtrip1, roundtrip2, roundtrip3 );
}

void TimerCall(TimerId id, void *user_data, unsigned long delta)
{
	int count = IvySendMsg ("ping ts=%f", currentTime() );
	if ( count == 0 ) fprintf(stderr, "." );
}


int main(int argc, char *argv[])
{
	

	/* Mainloop management */

	IvyInit ("IvyPerf", "IvyPerf ready", NULL,NULL,NULL,NULL);

#ifdef USE_REGEXP
	IvyBindMsg (Reply, NULL, "^ping ts=(.*)");
	IvyBindMsg (Pong, NULL, "^pong ts=(.*) tr=(.*)");
#else
	IvyBindSimpleMsg (Reply, NULL, "ping ts");
	IvyBindSimpleMsg (Pong, NULL, "pong ts tr");
#endif

	IvyStart (0);

	TimerRepeatAfter (TIMER_LOOP, 200, TimerCall, (void*)1);
	

	IvyMainLoop (0);
	return 0;
}