#!/usr/bin/perl -w

if ($#ARGV != 3)
	{
	print "Usage $0 <result file> <Algorithm(DSA/RSA)> <msgsizelimit> <interval>";
	exit;
	}
$resultfile = $ARGV[0];
#$algo = $ARGV[1];
$msgsizelimit = $ARGV[2];
$interval = $ARGV[3];

open RESFILE, "$resultfile" or die "Error opening $resultfile for reading";
@alllines = <RESFILE>;
open GRAPHFILE1, ">$resultfile.sign.dat" or die "Error opening $resultfile.sign.dat for writing";
open GRAPHFILE2, ">$resultfile.verify.dat" or die "Error opening $resultfile.verify.dat for writing";

#Repeat for all the message size in given range
$i=0;
for ($msgsize = 0; $msgsize <= $msgsizelimit; $msgsize+=$interval)
	{
	if ($alllines[$i] =~ /^Time\s*to\s*sign\s*=\s*(\d+)/)
		{
		$time = $1;
		print GRAPHFILE1 "$msgsize $time\n";
		$i++;
		}
	if ($alllines[$i] =~ /^Time\s*to\s*verify\s*=\s*(\d+)/)
		{
		$time = $1;
		print GRAPHFILE2 "$msgsize $time\n";
		$i++;
		}
	}