[SCM] Lisaac compiler branch, master, updated. lisaac-0.12-645-gcdb6807

Mildred Ki'Lya silkensedai at online.fr
Sun Aug 15 09:48:19 UTC 2010


The following commit has been merged in the master branch:
commit 18cfb1dee3a6549f03151e63caa261f8c846097c
Author: Mildred Ki'Lya <silkensedai at online.fr>
Date:   Fri Jul 30 16:50:47 2010 +0200

    Sort generated HTML reports

diff --git a/tools/licoverage b/tools/licoverage
index 4c4e87d..bbbbe72 100755
--- a/tools/licoverage
+++ b/tools/licoverage
@@ -290,7 +290,8 @@ sub generate_html {
     files       => [],
   };
   my $i = 0;
-  while (my ($id, $file) = each(%all_files)) {
+  foreach my $id (sort (keys(%all_files))) {
+    my $file = $all_files{$id};
     my $html_file = "coverage_".$file->{id}.".html";
     $vars_index->{files}->[$i++] = {
       shortname              => phtml(substr($file->{filename}, length($common_dir))),
@@ -359,7 +360,8 @@ sub generate_html {
 }
 
 sub generate_summary {
-  while (my ($id, $file) = each(%all_files)) {
+  foreach my $id (sort (keys(%all_files))) {
+    my $file = $all_files{$id};
     my $proto_file = $file->{filename};
     print substr($proto_file, length($common_dir));
     my $percent = 100 * $file->{covered}/$file->{count};
@@ -368,9 +370,19 @@ sub generate_summary {
   }
 }
 
+# sub sort_all_files {
+#   my %tmp = %all_files;
+#   %all_files = ();
+#   foreach my $key (sort (keys(%tmp))) {
+#     $all_files{$key} = $tmp{$key};
+#   }
+# }
+
+
 process_files(@cov_files);
 
 if ($gen_html) {
+  print "Generate HTML ...\n";
   generate_html();
 }
 
@@ -497,4 +509,4 @@ __END__
     <h1>Code coverage for [% shortname %]</h1>
     <code>[% code %]</code>
   </body>
-</html>
\ No newline at end of file
+</html>

-- 
Lisaac compiler



More information about the Lisaac-commits mailing list