...

[helm.git] / matita / scripts / public_html / bench.php
diff --git a/matita/scripts/public_html/bench.php b/matita/scripts/public_html/bench.php

index eeb3f237b080d7f2da5157caa849371764750956..1009ace52dbc4a3a7b50b7e708a9aac77004b7b7 100644 (file)
--- a/matita/scripts/public_html/bench.php
+++ b/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 
@@ -49,6 +70,22 @@ where
    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
  @@@
@@ -243,6 +280,17 @@ function links_of($name,$q,$limits){
    echo "</li>";
  }
  
+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 "<pre>";
+ foreach ($res as $k => $v) { echo "$v\n"; }
+ echo "</pre>";
+}
+
  ?>
  
  <html>
@@ -251,11 +299,14 @@ function links_of($name,$q,$limits){
    </head>
    <body>
      <h1>QUERY the benchmark system</h1>
+    <h2>Last Commits</h2>
+    <? last_commits() ?>
      <h2>Common Queries</h2>
      <p>
        <ul>
        <? links_of("Broken tests",$query_fail,$limits) ?>
-      <? links_of("Time diff",$query_diff,$limits) ?>
+      <? links_of("Time diff",$query_time_diff,$limits) ?>
+      <? links_of("Result diff",$query_result_diff,$limits) ?>
        <? links_of("Garbage collector killer",$query_gc,$limits) ?>
        <? links_of("Auto performances",$query_auto,$limits) ?>
        <? links_of("Global performances",$query_csc,$limits) ?>
@@ -340,7 +391,13 @@ function links_of($name,$q,$limits){
  <table>
  <tr><td>'bench' table description:</td></tr>
  </tr>
-<? query("describe bench","printer"); ?>
+<? query("describe bench","printer"); $i=0; ?>
+</tr>
+<tr><td></td></tr>
+<tr><td></td></tr>
+<tr><td>'bench_svn' table description:</td></tr>
+</tr>
+<? query("describe bench_svn","printer"); $i=0; ?>
  </tr>
  <tr><td></td></tr>
  <tr><td colspan="7">