X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Fscripts%2Fpublic_html%2Fbench.php;fp=helm%2Fmatita%2Fscripts%2Fpublic_html%2Fbench.php;h=2ee5408257b42e1fb11aa1ac20505deac8a0e501;hb=792b5d29ebae8f917043d9dd226692919b5d6ca1;hp=0000000000000000000000000000000000000000;hpb=a14a8c7637fd0b95e9d4deccb20c6abc98e8f953;p=helm.git

diff --git a/helm/matita/scripts/public_html/bench.php b/helm/matita/scripts/public_html/bench.php
new file mode 100644
index 000000000..2ee540825
--- /dev/null
+++ b/helm/matita/scripts/public_html/bench.php
@@ -0,0 +1,147 @@
+<?php require("common.php"); 
+  
+// syntax
+//
+// queries ::= query | query "###" queries
+// query ::= name "@@@" sql
+//
+$limits = array("20","50","100");
+  
+$quey_all = urlencode("Whole content:@@@select * from bench order by mark desc***");
+$query_fail = urlencode(
+  "Number of failures@@@" .
+  "select mark, count(distinct test) as fail_no from bench where result = 'fail' group by mark order by mark desc***"
+  . "###" . 
+  "Tests failed@@@" .
+  "select distinct mark, test, result from bench where result = 'fail' order by mark desc***" 
+);
+$query_gc = urlencode(
+  "GC usage @@@" .
+  "select bench.mark, SEC_TO_TIME(SUM(TIME_TO_SEC(bench.time)) - SUM(TIME_TO_SEC(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 group by mark***"
+  . "###" . 
+  "GC usage (opt)@@@" .
+  "select bench.mark, SEC_TO_TIME(SUM(TIME_TO_SEC(bench.time)) - SUM(TIME_TO_SEC(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 = 'opt' group by mark***"
+  . "###" . 
+  "GC usage (byte)@@@" .
+  "select bench.mark, SEC_TO_TIME(SUM(TIME_TO_SEC(bench.time)) - SUM(TIME_TO_SEC(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(
+  "Auto (with GC)@@@select mark, SEC_TO_TIME(SUM(TIME_TO_SEC(bench.time))) as time from bench where test='auto.ma' and options = 'gc-on' group by mark order by mark desc***"
+  . "###" . 
+  "Auto (without GC)@@@select mark, SEC_TO_TIME(SUM(TIME_TO_SEC(bench.time))) as time from bench where test='auto.ma' and options = 'gc-off' group by mark order by mark desc***"
+  #  . "###" . 
+  # "GC overhead@@@select bench.mark, SEC_TO_TIME(SUM(TIME_TO_SEC(bench.time)) - SUM(TIME_TO_SEC(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.test = 'auto.ma' group by mark"
+);
+
+$query_csc = urlencode("Performances (byte and GC) per mark@@@select bench.mark ,bench_svn.revision as revision, SEC_TO_TIME(SUM(TIME_TO_SEC(bench.time))) as sum_time, SEC_TO_TIME(SUM(TIME_TO_SEC(bench.timeuser))) as sum_timeuser from bench, bench_svn where bench.options = 'gc-on' and bench.compilation = 'byte' and bench_svn.mark = bench.mark 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, SEC_TO_TIME(SUM(TIME_TO_SEC(bench.time))) as sum_time, SEC_TO_TIME(SUM(TIME_TO_SEC(bench.timeuser))) as sum_timeuser from bench, bench_svn where bench.options = 'gc-on' and bench.compilation = 'opt' and bench_svn.mark = bench.mark group by bench.mark order by bench.mark desc"
+);
+
+$query_total = urlencode(
+  
+"Max N@@@select COUNT(DISTINCT test) as MAX from bench group by mark order by MAX desc LIMIT 0,1;"
+  . "###" .
+  "Number of compiled tests@@@select mark, COUNT(DISTINCT test) as N from bench group by mark order by mark desc***"
+);
+
+function minus1_to_all($s){
+  if ($s == "-1") 
+    return "all";
+  else 
+    return $s;
+}
+
+function links_of($name,$q,$limits){
+  echo "<li>$name :&nbsp;&nbsp;&nbsp;";
+  if (strpos($q, urlencode("***")) === false) {
+    echo "<a href=\"showquery.php?query=$q;\">all</a>";
+  } else {
+    foreach($limits as $l) {
+      $q1 = str_replace(urlencode("***"), " LIMIT 0,$l", $q);
+      echo "<a href=\"showquery.php?query=$q1;\">" . 
+            minus1_to_all($l) . "</a>&nbsp;&nbsp;";
+    }
+      $q1 = str_replace(urlencode("***"), " ", $q);
+      echo "<a href=\"showquery.php?query=$q1;\">" . 
+            minus1_to_all("-1") . "</a>&nbsp;&nbsp;";
+  }
+  echo "</li>";
+}
+
+?>
+
+<html>
+  <head>
+  <link type="text/css" rel="stylesheet" href="style.css"/>
+  </head>
+  <body>
+    <h1>QUERY the benchmark system</h1>
+    <h2>Common Queries</h2>
+    <p>
+      <ul>
+      <? links_of("Broken tests",$query_fail,$limits) ?>
+      <? links_of("Garbage collector killer",$query_gc,$limits) ?>
+      <? links_of("Auto performances",$query_auto,$limits) ?>
+      <? links_of("Global performances (bytecode)",$query_csc,$limits) ?>
+      <? links_of("Global performances (nativecode)",$query_csc_opt,$limits) ?>
+      <? links_of("Number of compiled tests",$query_total,$limits) ?>
+      <? links_of("All table contents",$quey_all,$limits) ?>
+      </ul>
+    </p>
+    <h2>Custom Query</h2>
+    <form action="composequery.php" method="get">
+    <table>
+  <tr>
+    <td>Marks:</td>
+    <td> 
+      <? array_to_combo("mark",
+            query("select distinct mark from bench order by mark desc;")); ?>
+    </td>
+  </tr>
+  <tr>
+    <td>Compilations:</td>
+    <td> 
+      <? array_to_combo("compilation",
+           query("select distinct compilation from bench;")); ?>
+    </td>
+  </tr>
+  <tr>
+    <td>Options:</td>
+    <td>  
+      <?array_to_combo("options",query("select distinct options from bench;"));?>
+    </td>
+  </tr>
+  <tr>
+    <td>Tests:</td>
+    <td>    
+      <? array_to_combo("test",query("select distinct test from bench;")); ?>
+    </td>
+  </tr>
+  <tr>
+    <td>Test results:</td>
+    <td>
+      <? array_to_combo("result",query("select distinct result from bench;")); ?>
+    </td>
+  </tr>
+  <tr>
+    <td>Group By: </td>
+    <td>
+      <? array_to_combo("groupby",array(array("mark","options"))); ?>
+    </td>
+  </tr>
+  <tr>
+    <td>Limit: </td>
+    <td>
+      <? array_to_combo("limit",array($limits)); ?>
+    </td>
+  </tr>
+  <tr>
+    <td><input type="submit" value="Submit" class="button" /></td>
+  </tr>
+ </table>
+</form>
+</body>
+</html>