X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fscripts%2Fpublic_html%2Fbench.php;h=1009ace52dbc4a3a7b50b7e708a9aac77004b7b7;hb=3a96f145e913a11cf64db491b001b4fdfc71b57a;hp=9bb8c0782aa755efbcbc2f73aa70293728b89335;hpb=58ee7317b9f877788054b8d6dea6d8d1026a63db;p=helm.git diff --git a/helm/software/matita/scripts/public_html/bench.php b/helm/software/matita/scripts/public_html/bench.php index 9bb8c0782..1009ace52 100644 --- a/helm/software/matita/scripts/public_html/bench.php +++ b/helm/software/matita/scripts/public_html/bench.php @@ -6,12 +6,86 @@ // query ::= name "@@@" sql // $limits = array("20","50","100"); + +$query_last_mark = "select mark from bench order by mark desc limit 1;"; +$last_mark = ""; +function set_last_mark($a) { + global $last_mark; + foreach ($a as $k => $v) { + $last_mark = $v; + } +} +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) { + global $before_last_mark; + foreach ($a as $k => $v) { + $before_last_mark = $v; + } +} +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_time_diff = urlencode(" +Time diff: +@@@ +select + b1.test as test, 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' 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 @@@ @@ -112,48 +186,52 @@ $query_csc = urlencode(" Performances (byte and GC) per mark @@@ select - bench.mark, - bench_svn.revision as revision, - SUM(bench.time) as sum_time, - SUM(bench.timeuser) as sum_timeuser, - COUNT(DISTINCT bench.test) as performed_tests, - COUNT(DISTINCT bench1.test) as failed_tests -from - bench, bench_svn,bench as bench1 -where - bench.options = 'gc-on' and - bench.compilation = 'byte' and - bench_svn.mark = bench.mark and - bench1.result = 'fail' and - bench1.mark = bench.mark and - bench1.compilation = 'byte' and - bench1.options = 'gc-on' -group by bench.mark -order by bench.mark desc -***"); - -$query_csc_opt = urlencode(" -Performances (opt and GC) per mark -@@@ -select - bench.mark, - bench_svn.revision as revision, - SUM(bench.time) as sum_time, - SUM(bench.timeuser) as sum_timeuser, - COUNT(DISTINCT bench.test) as performed_tests, - COUNT(DISTINCT bench1.test) as failed_tests + bench_times.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, bench_svn,bench as bench1 + bench_svn, + (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 = '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)) + as count + from bench as b1 + group by b1.mark) as bench_fails_opt where - bench.options = 'gc-on' and - bench.compilation = 'opt' and - bench_svn.mark = bench.mark and - bench1.result = 'fail' and - bench1.mark = bench.mark and - bench1.compilation = 'opt' and - bench1.options = 'gc-on' -group by bench.mark -order by bench.mark desc + 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 + order by bench_svn.mark desc ***"); $query_total = urlencode(" @@ -202,6 +280,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 ""; +} + ?> @@ -210,14 +299,17 @@ function links_of($name,$q,$limits){
'bench' table description: | ||||||
'bench_svn' table description: | ||||||
@@ -307,15 +405,19 @@ SQL (only one query, ';' if present must terminate the query, no characters allo | ||||||
select - b1.test as test, b1.timeuser as oldtime, b2.timeuser as newtime, b1.compilation as comp, b1.options as opts + b1.test as test, 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.mark = '' and b2.mark= '' and - ABS(b1.timeuser - b2.timeuser) > 100; + b1.result = b2.result and + b1.mark = '' and b2.mark= '' and + ABS(b2.timeuser - b1.timeuser) < 100 +order by diff desc; + | ||||||