rename demo to examples

1 files changed, 64 insertions, 0 deletions

diff --git a/examples/build_report.pl b/examples/build_report.pl
new file mode 100644
index 000000000..3aba44c63
--- /dev/null
+++ b/examples/build_report.pl
@@ -0,0 +1,64 @@
+#!/usr/bin/perl
+
+use Scalar::Util qw(looks_like_number);
+
+$" = "\n"; # change list separator
+
+$keil_size = "Program Size:.+";
+
+%report_patterns = 
+( #toolchain, pattern-list
+  'keil'    => ['Build target \'(.+)\'', '(\d+ Error.+\d+ Warning)', $keil_size . 'Code=(\d+)', $keil_size . 'RO-data=(\d+)', $keil_size . 'RW-data=(\d+)', $keil_size . 'ZI-data=(\d+)'],
+  'iar'     => ['Building configuration.+ (.+)', 'Total number of (.+)', '((\s+\d+){4})\s+[0-9a-f]+'],
+  'xpresso' => ['Build of configuration (\S+) ', '(Finished) building target', '((\s+\d+){4})\s+[0-9a-f]+']
+);
+
+@report_file_list = <build_all_*.txt>;
+#print "@report_file_list"; die;
+
+open $freport, ">build_report.txt" or die "cannot open build_reprot.txt";
+
+foreach (@report_file_list)
+{
+  /build_all_([^_]+)_/;
+  build_report($_, $1);
+}
+
+sub build_report 
+{
+  my $report_file = $_[0];
+  my $toolchain   = $_[1];
+  
+  my @pattern     = @{$report_patterns{$toolchain}};
+  
+  open $report_handle, $report_file or die "cannot open $report_file";
+  
+  $report_file =~ /build_all_(.+).txt/;
+  
+  print $freport "--------------------------------------------------------------------\n";
+  printf $freport "%-25s", $1;
+  printf $freport "%13s", "" if $toolchain eq 'iar';
+  print $freport "            text	   data	    bss	    dec" if $toolchain eq 'xpresso' or $toolchain eq 'iar';
+  print $freport "  Code     RO     RW     ZI" if $toolchain eq 'keil';
+  print $freport "\n--------------------------------------------------------------------";
+
+  while( my $line = <$report_handle> )
+  {
+    local $/ = "\r\n";
+    chomp $line;
+    
+    foreach (@pattern)
+    {
+      if ($line =~ /$_/)
+      {
+        my $fmat = ($_ eq $pattern[0]) ? "\n%-25s" :  "%s ";
+        $fmat = "%6s " if $toolchain eq 'keil' and looks_like_number($1);
+        printf $freport $fmat, $1; 
+      }
+    }
+  }
+  
+  close $report_handle;
+  
+  print $freport "\n\n";
+}
\ No newline at end of file