/*
	Present a redir record file with readable time-stamp
*/
#include <stdio.h>
#include <string.h>
#include <errno.h>
#include <time.h>

#include <tlmplib.h>

<mod>
int main (int argc, char *argv[])
{
	glocal int ret = -1;
	glocal bool hexdump = false;
	glocal bool nodata = false;
	glocal.ret = <call tlmpprogram>(argc,argv);
	<f init>
		setproginfo ("redirdump",PACKAGE_REV
			,"Produce a readable output from a redir record file\n");
		setarg ('h',"hexdump","Show the records using hexadecimal",glocal.hexdump,false);
		setarg ('n',"nodata","Only display the timestamp, no data",glocal.nodata,false);
	</f>
	<f main>
		int ret = 0;
		for (int i=0; i<argc; i++){
			const char *fname = argv[i];
			FILE *fin = fopen (fname,"r");
			if (fin == NULL){
				tlmp_error ("Can't open file %s (%s)\n",fname,strerror(errno));
				ret = -1;
				break;
			}else{
				ERROR_PREFIX p("File %s: ",fname);
				char head[100];
				long long last = 0;
				while (fgets(head,sizeof(head),fin)!=NULL){
					if (strncmp(head,"***",3)!=0){
						tlmp_error ("Invalid line header %s\n",head);
					}else{
						long tv_sec,tv_usec;
						int len;
						if (sscanf (head+3,"%lx.%lx:%d",&tv_sec,&tv_usec,&len)
							!= 3){
							tlmp_error ("Invalid header fields: %s\n",head);
						}else{
							struct tm *t = localtime (&tv_sec);
							long long cur = (long long)tv_sec*1000000+tv_usec;
							long long diff = cur - last;
							printf ("%4d/%02d/%02d %02d:%02d:%02d.%06ld %d (%ld.%06ld)\n"
								,t->tm_year+1900,t->tm_mon+1,t->tm_mday
								,t->tm_hour,t->tm_min,t->tm_sec
								,tv_usec,len
								,(long)(diff/1000000),(long)(diff%1000000));
							last = cur;
							char buf[len];
							if (fread(buf,1,len,fin)!=len){
								tlmp_error ("Short read, expected %d bytes\n",len);
								break;
							}else if (!glocal.nodata){
								if (glocal.hexdump){
									for (int i=0; i<len; i+=16){
										printf ("\t");
										int j;
										int i16 = i+16;
										for (j=i; j<len && j<i16; j++){
											char ch = buf[j];
											printf ("%02x ",ch);
										}
										for (; j<i16; j++){
											printf ("   ");
										}
										for (j=i; j<len && j<i16; j++){
											unsigned char ch = buf[j];
											printf ("%c",(ch < 32 || ch > 127) ? '.' : ch);
										}
										printf ("\n");
									}
								}else{
									printf ("\t");
									for (int i=0; i<len; i++){
										char ch = buf[i];
										if (ch == '\n'){
											printf ("\n");
											if (i < len-1) printf ("\t");
										}else{
											fputc (ch,stdout);
										}
									}
									printf("\n");
								}
							}
						}
					}
				}
				fclose (fin);
			}
		}
		return ret;
	</f>
	</call>
	return glocal.ret;
}
</mod>