X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fscripts%2Fpublic_html%2Fbench.php;h=0b1186e4aea4c836adf5bc71bb9a896c00eaad1e;hb=05b38c588708726f48288227221a8b706544b0a7;hp=d04d228bd98cc952fd8a46d313d03313ed7d88fa;hpb=978d3db06b3ad05af4a19ce8a4b5f7a35c13b526;p=helm.git diff --git a/helm/software/matita/scripts/public_html/bench.php b/helm/software/matita/scripts/public_html/bench.php index d04d228bd..0b1186e4a 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 @@@ @@ -206,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 ""; +} + ?> @@ -214,10 +299,14 @@ function links_of($name,$q,$limits){
'bench' table description: | ||||||
'bench_svn' table description: | ||||||
@@ -310,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; + | ||||||