X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fscripts%2Fpublic_html%2Fbench.php;h=bf7a2fad81304ab438048c4416f4b7dcd6cedc4f;hb=16d0ba4a14fd6bede3e8b3520af7deaefb4f8068;hp=aabc1a50151fd41e24c0cd4558e11c0577721077;hpb=4bbb754caca92b64bcacc0cf9ef363198f0eab4c;p=helm.git diff --git a/helm/software/matita/scripts/public_html/bench.php b/helm/software/matita/scripts/public_html/bench.php index aabc1a501..bf7a2fad8 100644 --- a/helm/software/matita/scripts/public_html/bench.php +++ b/helm/software/matita/scripts/public_html/bench.php @@ -17,6 +17,16 @@ function set_last_mark($a) { } query($query_last_mark,"set_last_mark"); +$query_last_svn_mark = "select revision from bench_svn where mark='$last_mark';"; +$last_svn_mark = ""; +function set_last_svn_mark($a) { + global $last_svn_mark; + foreach ($a as $k => $v) { + $last_svn_mark = trim($v); + } +} +query($query_last_svn_mark,"set_last_svn_mark"); + $query_before_last_mark = "select mark from bench where mark <> '$last_mark' order by mark desc limit 1;"; $before_last_mark = ""; function set_before_last_mark($a) { @@ -26,13 +36,24 @@ function set_before_last_mark($a) { } } query($query_before_last_mark,"set_before_last_mark"); + +$query_before_last_svn_mark = "select revision from bench_svn where mark='$before_last_mark';"; +$before_last_svn_mark = ""; +function set_before_last_svn_mark($a) { + global $before_last_svn_mark; + foreach ($a as $k => $v) { + $before_last_svn_mark = trim($v); + } +} +query($query_before_last_svn_mark,"set_before_last_svn_mark"); + $quey_all = urlencode(" Whole content: @@@ select * from bench order by mark desc***"); -$query_diff = urlencode(" +$query_time_diff = urlencode(" Time diff: @@@ select @@ -44,10 +65,27 @@ where b1.test = b2.test and b1.options = b2.options and b1.compilation = b2.compilation and + b1.result = b2.result and b1.mark = '$before_last_mark' and b2.mark= '$last_mark' and ABS(b2.timeuser - b1.timeuser) > 100 order by diff desc***"); +$query_result_diff = urlencode(" +Result diff: +@@@ +select + b1.test as test, b1.result as oldresult, b2.result as newresult, b1.timeuser as oldtime, b2.timeuser as newtime, b1.compilation as comp, b1.options as opts, + (b2.timeuser - b1.timeuser) as diff +from + bench as b1, bench as b2 +where + b1.test = b2.test and + b1.options = b2.options and + b1.compilation = b2.compilation and + b1.result <> b2.result and + b1.mark = '$before_last_mark' and b2.mark= '$last_mark' +order by test desc***"); + $query_fail = urlencode(" Number of failures @@@ @@ -88,20 +126,6 @@ where bench1.options = 'gc-off' and bench.compilation = bench1.compilation and bench.compilation = 'opt' -group by mark*** -### -GC usage (byte) -@@@ -select - bench.mark, SUM(bench.time) - SUM(bench1.time) as gc_hoverhead -from bench, bench as bench1 -where - bench.mark = bench1.mark and - bench.test = bench1.test and - bench.options = 'gc-on' and - bench1.options = 'gc-off' and - bench.compilation = bench1.compilation and - bench.compilation = 'byte' group by mark***"); $query_auto = urlencode(" @@ -145,18 +169,14 @@ group by mark ***"); $query_csc = urlencode(" -Performances (byte and GC) per mark +Performances per mark @@@ select - bench_times.mark as mark, + bench_times_opt.mark as mark, bench_svn.revision, - bench_times.time as time, - bench_times.timeuser as timeuser, bench_times_opt.time as time_opt, bench_times_opt.timeuser as timeuser_opt, - bench_times.tests as tests, bench_times_opt.tests as tests_opt, - bench_fails.count as fail, bench_fails_opt.count as fail_opt from bench_svn, @@ -168,20 +188,6 @@ from b1.options = 'gc-on' and b1.compilation = 'opt' group by b1.mark) as bench_times_opt, - (select - b1.mark as mark, SUM(b1.time) as time, - SUM(b1.timeuser) as timeuser,COUNT(DISTINCT b1.test) as tests - from bench as b1 - where - b1.options = 'gc-on' and - b1.compilation = 'byte' - group by b1.mark) as bench_times, - (select - b1.mark as mark, - SUM(if(b1.result='fail' and b1.compilation='byte' and b1.options='gc-on',1,0)) - as count - from bench as b1 - group by b1.mark) as bench_fails, (select b1.mark as mark, SUM(if(b1.result='fail' and b1.compilation='opt' and b1.options='gc-on',1,0)) @@ -189,10 +195,8 @@ from from bench as b1 group by b1.mark) as bench_fails_opt where - bench_times.mark = bench_fails.mark and bench_times_opt.mark = bench_fails_opt.mark and - bench_times.mark = bench_times_opt.mark and - bench_svn.mark = bench_times.mark + bench_svn.mark = bench_times_opt.mark order by bench_svn.mark desc ***"); @@ -242,6 +246,17 @@ function links_of($name,$q,$limits){ echo ""; } +function last_commits() { + global $last_svn_mark; + global $before_last_svn_mark; + $query = "svn log -r$last_svn_mark:$before_last_svn_mark -v svn://mowgli.cs.unibo.it/trunk/helm/software"; + echo $query; + exec($query,$res); + echo "
"; + foreach ($res as $k => $v) { echo "$v\n"; } + echo ""; +} + ?> @@ -250,11 +265,14 @@ function links_of($name,$q,$limits){
'bench' table description: | ||||||
'bench_svn' table description: | ||||||
@@ -355,8 +379,9 @@ where b1.test = b2.test and b1.options = b2.options and b1.compilation = b2.compilation and + b1.result = b2.result and b1.mark = '' and b2.mark= '' and - ABS(b2.timeuser - b1.timeuser) < 100 + ABS(b2.timeuser - b1.timeuser) > 100 order by diff desc; |